Google
 

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





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

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

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

	FUNCTION:	BYTE, BLT, JFFO

	VERSION:	0.2

	DATE RELEASED:	JANUARY 1977

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

COPYRIGHT(C) 1976,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

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

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
							MAINDEC-10-DAKAM.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	DATA SWITCH FUNCTIONS

5.0	ERRORS

6.0	ITERATION COUNTER

7.0	CYCLE TIME

8.0	OPERATIONAL VARIATIONS

9.0	MISCELLANEOUS

10.0	LISTING
							MAINDEC-10-DAKAM.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	THIRTEENTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE BYTE, BLOCK TRANSFER AND
	JFFO INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER 
	CONSOLE TELETYPE
	DECTAPE
	LINE PRINTER (OPTIONAL)

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

	THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
	PROGRAM BE RESIDENT IN THE PDP-10.

	PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
	TIME SHARING - RUN UNDER DIAMON.
							MAINDEC-10-DAKAM.TXT
							PAGE 4                                                             SEQ 0004

3.2	STARTING PROCEDURE

	A.  SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
	    4.0 DATA SWITCH FUNCTIONS).

	B.  EXEC MODE

	    STAND-ALONE STARTING ADDRESS IS 30000.

	C.  USER MODE

	    RUN UNDER "DIAMON".
	    IN USER MODE THE FOLLOWING QUESTIONS WILL BE ASKED TO 
	    SELECT THE OPERATIONAL SWITCHES:

		    TELETYPE SWITCH CONTROL ? 0,S,Y OR N (CR) -

		    IF THE OPERATOR TYPES "N", THE ACTUAL CONSOLE
		    SWITCHES ARE USED.

		    IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
		    ARE ASKED AND THE OPERATOR RESPONDS BY TYPING
		    THE ANSWER AS SIX OCTAL DIGITS REPRESENTING
		    THE DESIRED SWITCH SETTINGS.

		    SPECIFY LH SWITCHES IN OCTAL-

		    SPECIFY RH SWITCHES IN OCTAL-

		    IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
		    THE SWITCH SETTINGS.

		    IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
		    ARE USED.  THIS IS ONLY VALID UPON RESTARTING
		    OF AN INTERRUPTED PROGRAM.
							MAINDEC-10-DAKAM.TXT
							PAGE 5                                                             SEQ 0005

3.3	OPERATING PROCEDURE

	A.  TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA 
	    SWITCHES SHOULD BE SET TO 0.

	B.  WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0.  ALLOW THE 
	    TELETYPE TO PRINT THE ERROR MESSAGES.  THIS ALLOWS THE 
	    PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
	    MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE.  IF A
	    HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
	    FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
	    TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
	    TEST FROM THE BEGINNING.  THE FIRST FAILURE WILL THEN CAUSE
	    THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.

	    THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
	    SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT 
	    TO BE ISOLATED AND REPLACED AND/OR REPAIRED.

	C.  WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
	    THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
	    BELL TO BE RUNG WHEN A ERROR OCCURS.  IF THE MARGIN OBTAINED
	    IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
	    SETTINGS FOR DEBUGGING PURPOSES.

	D.  ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING 
	    ERRORS ON THE LINE PRINTER.

	E.  IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
	    AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT 
	    BUT HALT THE PROGRAM POINTING TO THE ERROR.
							MAINDEC-10-DAKAM.TXT
							PAGE 6                                                             SEQ 0006

4.0	DATA SWITCH FUNCTIONS

	SWITCH		STATE	FUNCTION
	------		-----	--------

	0    ABORT	0	NORMAL OPERATION
			1	ABORT AT END OF PASS

	1    RSTART		NOT USED

	2    TOTALS		NOT USED

	3    NOPNT	0	NORMAL TYPEOUT
			1	INHIBIT ALL PRINT/TYPEOUT
				(EXCEPT FORCED)

	4    PNTLPT	0	NORMAL OUTPUT TO TTY
			1	PRINT ALL DATA ON LPT
				(LOGICAL DEVICE, USER MODE)

	5    DING	0	NO FUNCTION
			1	RING TTY BELL ON ERROR

	6    LOOPER	0	PROCEED TO NEXT TEST
			1	ENTER SCOPE LOOP ON TEST ERROR

	7    ERSTOP	0	NO FUNCTION
			1	HALT ON TEST ERROR

	8    PALERS	0	PRINT ONLY FIRST ERROR WHEN LOOPING
			1	PRINT ALL ERRORS, EVEN IF SAME ERROR

	9    RELIAB		NOT USED

	10   TXTINH	0	PRINT FULL ERROR MESSAGES.
			1	INHIBIT COMMENT PORTION OF 
				ERROR MESSAGES.

	11   INHPAG	0	ALLOW PAGING AND TRAP ENABLE
			1	INHIBIT PAGING AND TRAPPING

	12   MODDVC		NOT USED

	13   INHCSH		NOT USED
							MAINDEC-10-DAKAM.TXT
							PAGE 7                                                             SEQ 0007

5.0	ERRORS

	ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER.  THE ERROR 
	PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
	NUMBER AND THE CONTENTS OF AN APPLICABLE AC.

	THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
	THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
	BE MADE AT SOME FUTURE DATE.

	WHEN THE SCOPE LOOP MODE IS USED THE MI REGISTER WILL COUNT 
	FOR EACH OCCURANCE OF AN ERROR.  IF AN AUDIO INDICATION OF
	A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET.

6.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEMORY
	INDICATORS (MI).  THIS COUNT IS A DECREMENTING COUNT AND 
	INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.

7.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-DAKAM.TXT
							PAGE 8                                                             SEQ 0008

8.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
	    RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE 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 PROGRAM
		AND STARTS IT AT LOCATION 30002.

	    2.	MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
		CONTROL WORD.
			LH = 0, STAND-ALONE OPERATION
			    -1, RUNNING UNDER DIAGNOSTIC MONITOR

			RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
			     DIAGNOSTIC MONITOR CONTROL.

	B.  USER MODE

	    TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
	    DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
	    DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'.  THE PHYSICAL
	    DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
	    FORMAT SUCH AS LPT, DSK, DTA, ETC.  THE CORRESPONDING 
	    OUTPUT FILE IS 'DAKAM.TMP'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

	    IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
	    RETURN TO DIAMON COMMAND MODE.
							MAINDEC-10-DAKAM.TXT
							PAGE 9                                                             SEQ 0009

8.0	OPERATIONAL VARIATIONS (CON'T)

	THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
	NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).

	IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
	OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' 
	COMMAND.

	C.  SYSTEM EXERCISER

	    START ADDRESS IS 30003.  DATA SWITCHES ARE PRESTORED IN
	    'SWTEXR' LOC 30023.

9.0	MISCELLANEOUS

	THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET 
	(0).  THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
	TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.

10.0	LISTING
THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAM
                                                                                                                           SEQ 0010
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAM

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #13

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

	2. ADD TEST FOR BLT WITH EFFECTIVE ADDRESS LESS THAN CONTENTS OF
		AC RIGHT.

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

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

************************************************************************
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
DAKAMT	MAC	20-JAN-77 11:33		DIAGNOSTIC PARAMETERS                                                              SEQ 0011

     1					;DAKAM
     2
     3
     4			000000			MCNVER==0
     5			000002			DECVER==2
     6
     7
     8						XLIST
     9						LIST
    10						LALL
    11
    12						NAME	\MCNVER,\DECVER^
    13
    14					TITLE	DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2
    15					^
    16
    17					;(BYTE, BLOCK TRANSFER, JFFO AND OTHER BASIC MISCELLANEOUS INSTRUCTIONS)
    18
    19					;COPYRIGHT 1975,1977
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;JOHN R. KIRCHOFF
    24
    25	000137					LOC	137
    26	000137	000000	000002			MCNVER,,DECVER
    27
    28						NOSYM
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 2
DAKAMT	MAC	20-JAN-77 11:33		DIAGNOSTIC PARAMETERS                                                              SEQ 0012

    29					SUBTTL	DIAGNOSTIC PARAMETERS
    30
    31					;OPERATOR DEFINITIONS
    32
    33		001000	000000		OPDEF	ER1	[1B8]
    34		002000	000000		OPDEF	ER2	[2B8]
    35		003000	000000		OPDEF	ER3	[3B8]
    36		004000	000000		OPDEF	ER4	[4B8]
    37		005000	000000		OPDEF	ER5	[5B8]
    38		006000	000000		OPDEF	ER6	[6B8]
    39		007000	000000		OPDEF	ER7	[7B8]
    40		010000	000000		OPDEF	ER10	[10B8]
    41		011000	000000		OPDEF	ER11	[11B8]
    42		012000	000000		OPDEF	ER12	[12B8]
    43		013000	000000		OPDEF	ER13	[13B8]
    44
    45			040530		LUUO1=ERRMES
    46			040530		LUUO2=ERRMES
    47			040530		LUUO3=ERRMES
    48			040530		LUUO4=ERRMES
    49			040530		LUUO5=ERRMES
    50			040530		LUUO6=ERRMES
    51			040530		LUUO7=ERRMES
    52			040530		LUUO10=ERRMES
    53			040530		LUUO11=ERRMES
    54			040530		LUUO12=ERRMES
    55			040530		LUUO13=ERRMES
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 3
DAKAMT	MAC	20-JAN-77 11:33		DIAGNOSTIC PARAMETERS                                                              SEQ 0013

    56					;SUBROUTINE ASSEMBLY DEFINITIONS
    57
    58			000040		DEBUG=40
    59			000001		EXCASB=1
    60			000001		USRASB=1
    61			000001		KA10=1
    62			000001		PGMEND=1
    63			000001		ERDIAG=1
    64
    65					;SPECIAL FEATURE DEFINITIONS
    66
    67			030000		SADR1=BEGIN
    68			030000		SADR2=BEGIN
    69			030000		SADR3=BEGIN
    70			030000		SADR4=BEGIN
    71		254000	030000		SADR5=JRST BEGIN
    72		254000	030000		SADR6=JRST BEGIN
    73		254000	030000		SADR7=JRST BEGIN
    74		254000	030000		SADR8=JRST BEGIN
    75		254000	030000		SADR9=JRST BEGIN
    76		254000	030000		SADR10=JRST BEGIN
    77		254000	030000		SADR11=JRST BEGIN
    78
    79					;SPECIAL FEATURE PARAMETERS
    80
    81			000000		PAREA0=0
    82			000000		PAREA1=0
    83			000000		PAREA2=0
    84		444153	415500		PAREA3=SIXBIT/DAKAM/
    85		645560	000000		PAREA4=SIXBIT/TMP/
    86			000000		PAREA5=0
    87			000000		PAREA6=0
    88			001000		ITERAT==1000
    89
    90					;MACROS
    91
    92					DEFINE	SAVEAC	(A,B)<
    93						MOVEI	AC+2,.		;SAVE TEST PC
    94						MOVEM	AC+2,TESTPC
    95						MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
    96						MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4
DAKAMT	MAC	20-JAN-77 11:33		DIAGNOSTIC PARAMETERS                                                              SEQ 0014

    97					;SPECIAL INSTRUCTIONS TO ASSEMBLER
    98
    99					IF1,<BYTBLK=14773>	;BYTBLK BEYOND AC RANGE FOR PASS 1
   100					IF1,<BLTBLK=15000>	;BLTBLK BEYOND AC RANGE FOR PASS 1
   101
   102					;MACROS
   103
   104					DEFINE	GMOV	(X1,DATA),<
   105						IFLE	<X1-20>,<
   106						MOVE	X1,[DATA]	;PRELOAD X1 WITH DATA>
   107						IFG	<X1-20>,<
   108						MOVE	AC+1,[DATA]
   109						MOVEM	AC+1,X1		;PRELOAD X1 WITH DATA>>
   110
   111					DEFINE	GCAM	(X1,DATA),<
   112					SN=SN+1
   113						IFG	<X1-20>,<
   114						MOVE	AC-1,X1
   115						CAME	AC-1,[DATA]	;IS C(X1) = DATA
   116						IFIDN	<DEST>,<X1>,<
   117						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
   118						IFDIF	<DEST>,<X1>,<
   119						ER2	AC-1,SN		;C(X1) WAS CLOBBERED>>
   120						IFLE	<X1-20>,<
   121						CAME	X1,[DATA]	;IS C(X1) = DATA
   122						IFIDN	<DEST>,<X1>,<
   123						ER2	X1,SN		;DEST NOT LOADED CORRECTLY>
   124						IFDIF	<DEST>,<X1>,<
   125						ER2	X1,SN		;C(X1) WAS CLOBBERED>>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 5
DAKAMT	MAC	20-JAN-77 11:33		DIAGNOSTIC PARAMETERS                                                              SEQ 0015

   126					DEFINE	BLTM1	(A1,C1,S1,D1,SC)<
   127					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
   128					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
   129					;SOURCE DATA = SC
   130					
   131						AC=C1
   132						SAVEAC	(1,1)
   133					SN=A1
   134						SRCE=S1			;1ST LOC OF SOURCE = S1
   135						DEST=D1			;1ST LOC OF DESTINATION = D1
   136						SIZ=1			;BLOCK SIZE = 1 WORD
   137					
   138					G'A1:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
   139						GMOV	(SRCE-1,<252525252525>)
   140						GMOV	(SRCE,<SC>)
   141						GMOV	(SRCE+1,<770077007700>)
   142						GMOV	(DEST-1,<070707070707>)
   143						GMOV	(DEST,<123456765432>)
   144						GMOV	(DEST+1,<552255225522>)
   145						BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
   146						GCAM	(SRCE-1,<252525252525>)
   147						GCAM	(SRCE,<SC>)
   148						GCAM	(SRCE+1,<770077007700>)
   149						GCAM	(DEST-1,<070707070707>)
   150						GCAM	(DEST,<SC>)
   151						GCAM	(DEST+1,<552255225522>)
   152						JUMPL	AC+2,G'A1		;LOOP ON ERROR>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0016

   153					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
   154
   155					DEFINE	S,<;*********************************************************************>
   156
   157					S^;*********************************************************************^
   158					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   159					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   160					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   161					S^;*********************************************************************^
   162
   163			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   164			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   165			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   166
   167			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   168			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   169			010000		DING==	010000			;RING BELL ON ERROR
   170
   171			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   172			002000		ERSTOP==002000			;HALT ON TEST ERROR
   173			001000		PALERS==001000			;PRINT ALL ERRORS
   174
   175			000400		RELIAB==000400			;RELIABILITY MODE
   176			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   177			000100		INHPAG==000100			;INHIBIT PAGING
   178
   179			000040		MODDVC==000040			;MODIFY DEVICE CODE
   180			000020		INHCSH==000020			;INHIBIT CACHE
   181			000010		OPRSEL==000010			;OPERATOR SELECTION
   182
   183			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   184
   185			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   186
   187									;SWITCH 17 RESERVED !!!
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 2
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0017

   188					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   189
   190					S^;*********************************************************************^
   191					;*SPECIAL SUBPROGRAM LINKAGES
   192					S^;*********************************************************************^
   193
   194			027772		FSELNK=	27772	;FILE SELECT LINK
   195			027773		FRDLNK=	27773	;FILE READ LINK
   196			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   197			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   198			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   199			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   200
   201					S^;*********************************************************************^
   202					;*SPECIAL SUBROUTINE FATAL HALTS
   203					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   204					S^;*********************************************************************^
   205
   206					;ADDRESS   TAG	REASON
   207					;---------------------
   208
   209					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   210					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   211					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   212					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   213					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   214					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   215					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   216					; 1017  EOPERR	;END OF PROGRAM ERROR
   217					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   218
   219					S^;*********************************************************************^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0018

   220					S^;*********************************************************************^
   221					;OPERATOR DEFINITIONS (NON-UUO'S)
   222					S^;*********************************************************************^
   223
   224		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   225		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   226		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   227		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   228		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   229		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   230		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   231		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   232
   233					S^;*********************************************************************^
   234					;*SUBROUTINE INITIALIZATION CALL
   235					S^;*********************************************************************^
   236
   237		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   238
   239					S^;*********************************************************************^
   240					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   241					S^;*********************************************************************^
   242
   243		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   244		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   245
   246					S^;*********************************************************************^
   247					;*TERMINAL INPUT UUO'S
   248					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   249					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   250					S^;*********************************************************************^
   251
   252		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   253		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   254		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   255		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   256		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   257		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   258		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   259		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   260		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   261		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0019

   262					;*TERMINAL OUTPUT UUO'S.
   263
   264		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   265		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   266		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   267		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   268		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   269		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   270		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   271		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   272		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   273		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   274		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   275		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   276		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   277		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   278		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   279		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   280		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   281		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   282		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   283		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   284		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   285		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   286		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   287		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   288		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   289		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   290		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   291		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   292		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   293		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   294		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   295		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   296		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   297		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   298		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   299		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   300		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   301		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   302		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   303		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   304		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   305		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   306		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   307		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   308		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   309		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   310		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   311		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   312		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   313		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   314		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   315		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   316		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0020

   317		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   318		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   319
   320		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   321
   322					DEFINE	PMSG	(ARG),<
   323						PSIXM	[SIXBIT\ARG'_\]>
   324
   325					DEFINE	PMSGF	(ARG),<
   326						PSIXMF	[SIXBIT\ARG'_\]>
   327
   328					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   329					;*	CONSERVES CORE OVER ASCIZ
   330
   331					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   332
   333					;*CONSOLE SWITCH INPUT UUO.
   334					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   335					;* USER MODE.
   336
   337		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   338
   339					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   340					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   341
   342		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   343		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   344
   345					;*KL10 ONLY CACHE OPERATION UUO'S
   346
   347		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   348		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   349		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0021

   350					;*END OF PASS/PROGRAM UUOS
   351
   352					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   353					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   354
   355		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   356		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   357
   358					;*MEMORY MANAGEMENT UUO'S
   359					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   360					;*ADDRESS CONVERSION, ETC...
   361
   362		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   363		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   364		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   365		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   366		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   367		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   368		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   369
   370					;*DEVICE CODE MODIFICATION UUO
   371					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   372					;*IOT'S TO A DIFFERENT DEVICE CODE.
   373
   374		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   375		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   376
   377			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   378			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   379
   380					;*"DIAMON" FILE SELECTION AND READ UUOS
   381
   382		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   383		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   384		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   385		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   386
   387					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   388
   389		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   390
   391						XLIST
   392					IFNDEF	KLOLD,<LIST
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 6
PARAM	KLM	18-JAN-77 11:38		ERROR HANDLING UUO DEFINITIONS, JAN 18,1977                                        SEQ 0022

   393					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
   394
   395					S^;*********************************************************************^
   396					;*ERROR HANDLER PARAMETERS
   397					S^;*********************************************************************^
   398
   399		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   400		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   401		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   402		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   403		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   404
   405					;*THE ERROR HANDLER MACROS
   406
   407					;*A MACRO TO REPORT AN ERROR AND LOOP
   408
   409						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   410						SALL
   411						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   412							   CORECT,,ACTUAL
   413							   [SIXBIT\D'_\],,ERR]
   414						XALL
   415					
   416						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   417					>
   418
   419					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   420
   421						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   422						SALL
   423						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   424							   CORECT,,ACTUAL
   425							   [SIXBIT\D'_\],,ERR]
   426						XALL	>
   427
   428					>;END OF KLOLD CONDITIONAL
   429
   430						XLIST
   431						LIST
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0023

   432					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
   433
   434	030000					LOC	30000
   435
   436					S^;*********************************************************************^
   437					;*PROGRAM STARTING ADDRESSES
   438					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   439					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   440					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   441					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   442					S^;*********************************************************************^
   443
   444	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   445	030001	254 00 0 00 030616 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   446
   447	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   448
   449	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   450
   451	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   452
   453	030005	254 00 0 00 030000 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   454
   455	030006	254 00 0 00 030000 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   456
   457	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   458	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   459
   460	030010	254 00 0 00 030621 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   461	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   462	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   463
   464	030013	254000	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   465	030014	254000	030000		START2:	SADR8			; "
   466	030015	254000	030000		START3:	SADR9			; "
   467	030016	254000	030000		START4:	SADR10			; "
   468	030017	254000	030000		START5:	SADR11			; "
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 2
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0024

   469					S^;*********************************************************************^
   470					;*PROGRAM FIXED PARAMETER AREA
   471					S^;*********************************************************************^
   472
   473	030020	444153	415500		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   474	030021	645560	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   475	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   476	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   477	030024	000000	001000		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   478	030025	000000	030602		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   479	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   480	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   481	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   482	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   483	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   484	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   485	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   486	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   487	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   488
   489					S^;*********************************************************************^
   490					;*PROGRAM VARIABLE PARAMETER AREA
   491					S^;*********************************************************************^
   492
   493	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   494	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   495	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   496	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   497	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   498	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   499	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   500	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   501	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   502	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   503	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   504	030052	000000	000000		ERRPC:	0		;ERROR PC
   505	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   506	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   507	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   508	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 3
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0025

   509					S^;*********************************************************************^
   510					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   511					S^;*********************************************************************^
   512
   513	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   514	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   515	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   516	030062	254000	030000		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   517	030063	254000	030000		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   518	030064				CPOPJ1:			;SKIP RETURN
   519	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   520	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   521	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   522	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   523	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   524	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   525	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   526	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   527	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   528	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   529	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   530	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   531	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   532	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   533	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   534	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   535
   536	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   537	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   538	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   539
   540					S^;*********************************************************************^
   541					;*PROCESSOR CONTROL STORAGE
   542					S^;*********************************************************************^
   543
   544	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   545	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   546	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   547	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   548	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   549
   550	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   551	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   552
   553	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   554	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   555	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   556	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   557	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   558	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   559	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0026

   560					S^;*********************************************************************^
   561					;*UUO DISPATCH TABLE
   562					S^;*********************************************************************^
   563						XLIST
   564						LIST
   565	030124	040530	030070		UUODIS:	LUUO1,,$UUOER
   566	030125	040530	040530			LUUO3,,LUUO2
   567	030126	040530	040530			LUUO5,,LUUO4
   568	030127	040530	040530			LUUO7,,LUUO6
   569	030130	040530	040530			LUUO11,,LUUO10
   570	030131	040530	040530			LUUO13,,LUUO12
   571	030132	030070	030070			LUUO15,,LUUO14
   572	030133	030070	030070			LUUO17,,LUUO16
   573	030134	030070	030070			LUUO21,,LUUO20
   574	030135	030070	030070			LUUO23,,LUUO22
   575	030136	030070	030070			LUUO25,,LUUO24
   576	030137	030070	030070			LUUO27,,LUUO26
   577	030140	030070	030070			LUUO31,,LUUO30
   578	030141	030070	030070			LUUO33,,LUUO32
   579
   580					S^;*********************************************************************^
   581					;*MEMORY MANAGMENT STORAGE
   582					S^;*********************************************************************^
   583
   584	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   585	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   586	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   587	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   588	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   589
   590					S^;*********************************************************************^
   591					;*PRINT CONTROL STORAGE
   592					S^;*********************************************************************^
   593
   594	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   595	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   596	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   597	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   598	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   599	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   600	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   601	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   602	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   603	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   604	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   605	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   606	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   607	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   608	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   609	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   610	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   611	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   612	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 5
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0027

   613					S^;*********************************************************************^
   614					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   615					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   616					;*	MOVEI	NAME
   617					;*	PNTA		;OR PNTAF
   618					S^;*********************************************************************^
   619
   620	030242				CRLF:	ASCII/
   621	030242	015 012 000 000 000 	/
   622	030243				CRLF2:	ASCII/
   623
   624	030243	015 012 015 012 000 	/
   625	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   626	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   627	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   628	030247	011 000 000 000 000 	TAB:	ASCII/	/
   629	030250				MINUS:
   630	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   631	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   632	030252	052 000 000 000 000 	AST:	ASCII/*/
   633	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   634	030254	050 000 000 000 000 	LFP:	ASCII/(/
   635	030255	051 000 000 000 000 	RTP:	ASCII/)/
   636	030256	007 0000000000 		BELL:	BYTE (7) 007
   637	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   638	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   639	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   640	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   641	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   642	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   643
   644					S^;*********************************************************************^
   645					;*USER MODE OUTPUT FILE INFORMATION
   646					S^;*********************************************************************^
   647
   648	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   649	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   650	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   651	030272					BLOCK	2
   652
   653					S^;*********************************************************************^
   654					;*DISK UPDATE MODE FILE INFORMATION
   655					S^;*********************************************************************^
   656
   657	030274				$IBUF:	BLOCK	3
   658	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   659	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   660	030301					BLOCK	2
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 6
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0028

   661					S^;*********************************************************************^
   662					;*PUSHDOWN LIST CONTROL INFORMATION
   663					S^;*********************************************************************^
   664
   665	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   666	030304				PLISTS:	BLOCK	200
   667	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   668
   669					S^;*********************************************************************^
   670					;*POWER LINE CLOCK FREQUENCY FLAG
   671					S^;*********************************************************************^
   672
   673	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   674
   675					S^;*********************************************************************^
   676					;*KL10 CACHE CONTROL FLAGS
   677					S^;*********************************************************************^
   678
   679	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   680	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   681
   682					S^;*********************************************************************^
   683					;*NUMBER INPUT DIGIT FLAG
   684					S^;*********************************************************************^
   685
   686	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   687
   688					S^;*********************************************************************^
   689					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   690					S^;*********************************************************************^
   691
   692	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   693
   694					S^;*********************************************************************^
   695					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   696					S^;*********************************************************************^
   697
   698	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   699	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   700	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   701
   702					S^;*********************************************************************^
   703					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   704					S^;*********************************************************************^
   705
   706	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 7
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0029

   707					S^;*********************************************************************^
   708					;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
   709					S^;*********************************************************************^
   710
   711	030516	000000	000000		KLTYP:	0
   712
   713					S^;*********************************************************************^
   714					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   715					S^;*********************************************************************^
   716
   717	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   718
   719					S^;*********************************************************************^
   720					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   721					S^;*********************************************************************^
   722
   723	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   724
   725					S^;*********************************************************************^
   726					;*"SWITCH" CALL USAGE CONTROL
   727					S^;*********************************************************************^
   728
   729	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   730
   731					S^;*********************************************************************^
   732					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   733					S^;*********************************************************************^
   734
   735	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   736	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   737
   738					S^;*********************************************************************^
   739					;*SPECIAL FUTURE EXPANSION ROOM
   740					;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
   741					;*THIS BLOCK STATEMENT ACCORDINGLY.  THIS MUST BE DONE
   742					;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
   743					S^;*********************************************************************^
   744
   745	030524					BLOCK	53	;HOPEFULLY THIS IS ENOUGH FOREVER
   746
   747					S^;*********************************************************************^
   748					;*END OF FIXED STORAGE
   749					S^;*********************************************************************^
   750
   751			030577			$ENDFX=<PLISTE+100>&<777700>-1
   752	030577					LOC	$ENDFX
   753	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
DAKAMM	MAC	20-JAN-77 11:34		DIAGNOSTIC SECTION                                                                 SEQ 0030

   754					SUBTTL	DIAGNOSTIC SECTION
   755
   756	030600	037 05 0 00 000002 	EXIT:	DROPDV		;CLOSE LOGICAL OUTPUT FILE
   757	030601	000000	030600			EXIT
   758
   759	030602				PGMNAM:	ASCIZ/
   760	030602	015 012 120 104 120 	PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (13) [DAKAM]
   761	030603	055 061 060 040 040 
   762	030604	113 101 061 060 040 
   763	030605	102 101 123 111 103 
   764	030606	040 111 116 123 124 
   765	030607	122 125 103 124 111 
   766	030610	117 116 040 104 111 
   767	030611	101 107 116 117 123 
   768	030612	124 111 103 040 050 
   769	030613	061 063 051 040 133 
   770	030614	104 101 113 101 115 
   771	030615	135 015 012 000 000 	/
   772
   773					;INITIALIZE SUBROUTINES
   774
   775	030616	265 00 0 00 030011 	START:	PGMINT
   776	030617	200 00 0 00 040721 		MOVE	[ASCIZ/AM/]
   777	030620	202 00 0 00 040643 		MOVEM	TLET		;INITIALIZE TEST LETTER
   778
   779	030621	254 00 0 00 030622 	STARTA:	JRST	G00		;GO PERFORM DIAGNOSTIC
   780
   781					;	GENERAL DESCRIPTION
   782					;PART   IA   -BTYE LOGIC TESTS
   783					;PART   IB   -GENERAL BYTE TEST
   784					;PART	II   -GENERAL BLOCK TRANSFER TEST
   785					;PART	III   -GENERAL JFFO TEST
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 2
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0031

   786					SUBTTL	PART IA - BYTE MANIPULATION
   787
   788
   789					;PART IA - BYTE LOGIC TESTS
   790					;INST-IBP
   791					;TEST ABILITY TO FCE PSE AND DECODE
   792					;PFIELD=14
   793					;SFIELD=6
   794					;BYTEWORD=0,-1
   795					;DESTAC=0
   796					;AN ERROR WILL OCCUR IF AC DIFFERS FROM 0
   797					;FOLLOWING IBP
   798
   799			000005		G00:	AC=5
   800						SAVEAC	(1,1)^
   801	030622	201 07 0 00 030622 		MOVEI	AC+2,.		;SAVE TEST PC
   802	030623	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
   803	030624	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   804	030625	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   805
   806	030626	205 06 0 00 140600 	G100:	MOVSI	AC+1,140600	;SETUP PNTR WORD
   807	030627	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD
   808	030630	400 05 0 00 000000 		SETZ	AC,		;SETUP DEST AC
   809	030631	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC PNTR WORD
   810	030632	332 00 0 00 000005 		SKIPE	AC&17		;TEST AC DIFFERS FROM 0
   811	030633	003 05 0 00 000101 		ER3	AC,101		;FCE PSE FAILED
   812	030634	321 07 0 00 030626 		JUMPL	AC+2,G100	;LOOP ON ERROR SWITCH
   813
   814					;INST-IBP
   815					;TEST ABILITY TO INCREMENT BYTE PNTR
   816					;WITHOUT AFFECTING BYTE WORD
   817					;PFIELD=14
   818					;SFIELD=6
   819					;BYTE ADDRESS=AC0
   820					;AN ERROR WILL OCCUR IF C(AC0) DIFFERS
   821					;FROM ORIGINAL FOLLOWING IBP
   822
   823			000014			AC=14
   824						SAVEAC	(1,1)^
   825	030635	201 16 0 00 030635 		MOVEI	AC+2,.		;SAVE TEST PC
   826	030636	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
   827	030637	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   828	030640	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   829
   830	030641	474 12 0 00 000000 	G200:	SETO	AC-2,		;SETUP FOR COMPARISON
   831	030642	205 15 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
   832	030643	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
   833	030644	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
   834	030645	312 00 0 00 000012 		CAME	,<AC-2>&17	;TEST BYTE WORD
   835	030646	012 00 0 00 000201 		ER12	,201		;BYTE WORD FAILED
   836	030647	321 16 0 00 030641 		JUMPL	AC+2,G200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 3
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0032

   837					;INST-IBP
   838					;PFIELD=22
   839					;SFIELD=6
   840					;AN ERROR WILL OCCUR IF POINTER IS NOT INCREMENTED
   841
   842			000013			AC=13
   843						SAVEAC	(1,1)^
   844	030650	201 15 0 00 030650 		MOVEI	AC+2,.		;SAVE TEST PC
   845	030651	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
   846	030652	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   847	030653	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   848
   849	030654	205 11 0 00 060600 	G300:	MOVSI	AC-2,060600	;SETUP FOR COMPARISON
   850	030655	205 14 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
   851	030656	133 00 0 00 000014 		IBP	,<AC+1>&17	;INCREMENT PNTR
   852	030657	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST PNTR INC
   853	030660	005 14 0 00 000301 		ER5	AC+1,301	;POINTER FAILED
   854	030661	321 15 0 00 030654 		JUMPL	AC+2,G300	;LOOP ON ERROR SWITCH
   855
   856					;INST - IBP
   857					;PFIELD=16
   858					;SFIELD=6
   859
   860			000012			AC=12
   861						SAVEAC	(1,1)^
   862	030662	201 14 0 00 030662 		MOVEI	AC+2,.		;SAVE TEST PC
   863	030663	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
   864	030664	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   865	030665	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   866
   867	030666	205 10 0 00 100600 	G400:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
   868	030667	205 13 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR
   869	030670	133 00 0 00 000013 		IBP	,<AC+1>&17	;INCREMENT PNTR
   870	030671	312 13 0 00 000010 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   871	030672	005 13 0 00 000401 		ER5	AC+1,401	;POINTER FAILED
   872	030673	321 14 0 00 030666 		JUMPL	AC+2,G400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0033

   873					;INST-IBP
   874					;TEST ABILITY TO TRANSFER INCREMENTED
   875					;PFIELD
   876					;TEST JAM-ZERO'S
   877					;PFIELD=77
   878					;SFIELD=1,2,4,10,20,40
   879					;TEST JAM-ONE'S
   880					;PFIELD=6,14,30,60,40
   881					;SFIELD=3,6,14,30,20
   882
   883			000010			AC=10
   884						SAVEAC	(1,1)^
   885	030674	201 12 0 00 030674 		MOVEI	AC+2,.		;SAVE TEST PC
   886	030675	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
   887	030676	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   888	030677	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   889
   890			000600		SN=600
   891			000040			ZZ=40
   892			004000			YY=4000
   893
   894					G600:	REPEAT	^D6,<
   895					SN=SN+1
   896						ZZ=ZZ+ZZ
   897						YY=YY+YY
   898						MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   899						MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   900						IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   901						CAME	AC+1,<AC-2>&17	;TEST PFIELD
   902						ER5	AC+1,SN		;BIT UNDER TEST FAILED
   903						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   904					>
   905
   906			000601		SN=SN+1
   907			000100			ZZ=ZZ+ZZ
   908			010000			YY=YY+YY
   909	030700	205 06 0 00 760100 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   910	030701	205 11 0 00 770100 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   911	030702	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   912	030703	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   913	030704	005 11 0 00 000601 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   914	030705	321 12 0 00 030700 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   915
   916
   917			000602		SN=SN+1
   918			000200			ZZ=ZZ+ZZ
   919			020000			YY=YY+YY
   920	030706	205 06 0 00 750200 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   921	030707	205 11 0 00 770200 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   922	030710	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   923	030711	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   924	030712	005 11 0 00 000602 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   925	030713	321 12 0 00 030706 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   926
   927
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 4-1
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0034

   928			000603		SN=SN+1
   929			000400			ZZ=ZZ+ZZ
   930			040000			YY=YY+YY
   931	030714	205 06 0 00 730400 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   932	030715	205 11 0 00 770400 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   933	030716	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   934	030717	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   935	030720	005 11 0 00 000603 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   936	030721	321 12 0 00 030714 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   937
   938
   939			000604		SN=SN+1
   940			001000			ZZ=ZZ+ZZ
   941			100000			YY=YY+YY
   942	030722	205 06 0 00 671000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   943	030723	205 11 0 00 771000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   944	030724	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   945	030725	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   946	030726	005 11 0 00 000604 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   947	030727	321 12 0 00 030722 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   948
   949
   950			000605		SN=SN+1
   951			002000			ZZ=ZZ+ZZ
   952			200000			YY=YY+YY
   953	030730	205 06 0 00 572000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   954	030731	205 11 0 00 772000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   955	030732	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   956	030733	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   957	030734	005 11 0 00 000605 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   958	030735	321 12 0 00 030730 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   959
   960
   961			000606		SN=SN+1
   962			004000			ZZ=ZZ+ZZ
   963			400000			YY=YY+YY
   964	030736	205 06 0 00 374000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   965	030737	205 11 0 00 774000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   966	030740	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   967	030741	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   968	030742	005 11 0 00 000606 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   969	030743	321 12 0 00 030736 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   970
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 5
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0035

   971			000011			AC=11
   972						SAVEAC	(1,1)^
   973	030744	201 13 0 00 030744 		MOVEI	AC+2,.		;SAVE TEST PC
   974	030745	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
   975	030746	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   976	030747	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   977
   978									;TEST AR1(1)
   979	030750	205 07 0 00 202000 	G700:	MOVSI	AC-2,202000	;SETUP FOR COMPARISON
   980	030751	205 12 0 00 402000 		MOVSI	AC+1,402000	;SETUP PNTR WORD
   981	030752	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   982	030753	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   983	030754	005 12 0 00 000701 		ER5	AC+1,701	;POINTER FAILED TO INCREMENT CORRECTLY
   984	030755	321 13 0 00 030750 		JUMPL	AC+2,G700	;LOOP ON ERROR SWITCH
   985
   986									;TEST AR2(1)
   987	030756	205 07 0 00 303000 	G1000:	MOVSI	AC-2,303000	;SETUP FOR COMPARISON
   988	030757	205 12 0 00 603000 		MOVSI	AC+1,603000	;SETUP PNTR
   989	030760	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   990	030761	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   991	030762	005 12 0 00 001001 		ER5	AC+1,1001	;POINTER FAILED TO INCREMENT CORRECTLY
   992	030763	321 13 0 00 030756 		JUMPL	AC+2,G1000	;LOOP ON ERROR SWITCH
   993
   994	030764	205 07 0 00 141400 	G1100:	MOVSI	AC-2,141400	;SETUP FOR COMPARISON
   995	030765	205 12 0 00 301400 		MOVSI	AC+1,301400	;SETUP PNTR
   996	030766	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   997	030767	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   998	030770	005 12 0 00 001101 		ER5	AC+1,1101	;POINTER FAILED TO INCREMENT CORRECTLY
   999	030771	321 13 0 00 030764 		JUMPL	AC+2,G1100	;LOOP ON ERROR SWITCH
  1000
  1001									;TEST AR4(1)
  1002	030772	205 07 0 00 060600 	G1200:	MOVSI	AC-2,060600	;SETUP FOR COMPARISON
  1003	030773	205 12 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR
  1004	030774	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1005	030775	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
  1006	030776	005 12 0 00 001201 		ER5	AC+1,1201	;POINTER FAILED TO INCREMENT CORRECTLY
  1007	030777	321 13 0 00 030772 		JUMPL	AC+2,G1200	;LOOP ON ERROR SWITCH
  1008
  1009									;TEST AR5(1)
  1010	031000	205 07 0 00 030300 	G1300:	MOVSI	AC-2,030300	;SETUP FOR COMPARISON
  1011	031001	205 12 0 00 060300 		MOVSI	AC+1,060300	;SETUP PNTR
  1012	031002	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1013	031003	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST P FIELD
  1014	031004	005 12 0 00 001301 		ER5	AC+1,1301	;POINTER FAILED TO INCREMENT CORRECTLY
  1015	031005	321 13 0 00 031000 		JUMPL	AC+2,G1300	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 6
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0036

  1016					;INST-IBP
  1017					;PFIELD=5
  1018					;SFIELD=10
  1019
  1020			000005			AC=5
  1021						SAVEAC	(1,1)^
  1022	031006	201 07 0 00 031006 		MOVEI	AC+2,.		;SAVE TEST PC
  1023	031007	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1024	031010	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1025	031011	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1026
  1027	031012	205 03 0 00 341000 	G1400:	MOVSI	AC-2,341000	;SETUP FOR COMPARISON
  1028	031013	205 06 0 00 051000 		MOVSI	AC+1,051000	;SETUP PNTR WORD
  1029	031014	133 00 0 00 000006 		IBP	,<AC+1>&17	;INCREMENT PNPR
  1030	031015	620 06 0 00 000001 		TRZ	AC+1,1		;CREAR ADDRESS FIELD OF POINTER
  1031	031016	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST P FIELD
  1032	031017	005 06 0 00 001401 		ER5	AC+1,1401	;POINTER FAILED
  1033	031020	321 07 0 00 031012 		JUMPL	AC+2,G1400	;LOOP ON ERROR SWITCH
  1034					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 6-1
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0037

  1035					;INST - IBP
  1036					;TEST ABILITY TO TRANSFER PFIELD
  1037					;PRELIMINARY - TEST FOR PRESENCE
  1038					; OF PULSE
  1039					;PFIELD=16
  1040					;SFIELD=6
  1041
  1042			000005			AC=5
  1043						SAVEAC	(1,1)^
  1044	031021	201 07 0 00 031021 		MOVEI	AC+2,.		;SAVE TEST PC
  1045	031022	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1046	031023	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1047	031024	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1048
  1049	031025	205 03 0 00 100600 	G1500:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
  1050	031026	205 06 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR WORD
  1051	031027	133 00 0 00 000006 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1052	031030	620 06 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1053	031031	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
  1054	031032	005 06 0 00 001501 		ER5	AC+1,1501	;POINTER FAILED
  1055	031033	321 07 0 00 031025 		JUMPL	AC+2,G1500	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 7
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0038

  1056					;INST-IBP
  1057					;TEST ABILITY TO TRANSFER PFIELD
  1058					;TEST ABILITY TO SET INDIVIDUAL
  1059					;SC BITS 3-8
  1060					;PFIELD=1,2,4,10,20,40
  1061					;SFIELD=1,2,4,10,20,40
  1062
  1063			000014			AC=14
  1064						SAVEAC	(1,1)^
  1065	031034	201 16 0 00 031034 		MOVEI	AC+2,.		;SAVE TEST PC
  1066	031035	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1067	031036	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1068	031037	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1069									;TEST SC BIT 8 SET
  1070	031040	205 12 0 00 000100 	G1600:	MOVSI	AC-2,000100	;SETUP FOR COMPARISON
  1071	031041	205 15 0 00 010100 		MOVSI	AC+1,010100	;SETUP PNTR WORD
  1072	031042	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1073	031043	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1074	031044	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 8
  1075	031045	005 15 0 00 001601 		ER5	AC+1,1601	;POINTER FAILED
  1076	031046	321 16 0 00 031040 		JUMPL	AC+2,G1600	;LOOP ON ERROR SWITCH
  1077
  1078									;TEST SC BIT 7 SET
  1079	031047	205 12 0 00 000200 	G1700:	MOVSI	AC-2,000200	;SETUP FOR COMPARISON
  1080	031050	205 15 0 00 020200 		MOVSI	AC+1,020200	;SETUP PNTR WORD
  1081	031051	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1082	031052	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1083	031053	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 7
  1084	031054	005 15 0 00 001701 		ER5	AC+1,1701	;POINTER FAILED
  1085	031055	321 16 0 00 031047 		JUMPL	AC+2,G1700	;LOOP ON ERROR SWITCH
  1086
  1087									;TEST SC BIT 6 SET
  1088	031056	205 12 0 00 000400 	G2000:	MOVSI	AC-2,000400	;SETUP FOR COMPARISON
  1089	031057	205 15 0 00 040400 		MOVSI	AC+1,040400	;SETUP PNTR WORD
  1090	031060	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1091	031061	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1092	031062	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 6
  1093	031063	005 15 0 00 002001 		ER5	AC+1,2001	;POINTER FAILED
  1094	031064	321 16 0 00 031056 		JUMPL	AC+2,G2000	;LOOP ON ERROR SWITCH
  1095
  1096									;TEST SC BIT 5 SET
  1097	031065	205 12 0 00 001000 	G2100:	MOVSI	AC-2,001000	;SETUP FOR COMPARISON
  1098	031066	205 15 0 00 101000 		MOVSI	AC+1,101000	;SETUP PNTR WORD
  1099	031067	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1100	031070	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1101	031071	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 5
  1102	031072	005 15 0 00 002101 		ER5	AC+1,2101	;POINTER FAILED
  1103	031073	321 16 0 00 031065 		JUMPL	AC+2,G2100	;LOOP ON ERROR SWITCH
  1104
  1105									;TEST SC BIT 4 SET
  1106	031074	205 12 0 00 002000 	G2200:	MOVSI	AC-2,002000	;SETUP FOR COMPARISON
  1107	031075	205 15 0 00 202000 		MOVSI	AC+1,202000	;SETUP PNTR WORD
  1108	031076	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1109	031077	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1110	031100	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 4
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 7-1
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0039

  1111	031101	005 15 0 00 002201 		ER5	AC+1,2201	;POINTER FAILED
  1112	031102	321 16 0 00 031074 		JUMPL	AC+2,G2200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 8
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0040

  1113									;TEST SC BIT 3 SET
  1114	031103	205 12 0 00 004000 	G2300:	MOVSI	AC-2,004000	;SETUP FOR COMPARISON
  1115	031104	205 15 0 00 404000 		MOVSI	AC+1,404000	;SETUP PNTR WORD
  1116	031105	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1117	031106	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1118	031107	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 3
  1119	031110	005 15 0 00 002301 		ER5	AC+1,2301	;POINTER FAILED
  1120	031111	321 16 0 00 031103 		JUMPL	AC+2,G2300	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 9
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0041

  1121					;INST-IBP
  1122					;TEST ABILITY TO SET SC BITS 3,6
  1123					;PFIELD=6
  1124					;SFIELD=10
  1125					;FAILURE OF BIT 3 TO SET RESULTS IN A
  1126					;PFIELD=74
  1127					;FAILURE OF BIT 6 TO SET RESULTS IN
  1128					;A PFEILD=30
  1129					;SC BIT2 IS NOT TESTED-FAILURE TO SET
  1130					;BIT 2 RESULTS IN LOOPING
  1131
  1132			000013			AC=13
  1133						SAVEAC	(1,1)^
  1134	031112	201 15 0 00 031112 		MOVEI	AC+2,.		;SAVE TEST PC
  1135	031113	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1136	031114	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1137	031115	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1138
  1139	031116	205 11 0 00 341000 	G2400:	MOVSI	AC-2,341000	;SETUP FOR COMPARISON
  1140	031117	205 14 0 00 061000 		MOVSI	AC+1,061000	;SETUP PNTR WORD
  1141	031120	133 00 0 00 000014 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1142	031121	620 14 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1143	031122	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST SC3 (1)
  1144	031123	005 14 0 00 002401 		ER5	AC+1,2401	;POINTER FAILED
  1145	031124	321 15 0 00 031116 		JUMPL	AC+2,G2400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 10
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0042

  1146					;INST-IBP
  1147					;TEST ABILITY TO CLEAR INDIVIDUAL
  1148					;SC BITS
  1149					;PFIELD=20,10,2,1
  1150					;SFIELD=21,11,3,2
  1151					;FAILURE TO CLEAR SC BITS 4,5,7
  1152					;OR 8 RESULTS IN A PFIELD=43
  1153					;FAILURE TO CLEAR SC BITS 3 OR 6
  1154					;WILL NOT BE APPARENT
  1155
  1156			000011			AC=11
  1157						SAVEAC	(1,1)^
  1158	031125	201 13 0 00 031125 		MOVEI	AC+2,.		;SAVE TEST PC
  1159	031126	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1160	031127	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1161	031130	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1162
  1163									;TEST SC4 CLEARING
  1164	031131	205 07 0 00 232100 	G2600:	MOVSI	AC-2,232100	;SETUP FOR COMPARISON
  1165	031132	205 12 0 00 202100 		MOVSI	AC+1,202100	;SETUP PNTR WORD
  1166	031133	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1167	031134	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1168	031135	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1169	031136	005 12 0 00 002601 		ER5	AC+1,2601	;POINTER FAILED
  1170	031137	321 13 0 00 031131 		JUMPL	AC+2,G2600	;LOOP ON ERROR SWITCH
  1171
  1172									;TEST SC5 CLEARING
  1173	031140	205 07 0 00 331100 	G2700:	MOVSI	AC-2,331100	;SETUP FOR COMPARISON
  1174	031141	205 12 0 00 101100 		MOVSI	AC+1,101100	;SETUP PNTR WORD
  1175	031142	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1176	031143	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1177	031144	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=45
  1178	031145	005 12 0 00 002701 		ER5	AC+1,2701	;POINTER FAILED
  1179	031146	321 13 0 00 031140 		JUMPL	AC+2,G2700	;LOOP ON ERROR SWITCH
  1180
  1181									;TEST SC 7 CLEARING
  1182	031147	205 07 0 00 410300 	G3000:	MOVSI	AC-2,410300	;SETUP FOR COMPARISON
  1183	031150	205 12 0 00 020300 		MOVSI	AC+1,020300	;SETUP PNTR
  1184	031151	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1185	031152	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1186	031153	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1187	031154	005 12 0 00 003001 		ER5	AC+1,3001	;POINTER FAILED
  1188	031155	321 13 0 00 031147 		JUMPL	AC+2,G3000	;LOOP ON ERROR SWITCH
  1189
  1190									;TEST SC8 CLEARING
  1191	031156	205 07 0 00 420200 	G3100:	MOVSI	AC-2,420200	;SETUP FOR COMPARISON
  1192	031157	205 12 0 00 010200 		MOVSI	AC+1,010200	;SETUP PNTR
  1193	031160	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1194	031161	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1195	031162	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1196	031163	005 12 0 00 003101 		ER5	AC+1,3101	;POINTER FAILED
  1197	031164	321 13 0 00 031156 		JUMPL	AC+2,G3100	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 11
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0043

  1198					;INST-IBP
  1199					;TEST ABILITY TO INCREMENT ADDRESS
  1200					;FIELD OF PNTR WORD
  1201					;PFIELD=6
  1202					;SFIELD=10
  1203					;LOSS OF THE SFIELD AND AN ADDRESS=1
  1204
  1205			000012			AC=12
  1206						SAVEAC	(1,1)^
  1207	031165	201 14 0 00 031165 		MOVEI	AC+2,.		;SAVE TEST PC
  1208	031166	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  1209	031167	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1210	031170	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1211
  1212	031171	205 10 0 00 341000 	G3200:	MOVSI	AC-2,341000	;SETUP AC-2
  1213	031172	340 10 0 00 031173 		AOJ	AC-2,.+1	;FOR COMPARISON
  1214	031173	205 13 0 00 061000 		MOVSI	AC+1,061000	;SETUP PNTR WORD
  1215	031174	133 00 0 00 000013 		IBP	,<AC+1>&17	;INC PNTR WORD
  1216	031175	312 13 0 00 000010 		CAME	AC+1,<AC-2>&17	;TEST FOR ERROR PNTR
  1217	031176	005 13 0 00 003201 		ER5	AC+1,3201	;POINTER FAILED
  1218	031177	321 14 0 00 031171 		JUMPL	AC+2,G3200	;LOOP ON ERROR SWITCH
  1219
  1220					;INST-IBP
  1221					;TEST ABILITY TO INCREMENT
  1222					;ADDRESS FIELD OF PNTR WORD
  1223					;PFIELD=6
  1224					;SFIELD=10
  1225
  1226			000011			AC=11
  1227						SAVEAC	(1,1)^
  1228	031200	201 13 0 00 031200 		MOVEI	AC+2,.		;SAVE TEST PC
  1229	031201	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1230	031202	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1231	031203	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1232
  1233	031204	505 07 0 00 341000 	G3300:	HRLI	AC-2,341000	;SETUP AC-2 FOR
  1234	031205	541 07 0 00 000012 		HRRI	AC-2,<AC+1>&17	;COMPARISON
  1235	031206	505 12 0 00 061000 		HRLI	AC+1,061000	;SETUP BYTE
  1236	031207	541 12 0 00 000011 		HRRI	AC+1,AC&17		;PNTR WORD
  1237	031210	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1238	031211	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST ADDRESS
  1239	031212	005 12 0 00 003301 		ER5	AC+1,3301	;POINTER FAILED
  1240	031213	321 13 0 00 031204 		JUMPL	AC+2,G3300	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 12
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0044

  1241					;INST-LDB
  1242					;TEST ABILITY TO FCE (2ND PART)
  1243					;FAILURE TO FCE RESULTS IN LOSS
  1244					;OF DATA WORD
  1245					;PFIELD=0
  1246					;SFIELD=6
  1247					;BYTE WORD=0,777777
  1248					;DEST AC=0
  1249
  1250			000014			AC=14
  1251						SAVEAC	(1,1)^
  1252	031214	201 16 0 00 031214 		MOVEI	AC+2,.		;SAVE TEST PC
  1253	031215	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1254	031216	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1255	031217	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1256
  1257	031220	505 15 0 00 000600 	G3400:	HRLI	AC+1,000600	;SETUP BYTE
  1258	031221	541 15 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1259	031222	201 05 0 00 777777 		MOVEI	5,-1		;SETUP BYTE WORD
  1260	031223	400 14 0 00 000000 		SETZ	AC,		;CLEAR DEST AC
  1261	031224	135 14 0 00 000015 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1262	031225	302 14 0 00 000077 		CAIE	AC,77		;TEST DEST AC=0,,77
  1263	031226	003 14 0 00 003401 		ER3	AC,3401		;AC FAILED
  1264	031227	321 16 0 00 031220 		JUMPL	AC+2,G3400	;LOOP ON ERROR SWITCH
  1265
  1266					;INST-LDB
  1267					;P FIELD =14
  1268					;S FIELD =6
  1269					;BYTE WORD =-1
  1270
  1271			000011			AC=11
  1272						SAVEAC	(1,1)^
  1273	031230	201 13 0 00 031230 		MOVEI	AC+2,.		;SAVE TEST PC
  1274	031231	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1275	031232	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1276	031233	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1277
  1278	031234	551 07 0 00 000077 	G3500:	HRRZI	AC-2,77		;SETUP FOR COMPARISON
  1279	031235	205 12 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR
  1280	031236	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1281	031237	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1282	031240	312 11 0 00 000007 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,77
  1283	031241	003 11 0 00 003501 		ER3	AC,3501		;AC FAILED
  1284	031242	321 13 0 00 031234 		JUMPL	AC+2,G3500	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 13
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0045

  1285					;INST-LDB
  1286					;PFIELD=14
  1287					;SFIELD=6
  1288					;BYTE WORD = 777777
  1289
  1290			000006			AC=6
  1291						SAVEAC	(1,1)^
  1292	031243	201 10 0 00 031243 		MOVEI	AC+2,.		;SAVE TEST PC
  1293	031244	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  1294	031245	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1295	031246	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1296
  1297	031247	205 07 0 00 140600 	G3600:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1298	031250	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD (AC0)
  1299	031251	135 06 0 00 000007 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1300	031252	302 06 0 00 000077 		CAIE	AC,77		;TEST DEST AC
  1301	031253	003 06 0 00 003601 		ER3	AC,3601		;AC FAILED
  1302	031254	321 10 0 00 031247 		JUMPL	AC+2,G3600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 14
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0046

  1303					;INST-LDB
  1304					;TEST ABILITY TO TRANSFER 2'S COMP
  1305					;SFIELD
  1306					;TEST ABILITY TO SET INDIVIDUAL
  1307					;BITS OF SC
  1308					;PFIELD=0
  1309					;SFIELD=40,20,10,4,2,1
  1310					;BYTE WORD=-1
  1311
  1312			000005			AC=5
  1313						SAVEAC	(1,1)^
  1314	031255	201 07 0 00 031255 		MOVEI	AC+2,.		;SAVE TEST PC
  1315	031256	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1316	031257	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1317	031260	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1318									;TEST SC 1,2,3 SET
  1319	031261	525 03 0 00 037777 	G3700:	HRLOI	AC-2,37777	;SETUP FOR COMPARISON
  1320	031262	205 06 0 00 004000 		MOVSI	AC+1,4000	;SETUP PNTR WORD
  1321	031263	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1322	031264	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1323	031265	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=37777,,777777
  1324	031266	003 05 0 00 003701 		ER3	AC,3701		;AC FAILED
  1325	031267	321 07 0 00 031261 		JUMPL	AC+2,G3700	;LOOP ON ERROR SWITCH
  1326
  1327									;TEST SC4 SET
  1328	031270	551 03 0 00 177777 	G4000:	HRRZI	AC-2,177777	;SETUP FOR COMPARISON
  1329	031271	205 06 0 00 002000 		MOVSI	AC+1,2000	;SETUP PNTR WORD
  1330	031272	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1331	031273	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1332	031274	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,177777
  1333	031275	003 05 0 00 004001 		ER3	AC,4001		;AC FAILED
  1334	031276	321 07 0 00 031270 		JUMPL	AC+2,G4000	;LOOP ON ERROR SWITCH
  1335
  1336									;TEST SC5 SET
  1337	031277	201 03 0 00 000377 	G4100:	MOVEI	AC-2,377	;SETUP FOR COMPARISON
  1338	031300	205 06 0 00 001000 		MOVSI	AC+1,1000	;SETUP PNTR WORD
  1339	031301	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1340	031302	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1341	031303	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE = 0,,377
  1342	031304	003 05 0 00 004101 		ER3	AC,4101		;AC FAILED
  1343	031305	321 07 0 00 031277 		JUMPL	AC+2,G4100	;LOOP ON ERROR SWITCH
  1344
  1345									;TEST SC6 SET
  1346	031306	201 03 0 00 000017 	G4200:	MOVEI	AC-2,17	;SETUP FOR COMPARISON
  1347	031307	205 06 0 00 000400 		MOVSI	AC+1,400	;SETUP PNTR WORD
  1348	031310	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1349	031311	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1350	031312	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,17
  1351	031313	003 05 0 00 004201 		ER3	AC,4201		;AC FAILED
  1352	031314	321 07 0 00 031306 		JUMPL	AC+2,G4200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 15
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0047

  1353									;TEST SC 7 SET
  1354	031315	201 03 0 00 000003 	G4300:	MOVEI	AC-2,3		;SETUP FOR COMPARISON
  1355	031316	205 06 0 00 000200 		MOVSI	AC+1,200	;SETUP PNTR WORD
  1356	031317	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1357	031320	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1358	031321	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,3
  1359	031322	003 05 0 00 004301 		ER3	AC,4301		;AC FAILED
  1360	031323	321 07 0 00 031315 		JUMPL	AC+2,G4300	;LOOP ON ERROR SWITCH
  1361
  1362									;TEST SC 8 SET
  1363	031324	201 03 0 00 000001 	G4400:	MOVEI	AC-2,1		;SETUP FOR COMPARISON
  1364	031325	205 06 0 00 000100 		MOVSI	AC+1,100	;SETUP PNTR WORD
  1365	031326	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1366	031327	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1367	031330	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,1
  1368	031331	003 05 0 00 004401 		ER3	AC,4401		;AC FAILED
  1369	031332	321 07 0 00 031324 		JUMPL	AC+2,G4400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 16
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0048

  1370					;INST-LDB
  1371					;PFIELD=6
  1372					;SFIELD=14
  1373					;BYTE WORD=000000007700
  1374
  1375			000014			AC=14
  1376						SAVEAC	(1,1)^
  1377	031333	201 16 0 00 031333 		MOVEI	AC+2,.		;SAVE TEST PC
  1378	031334	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1379	031335	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1380	031336	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1381
  1382	031337	201 12 0 00 000077 	G4600:	MOVEI	AC-2,77		;SETUP FOR COMPARISON
  1383	031340	205 15 0 00 061400 		MOVSI	AC+1,061400	;SETUP PNTR WORD
  1384	031341	201 00 0 00 007700 		MOVEI	,7700		;SETUP BYTE WORD
  1385	031342	135 14 0 00 000015 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1386	031343	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;TEST BYTE =77
  1387	031344	003 14 0 00 004601 		ER3	AC,4601		;AC FAILED
  1388	031345	321 16 0 00 031337 		JUMPL	AC+2,G4600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 17
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0049

  1389					;INST-LDB
  1390					;PFIELD=6
  1391					;SFIELD=6
  1392					;BYTEWORD=-1
  1393
  1394			000013			AC=13
  1395						SAVEAC	(1,1)^
  1396	031346	201 15 0 00 031346 		MOVEI	AC+2,.		;SAVE TEST PC
  1397	031347	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1398	031350	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1399	031351	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1400
  1401	031352	201 11 0 00 000077 	G4700:	MOVEI	AC-2,77		;SETUP FOR COMPARISON
  1402	031353	205 14 0 00 060600 		MOVSI	AC+1,060600	;SETUP PNTR
  1403	031354	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1404	031355	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1405	031356	312 13 0 00 000011 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,77
  1406	031357	003 13 0 00 004701 		ER3	AC,4701		;AC FAILED
  1407	031360	321 15 0 00 031352 		JUMPL	AC+2,G4700	;LOOP ON ERROR SWITCH
  1408
  1409					;INST-LDB
  1410					;TEST IR 134-7
  1411					;PFIELD=14
  1412					;SFIELD=6
  1413					;BYTE WORD=-1
  1414					;AN ERROR WILL OCCUR IF PC IS INCREMENTED
  1415					;TWICE DURING EXECUTION OF LDB
  1416
  1417			000010			AC=10
  1418						SAVEAC	(1,1)^
  1419	031361	201 12 0 00 031361 		MOVEI	AC+2,.		;SAVE TEST PC
  1420	031362	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1421	031363	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1422	031364	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1423
  1424	031365	205 11 0 00 140600 	G5000:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1425	031366	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1426	031367	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1427	031370	254 00 0 00 031372 		JRST	,.+2		;PC+1 INH ASSERTED
  1428	031371	003 10 0 00 005001 		ER3	AC,5001		;AC FAILED
  1429	031372	321 12 0 00 031365 		JUMPL	AC+2,G5000	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 18
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0050

  1430					;INST-LDB
  1431					;TEST ABILITY TO CLEAR BYF6
  1432					;PFIELD=14
  1433					;SFIELD=6
  1434					;BYTE WORD=-1
  1435					;AN ERROR WILL OCCUR IF BYF6(1) WHEN STORED
  1436					;BY JSP
  1437
  1438			000007			AC=7
  1439						SAVEAC	(1,1)^
  1440	031373	201 11 0 00 031373 		MOVEI	AC+2,.		;SAVE TEST PC
  1441	031374	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1442	031375	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1443	031376	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1444
  1445	031377	205 10 0 00 140600 	G5100:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1446	031400	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1447	031401	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1448	031402	265 07 0 00 031403 		JSP	AC,.+1		;STORE FLAGS
  1449	031403	603 07 0 00 020000 		TLNE	AC,020000	;TEST BIT 4
  1450	031404	003 07 0 00 005101 		ER3	AC,5101		;AC FAILED
  1451	031405	321 11 0 00 031377 		JUMPL	AC+2,G5100	;LOOP ON ERROR SWITCH
  1452
  1453					;INST-LDB
  1454					;TEST ABILITY TO DEFER (INDIRECT) BYTE
  1455					;PNTR ADDRESS
  1456					;FAILURE TO INDIRECTLY ADDRESS BYTE
  1457					;PNTR RESULTS IN AN ERROR BYTE
  1458					;PFIELD=0
  1459					;SFIELD=6
  1460					;ERROR BYTE=14
  1461					;CORRECT BYTE=44
  1462					;AN ERROR WILL OCCUR IF DEST AC=14
  1463					;FOLLOWING LOAD BYTE INDIRECTLY ADDRESSED
  1464
  1465			000006			AC=6
  1466						SAVEAC	(1,1)^
  1467	031406	201 10 0 00 031406 		MOVEI	AC+2,.		;SAVE TEST PC
  1468	031407	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  1469	031410	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1470	031411	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1471
  1472	031412	205 07 0 00 000600 	G5200:	MOVSI	AC+1,600	;SETUP PNTR WORD
  1473	031413	505 00 0 00 000600 		HRLI	,600		;SETUP INDIRECT ADDRESS
  1474	031414	541 00 0 00 000014 		HRRI	,14		;PNTR WORD (AC0)
  1475	031415	201 14 0 00 000044 		MOVEI	AC+6,44		;SETUP CORR BYTE WORD
  1476	031416	135 06 1 00 000007 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY
  1477	031417	302 06 0 00 000044 		CAIE	AC,44		;TEST FOR CORR BYTE
  1478	031420	003 06 0 00 005201 		ER3	AC,5201		;INDIRECT ADDRESSING FAILED
  1479	031421	321 10 0 00 031412 		JUMPL	AC+2,G5200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 19
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0051

  1480					;INST-LDB
  1481					;TEST IR RT CLR AT6
  1482					;FURTHER TEST OF IR 134-7
  1483					;TEST ABILITY TO CLEAR IR BITS 13-17 FOLLOWING
  1484					;DEFERRING OR INDEXING OF BYTE PNTR ADDR
  1485					;PFIELD=6
  1486					;SFIELD=14
  1487					;CORR BYTE WORD=222222
  1488					;DEST AC=4
  1489					;AN ERROR WILL OCCUR IF DEST AC
  1490					;EQUALS 5555 FOLLOWING LOAD BYTE
  1491
  1492			000007			AC=7
  1493						SAVEAC	(1,1)^
  1494	031422	201 11 0 00 031422 		MOVEI	AC+2,.		;SAVE TEST PC
  1495	031423	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1496	031424	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1497	031425	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1498
  1499	031426	205 14 0 00 061400 	G5300:	MOVSI	AC+5,061400	;SETUP INDEXED PNTR WORD
  1500	031427	201 07 0 00 000004 		MOVEI	AC,4		;SETUP INDEX AC
  1501	031430	201 00 0 00 222222 		MOVEI	,222222		;SETUP CORR BYTE WORD
  1502	031431	201 04 0 00 555555 		MOVEI	AC-3,555555	;SETUP CORR BYTE WORD
  1503	031432	135 07 0 07 000010 		LDB	AC,<AC+1>&17(AC)	;LOAD BYTE INDEXED
  1504	031433	302 07 0 00 002222 		CAIE	AC,2222		;TEST FOR CORR BYTE
  1505	031434	003 07 0 00 005301 		ER3	AC,5301		;AC FAILED
  1506	031435	321 11 0 00 031426 		JUMPL	AC+2,G5300	;LOOP ON ERROR SWITCH
  1507
  1508					;INST-LDB
  1509					;FURTHER TEST OF IR 134-7
  1510					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1511					;P FIELD=0
  1512					;S FIELD=6
  1513					;FAILURE RESULTS IN IR14-17=0,
  1514					;NO INDEX, ERROR BYTE=55
  1515
  1516			000010			AC=10
  1517						SAVEAC	(1,1)^
  1518	031436	201 12 0 00 031436 		MOVEI	AC+2,.		;SAVE TEST PC
  1519	031437	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1520	031440	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1521	031441	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1522
  1523	031442	505 11 0 00 000607 	G5400:	HRLI	AC+1,000607	;SETUP BYTE
  1524	031443	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1525	031444	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1526	031445	201 05 0 00 000055 		MOVEI	5,55		;SETUP NON INDEX BYTE WORD
  1527	031446	201 15 0 00 000077 		MOVEI	15,77		;SETUP INDEXED BYTE WORD
  1528	031447	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1529	031450	302 10 0 00 000077 		CAIE	AC,77		;TEST BYTE=0,,77
  1530	031451	003 10 0 00 005401 		ER3	AC,5401		;AC FAILED
  1531	031452	321 12 0 00 031442 		JUMPL	AC+2,G5400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 20
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0052

  1532					;INST-LDB
  1533					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1534					;P FIELD=0
  1535					;S FIELD=6
  1536					;FAILURE RESULTS IN A BYTE WORD
  1537					;ADDRESS EQUAL TO CONTENTS OF 
  1538					;INDEX AC(=AC)
  1539
  1540			000010			AC=10
  1541						SAVEAC	(1,1)^
  1542	031453	201 12 0 00 031453 		MOVEI	AC+2,.		;SAVE TEST PC
  1543	031454	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1544	031455	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1545	031456	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1546
  1547	031457	505 11 0 00 000607 	G5500:	HRLI	AC+1,000607	;SETUP BYTE
  1548	031460	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1549	031461	403 10 0 00 000005 		SETZB	AC,5		;CLEAR DEST AC'S
  1550	031462	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1551	031463	201 15 0 00 000077 		MOVEI	15,77		;SETUP BYTE WORD
  1552	031464	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1553	031465	302 10 0 00 000077 		CAIE	AC,77		;TEST FOR BYTE
  1554	031466	003 10 0 00 005501 		ER3	AC,5501		;AC FAILED
  1555	031467	321 12 0 00 031457 		JUMPL	AC+2,G5500	;LOOP ON ERROR SWITCH
  1556
  1557					;INST-LDB
  1558					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1559					;P FIELD=0
  1560					;S FIELD=6
  1561					;FAILURE RESULTS IN AN INDEX AC EQUAL
  1562					;TO INDEX AC+AC(AC7+AC10=AC17)
  1563
  1564			000010			AC=10
  1565						SAVEAC	(1,1)^
  1566	031470	201 12 0 00 031470 		MOVEI	AC+2,.		;SAVE TEST PC
  1567	031471	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1568	031472	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1569	031473	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1570
  1571	031474	505 11 0 00 000607 	G5600:	HRLI	AC+1,000607	;SETUP BYTE
  1572	031475	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1573	031476	201 06 0 00 000010 		MOVEI	6,10		;SETUP INDEX AC
  1574	031477	201 15 0 00 000015 		MOVEI	15,15		;SETUP BYTE WORD
  1575	031500	201 16 0 00 000005 		MOVEI	16,5		;SETUP ERROR INDEX AC
  1576	031501	201 14 0 00 000014 		MOVEI	14,14		;SETUP ERROR BYTE WORD
  1577	031502	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1578	031503	302 10 0 00 000015 		CAIE	AC,15		;TEST BYTE=15
  1579	031504	003 10 0 00 005601 		ER3	AC,5601		;AC FAILED
  1580	031505	321 12 0 00 031474 		JUMPL	AC+2,G5600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 21
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0053

  1581					;INST-LDB
  1582					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1583					;P FIELD=0
  1584					;S FIELD=6
  1585					;FAILURE RESULTS IN INDEXING BY C(AC0)
  1586
  1587			000010			AC=10
  1588						SAVEAC	(1,1)^
  1589	031506	201 12 0 00 031506 		MOVEI	AC+2,.		;SAVE TEST PC
  1590	031507	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1591	031510	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1592	031511	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1593
  1594	031512	505 11 0 00 000607 	G5700:	HRLI	AC+1,000607	;SETUP BYTE
  1595	031513	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1596	031514	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1597	031515	201 15 0 00 000015 		MOVEI	15,15		;SETUP BYTE WORD
  1598	031516	201 00 0 00 000007 		MOVEI	,7		;SETUP ERROR INDEX AC
  1599	031517	201 14 0 00 000033 		MOVEI	14,33		;SETUP ERROR BYTE WORD
  1600	031520	135 10 0 00 000011 		LDB	AC,AC+1		;LOAD BYTE
  1601	031521	302 10 0 00 000015 		CAIE	AC,15		;TEST BYTE=0,,15
  1602	031522	003 10 0 00 005701 		ER3	AC,5701		;AC FAILED
  1603	031523	321 12 0 00 031512 		JUMPL	AC+2,G5700	;LOOP ON ERROR SWITCH
  1604
  1605					;INST-ILDB
  1606					;TEST ABILITY TO ASSERT BYTE PTRINC
  1607					;P FIELD=16
  1608					;S FIELD=6
  1609					;FAILURE TO ASSERT MAY RESULT IN A HALT
  1610					;AT ET0
  1611					;AN ERROR WILL OCCUR IF PNTR WORD
  1612					;EQUALS ORIGINAL FOLLOWING ILDB
  1613
  1614			000005			AC=5
  1615						SAVEAC	(1,1)^
  1616	031524	201 07 0 00 031524 		MOVEI	AC+2,.		;SAVE TEST PC
  1617	031525	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1618	031526	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1619	031527	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1620
  1621	031530	205 03 0 00 100600 	G6000:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
  1622	031531	205 06 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR WORD
  1623	031532	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1624	031533	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST PNTR=ORIGINAL
  1625	031534	004 06 0 00 006001 		ER4	AC+1,6001	;PNTR FAILED TO INCREMENT
  1626	031535	321 07 0 00 031530 		JUMPL	AC+2,G6000	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 22
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0054

  1627
  1628					;INST-ILDB
  1629					;TEST LB BYTE LOAD
  1630					;TEST BYF5 SET
  1631					;P FIELD=22
  1632					;S FIELD=22
  1633					;BYTE WORD=000000777777
  1634					;FAILURE RESULTS IN A BYTE EQUAL
  1635					;TO BYTE WORD.
  1636
  1637			000014			AC=14
  1638						SAVEAC	(1,1)^
  1639	031536	201 16 0 00 031536 		MOVEI	AC+2,.		;SAVE TEST PC
  1640	031537	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1641	031540	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1642	031541	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1643
  1644	031542	205 12 0 00 002200 	G6100:	MOVSI	AC-2,002200	;SETUP FOR COMPARISON
  1645	031543	205 15 0 00 222200 		MOVSI	AC+1,222200	;SETUP PNTR WORD
  1646	031544	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD
  1647	031545	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1648	031546	312 00 0 00 000014 		CAME	,AC		;TEST BYTE=000000777777
  1649	031547	012 00 0 00 006101 		ER12	,6101		;BYTE WORD FAILED
  1650	031550	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST PNTR WORD
  1651	031551	005 15 0 00 006101 		ER5	AC+1,6101	;POINTER FAILED
  1652	031552	321 16 0 00 031542 		JUMPL	AC+2,G6100	;LOOP ON ERROR SWITCH
  1653
  1654					;INST-ILDB
  1655					;P FIELD=22
  1656					;S FIELD=6
  1657					;BYTE WORD=0000007700000
  1658					;FAILURE RESULTS IN A BYTE
  1659					;=0
  1660
  1661			000013			AC=13
  1662						SAVEAC	(1,1)^
  1663	031553	201 15 0 00 031553 		MOVEI	AC+2,.		;SAVE TEST PC
  1664	031554	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1665	031555	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1666	031556	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1667
  1668	031557	205 11 0 00 140600 	G6200:	MOVSI	AC-2,140600	;SETUP FOR COMPARISON
  1669	031560	205 14 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1670	031561	201 00 0 00 770000 		MOVEI	,770000		;SETUP BYTE WORD (AC0)
  1671	031562	134 13 0 00 000014 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1672	031563	302 13 0 00 000077 		CAIE	AC,77		;TEST BYTE
  1673	031564	003 13 0 00 006201 		ER3	AC,6201		;AC FAILED
  1674	031565	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST PNTR WORD
  1675	031566	005 14 0 00 006201 		ER5	AC+1,6201	;POINTER FAILED
  1676	031567	321 15 0 00 031557 		JUMPL	AC+2,G6200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 23
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0055

  1677
  1678					;INST-DPB
  1679					;TEST ABILITY TO ASSERT BYF5 SET
  1680					;P FIELD
  1681					;P=14
  1682					;S=6
  1683					;BYTE WORD=000000000077
  1684					;DEST WORD=000000000000
  1685
  1686			000012			AC=12
  1687						SAVEAC	(1,1)^
  1688	031570	201 14 0 00 031570 		MOVEI	AC+2,.		;SAVE TEST PC
  1689	031571	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  1690	031572	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1691	031573	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1692
  1693	031574	201 10 0 00 770000 	G6300:	MOVEI	AC-2,770000	;SETUP FOR COMPARISON
  1694	031575	205 13 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1695	031576	201 12 0 00 000077 		MOVEI	AC,77		;SETUP BYTE
  1696	031577	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1697	031600	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1698	031601	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST=0,,770000
  1699	031602	012 00 0 00 006301 		ER12	,6301		;BYTE W0RD FAILED
  1700	031603	321 14 0 00 031574 		JUMPL	AC+2,G6300	;LOOP ON ERROR SWITCH
  1701
  1702					;INST-DPB
  1703					;TEST ABILITY TO ASSERT DPBYTE DEP
  1704					;P FIELD=14
  1705					;S FIELD=6
  1706					;BYTE WORD=55
  1707					;DEST WORD=-1
  1708					;FAILURE OF MQ TO SHIFT RESULTS IN A
  1709					;DEPOSIT BYTE=777777777700
  1710
  1711			000007			AC=7
  1712						SAVEAC	(1,1)^
  1713	031604	201 11 0 00 031604 		MOVEI	AC+2,.		;SAVE TEST PC
  1714	031605	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1715	031606	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1716	031607	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1717
  1718	031610	561 05 0 00 557777 	G6400:	HRROI	AC-2,557777	;SETUP AC-2 FOR COMPARISON
  1719	031611	205 10 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1720	031612	201 07 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1721	031613	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1722	031614	137 07 0 00 000010 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1723	031615	312 00 0 00 000005 		CAME	,<AC-2>&17	;TEST DEST=-1,,557777
  1724	031616	012 00 0 00 006401 		ER12	,6401		;BYTE WORD FAILED
  1725	031617	321 11 0 00 031610 		JUMPL	AC+2,G6400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 25
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0056

  1726					;INST-DPB
  1727					;TEST ABILITY TO AND MASK, BYTE
  1728					;P FIELD=14
  1729					;S FIELD=6
  1730					;BYTE WORD=5555
  1731					;DEST WORD=0
  1732					;FAILURE RESULTS IN A DEPOSIT
  1733					;BYTE=000055550000
  1734
  1735			000005			AC=5
  1736						SAVEAC	(1,1)^
  1737	031620	201 07 0 00 031620 		MOVEI	AC+2,.		;SAVE TEST PC
  1738	031621	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1739	031622	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1740	031623	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1741
  1742	031624	551 03 0 00 550000 	G7000:	HRRZI	AC-2,550000	;SETUP AC-2 FOR COMPARISON
  1743	031625	541 03 0 00 550000 		HRRI	AC-2,550000	;FOR COMPARISON
  1744	031626	205 06 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1745	031627	201 05 0 00 005555 		MOVEI	AC,5555		;SETUP BYTE WORD
  1746	031630	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1747	031631	137 05 0 00 000006 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1748	031632	312 00 0 00 000003 		CAME	,<AC-2>&17	;TEST DEST WORD=0,,550000
  1749	031633	012 00 0 00 007001 		ER12	,7001		;BYTE WORD FAILED
  1750	031634	321 07 0 00 031624 		JUMPL	AC+2,G7000	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 26
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0057

  1751
  1752					;INST-DPB
  1753					;P FIELD = 6
  1754					;S FIELD = 14
  1755					;BYTE WORD=55
  1756					;DEST WORD = -1
  1757					;FAILURE OF ANY ONE RESULTS IN A 
  1758					;BYTE = 777777 000077
  1759
  1760			000014			AC=14
  1761						SAVEAC	(1,1)^
  1762	031635	201 16 0 00 031635 		MOVEI	AC+2,.		;SAVE TEST PC
  1763	031636	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1764	031637	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1765	031640	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1766
  1767	031641	561 12 0 00 005577 	G7100:	HRROI	AC-2,5577		;SETUP FOR COMPARISON
  1768	031642	205 15 0 00 061400 		MOVSI	AC+1,061400	;SETUP PNTR WORD
  1769	031643	201 14 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1770	031644	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1771	031645	137 14 0 00 000015 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1772	031646	312 00 0 00 000012 		CAME	,<AC-2>&17	;TEST BYTE=777777 005577
  1773	031647	012 00 0 00 007101 		ER12	,7101		;BYTE WORD FAILED
  1774	031650	321 16 0 00 031641 		JUMPL	AC+2,G7100	;LOOP ON ERROR SWITCH
  1775
  1776					;INST-DPB
  1777					;P FIELD=14
  1778					;S FIELD=6
  1779					;BYTE WORD=55
  1780					;DEST WORD=0
  1781					;FAILURE RESULTS IN A DEPOSIT
  1782					;BYTE=777777557777
  1783
  1784			000013			AC=13
  1785						SAVEAC	(1,1)^
  1786	031651	201 15 0 00 031651 		MOVEI	AC+2,.		;SAVE TEST PC
  1787	031652	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1788	031653	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1789	031654	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1790
  1791	031655	551 11 0 00 550000 	G7200:	HRRZI	AC-2,550000	;SETUP FOR COMPARISON
  1792	031656	205 14 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1793	031657	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1794	031660	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1795	031661	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1796	031662	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD=0,,550000
  1797	031663	012 00 0 00 007201 		ER12	,7201		;BYTE WORD FAILED
  1798	031664	321 15 0 00 031655 		JUMPL	AC+2,G7200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 27
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0058

  1799					;INST-DBP
  1800					;P FIELD=22
  1801					;S FIELD=6
  1802					;BYTE WORD=5555
  1803					;DEST WORD=-1
  1804					;FAILURE RESULTS IN A DEPOSIT
  1805					;BYTE=005455777777
  1806
  1807			000011			AC=11
  1808						SAVEAC	(1,1)^
  1809	031665	201 13 0 00 031665 		MOVEI	AC+2,.		;SAVE TEST PC
  1810	031666	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1811	031667	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1812	031670	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1813
  1814	031671	525 07 0 00 777755 	G7400:	HRLOI	AC-2,777755	;SETUP FOR COMPARISON
  1815	031672	205 12 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1816	031673	201 11 0 00 005555 		MOVEI	AC,5555		;SETUP BYTE WORD
  1817	031674	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1818	031675	137 11 0 00 000012 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1819	031676	312 00 0 00 000007 		CAME	,<AC-2>&17	;TEST DEST WORD=777755,,-1
  1820	031677	012 00 0 00 007401 		ER12	,7401		;BYTE WORD FAILED
  1821	031700	321 13 0 00 031671 		JUMPL	AC+2,G7400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 28
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0059

  1822					;INST-DPB
  1823					;TEST ABILITY TO CLEAR BYF6
  1824					;P FIELD=14
  1825					;S FIELD=6
  1826					;BYTE WORD=55
  1827					;DEST WORD=0
  1828					;AN ERROR WILL OCCUR IF BYF6(1) WHEN
  1829					;STORED BY JSP
  1830
  1831			000007			AC=7
  1832						SAVEAC	(1,1)^
  1833	031701	201 11 0 00 031701 		MOVEI	AC+2,.		;SAVE TEST PC
  1834	031702	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1835	031703	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1836	031704	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1837
  1838	031705	205 10 0 00 140600 	G7600:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1839	031706	201 07 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1840	031707	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1841	031710	137 07 0 00 000010 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  1842	031711	265 07 0 00 031712 		JSP	AC,.+1		;STORE FLAGS
  1843	031712	603 07 0 00 020000 		TLNE	AC,020000	;TEST BIT 4
  1844	031713	013 07 0 00 007601 		ER13	AC,7601		;BYF6 FAILED TO CLEAR
  1845	031714	321 11 0 00 031705 		JUMPL	AC+2,G7600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 29
DAKAMM	MAC	20-JAN-77 11:34		PART IA - BYTE MANIPULATION                                                        SEQ 0060

  1846
  1847					;INST-IDPB
  1848					;TEST ABILITY TO ASSERT BYTE PTRINC
  1849					;TEST ABILITY TO ASSERT DB BYTE DEP
  1850					;FAILURE TO ASSERT BYTE PTR INC
  1851					;MAY CAUSE A HALT AT ET0
  1852					;FAILURE TO ASSERT DB BYTE DEP PREVENTS
  1853					;ARMQSHLT SCT3 (2ND PART)
  1854					;P FIELD=22
  1855					;S FIELD=6
  1856					;DEST WORD=0
  1857					;BYTE WORD=77
  1858					;AN ERROR WILL OCCUR IF BYTE PNTR
  1859					;WORD EQUALS ORIGINAL
  1860					;AN ERROR WILL OCCUR IF DEST WORD
  1861					;EQUALS BYTE WORD
  1862
  1863			000005			AC=5
  1864						SAVEAC	(1,1)^
  1865	031715	201 07 0 00 031715 		MOVEI	AC+2,.		;SAVE TEST PC
  1866	031716	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1867	031717	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1868	031720	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1869
  1870	031721	205 03 0 00 140600 	G7700:	MOVSI	AC-2,140600	;SETUP FOR COMPARISON
  1871	031722	205 06 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1872	031723	201 05 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  1873	031724	400 00 0 00 000000 		SETZ			;SETUP DEST WORD (AC0)
  1874	031725	136 05 0 00 000006 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  1875	031726	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST FOR INCREMENTED PNTR
  1876	031727	005 06 0 00 007701 		ER5	AC+1,7701	;BYTE PTR INC FAILED
  1877	031730	302 00 0 00 770000 		CAIE	,770000		;TEST DEST WORD
  1878	031731	012 00 0 00 007701 		ER12	,7701		;DB BYTE DEP FAILED
  1879	031732	321 07 0 00 031721 		JUMPL	AC+2,G7700	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 30
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0061

  1880					SUBTTL	PART IB-GENERAL BYTE TEST
  1881
  1882					;PART IA- GENERAL BYTE TEST
  1883
  1884					;INST-IBP
  1885					;DECREASING P FIELD
  1886					;P FIELD=22,20,16,14,12
  1887					;S FIELD=6
  1888					;RESULTANT P FIELDS=14,12,10,6,4
  1889					;AN ERROR WILL OCCUR ON AN
  1890					;INCORRECT INCREMENTED PNTR WORD
  1891
  1892			000005			AC=5
  1893						SAVEAC	(1,1)^
  1894	031733	201 07 0 00 031733 		MOVEI	AC+2,.		;SAVE TEST PC
  1895	031734	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1896	031735	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1897	031736	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1898
  1899			010000		SN=10000
  1900			160600			XX=160600
  1901			240600			ZZ=240600
  1902
  1903							;TEST IBP
  1904					G10000:	REPEAT	^D5,<
  1905					SN=SN+1
  1906						XX=XX-020000
  1907						ZZ=ZZ-020000
  1908						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1909						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1910						IBP	,<AC+1>&17	;INC BYTE PNTR
  1911						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1912						ER5	AC+1,SN		;IBP FAILED
  1913						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1914					>
  1915
  1916			010001		SN=SN+1
  1917			140600			XX=XX-020000
  1918			220600			ZZ=ZZ-020000
  1919	031737	205 03 0 00 140600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1920	031740	205 06 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1921	031741	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1922	031742	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1923	031743	005 06 0 00 010001 		ER5	AC+1,SN		;IBP FAILED
  1924	031744	321 07 0 00 031737 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1925
  1926
  1927			010002		SN=SN+1
  1928			120600			XX=XX-020000
  1929			200600			ZZ=ZZ-020000
  1930	031745	205 03 0 00 120600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1931	031746	205 06 0 00 200600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1932	031747	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1933	031750	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1934	031751	005 06 0 00 010002 		ER5	AC+1,SN		;IBP FAILED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 30-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0062

  1935	031752	321 07 0 00 031745 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1936
  1937
  1938			010003		SN=SN+1
  1939			100600			XX=XX-020000
  1940			160600			ZZ=ZZ-020000
  1941	031753	205 03 0 00 100600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1942	031754	205 06 0 00 160600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1943	031755	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1944	031756	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1945	031757	005 06 0 00 010003 		ER5	AC+1,SN		;IBP FAILED
  1946	031760	321 07 0 00 031753 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1947
  1948
  1949			010004		SN=SN+1
  1950			060600			XX=XX-020000
  1951			140600			ZZ=ZZ-020000
  1952	031761	205 03 0 00 060600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1953	031762	205 06 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1954	031763	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1955	031764	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1956	031765	005 06 0 00 010004 		ER5	AC+1,SN		;IBP FAILED
  1957	031766	321 07 0 00 031761 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1958
  1959
  1960			010005		SN=SN+1
  1961			040600			XX=XX-020000
  1962			120600			ZZ=ZZ-020000
  1963	031767	205 03 0 00 040600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1964	031770	205 06 0 00 120600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1965	031771	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1966	031772	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1967	031773	005 06 0 00 010005 		ER5	AC+1,SN		;IBP FAILED
  1968	031774	321 07 0 00 031767 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1969
  1970					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 30-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0063

  1971					;INST-IBP
  1972					;DECREASING S FIELD
  1973					;P FIELD=22
  1974					;S FIELD=14,12,10,6,4
  1975					;RESULTANT P FIELDS=6,10,12,14,16
  1976					;AN ERROR WILL OCCUR ON AN
  1977					;INCORRECT INCREMENTED PNTR WORD
  1978
  1979			000014			AC=14
  1980						SAVEAC	(1,1)^
  1981	031775	201 16 0 00 031775 		MOVEI	AC+2,.		;SAVE TEST PC
  1982	031776	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1983	031777	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1984	032000	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1985
  1986			010100		SN=10100
  1987			040000			XX=040000
  1988			001600			WW=001600
  1989			221600			ZZ=221600
  1990
  1991							;TEST IBP
  1992					G10100:	REPEAT	^D5,<
  1993					SN=SN+1
  1994						XX=XX+020000
  1995						WW=WW-000200
  1996						ZZ=ZZ-000200
  1997						MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  1998						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1999						IBP	,<AC+1>&17	;INC BYTE PNTR
  2000						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2001						ER5	AC+1,SN		;IBP FAILED
  2002						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2003					>
  2004
  2005			010101		SN=SN+1
  2006			060000			XX=XX+020000
  2007			001400			WW=WW-000200
  2008			221400			ZZ=ZZ-000200
  2009	032001	205 12 0 00 061400 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2010	032002	205 15 0 00 221400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2011	032003	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2012	032004	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2013	032005	005 15 0 00 010101 		ER5	AC+1,SN		;IBP FAILED
  2014	032006	321 16 0 00 032001 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2015
  2016
  2017			010102		SN=SN+1
  2018			100000			XX=XX+020000
  2019			001200			WW=WW-000200
  2020			221200			ZZ=ZZ-000200
  2021	032007	205 12 0 00 101200 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2022	032010	205 15 0 00 221200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2023	032011	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2024	032012	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2025	032013	005 15 0 00 010102 		ER5	AC+1,SN		;IBP FAILED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 30-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0064

  2026	032014	321 16 0 00 032007 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2027
  2028
  2029			010103		SN=SN+1
  2030			120000			XX=XX+020000
  2031			001000			WW=WW-000200
  2032			221000			ZZ=ZZ-000200
  2033	032015	205 12 0 00 121000 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2034	032016	205 15 0 00 221000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2035	032017	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2036	032020	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2037	032021	005 15 0 00 010103 		ER5	AC+1,SN		;IBP FAILED
  2038	032022	321 16 0 00 032015 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2039
  2040
  2041			010104		SN=SN+1
  2042			140000			XX=XX+020000
  2043			000600			WW=WW-000200
  2044			220600			ZZ=ZZ-000200
  2045	032023	205 12 0 00 140600 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2046	032024	205 15 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2047	032025	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2048	032026	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2049	032027	005 15 0 00 010104 		ER5	AC+1,SN		;IBP FAILED
  2050	032030	321 16 0 00 032023 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2051
  2052
  2053			010105		SN=SN+1
  2054			160000			XX=XX+020000
  2055			000400			WW=WW-000200
  2056			220400			ZZ=ZZ-000200
  2057	032031	205 12 0 00 160400 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2058	032032	205 15 0 00 220400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2059	032033	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2060	032034	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2061	032035	005 15 0 00 010105 		ER5	AC+1,SN		;IBP FAILED
  2062	032036	321 16 0 00 032031 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2063
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 31
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0065

  2064
  2065					;INST-IBP
  2066					;OVERFLOW AND INC ADDRESS
  2067					;P FIELD=0
  2068					;S FIELD=14,12,10,6,4
  2069					;RESULTANT P FIELDS=30,32,34,36,40
  2070					;ADDRESS FIELD INCREMENTED BY ONE
  2071					;AN ERROR WILL OCCUR ON AN INCORRECT
  2072					;INCREMENTED PNTR WORD
  2073
  2074			000013			AC=13
  2075						SAVEAC	(1,1)^
  2076	032037	201 15 0 00 032037 		MOVEI	AC+2,.		;SAVE TEST PC
  2077	032040	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  2078	032041	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2079	032042	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2080
  2081			010200		SN=10200
  2082			260000			XX=260000
  2083			001600			ZZ=001600
  2084
  2085							;TEST IBP
  2086					G10200:	REPEAT	^D5,<
  2087					SN=SN+1
  2088						XX=XX+020000
  2089						ZZ=ZZ-000200
  2090						MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2091						AOJ	AC-2,		;FOR COMPARISON
  2092						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2093						IBP	,<AC+1>&17	;INC BYTE PNTR
  2094						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2095						ER5	AC+1,SN		;IBP FAILED
  2096						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2097					>
  2098
  2099			010201		SN=SN+1
  2100			300000			XX=XX+020000
  2101			001400			ZZ=ZZ-000200
  2102	032043	205 11 0 00 301400 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2103	032044	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2104	032045	205 14 0 00 001400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2105	032046	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2106	032047	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2107	032050	005 14 0 00 010201 		ER5	AC+1,SN		;IBP FAILED
  2108	032051	321 15 0 00 032043 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2109
  2110
  2111			010202		SN=SN+1
  2112			320000			XX=XX+020000
  2113			001200			ZZ=ZZ-000200
  2114	032052	205 11 0 00 321200 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2115	032053	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2116	032054	205 14 0 00 001200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2117	032055	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2118	032056	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 31-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0066

  2119	032057	005 14 0 00 010202 		ER5	AC+1,SN		;IBP FAILED
  2120	032060	321 15 0 00 032052 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2121
  2122
  2123			010203		SN=SN+1
  2124			340000			XX=XX+020000
  2125			001000			ZZ=ZZ-000200
  2126	032061	205 11 0 00 341000 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2127	032062	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2128	032063	205 14 0 00 001000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2129	032064	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2130	032065	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2131	032066	005 14 0 00 010203 		ER5	AC+1,SN		;IBP FAILED
  2132	032067	321 15 0 00 032061 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2133
  2134
  2135			010204		SN=SN+1
  2136			360000			XX=XX+020000
  2137			000600			ZZ=ZZ-000200
  2138	032070	205 11 0 00 360600 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2139	032071	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2140	032072	205 14 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2141	032073	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2142	032074	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2143	032075	005 14 0 00 010204 		ER5	AC+1,SN		;IBP FAILED
  2144	032076	321 15 0 00 032070 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2145
  2146
  2147			010205		SN=SN+1
  2148			400000			XX=XX+020000
  2149			000400			ZZ=ZZ-000200
  2150	032077	205 11 0 00 400400 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2151	032100	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2152	032101	205 14 0 00 000400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2153	032102	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2154	032103	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2155	032104	005 14 0 00 010205 		ER5	AC+1,SN		;IBP FAILED
  2156	032105	321 15 0 00 032077 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2157
  2158					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 31-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0067

  2159					;INST-LDB
  2160					;INCREASING S FIELD
  2161					;P FIELD=22
  2162					;S FIELD=1,2,3,4,5
  2163					;BYTE WORD=777777000000
  2164					;AN ERROR WILL OCCUR IF AN
  2165					;IN CORRECT BYTE IS LOADED
  2166					;INTO AC
  2167
  2168			000012			AC=12
  2169						SAVEAC	(1,1)^
  2170	032106	201 14 0 00 032106 		MOVEI	AC+2,.		;SAVE TEST PC
  2171	032107	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  2172	032110	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2173	032111	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2174
  2175			010300		SN=10300
  2176			220000			XX=220000
  2177			000000			ZZ=0
  2178
  2179							;TEST LDB
  2180					G10300:	REPEAT	^D5,<
  2181					SN=SN+1
  2182						XX=XX+000100
  2183						ZZ=ZZ*2+1
  2184						MOVSI	AC+1,XX		;SETUP PNTR WORD
  2185						HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2186						LDB	AC,<AC+1>&17	;LOAD BYTE
  2187						CAIE	AC,ZZ		;TEST DEST AC
  2188						ER3	AC,SN		;LDB FAILED
  2189						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2190					>
  2191
  2192			010301		SN=SN+1
  2193			220100			XX=XX+000100
  2194			000001			ZZ=ZZ*2+1
  2195	032112	205 13 0 00 220100 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2196	032113	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2197	032114	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2198	032115	302 12 0 00 000001 		CAIE	AC,ZZ		;TEST DEST AC
  2199	032116	003 12 0 00 010301 		ER3	AC,SN		;LDB FAILED
  2200	032117	321 14 0 00 032112 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2201
  2202
  2203			010302		SN=SN+1
  2204			220200			XX=XX+000100
  2205			000003			ZZ=ZZ*2+1
  2206	032120	205 13 0 00 220200 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2207	032121	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2208	032122	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2209	032123	302 12 0 00 000003 		CAIE	AC,ZZ		;TEST DEST AC
  2210	032124	003 12 0 00 010302 		ER3	AC,SN		;LDB FAILED
  2211	032125	321 14 0 00 032120 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2212
  2213
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 31-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0068

  2214			010303		SN=SN+1
  2215			220300			XX=XX+000100
  2216			000007			ZZ=ZZ*2+1
  2217	032126	205 13 0 00 220300 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2218	032127	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2219	032130	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2220	032131	302 12 0 00 000007 		CAIE	AC,ZZ		;TEST DEST AC
  2221	032132	003 12 0 00 010303 		ER3	AC,SN		;LDB FAILED
  2222	032133	321 14 0 00 032126 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2223
  2224
  2225			010304		SN=SN+1
  2226			220400			XX=XX+000100
  2227			000017			ZZ=ZZ*2+1
  2228	032134	205 13 0 00 220400 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2229	032135	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2230	032136	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2231	032137	302 12 0 00 000017 		CAIE	AC,ZZ		;TEST DEST AC
  2232	032140	003 12 0 00 010304 		ER3	AC,SN		;LDB FAILED
  2233	032141	321 14 0 00 032134 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2234
  2235
  2236			010305		SN=SN+1
  2237			220500			XX=XX+000100
  2238			000037			ZZ=ZZ*2+1
  2239	032142	205 13 0 00 220500 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2240	032143	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2241	032144	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2242	032145	302 12 0 00 000037 		CAIE	AC,ZZ		;TEST DEST AC
  2243	032146	003 12 0 00 010305 		ER3	AC,SN		;LDB FAILED
  2244	032147	321 14 0 00 032142 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2245
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 32
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0069

  2246
  2247					;INST-LDB
  2248					;INCREASING BYTE WORD
  2249					;INCREASING P FIELD
  2250					;P FIELD=14,17,22,25,33
  2251					;S FIELD=3
  2252					;BYTE WORD=000000070000 SHIFTING
  2253					;LEFT BY 3
  2254					;AN ERROR WILL OCCUR IF DEST AC
  2255					;DIFFERS FROM 7
  2256
  2257			000011			AC=11
  2258						SAVEAC	(1,1)^
  2259	032150	201 13 0 00 032150 		MOVEI	AC+2,.		;SAVE TEST PC
  2260	032151	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  2261	032152	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2262	032153	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2263
  2264			010400		SN=10400
  2265			000000			XX=0
  2266			110300			ZZ=110300
  2267
  2268							;TEST LDB
  2269					G10400:	REPEAT	^D5,<
  2270					SN=SN+1
  2271						XX=XX+3
  2272						ZZ=ZZ+030000
  2273						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2274						MOVEI	,7000		;SETUP BYTE WORD
  2275						ROT	,XX		;ROTATE LEFT BY 3
  2276						LDB	AC,<AC+1>&17	;LOAD BYTE
  2277						CAIE	AC,7		;TEST DEST AC=7
  2278						ER3	AC,SN		;LDB FAILED
  2279						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2280					>
  2281
  2282			010401		SN=SN+1
  2283			000003			XX=XX+3
  2284			140300			ZZ=ZZ+030000
  2285	032154	205 12 0 00 140300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2286	032155	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2287	032156	241 00 0 00 000003 		ROT	,XX		;ROTATE LEFT BY 3
  2288	032157	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2289	032160	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2290	032161	003 11 0 00 010401 		ER3	AC,SN		;LDB FAILED
  2291	032162	321 13 0 00 032154 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2292
  2293
  2294			010402		SN=SN+1
  2295			000006			XX=XX+3
  2296			170300			ZZ=ZZ+030000
  2297	032163	205 12 0 00 170300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2298	032164	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2299	032165	241 00 0 00 000006 		ROT	,XX		;ROTATE LEFT BY 3
  2300	032166	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 32-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0070

  2301	032167	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2302	032170	003 11 0 00 010402 		ER3	AC,SN		;LDB FAILED
  2303	032171	321 13 0 00 032163 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2304
  2305
  2306			010403		SN=SN+1
  2307			000011			XX=XX+3
  2308			220300			ZZ=ZZ+030000
  2309	032172	205 12 0 00 220300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2310	032173	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2311	032174	241 00 0 00 000011 		ROT	,XX		;ROTATE LEFT BY 3
  2312	032175	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2313	032176	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2314	032177	003 11 0 00 010403 		ER3	AC,SN		;LDB FAILED
  2315	032200	321 13 0 00 032172 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2316
  2317
  2318			010404		SN=SN+1
  2319			000014			XX=XX+3
  2320			250300			ZZ=ZZ+030000
  2321	032201	205 12 0 00 250300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2322	032202	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2323	032203	241 00 0 00 000014 		ROT	,XX		;ROTATE LEFT BY 3
  2324	032204	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2325	032205	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2326	032206	003 11 0 00 010404 		ER3	AC,SN		;LDB FAILED
  2327	032207	321 13 0 00 032201 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2328
  2329
  2330			010405		SN=SN+1
  2331			000017			XX=XX+3
  2332			300300			ZZ=ZZ+030000
  2333	032210	205 12 0 00 300300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2334	032211	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2335	032212	241 00 0 00 000017 		ROT	,XX		;ROTATE LEFT BY 3
  2336	032213	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2337	032214	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2338	032215	003 11 0 00 010405 		ER3	AC,SN		;LDB FAILED
  2339	032216	321 13 0 00 032210 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2340
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 33
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0071

  2341
  2342					;INST-LDB
  2343					;VARY BYTE ADDRESS
  2344					;P FIELD=22
  2345					;S FIELD=3
  2346					;BYTE WORD=AC NUMBER
  2347					;BYTE PNTR ADDR=AC 6,5,4,3,2
  2348					;AN ERROR WILL OCCUR IF C(DEST AC)
  2349					;DIFFERS FROM AC UNDER TEST
  2350
  2351			000007			AC=7
  2352						SAVEAC	(1,1)^
  2353	032217	201 11 0 00 032217 		MOVEI	AC+2,.		;SAVE TEST PC
  2354	032220	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  2355	032221	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2356	032222	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2357
  2358			010500		SN=10500
  2359			000007			ZZ=7
  2360
  2361							;TEST LOAD BYTE
  2362					G10500:	REPEAT	^D5,<
  2363					SN=SN+1
  2364						ZZ=ZZ-1
  2365						HRLI	AC+1,220300	;SETUP BYTE
  2366						HRRI	AC+1,ZZ		;PNTR WORD
  2367						MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2368						LDB	AC,<AC+1>&17	;LOAD BYTE
  2369						CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2370						ER3	AC,SN		;LDB FAILED
  2371						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2372					>
  2373
  2374			010501		SN=SN+1
  2375			000006			ZZ=ZZ-1
  2376	032223	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2377	032224	541 10 0 00 000006 		HRRI	AC+1,ZZ		;PNTR WORD
  2378	032225	205 06 0 00 000006 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2379	032226	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2380	032227	302 07 0 00 000006 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2381	032230	003 07 0 00 010501 		ER3	AC,SN		;LDB FAILED
  2382	032231	321 11 0 00 032223 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2383
  2384
  2385			010502		SN=SN+1
  2386			000005			ZZ=ZZ-1
  2387	032232	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2388	032233	541 10 0 00 000005 		HRRI	AC+1,ZZ		;PNTR WORD
  2389	032234	205 05 0 00 000005 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2390	032235	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2391	032236	302 07 0 00 000005 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2392	032237	003 07 0 00 010502 		ER3	AC,SN		;LDB FAILED
  2393	032240	321 11 0 00 032232 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2394
  2395
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 33-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0072

  2396			010503		SN=SN+1
  2397			000004			ZZ=ZZ-1
  2398	032241	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2399	032242	541 10 0 00 000004 		HRRI	AC+1,ZZ		;PNTR WORD
  2400	032243	205 04 0 00 000004 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2401	032244	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2402	032245	302 07 0 00 000004 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2403	032246	003 07 0 00 010503 		ER3	AC,SN		;LDB FAILED
  2404	032247	321 11 0 00 032241 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2405
  2406
  2407			010504		SN=SN+1
  2408			000003			ZZ=ZZ-1
  2409	032250	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2410	032251	541 10 0 00 000003 		HRRI	AC+1,ZZ		;PNTR WORD
  2411	032252	205 03 0 00 000003 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2412	032253	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2413	032254	302 07 0 00 000003 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2414	032255	003 07 0 00 010504 		ER3	AC,SN		;LDB FAILED
  2415	032256	321 11 0 00 032250 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2416
  2417
  2418			010505		SN=SN+1
  2419			000002			ZZ=ZZ-1
  2420	032257	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2421	032260	541 10 0 00 000002 		HRRI	AC+1,ZZ		;PNTR WORD
  2422	032261	205 02 0 00 000002 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2423	032262	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2424	032263	302 07 0 00 000002 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2425	032264	003 07 0 00 010505 		ER3	AC,SN		;LDB FAILED
  2426	032265	321 11 0 00 032257 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2427
  2428					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 33-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0073

  2429					;INST-LDB
  2430					;BYTE PNTR INDEXED
  2431					;P FIELD=0
  2432					;S FIELD=3
  2433					;BYTE WORD=PNTR WORD
  2434					;AN ERROR WILL OCCUR IF LOADED
  2435					;BYTE DIFFERS FROM CURRENT
  2436					;AC NUMBER
  2437
  2438			000010			AC=10
  2439						SAVEAC	(1,1)^
  2440	032266	201 12 0 00 032266 		MOVEI	AC+2,.		;SAVE TEST PC
  2441	032267	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  2442	032270	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2443	032271	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2444
  2445			010600		SN=10600
  2446			000000			ZZ=0
  2447
  2448							;TEST LDB INDEXED
  2449					G10600:	REPEAT	^D5,<
  2450					SN=SN+1
  2451						ZZ=ZZ+1
  2452						MOVSI	,000300		;SETUP NON IND PNTR WORD
  2453						HRLI	ZZ,000300	;SETUP INDEXED
  2454						HRRI	ZZ,ZZ		;PNTR WORD
  2455						LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2456						CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2457						ER3	AC,SN		;LDB FAILED
  2458						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2459					>
  2460
  2461			010601		SN=SN+1
  2462			000001			ZZ=ZZ+1
  2463	032272	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2464	032273	505 01 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2465	032274	541 01 0 00 000001 		HRRI	ZZ,ZZ		;PNTR WORD
  2466	032275	135 10 0 01 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2467	032276	302 10 0 00 000001 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2468	032277	003 10 0 00 010601 		ER3	AC,SN		;LDB FAILED
  2469	032300	321 12 0 00 032272 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2470
  2471
  2472			010602		SN=SN+1
  2473			000002			ZZ=ZZ+1
  2474	032301	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2475	032302	505 02 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2476	032303	541 02 0 00 000002 		HRRI	ZZ,ZZ		;PNTR WORD
  2477	032304	135 10 0 02 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2478	032305	302 10 0 00 000002 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2479	032306	003 10 0 00 010602 		ER3	AC,SN		;LDB FAILED
  2480	032307	321 12 0 00 032301 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2481
  2482
  2483			010603		SN=SN+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 33-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0074

  2484			000003			ZZ=ZZ+1
  2485	032310	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2486	032311	505 03 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2487	032312	541 03 0 00 000003 		HRRI	ZZ,ZZ		;PNTR WORD
  2488	032313	135 10 0 03 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2489	032314	302 10 0 00 000003 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2490	032315	003 10 0 00 010603 		ER3	AC,SN		;LDB FAILED
  2491	032316	321 12 0 00 032310 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2492
  2493
  2494			010604		SN=SN+1
  2495			000004			ZZ=ZZ+1
  2496	032317	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2497	032320	505 04 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2498	032321	541 04 0 00 000004 		HRRI	ZZ,ZZ		;PNTR WORD
  2499	032322	135 10 0 04 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2500	032323	302 10 0 00 000004 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2501	032324	003 10 0 00 010604 		ER3	AC,SN		;LDB FAILED
  2502	032325	321 12 0 00 032317 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2503
  2504
  2505			010605		SN=SN+1
  2506			000005			ZZ=ZZ+1
  2507	032326	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2508	032327	505 05 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2509	032330	541 05 0 00 000005 		HRRI	ZZ,ZZ		;PNTR WORD
  2510	032331	135 10 0 05 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2511	032332	302 10 0 00 000005 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2512	032333	003 10 0 00 010605 		ER3	AC,SN		;LDB FAILED
  2513	032334	321 12 0 00 032326 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2514
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 34
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0075

  2515
  2516					;INST-LDB
  2517					;BYTE PNTR INDIRECTLY ADDRESSED
  2518					;P FIELD=0
  2519					;S FIELD=3
  2520					;BYTE WORD=PNTR WORD
  2521					;AN ERROR WILL OCCUR IF LOADED
  2522					;BYTE DIFFERS FROM CURRENT
  2523					;AC NUMBER
  2524
  2525			000007			AC=7
  2526						SAVEAC	(1,1)^
  2527	032335	201 11 0 00 032335 		MOVEI	AC+2,.		;SAVE TEST PC
  2528	032336	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  2529	032337	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2530	032340	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2531
  2532			010700		SN=10700
  2533			000000			ZZ=0
  2534
  2535							;TEST LDB INDIRECTLY ADDRESSED
  2536					G10700:	REPEAT	^D5,<
  2537					SN=SN+1
  2538						ZZ=ZZ+1
  2539						MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2540						HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2541						HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2542						HRRI	ZZ,ZZ		;PNTR WORD
  2543						SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2544						LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2545						CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2546						ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2547						JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2548					>
  2549
  2550			010701		SN=SN+1
  2551			000001			ZZ=ZZ+1
  2552	032341	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2553	032342	541 10 0 00 000001 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2554	032343	505 01 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2555	032344	541 01 0 00 000001 		HRRI	ZZ,ZZ		;PNTR WORD
  2556	032345	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2557	032346	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2558	032347	302 07 0 00 000001 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2559	032350	003 07 0 00 010701 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2560	032351	321 11 0 00 032341 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2561
  2562
  2563			010702		SN=SN+1
  2564			000002			ZZ=ZZ+1
  2565	032352	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2566	032353	541 10 0 00 000002 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2567	032354	505 02 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2568	032355	541 02 0 00 000002 		HRRI	ZZ,ZZ		;PNTR WORD
  2569	032356	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 34-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0076

  2570	032357	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2571	032360	302 07 0 00 000002 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2572	032361	003 07 0 00 010702 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2573	032362	321 11 0 00 032352 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2574
  2575
  2576			010703		SN=SN+1
  2577			000003			ZZ=ZZ+1
  2578	032363	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2579	032364	541 10 0 00 000003 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2580	032365	505 03 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2581	032366	541 03 0 00 000003 		HRRI	ZZ,ZZ		;PNTR WORD
  2582	032367	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2583	032370	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2584	032371	302 07 0 00 000003 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2585	032372	003 07 0 00 010703 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2586	032373	321 11 0 00 032363 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2587
  2588
  2589			010704		SN=SN+1
  2590			000004			ZZ=ZZ+1
  2591	032374	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2592	032375	541 10 0 00 000004 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2593	032376	505 04 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2594	032377	541 04 0 00 000004 		HRRI	ZZ,ZZ		;PNTR WORD
  2595	032400	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2596	032401	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2597	032402	302 07 0 00 000004 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2598	032403	003 07 0 00 010704 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2599	032404	321 11 0 00 032374 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2600
  2601
  2602			010705		SN=SN+1
  2603			000005			ZZ=ZZ+1
  2604	032405	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2605	032406	541 10 0 00 000005 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2606	032407	505 05 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2607	032410	541 05 0 00 000005 		HRRI	ZZ,ZZ		;PNTR WORD
  2608	032411	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2609	032412	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2610	032413	302 07 0 00 000005 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2611	032414	003 07 0 00 010705 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2612	032415	321 11 0 00 032405 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2613
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 35
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0077

  2614					;INST-LDB
  2615					;PNTR INDEXED AND INDIRECTLY ADDRESSED
  2616					;P FIELD=0
  2617					;S FIELD=6
  2618					;PNTR WORD IS IN AC 12,13,14
  2619					;BYTE WORD=PNTR WORD
  2620					;LOADED BYTE SHOULD EQUAL
  2621					;12,13,14
  2622
  2623			000010			AC=10
  2624						SAVEAC	(1,1)^
  2625	032416	201 12 0 00 032416 		MOVEI	AC+2,.		;SAVE TEST PC
  2626	032417	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  2627	032420	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2628	032421	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2629
  2630			011000		SN=11000
  2631			000003			VV=3
  2632			000006			WW=6
  2633			000011			XX=11
  2634			000003			ZZ=3
  2635
  2636							;TEST LDB INDEXED, INDIRECTLY ADDRESSED
  2637					G11000:	REPEAT	^D3,<
  2638					SN=SN+1
  2639						VV=VV+1
  2640						WW=WW+1
  2641						XX=XX+1
  2642						ZZ=ZZ+1
  2643						MOVEI	VV,WW		;SETUP INDEX AC
  2644						MOVEI	WW,XX		;SETUP INDIRECT AC
  2645						HRLI	XX,000600	;SETUP INDEXED AND
  2646						HRRI	XX,XX		;INDIRECT PNTR WORD
  2647						LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2648						CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2649						ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2650						JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2651					>
  2652
  2653			011001		SN=SN+1
  2654			000004			VV=VV+1
  2655			000007			WW=WW+1
  2656			000012			XX=XX+1
  2657			000004			ZZ=ZZ+1
  2658	032422	201 04 0 00 000007 		MOVEI	VV,WW		;SETUP INDEX AC
  2659	032423	201 07 0 00 000012 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2660	032424	505 12 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2661	032425	541 12 0 00 000012 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2662	032426	135 10 1 04 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2663	032427	302 10 0 00 000012 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2664	032430	003 10 0 00 011001 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2665	032431	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2666
  2667
  2668			011002		SN=SN+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 35-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0078

  2669			000005			VV=VV+1
  2670			000010			WW=WW+1
  2671			000013			XX=XX+1
  2672			000005			ZZ=ZZ+1
  2673	032432	201 05 0 00 000010 		MOVEI	VV,WW		;SETUP INDEX AC
  2674	032433	201 10 0 00 000013 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2675	032434	505 13 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2676	032435	541 13 0 00 000013 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2677	032436	135 10 1 05 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2678	032437	302 10 0 00 000013 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2679	032440	003 10 0 00 011002 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2680	032441	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2681
  2682
  2683			011003		SN=SN+1
  2684			000006			VV=VV+1
  2685			000011			WW=WW+1
  2686			000014			XX=XX+1
  2687			000006			ZZ=ZZ+1
  2688	032442	201 06 0 00 000011 		MOVEI	VV,WW		;SETUP INDEX AC
  2689	032443	201 11 0 00 000014 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2690	032444	505 14 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2691	032445	541 14 0 00 000014 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2692	032446	135 10 1 06 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2693	032447	302 10 0 00 000014 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2694	032450	003 10 0 00 011003 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2695	032451	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2696
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 36
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0079

  2697
  2698					;INST-LDB
  2699					;INDEX BYTE ADDRESS
  2700					;P FIELD=0
  2701					;S FIELD=6
  2702					;INDEX AC=AC7
  2703					;BYTE WORD ADDRESS=AC 7,10,11,12,13
  2704					;AN ERROR WILL OCCUR IF LOADED BYTE
  2705					;DIFFERS CURRENT AC
  2706
  2707			000004			AC=4
  2708						SAVEAC	(1,1)^
  2709	032452	201 06 0 00 032452 		MOVEI	AC+2,.		;SAVE TEST PC
  2710	032453	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2711	032454	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2712	032455	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2713
  2714			011100		SN=11100
  2715			000006			ZZ=6
  2716
  2717							;TEST LDB BYTE ADDR INDEXED
  2718					G11100:	REPEAT	^D5,<
  2719					SN=SN+1
  2720						ZZ=ZZ+1
  2721						MOVSI	AC+1,000607	;SETUP PNTR WORD
  2722						MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2723						MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2724						LDB	AC,<AC+1>&17	;LOAD BYTE
  2725						CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2726						ER3	AC,SN		;LDB FAILED
  2727						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2728					>
  2729
  2730			011101		SN=SN+1
  2731			000007			ZZ=ZZ+1
  2732	032456	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2733	032457	201 07 0 00 000007 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2734	032460	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2735	032461	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2736	032462	302 04 0 00 000007 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2737	032463	003 04 0 00 011101 		ER3	AC,SN		;LDB FAILED
  2738	032464	321 06 0 00 032456 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2739
  2740
  2741			011102		SN=SN+1
  2742			000010			ZZ=ZZ+1
  2743	032465	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2744	032466	201 07 0 00 000010 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2745	032467	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2746	032470	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2747	032471	302 04 0 00 000010 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2748	032472	003 04 0 00 011102 		ER3	AC,SN		;LDB FAILED
  2749	032473	321 06 0 00 032465 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2750
  2751
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 36-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0080

  2752			011103		SN=SN+1
  2753			000011			ZZ=ZZ+1
  2754	032474	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2755	032475	201 07 0 00 000011 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2756	032476	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2757	032477	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2758	032500	302 04 0 00 000011 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2759	032501	003 04 0 00 011103 		ER3	AC,SN		;LDB FAILED
  2760	032502	321 06 0 00 032474 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2761
  2762
  2763			011104		SN=SN+1
  2764			000012			ZZ=ZZ+1
  2765	032503	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2766	032504	201 07 0 00 000012 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2767	032505	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2768	032506	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2769	032507	302 04 0 00 000012 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2770	032510	003 04 0 00 011104 		ER3	AC,SN		;LDB FAILED
  2771	032511	321 06 0 00 032503 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2772
  2773
  2774			011105		SN=SN+1
  2775			000013			ZZ=ZZ+1
  2776	032512	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2777	032513	201 07 0 00 000013 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2778	032514	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2779	032515	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2780	032516	302 04 0 00 000013 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2781	032517	003 04 0 00 011105 		ER3	AC,SN		;LDB FAILED
  2782	032520	321 06 0 00 032512 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2783
  2784					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 36-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0081

  2785					;INST-LDB
  2786					;BYTE INDIRECTLY ADDRESSED
  2787					;P FIELD=0
  2788					;S FIELD=6
  2789					;BYTE WORD ADDRESS=AC7,10,11,12,13
  2790					;AN ERROR WILL OCCUR IF LOADED
  2791					;BYTE DIFFERS FROM CURRENT AC
  2792
  2793			000004			AC=4
  2794						SAVEAC	(1,1)^
  2795	032521	201 06 0 00 032521 		MOVEI	AC+2,.		;SAVE TEST PC
  2796	032522	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2797	032523	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2798	032524	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2799
  2800			011200		SN=11200
  2801			000006			ZZ=6
  2802
  2803							;TEST LDB, BYTE INDIRECTLY ADDRESSED
  2804					G11200:	REPEAT	^D5,<
  2805					SN=SN+1
  2806						ZZ=ZZ+1
  2807						MOVSI	AC+1,000620	;SETUP PNTR WORD
  2808						MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2809						MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2810						LDB	AC,<AC+1>&17	;LOAD BYTE
  2811						CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2812						ER3	AC,SN		;LDB FAILED
  2813						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2814					>
  2815
  2816			011201		SN=SN+1
  2817			000007			ZZ=ZZ+1
  2818	032525	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2819	032526	201 00 0 00 000007 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2820	032527	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2821	032530	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2822	032531	302 04 0 00 000007 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2823	032532	003 04 0 00 011201 		ER3	AC,SN		;LDB FAILED
  2824	032533	321 06 0 00 032525 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2825
  2826
  2827			011202		SN=SN+1
  2828			000010			ZZ=ZZ+1
  2829	032534	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2830	032535	201 00 0 00 000010 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2831	032536	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2832	032537	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2833	032540	302 04 0 00 000010 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2834	032541	003 04 0 00 011202 		ER3	AC,SN		;LDB FAILED
  2835	032542	321 06 0 00 032534 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2836
  2837
  2838			011203		SN=SN+1
  2839			000011			ZZ=ZZ+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 36-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0082

  2840	032543	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2841	032544	201 00 0 00 000011 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2842	032545	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2843	032546	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2844	032547	302 04 0 00 000011 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2845	032550	003 04 0 00 011203 		ER3	AC,SN		;LDB FAILED
  2846	032551	321 06 0 00 032543 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2847
  2848
  2849			011204		SN=SN+1
  2850			000012			ZZ=ZZ+1
  2851	032552	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2852	032553	201 00 0 00 000012 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2853	032554	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2854	032555	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2855	032556	302 04 0 00 000012 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2856	032557	003 04 0 00 011204 		ER3	AC,SN		;LDB FAILED
  2857	032560	321 06 0 00 032552 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2858
  2859
  2860			011205		SN=SN+1
  2861			000013			ZZ=ZZ+1
  2862	032561	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2863	032562	201 00 0 00 000013 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2864	032563	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2865	032564	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2866	032565	302 04 0 00 000013 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2867	032566	003 04 0 00 011205 		ER3	AC,SN		;LDB FAILED
  2868	032567	321 06 0 00 032561 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2869
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 37
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0083

  2870
  2871					;INST-LDB
  2872					;BYTE ADDRESS INDEXED AND INDIRECT
  2873					;P FIELD=0
  2874					;S FIELD=6
  2875					;BYTE ADDRESS=AC13,14,15
  2876					;BYTE WORD=13,14,15
  2877					;AN ERROR WILL OCCUR IF LOADED
  2878					;BYTE DIFFERS FROM CURRENT AC
  2879
  2880			000004			AC=4
  2881						SAVEAC	(1,1)^
  2882	032570	201 06 0 00 032570 		MOVEI	AC+2,.		;SAVE TEST PC
  2883	032571	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2884	032572	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2885	032573	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2886
  2887			011300		SN=11300
  2888			000012			XX=12
  2889			000007			ZZ=7
  2890
  2891							;TEST LDB, BYTE ADDR INDEXED AND INDIRECT
  2892					G11300:	REPEAT	^D3,<
  2893					SN=SN+1
  2894						XX=XX+1
  2895						ZZ=ZZ+1
  2896						MOVSI	AC+1,000627	;SETUP PNTR WORD
  2897						MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2898						MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2899						MOVEI	XX,XX		;SETUP BYTE WORD
  2900						LDB	AC,<AC+1>&17	;LOAD BYTE
  2901						CAIE	AC,XX		;TEST BYTE=13,14,15
  2902						ER3	AC,SN		;LDB FAILED
  2903						JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2904					>
  2905
  2906			011301		SN=SN+1
  2907			000013			XX=XX+1
  2908			000010			ZZ=ZZ+1
  2909	032574	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2910	032575	201 07 0 00 000010 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2911	032576	201 10 0 00 000013 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2912	032577	201 13 0 00 000013 		MOVEI	XX,XX		;SETUP BYTE WORD
  2913	032600	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2914	032601	302 04 0 00 000013 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2915	032602	003 04 0 00 011301 		ER3	AC,SN		;LDB FAILED
  2916	032603	321 06 0 00 032574 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2917
  2918
  2919			011302		SN=SN+1
  2920			000014			XX=XX+1
  2921			000011			ZZ=ZZ+1
  2922	032604	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2923	032605	201 07 0 00 000011 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2924	032606	201 11 0 00 000014 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 37-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0084

  2925	032607	201 14 0 00 000014 		MOVEI	XX,XX		;SETUP BYTE WORD
  2926	032610	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2927	032611	302 04 0 00 000014 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2928	032612	003 04 0 00 011302 		ER3	AC,SN		;LDB FAILED
  2929	032613	321 06 0 00 032604 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2930
  2931
  2932			011303		SN=SN+1
  2933			000015			XX=XX+1
  2934			000012			ZZ=ZZ+1
  2935	032614	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2936	032615	201 07 0 00 000012 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2937	032616	201 12 0 00 000015 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2938	032617	201 15 0 00 000015 		MOVEI	XX,XX		;SETUP BYTE WORD
  2939	032620	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2940	032621	302 04 0 00 000015 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2941	032622	003 04 0 00 011303 		ER3	AC,SN		;LDB FAILED
  2942	032623	321 06 0 00 032614 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2943
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 38
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0085

  2944
  2945					;INST-ILDB
  2946					;DECREASING P FIELD
  2947					;P FIELD=44,36,30,22,14
  2948					;S FIELD=6
  2949					;BYTE ADDRESS=AC0
  2950					;AN ERROR WILL OCCUR IF AC DIFFERS
  2951					;FROM 77
  2952
  2953			000005			AC=5
  2954						SAVEAC	(1,1)^
  2955	032624	201 07 0 00 032624 		MOVEI	AC+2,.		;SAVE TEST PC
  2956	032625	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  2957	032626	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2958	032627	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2959
  2960			011400		SN=11400
  2961			520600			XX=520600
  2962			000000			ZZ=0
  2963
  2964							;TEST ILDB
  2965					G11400:	REPEAT	^D5,<
  2966					SN=SN+1
  2967						XX=XX-060000
  2968						ZZ=ZZ-6
  2969						MOVSI	AC+1,XX		;SETUP PNTR WORD
  2970						MOVEI	,77		;SETUP BYTE WORD
  2971						ROT	,ZZ		;ROTATE RIGHT
  2972						ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2973						CAIE	AC,77		;TEST AC=77
  2974						ER3	AC,SN		;ILDB FAILED
  2975						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2976					>
  2977
  2978			011401		SN=SN+1
  2979			440600			XX=XX-060000
  2980		777777	777772			ZZ=ZZ-6
  2981	032630	205 06 0 00 440600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2982	032631	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2983	032632	241 00 0 00 777772 		ROT	,ZZ		;ROTATE RIGHT
  2984	032633	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2985	032634	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2986	032635	003 05 0 00 011401 		ER3	AC,SN		;ILDB FAILED
  2987	032636	321 07 0 00 032630 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2988
  2989
  2990			011402		SN=SN+1
  2991			360600			XX=XX-060000
  2992		777777	777764			ZZ=ZZ-6
  2993	032637	205 06 0 00 360600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2994	032640	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2995	032641	241 00 0 00 777764 		ROT	,ZZ		;ROTATE RIGHT
  2996	032642	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2997	032643	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2998	032644	003 05 0 00 011402 		ER3	AC,SN		;ILDB FAILED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 38-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0086

  2999	032645	321 07 0 00 032637 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3000
  3001
  3002			011403		SN=SN+1
  3003			300600			XX=XX-060000
  3004		777777	777756			ZZ=ZZ-6
  3005	032646	205 06 0 00 300600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3006	032647	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  3007	032650	241 00 0 00 777756 		ROT	,ZZ		;ROTATE RIGHT
  3008	032651	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3009	032652	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3010	032653	003 05 0 00 011403 		ER3	AC,SN		;ILDB FAILED
  3011	032654	321 07 0 00 032646 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3012
  3013
  3014			011404		SN=SN+1
  3015			220600			XX=XX-060000
  3016		777777	777750			ZZ=ZZ-6
  3017	032655	205 06 0 00 220600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3018	032656	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  3019	032657	241 00 0 00 777750 		ROT	,ZZ		;ROTATE RIGHT
  3020	032660	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3021	032661	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3022	032662	003 05 0 00 011404 		ER3	AC,SN		;ILDB FAILED
  3023	032663	321 07 0 00 032655 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3024
  3025
  3026			011405		SN=SN+1
  3027			140600			XX=XX-060000
  3028		777777	777742			ZZ=ZZ-6
  3029	032664	205 06 0 00 140600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3030	032665	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  3031	032666	241 00 0 00 777742 		ROT	,ZZ		;ROTATE RIGHT
  3032	032667	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3033	032670	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3034	032671	003 05 0 00 011405 		ER3	AC,SN		;ILDB FAILED
  3035	032672	321 07 0 00 032664 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3036
  3037					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 38-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0087

  3038					;INST-ILDB
  3039					;INCREASING S FIELD
  3040					;CALCULATE NEW P FIELD, INCREMENT
  3041					;BYTE WORD ADDRESS
  3042					;P FIELD=0
  3043					;S FIELD=6,14,22,30,36
  3044					;AN ERROR WILL OCCUR IF AC
  3045					;DIFFERS FROM 77
  3046
  3047			000014			AC=14
  3048						SAVEAC	(1,1)^
  3049	032673	201 16 0 00 032673 		MOVEI	AC+2,.		;SAVE TEST PC
  3050	032674	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  3051	032675	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3052	032676	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3053
  3054			011500		SN=11500
  3055			000000			XX=0
  3056			000000			ZZ=0
  3057
  3058							;TEST ILDB
  3059					G11500:	REPEAT	^D5,<
  3060					SN=SN+1
  3061						XX=XX+600
  3062						ZZ=ZZ-6
  3063						MOVSI	AC+1,XX		;SETUP PNTR WORD
  3064						MOVEI	1,77		;SETUP BYTE WORD
  3065						ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3066						ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3067						CAIE	AC,77		;TEST AC=77
  3068						ER3	AC,SN		;ILDB FAILED
  3069						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3070					>
  3071
  3072			011501		SN=SN+1
  3073			000600			XX=XX+600
  3074		777777	777772			ZZ=ZZ-6
  3075	032677	205 15 0 00 000600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3076	032700	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3077	032701	241 01 0 00 777772 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3078	032702	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3079	032703	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3080	032704	003 14 0 00 011501 		ER3	AC,SN		;ILDB FAILED
  3081	032705	321 16 0 00 032677 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3082
  3083
  3084			011502		SN=SN+1
  3085			001400			XX=XX+600
  3086		777777	777764			ZZ=ZZ-6
  3087	032706	205 15 0 00 001400 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3088	032707	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3089	032710	241 01 0 00 777764 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3090	032711	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3091	032712	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3092	032713	003 14 0 00 011502 		ER3	AC,SN		;ILDB FAILED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 38-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0088

  3093	032714	321 16 0 00 032706 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3094
  3095
  3096			011503		SN=SN+1
  3097			002200			XX=XX+600
  3098		777777	777756			ZZ=ZZ-6
  3099	032715	205 15 0 00 002200 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3100	032716	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3101	032717	241 01 0 00 777756 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3102	032720	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3103	032721	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3104	032722	003 14 0 00 011503 		ER3	AC,SN		;ILDB FAILED
  3105	032723	321 16 0 00 032715 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3106
  3107
  3108			011504		SN=SN+1
  3109			003000			XX=XX+600
  3110		777777	777750			ZZ=ZZ-6
  3111	032724	205 15 0 00 003000 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3112	032725	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3113	032726	241 01 0 00 777750 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3114	032727	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3115	032730	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3116	032731	003 14 0 00 011504 		ER3	AC,SN		;ILDB FAILED
  3117	032732	321 16 0 00 032724 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3118
  3119
  3120			011505		SN=SN+1
  3121			003600			XX=XX+600
  3122		777777	777742			ZZ=ZZ-6
  3123	032733	205 15 0 00 003600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3124	032734	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3125	032735	241 01 0 00 777742 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3126	032736	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3127	032737	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3128	032740	003 14 0 00 011505 		ER3	AC,SN		;ILDB FAILED
  3129	032741	321 16 0 00 032733 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3130
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 39
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0089

  3131
  3132					;INST-ILDB
  3133					;TESTING SPECIAL POINTER
  3134					;WHICH SETS AC TO ZERO
  3135					;PFIELD=20 ORIG,64 AFTER
  3136					;SFIELD=60 ORIG,60 AFTER
  3137					;AN ERROR WILL OCCUR IF AC IS NOT ZEROED
  3138
  3139			206000			XX=206000
  3140
  3141	032742	205 15 0 00 206000 	G11600:	MOVSI	AC+1,XX		;SETUP PNTR WORD
  3142	032743	477 00 0 00 000001 		SETOB	0,1		;SETUP BYTE WORD
  3143	032744	476 00 0 00 000014 		SETOM	AC		;SETUP AC FOR TEST
  3144	032745	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;THIS SHOULD ZERO AC
  3145	032746	332 00 0 00 000014 		SKIPE	AC		;TEST AC=0
  3146	032747	003 14 0 00 011601 		ER3	AC,11601	;ILDB FAILED
  3147	032750	321 16 0 00 032742 		JUMPL	AC+2,G11600	;LOOP ON ERROR SWITCH
  3148					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 39-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0090

  3149					;INST-DPB
  3150					;INCREASING P FIELD
  3151					;P FIELD=6,14,22,30,36
  3152					;S FIELD=6
  3153					;BYTE WORD=55
  3154					;AN ERROR WILL OCCUR IF DPB
  3155					;FAILS TO DEPOSIT CORRECTLY
  3156
  3157			000013			AC=13
  3158						SAVEAC	(1,1)^
  3159	032751	201 15 0 00 032751 		MOVEI	AC+2,.		;SAVE TEST PC
  3160	032752	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3161	032753	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3162	032754	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3163
  3164			011700		SN=11700
  3165			000000			XX=0
  3166			000600			ZZ=000600
  3167
  3168							;TEST DPB
  3169					G11700:	REPEAT	^D5,<
  3170					SN=SN+1
  3171						XX=XX+6
  3172						ZZ=ZZ+60000
  3173						MOVEI	AC-2,55		;SETUP AC-2
  3174						ROT	AC-2,XX		;FOR COMPARISON
  3175						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3176						SETZ			;SETUP DEST WORD
  3177						MOVEI	AC,55		;SETUP BYTE WORD
  3178						DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3179						CAME	,<AC-2>&17	;TEST DEST WORD
  3180						ER12	,SN		;DPB FAILED
  3181						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3182					>
  3183
  3184			011701		SN=SN+1
  3185			000006			XX=XX+6
  3186			060600			ZZ=ZZ+60000
  3187	032755	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3188	032756	241 11 0 00 000006 		ROT	AC-2,XX		;FOR COMPARISON
  3189	032757	205 14 0 00 060600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3190	032760	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3191	032761	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3192	032762	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3193	032763	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3194	032764	012 00 0 00 011701 		ER12	,SN		;DPB FAILED
  3195	032765	321 15 0 00 032755 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3196
  3197
  3198			011702		SN=SN+1
  3199			000014			XX=XX+6
  3200			140600			ZZ=ZZ+60000
  3201	032766	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3202	032767	241 11 0 00 000014 		ROT	AC-2,XX		;FOR COMPARISON
  3203	032770	205 14 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 39-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0091

  3204	032771	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3205	032772	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3206	032773	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3207	032774	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3208	032775	012 00 0 00 011702 		ER12	,SN		;DPB FAILED
  3209	032776	321 15 0 00 032766 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3210
  3211
  3212			011703		SN=SN+1
  3213			000022			XX=XX+6
  3214			220600			ZZ=ZZ+60000
  3215	032777	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3216	033000	241 11 0 00 000022 		ROT	AC-2,XX		;FOR COMPARISON
  3217	033001	205 14 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3218	033002	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3219	033003	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3220	033004	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3221	033005	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3222	033006	012 00 0 00 011703 		ER12	,SN		;DPB FAILED
  3223	033007	321 15 0 00 032777 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3224
  3225
  3226			011704		SN=SN+1
  3227			000030			XX=XX+6
  3228			300600			ZZ=ZZ+60000
  3229	033010	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3230	033011	241 11 0 00 000030 		ROT	AC-2,XX		;FOR COMPARISON
  3231	033012	205 14 0 00 300600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3232	033013	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3233	033014	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3234	033015	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3235	033016	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3236	033017	012 00 0 00 011704 		ER12	,SN		;DPB FAILED
  3237	033020	321 15 0 00 033010 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3238
  3239
  3240			011705		SN=SN+1
  3241			000036			XX=XX+6
  3242			360600			ZZ=ZZ+60000
  3243	033021	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3244	033022	241 11 0 00 000036 		ROT	AC-2,XX		;FOR COMPARISON
  3245	033023	205 14 0 00 360600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3246	033024	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3247	033025	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3248	033026	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3249	033027	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3250	033030	012 00 0 00 011705 		ER12	,SN		;DPB FAILED
  3251	033031	321 15 0 00 033021 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3252
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 40
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0092

  3253
  3254					;INST-DPB
  3255					;INCREASING P FIELD
  3256					;P FIELD = 0,6,14,22,30
  3257					;S FIELD = 6
  3258					;BYTE WORD=55 (SHIFTING LEFT 6 PLACES)
  3259					;AN ERROR WILL OCCUR IF DPB FAILS
  3260					;TO DEPOSIT CORRECTLY
  3261
  3262			000012			AC=12
  3263						SAVEAC	(1,1)^
  3264	033032	201 14 0 00 033032 		MOVEI	AC+2,.		;SAVE TEST PC
  3265	033033	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  3266	033034	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3267	033035	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3268
  3269			012000		SN=12000
  3270			000000			XX=0
  3271		777777	720000			ZZ=-60000
  3272
  3273							;TEST DPB
  3274					G12000:	REPEAT	^D5,<
  3275					SN=SN+1
  3276						XX=XX+6
  3277						ZZ=ZZ+060000
  3278						IFE	ZZ,<ZZ=000600>
  3279						MOVSI	AC-2,550000	;SETUP AC=2
  3280						ROT	AC-2,XX		;FRO COMPARISON
  3281						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3282						MOVEI	AC,55		;SETUP BYTE WORD
  3283						SETZ			;SETUP DEST WORD
  3284						DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3285						CAME	,<AC-2>&17	;TEST DEST WORD
  3286						ER12	,SN		;DPB FAILED
  3287						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3288					>
  3289
  3290			012001		SN=SN+1
  3291			000006			XX=XX+6
  3292			000000			ZZ=ZZ+060000
  3293			000600			IFE	ZZ,<ZZ=000600>
  3294	033036	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3295	033037	241 10 0 00 000006 		ROT	AC-2,XX		;FRO COMPARISON
  3296	033040	205 13 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3297	033041	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3298	033042	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3299	033043	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3300	033044	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3301	033045	012 00 0 00 012001 		ER12	,SN		;DPB FAILED
  3302	033046	321 14 0 00 033036 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3303
  3304
  3305			012002		SN=SN+1
  3306			000014			XX=XX+6
  3307			060600			ZZ=ZZ+060000
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 40-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0093

  3308						IFE	ZZ,<ZZ=000600>
  3309	033047	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3310	033050	241 10 0 00 000014 		ROT	AC-2,XX		;FRO COMPARISON
  3311	033051	205 13 0 00 060600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3312	033052	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3313	033053	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3314	033054	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3315	033055	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3316	033056	012 00 0 00 012002 		ER12	,SN		;DPB FAILED
  3317	033057	321 14 0 00 033047 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3318
  3319
  3320			012003		SN=SN+1
  3321			000022			XX=XX+6
  3322			140600			ZZ=ZZ+060000
  3323						IFE	ZZ,<ZZ=000600>
  3324	033060	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3325	033061	241 10 0 00 000022 		ROT	AC-2,XX		;FRO COMPARISON
  3326	033062	205 13 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3327	033063	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3328	033064	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3329	033065	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3330	033066	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3331	033067	012 00 0 00 012003 		ER12	,SN		;DPB FAILED
  3332	033070	321 14 0 00 033060 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3333
  3334
  3335			012004		SN=SN+1
  3336			000030			XX=XX+6
  3337			220600			ZZ=ZZ+060000
  3338						IFE	ZZ,<ZZ=000600>
  3339	033071	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3340	033072	241 10 0 00 000030 		ROT	AC-2,XX		;FRO COMPARISON
  3341	033073	205 13 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3342	033074	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3343	033075	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3344	033076	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3345	033077	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3346	033100	012 00 0 00 012004 		ER12	,SN		;DPB FAILED
  3347	033101	321 14 0 00 033071 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3348
  3349
  3350			012005		SN=SN+1
  3351			000036			XX=XX+6
  3352			300600			ZZ=ZZ+060000
  3353						IFE	ZZ,<ZZ=000600>
  3354	033102	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3355	033103	241 10 0 00 000036 		ROT	AC-2,XX		;FRO COMPARISON
  3356	033104	205 13 0 00 300600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3357	033105	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3358	033106	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3359	033107	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3360	033110	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3361	033111	012 00 0 00 012005 		ER12	,SN		;DPB FAILED
  3362	033112	321 14 0 00 033102 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 40-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0094

  3363
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 41
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0095

  3364					;INST-IDPB
  3365					;INCREASING S FIELD
  3366					;CALCULATE NEW P FIELD, INCREMENT
  3367					;BYTE WORD ADDRESS
  3368					;P FIELD=0
  3369					;S FIELD=6,14,22,30,36
  3370					;BYTE WORD=77
  3371					;AN ERROR WILL OCCUR IF IDPB FAILS
  3372					;TO DEPOSIT CORRECTLY
  3373
  3374			000011			AC=11
  3375						SAVEAC	(1,1)^
  3376	033113	201 13 0 00 033113 		MOVEI	AC+2,.		;SAVE TEST PC
  3377	033114	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  3378	033115	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3379	033116	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3380
  3381			012100		SN=12100
  3382			000000			XX=0
  3383			000000			ZZ=000000
  3384
  3385							;TEST IDPB
  3386					G12100:	REPEAT	^D5,<
  3387					SN=SN+1
  3388						XX=XX-6
  3389						ZZ=ZZ+600
  3390						MOVEI	AC-2,77		;SETUP AC-2
  3391						ROT	AC-2,XX		;FOR COMPARISON
  3392						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3393						MOVEI	AC,77		;SETUP BYTE WORD
  3394						SETZ	1,		;SETUP DEST WORD
  3395						IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3396						CAME	1,<AC-2>&17	;TEST DEST WORD
  3397						ER12	1,SN		;IDPB FAILED
  3398						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3399					>
  3400
  3401			012101		SN=SN+1
  3402		777777	777772			XX=XX-6
  3403			000600			ZZ=ZZ+600
  3404	033117	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3405	033120	241 07 0 00 777772 		ROT	AC-2,XX		;FOR COMPARISON
  3406	033121	205 12 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3407	033122	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3408	033123	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3409	033124	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3410	033125	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3411	033126	012 01 0 00 012101 		ER12	1,SN		;IDPB FAILED
  3412	033127	321 13 0 00 033117 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3413
  3414
  3415			012102		SN=SN+1
  3416		777777	777764			XX=XX-6
  3417			001400			ZZ=ZZ+600
  3418	033130	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 41-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0096

  3419	033131	241 07 0 00 777764 		ROT	AC-2,XX		;FOR COMPARISON
  3420	033132	205 12 0 00 001400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3421	033133	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3422	033134	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3423	033135	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3424	033136	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3425	033137	012 01 0 00 012102 		ER12	1,SN		;IDPB FAILED
  3426	033140	321 13 0 00 033130 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3427
  3428
  3429			012103		SN=SN+1
  3430		777777	777756			XX=XX-6
  3431			002200			ZZ=ZZ+600
  3432	033141	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3433	033142	241 07 0 00 777756 		ROT	AC-2,XX		;FOR COMPARISON
  3434	033143	205 12 0 00 002200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3435	033144	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3436	033145	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3437	033146	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3438	033147	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3439	033150	012 01 0 00 012103 		ER12	1,SN		;IDPB FAILED
  3440	033151	321 13 0 00 033141 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3441
  3442
  3443			012104		SN=SN+1
  3444		777777	777750			XX=XX-6
  3445			003000			ZZ=ZZ+600
  3446	033152	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3447	033153	241 07 0 00 777750 		ROT	AC-2,XX		;FOR COMPARISON
  3448	033154	205 12 0 00 003000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3449	033155	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3450	033156	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3451	033157	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3452	033160	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3453	033161	012 01 0 00 012104 		ER12	1,SN		;IDPB FAILED
  3454	033162	321 13 0 00 033152 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3455
  3456
  3457			012105		SN=SN+1
  3458		777777	777742			XX=XX-6
  3459			003600			ZZ=ZZ+600
  3460	033163	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3461	033164	241 07 0 00 777742 		ROT	AC-2,XX		;FOR COMPARISON
  3462	033165	205 12 0 00 003600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3463	033166	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3464	033167	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3465	033170	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3466	033171	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3467	033172	012 01 0 00 012105 		ER12	1,SN		;IDPB FAILED
  3468	033173	321 13 0 00 033163 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3469
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 42
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0097

  3470					;INST-IDPB
  3471					;P FIELD=44
  3472					;S FIELD=6
  3473					;BYTE WORD=55
  3474					;DEST WORD=-1
  3475					;AN ERROR WILL OCCUR IF IDPB
  3476					;FAILS TO DEPOSIT CORRECTLY
  3477
  3478			000010			AC=10
  3479						SAVEAC	(1,1)^
  3480	033174	201 12 0 00 033174 		MOVEI	AC+2,.		;SAVE TEST PC
  3481	033175	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  3482	033176	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3483	033177	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3484
  3485			012200		SN=12200
  3486			000000			ZZ=0
  3487
  3488	033200	205 11 0 00 440600 	G12200:	MOVSI	AC+1,440600	;SETUP PNPR WORD
  3489							;TEST IDPB
  3490						REPEAT	^D5,<
  3491					SN=SN+1
  3492						ZZ=ZZ-6
  3493						HRLI	AC-2,-1		;SETUP AC-2
  3494						HRRI	AC-2,-23	;FOR COMPARISON
  3495						ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3496						MOVEI	AC,55		;SETUP BYTE WORD
  3497						SETO			;SETUP DEST WORD (AC0)
  3498						IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3499						CAME	,<AC-2>&17	;TEST DEST WORD
  3500						ER12	,SN		;IDPB FAILED
  3501						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3502					>
  3503
  3504			012201		SN=SN+1
  3505		777777	777772			ZZ=ZZ-6
  3506	033201	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3507	033202	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3508	033203	241 06 0 00 777772 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3509	033204	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3510	033205	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3511	033206	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3512	033207	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3513	033210	012 00 0 00 012201 		ER12	,SN		;IDPB FAILED
  3514	033211	321 12 0 00 033201 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3515
  3516
  3517			012202		SN=SN+1
  3518		777777	777764			ZZ=ZZ-6
  3519	033212	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3520	033213	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3521	033214	241 06 0 00 777764 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3522	033215	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3523	033216	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3524	033217	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 42-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0098

  3525	033220	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3526	033221	012 00 0 00 012202 		ER12	,SN		;IDPB FAILED
  3527	033222	321 12 0 00 033212 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3528
  3529
  3530			012203		SN=SN+1
  3531		777777	777756			ZZ=ZZ-6
  3532	033223	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3533	033224	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3534	033225	241 06 0 00 777756 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3535	033226	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3536	033227	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3537	033230	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3538	033231	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3539	033232	012 00 0 00 012203 		ER12	,SN		;IDPB FAILED
  3540	033233	321 12 0 00 033223 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3541
  3542
  3543			012204		SN=SN+1
  3544		777777	777750			ZZ=ZZ-6
  3545	033234	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3546	033235	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3547	033236	241 06 0 00 777750 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3548	033237	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3549	033240	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3550	033241	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3551	033242	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3552	033243	012 00 0 00 012204 		ER12	,SN		;IDPB FAILED
  3553	033244	321 12 0 00 033234 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3554
  3555
  3556			012205		SN=SN+1
  3557		777777	777742			ZZ=ZZ-6
  3558	033245	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3559	033246	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3560	033247	241 06 0 00 777742 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3561	033250	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3562	033251	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3563	033252	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3564	033253	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3565	033254	012 00 0 00 012205 		ER12	,SN		;IDPB FAILED
  3566	033255	321 12 0 00 033245 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3567
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 43
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0099

  3568					;INST-LDB-SPECIAL CASE-S GREATER THAN 44
  3569					;P FIELD=7
  3570					;S FIELD=60,40
  3571					;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
  3572
  3573			000013			AC=13
  3574						SAVEAC	(1,1)^
  3575	033256	201 15 0 00 033256 		MOVEI	AC+2,.		;SAVE TEST PC
  3576	033257	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3577	033260	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3578	033261	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3579
  3580			012210		SN=12210
  3581			100000			XX=100000
  3582
  3583							;TEST LDB
  3584					G12210:	REPEAT	2,<
  3585					SN=SN+1
  3586						XX=XX-2000
  3587						SETOB	0,2
  3588						MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3589						SETZM	AC		;CLEAR DEST WORD
  3590						MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3591						LDB	AC,<AC+1>&17	;LOAD BYTE
  3592						CAME	AC,[002525,,252525]	;TEST DEST WORD
  3593						ER3	AC,SN		;LDB FAILED
  3594						CAME	AC+1,[XX,,1]	;CHECK POINTER
  3595						ER4	AC+1,SN		;POINTER WAS MODIFIED
  3596						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3597					>
  3598
  3599			012211		SN=SN+1
  3600			076000			XX=XX-2000
  3601	033262	477 00 0 00 000002 		SETOB	0,2
  3602	033263	200 01 0 00 040722 		MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3603	033264	402 00 0 00 000013 		SETZM	AC		;CLEAR DEST WORD
  3604	033265	200 14 0 00 040723 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3605	033266	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  3606	033267	312 13 0 00 040724 		CAME	AC,[002525,,252525]	;TEST DEST WORD
  3607	033270	003 13 0 00 012211 		ER3	AC,SN		;LDB FAILED
  3608	033271	312 14 0 00 040723 		CAME	AC+1,[XX,,1]	;CHECK POINTER
  3609	033272	004 14 0 00 012211 		ER4	AC+1,SN		;POINTER WAS MODIFIED
  3610	033273	321 15 0 00 033262 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3611
  3612
  3613			012212		SN=SN+1
  3614			074000			XX=XX-2000
  3615	033274	477 00 0 00 000002 		SETOB	0,2
  3616	033275	200 01 0 00 040722 		MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3617	033276	402 00 0 00 000013 		SETZM	AC		;CLEAR DEST WORD
  3618	033277	200 14 0 00 040725 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3619	033300	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  3620	033301	312 13 0 00 040724 		CAME	AC,[002525,,252525]	;TEST DEST WORD
  3621	033302	003 13 0 00 012212 		ER3	AC,SN		;LDB FAILED
  3622	033303	312 14 0 00 040725 		CAME	AC+1,[XX,,1]	;CHECK POINTER
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 43-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0100

  3623	033304	004 14 0 00 012212 		ER4	AC+1,SN		;POINTER WAS MODIFIED
  3624	033305	321 15 0 00 033274 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3625
  3626					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 43-2
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0101

  3627					;INST-DPB-SPECIAL CASE-S GREATER THAN 44
  3628					;P FIELD=7
  3629					;S FIELD=60,40
  3630					;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
  3631
  3632			012220		SN=12220
  3633			100000			XX=100000
  3634
  3635							;TEST DPB
  3636					G12220:	REPEAT	2,<
  3637					SN=SN+1
  3638						XX=XX-2000
  3639						SETOB	0,2
  3640						MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3641						MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
  3642						MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3643						DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3644						MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3645						MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3646						CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3647						ER2	0,SN		;DPB FAILED
  3648						CAME	1,[646446,,464670]	;CHECK DEST WORD
  3649						ER12	1,SN		;DPB FAILED
  3650						MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3651						MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3652						CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3653						ER2	2,SN		;DPB FAILED
  3654						JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3655					>
  3656
  3657			012221		SN=SN+1
  3658			076000			XX=XX-2000
  3659	033306	477 00 0 00 000002 		SETOB	0,2
  3660	033307	200 01 0 00 040726 		MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3661	033310	200 13 0 00 040727 		MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
  3662	033311	200 14 0 00 040723 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3663	033312	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3664	033313	201 11 0 00 040730 		MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3665	033314	200 11 0 00 040646 		MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3666	033315	312 00 0 00 040734 		CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3667	033316	002 00 0 00 012221 		ER2	0,SN		;DPB FAILED
  3668	033317	312 01 0 00 040735 		CAME	1,[646446,,464670]	;CHECK DEST WORD
  3669	033320	012 01 0 00 012221 		ER12	1,SN		;DPB FAILED
  3670	033321	201 11 0 00 040736 		MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3671	033322	202 11 0 00 040646 		MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3672	033323	312 02 0 00 040734 		CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3673	033324	002 02 0 00 012221 		ER2	2,SN		;DPB FAILED
  3674	033325	321 15 0 00 033306 		JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3675
  3676
  3677			012222		SN=SN+1
  3678			074000			XX=XX-2000
  3679	033326	477 00 0 00 000002 		SETOB	0,2
  3680	033327	200 01 0 00 040726 		MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3681	033330	200 13 0 00 040727 		MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 43-3
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0102

  3682	033331	200 14 0 00 040725 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3683	033332	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3684	033333	201 11 0 00 040730 		MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3685	033334	200 11 0 00 040646 		MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3686	033335	312 00 0 00 040734 		CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3687	033336	002 00 0 00 012222 		ER2	0,SN		;DPB FAILED
  3688	033337	312 01 0 00 040735 		CAME	1,[646446,,464670]	;CHECK DEST WORD
  3689	033340	012 01 0 00 012222 		ER12	1,SN		;DPB FAILED
  3690	033341	201 11 0 00 040736 		MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3691	033342	202 11 0 00 040646 		MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3692	033343	312 02 0 00 040734 		CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3693	033344	002 02 0 00 012222 		ER2	2,SN		;DPB FAILED
  3694	033345	321 15 0 00 033326 		JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3695
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 44
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0103

  3696					;VERIFY THAT THE POINTER IS NOT INCREMENTED BY "ILDB" OR "IDPB" IF 'BIS'
  3697					;IS SET; AND THAT THE SECOND PART OF THE BYTE INSTRUCTION CLEARS 'BIS'
  3698
  3699			000013			AC=13
  3700						SAVEAC	(1,1)^
  3701	033346	201 15 0 00 033346 		MOVEI	AC+2,.		;SAVE TEST PC
  3702	033347	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3703	033350	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3704	033351	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3705
  3706	033352	200 14 0 00 040742 	G12300:	MOVE	AC+1,[220600,,AC-1]	;SETUP BYTE POINTER
  3707	033353	200 13 0 00 040726 		MOVE	AC,[707070,,707070]	;SETUP AC
  3708	033354	200 12 0 00 040743 		MOVE	AC-1,[112233,,445566]	;SETUP BYTE WORD
  3709	033355	254 02 1 00 040744 		JRSTF	@[BIS,,.+1]		;SET 'BIS' FLAG
  3710	033356	134 13 0 00 000014 		ILDB	AC,AC+1
  3711	033357	265 11 0 00 033360 		JSP	AC-2,.+1		;SAVE FLAGS
  3712	033360	302 13 0 00 000033 		CAIE	AC,33			;TEST DEST WORD
  3713	033361	003 13 0 00 012301 		ER3	AC,12301		;INCORRECT BYTE WAS LOADED
  3714	033362	312 14 0 00 040742 		CAME	AC+1,[220600,,AC-1]	;TEST POINTER
  3715	033363	004 14 0 00 012301 		ER4	AC+1,12301		;POINTER WAS INCREMENTED
  3716	033364	603 11 0 00 020000 		TLNE	AC-2,BIS		;EXAMINE 'BIS'
  3717	033365	013 11 0 00 012301 		ER13	AC-2,12301		;'BIS' WAS NOT CLEARED
  3718	033366	322 15 0 00 033352 		JUMPE	AC+2,G12300		;LOOP ON ERROR SWITCH
  3719
  3720	033367	200 14 0 00 040742 	G12400:	MOVE	AC+1,[220600,,AC-1]	;SET-UP BYTE POINTER
  3721	033370	200 13 0 00 040726 		MOVE	AC,[707070,,707070]	;SET-UP AC
  3722	033371	200 12 0 00 040743 		MOVE	AC-1,[112233,,445566]	;SETUP BYTE WORD
  3723	033372	254 02 1 00 040745 		JRSTF	@[BIS,,.+1]		;SET 'BIS' FLAG
  3724	033373	136 13 0 00 000014 		IDPB	AC,AC+1
  3725	033374	265 11 0 00 033375 		JSP	AC-2,.+1		;SAVE FLAGS
  3726	033375	312 14 0 00 040742 		CAME	AC+1,[220600,,AC-1]	;TEST POINTER
  3727	033376	004 14 0 00 012401 		ER4	AC+1,12401		;POINTER WAS INCREMENTED
  3728	033377	312 12 0 00 040746 		CAME	AC-1,[112270,,445566]	;TEST BYTE WORD
  3729	033400	012 12 0 00 012401 		ER12	AC-1,12401		;INCORRECT BYTE WAS DEPOSITED
  3730	033401	603 11 0 00 020000 		TLNE	AC-2,BIS		;EXAMINE 'BIS'
  3731	033402	013 11 0 00 012401 		ER13	AC-2,12401		;'BIS' WAS NOT CLEARED
  3732	033403	321 15 0 00 033367 		JUMPL	AC+2,G12400		;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 47
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0104

  3733					;MSCL BYTE TESTS - IBP
  3734					;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN AN AC
  3735
  3736			000007			AC=7
  3737						SAVEAC	(1,1)^
  3738	033404	201 11 0 00 033404 		MOVEI	AC+2,.		;SAVE TEST PC
  3739	033405	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  3740	033406	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3741	033407	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3742	033410	254 02 1 00 040747 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3743
  3744	033411	205 05 0 00 170600 	G12500:	MOVSI	AC-2,170600	;SETUP POINTER
  3745	033412	205 06 0 00 110600 		MOVSI	AC-1,110600	;RESULT FOR COMPARISON
  3746	033413	133 00 0 00 000005 		IBP	<AC-2>&17		;*IBP SHOULD PLACE 110600,,0 INTO PTR
  3747	033414	312 05 0 00 000006 		CAME	AC-2,<AC-1>&17	;IS PTR = 110600,,0 ?
  3748	033415	005 05 0 00 012501 		ER5	AC-2,12501	;POINTER FAILURE
  3749	033416	321 11 0 00 033411 		JUMPL	AC+2,G12500	;LOOP ON ERROR SWITCH
  3750
  3751					;MSCL BYTE TESTS - IBP
  3752					;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN CORE MEMORY
  3753
  3754			000006			AC=6
  3755						SAVEAC	(1,1)^
  3756	033417	201 10 0 00 033417 		MOVEI	AC+2,.		;SAVE TEST PC
  3757	033420	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  3758	033421	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3759	033422	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3760	033423	254 02 1 00 040750 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3761
  3762	033424	205 04 0 00 170600 	G12510:	MOVSI	AC-2,170600
  3763	033425	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3764	033426	205 04 0 00 110600 		MOVSI	AC-2,110600	;RESULT FOR COMPARISON
  3765	033427	400 05 0 00 000000 		SETZ	AC-1,		;INITIALIZE FOR RESULT
  3766	033430	133 00 0 00 040136 		IBP	BYTBLK		;*IBP SHOULD PLACE 110600,,0 INTO PTR
  3767	033431	200 05 0 00 040136 		MOVE	AC-1,BYTBLK
  3768	033432	312 05 0 00 000004 		CAME	AC-1,<AC-2>&17	;IS PTR = 110600,,0 ?
  3769	033433	005 05 0 00 012511 		ER5	AC-1,12511	;POINTER FAILURE
  3770	033434	321 10 0 00 033424 		JUMPL	AC+2,G12510	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 48
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0105

  3771					;MSCL BYTE TESTS - DPB
  3772					;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE
  3773					;ARE IN AC'S
  3774
  3775			000005			AC=5
  3776						SAVEAC	(1,1)^
  3777	033435	201 07 0 00 033435 		MOVEI	AC+2,.		;SAVE TEST PC
  3778	033436	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  3779	033437	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3780	033440	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3781	033441	254 02 1 00 040751 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3782
  3783	033442	205 03 0 00 170600 	G12600:	MOVSI	AC-2,170600	;SETUP POINTER
  3784	033443	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17
  3785	033444	200 02 0 00 000003 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3786	033445	200 01 0 00 040752 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3787	033446	201 05 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3788	033447	200 04 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3789	033450	137 05 0 00 000003 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 230702.103700 INTO BYTE WORD
  3790	033451	312 03 0 00 000002 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED ?
  3791	033452	005 03 0 00 012601 		ER5	AC-2,12601	;FAILURE - POINTER WAS MODIFIED
  3792	033453	302 05 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3793	033454	003 05 0 00 012602 		ER3	AC,12602	;FAILURE - AC WAS MODIFIED
  3794	033455	312 01 0 00 000004 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3795	033456	012 01 0 00 012603 		ER12	AC-4,12603	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3796	033457	321 07 0 00 033442 		JUMPL	AC+2,G12600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 49
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0106

  3797					;MSCL BYTE TESTS - DPB
  3798					;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
  3799					;BYTE IS IN CORE MEMORY
  3800
  3801			000014			AC=14
  3802						SAVEAC	(1,1)^
  3803	033460	201 16 0 00 033460 		MOVEI	AC+2,.		;SAVE TEST PC
  3804	033461	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  3805	033462	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3806	033463	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3807	033464	254 02 1 00 040754 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3808
  3809	033465	205 12 0 00 170600 	G12610:	MOVSI	AC-2,170600	;SETUP POINTER
  3810	033466	541 12 0 00 040136 		HRRI	AC-2,BYTBLK
  3811	033467	200 11 0 00 000012 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3812	033470	200 14 0 00 040752 		MOVE	AC,[230703,,603700]	;SETUP BYTE WORD
  3813	033471	202 14 0 00 040136 		MOVEM	AC,BYTBLK
  3814	033472	200 13 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3815	033473	201 14 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3816	033474	137 14 0 00 000012 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3817	033475	312 12 0 00 000011 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  3818	033476	005 12 0 00 012611 		ER5	AC-2,12611	;FAILURE - POINTER WAS MODIFIED
  3819	033477	302 14 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3820	033500	003 14 0 00 012612 		ER3	AC,12612	;FAILURE - AC WAS MODIFIED
  3821	033501	200 07 0 00 040136 		MOVE	AC-5,BYTBLK
  3822	033502	312 13 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE DEPOSITED CORRECTLY?
  3823	033503	012 07 0 00 012613 		ER12	AC-5,12613	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3824	033504	321 16 0 00 033465 		JUMPL	AC+2,G12610	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 50
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0107

  3825					;MSCL BYTE TESTS - DPB
  3826					;VERIFY THAT DPB WORKS WHEN BYTE IS IN AN AC AND
  3827					;POINTER IS IN CORE MEMORY
  3828
  3829			000013			AC=13
  3830						SAVEAC	(1,1)^
  3831	033505	201 15 0 00 033505 		MOVEI	AC+2,.		;SAVE TEST PC
  3832	033506	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3833	033507	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3834	033510	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3835	033511	254 02 1 00 040755 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3836
  3837	033512	205 11 0 00 170600 	G12620:	MOVSI	AC-2,170600
  3838	033513	541 11 0 00 000007 		HRRI	AC-2,<AC-4>&17	;POINTER FOR COMPARISON
  3839	033514	202 11 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3840	033515	200 07 0 00 040752 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3841	033516	200 12 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3842	033517	201 13 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3843	033520	137 13 0 00 040136 		DPB	AC,BYTBLK	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3844	033521	200 10 0 00 040136 		MOVE	AC-3,BYTBLK
  3845	033522	312 11 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3846	033523	005 10 0 00 012621 		ER5	AC-3,12621	;FAILURE - POINTER WAS  MODIFIED
  3847	033524	302 13 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3848	033525	003 13 0 00 012622 		ER3	AC,12622	;FAILURE - AC WAS MODIFIED
  3849	033526	312 07 0 00 000012 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3850	033527	012 07 0 00 012523 		ER12	AC-4,12523	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3851	033530	321 05 0 00 033512 		JUMPL	AC+12,G12620	;LOOP ON ERROR SWITCH
  3852
  3853					;MSCL BYTE TESTS - DPB
  3854					;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  3855
  3856			000012			AC=12
  3857						SAVEAC	(1,1)^
  3858	033531	201 14 0 00 033531 		MOVEI	AC+2,.		;SAVE TEST PC
  3859	033532	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  3860	033533	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3861	033534	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3862	033535	254 02 1 00 040756 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3863
  3864	033536	205 10 0 00 170600 	G12630:	MOVSI	AC-2,170600
  3865	033537	541 10 0 00 040141 		HRRI	AC-2,BYTBLK+3	;POINTER FOR COMPARISON
  3866	033540	202 10 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3867	033541	200 06 0 00 040752 		MOVE	AC-4,[230703,,603700]
  3868	033542	202 06 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  3869	033543	200 11 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3870	033544	201 12 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3871	033545	137 12 0 00 040136 		DPB	AC,BYTBLK	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3872	033546	200 06 0 00 040136 		MOVE	AC-4,BYTBLK
  3873	033547	312 10 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3874	033550	005 06 0 00 012631 		ER5	AC-4,12631	;FAILURE - POINTER WAS MODIFIED
  3875	033551	200 07 0 00 040141 		MOVE	AC-3,BYTBLK+3
  3876	033552	312 11 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE DEPOSITED CORRECTLY?
  3877	033553	012 07 0 00 012632 		ER12	AC-3,12632	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3878	033554	302 12 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3879	033555	003 12 0 00 012633 		ER3	AC,12633	;FAILURE - AC WAS MODIFIED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 50-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0108

  3880	033556	321 14 0 00 033536 		JUMPL	AC+2,G12630	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 51
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0109

  3881					;MSCL BYTE TESTS - IDPB
  3882					;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE
  3883					;ARE IN AC'S
  3884
  3885			000011			AC=11
  3886						SAVEAC	(1,1)^
  3887	033557	201 13 0 00 033557 		MOVEI	AC+2,.		;SAVE TEST PC
  3888	033560	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  3889	033561	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3890	033562	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3891	033563	254 02 1 00 040757 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3892
  3893	033564	205 07 0 00 250600 	G12700:	MOVSI	AC-2,250600	;SETUP POINTER
  3894	033565	541 07 0 00 000005 		HRRI	AC-2,<AC-4>&17
  3895	033566	200 06 0 00 000007 		MOVE	AC-3,<AC-2>&17
  3896	033567	505 06 0 00 170600 		HRLI	AC-3,170600	;POINTER FOR COMPARISON
  3897	033570	200 05 0 00 040752 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3898	033571	201 11 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3899	033572	200 10 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3900	033573	136 11 0 00 000007 		IDPB	AC,<AC-2>&17	;IDPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3901	033574	312 07 0 00 000006 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY
  3902	033575	005 07 0 00 012701 		ER5	AC-2,12701	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  3903	033576	302 11 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED
  3904	033577	003 11 0 00 012700 		ER3	AC,12700	;FAILURE - AC WAS MODIFIED
  3905	033600	312 05 0 00 000010 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3906	033601	012 05 0 00 012703 		ER12	AC-4,12703	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3907	033602	321 13 0 00 033564 		JUMPL	AC+2,G12700	;LOOP ON ERROR SWITCH
  3908
  3909					;MSCL BYTE TESTS - IDPB
  3910					;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
  3911					;BYTE IS IN CORE MEMORY
  3912
  3913			000010			AC=10
  3914						SAVEAC	(1,1)^
  3915	033603	201 12 0 00 033603 		MOVEI	AC+2,.		;SAVE TEST PC
  3916	033604	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  3917	033605	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3918	033606	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3919	033607	254 02 1 00 040760 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3920
  3921	033610	205 06 0 00 250600 	G12710:	MOVSI	AC-2,250600	;SETUP POINTER
  3922	033611	541 06 0 00 040136 		HRRI	AC-2,BYTBLK
  3923	033612	200 05 0 00 000006 		MOVE	AC-3,<AC-2>&17
  3924	033613	505 05 0 00 170600 		HRLI	AC-3,170600	;POINTER FOR COMPARISON
  3925	033614	200 10 0 00 040752 		MOVE	AC,[230703,,603700]	;SETUP BYTE WORD
  3926	033615	202 10 0 00 040136 		MOVEM	AC,BYTBLK
  3927	033616	200 07 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3928	033617	201 10 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3929	033620	136 10 0 00 000006 		IDPB	AC,<AC-2>&17	;IDPB SHOULD PLACE 230702,,103700 INTO
  3930									;BYTE WORD AND INCREMENT POINTER
  3931	033621	312 06 0 00 000005 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTED
  3932	033622	012 06 0 00 012713 		ER12	AC-2,12713	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3933	033623	321 12 0 00 033610 		JUMPL	AC+2,G12710	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 52
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0110

  3934					;MSCL BYTE TESTS - IDPB
  3935					;VERIFY THAT IDPB WORKS WHEN BYTE IS IN AN AC AND
  3936					;POINTER IS IN CORE MEMORY
  3937
  3938			000007			AC=7
  3939						SAVEAC	(1,1)^
  3940	033624	201 11 0 00 033624 		MOVEI	AC+2,.		;SAVE TEST PC
  3941	033625	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  3942	033626	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3943	033627	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3944
  3945	033630	254 02 1 00 040761 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3946
  3947	033631	205 05 0 00 250600 	G12720:	MOVSI	AC-2,250600
  3948	033632	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17
  3949	033633	202 05 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3950	033634	505 05 0 00 170600 		HRLI	AC-2,170600	;POINTER FOR COMPARISON
  3951	033635	200 03 0 00 040752 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3952	033636	200 06 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3953	033637	201 07 0 00 654321 		MOVEI	AC,654321	;;SETUP AC
  3954	033640	136 07 0 00 040136 		IDPB	AC,BYTBLK	;IDPB SHOULD PLACE 230702,,103700 INTO
  3955									;BYTE WORD AND INCREMENT POINTER
  3956	033641	200 04 0 00 040136 		MOVE	AC-3,BYTBLK
  3957	033642	312 05 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY
  3958	033643	005 04 0 00 012721 		ER5	AC-3,12721	;FAILURE - POINTER WAS NOT INCREMENTED CORRECTLY
  3959	033644	302 07 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3960	033645	003 07 0 00 012722 		ER3	AC,12722	;FAILURE - AC WAS MODIFIED
  3961	033646	312 03 0 00 000006 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY
  3962	033647	012 03 0 00 012723 		ER12	AC-4,12723	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3963	033650	321 11 0 00 033631 		JUMPL	AC+2,G12720	;LOOP ON ERROR SWITCH
  3964
  3965					;MSCL BYTE TESTS - IDPB
  3966					;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  3967
  3968			000006			AC=6
  3969						SAVEAC	(1,1)^
  3970	033651	201 10 0 00 033651 		MOVEI	AC+2,.		;SAVE TEST PC
  3971	033652	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  3972	033653	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3973	033654	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3974	033655	254 02 1 00 040762 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3975
  3976	033656	205 04 0 00 250600 	G12730:	MOVSI	AC-2,250600
  3977	033657	541 04 0 00 040141 		HRRI	AC-2,BYTBLK+3
  3978	033660	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3979	033661	505 04 0 00 170600 		HRLI	AC-2,170600	;POINTER FOR COMPARISON
  3980	033662	200 02 0 00 040752 		MOVE	AC-4,[230703,,603700]
  3981	033663	202 02 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  3982	033664	200 05 0 00 040753 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3983	033665	201 06 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3984	033666	136 06 0 00 040136 		IDPB	AC,BYTBLK	;IDPB SHOULD PLACE 230702,,103700 INTO
  3985									;BYTE WORD AND INCREMENT POINTER
  3986	033667	200 02 0 00 040136 		MOVE	AC-4,BYTBLK
  3987	033670	312 04 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3988	033671	005 02 0 00 012731 		ER5	AC-4,12731	;FAILURE - POINTER WAS MODIFIED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 52-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0111

  3989	033672	200 03 0 00 040141 		MOVE	AC-3,BYTBLK+3
  3990	033673	312 05 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE DEPOSITED CORRECTLY
  3991	033674	012 03 0 00 012732 		ER12	AC-3,12732	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3992	033675	302 06 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED
  3993	033676	003 06 0 00 012733 		ER3	AC,12733	;FAILURE - AC WAS MODIFIED
  3994	033677	321 10 0 00 033656 		JUMPL	AC+2,G12730	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 53
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0112

  3995					;MSCL BYTE TESTS - LDB
  3996					;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE
  3997					;ARE IN AC'S
  3998
  3999			000005			AC=5
  4000						SAVEAC	(1,1)^
  4001	033700	201 07 0 00 033700 		MOVEI	AC+2,.		;SAVE TEST PC
  4002	033701	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  4003	033702	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4004	033703	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4005	033704	254 02 1 00 040763 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4006
  4007	033705	205 03 0 00 170600 	G13000:	MOVSI	AC-2,170600	;SETUP POINTER
  4008	033706	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17
  4009	033707	200 02 0 00 000003 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  4010	033710	200 01 0 00 040752 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4011	033711	400 05 0 00 000000 		SETZ	AC,		;SETUP AC
  4012	033712	200 04 0 00 000001 		MOVE	AC-1,<AC-4>&17	;BYTE WORD FOR COMPARISON
  4013	033713	135 05 0 00 000003 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,36 INTO THE AC
  4014	033714	312 03 0 00 000002 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  4015	033715	005 03 0 00 013001 		ER5	AC-2,13001	;FAILURE - POINTER WAS MODIFIED
  4016	033716	302 05 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4017	033717	003 05 0 00 013002 		ER3	AC,13002	;FAILURE - BYTE NOT LOADED CORRECTLY.
  4018	033720	312 01 0 00 000004 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED
  4019	033721	012 01 0 00 013003 		ER12	AC-4,13003	;FAILURE - BYTE WORD WAS MODIFIED
  4020	033722	321 07 0 00 033705 		JUMPL	AC+2,G13000	;LOOP ON ERROR SWITCH
  4021
  4022					;MSCL BYTE TESTS - LDB
  4023					;VERIFY THAT LDB WORKS WHEN POINTER IS IN AN AC AND
  4024					;BYTE IS IN CORE MEMORY
  4025
  4026			000014			AC=14
  4027						SAVEAC	(1,1)^
  4028	033723	201 16 0 00 033723 		MOVEI	AC+2,.		;SAVE TEST PC
  4029	033724	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4030	033725	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4031	033726	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4032	033727	254 02 1 00 040764 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4033
  4034	033730	205 12 0 00 170600 	G13010:	MOVSI	AC-2,170600	;SETUP POINTER
  4035	033731	541 12 0 00 040136 		HRRI	AC-2,BYTBLK
  4036	033732	200 11 0 00 000012 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  4037	033733	200 13 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4038	033734	202 13 0 00 040136 		MOVEM	AC-1,BYTBLK	;SETUP BYTE WORD
  4039	033735	400 14 0 00 000000 		SETZ	AC,		;SETUP AC
  4040	033736	135 14 0 00 000012 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,36 INTO THE AC
  4041	033737	312 12 0 00 000011 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  4042	033740	005 12 0 00 013011 		ER5	AC-2,13011	;FAILURE - POINTER WAS MODIFIED
  4043	033741	302 14 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4044	033742	003 14 0 00 013012 		ER3	AC,13012	;FAILURE - BYTE NOT LOADED CORRECTLY
  4045	033743	200 07 0 00 040136 		MOVE	AC-5,BYTBLK
  4046	033744	312 13 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE WORD MODIFIED?
  4047	033745	012 07 0 00 013013 		ER12	AC-5,13013	;FAILURE - BYTE WORD WAS MODIFIED
  4048	033746	321 16 0 00 033730 		JUMPL	AC+2,G13010	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 54
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0113

  4049					;MSCL BYTE TESTS - LDB
  4050					;VERIFY THAT LDB WORKS WHEN BYTE IS IN AN AC AND
  4051					;POINTER IS IN CORE MEMORY.
  4052
  4053			000013			AC=13
  4054						SAVEAC	(1,1)^
  4055	033747	201 15 0 00 033747 		MOVEI	AC+2,.		;SAVE TEST PC
  4056	033750	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4057	033751	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4058	033752	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4059	033753	254 02 1 00 040765 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4060
  4061	033754	205 11 0 00 170600 	G13020:	MOVSI	AC-2,170600
  4062	033755	541 11 0 00 000007 		HRRI	AC-2,<AC-4>&17	;POINTER FOR COMPARISON
  4063	033756	202 11 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4064	033757	200 07 0 00 040752 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4065	033760	200 12 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4066	033761	400 13 0 00 000000 		SETZ	AC,		;SETUP AC
  4067	033762	135 13 0 00 040136 		LDB	AC,BYTBLK	;LDB SHOULD PLACE 20,,36 INTO THE AC
  4068	033763	200 10 0 00 040136 		MOVE	AC-3,BYTBLK
  4069	033764	312 11 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  4070	033765	005 10 0 00 013021 		ER5	AC-3,13021	;FAILURE - POINTER WAS MODIFIED
  4071	033766	302 13 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4072	033767	003 13 0 00 013022 		ER3	AC,13022	;FAILURE - BYTE NOT LOADED CORRECTLY
  4073	033770	312 07 0 00 000012 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4074	033771	012 07 0 00 013023 		ER12	AC-4,13023	;FAILURE - BYTE WORD WAS MODIFIED
  4075	033772	321 15 0 00 033754 		JUMPL	AC+2,G13020	;LOOP ON ERROR SWITCH
  4076
  4077					;MSCL BYTE TESTS - LDB
  4078					;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY.
  4079
  4080			000012			AC=12
  4081						SAVEAC	(1,1)^
  4082	033773	201 14 0 00 033773 		MOVEI	AC+2,.		;SAVE TEST PC
  4083	033774	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4084	033775	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4085	033776	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4086	033777	254 02 1 00 040766 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4087
  4088	034000	205 10 0 00 170600 	G13030:	MOVSI	AC-2,170600
  4089	034001	541 10 0 00 040141 		HRRI	AC-2,BYTBLK+3	;POINTER FOR COMPARISON
  4090	034002	202 10 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4091	034003	200 06 0 00 040752 		MOVE	AC-4,[230703,,603700]
  4092	034004	202 06 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  4093	034005	200 11 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4094	034006	400 12 0 00 000000 		SETZ	AC,		;SETUP AC
  4095	034007	135 12 0 00 040136 		LDB	AC,BYTBLK	;LDB SHOULD PLACE 20,,36 INTO THE AC
  4096	034010	200 06 0 00 040136 		MOVE	AC-4,BYTBLK
  4097	034011	312 10 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  4098	034012	005 06 0 00 013031 		ER5	AC-4,13031	;FAILURE - POINTER WAS MODIFIED
  4099	034013	200 07 0 00 040141 		MOVE	AC-3,BYTBLK+3
  4100	034014	312 11 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE WORD MODIFIED?
  4101	034015	012 07 0 00 013032 		ER12	AC-3,13032	;FAILURE - BYTE WORD WAS MODIFIED
  4102	034016	302 12 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4103	034017	003 12 0 00 013033 		ER3	AC,13033	;FAILURE - BYTE NOT LOADED CORRECTLY
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 54-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0114

  4104	034020	321 14 0 00 034000 		JUMPL	AC+2,G13030	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 55
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0115

  4105					;MSCL BYTE TESTS - ILDB
  4106					;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE
  4107					;ARE IN AC'S.
  4108
  4109			000011			AC=11
  4110						SAVEAC	(1,1)^
  4111	034021	201 13 0 00 034021 		MOVEI	AC+2,.		;SAVE TEST PC
  4112	034022	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  4113	034023	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4114	034024	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4115	034025	254 02 1 00 040767 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4116
  4117	034026	205 07 0 00 170600 	G13100:	MOVSI	AC-2,170600	;SETUP POINTER
  4118	034027	541 07 0 00 000005 		HRRI	AC-2,<AC-4>&17
  4119	034030	200 06 0 00 000007 		MOVE	AC-3,<AC-2>&17
  4120	034031	505 06 0 00 110600 		HRLI	AC-3,110600	;POINTER FOR COMPARISON
  4121	034032	200 05 0 00 040752 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4122	034033	400 11 0 00 000000 		SETZ	AC,		;SETUP AC
  4123	034034	200 10 0 00 000005 		MOVE	AC-1,<AC-4>&17	;BYTE WORD FOR COMPARISON
  4124	034035	134 11 0 00 000007 		ILDB	AC,<AC-2>&17	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4125									;AND INCREMENT POINTER
  4126	034036	312 07 0 00 000006 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY?
  4127	034037	005 07 0 00 003101 		ER5	AC-2,3101	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4128	034040	302 11 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4129	034041	003 11 0 00 013102 		ER3	AC,13102	;FAILURE - BYTE NOT LOADED CORRECTLY
  4130	034042	312 05 0 00 000010 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4131	034043	012 05 0 00 013103 		ER12	AC-4,13103	;FAILURE - BYTE WORD WAS MODIFIED
  4132	034044	321 13 0 00 034026 		JUMPL	AC+2,G13100	;LOOP ON ERROR SWITCH
  4133
  4134					;MSCL BYTE TESTS - ILDB
  4135					;VERIFY THAT ILDB WORKS WHEN POINTER IS IN AN AC AND
  4136					;BYTE IS IN CORE MEMORY
  4137
  4138			000010			AC=10
  4139						SAVEAC	(1,1)^
  4140	034045	201 12 0 00 034045 		MOVEI	AC+2,.		;SAVE TEST PC
  4141	034046	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  4142	034047	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4143	034050	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4144	034051	254 02 1 00 040770 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4145
  4146	034052	205 06 0 00 170600 	G13110:	MOVSI	AC-2,170600	;SETUP POINTER
  4147	034053	541 06 0 00 040136 		HRRI	AC-2,BYTBLK
  4148	034054	200 05 0 00 000006 		MOVE	AC-3,<AC-2>&17
  4149	034055	505 05 0 00 110600 		HRLI	AC-3,110600	;POINTER FOR COMPARISON
  4150	034056	200 07 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTEWORD FOR COMPARISON
  4151	034057	202 10 0 00 040136 		MOVEM	AC,BYTBLK	;SETUP BYTE WORD
  4152	034060	400 10 0 00 000000 		SETZ	AC,		;SETUP AC
  4153	034061	134 10 0 00 000006 		ILDB	AC,<AC-2>&17	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4154									;AND INCREMENT POINTER
  4155	034062	312 06 0 00 000005 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY?
  4156	034063	005 06 0 00 013111 		ER5	AC-2,13111	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4157	034064	302 10 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4158	034065	003 10 0 00 013012 		ER3	AC,13012	;FAILURE - BYTE NOT LOADED CORRECTLY
  4159	034066	200 03 0 00 040136 		MOVE	AC-5,BYTBLK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 55-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0116

  4160	034067	312 07 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE WORD MODIFIED?
  4161	034070	012 03 0 00 013113 		ER12	AC-5,13113	;FAILURE - BYTE WORD WAS MODIFIED
  4162	034071	321 12 0 00 034052 		JUMPL	AC+2,G13110	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 56
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0117

  4163					;MSCL BYTE TESTS - ILDB
  4164					;VERIFY THAT ILDB WORKS WHEN BYTE IS IN AN AC AND
  4165					;POINTER IS IN CORE MEMORY
  4166
  4167			000007			AC=7
  4168						SAVEAC	(1,1)^
  4169	034072	201 11 0 00 034072 		MOVEI	AC+2,.		;SAVE TEST PC
  4170	034073	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4171	034074	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4172	034075	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4173	034076	254 02 1 00 040771 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4174
  4175	034077	205 05 0 00 170600 	G13120:	MOVSI	AC-2,170600
  4176	034100	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17
  4177	034101	202 05 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4178	034102	505 05 0 00 110600 		HRLI	AC-2,110600	;POINTER FOR COMPARISON
  4179	034103	200 03 0 00 040752 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4180	034104	200 06 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4181	034105	400 00 0 00 000007 		SETZ	AC		;SETUP AC
  4182	034106	134 07 0 00 040136 		ILDB	AC,BYTBLK	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4183									;AND INCREMENT POINTER
  4184	034107	200 04 0 00 040136 		MOVE	AC-3,BYTBLK
  4185	034110	312 05 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY?
  4186	034111	005 04 0 00 013121 		ER5	AC-3,13121	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4187	034112	302 07 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4188	034113	003 07 0 00 013122 		ER3	AC,13122	;FAILURE - BYTE NOT LOADED CORRECTLY
  4189	034114	312 03 0 00 000006 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4190	034115	012 03 0 00 013123 		ER12	AC-4,13123	;FAILURE - BYTE WORD WAS MODIFIED
  4191	034116	321 11 0 00 034077 		JUMPL	AC+2,G13120	;LOOP ON ERROR SWITCH
  4192
  4193					;MSCL BYTE TESTS - ILDB
  4194					;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  4195
  4196			000006			AC=6
  4197						SAVEAC	(1,1)^
  4198	034117	201 10 0 00 034117 		MOVEI	AC+2,.		;SAVE TEST PC
  4199	034120	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  4200	034121	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4201	034122	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4202	034123	254 02 1 00 040772 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4203
  4204	034124	205 04 0 00 170600 	G13130:	MOVSI	AC-2,170600
  4205	034125	541 04 0 00 040141 		HRRI	AC-2,BYTBLK+3
  4206
  4207	034126	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4208	034127	505 04 0 00 110600 		HRLI	AC-2,110600	;POINTER FOR COMPARISON
  4209	034130	200 02 0 00 040752 		MOVE	AC-4,[230703,,603700]
  4210	034131	202 02 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  4211	034132	200 05 0 00 040752 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4212	034133	400 06 0 00 000000 		SETZ	AC,		;SETUP AC
  4213	034134	134 06 0 00 040136 		ILDB	AC,BYTBLK	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4214									;AND INCREMENT THE POINTER
  4215	034135	200 02 0 00 040136 		MOVE	AC-4,BYTBLK
  4216	034136	312 04 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY?
  4217	034137	005 02 0 00 013131 		ER5	AC-4,13131	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 56-1
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0118

  4218	034140	200 03 0 00 040141 		MOVE	AC-3,BYTBLK+3
  4219	034141	312 05 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE WORD MODIFIED?
  4220	034142	012 03 0 00 013132 		ER12	AC-3,13132	;FAILURE - BYTE WORD WAS MODIFIED
  4221	034143	302 06 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4222	034144	003 06 0 00 013133 		ER3	AC,13133	;FAILURE - BYTE NOT LOADED CORRECTLY
  4223	034145	321 10 0 00 034124 		JUMPL	AC+2,G13130	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 57
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0119

  4224					;TEST LDB WHEN SIZE OF BYTE IS ZERO BITS
  4225					;THE AC SHOULD BE CLEARED
  4226
  4227			000005			AC=5
  4228						SAVEAC	(1,1)^
  4229	034146	201 07 0 00 034146 		MOVEI	AC+2,.		;SAVE TEST PC
  4230	034147	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  4231	034150	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4232	034151	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4233	034152	254 02 1 00 040773 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4234
  4235	034153	201 03 0 00 000001 	G13200:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4236	034154	474 05 0 00 000000 		SETO	AC,		;SETUP AC
  4237	034155	551 01 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4238	034156	135 05 0 00 000001 		LDB	AC,<AC-4>&17	;LDB SHOULD CLEAR THE AC
  4239	034157	302 05 0 00 000000 		CAIE	AC,0		;WAS AC CLEARED?
  4240	034160	003 05 0 00 013201 		ER3	AC,13201	;FAILURE - AC WAS NOT CLEARED
  4241	034161	302 03 0 00 000001 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED?
  4242	034162	005 03 0 00 013202 		ER5	AC-2,13202	;FAILURE - POINTER WAS MODIFIED
  4243	034163	302 01 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4244	034164	012 01 0 00 013203 		ER12	AC-4,13203	;FAILURE - BYTE WORD WAS MODIFIED
  4245	034165	321 07 0 00 034153 		JUMPL	AC+2,G13200	;LOOP ON ERROR SWITCH
  4246
  4247					;TEST ILDB WHEN SIZE OF BYTE IS ZERO BITS
  4248					;THE AC SHOULD BE CLEARED
  4249
  4250			000014			AC=14
  4251						SAVEAC	(1,1)^
  4252	034166	201 16 0 00 034166 		MOVEI	AC+2,.		;SAVE TEST PC
  4253	034167	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4254	034170	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4255	034171	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4256	034172	254 02 1 00 040774 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4257
  4258	034173	201 12 0 00 000010 	G13210:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4259	034174	474 14 0 00 000000 		SETO	AC,		;SETUP AC
  4260	034175	551 10 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4261	034176	134 14 0 00 000010 		ILDB	AC,<AC-4>&17	;ILDB SHOULD CLEAR THE AC
  4262	034177	302 14 0 00 000000 		CAIE	AC,0		;WAS AC CLEARED
  4263	034200	003 14 0 00 013211 		ER3	AC,13211	;FAILURE - AC WAS NOT CLEARED
  4264	034201	302 12 0 00 000010 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED
  4265	034202	005 12 0 00 013212 		ER5	AC-2,13212	;FAILURE - POINTER WAS MODIFIED
  4266	034203	302 10 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED?
  4267	034204	012 10 0 00 013213 		ER12	AC-4,13213	;FAILURE - BYTE WORD WAS MODIFIED
  4268	034205	321 16 0 00 034173 		JUMPL	AC+2,G13210	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 58
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0120

  4269					;TEST DPB WHEN SIZE OF BYTE IS ZERO BITS
  4270					;THE AC SHOULD NOT BE AFFECTED
  4271
  4272			000013			AC=13
  4273						SAVEAC	(1,1)^
  4274	034206	201 15 0 00 034206 		MOVEI	AC+2,.		;SAVE TEST PC
  4275	034207	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4276	034210	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4277	034211	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4278	034212	254 02 1 00 040775 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4279
  4280	034213	201 11 0 00 000007 	G13220:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4281	034214	474 13 0 00 000000 		SETO	AC,		;SETUP AC
  4282	034215	551 07 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4283	034216	137 13 0 00 000007 		DPB	AC,<AC-4>&17	;DPB SHOULD NOT MODIFY ANYTHING
  4284	034217	312 13 0 00 040734 		CAME	AC,[-1]		;WAS AC MODIFIED?
  4285	034220	003 13 0 00 013221 		ER3	AC,13221	;FAILURE - AC WAS MODIFIED
  4286	034221	302 11 0 00 000007 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED?
  4287	034222	005 11 0 00 013222 		ER5	AC-2,13222	;FAILURE - POINTER WAS MODIFIED
  4288	034223	302 07 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED?
  4289	034224	012 07 0 00 013223 		ER12	AC-4,13223	;FAILURE - BYTE WORD WAS MODIFIED
  4290	034225	321 15 0 00 034213 		JUMPL	AC+2,G13220	;LOOP ON ERROR SWITCH
  4291
  4292					;TEST IDPB WHEN SIZE OF BYTE IS ZERO BITS
  4293					;TITE AC SHOULD NOT BE AFFECTED
  4294
  4295			000012			AC=12
  4296						SAVEAC	(1,1)^
  4297	034226	201 14 0 00 034226 		MOVEI	AC+2,.		;SAVE TEST PC
  4298	034227	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4299	034230	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4300	034231	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4301	034232	254 02 1 00 040776 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4302
  4303	034233	201 10 0 00 000006 	G13230:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4304	034234	474 12 0 00 000000 		SETO	AC,		;SETUP AC
  4305	034235	551 06 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4306	034236	136 12 0 00 000006 		IDPB	AC,<AC-4>&17	;IDPB SHOULD NOT MODIFY ANYTHING
  4307	034237	312 12 0 00 040734 		CAME	AC,[-1]	;WAS AC MODIFIED?
  4308	034240	003 12 0 00 013231 		ER3	AC,13231	;FAILURE - AC WAS MODIFIED
  4309	034241	302 10 0 00 000006 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED
  4310	034242	005 10 0 00 013232 		ER5	AC-2,13232	;FAILURE - POINTER WAS MODIFIED
  4311	034243	302 06 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4312	034244	012 06 0 00 013233 		ER12	AC-4,13233	;FAILURE - BYTE WORD WAS MODIFIED
  4313	034245	321 14 0 00 034233 		JUMPL	AC+2,G13230	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 59
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0121

  4314					;TEST IBP WHEN SIZE OF BYTE IS ZERO BITS
  4315					;THE AC SHOULD NOT BE AFFECTED
  4316
  4317			000011			AC=11
  4318						SAVEAC	(1,1)^
  4319	034246	201 13 0 00 034246 		MOVEI	AC+2,.		;SAVE TEST PC
  4320	034247	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  4321	034250	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4322	034251	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4323	034252	254 02 1 00 040777 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4324
  4325	034253	201 07 0 00 000005 	G13240:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4326	034254	474 11 0 00 000000 		SETO	AC,		;SETUP AC
  4327	034255	551 05 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4328	034256	336 00 0 00 030041 		SKIPN	KLFLG
  4329	034257	133 11 0 00 000005 		IBP	AC,<AC-4>&17	;IBP SHOULD NOT MODIFY ANYTHING
  4330	034260	332 00 0 00 030041 		SKIPE	KLFLG
  4331	034261	133 00 0 00 000005 		IBP	0,<AC-4>&17	;KL10, DON'T DO ADJBP !
  4332	034262	312 11 0 00 040734 		CAME	AC,[-1]		;WAS AC MODIFIED?
  4333	034263	003 11 0 00 013241 		ER3	AC,13241	;FAILURE - AC WAS MODIFIED
  4334	034264	302 07 0 00 000005 		CAIE	AC-2,<AC-4>&17	;WASPOINTER MODIFIED?
  4335	034265	005 07 0 00 013242 		ER5	AC-2,13242	;FAILURE - POINTER WAS MODIFIED
  4336	034266	302 05 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4337	034267	012 05 0 00 013243 		ER12	AC-4,13243	;FAILURE - BYTE WORD WAS MODIFIED
  4338	034270	321 13 0 00 034253 		JUMPL	AC+2,G13240	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 60
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0122

  4339					;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
  4340
  4341			000010			AC=10
  4342						SAVEAC	(1,1)^
  4343	034271	201 12 0 00 034271 		MOVEI	AC+2,.		;SAVE TEST PC
  4344	034272	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  4345	034273	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4346	034274	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4347	034275	254 02 1 00 041000 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4348
  4349	034276	205 06 0 00 430100 	G13300:	MOVSI	AC-2,430100
  4350	034277	541 06 0 00 000004 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4351	034300	200 07 0 00 000006 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4352	034301	561 10 0 00 000000 		HRROI	AC,0		;SETUP AC
  4353	034302	515 04 0 00 777777 		HRLZI	AC-4,-1		;SETUP BYTE WORD
  4354	034303	200 05 0 00 000004 		MOVE	AC-3,<AC-4>&17	;BYTE OWRD FOR COMPARISON
  4355	034304	135 10 0 00 000006 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,1 INTO THE AC
  4356	034305	302 10 0 00 000001 		CAIE	AC,1		;LOOP ON ERROR SWITCH
  4357	034306	003 10 0 00 013301 		ER3	AC,13301	;FAILURE - BYTE NOT LOADED CORRECTLY
  4358	034307	312 06 0 00 000007 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED?
  4359	034310	005 06 0 00 013302 		ER5	AC-2,13302	;FAILURE POINTER WAS MODIFIED
  4360	034311	312 04 0 00 000005 		CAME	AC-4,<AC-3>&17	;WAS BYTE WORD MODIFIED?
  4361	034312	012 04 0 00 013303 		ER12	AC-4,13303	;FAILURE - BYTE OWRD WAS MODIFIED
  4362	034313	321 12 0 00 034276 		JUMPL	AC+2,G13300	;LOOP ON ERROR SWITCH
  4363
  4364					;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
  4365
  4366			000007			AC=7
  4367						SAVEAC	(1,1)^
  4368	034314	201 11 0 00 034314 		MOVEI	AC+2,.		;SAVE TEST PC
  4369	034315	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4370	034316	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4371	034317	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4372	034320	254 02 1 00 041001 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4373
  4374	034321	205 05 0 00 000100 	G13310:	MOVSI	AC-2,100
  4375	034322	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4376	034323	200 06 0 00 000005 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4377	034324	561 07 0 00 000000 		HRROI	AC,0		;SETUP AC
  4378	034325	525 03 0 00 000000 		HRLOI	AC-4,0		;SETUP BYTE WORD
  4379	034326	200 04 0 00 000003 		MOVE	AC-3,<AC-4>&17	;BYTE WORD FOR COMPARISON
  4380	034327	135 07 0 00 000005 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,1 INTO THE AC
  4381	034330	302 07 0 00 000001 		CAIE	AC,1		;LOOP ON ERROR SWITCH
  4382	034331	003 07 0 00 013311 		ER3	AC,13311	;FAILURE - BYTE NOT LOADED CORRECTLY
  4383	034332	312 05 0 00 000006 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4384	034333	005 05 0 00 013312 		ER5	AC-2,13312	;FAILURE - POINTER WAS MODIFIED
  4385	034334	312 03 0 00 000004 		CAME	AC-4,<AC-3>&17	;WAS BYTE WORD MODIFIED
  4386	034335	012 03 0 00 013313 		ER12	AC-4,13313	;FAILURE - BYTE WORD WAS MODIFIED
  4387	034336	321 11 0 00 034321 		JUMPL	AC+2,G13310	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 61
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0123

  4388					;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
  4389
  4390			000006			AC=6
  4391						SAVEAC	(1,1)^
  4392	034337	201 10 0 00 034337 		MOVEI	AC+2,.		;SAVE TEST PC
  4393	034340	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  4394	034341	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4395	034342	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4396	034343	254 02 1 00 041002 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4397
  4398	034344	205 04 0 00 430100 	G13320:	MOVSI	AC-2,430100
  4399	034345	541 04 0 00 000002 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4400	034346	200 05 0 00 000004 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4401	034347	561 06 0 00 000076 		HRROI	AC,76		;SETUP AC
  4402	034350	202 06 0 00 000001 		MOVEM	AC,<AC-5>&17	;AC FOR COMPARISON
  4403	034351	474 02 0 00 000000 		SETO	AC-4,		;SETUP BYTE WORD
  4404	034352	200 03 0 00 041003 		MOVE	AC-3,[377777,,-1]	;BYTE WORD FOR COMPARISON
  4405	034353	137 06 0 00 000004 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 377777,,-1 INTO BYTE WORD
  4406	034354	312 06 0 00 000001 		CAME	AC,<AC-5>&17	;WAS AC MODIFIED?
  4407	034355	003 06 0 00 013321 		ER3	AC,13321	;FAILURE - AC WAS MODIFIED
  4408	034356	312 04 0 00 000005 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4409	034357	005 04 0 00 013322 		ER5	AC-2,13322	;FAILURE - POINTER WAS MODIFIED
  4410	034360	312 02 0 00 000003 		CAME	AC-4,<AC-3>&17	;WAS BYTE DEPOSITED CORRECTLY
  4411	034361	012 02 0 00 013323 		ER12	AC-4,13323	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  4412	034362	321 10 0 00 034344 		JUMPL	AC+2,G13320	;LOOP ON ERROR SWITCH
  4413
  4414					;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
  4415
  4416			000005			AC=5
  4417						SAVEAC	(1,1)^
  4418	034363	201 07 0 00 034363 		MOVEI	AC+2,.		;SAVE TEST PC
  4419	034364	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  4420	034365	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4421	034366	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4422	034367	254 02 1 00 041004 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4423
  4424	034370	205 03 0 00 000100 	G13330:	MOVSI	AC-2,100
  4425	034371	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4426	034372	200 04 0 00 000003 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4427	034373	561 05 0 00 000076 		HRROI	AC,76		;SETUP AC
  4428	034374	202 05 0 00 000000 		MOVEM	AC,<AC-5>&17	;AC FOR COMPARISON
  4429	034375	474 01 0 00 000000 		SETO	AC-4,		;SETUP BYTE WORD
  4430	034376	200 02 0 00 041005 		MOVE	AC-3,[-2]	;BYTE WORD FOR COMPARISON
  4431	034377	137 05 0 00 000003 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE -1,,-2 INTO BYTE WORD
  4432	034400	312 05 0 00 000000 		CAME	AC,<AC-5>&17	;WAS AC MODIFIED
  4433	034401	003 05 0 00 013331 		ER3	AC,13331	;FAILURE - AC WAS MODIFIED
  4434	034402	312 03 0 00 000004 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4435	034403	005 03 0 00 013332 		ER5	AC-2,13332	;FAILURE - POINTER WAS MODIFIED
  4436	034404	312 01 0 00 000002 		CAME	AC-4,<AC-3>&17	;WAS BYTE DEPOSITED CORRECTLY
  4437	034405	012 01 0 00 013333 		ER12	AC-4,13333	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  4438	034406	321 07 0 00 034370 		JUMPL	AC+2,G13330	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 62
DAKAMM	MAC	20-JAN-77 11:34		PART IB-GENERAL BYTE TEST                                                          SEQ 0124

  4439					;TEST IBP WHEN S IS GREATER THAN P AND THE ADDRESS FIELD OF THE POINTER IS 777777
  4440					;IBP SHOULD CAUSE THE ADDRESS FIELD TO CLEAR AND P SHOULD BECOME 44-S
  4441
  4442			000004			AC=4
  4443						SAVEAC	(1,1)^
  4444	034407	201 06 0 00 034407 		MOVEI	AC+2,.		;SAVE TEST PC
  4445	034410	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  4446	034411	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4447	034412	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4448	034413	254 02 1 00 041006 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4449
  4450	034414	525 02 0 00 000100 	G13400:	HRLOI	AC-2,000100	;SETUP POINTER
  4451	034415	515 01 0 00 430101 		HRLZI	AC-3,430101	;RESULT FOR COMPARISON (KA) 
  4452	034416	133 00 0 00 000002 		IBP	<AC-2>&17	;IBP SHOULD PLACE 430100,,0 INTO PTR
  4453	034417	312 02 0 00 000001 		CAME	AC-2,<AC-3>&17	;PASS IF POINTER UPATED CORRECTLY
  4454	034420	005 02 0 00 013400 		ER5	AC-2,13400	;POINTER NOT UPDATED CORRECTLY
  4455	034421	321 06 0 00 034414 		JUMPL	AC+2,G13400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 63
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0125

  4456					SUBTTL	PART II - GENERAL  BLOCK TRANSFER TEST
  4457
  4458	034422	201 00 0 00 041007 		MOVEI	[ASCIZ/BLT FAILED/]
  4459	034423	202 00 0 00 040646 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTOR
  4460
  4461					;VERFIY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
  4462					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4463					;AND WITHIN THE AC ADDRESS RANGE.
  4464			000007			AC=7
  4465						SAVEAC	(1,1)^
  4466	034424	201 11 0 00 034424 		MOVEI	AC+2,.		;SAVE TEST PC
  4467	034425	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4468	034426	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4469	034427	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4470			022100		SN=22100
  4471			000001			SRCE=<AC-6>&17		;SOURCE BLOCK=AC-6
  4472			000001			DEST=<AC-6>&17		;DESTINATION BLOCK=AC-6
  4473			000001			SIZ=1			;BLOCK SIZE = 1 OWRD
  4474
  4475	034430	200 07 0 00 041012 	G22100:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4476	034431	477 00 0 00 000002 		SETOB	SRCE-1,SRCE+1	;PRELOAD SRCE-1 AND SRCE+1 WITH ONES
  4477	034432	402 00 0 00 000001 		SETZM	SRCE		;LOAD SRCE WITH ZEROS
  4478	034433	251 07 0 00 000001 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD CLEAR DEST BLOCK
  4479			022101		SN=SN+1
  4480	034434	312 00 0 00 040734 		CAME	DEST-1,[-1]	;WAS DEST-1 CLOBBERRED?
  4481	034435	002 00 0 00 022101 		ER2	DEST-1,SN	;DEST -1 WAS CLOBBERRED
  4482			022102		SN=SN+1
  4483	034436	332 00 0 00 000001 		SKIPE	DEST		;DID BLT LOAD DEST FROM SRCE?
  4484	034437	002 01 0 00 022102 		ER2	DEST,SN		;FAIL IF C(DEST) NON-ZERO
  4485			022103		SN=SN+1
  4486	034440	312 02 0 00 040734 		CAME	DEST+1,[-1]	;WAS DEST+1 CLOBBERRED?
  4487	034441	002 02 0 00 022103 		ER2	DEST+1,SN	;DEST +1 WAS CLOBBERRED
  4488	034442	321 11 0 00 034430 		JUMPL	AC+2,G22100	;LOOP ON ERROR SWITCH
  4489					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 63-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0126

  4490					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
  4491					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4492					;AND WITHIN THE AC ADDRESS RANGE.
  4493			000014			AC=14
  4494						SAVEAC	(1,1)^
  4495	034443	201 16 0 00 034443 		MOVEI	AC+2,.		;SAVE TEST PC
  4496	034444	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4497	034445	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4498	034446	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4499			022200		SN=22200
  4500			000006			SRCE=<AC-6>&17		;SOURCE BLOCK = AC-6
  4501			000006			DEST=<AC-6>&17		;DESTINATION BLOCK = AC-6
  4502			000001			SIZ=1			;BLOCK = 1 WORD
  4503
  4504	034447	200 14 0 00 041013 	G22200:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4505	034450	403 05 0 00 000007 		SETZB	SRCE-1,SRCE+1	;PRELOAD SRCE-1 AND SRCE+1 WITH ZEROS
  4506	034451	476 00 0 00 000006 		SETOM	SRCE		;LOAD SRCE WITH ONES
  4507	034452	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DEST WITH ONES
  4508			022201		SN=SN+1
  4509	034453	332 00 0 00 000005 		SKIPE	DEST-1		;WAS DEST-1 CLOBBERRED?
  4510	034454	002 05 0 00 022201 		ER2	DEST-1,SN	;DEST-1 WAS CLOBBERRED
  4511			022202		SN=SN+1
  4512	034455	312 06 0 00 040734 		CAME	DEST,[-1]	;DID BLT LOAD DEST FROM SRCE?
  4513	034456	002 06 0 00 022202 		ER2	DEST,SN		;FAIL IF C(DEST) NOT ALL ONES
  4514			022203		SN=SN+1
  4515	034457	332 00 0 00 000007 		SKIPE	DEST+1		;WAS DEST+1 CLOBBERRED?
  4516	034460	002 07 0 00 022203 		ER2	DEST+1,SN	;DEST+1 WAS CLOBBERRED
  4517	034461	321 16 0 00 034447 		JUMPL	AC+2,G22200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 64
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0127

  4518					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
  4519					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4520					;AND WITHIN THE AC ADDRESS RANGE.
  4521
  4522			000014			AC=14
  4523						SAVEAC	(1,1)^
  4524	034462	201 16 0 00 034462 		MOVEI	AC+2,.		;SAVE TEST PC
  4525	034463	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4526	034464	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4527	034465	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4528			022300		SN=22300
  4529			000006			SRCE=<AC-6>&17		;SOURCE BLOCK = AC-6
  4530			000006			DEST=<AC-6>&17		;DESTINATION BLOCK = AC-6
  4531			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4532
  4533	034466	200 14 0 00 041013 	G22300:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF ARCE AND DEST
  4534	034467	403 05 0 00 000007 		SETZB	SRCE-1,SRCE+1	;CLEAR SRCE-1 AND SRCE+1
  4535	034470	200 06 0 00 040752 		MOVE	SRCE,[230703,,603700]	;PRELOAD SOURCE BLOCK
  4536	034471	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD PLACE C(SRCE) INTO DEST
  4537			022301		SN=SN+1
  4538	034472	332 00 0 00 000005 		SKIPE	DEST-1		;WAS DEST-1 CLOBBERRED?
  4539	034473	002 05 0 00 022301 		ER2	DEST-1,SN	;DEST-1 WAS CLOBBERRED
  4540			022302		SN=SN+1
  4541	034474	312 06 0 00 040752 		CAME	DEST,[230703,,603700]	;DID BLT LOAD DEST FROM SRCE
  4542	034475	002 06 0 00 022302 		ER2	DEST,SN		;FAIL IF C(DEST) NOT 230703,,603700
  4543			022303		SN=SN+1
  4544	034476	332 00 0 00 000007 		SKIPE	DEST+1		;WAS DEST+1 CLOBBERRED?
  4545	034477	002 07 0 00 022303 		ER2	DEST+1,SN	;DEST+1 WAS CLOBBERRED
  4546	034500	321 16 0 00 034466 		JUMPL	AC+2,G22300	;LOOP ON ERROR SWITCH
  4547					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 64-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0128

  4548					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
  4549					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4550					;AND BEYOND THE AC ADDRESS RANGE.
  4551			000014			AC=14
  4552						SAVEAC	(1,1)^
  4553	034501	201 16 0 00 034501 		MOVEI	AC+2,.		;SAVE TEST PC
  4554	034502	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4555	034503	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4556	034504	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4557			022400		SN=22400
  4558			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4559			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4560			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4561
  4562	034505	200 14 0 00 041014 	G22400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4563	034506	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD SRCE-1 WITH ONES
  4564	034507	402 00 0 00 040221 		SETZM	SRCE		;LOAD SRCE WITH ZEROS
  4565	034510	476 00 0 00 040222 		SETOM	SRCE+1		;PRELOAD SRCE+1 WITH ONES
  4566	034511	251 14 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD CLEAR DEST BLOCK
  4567			022401		SN=SN+1
  4568	034512	200 13 0 00 040220 		MOVE	AC-1,DEST-1
  4569	034513	312 13 0 00 040734 		CAME	AC-1,[-1]	;WAS DEST-1 CLOBBERRED?
  4570	034514	002 13 0 00 022401 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4571			022402		SN=SN+1
  4572	034515	200 13 0 00 040221 		MOVE	AC-1,DEST
  4573	034516	332 00 0 00 000013 		SKIPE	AC-1		;DID BLT LOAD DEST FROM SRCE?
  4574	034517	002 13 0 00 022402 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT ZERO
  4575			022403		SN=SN+1
  4576	034520	200 13 0 00 040222 		MOVE	AC-1,DEST+1
  4577	034521	312 13 0 00 040734 		CAME	AC-1,[-1]	;WAS DEST+1 CLOBBERRED?
  4578	034522	002 13 0 00 022403 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4579	034523	321 15 0 00 034505 		JUMPL	AC+1,G22400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 65
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0129

  4580					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
  4581					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4582					;AND BEYOND THE AC ADDRESS RANGE.
  4583
  4584			000013			AC=13
  4585						SAVEAC	(1,1)^
  4586	034524	201 15 0 00 034524 		MOVEI	AC+2,.		;SAVE TEST PC
  4587	034525	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4588	034526	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4589	034527	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4590			022500		SN=22500
  4591			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4592			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4593			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4594
  4595	034530	200 13 0 00 041014 	G22500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4596	034531	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD SRCE-1 WITH ZEROS
  4597	034532	476 00 0 00 040221 		SETOM	SRCE		;LOAD SRCE WITH ONES
  4598	034533	402 00 0 00 040222 		SETZM	SRCE+1		;PRELOAD SRCE+1 WITH ZEROS
  4599	034534	251 13 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DEST BLOCK WITH ONES
  4600			022501		SN=SN+1
  4601	034535	200 12 0 00 040220 		MOVE	AC-1,DEST-1
  4602	034536	332 00 0 00 000012 		SKIPE	AC-1		;WAS DEST-1 CLOBBERRED?
  4603	034537	002 12 0 00 022501 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4604			022502		SN=SN+1
  4605	034540	200 12 0 00 040221 		MOVE	AC-1,DEST
  4606	034541	312 12 0 00 040734 		CAME	AC-1,[-1]	;DID BLT LOAD DEST FROM SRCE?
  4607	034542	002 12 0 00 022502 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT ALL ONES
  4608			022503		SN=SN+1
  4609	034543	200 12 0 00 040222 		MOVE	AC-1,DEST+1
  4610	034544	332 00 0 00 000012 		SKIPE	AC-1		;WAS DEST+1 CLOBBERRED?
  4611	034545	002 12 0 00 022503 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4612	034546	321 15 0 00 034530 		JUMPL	AC+2,G22500	;LOOP ON ERROR SWITCH
  4613					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 65-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0130

  4614					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
  4615					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4616					;AND BEYOND THE AC ADDRESS RANGE.
  4617
  4618			000012			AC=12
  4619						SAVEAC	(1,1)^
  4620	034547	201 14 0 00 034547 		MOVEI	AC+2,.		;SAVE TEST PC
  4621	034550	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4622	034551	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4623	034552	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4624			022600		SN=22600
  4625			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4626			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4627			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4628
  4629	034553	200 12 0 00 041014 	G22600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4630	034554	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD SRCE-1 WITH ZEROS
  4631	034555	200 13 0 00 040752 		MOVE	AC+1,[230703,,603700]	;LOAD SRCE BLOCK
  4632	034556	202 13 0 00 040221 		MOVEM	AC+1,SRCE
  4633	034557	402 00 0 00 040222 		SETZM	SRCE+1		;PRELOAD SRCE+1 WITH ZEROS
  4634	034560	251 12 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD PLACE C(SRCE) INTO DEST
  4635			022601		SN=SN+1
  4636	034561	200 11 0 00 040220 		MOVE	AC-1,DEST-1
  4637	034562	332 00 0 00 000011 		SKIPE	AC-1		;WAS DEST-1 CLOBBERRED?
  4638	034563	002 11 0 00 022601 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4639			022602		SN=SN+1
  4640	034564	200 11 0 00 040221 		MOVE	AC-1,DEST
  4641	034565	312 11 0 00 040752 		CAME	AC-1,[230703,,603700]	;DID BLT LOAD DEST FROM SRCE?
  4642	034566	002 11 0 00 022602 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT 230703,,603700
  4643			022603		SN=SN+1
  4644	034567	200 11 0 00 040222 		MOVE	AC-1,DEST+1
  4645	034570	332 00 0 00 000011 		SKIPE	AC-1		;WAS DEST+1 CLOBBERRED?
  4646	034571	002 11 0 00 022603 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4647	034572	321 13 0 00 034553 		JUMPL	AC+1,G22600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0131

  4648					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4649
  4650						BLTM1	(22700,14,<<AC-6>&17>,<<AC-3>&17>,0)^
  4651					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4652					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4653					;SOURCE DATA = 0
  4654
  4655			000014			AC=14
  4656						SAVEAC	(1,1)^
  4657	034573	201 16 0 00 034573 		MOVEI	AC+2,.		;SAVE TEST PC
  4658	034574	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4659	034575	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4660	034576	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4661			022700		SN=22700
  4662			000006			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4663			000011			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4664			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4665
  4666	034577	200 14 0 00 041015 	G22700:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4667						GMOV	(SRCE-1,<252525252525>)^
  4668						IFLE	<SRCE-1-20>,<
  4669	034600	200 05 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4670						IFG	<SRCE-1-20>,<
  4671						MOVE	AC+1,[252525252525]
  4672						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4673						GMOV	(SRCE,<0>)^
  4674						IFLE	<SRCE-20>,<
  4675	034601	200 06 0 00 041011 		MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  4676						IFG	<SRCE-20>,<
  4677						MOVE	AC+1,[0]
  4678						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  4679						GMOV	(SRCE+1,<770077007700>)^
  4680						IFLE	<SRCE+1-20>,<
  4681	034602	200 07 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4682						IFG	<SRCE+1-20>,<
  4683						MOVE	AC+1,[770077007700]
  4684						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4685						GMOV	(DEST-1,<070707070707>)^
  4686						IFLE	<DEST-1-20>,<
  4687	034603	200 10 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4688						IFG	<DEST-1-20>,<
  4689						MOVE	AC+1,[070707070707]
  4690						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4691						GMOV	(DEST,<123456765432>)^
  4692						IFLE	<DEST-20>,<
  4693	034604	200 11 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4694						IFG	<DEST-20>,<
  4695						MOVE	AC+1,[123456765432]
  4696						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4697						GMOV	(DEST+1,<552255225522>)^
  4698						IFLE	<DEST+1-20>,<
  4699	034605	200 12 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4700						IFG	<DEST+1-20>,<
  4701						MOVE	AC+1,[552255225522]
  4702						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0132

  4703	034606	251 14 0 00 000011 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  4704						GCAM	(SRCE-1,<252525252525>)^
  4705			022701		SN=SN+1
  4706						IFG	<SRCE-1-20>,<
  4707						MOVE	AC-1,SRCE-1
  4708						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4709						IFIDN	<DEST>,<SRCE-1>,<
  4710						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4711						IFDIF	<DEST>,<SRCE-1>,<
  4712						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  4713						IFLE	<SRCE-1-20>,<
  4714	034607	312 05 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4715						IFIDN	<DEST>,<SRCE-1>,<
  4716						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  4717						IFDIF	<DEST>,<SRCE-1>,<
  4718	034610	002 05 0 00 022701 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  4719						GCAM	(SRCE,<0>)^
  4720			022702		SN=SN+1
  4721						IFG	<SRCE-20>,<
  4722						MOVE	AC-1,SRCE
  4723						CAME	AC-1,[0]	;IS C(SRCE) = 0
  4724						IFIDN	<DEST>,<SRCE>,<
  4725						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4726						IFDIF	<DEST>,<SRCE>,<
  4727						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  4728						IFLE	<SRCE-20>,<
  4729	034611	312 06 0 00 041011 		CAME	SRCE,[0]	;IS C(SRCE) = 0
  4730						IFIDN	<DEST>,<SRCE>,<
  4731						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  4732						IFDIF	<DEST>,<SRCE>,<
  4733	034612	002 06 0 00 022702 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  4734						GCAM	(SRCE+1,<770077007700>)^
  4735			022703		SN=SN+1
  4736						IFG	<SRCE+1-20>,<
  4737						MOVE	AC-1,SRCE+1
  4738						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4739						IFIDN	<DEST>,<SRCE+1>,<
  4740						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4741						IFDIF	<DEST>,<SRCE+1>,<
  4742						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  4743						IFLE	<SRCE+1-20>,<
  4744	034613	312 07 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4745						IFIDN	<DEST>,<SRCE+1>,<
  4746						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  4747						IFDIF	<DEST>,<SRCE+1>,<
  4748	034614	002 07 0 00 022703 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  4749						GCAM	(DEST-1,<070707070707>)^
  4750			022704		SN=SN+1
  4751						IFG	<DEST-1-20>,<
  4752						MOVE	AC-1,DEST-1
  4753						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4754						IFIDN	<DEST>,<DEST-1>,<
  4755						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4756						IFDIF	<DEST>,<DEST-1>,<
  4757						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-2
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0133

  4758						IFLE	<DEST-1-20>,<
  4759	034615	312 10 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4760						IFIDN	<DEST>,<DEST-1>,<
  4761						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  4762						IFDIF	<DEST>,<DEST-1>,<
  4763	034616	002 10 0 00 022704 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  4764						GCAM	(DEST,<0>)^
  4765			022705		SN=SN+1
  4766						IFG	<DEST-20>,<
  4767						MOVE	AC-1,DEST
  4768						CAME	AC-1,[0]	;IS C(DEST) = 0
  4769						IFIDN	<DEST>,<DEST>,<
  4770						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4771						IFDIF	<DEST>,<DEST>,<
  4772						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  4773						IFLE	<DEST-20>,<
  4774	034617	312 11 0 00 041011 		CAME	DEST,[0]	;IS C(DEST) = 0
  4775						IFIDN	<DEST>,<DEST>,<
  4776	034620	002 11 0 00 022705 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  4777						IFDIF	<DEST>,<DEST>,<
  4778						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  4779						GCAM	(DEST+1,<552255225522>)^
  4780			022706		SN=SN+1
  4781						IFG	<DEST+1-20>,<
  4782						MOVE	AC-1,DEST+1
  4783						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  4784						IFIDN	<DEST>,<DEST+1>,<
  4785						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4786						IFDIF	<DEST>,<DEST+1>,<
  4787						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  4788						IFLE	<DEST+1-20>,<
  4789	034621	312 12 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  4790						IFIDN	<DEST>,<DEST+1>,<
  4791						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  4792						IFDIF	<DEST>,<DEST+1>,<
  4793	034622	002 12 0 00 022706 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  4794	034623	321 16 0 00 034577 		JUMPL	AC+2,G22700		;LOOP ON ERROR^
  4795					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-3
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0134

  4796					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4797
  4798						BLTM1	(23000,13,<<AC-6>&17>,<<AC-3>&17>,-1)^
  4799					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4800					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4801					;SOURCE DATA = -1
  4802
  4803			000013			AC=13
  4804						SAVEAC	(1,1)^
  4805	034624	201 15 0 00 034624 		MOVEI	AC+2,.		;SAVE TEST PC
  4806	034625	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4807	034626	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4808	034627	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4809			023000		SN=23000
  4810			000005			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4811			000010			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4812			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4813
  4814	034630	200 13 0 00 041023 	G23000:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4815						GMOV	(SRCE-1,<252525252525>)^
  4816						IFLE	<SRCE-1-20>,<
  4817	034631	200 04 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4818						IFG	<SRCE-1-20>,<
  4819						MOVE	AC+1,[252525252525]
  4820						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4821						GMOV	(SRCE,<-1>)^
  4822						IFLE	<SRCE-20>,<
  4823	034632	200 05 0 00 040734 		MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  4824						IFG	<SRCE-20>,<
  4825						MOVE	AC+1,[-1]
  4826						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  4827						GMOV	(SRCE+1,<770077007700>)^
  4828						IFLE	<SRCE+1-20>,<
  4829	034633	200 06 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4830						IFG	<SRCE+1-20>,<
  4831						MOVE	AC+1,[770077007700]
  4832						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4833						GMOV	(DEST-1,<070707070707>)^
  4834						IFLE	<DEST-1-20>,<
  4835	034634	200 07 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4836						IFG	<DEST-1-20>,<
  4837						MOVE	AC+1,[070707070707]
  4838						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4839						GMOV	(DEST,<123456765432>)^
  4840						IFLE	<DEST-20>,<
  4841	034635	200 10 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4842						IFG	<DEST-20>,<
  4843						MOVE	AC+1,[123456765432]
  4844						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4845						GMOV	(DEST+1,<552255225522>)^
  4846						IFLE	<DEST+1-20>,<
  4847	034636	200 11 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4848						IFG	<DEST+1-20>,<
  4849						MOVE	AC+1,[552255225522]
  4850						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-4
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0135

  4851	034637	251 13 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  4852						GCAM	(SRCE-1,<252525252525>)^
  4853			023001		SN=SN+1
  4854						IFG	<SRCE-1-20>,<
  4855						MOVE	AC-1,SRCE-1
  4856						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4857						IFIDN	<DEST>,<SRCE-1>,<
  4858						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4859						IFDIF	<DEST>,<SRCE-1>,<
  4860						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  4861						IFLE	<SRCE-1-20>,<
  4862	034640	312 04 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4863						IFIDN	<DEST>,<SRCE-1>,<
  4864						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  4865						IFDIF	<DEST>,<SRCE-1>,<
  4866	034641	002 04 0 00 023001 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  4867						GCAM	(SRCE,<-1>)^
  4868			023002		SN=SN+1
  4869						IFG	<SRCE-20>,<
  4870						MOVE	AC-1,SRCE
  4871						CAME	AC-1,[-1]	;IS C(SRCE) = -1
  4872						IFIDN	<DEST>,<SRCE>,<
  4873						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4874						IFDIF	<DEST>,<SRCE>,<
  4875						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  4876						IFLE	<SRCE-20>,<
  4877	034642	312 05 0 00 040734 		CAME	SRCE,[-1]	;IS C(SRCE) = -1
  4878						IFIDN	<DEST>,<SRCE>,<
  4879						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  4880						IFDIF	<DEST>,<SRCE>,<
  4881	034643	002 05 0 00 023002 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  4882						GCAM	(SRCE+1,<770077007700>)^
  4883			023003		SN=SN+1
  4884						IFG	<SRCE+1-20>,<
  4885						MOVE	AC-1,SRCE+1
  4886						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4887						IFIDN	<DEST>,<SRCE+1>,<
  4888						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4889						IFDIF	<DEST>,<SRCE+1>,<
  4890						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  4891						IFLE	<SRCE+1-20>,<
  4892	034644	312 06 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4893						IFIDN	<DEST>,<SRCE+1>,<
  4894						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  4895						IFDIF	<DEST>,<SRCE+1>,<
  4896	034645	002 06 0 00 023003 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  4897						GCAM	(DEST-1,<070707070707>)^
  4898			023004		SN=SN+1
  4899						IFG	<DEST-1-20>,<
  4900						MOVE	AC-1,DEST-1
  4901						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4902						IFIDN	<DEST>,<DEST-1>,<
  4903						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4904						IFDIF	<DEST>,<DEST-1>,<
  4905						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-5
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0136

  4906						IFLE	<DEST-1-20>,<
  4907	034646	312 07 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4908						IFIDN	<DEST>,<DEST-1>,<
  4909						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  4910						IFDIF	<DEST>,<DEST-1>,<
  4911	034647	002 07 0 00 023004 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  4912						GCAM	(DEST,<-1>)^
  4913			023005		SN=SN+1
  4914						IFG	<DEST-20>,<
  4915						MOVE	AC-1,DEST
  4916						CAME	AC-1,[-1]	;IS C(DEST) = -1
  4917						IFIDN	<DEST>,<DEST>,<
  4918						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4919						IFDIF	<DEST>,<DEST>,<
  4920						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  4921						IFLE	<DEST-20>,<
  4922	034650	312 10 0 00 040734 		CAME	DEST,[-1]	;IS C(DEST) = -1
  4923						IFIDN	<DEST>,<DEST>,<
  4924	034651	002 10 0 00 023005 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  4925						IFDIF	<DEST>,<DEST>,<
  4926						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  4927						GCAM	(DEST+1,<552255225522>)^
  4928			023006		SN=SN+1
  4929						IFG	<DEST+1-20>,<
  4930						MOVE	AC-1,DEST+1
  4931						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  4932						IFIDN	<DEST>,<DEST+1>,<
  4933						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4934						IFDIF	<DEST>,<DEST+1>,<
  4935						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  4936						IFLE	<DEST+1-20>,<
  4937	034652	312 11 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  4938						IFIDN	<DEST>,<DEST+1>,<
  4939						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  4940						IFDIF	<DEST>,<DEST+1>,<
  4941	034653	002 11 0 00 023006 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  4942	034654	321 15 0 00 034630 		JUMPL	AC+2,G23000		;LOOP ON ERROR^
  4943					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-6
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0137

  4944					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4945
  4946						BLTM1	(23100,12,<<AC-6>&17>,<<AC-3>&17>,<230703,,603700>)^
  4947					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4948					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4949					;SOURCE DATA = 230703,,603700
  4950
  4951			000012			AC=12
  4952						SAVEAC	(1,1)^
  4953	034655	201 14 0 00 034655 		MOVEI	AC+2,.		;SAVE TEST PC
  4954	034656	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4955	034657	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4956	034660	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4957			023100		SN=23100
  4958			000004			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4959			000007			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4960			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4961
  4962	034661	200 12 0 00 041024 	G23100:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4963						GMOV	(SRCE-1,<252525252525>)^
  4964						IFLE	<SRCE-1-20>,<
  4965	034662	200 03 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4966						IFG	<SRCE-1-20>,<
  4967						MOVE	AC+1,[252525252525]
  4968						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4969						GMOV	(SRCE,<230703,,603700>)^
  4970						IFLE	<SRCE-20>,<
  4971	034663	200 04 0 00 040752 		MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  4972						IFG	<SRCE-20>,<
  4973						MOVE	AC+1,[230703,,603700]
  4974						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  4975						GMOV	(SRCE+1,<770077007700>)^
  4976						IFLE	<SRCE+1-20>,<
  4977	034664	200 05 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4978						IFG	<SRCE+1-20>,<
  4979						MOVE	AC+1,[770077007700]
  4980						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4981						GMOV	(DEST-1,<070707070707>)^
  4982						IFLE	<DEST-1-20>,<
  4983	034665	200 06 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4984						IFG	<DEST-1-20>,<
  4985						MOVE	AC+1,[070707070707]
  4986						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4987						GMOV	(DEST,<123456765432>)^
  4988						IFLE	<DEST-20>,<
  4989	034666	200 07 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4990						IFG	<DEST-20>,<
  4991						MOVE	AC+1,[123456765432]
  4992						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4993						GMOV	(DEST+1,<552255225522>)^
  4994						IFLE	<DEST+1-20>,<
  4995	034667	200 10 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4996						IFG	<DEST+1-20>,<
  4997						MOVE	AC+1,[552255225522]
  4998						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-7
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0138

  4999	034670	251 12 0 00 000007 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5000						GCAM	(SRCE-1,<252525252525>)^
  5001			023101		SN=SN+1
  5002						IFG	<SRCE-1-20>,<
  5003						MOVE	AC-1,SRCE-1
  5004						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5005						IFIDN	<DEST>,<SRCE-1>,<
  5006						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5007						IFDIF	<DEST>,<SRCE-1>,<
  5008						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5009						IFLE	<SRCE-1-20>,<
  5010	034671	312 03 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5011						IFIDN	<DEST>,<SRCE-1>,<
  5012						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5013						IFDIF	<DEST>,<SRCE-1>,<
  5014	034672	002 03 0 00 023101 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5015						GCAM	(SRCE,<230703,,603700>)^
  5016			023102		SN=SN+1
  5017						IFG	<SRCE-20>,<
  5018						MOVE	AC-1,SRCE
  5019						CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5020						IFIDN	<DEST>,<SRCE>,<
  5021						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5022						IFDIF	<DEST>,<SRCE>,<
  5023						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5024						IFLE	<SRCE-20>,<
  5025	034673	312 04 0 00 040752 		CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5026						IFIDN	<DEST>,<SRCE>,<
  5027						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5028						IFDIF	<DEST>,<SRCE>,<
  5029	034674	002 04 0 00 023102 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5030						GCAM	(SRCE+1,<770077007700>)^
  5031			023103		SN=SN+1
  5032						IFG	<SRCE+1-20>,<
  5033						MOVE	AC-1,SRCE+1
  5034						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5035						IFIDN	<DEST>,<SRCE+1>,<
  5036						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5037						IFDIF	<DEST>,<SRCE+1>,<
  5038						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5039						IFLE	<SRCE+1-20>,<
  5040	034675	312 05 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5041						IFIDN	<DEST>,<SRCE+1>,<
  5042						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5043						IFDIF	<DEST>,<SRCE+1>,<
  5044	034676	002 05 0 00 023103 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5045						GCAM	(DEST-1,<070707070707>)^
  5046			023104		SN=SN+1
  5047						IFG	<DEST-1-20>,<
  5048						MOVE	AC-1,DEST-1
  5049						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5050						IFIDN	<DEST>,<DEST-1>,<
  5051						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5052						IFDIF	<DEST>,<DEST-1>,<
  5053						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-8
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0139

  5054						IFLE	<DEST-1-20>,<
  5055	034677	312 06 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5056						IFIDN	<DEST>,<DEST-1>,<
  5057						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5058						IFDIF	<DEST>,<DEST-1>,<
  5059	034700	002 06 0 00 023104 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5060						GCAM	(DEST,<230703,,603700>)^
  5061			023105		SN=SN+1
  5062						IFG	<DEST-20>,<
  5063						MOVE	AC-1,DEST
  5064						CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5065						IFIDN	<DEST>,<DEST>,<
  5066						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5067						IFDIF	<DEST>,<DEST>,<
  5068						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5069						IFLE	<DEST-20>,<
  5070	034701	312 07 0 00 040752 		CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5071						IFIDN	<DEST>,<DEST>,<
  5072	034702	002 07 0 00 023105 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5073						IFDIF	<DEST>,<DEST>,<
  5074						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5075						GCAM	(DEST+1,<552255225522>)^
  5076			023106		SN=SN+1
  5077						IFG	<DEST+1-20>,<
  5078						MOVE	AC-1,DEST+1
  5079						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5080						IFIDN	<DEST>,<DEST+1>,<
  5081						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5082						IFDIF	<DEST>,<DEST+1>,<
  5083						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5084						IFLE	<DEST+1-20>,<
  5085	034703	312 10 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5086						IFIDN	<DEST>,<DEST+1>,<
  5087						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5088						IFDIF	<DEST>,<DEST+1>,<
  5089	034704	002 10 0 00 023106 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5090	034705	321 14 0 00 034661 		JUMPL	AC+2,G23100		;LOOP ON ERROR^
  5091					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-9
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0140

  5092					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5093
  5094						BLTM1	(23200,14,<<AC-6>&17>,<BLTBLK+4>,0)^
  5095					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5096					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5097					;SOURCE DATA = 0
  5098
  5099			000014			AC=14
  5100						SAVEAC	(1,1)^
  5101	034706	201 16 0 00 034706 		MOVEI	AC+2,.		;SAVE TEST PC
  5102	034707	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  5103	034710	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5104	034711	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5105			023200		SN=23200
  5106			000006			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5107			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5108			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5109
  5110	034712	200 14 0 00 041025 	G23200:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5111						GMOV	(SRCE-1,<252525252525>)^
  5112						IFLE	<SRCE-1-20>,<
  5113	034713	200 05 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5114						IFG	<SRCE-1-20>,<
  5115						MOVE	AC+1,[252525252525]
  5116						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5117						GMOV	(SRCE,<0>)^
  5118						IFLE	<SRCE-20>,<
  5119	034714	200 06 0 00 041011 		MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  5120						IFG	<SRCE-20>,<
  5121						MOVE	AC+1,[0]
  5122						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  5123						GMOV	(SRCE+1,<770077007700>)^
  5124						IFLE	<SRCE+1-20>,<
  5125	034715	200 07 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5126						IFG	<SRCE+1-20>,<
  5127						MOVE	AC+1,[770077007700]
  5128						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5129						GMOV	(DEST-1,<070707070707>)^
  5130						IFLE	<DEST-1-20>,<
  5131						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5132						IFG	<DEST-1-20>,<
  5133	034716	200 15 0 00 041020 		MOVE	AC+1,[070707070707]
  5134	034717	202 15 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5135						GMOV	(DEST,<123456765432>)^
  5136						IFLE	<DEST-20>,<
  5137						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5138						IFG	<DEST-20>,<
  5139	034720	200 15 0 00 041021 		MOVE	AC+1,[123456765432]
  5140	034721	202 15 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5141						GMOV	(DEST+1,<552255225522>)^
  5142						IFLE	<DEST+1-20>,<
  5143						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5144						IFG	<DEST+1-20>,<
  5145	034722	200 15 0 00 041022 		MOVE	AC+1,[552255225522]
  5146	034723	202 15 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-10
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0141

  5147	034724	251 14 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5148						GCAM	(SRCE-1,<252525252525>)^
  5149			023201		SN=SN+1
  5150						IFG	<SRCE-1-20>,<
  5151						MOVE	AC-1,SRCE-1
  5152						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5153						IFIDN	<DEST>,<SRCE-1>,<
  5154						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5155						IFDIF	<DEST>,<SRCE-1>,<
  5156						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5157						IFLE	<SRCE-1-20>,<
  5158	034725	312 05 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5159						IFIDN	<DEST>,<SRCE-1>,<
  5160						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5161						IFDIF	<DEST>,<SRCE-1>,<
  5162	034726	002 05 0 00 023201 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5163						GCAM	(SRCE,<0>)^
  5164			023202		SN=SN+1
  5165						IFG	<SRCE-20>,<
  5166						MOVE	AC-1,SRCE
  5167						CAME	AC-1,[0]	;IS C(SRCE) = 0
  5168						IFIDN	<DEST>,<SRCE>,<
  5169						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5170						IFDIF	<DEST>,<SRCE>,<
  5171						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5172						IFLE	<SRCE-20>,<
  5173	034727	312 06 0 00 041011 		CAME	SRCE,[0]	;IS C(SRCE) = 0
  5174						IFIDN	<DEST>,<SRCE>,<
  5175						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5176						IFDIF	<DEST>,<SRCE>,<
  5177	034730	002 06 0 00 023202 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5178						GCAM	(SRCE+1,<770077007700>)^
  5179			023203		SN=SN+1
  5180						IFG	<SRCE+1-20>,<
  5181						MOVE	AC-1,SRCE+1
  5182						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5183						IFIDN	<DEST>,<SRCE+1>,<
  5184						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5185						IFDIF	<DEST>,<SRCE+1>,<
  5186						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5187						IFLE	<SRCE+1-20>,<
  5188	034731	312 07 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5189						IFIDN	<DEST>,<SRCE+1>,<
  5190						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5191						IFDIF	<DEST>,<SRCE+1>,<
  5192	034732	002 07 0 00 023203 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5193						GCAM	(DEST-1,<070707070707>)^
  5194			023204		SN=SN+1
  5195						IFG	<DEST-1-20>,<
  5196	034733	200 13 0 00 040223 		MOVE	AC-1,DEST-1
  5197	034734	312 13 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5198						IFIDN	<DEST>,<DEST-1>,<
  5199						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5200						IFDIF	<DEST>,<DEST-1>,<
  5201	034735	002 13 0 00 023204 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-11
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0142

  5202						IFLE	<DEST-1-20>,<
  5203						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5204						IFIDN	<DEST>,<DEST-1>,<
  5205						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5206						IFDIF	<DEST>,<DEST-1>,<
  5207						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5208						GCAM	(DEST,<0>)^
  5209			023205		SN=SN+1
  5210						IFG	<DEST-20>,<
  5211	034736	200 13 0 00 040224 		MOVE	AC-1,DEST
  5212	034737	312 13 0 00 041011 		CAME	AC-1,[0]	;IS C(DEST) = 0
  5213						IFIDN	<DEST>,<DEST>,<
  5214	034740	002 13 0 00 023205 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5215						IFDIF	<DEST>,<DEST>,<
  5216						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5217						IFLE	<DEST-20>,<
  5218						CAME	DEST,[0]	;IS C(DEST) = 0
  5219						IFIDN	<DEST>,<DEST>,<
  5220						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5221						IFDIF	<DEST>,<DEST>,<
  5222						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5223						GCAM	(DEST+1,<552255225522>)^
  5224			023206		SN=SN+1
  5225						IFG	<DEST+1-20>,<
  5226	034741	200 13 0 00 040225 		MOVE	AC-1,DEST+1
  5227	034742	312 13 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5228						IFIDN	<DEST>,<DEST+1>,<
  5229						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5230						IFDIF	<DEST>,<DEST+1>,<
  5231	034743	002 13 0 00 023206 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5232						IFLE	<DEST+1-20>,<
  5233						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5234						IFIDN	<DEST>,<DEST+1>,<
  5235						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5236						IFDIF	<DEST>,<DEST+1>,<
  5237						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5238	034744	321 16 0 00 034712 		JUMPL	AC+2,G23200		;LOOP ON ERROR^
  5239					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-12
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0143

  5240					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5241
  5242						BLTM1	(23300,13,<<AC-6>&17>,<BLTBLK+4>,-1)^
  5243					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5244					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5245					;SOURCE DATA = -1
  5246
  5247			000013			AC=13
  5248						SAVEAC	(1,1)^
  5249	034745	201 15 0 00 034745 		MOVEI	AC+2,.		;SAVE TEST PC
  5250	034746	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  5251	034747	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5252	034750	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5253			023300		SN=23300
  5254			000005			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5255			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5256			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5257
  5258	034751	200 13 0 00 041026 	G23300:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5259						GMOV	(SRCE-1,<252525252525>)^
  5260						IFLE	<SRCE-1-20>,<
  5261	034752	200 04 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5262						IFG	<SRCE-1-20>,<
  5263						MOVE	AC+1,[252525252525]
  5264						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5265						GMOV	(SRCE,<-1>)^
  5266						IFLE	<SRCE-20>,<
  5267	034753	200 05 0 00 040734 		MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  5268						IFG	<SRCE-20>,<
  5269						MOVE	AC+1,[-1]
  5270						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  5271						GMOV	(SRCE+1,<770077007700>)^
  5272						IFLE	<SRCE+1-20>,<
  5273	034754	200 06 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5274						IFG	<SRCE+1-20>,<
  5275						MOVE	AC+1,[770077007700]
  5276						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5277						GMOV	(DEST-1,<070707070707>)^
  5278						IFLE	<DEST-1-20>,<
  5279						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5280						IFG	<DEST-1-20>,<
  5281	034755	200 14 0 00 041020 		MOVE	AC+1,[070707070707]
  5282	034756	202 14 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5283						GMOV	(DEST,<123456765432>)^
  5284						IFLE	<DEST-20>,<
  5285						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5286						IFG	<DEST-20>,<
  5287	034757	200 14 0 00 041021 		MOVE	AC+1,[123456765432]
  5288	034760	202 14 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5289						GMOV	(DEST+1,<552255225522>)^
  5290						IFLE	<DEST+1-20>,<
  5291						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5292						IFG	<DEST+1-20>,<
  5293	034761	200 14 0 00 041022 		MOVE	AC+1,[552255225522]
  5294	034762	202 14 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-13
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0144

  5295	034763	251 13 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5296						GCAM	(SRCE-1,<252525252525>)^
  5297			023301		SN=SN+1
  5298						IFG	<SRCE-1-20>,<
  5299						MOVE	AC-1,SRCE-1
  5300						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5301						IFIDN	<DEST>,<SRCE-1>,<
  5302						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5303						IFDIF	<DEST>,<SRCE-1>,<
  5304						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5305						IFLE	<SRCE-1-20>,<
  5306	034764	312 04 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5307						IFIDN	<DEST>,<SRCE-1>,<
  5308						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5309						IFDIF	<DEST>,<SRCE-1>,<
  5310	034765	002 04 0 00 023301 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5311						GCAM	(SRCE,<-1>)^
  5312			023302		SN=SN+1
  5313						IFG	<SRCE-20>,<
  5314						MOVE	AC-1,SRCE
  5315						CAME	AC-1,[-1]	;IS C(SRCE) = -1
  5316						IFIDN	<DEST>,<SRCE>,<
  5317						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5318						IFDIF	<DEST>,<SRCE>,<
  5319						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5320						IFLE	<SRCE-20>,<
  5321	034766	312 05 0 00 040734 		CAME	SRCE,[-1]	;IS C(SRCE) = -1
  5322						IFIDN	<DEST>,<SRCE>,<
  5323						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5324						IFDIF	<DEST>,<SRCE>,<
  5325	034767	002 05 0 00 023302 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5326						GCAM	(SRCE+1,<770077007700>)^
  5327			023303		SN=SN+1
  5328						IFG	<SRCE+1-20>,<
  5329						MOVE	AC-1,SRCE+1
  5330						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5331						IFIDN	<DEST>,<SRCE+1>,<
  5332						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5333						IFDIF	<DEST>,<SRCE+1>,<
  5334						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5335						IFLE	<SRCE+1-20>,<
  5336	034770	312 06 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5337						IFIDN	<DEST>,<SRCE+1>,<
  5338						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5339						IFDIF	<DEST>,<SRCE+1>,<
  5340	034771	002 06 0 00 023303 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5341						GCAM	(DEST-1,<070707070707>)^
  5342			023304		SN=SN+1
  5343						IFG	<DEST-1-20>,<
  5344	034772	200 12 0 00 040223 		MOVE	AC-1,DEST-1
  5345	034773	312 12 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5346						IFIDN	<DEST>,<DEST-1>,<
  5347						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5348						IFDIF	<DEST>,<DEST-1>,<
  5349	034774	002 12 0 00 023304 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-14
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0145

  5350						IFLE	<DEST-1-20>,<
  5351						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5352						IFIDN	<DEST>,<DEST-1>,<
  5353						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5354						IFDIF	<DEST>,<DEST-1>,<
  5355						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5356						GCAM	(DEST,<-1>)^
  5357			023305		SN=SN+1
  5358						IFG	<DEST-20>,<
  5359	034775	200 12 0 00 040224 		MOVE	AC-1,DEST
  5360	034776	312 12 0 00 040734 		CAME	AC-1,[-1]	;IS C(DEST) = -1
  5361						IFIDN	<DEST>,<DEST>,<
  5362	034777	002 12 0 00 023305 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5363						IFDIF	<DEST>,<DEST>,<
  5364						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5365						IFLE	<DEST-20>,<
  5366						CAME	DEST,[-1]	;IS C(DEST) = -1
  5367						IFIDN	<DEST>,<DEST>,<
  5368						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5369						IFDIF	<DEST>,<DEST>,<
  5370						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5371						GCAM	(DEST+1,<552255225522>)^
  5372			023306		SN=SN+1
  5373						IFG	<DEST+1-20>,<
  5374	035000	200 12 0 00 040225 		MOVE	AC-1,DEST+1
  5375	035001	312 12 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5376						IFIDN	<DEST>,<DEST+1>,<
  5377						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5378						IFDIF	<DEST>,<DEST+1>,<
  5379	035002	002 12 0 00 023306 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5380						IFLE	<DEST+1-20>,<
  5381						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5382						IFIDN	<DEST>,<DEST+1>,<
  5383						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5384						IFDIF	<DEST>,<DEST+1>,<
  5385						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5386	035003	321 15 0 00 034751 		JUMPL	AC+2,G23300		;LOOP ON ERROR^
  5387					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-15
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0146

  5388					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5389
  5390						BLTM1	(23400,12,<<AC-6>&17>,<BLTBLK+4>,<230703,,603700>)^
  5391					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5392					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5393					;SOURCE DATA = 230703,,603700
  5394
  5395			000012			AC=12
  5396						SAVEAC	(1,1)^
  5397	035004	201 14 0 00 035004 		MOVEI	AC+2,.		;SAVE TEST PC
  5398	035005	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  5399	035006	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5400	035007	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5401			023400		SN=23400
  5402			000004			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5403			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5404			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5405
  5406	035010	200 12 0 00 041027 	G23400:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5407						GMOV	(SRCE-1,<252525252525>)^
  5408						IFLE	<SRCE-1-20>,<
  5409	035011	200 03 0 00 041016 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5410						IFG	<SRCE-1-20>,<
  5411						MOVE	AC+1,[252525252525]
  5412						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5413						GMOV	(SRCE,<230703,,603700>)^
  5414						IFLE	<SRCE-20>,<
  5415	035012	200 04 0 00 040752 		MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  5416						IFG	<SRCE-20>,<
  5417						MOVE	AC+1,[230703,,603700]
  5418						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  5419						GMOV	(SRCE+1,<770077007700>)^
  5420						IFLE	<SRCE+1-20>,<
  5421	035013	200 05 0 00 041017 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5422						IFG	<SRCE+1-20>,<
  5423						MOVE	AC+1,[770077007700]
  5424						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5425						GMOV	(DEST-1,<070707070707>)^
  5426						IFLE	<DEST-1-20>,<
  5427						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5428						IFG	<DEST-1-20>,<
  5429	035014	200 13 0 00 041020 		MOVE	AC+1,[070707070707]
  5430	035015	202 13 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5431						GMOV	(DEST,<123456765432>)^
  5432						IFLE	<DEST-20>,<
  5433						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5434						IFG	<DEST-20>,<
  5435	035016	200 13 0 00 041021 		MOVE	AC+1,[123456765432]
  5436	035017	202 13 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5437						GMOV	(DEST+1,<552255225522>)^
  5438						IFLE	<DEST+1-20>,<
  5439						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5440						IFG	<DEST+1-20>,<
  5441	035020	200 13 0 00 041022 		MOVE	AC+1,[552255225522]
  5442	035021	202 13 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-16
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0147

  5443	035022	251 12 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5444						GCAM	(SRCE-1,<252525252525>)^
  5445			023401		SN=SN+1
  5446						IFG	<SRCE-1-20>,<
  5447						MOVE	AC-1,SRCE-1
  5448						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5449						IFIDN	<DEST>,<SRCE-1>,<
  5450						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5451						IFDIF	<DEST>,<SRCE-1>,<
  5452						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5453						IFLE	<SRCE-1-20>,<
  5454	035023	312 03 0 00 041016 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5455						IFIDN	<DEST>,<SRCE-1>,<
  5456						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5457						IFDIF	<DEST>,<SRCE-1>,<
  5458	035024	002 03 0 00 023401 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5459						GCAM	(SRCE,<230703,,603700>)^
  5460			023402		SN=SN+1
  5461						IFG	<SRCE-20>,<
  5462						MOVE	AC-1,SRCE
  5463						CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5464						IFIDN	<DEST>,<SRCE>,<
  5465						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5466						IFDIF	<DEST>,<SRCE>,<
  5467						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5468						IFLE	<SRCE-20>,<
  5469	035025	312 04 0 00 040752 		CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5470						IFIDN	<DEST>,<SRCE>,<
  5471						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5472						IFDIF	<DEST>,<SRCE>,<
  5473	035026	002 04 0 00 023402 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5474						GCAM	(SRCE+1,<770077007700>)^
  5475			023403		SN=SN+1
  5476						IFG	<SRCE+1-20>,<
  5477						MOVE	AC-1,SRCE+1
  5478						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5479						IFIDN	<DEST>,<SRCE+1>,<
  5480						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5481						IFDIF	<DEST>,<SRCE+1>,<
  5482						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5483						IFLE	<SRCE+1-20>,<
  5484	035027	312 05 0 00 041017 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5485						IFIDN	<DEST>,<SRCE+1>,<
  5486						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5487						IFDIF	<DEST>,<SRCE+1>,<
  5488	035030	002 05 0 00 023403 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5489						GCAM	(DEST-1,<070707070707>)^
  5490			023404		SN=SN+1
  5491						IFG	<DEST-1-20>,<
  5492	035031	200 11 0 00 040223 		MOVE	AC-1,DEST-1
  5493	035032	312 11 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5494						IFIDN	<DEST>,<DEST-1>,<
  5495						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5496						IFDIF	<DEST>,<DEST-1>,<
  5497	035033	002 11 0 00 023404 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-17
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0148

  5498						IFLE	<DEST-1-20>,<
  5499						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5500						IFIDN	<DEST>,<DEST-1>,<
  5501						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5502						IFDIF	<DEST>,<DEST-1>,<
  5503						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5504						GCAM	(DEST,<230703,,603700>)^
  5505			023405		SN=SN+1
  5506						IFG	<DEST-20>,<
  5507	035034	200 11 0 00 040224 		MOVE	AC-1,DEST
  5508	035035	312 11 0 00 040752 		CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5509						IFIDN	<DEST>,<DEST>,<
  5510	035036	002 11 0 00 023405 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5511						IFDIF	<DEST>,<DEST>,<
  5512						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5513						IFLE	<DEST-20>,<
  5514						CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5515						IFIDN	<DEST>,<DEST>,<
  5516						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5517						IFDIF	<DEST>,<DEST>,<
  5518						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5519						GCAM	(DEST+1,<552255225522>)^
  5520			023406		SN=SN+1
  5521						IFG	<DEST+1-20>,<
  5522	035037	200 11 0 00 040225 		MOVE	AC-1,DEST+1
  5523	035040	312 11 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5524						IFIDN	<DEST>,<DEST+1>,<
  5525						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5526						IFDIF	<DEST>,<DEST+1>,<
  5527	035041	002 11 0 00 023406 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5528						IFLE	<DEST+1-20>,<
  5529						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5530						IFIDN	<DEST>,<DEST+1>,<
  5531						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5532						IFDIF	<DEST>,<DEST+1>,<
  5533						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5534	035042	321 14 0 00 035010 		JUMPL	AC+2,G23400		;LOOP ON ERROR^
  5535					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-18
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0149

  5536					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5537
  5538						BLTM1	(23500,11,<BLTBLK+1>,<BLTBLK+4>,0)^
  5539					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5540					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5541					;SOURCE DATA = 0
  5542
  5543			000011			AC=11
  5544						SAVEAC	(1,1)^
  5545	035043	201 13 0 00 035043 		MOVEI	AC+2,.		;SAVE TEST PC
  5546	035044	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  5547	035045	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5548	035046	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5549			023500		SN=23500
  5550			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5551			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5552			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5553
  5554	035047	200 11 0 00 041030 	G23500:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5555						GMOV	(SRCE-1,<252525252525>)^
  5556						IFLE	<SRCE-1-20>,<
  5557						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5558						IFG	<SRCE-1-20>,<
  5559	035050	200 12 0 00 041016 		MOVE	AC+1,[252525252525]
  5560	035051	202 12 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5561						GMOV	(SRCE,<0>)^
  5562						IFLE	<SRCE-20>,<
  5563						MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  5564						IFG	<SRCE-20>,<
  5565	035052	200 12 0 00 041011 		MOVE	AC+1,[0]
  5566	035053	202 12 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  5567						GMOV	(SRCE+1,<770077007700>)^
  5568						IFLE	<SRCE+1-20>,<
  5569						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5570						IFG	<SRCE+1-20>,<
  5571	035054	200 12 0 00 041017 		MOVE	AC+1,[770077007700]
  5572	035055	202 12 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5573						GMOV	(DEST-1,<070707070707>)^
  5574						IFLE	<DEST-1-20>,<
  5575						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5576						IFG	<DEST-1-20>,<
  5577	035056	200 12 0 00 041020 		MOVE	AC+1,[070707070707]
  5578	035057	202 12 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5579						GMOV	(DEST,<123456765432>)^
  5580						IFLE	<DEST-20>,<
  5581						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5582						IFG	<DEST-20>,<
  5583	035060	200 12 0 00 041021 		MOVE	AC+1,[123456765432]
  5584	035061	202 12 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5585						GMOV	(DEST+1,<552255225522>)^
  5586						IFLE	<DEST+1-20>,<
  5587						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5588						IFG	<DEST+1-20>,<
  5589	035062	200 12 0 00 041022 		MOVE	AC+1,[552255225522]
  5590	035063	202 12 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-19
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0150

  5591	035064	251 11 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5592						GCAM	(SRCE-1,<252525252525>)^
  5593			023501		SN=SN+1
  5594						IFG	<SRCE-1-20>,<
  5595	035065	200 10 0 00 040220 		MOVE	AC-1,SRCE-1
  5596	035066	312 10 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5597						IFIDN	<DEST>,<SRCE-1>,<
  5598						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5599						IFDIF	<DEST>,<SRCE-1>,<
  5600	035067	002 10 0 00 023501 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5601						IFLE	<SRCE-1-20>,<
  5602						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5603						IFIDN	<DEST>,<SRCE-1>,<
  5604						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5605						IFDIF	<DEST>,<SRCE-1>,<
  5606						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5607						GCAM	(SRCE,<0>)^
  5608			023502		SN=SN+1
  5609						IFG	<SRCE-20>,<
  5610	035070	200 10 0 00 040221 		MOVE	AC-1,SRCE
  5611	035071	312 10 0 00 041011 		CAME	AC-1,[0]	;IS C(SRCE) = 0
  5612						IFIDN	<DEST>,<SRCE>,<
  5613						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5614						IFDIF	<DEST>,<SRCE>,<
  5615	035072	002 10 0 00 023502 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5616						IFLE	<SRCE-20>,<
  5617						CAME	SRCE,[0]	;IS C(SRCE) = 0
  5618						IFIDN	<DEST>,<SRCE>,<
  5619						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5620						IFDIF	<DEST>,<SRCE>,<
  5621						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5622						GCAM	(SRCE+1,<770077007700>)^
  5623			023503		SN=SN+1
  5624						IFG	<SRCE+1-20>,<
  5625	035073	200 10 0 00 040222 		MOVE	AC-1,SRCE+1
  5626	035074	312 10 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5627						IFIDN	<DEST>,<SRCE+1>,<
  5628						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5629						IFDIF	<DEST>,<SRCE+1>,<
  5630	035075	002 10 0 00 023503 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5631						IFLE	<SRCE+1-20>,<
  5632						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5633						IFIDN	<DEST>,<SRCE+1>,<
  5634						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5635						IFDIF	<DEST>,<SRCE+1>,<
  5636						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5637						GCAM	(DEST-1,<070707070707>)^
  5638			023504		SN=SN+1
  5639						IFG	<DEST-1-20>,<
  5640	035076	200 10 0 00 040223 		MOVE	AC-1,DEST-1
  5641	035077	312 10 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5642						IFIDN	<DEST>,<DEST-1>,<
  5643						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5644						IFDIF	<DEST>,<DEST-1>,<
  5645	035100	002 10 0 00 023504 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-20
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0151

  5646						IFLE	<DEST-1-20>,<
  5647						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5648						IFIDN	<DEST>,<DEST-1>,<
  5649						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5650						IFDIF	<DEST>,<DEST-1>,<
  5651						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5652						GCAM	(DEST,<0>)^
  5653			023505		SN=SN+1
  5654						IFG	<DEST-20>,<
  5655	035101	200 10 0 00 040224 		MOVE	AC-1,DEST
  5656	035102	312 10 0 00 041011 		CAME	AC-1,[0]	;IS C(DEST) = 0
  5657						IFIDN	<DEST>,<DEST>,<
  5658	035103	002 10 0 00 023505 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5659						IFDIF	<DEST>,<DEST>,<
  5660						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5661						IFLE	<DEST-20>,<
  5662						CAME	DEST,[0]	;IS C(DEST) = 0
  5663						IFIDN	<DEST>,<DEST>,<
  5664						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5665						IFDIF	<DEST>,<DEST>,<
  5666						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5667						GCAM	(DEST+1,<552255225522>)^
  5668			023506		SN=SN+1
  5669						IFG	<DEST+1-20>,<
  5670	035104	200 10 0 00 040225 		MOVE	AC-1,DEST+1
  5671	035105	312 10 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5672						IFIDN	<DEST>,<DEST+1>,<
  5673						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5674						IFDIF	<DEST>,<DEST+1>,<
  5675	035106	002 10 0 00 023506 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5676						IFLE	<DEST+1-20>,<
  5677						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5678						IFIDN	<DEST>,<DEST+1>,<
  5679						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5680						IFDIF	<DEST>,<DEST+1>,<
  5681						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5682	035107	321 13 0 00 035047 		JUMPL	AC+2,G23500		;LOOP ON ERROR^
  5683					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-21
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0152

  5684					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5685
  5686						BLTM1	(23600,10,<BLTBLK+1>,<BLTBLK+4>,-1)^
  5687					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5688					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5689					;SOURCE DATA = -1
  5690
  5691			000010			AC=10
  5692						SAVEAC	(1,1)^
  5693	035110	201 12 0 00 035110 		MOVEI	AC+2,.		;SAVE TEST PC
  5694	035111	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  5695	035112	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5696	035113	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5697			023600		SN=23600
  5698			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5699			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5700			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5701
  5702	035114	200 10 0 00 041030 	G23600:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5703						GMOV	(SRCE-1,<252525252525>)^
  5704						IFLE	<SRCE-1-20>,<
  5705						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5706						IFG	<SRCE-1-20>,<
  5707	035115	200 11 0 00 041016 		MOVE	AC+1,[252525252525]
  5708	035116	202 11 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5709						GMOV	(SRCE,<-1>)^
  5710						IFLE	<SRCE-20>,<
  5711						MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  5712						IFG	<SRCE-20>,<
  5713	035117	200 11 0 00 040734 		MOVE	AC+1,[-1]
  5714	035120	202 11 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  5715						GMOV	(SRCE+1,<770077007700>)^
  5716						IFLE	<SRCE+1-20>,<
  5717						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5718						IFG	<SRCE+1-20>,<
  5719	035121	200 11 0 00 041017 		MOVE	AC+1,[770077007700]
  5720	035122	202 11 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5721						GMOV	(DEST-1,<070707070707>)^
  5722						IFLE	<DEST-1-20>,<
  5723						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5724						IFG	<DEST-1-20>,<
  5725	035123	200 11 0 00 041020 		MOVE	AC+1,[070707070707]
  5726	035124	202 11 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5727						GMOV	(DEST,<123456765432>)^
  5728						IFLE	<DEST-20>,<
  5729						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5730						IFG	<DEST-20>,<
  5731	035125	200 11 0 00 041021 		MOVE	AC+1,[123456765432]
  5732	035126	202 11 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5733						GMOV	(DEST+1,<552255225522>)^
  5734						IFLE	<DEST+1-20>,<
  5735						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5736						IFG	<DEST+1-20>,<
  5737	035127	200 11 0 00 041022 		MOVE	AC+1,[552255225522]
  5738	035130	202 11 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-22
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0153

  5739	035131	251 10 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5740						GCAM	(SRCE-1,<252525252525>)^
  5741			023601		SN=SN+1
  5742						IFG	<SRCE-1-20>,<
  5743	035132	200 07 0 00 040220 		MOVE	AC-1,SRCE-1
  5744	035133	312 07 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5745						IFIDN	<DEST>,<SRCE-1>,<
  5746						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5747						IFDIF	<DEST>,<SRCE-1>,<
  5748	035134	002 07 0 00 023601 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5749						IFLE	<SRCE-1-20>,<
  5750						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5751						IFIDN	<DEST>,<SRCE-1>,<
  5752						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5753						IFDIF	<DEST>,<SRCE-1>,<
  5754						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5755						GCAM	(SRCE,<-1>)^
  5756			023602		SN=SN+1
  5757						IFG	<SRCE-20>,<
  5758	035135	200 07 0 00 040221 		MOVE	AC-1,SRCE
  5759	035136	312 07 0 00 040734 		CAME	AC-1,[-1]	;IS C(SRCE) = -1
  5760						IFIDN	<DEST>,<SRCE>,<
  5761						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5762						IFDIF	<DEST>,<SRCE>,<
  5763	035137	002 07 0 00 023602 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5764						IFLE	<SRCE-20>,<
  5765						CAME	SRCE,[-1]	;IS C(SRCE) = -1
  5766						IFIDN	<DEST>,<SRCE>,<
  5767						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5768						IFDIF	<DEST>,<SRCE>,<
  5769						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5770						GCAM	(SRCE+1,<770077007700>)^
  5771			023603		SN=SN+1
  5772						IFG	<SRCE+1-20>,<
  5773	035140	200 07 0 00 040222 		MOVE	AC-1,SRCE+1
  5774	035141	312 07 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5775						IFIDN	<DEST>,<SRCE+1>,<
  5776						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5777						IFDIF	<DEST>,<SRCE+1>,<
  5778	035142	002 07 0 00 023603 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5779						IFLE	<SRCE+1-20>,<
  5780						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5781						IFIDN	<DEST>,<SRCE+1>,<
  5782						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5783						IFDIF	<DEST>,<SRCE+1>,<
  5784						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5785						GCAM	(DEST-1,<070707070707>)^
  5786			023604		SN=SN+1
  5787						IFG	<DEST-1-20>,<
  5788	035143	200 07 0 00 040223 		MOVE	AC-1,DEST-1
  5789	035144	312 07 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5790						IFIDN	<DEST>,<DEST-1>,<
  5791						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5792						IFDIF	<DEST>,<DEST-1>,<
  5793	035145	002 07 0 00 023604 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-23
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0154

  5794						IFLE	<DEST-1-20>,<
  5795						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5796						IFIDN	<DEST>,<DEST-1>,<
  5797						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5798						IFDIF	<DEST>,<DEST-1>,<
  5799						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5800						GCAM	(DEST,<-1>)^
  5801			023605		SN=SN+1
  5802						IFG	<DEST-20>,<
  5803	035146	200 07 0 00 040224 		MOVE	AC-1,DEST
  5804	035147	312 07 0 00 040734 		CAME	AC-1,[-1]	;IS C(DEST) = -1
  5805						IFIDN	<DEST>,<DEST>,<
  5806	035150	002 07 0 00 023605 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5807						IFDIF	<DEST>,<DEST>,<
  5808						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5809						IFLE	<DEST-20>,<
  5810						CAME	DEST,[-1]	;IS C(DEST) = -1
  5811						IFIDN	<DEST>,<DEST>,<
  5812						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5813						IFDIF	<DEST>,<DEST>,<
  5814						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5815						GCAM	(DEST+1,<552255225522>)^
  5816			023606		SN=SN+1
  5817						IFG	<DEST+1-20>,<
  5818	035151	200 07 0 00 040225 		MOVE	AC-1,DEST+1
  5819	035152	312 07 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5820						IFIDN	<DEST>,<DEST+1>,<
  5821						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5822						IFDIF	<DEST>,<DEST+1>,<
  5823	035153	002 07 0 00 023606 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5824						IFLE	<DEST+1-20>,<
  5825						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5826						IFIDN	<DEST>,<DEST+1>,<
  5827						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5828						IFDIF	<DEST>,<DEST+1>,<
  5829						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5830	035154	321 12 0 00 035114 		JUMPL	AC+2,G23600		;LOOP ON ERROR^
  5831					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-24
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0155

  5832					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5833
  5834						BLTM1	(23700,7,<BLTBLK+1>,<BLTBLK+4>,<230703,,603700>)^
  5835					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5836					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5837					;SOURCE DATA = 230703,,603700
  5838
  5839			000007			AC=7
  5840						SAVEAC	(1,1)^
  5841	035155	201 11 0 00 035155 		MOVEI	AC+2,.		;SAVE TEST PC
  5842	035156	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  5843	035157	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5844	035160	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5845			023700		SN=23700
  5846			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5847			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5848			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5849
  5850	035161	200 07 0 00 041030 	G23700:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5851						GMOV	(SRCE-1,<252525252525>)^
  5852						IFLE	<SRCE-1-20>,<
  5853						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5854						IFG	<SRCE-1-20>,<
  5855	035162	200 10 0 00 041016 		MOVE	AC+1,[252525252525]
  5856	035163	202 10 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5857						GMOV	(SRCE,<230703,,603700>)^
  5858						IFLE	<SRCE-20>,<
  5859						MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  5860						IFG	<SRCE-20>,<
  5861	035164	200 10 0 00 040752 		MOVE	AC+1,[230703,,603700]
  5862	035165	202 10 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  5863						GMOV	(SRCE+1,<770077007700>)^
  5864						IFLE	<SRCE+1-20>,<
  5865						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5866						IFG	<SRCE+1-20>,<
  5867	035166	200 10 0 00 041017 		MOVE	AC+1,[770077007700]
  5868	035167	202 10 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5869						GMOV	(DEST-1,<070707070707>)^
  5870						IFLE	<DEST-1-20>,<
  5871						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5872						IFG	<DEST-1-20>,<
  5873	035170	200 10 0 00 041020 		MOVE	AC+1,[070707070707]
  5874	035171	202 10 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5875						GMOV	(DEST,<123456765432>)^
  5876						IFLE	<DEST-20>,<
  5877						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5878						IFG	<DEST-20>,<
  5879	035172	200 10 0 00 041021 		MOVE	AC+1,[123456765432]
  5880	035173	202 10 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5881						GMOV	(DEST+1,<552255225522>)^
  5882						IFLE	<DEST+1-20>,<
  5883						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5884						IFG	<DEST+1-20>,<
  5885	035174	200 10 0 00 041022 		MOVE	AC+1,[552255225522]
  5886	035175	202 10 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-25
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0156

  5887	035176	251 07 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5888						GCAM	(SRCE-1,<252525252525>)^
  5889			023701		SN=SN+1
  5890						IFG	<SRCE-1-20>,<
  5891	035177	200 06 0 00 040220 		MOVE	AC-1,SRCE-1
  5892	035200	312 06 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5893						IFIDN	<DEST>,<SRCE-1>,<
  5894						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5895						IFDIF	<DEST>,<SRCE-1>,<
  5896	035201	002 06 0 00 023701 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5897						IFLE	<SRCE-1-20>,<
  5898						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5899						IFIDN	<DEST>,<SRCE-1>,<
  5900						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5901						IFDIF	<DEST>,<SRCE-1>,<
  5902						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5903						GCAM	(SRCE,<230703,,603700>)^
  5904			023702		SN=SN+1
  5905						IFG	<SRCE-20>,<
  5906	035202	200 06 0 00 040221 		MOVE	AC-1,SRCE
  5907	035203	312 06 0 00 040752 		CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5908						IFIDN	<DEST>,<SRCE>,<
  5909						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5910						IFDIF	<DEST>,<SRCE>,<
  5911	035204	002 06 0 00 023702 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5912						IFLE	<SRCE-20>,<
  5913						CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5914						IFIDN	<DEST>,<SRCE>,<
  5915						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5916						IFDIF	<DEST>,<SRCE>,<
  5917						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5918						GCAM	(SRCE+1,<770077007700>)^
  5919			023703		SN=SN+1
  5920						IFG	<SRCE+1-20>,<
  5921	035205	200 06 0 00 040222 		MOVE	AC-1,SRCE+1
  5922	035206	312 06 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5923						IFIDN	<DEST>,<SRCE+1>,<
  5924						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5925						IFDIF	<DEST>,<SRCE+1>,<
  5926	035207	002 06 0 00 023703 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5927						IFLE	<SRCE+1-20>,<
  5928						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5929						IFIDN	<DEST>,<SRCE+1>,<
  5930						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5931						IFDIF	<DEST>,<SRCE+1>,<
  5932						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5933						GCAM	(DEST-1,<070707070707>)^
  5934			023704		SN=SN+1
  5935						IFG	<DEST-1-20>,<
  5936	035210	200 06 0 00 040223 		MOVE	AC-1,DEST-1
  5937	035211	312 06 0 00 041020 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5938						IFIDN	<DEST>,<DEST-1>,<
  5939						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5940						IFDIF	<DEST>,<DEST-1>,<
  5941	035212	002 06 0 00 023704 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-26
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0157

  5942						IFLE	<DEST-1-20>,<
  5943						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5944						IFIDN	<DEST>,<DEST-1>,<
  5945						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5946						IFDIF	<DEST>,<DEST-1>,<
  5947						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5948						GCAM	(DEST,<230703,,603700>)^
  5949			023705		SN=SN+1
  5950						IFG	<DEST-20>,<
  5951	035213	200 06 0 00 040224 		MOVE	AC-1,DEST
  5952	035214	312 06 0 00 040752 		CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5953						IFIDN	<DEST>,<DEST>,<
  5954	035215	002 06 0 00 023705 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5955						IFDIF	<DEST>,<DEST>,<
  5956						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5957						IFLE	<DEST-20>,<
  5958						CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5959						IFIDN	<DEST>,<DEST>,<
  5960						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5961						IFDIF	<DEST>,<DEST>,<
  5962						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5963						GCAM	(DEST+1,<552255225522>)^
  5964			023706		SN=SN+1
  5965						IFG	<DEST+1-20>,<
  5966	035216	200 06 0 00 040225 		MOVE	AC-1,DEST+1
  5967	035217	312 06 0 00 041022 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5968						IFIDN	<DEST>,<DEST+1>,<
  5969						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5970						IFDIF	<DEST>,<DEST+1>,<
  5971	035220	002 06 0 00 023706 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5972						IFLE	<DEST+1-20>,<
  5973						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5974						IFIDN	<DEST>,<DEST+1>,<
  5975						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5976						IFDIF	<DEST>,<DEST+1>,<
  5977						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5978	035221	321 11 0 00 035161 		JUMPL	AC+2,G23700		;LOOP ON ERROR^
  5979					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-27
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0158

  5980					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  5981
  5982						BLTM1	(24000,14,<BLTBLK+1>,<<AC-6>&17>,0)^
  5983					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5984					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5985					;SOURCE DATA = 0
  5986
  5987			000014			AC=14
  5988						SAVEAC	(1,1)^
  5989	035222	201 16 0 00 035222 		MOVEI	AC+2,.		;SAVE TEST PC
  5990	035223	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  5991	035224	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5992	035225	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5993			024000		SN=24000
  5994			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5995			000006			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  5996			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5997
  5998	035226	200 14 0 00 041031 	G24000:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5999						GMOV	(SRCE-1,<252525252525>)^
  6000						IFLE	<SRCE-1-20>,<
  6001						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  6002						IFG	<SRCE-1-20>,<
  6003	035227	200 15 0 00 041016 		MOVE	AC+1,[252525252525]
  6004	035230	202 15 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  6005						GMOV	(SRCE,<0>)^
  6006						IFLE	<SRCE-20>,<
  6007						MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  6008						IFG	<SRCE-20>,<
  6009	035231	200 15 0 00 041011 		MOVE	AC+1,[0]
  6010	035232	202 15 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  6011						GMOV	(SRCE+1,<770077007700>)^
  6012						IFLE	<SRCE+1-20>,<
  6013						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  6014						IFG	<SRCE+1-20>,<
  6015	035233	200 15 0 00 041017 		MOVE	AC+1,[770077007700]
  6016	035234	202 15 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  6017						GMOV	(DEST-1,<070707070707>)^
  6018						IFLE	<DEST-1-20>,<
  6019	035235	200 05 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  6020						IFG	<DEST-1-20>,<
  6021						MOVE	AC+1,[070707070707]
  6022						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  6023						GMOV	(DEST,<123456765432>)^
  6024						IFLE	<DEST-20>,<
  6025	035236	200 06 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  6026						IFG	<DEST-20>,<
  6027						MOVE	AC+1,[123456765432]
  6028						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  6029						GMOV	(DEST+1,<552255225522>)^
  6030						IFLE	<DEST+1-20>,<
  6031	035237	200 07 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  6032						IFG	<DEST+1-20>,<
  6033						MOVE	AC+1,[552255225522]
  6034						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-28
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0159

  6035	035240	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  6036						GCAM	(SRCE-1,<252525252525>)^
  6037			024001		SN=SN+1
  6038						IFG	<SRCE-1-20>,<
  6039	035241	200 13 0 00 040220 		MOVE	AC-1,SRCE-1
  6040	035242	312 13 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6041						IFIDN	<DEST>,<SRCE-1>,<
  6042						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6043						IFDIF	<DEST>,<SRCE-1>,<
  6044	035243	002 13 0 00 024001 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6045						IFLE	<SRCE-1-20>,<
  6046						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6047						IFIDN	<DEST>,<SRCE-1>,<
  6048						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6049						IFDIF	<DEST>,<SRCE-1>,<
  6050						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6051						GCAM	(SRCE,<0>)^
  6052			024002		SN=SN+1
  6053						IFG	<SRCE-20>,<
  6054	035244	200 13 0 00 040221 		MOVE	AC-1,SRCE
  6055	035245	312 13 0 00 041011 		CAME	AC-1,[0]	;IS C(SRCE) = 0
  6056						IFIDN	<DEST>,<SRCE>,<
  6057						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6058						IFDIF	<DEST>,<SRCE>,<
  6059	035246	002 13 0 00 024002 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6060						IFLE	<SRCE-20>,<
  6061						CAME	SRCE,[0]	;IS C(SRCE) = 0
  6062						IFIDN	<DEST>,<SRCE>,<
  6063						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6064						IFDIF	<DEST>,<SRCE>,<
  6065						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6066						GCAM	(SRCE+1,<770077007700>)^
  6067			024003		SN=SN+1
  6068						IFG	<SRCE+1-20>,<
  6069	035247	200 13 0 00 040222 		MOVE	AC-1,SRCE+1
  6070	035250	312 13 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6071						IFIDN	<DEST>,<SRCE+1>,<
  6072						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6073						IFDIF	<DEST>,<SRCE+1>,<
  6074	035251	002 13 0 00 024003 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6075						IFLE	<SRCE+1-20>,<
  6076						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6077						IFIDN	<DEST>,<SRCE+1>,<
  6078						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6079						IFDIF	<DEST>,<SRCE+1>,<
  6080						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6081						GCAM	(DEST-1,<070707070707>)^
  6082			024004		SN=SN+1
  6083						IFG	<DEST-1-20>,<
  6084						MOVE	AC-1,DEST-1
  6085						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6086						IFIDN	<DEST>,<DEST-1>,<
  6087						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6088						IFDIF	<DEST>,<DEST-1>,<
  6089						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-29
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0160

  6090						IFLE	<DEST-1-20>,<
  6091	035252	312 05 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6092						IFIDN	<DEST>,<DEST-1>,<
  6093						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6094						IFDIF	<DEST>,<DEST-1>,<
  6095	035253	002 05 0 00 024004 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6096						GCAM	(DEST,<0>)^
  6097			024005		SN=SN+1
  6098						IFG	<DEST-20>,<
  6099						MOVE	AC-1,DEST
  6100						CAME	AC-1,[0]	;IS C(DEST) = 0
  6101						IFIDN	<DEST>,<DEST>,<
  6102						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6103						IFDIF	<DEST>,<DEST>,<
  6104						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6105						IFLE	<DEST-20>,<
  6106	035254	312 06 0 00 041011 		CAME	DEST,[0]	;IS C(DEST) = 0
  6107						IFIDN	<DEST>,<DEST>,<
  6108	035255	002 06 0 00 024005 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6109						IFDIF	<DEST>,<DEST>,<
  6110						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6111						GCAM	(DEST+1,<552255225522>)^
  6112			024006		SN=SN+1
  6113						IFG	<DEST+1-20>,<
  6114						MOVE	AC-1,DEST+1
  6115						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6116						IFIDN	<DEST>,<DEST+1>,<
  6117						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6118						IFDIF	<DEST>,<DEST+1>,<
  6119						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6120						IFLE	<DEST+1-20>,<
  6121	035256	312 07 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6122						IFIDN	<DEST>,<DEST+1>,<
  6123						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6124						IFDIF	<DEST>,<DEST+1>,<
  6125	035257	002 07 0 00 024006 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6126	035260	321 16 0 00 035226 		JUMPL	AC+2,G24000		;LOOP ON ERROR^
  6127					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-30
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0161

  6128					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  6129
  6130						BLTM1	(24100,13,<BLTBLK+1>,<<AC-6>&17>,-1)^
  6131					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  6132					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  6133					;SOURCE DATA = -1
  6134
  6135			000013			AC=13
  6136						SAVEAC	(1,1)^
  6137	035261	201 15 0 00 035261 		MOVEI	AC+2,.		;SAVE TEST PC
  6138	035262	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  6139	035263	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6140	035264	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6141			024100		SN=24100
  6142			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  6143			000005			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  6144			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  6145
  6146	035265	200 13 0 00 041032 	G24100:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  6147						GMOV	(SRCE-1,<252525252525>)^
  6148						IFLE	<SRCE-1-20>,<
  6149						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  6150						IFG	<SRCE-1-20>,<
  6151	035266	200 14 0 00 041016 		MOVE	AC+1,[252525252525]
  6152	035267	202 14 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  6153						GMOV	(SRCE,<-1>)^
  6154						IFLE	<SRCE-20>,<
  6155						MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  6156						IFG	<SRCE-20>,<
  6157	035270	200 14 0 00 040734 		MOVE	AC+1,[-1]
  6158	035271	202 14 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  6159						GMOV	(SRCE+1,<770077007700>)^
  6160						IFLE	<SRCE+1-20>,<
  6161						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  6162						IFG	<SRCE+1-20>,<
  6163	035272	200 14 0 00 041017 		MOVE	AC+1,[770077007700]
  6164	035273	202 14 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  6165						GMOV	(DEST-1,<070707070707>)^
  6166						IFLE	<DEST-1-20>,<
  6167	035274	200 04 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  6168						IFG	<DEST-1-20>,<
  6169						MOVE	AC+1,[070707070707]
  6170						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  6171						GMOV	(DEST,<123456765432>)^
  6172						IFLE	<DEST-20>,<
  6173	035275	200 05 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  6174						IFG	<DEST-20>,<
  6175						MOVE	AC+1,[123456765432]
  6176						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  6177						GMOV	(DEST+1,<552255225522>)^
  6178						IFLE	<DEST+1-20>,<
  6179	035276	200 06 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  6180						IFG	<DEST+1-20>,<
  6181						MOVE	AC+1,[552255225522]
  6182						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-31
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0162

  6183	035277	251 13 0 00 000005 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  6184						GCAM	(SRCE-1,<252525252525>)^
  6185			024101		SN=SN+1
  6186						IFG	<SRCE-1-20>,<
  6187	035300	200 12 0 00 040220 		MOVE	AC-1,SRCE-1
  6188	035301	312 12 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6189						IFIDN	<DEST>,<SRCE-1>,<
  6190						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6191						IFDIF	<DEST>,<SRCE-1>,<
  6192	035302	002 12 0 00 024101 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6193						IFLE	<SRCE-1-20>,<
  6194						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6195						IFIDN	<DEST>,<SRCE-1>,<
  6196						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6197						IFDIF	<DEST>,<SRCE-1>,<
  6198						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6199						GCAM	(SRCE,<-1>)^
  6200			024102		SN=SN+1
  6201						IFG	<SRCE-20>,<
  6202	035303	200 12 0 00 040221 		MOVE	AC-1,SRCE
  6203	035304	312 12 0 00 040734 		CAME	AC-1,[-1]	;IS C(SRCE) = -1
  6204						IFIDN	<DEST>,<SRCE>,<
  6205						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6206						IFDIF	<DEST>,<SRCE>,<
  6207	035305	002 12 0 00 024102 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6208						IFLE	<SRCE-20>,<
  6209						CAME	SRCE,[-1]	;IS C(SRCE) = -1
  6210						IFIDN	<DEST>,<SRCE>,<
  6211						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6212						IFDIF	<DEST>,<SRCE>,<
  6213						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6214						GCAM	(SRCE+1,<770077007700>)^
  6215			024103		SN=SN+1
  6216						IFG	<SRCE+1-20>,<
  6217	035306	200 12 0 00 040222 		MOVE	AC-1,SRCE+1
  6218	035307	312 12 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6219						IFIDN	<DEST>,<SRCE+1>,<
  6220						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6221						IFDIF	<DEST>,<SRCE+1>,<
  6222	035310	002 12 0 00 024103 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6223						IFLE	<SRCE+1-20>,<
  6224						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6225						IFIDN	<DEST>,<SRCE+1>,<
  6226						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6227						IFDIF	<DEST>,<SRCE+1>,<
  6228						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6229						GCAM	(DEST-1,<070707070707>)^
  6230			024104		SN=SN+1
  6231						IFG	<DEST-1-20>,<
  6232						MOVE	AC-1,DEST-1
  6233						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6234						IFIDN	<DEST>,<DEST-1>,<
  6235						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6236						IFDIF	<DEST>,<DEST-1>,<
  6237						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-32
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0163

  6238						IFLE	<DEST-1-20>,<
  6239	035311	312 04 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6240						IFIDN	<DEST>,<DEST-1>,<
  6241						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6242						IFDIF	<DEST>,<DEST-1>,<
  6243	035312	002 04 0 00 024104 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6244						GCAM	(DEST,<-1>)^
  6245			024105		SN=SN+1
  6246						IFG	<DEST-20>,<
  6247						MOVE	AC-1,DEST
  6248						CAME	AC-1,[-1]	;IS C(DEST) = -1
  6249						IFIDN	<DEST>,<DEST>,<
  6250						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6251						IFDIF	<DEST>,<DEST>,<
  6252						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6253						IFLE	<DEST-20>,<
  6254	035313	312 05 0 00 040734 		CAME	DEST,[-1]	;IS C(DEST) = -1
  6255						IFIDN	<DEST>,<DEST>,<
  6256	035314	002 05 0 00 024105 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6257						IFDIF	<DEST>,<DEST>,<
  6258						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6259						GCAM	(DEST+1,<552255225522>)^
  6260			024106		SN=SN+1
  6261						IFG	<DEST+1-20>,<
  6262						MOVE	AC-1,DEST+1
  6263						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6264						IFIDN	<DEST>,<DEST+1>,<
  6265						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6266						IFDIF	<DEST>,<DEST+1>,<
  6267						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6268						IFLE	<DEST+1-20>,<
  6269	035315	312 06 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6270						IFIDN	<DEST>,<DEST+1>,<
  6271						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6272						IFDIF	<DEST>,<DEST+1>,<
  6273	035316	002 06 0 00 024106 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6274	035317	321 15 0 00 035265 		JUMPL	AC+2,G24100		;LOOP ON ERROR^
  6275					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-33
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0164

  6276					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  6277
  6278						BLTM1	(24200,12,<BLTBLK+1>,<<AC-6>&17>,<230703,,603700>)^
  6279					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  6280					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  6281					;SOURCE DATA = 230703,,603700
  6282
  6283			000012			AC=12
  6284						SAVEAC	(1,1)^
  6285	035320	201 14 0 00 035320 		MOVEI	AC+2,.		;SAVE TEST PC
  6286	035321	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  6287	035322	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6288	035323	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6289			024200		SN=24200
  6290			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  6291			000004			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  6292			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  6293
  6294	035324	200 12 0 00 041033 	G24200:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  6295						GMOV	(SRCE-1,<252525252525>)^
  6296						IFLE	<SRCE-1-20>,<
  6297						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  6298						IFG	<SRCE-1-20>,<
  6299	035325	200 13 0 00 041016 		MOVE	AC+1,[252525252525]
  6300	035326	202 13 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  6301						GMOV	(SRCE,<230703,,603700>)^
  6302						IFLE	<SRCE-20>,<
  6303						MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  6304						IFG	<SRCE-20>,<
  6305	035327	200 13 0 00 040752 		MOVE	AC+1,[230703,,603700]
  6306	035330	202 13 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  6307						GMOV	(SRCE+1,<770077007700>)^
  6308						IFLE	<SRCE+1-20>,<
  6309						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  6310						IFG	<SRCE+1-20>,<
  6311	035331	200 13 0 00 041017 		MOVE	AC+1,[770077007700]
  6312	035332	202 13 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  6313						GMOV	(DEST-1,<070707070707>)^
  6314						IFLE	<DEST-1-20>,<
  6315	035333	200 03 0 00 041020 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  6316						IFG	<DEST-1-20>,<
  6317						MOVE	AC+1,[070707070707]
  6318						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  6319						GMOV	(DEST,<123456765432>)^
  6320						IFLE	<DEST-20>,<
  6321	035334	200 04 0 00 041021 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  6322						IFG	<DEST-20>,<
  6323						MOVE	AC+1,[123456765432]
  6324						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  6325						GMOV	(DEST+1,<552255225522>)^
  6326						IFLE	<DEST+1-20>,<
  6327	035335	200 05 0 00 041022 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  6328						IFG	<DEST+1-20>,<
  6329						MOVE	AC+1,[552255225522]
  6330						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-34
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0165

  6331	035336	251 12 0 00 000004 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  6332						GCAM	(SRCE-1,<252525252525>)^
  6333			024201		SN=SN+1
  6334						IFG	<SRCE-1-20>,<
  6335	035337	200 11 0 00 040220 		MOVE	AC-1,SRCE-1
  6336	035340	312 11 0 00 041016 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6337						IFIDN	<DEST>,<SRCE-1>,<
  6338						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6339						IFDIF	<DEST>,<SRCE-1>,<
  6340	035341	002 11 0 00 024201 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6341						IFLE	<SRCE-1-20>,<
  6342						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6343						IFIDN	<DEST>,<SRCE-1>,<
  6344						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6345						IFDIF	<DEST>,<SRCE-1>,<
  6346						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6347						GCAM	(SRCE,<230703,,603700>)^
  6348			024202		SN=SN+1
  6349						IFG	<SRCE-20>,<
  6350	035342	200 11 0 00 040221 		MOVE	AC-1,SRCE
  6351	035343	312 11 0 00 040752 		CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  6352						IFIDN	<DEST>,<SRCE>,<
  6353						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6354						IFDIF	<DEST>,<SRCE>,<
  6355	035344	002 11 0 00 024202 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6356						IFLE	<SRCE-20>,<
  6357						CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  6358						IFIDN	<DEST>,<SRCE>,<
  6359						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6360						IFDIF	<DEST>,<SRCE>,<
  6361						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6362						GCAM	(SRCE+1,<770077007700>)^
  6363			024203		SN=SN+1
  6364						IFG	<SRCE+1-20>,<
  6365	035345	200 11 0 00 040222 		MOVE	AC-1,SRCE+1
  6366	035346	312 11 0 00 041017 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6367						IFIDN	<DEST>,<SRCE+1>,<
  6368						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6369						IFDIF	<DEST>,<SRCE+1>,<
  6370	035347	002 11 0 00 024203 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6371						IFLE	<SRCE+1-20>,<
  6372						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6373						IFIDN	<DEST>,<SRCE+1>,<
  6374						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6375						IFDIF	<DEST>,<SRCE+1>,<
  6376						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6377						GCAM	(DEST-1,<070707070707>)^
  6378			024204		SN=SN+1
  6379						IFG	<DEST-1-20>,<
  6380						MOVE	AC-1,DEST-1
  6381						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6382						IFIDN	<DEST>,<DEST-1>,<
  6383						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6384						IFDIF	<DEST>,<DEST-1>,<
  6385						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 66-35
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0166

  6386						IFLE	<DEST-1-20>,<
  6387	035350	312 03 0 00 041020 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6388						IFIDN	<DEST>,<DEST-1>,<
  6389						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6390						IFDIF	<DEST>,<DEST-1>,<
  6391	035351	002 03 0 00 024204 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6392						GCAM	(DEST,<230703,,603700>)^
  6393			024205		SN=SN+1
  6394						IFG	<DEST-20>,<
  6395						MOVE	AC-1,DEST
  6396						CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  6397						IFIDN	<DEST>,<DEST>,<
  6398						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6399						IFDIF	<DEST>,<DEST>,<
  6400						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6401						IFLE	<DEST-20>,<
  6402	035352	312 04 0 00 040752 		CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  6403						IFIDN	<DEST>,<DEST>,<
  6404	035353	002 04 0 00 024205 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6405						IFDIF	<DEST>,<DEST>,<
  6406						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6407						GCAM	(DEST+1,<552255225522>)^
  6408			024206		SN=SN+1
  6409						IFG	<DEST+1-20>,<
  6410						MOVE	AC-1,DEST+1
  6411						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6412						IFIDN	<DEST>,<DEST+1>,<
  6413						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6414						IFDIF	<DEST>,<DEST+1>,<
  6415						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6416						IFLE	<DEST+1-20>,<
  6417	035354	312 05 0 00 041022 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6418						IFIDN	<DEST>,<DEST+1>,<
  6419						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6420						IFDIF	<DEST>,<DEST+1>,<
  6421	035355	002 05 0 00 024206 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6422	035356	321 14 0 00 035324 		JUMPL	AC+2,G24200		;LOOP ON ERROR^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 67
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0167

  6423					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6424					;- AC RANGE - ZEROS
  6425
  6426			000014			AC=14
  6427						SAVEAC	(1,1)^
  6428	035357	201 16 0 00 035357 		MOVEI	AC+2,.		;SAVE TEST PC
  6429	035360	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6430	035361	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6431	035362	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6432
  6433			020100		SN=20100
  6434			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6435			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6436			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6437
  6438	035363	200 14 0 00 041034 	G20100:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
  6439									;AND DESTINATION BLOCKS
  6440	035364	477 03 0 00 000011 		SETOB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF
  6441									;SOURCE BLOCK +1 WITH ONES
  6442	035365	403 04 0 00 000005 		SETZB	SRCE,SRCE+1	;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ZEROS
  6443	035366	403 06 0 00 000007 		SETZB	SRCE+2,SRCE+3
  6444	035367	402 00 0 00 000010 		SETZM	SRCE+4
  6445	035370	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6446			020101		SN=SN+1
  6447	035371	312 03 0 00 040734 		CAME	DEST-1,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6448									;CLOBBERED?
  6449	035372	002 03 0 00 020101 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6450									;BLOCK WAS CLOBBERED?
  6451			020102		SN=SN+1
  6452	035373	332 00 0 00 000004 		SKIPE	DEST		;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6453									;CORRECTLY FROM SOURCE?
  6454	035374	002 04 0 00 020102 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6455									;CORRECTLY FROM SOURCE
  6456			020103		SN=SN+1
  6457	035375	332 00 0 00 000005 		SKIPE	DEST+1		;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6458									;FROM SOURCE?
  6459	035376	002 05 0 00 020103 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6460									;CORRECTLY FROM SOURCE
  6461			020104		SN=SN+1
  6462	035377	332 00 0 00 000006 		SKIPE	DEST+2		;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6463									;FROM SOURCE?
  6464	035400	002 06 0 00 020104 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6465									;CORRECTLY FROM SOURCE
  6466			020105		SN=SN+1
  6467	035401	332 00 0 00 000007 		SKIPE	DEST+3		;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6468									;FROM SOURCE?
  6469	035402	002 07 0 00 020105 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6470									;CORRECTLY FROM SOURCE
  6471			020106		SN=SN+1
  6472	035403	332 00 0 00 000010 		SKIPE	DEST+4		;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6473									;FROM SOURCE?
  6474	035404	002 10 0 00 020106 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6475									;CORRECTLY FROM SOURCE
  6476			020107		SN=SN+1
  6477	035405	312 11 0 00 040734 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 67-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0168

  6478									;CLOBBERED?
  6479	035406	002 11 0 00 020107 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6480									;BLOCK WAS CLOBBERED
  6481	035407	321 16 0 00 035363 		JUMPL	AC+2,G20100	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 68
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0169

  6482					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6483					;- AC RANGE - ONES
  6484
  6485			000014			AC=14
  6486						SAVEAC	(1,1)^
  6487	035410	201 16 0 00 035410 		MOVEI	AC+2,.		;SAVE TEST PC
  6488	035411	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6489	035412	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6490	035413	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6491
  6492			020200		SN=20200
  6493			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6494			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6495			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6496
  6497	035414	200 14 0 00 041034 	G20200:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
  6498									;AND DESTINATION BLOCKS
  6499	035415	403 03 0 00 000011 		SETZB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
  6500									;BLOCK +1 WITH ZEROS
  6501	035416	477 04 0 00 000005 		SETOB	SRCE,SRCE+1	;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ONES
  6502	035417	477 06 0 00 000007 		SETOB	SRCE+2,SRCE+3
  6503	035420	476 00 0 00 000010 		SETOM	SRCE+4
  6504	035421	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6505			020201		SN=SN+1
  6506	035422	332 00 0 00 000003 		SKIPE	DEST-1		;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6507									;CLOBBERED?
  6508	035423	002 03 0 00 020201 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6509									;BLOCK WAS CLOBBERED?
  6510			020202		SN=SN+1
  6511	035424	312 04 0 00 040734 		CAME	DEST,[-1,,-1]	;WAS FIRST WORD OF DESTINATION BLOCK LOAED CORRECTLY
  6512									;FROM SOURCE?
  6513	035425	002 04 0 00 020202 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6514									;CORRECTLY FROM SOURCE
  6515			020203		SN=SN+1
  6516	035426	312 05 0 00 040734 		CAME	DEST+1,[-1,,-1]	;WAS SECOND WORD OF DESTINATION BLOCK LOADED
  6517									;CORRECTLY FROM SOURCE?
  6518	035427	002 05 0 00 020203 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6519									;CORRECTLY FROM SOURCE
  6520			020204		SN=SN+1
  6521	035430	312 06 0 00 040734 		CAME	DEST+2,[-1,,-1]	;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6522									;CORRECTLY FROM SOURCE?
  6523	035431	002 06 0 00 020204 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6524									;CORRECTLY FROM SOURCE
  6525			020205		SN=SN+1
  6526	035432	312 07 0 00 040734 		CAME	DEST+3,[-1,,-1]	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED
  6527									;CORRECTLY FROM SOURCE?
  6528	035433	002 07 0 00 020205 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6529									;CORRECTLY FROM SOURCE
  6530			020206		SN=SN+1
  6531	035434	312 10 0 00 040734 		CAME	DEST+4,[-1,,-1]	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6532									;CORRECTLY FROM SOURCE?
  6533	035435	002 10 0 00 020206 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6534									;CORRECTLY FROM SOURCE
  6535			020207		SN=SN+1
  6536	035436	332 00 0 00 000011 		SKIPE	DEST+SIZ	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 68-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0170

  6537									;CLOBBERED?
  6538	035437	002 11 0 00 020207 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6539									;BLOCK WAS CLOBBERED
  6540	035440	321 16 0 00 035414 		JUMPL	AC+2,G20200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 69
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0171

  6541					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6542					;- AC RANGE - SINGLE PATTERN
  6543
  6544			000014			AC=14
  6545						SAVEAC	(1,1)^
  6546	035441	201 16 0 00 035441 		MOVEI	AC+2,.		;SAVE TEST PC
  6547	035442	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6548	035443	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6549	035444	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6550
  6551			020300		SN=20300
  6552			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6553			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6554			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6555
  6556	035445	200 14 0 00 041034 	G20300:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6557									;SOURCE AND DESTINATION BLOCKS
  6558	035446	477 03 0 00 000011 		SETOB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
  6559									;BLOCK +1 WITH ONES
  6560	035447	200 04 0 00 040752 		MOVE	SRCE,[230703,,603700] ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH
  6561									;230703,,603700
  6562	035450	200 05 0 00 040752 		MOVE	SRCE+1,[230703,,603700]
  6563	035451	200 06 0 00 040752 		MOVE	SRCE+2,[230703,,603700]
  6564	035452	200 07 0 00 040752 		MOVE	SRCE+3,[230703,,603700]
  6565	035453	200 10 0 00 040752 		MOVE	SRCE+4,[230703,,603700]
  6566	035454	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6567			020301		SN=SN+1
  6568	035455	312 03 0 00 040734 		CAME	DEST-1,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6569									;BLOCK CLOBBERED?
  6570	035456	002 03 0 00 020301 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6571									;BLOCK WAS CLOBBERED?
  6572			020302		SN=SN+1
  6573	035457	312 04 0 00 040752 		CAME	DEST,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6574									;CORRECTLY FROM SOURCE?
  6575	035460	002 04 0 00 020302 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6576									;CORRECTLY FROM SOURCE
  6577			020303		SN=SN+1
  6578	035461	312 05 0 00 040752 		CAME	DEST+1,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
  6579									;LOADED CORRECTLY FROM SOURCE?
  6580	035462	002 05 0 00 020303 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6581									;CORRECTLY FROM SOURCE
  6582			020304		SN=SN+1
  6583	035463	312 06 0 00 040752 		CAME	DEST+2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK
  6584									;LOADED CORRECTLY FROM SOURCE?
  6585	035464	002 06 0 00 020304 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6586									;CORRECTLY FROM SOURCE
  6587			020305		SN=SN+1
  6588	035465	312 07 0 00 040752 		CAME	DEST+3,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6589									;LOADED CORRECTLY FROM SOURCE?
  6590	035466	002 07 0 00 020305 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6591									;CORRECTLY FROM SOURCE
  6592			020306		SN=SN+1
  6593	035467	312 10 0 00 040752 		CAME	DEST+4,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK
  6594									;NOT LOADED CORRECTLY FROM SOURCE
  6595	035470	002 10 0 00 020306 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 69-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0172

  6596									;CORRECTLY FROM SOURCE
  6597			020307		SN=SN+1
  6598	035471	312 11 0 00 040734 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6599									;BLOCK CLOBBERED?
  6600	035472	002 11 0 00 020307 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6601									;BLOCK WAS CLOBBERED
  6602	035473	321 16 0 00 035445 		JUMPL	AC+2,G20300	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 70
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0173

  6603					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6604					;- AC RANGE - MULTIPLE PATTERN
  6605
  6606			000014			AC=14
  6607						SAVEAC	(1,1)^
  6608	035474	201 16 0 00 035474 		MOVEI	AC+2,.		;SAVE TEST PC
  6609	035475	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6610	035476	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6611	035477	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6612
  6613			020400		SN=20400
  6614			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6615			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6616			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6617
  6618	035500	200 14 0 00 041034 	G20400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6619									;SOURCE AND DESTINATION BLOCKS
  6620	035501	200 03 0 00 040752 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  6621									;OF SOURCE BLOCK WITH 230703,,603700
  6622	035502	200 04 0 00 041016 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  6623									;252525,,252525
  6624	035503	200 05 0 00 041035 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  6625									;WITH 146314,,631463
  6626	035504	200 06 0 00 041020 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  6627									;WITH 070707,,070707
  6628	035505	200 07 0 00 041036 		MOVE	SRCE+3,[036074,,170360] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6629									;WITH 036074,,170360
  6630	035506	200 10 0 00 041037 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  6631									;WITH 017407,,603701
  6632	035507	200 11 0 00 041040 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  6633									;OF SOURCE BLOCK WITH 007603,,607062
  6634	035510	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6635			020401		SN=SN+1
  6636	035511	312 03 0 00 040752 		CAME	DEST-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6637									;BLOCK CLOBBERED?
  6638	035512	002 03 0 00 020401 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6639									;BLOCK WAS CLOBBERED?
  6640			020402		SN=SN+1
  6641	035513	312 04 0 00 041016 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6642									;CORRECTLY FROM SOURCE?
  6643	035514	002 04 0 00 020402 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6644									;CORRECTLY FROM SOURCE
  6645			020403		SN=SN+1
  6646	035515	312 05 0 00 041035 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  6647									;LOADED CORRECTLY FROM SOURCE?
  6648	035516	002 05 0 00 020403 		ER2	DEST+1,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6649									;CORRECTLY FROM SOURCE
  6650			020404		SN=SN+1
  6651	035517	312 06 0 00 041020 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  6652									;LOADED CORRECTLY FROM SOURCE?
  6653	035520	002 06 0 00 020404 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6654									;CORRECTLY FROM SOURCE
  6655			020405		SN=SN+1
  6656	035521	312 07 0 00 041036 		CAME	DEST+3,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6657									;LOADED CORRECTLY FROM SOURCE?
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 70-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0174

  6658	035522	002 07 0 00 020405 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6659									;CORRECTLY FROM SOURCE
  6660			020406		SN=SN+1
  6661	035523	312 10 0 00 041037 		CAME	DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  6662									;LOADED CORRECTLY FROM SOURCE?
  6663	035524	002 10 0 00 020406 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6664									;CORRECTLY FROM SOURCE
  6665			020407		SN=SN+1
  6666	035525	312 11 0 00 041040 		CAME	DEST+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6667									;BLOCK CLOBBERED?
  6668	035526	002 11 0 00 020407 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6669									;BLOCK WAS CLOBBERED
  6670	035527	321 16 0 00 035500 		JUMPL	AC+2,G20400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 71
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0175

  6671					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6672									;- NON-AC RANGE - ZEROS
  6673
  6674			000013			AC=13
  6675						SAVEAC	(1,1)^
  6676	035530	201 15 0 00 035530 		MOVEI	AC+2,.		;SAVE TEST PC
  6677	035531	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  6678	035532	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6679	035533	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6680
  6681			020500		SN=20500
  6682			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6683			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6684			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6685
  6686	035534	200 13 0 00 041014 	G20500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6687									;SOURCE AND DESTINATION BLOCKS
  6688	035535	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6689									;WITH ONES
  6690	035536	402 00 0 00 040221 		SETZM	SRCE		;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
  6691									;ZEROS
  6692	035537	402 00 0 00 040222 		SETZM	SRCE+1
  6693	035540	402 00 0 00 040223 		SETZM	SRCE+2
  6694	035541	402 00 0 00 040224 		SETZM	SRCE+3
  6695	035542	402 00 0 00 040225 		SETZM	SRCE+4
  6696	035543	476 00 0 00 040226 		SETOM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6697									;WITH ONES
  6698	035544	251 13 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6699			020501		SN=SN+1
  6700	035545	200 11 0 00 040220 		MOVE	AC-2,DEST-1
  6701	035546	312 11 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6702									;BLOCK CLOBBERED?
  6703	035547	002 11 0 00 020501 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6704									;BLOCK WAS CLOBBERED?
  6705			020502		SN=SN+1
  6706	035550	200 11 0 00 040221 		MOVE	AC-2,DEST
  6707	035551	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6708									;FROM SOURCE?
  6709	035552	002 11 0 00 020502 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6710									;CORRECTLY FROM SOURCE
  6711			020503		SN=SN+1
  6712	035553	200 11 0 00 040222 		MOVE	AC-2,DEST+1
  6713	035554	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6714									;FROM SOURCE?
  6715	035555	002 11 0 00 020503 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6716									;CORRECTLY FROM SOURCE
  6717			020504		SN=SN+1
  6718	035556	200 11 0 00 040223 		MOVE	AC-2,DEST+2
  6719	035557	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6720									;FROM SOURCE?
  6721	035560	002 11 0 00 020504 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6722									;CORRECTLY FROM SOURCE
  6723			020505		SN=SN+1
  6724	035561	200 11 0 00 040224 		MOVE	AC-2,DEST+3
  6725	035562	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 71-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0176

  6726									;FROM SOURCE?
  6727	035563	002 11 0 00 020505 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6728									;CORRECTLY FROM SOURCE
  6729			020506		SN=SN+1
  6730	035564	200 11 0 00 040225 		MOVE	AC-2,DEST+4
  6731	035565	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6732									;FROM SOURCE?
  6733	035566	002 11 0 00 020506 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6734									;CORRECTLY FROM SOURCE
  6735			020507		SN=SN+1
  6736	035567	200 11 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6737	035570	312 11 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6738									;CLOBBERED?
  6739	035571	002 11 0 00 020507 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6740									;WAS CLOBBERED
  6741	035572	321 15 0 00 035534 		JUMPL	AC+2,G20500	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 72
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0177

  6742					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6743					;- NON-AC RANGE - ONES
  6744
  6745			000012			AC=12
  6746						SAVEAC	(1,1)^
  6747	035573	201 14 0 00 035573 		MOVEI	AC+2,.		;SAVE TEST PC
  6748	035574	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  6749	035575	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6750	035576	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6751
  6752			020600		SN=20600
  6753			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6754			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6755			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6756
  6757	035577	200 12 0 00 041014 	G20600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6758									;SOURCE AND DESTINATION BLOCKS
  6759	035600	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6760									;WITH ZEROS
  6761	035601	476 00 0 00 040221 		SETOM	SRCE		;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
  6762									;ONES
  6763	035602	476 00 0 00 040222 		SETOM	SRCE+1
  6764	035603	476 00 0 00 040223 		SETOM	SRCE+2
  6765	035604	476 00 0 00 040224 		SETOM	SRCE+3
  6766	035605	476 00 0 00 040225 		SETOM	SRCE+4
  6767	035606	402 00 0 00 040226 		SETZM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6768									;WITH ZEROS
  6769	035607	251 12 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6770			020601		SN=SN+1
  6771	035610	200 10 0 00 040220 		MOVE	AC-2,DEST-1
  6772	035611	332 00 0 00 000010 		SKIPE	<AC-2>&17	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6773									;CLOBBERED?
  6774	035612	002 10 0 00 020601 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6775									;BLOCK WAS CLOBBERED?
  6776			020602		SN=SN+1
  6777	035613	200 10 0 00 040221 		MOVE	AC-2,DEST
  6778	035614	312 10 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6779									;FROM SOURCE?
  6780	035615	002 10 0 00 020602 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6781									;CORRECTLY FROM SOURCE
  6782			020603		SN=SN+1
  6783	035616	200 10 0 00 040222 		MOVE	AC-2,DEST+1
  6784	035617	312 10 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6785									;FROM SOURCE?
  6786	035620	002 10 0 00 020603 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6787									;CORRECTLY FROM SOURCE
  6788			020604		SN=SN+1
  6789	035621	200 10 0 00 040223 		MOVE	AC-2,DEST+2
  6790	035622	312 10 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6791									;FROM SOURCE?
  6792	035623	002 10 0 00 020604 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6793									;CORRECTLY FROM SOURCE
  6794			020605		SN=SN+1
  6795	035624	200 10 0 00 040224 		MOVE	AC-2,DEST+3
  6796	035625	312 10 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 72-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0178

  6797									;FROM SOURCE?
  6798	035626	002 10 0 00 020605 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6799									;CORRECTLY FROM SOURCE
  6800			020606		SN=SN+1
  6801	035627	200 10 0 00 040225 		MOVE	AC-2,DEST+4
  6802	035630	312 10 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6803									;FROM SOURCE?
  6804	035631	002 10 0 00 020606 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6805									;CORRECTLY FROM SOURCE
  6806			020607		SN=SN+1
  6807	035632	200 10 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6808	035633	332 00 0 00 000010 		SKIPE	<AC-2>&17	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6809									;CLOBBERED?
  6810	035634	002 10 0 00 020607 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6811									;WAS CLOBBERED
  6812	035635	321 14 0 00 035577 		JUMPL	AC+2,G20600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 73
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0179

  6813					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6814					;- NON-AC RANGE - SINGLE PATTERN
  6815
  6816			000011			AC=11
  6817						SAVEAC	(1,1)^
  6818	035636	201 13 0 00 035636 		MOVEI	AC+2,.		;SAVE TEST PC
  6819	035637	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  6820	035640	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6821	035641	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6822
  6823			020700		SN=20700
  6824			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6825			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6826			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6827
  6828	035642	200 11 0 00 041014 	G20700:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6829									;SOURCE AND DESTINATION BLOCKS
  6830	035643	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6831									;WITH ONES
  6832	035644	200 00 0 00 040752 		MOVE	[230703,,603700]
  6833	035645	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD ALL WORDS OF SOURCE BLOCK WITH 230703,,603700
  6834	035646	202 00 0 00 040222 		MOVEM	SRCE+1
  6835	035647	202 00 0 00 040223 		MOVEM	SRCE+2
  6836	035650	202 00 0 00 040224 		MOVEM	SRCE+3
  6837	035651	202 00 0 00 040225 		MOVEM	SRCE+4
  6838	035652	476 00 0 00 040226 		SETOM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6839									;WITH ONES
  6840	035653	251 11 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6841			020701		SN=SN+1
  6842	035654	200 07 0 00 040220 		MOVE	AC-2,DEST-1
  6843	035655	312 07 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6844									;BLOCK CLOBBERED?
  6845	035656	002 07 0 00 020701 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6846									;BLOCK WAS CLOBBERED?
  6847			020702		SN=SN+1
  6848	035657	200 07 0 00 040221 		MOVE	AC-2,DEST
  6849	035660	312 07 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6850									;CORRECTLY FROM SOURCE?
  6851	035661	002 07 0 00 020702 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6852									;CORRECTLY FROM SOURCE
  6853			020703		SN=SN+1
  6854	035662	200 07 0 00 040222 		MOVE	AC-2,DEST+1
  6855	035663	312 07 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
  6856									;LOADED CORRECTLY FROM SOURCE?
  6857	035664	002 07 0 00 020703 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6858									;CORRECTLY FROM SOURCE
  6859			020704		SN=SN+1
  6860	035665	200 07 0 00 040223 		MOVE	AC-2,DEST+2
  6861	035666	312 07 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6862									;CORRECTLY FROM SOURCE?
  6863	035667	002 07 0 00 020704 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6864									;CORRECTLY FROM SOURCE
  6865			020705		SN=SN+1
  6866	035670	200 07 0 00 040224 		MOVE	AC-2,DEST+3
  6867	035671	312 07 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 73-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0180

  6868									;LOADED CORRECTLY FROM SOURCE?
  6869	035672	002 07 0 00 020705 		ER2	AC-2,SN		;FOURTH WORD OF DESTINATION BLOCK NOT LOADED CORRECTLY
  6870									;FROM SOURCE
  6871			020706		SN=SN+1
  6872	035673	200 07 0 00 040225 		MOVE	AC-2,DEST+4
  6873	035674	312 07 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6874									;CORRECTLY FROM SOURCE?
  6875	035675	002 07 0 00 020706 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6876									;CORRECTLY FROM SOURCE
  6877			020707		SN=SN+1
  6878	035676	200 07 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6879	035677	312 07 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6880									;CLOBBERED?
  6881	035700	002 13 0 00 020707 		ER2	AC+2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6882									;WAS CLOBBERED
  6883	035701	321 13 0 00 035642 		JUMPL	AC+2,G20700	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 74
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0181

  6884					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6885					;- NON-AC RANGE - MULTIPLE PATTERN
  6886
  6887			000010			AC=10
  6888						SAVEAC	(1,1)^
  6889	035702	201 12 0 00 035702 		MOVEI	AC+2,.		;SAVE TEST PC
  6890	035703	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  6891	035704	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6892	035705	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6893
  6894			021000		SN=21000
  6895			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6896			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6897			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6898
  6899	035706	200 10 0 00 041014 	G21000:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6900									;SOURCE AND DESTINATION BLOCKS
  6901	035707	200 00 0 00 040752 		MOVE	[230703,,603700]
  6902	035710	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6903									;WITH 230703,,603700
  6904	035711	200 00 0 00 041016 		MOVE	[252525,,252525]
  6905	035712	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  6906	035713	200 00 0 00 041035 		MOVE	[146314,,631463]
  6907	035714	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  6908									;WITH 146314,,631463
  6909	035715	200 00 0 00 041020 		MOVE	[070707,,070707]
  6910	035716	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  6911	035717	200 00 0 00 041036 		MOVE	[036074,,170360]
  6912	035720	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6913									;WITH 036074,,170360
  6914	035721	200 00 0 00 041037 		MOVE	[017407,,603701]
  6915	035722	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  6916	035723	200 00 0 00 041040 		MOVE	[007603,,607062]
  6917	035724	202 00 0 00 040226 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6918									;WITH 007603,,607062
  6919	035725	251 10 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6920			021001		SN=SN+1
  6921	035726	200 06 0 00 040220 		MOVE	AC-2,DEST-1
  6922	035727	312 06 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6923									;BLOCK CLOBBERED?
  6924	035730	002 06 0 00 021001 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6925									;BLOCK WAS CLOBBERED?
  6926			021002		SN=SN+1
  6927	035731	200 06 0 00 040221 		MOVE	AC-2,DEST
  6928	035732	312 06 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6929									;CORRECTLY FROM SOURCE?
  6930	035733	002 06 0 00 021002 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6931									;CORRECTLY FROM SOURCE
  6932			021003		SN=SN+1
  6933	035734	200 06 0 00 040222 		MOVE	AC-2,DEST+1
  6934	035735	312 06 0 00 041035 		CAME	AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  6935									;LOADED CORRECTLY FROM SOURCE?
  6936	035736	002 06 0 00 021003 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6937									;CORRECTLY FROM SOURCE
  6938			021004		SN=SN+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 74-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0182

  6939	035737	200 06 0 00 040223 		MOVE	AC-2,DEST+2
  6940	035740	312 06 0 00 041020 		CAME	AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6941									;CORRECTLY FROM SOURCE?
  6942	035741	002 06 0 00 021004 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6943									;CORRECTLY FROM SOURCE
  6944			021005		SN=SN+1
  6945	035742	200 06 0 00 040224 		MOVE	AC-2,DEST+3
  6946	035743	312 06 0 00 041036 		CAME	AC-2,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6947									;LOADED CORRECTLY FROM SOURCE?
  6948	035744	002 06 0 00 021005 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6949									;CORRECTLY FROM SOURCE
  6950			021006		SN=SN+1
  6951	035745	200 06 0 00 040225 		MOVE	AC-2,DEST+4
  6952	035746	312 06 0 00 041037 		CAME	AC-2,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6953									;CORRECTLY FROM SOURCE?
  6954	035747	002 06 0 00 021006 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6955									;CORRECTLY FROM SOURCE
  6956			021007		SN=SN+1
  6957	035750	200 06 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6958	035751	312 06 0 00 041040 		CAME	AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6959									;BLOCK CLOBBERED?
  6960	035752	002 06 0 00 021007 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6961									;WAS CLOBBERED
  6962	035753	321 12 0 00 035706 		JUMPL	AC+2,G21000	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 75
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0183

  6963					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  6964					;ADDRESS MINUS ONE - AC RANGE - MULTIPLE PATTERN
  6965
  6966			000014			AC=14
  6967						SAVEAC	(1,1)^
  6968	035754	201 16 0 00 035754 		MOVEI	AC+2,.		;SAVE TEST PC
  6969	035755	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6970	035756	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6971	035757	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6972
  6973			021100		SN=21100
  6974			000002			SRCE=<AC-12>&17		;SOURCE BLOCK STARTING ADDRESS= <AC-12>&17
  6975			000001			DEST=<AC-13>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
  6976			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6977
  6978	035760	200 14 0 00 041041 	G21100:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6979									;SOURCE AND DESTINATION BLOCKS
  6980	035761	476 00 0 00 000000 		SETOM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  6981									;BLOCK WITH ONES
  6982	035762	200 01 0 00 040752 		MOVE	DEST,[230703,,603700] ;PRELOAD FIRST WORD OF DESTINATION BLOCK
  6983									;WITH 230703,,603700
  6984	035763	200 02 0 00 041016 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  6985									;252525,,252525
  6986	035764	200 03 0 00 041035 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  6987									;WITH 146314,,631463
  6988	035765	200 04 0 00 041020 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  6989									;WITH 070707,,070707
  6990	035766	200 05 0 00 041042 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6991									;WITH 036074,,170630
  6992	035767	200 06 0 00 041037 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  6993									;WITH 017407,,603701
  6994	035770	200 07 0 00 041040 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  6995									;OF SOURCE BLOCK WITH 007603,,607062
  6996	035771	251 14 0 00 000005 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6997			021101		SN=SN+1
  6998	035772	312 00 0 00 040734 		CAME	DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6999									;BLOCK CLOBBERED?
  7000	035773	002 00 0 00 021101 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7001									;BLOCK WAS CLOBBERED?
  7002			021102		SN=SN+1
  7003	035774	312 01 0 00 041016 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7004									;CORRECTLY FROM SOURCE?
  7005	035775	002 01 0 00 021102 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7006									;CORRECTLY FROM SOURCE
  7007			021103		SN=SN+1
  7008	035776	312 02 0 00 041035 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7009									;LOADED CORRECTLY FROM SOURCE?
  7010	035777	002 02 0 00 021103 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7011									;CORRECTLY FROM SOURCE
  7012			021104		SN=SN+1
  7013	036000	312 03 0 00 041020 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  7014									;LOADED CORRECTLY FROM SOURCE?
  7015	036001	002 03 0 00 021104 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7016									;CORRECTLY FROM SOURCE
  7017
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 75-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0184

  7018			021105		SN=SN+1
  7019	036002	312 04 0 00 041042 		CAME	DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION
  7020									;BLOCK LOADED CORRECTLY FROM SOURCE?
  7021	036003	002 04 0 00 021105 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7022									;CORRECTLY FROM SOURCE
  7023			021106		SN=SN+1
  7024	036004	312 05 0 00 041037 		CAME	DEST+4,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK
  7025									;LOADED CORRECTLY FROM SOURCE?
  7026	036005	002 05 0 00 021106 		ER2	DEST+4,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7027									;CORRECTLY FROM SOURCE
  7028			021107		SN=SN+1
  7029	036006	312 06 0 00 041037 		CAME	DEST+SIZ,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7030									;BLOCK CLOBBERED?
  7031	036007	002 06 0 00 021107 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  7032									;BLOCK WAS CLOBBERED
  7033			021110		SN=SN+1
  7034	036010	312 07 0 00 041040 		CAME	SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7035									;BLOCK CLOBBERED?
  7036	036011	002 07 0 00 021110 		ER2	SRCE+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7037									;WAS CLOBBERED
  7038	036012	321 16 0 00 035760 		JUMPL	AC+2,G21100	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 76
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0185

  7039					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7040					;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN
  7041
  7042			000006			AC=6
  7043						SAVEAC	(1,1)^
  7044	036013	201 10 0 00 036013 		MOVEI	AC+2,.		;SAVE TEST PC
  7045	036014	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  7046	036015	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7047	036016	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7048
  7049			021200		SN=21200
  7050			040222			SRCE=BLTBLK+2	;SOURCE BLOCK STARTING ADDRESS= BLTBLK+2
  7051			040221			DEST=BLTBLK+1	;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+1
  7052			000005			SIZ=5		;BLOCK SIZE=5 WORDS
  7053
  7054	036017	200 06 0 00 041043 	G21200:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  7055									;SOURCE AND DESTINATION BLOCKS
  7056	036020	476 00 0 00 040220 		SETOM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7057									;BLOCK WITH ONES
  7058	036021	200 00 0 00 040752 		MOVE	[230703,,603700]
  7059	036022	202 00 0 00 040221 		MOVEM	DEST		;PRELOAD FIRST WORD OF DESTINATION BLOCK
  7060									;WITH 230703,,603700
  7061	036023	200 00 0 00 041016 		MOVE	[252525,,252525]
  7062	036024	202 00 0 00 040222 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7063	036025	200 00 0 00 041035 		MOVE	[146314,,631463]
  7064	036026	202 00 0 00 040223 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7065									;WITH 146314,,631463
  7066	036027	200 00 0 00 041020 		MOVE	[070707,,070707]
  7067	036030	202 00 0 00 040224 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7068	036031	200 00 0 00 041042 		MOVE	[036074,,170630]
  7069	036032	202 00 0 00 040225 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7070									;WITH 036074,,170630
  7071	036033	200 00 0 00 041037 		MOVE	[017407,,603701]
  7072	036034	202 00 0 00 040226 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7073	036035	200 00 0 00 041040 		MOVE	[007603,,607062]
  7074	036036	202 00 0 00 040227 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7075									;WITH 007603,,607062
  7076	036037	251 06 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 77
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0186

  7077					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7078					;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED)
  7079
  7080			021201		SN=SN+1
  7081	036040	200 04 0 00 040220 		MOVE	AC-2,DEST-1
  7082	036041	312 04 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7083									;BLOCK CLOBBERED?
  7084	036042	002 04 0 00 021201 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7085									;BLOCK WAS CLOBBERED?
  7086			021202		SN=SN+1
  7087	036043	200 04 0 00 040221 		MOVE	AC-2,DEST
  7088	036044	312 04 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7089									;CORRECTLY FROM SOURCE?
  7090	036045	002 04 0 00 021202 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7091									;CORRECTLY FROM SOURCE
  7092			021203		SN=SN+1
  7093	036046	200 04 0 00 040222 		MOVE	AC-2,DEST+1
  7094	036047	312 04 0 00 041035 		CAME	AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7095									;LOADED CORRECTLY FROM SOURCE?
  7096	036050	002 04 0 00 021203 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7097									;CORRECTLY FROM SOURCE
  7098			021204		SN=SN+1
  7099	036051	200 04 0 00 040223 		MOVE	AC-2,DEST+2
  7100	036052	312 04 0 00 041020 		CAME	AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7101									;CORRECTLY FROM SOURCE?
  7102	036053	002 04 0 00 021204 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7103									;CORRECTLY FROM SOURCE
  7104			021205		SN=SN+1
  7105	036054	200 04 0 00 040224 		MOVE	AC-2,DEST+3
  7106	036055	312 04 0 00 041042 		CAME	AC-2,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7107									;LOADED CORRECTLY FROM SOURCE?
  7108	036056	002 04 0 00 021205 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7109									;CORRECTLY FROM SOURCE
  7110			021206		SN=SN+1
  7111	036057	200 04 0 00 040225 		MOVE	AC-2,DEST+4
  7112	036060	312 04 0 00 041037 		CAME	AC-2,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7113									;CORRECTLY FROM SOURCE?
  7114	036061	002 04 0 00 021206 		ER2	AC-2,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7115									;CORRECTLY FROM SOURCE
  7116			021207		SN=SN+1
  7117	036062	200 04 0 00 040226 		MOVE	AC-2,DEST+SIZ
  7118	036063	312 04 0 00 041037 		CAME	AC-2,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7119									;BLOCK CLOBBERED?
  7120	036064	002 04 0 00 021207 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7121									;WAS CLOBBERED
  7122			021210		SN=SN+1
  7123	036065	200 04 0 00 040227 		MOVE	AC-2,SRCE+SIZ
  7124	036066	312 04 0 00 041040 		CAME	AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7125									;BLOCK CLOBBERED?
  7126	036067	002 04 0 00 021210 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
  7127									;CLOBBERED
  7128	036070	321 10 0 00 036017 		JUMPL	AC+2,G21200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 78
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0187

  7129					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7130					;ADDRESS PLUS ONE - AC RANGE - MULTIPLE PATTERN
  7131
  7132			000014			AC=14
  7133						SAVEAC	(1,1)^
  7134	036071	201 16 0 00 036071 		MOVEI	AC+2,.		;SAVE TEST PC
  7135	036072	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7136	036073	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7137	036074	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7138
  7139			021300		SN=21300
  7140			000001			SRCE=<AC-13>&17		;SOURCE BLOCK STARTING ADDRESS= <AC-13>&17
  7141			000002			DEST=<AC-12>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-12>&17
  7142			000005			SIZ=5		;BLOCK SIZE=5 WORDS
  7143
  7144	036075	200 14 0 00 041044 	G21300:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  7145									;SOURCE AND DESTINATION BLOCKS
  7146	036076	200 00 0 00 040752 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  7147									;OF SOURCE BLOCK WITH 230703,,603700
  7148	036077	200 01 0 00 041016 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  7149									;252525,,252525
  7150	036100	200 02 0 00 041035 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  7151									;WITH 146314,,631463
  7152	036101	200 03 0 00 041020 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  7153									;WITH 070707,,070707
  7154	036102	200 04 0 00 041042 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7155									;WITH 036074,,170630
  7156	036103	200 05 0 00 041037 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  7157									;WITH 017407,,603701
  7158	036104	200 06 0 00 041040 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  7159									;OF SOURCE BLOCK WITH 007603,,607062
  7160	036105	476 00 0 00 000007 		SETOM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7161									;WITH ONES
  7162	036106	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  7163			021301		SN=SN+1
  7164	036107	312 00 0 00 040752 		CAME	SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7165									;BLOCK CLOBBERED?
  7166	036110	002 00 0 00 021301 		ER2	SRCE-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7167									;WAS CLOBBERED
  7168			021302		SN=SN+1
  7169	036111	312 01 0 00 041016 		CAME	SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7170	036112	002 01 0 00 021302 		ER2	SRCE,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7171			021303		SN=SN+1
  7172	036113	312 02 0 00 041016 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7173									;CORRECTLY FROM SOURCE?
  7174	036114	002 02 0 00 021303 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7175									;CORRECTLY FROM SOURCE
  7176			021304		SN=SN+1
  7177	036115	312 03 0 00 041016 		CAME	DEST+1,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
  7178									;LOADED CORRECTLY FROM SOURCE?
  7179	036116	002 03 0 00 021304 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7180									;CORRECTLY FROM SOURCE
  7181			021305		SN=SN+1
  7182	036117	312 04 0 00 041016 		CAME	DEST+2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK
  7183									;LOADED CORRECTLY FROM SOURCE?
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 78-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0188

  7184	036120	002 04 0 00 021305 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7185									;CORRECTLY FROM SOURCE
  7186			021306		SN=SN+1
  7187	036121	312 05 0 00 041016 		CAME	DEST+3,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7188									;LOADED CORRECTLY FROM SOURCE?
  7189	036122	002 05 0 00 021306 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7190									;CORRECTLY FROM SOURCE
  7191			021307		SN=SN+1
  7192	036123	312 06 0 00 041016 		CAME	DEST+4,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK
  7193									;LOADED CORRECTLY FROM SOURCE?
  7194	036124	002 06 0 00 021307 		ER2	DEST+4,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7195									;CORRECTLY FROM SOURCE
  7196			021310		SN=SN+1
  7197	036125	312 07 0 00 040734 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7198									;BLOCK CLOBBERED?
  7199	036126	002 07 0 00 021310 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  7200									;BLOCK WAS CLOBBERED
  7201	036127	321 16 0 00 036075 		JUMPL	AC+2,G21300	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 79
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0189

  7202					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7203					;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN
  7204
  7205			000004			AC=4
  7206						SAVEAC	(1,1)^
  7207	036130	201 06 0 00 036130 		MOVEI	AC+2,.		;SAVE TEST PC
  7208	036131	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  7209	036132	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7210	036133	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7211
  7212			021400		SN=21400
  7213			040221			SRCE=BLTBLK+1	;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
  7214			040222			DEST=BLTBLK+2	;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+2
  7215			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  7216
  7217	036134	200 04 0 00 041045 	G21400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7218									;SOURCE AND DESTINATION BLOCKS
  7219	036135	200 00 0 00 040752 		MOVE	[230703,,603700]
  7220	036136	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7221									;WITH 23703,,603700
  7222	036137	200 00 0 00 041016 		MOVE	[252525,,252525]
  7223	036140	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7224	036141	200 00 0 00 041046 		MOVE	[146314,,146314]
  7225	036142	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7226									;WITH 146314,,631463
  7227	036143	200 00 0 00 041020 		MOVE	[070707,,070707]
  7228	036144	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7229	036145	200 00 0 00 041042 		MOVE	[036074,,170630]
  7230	036146	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7231									;WITH 036074,,170630
  7232	036147	200 00 0 00 041037 		MOVE	[017407,,603701]
  7233	036150	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7234	036151	200 00 0 00 041040 		MOVE	[007603,,607062]
  7235	036152	202 00 0 00 040226 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7236									;WITH 007603,,607062
  7237	036153	476 00 0 00 040227 		SETOM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7238									;WITH ONES
  7239	036154	251 04 0 00 040226 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 80
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0190

  7240					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7241					;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED)
  7242
  7243			021401		SN=SN+1
  7244	036155	200 02 0 00 040220 		MOVE	AC-2,SRCE-1
  7245	036156	312 02 0 00 040752 		CAME	AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7246									;BLOCK CLOBBERED?
  7247	036157	002 02 0 00 021401 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7248									;WAS CLOBBERED
  7249			021402		SN=SN+1
  7250	036160	200 02 0 00 040221 		MOVE	AC-2,SRCE
  7251	036161	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7252	036162	002 02 0 00 021402 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7253			021403		SN=SN+1
  7254	036163	200 02 0 00 040222 		MOVE	AC-2,DEST
  7255	036164	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7256									;CORRECTLY FROM SOURCE?
  7257	036165	002 02 0 00 021403 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7258									;CORRECTLY FROM SOURCE
  7259			021404		SN=SN+1
  7260	036166	200 02 0 00 040223 		MOVE	AC-2,DEST+1
  7261	036167	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
  7262									;LOADED CORRECTLY FROM SOURCE?
  7263	036170	002 02 0 00 021404 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7264									;CORRECTLY FROM SOURCE
  7265			021405		SN=SN+1
  7266	036171	200 02 0 00 040224 		MOVE	AC-2,DEST+2
  7267	036172	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7268									;CORRECTLY FROM SOURCE?
  7269	036173	002 02 0 00 021405 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7270									;CORRECTLY FROM SOURCE
  7271			021406		SN=SN+1
  7272	036174	200 02 0 00 040225 		MOVE	AC-2,DEST+3
  7273	036175	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7274									;LOADED CORRECTLY FROM SOURCE?
  7275	036176	002 02 0 00 021406 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7276									;CORRECTLY FROM SOURCE
  7277			021407		SN=SN+1
  7278	036177	200 02 0 00 040226 		MOVE	AC-2,DEST+4
  7279	036200	312 02 0 00 041016 		CAME	AC-2,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7280									;CORRECTLY FROM SOURCE?
  7281	036201	002 02 0 00 021407 		ER2	AC-2,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7282									;CORRECTLY FROM SOURCE
  7283			021410		SN=SN+1
  7284	036202	200 02 0 00 040227 		MOVE	AC-2,DEST+SIZ
  7285	036203	312 02 0 00 040734 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7286									;CLOBBERED?
  7287	036204	002 02 0 00 021410 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7288									;WAS CLOBBERED
  7289	036205	321 06 0 00 036134 		JUMPL	AC+2,G21400	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 81
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0191

  7290					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7291					;HAS NON-AC ADDRESS- MULTIPLE PATTERN
  7292
  7293			000014			AC=14
  7294						SAVEAC	(1,1)^
  7295	036206	201 16 0 00 036206 		MOVEI	AC+2,.		;SAVE TEST PC
  7296	036207	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7297	036210	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7298	036211	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7299
  7300			021500		SN=21500
  7301			000001			SRCE=<AC-13>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-13>&17
  7302			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  7303			000012			SIZ=^D10		;BLOCK SIZE=10 WORDS
  7304
  7305	036212	200 14 0 00 041047 	G21500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7306									;SOURCE AND DESTINATION BLOCKS
  7307	036213	200 00 0 00 040752 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  7308									;OF SOURCE BLOCK WITH 230703,,603700
  7309	036214	200 01 0 00 041016 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  7310									;252525,,252525
  7311	036215	200 02 0 00 041035 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  7312									;WITH 146314,,631463
  7313	036216	200 03 0 00 041020 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  7314									;WITH 070707,,070707
  7315	036217	200 04 0 00 041042 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7316									;WITH 036074,,170630
  7317	036220	200 05 0 00 041037 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  7318									;WITH 017407,,603701
  7319	036221	200 06 0 00 041050 		MOVE	SRCE+5,[007700,,770077] ;PRELOAD SIXTH WORD OF SOURCE BLOCK
  7320									;WITH 007700,,770077
  7321	036222	200 07 0 00 041051 		MOVE	SRCE+6,[003760,,077401] ;PRELOAD SEVENTH WORD OF SOURCE BLOCK
  7322									;WITH 003760,,077401
  7323	036223	200 10 0 00 041052 		MOVE	SRCE+7,[001774,,007760] ;PRELOAD EIGHTH WORD OF SOURCE BLOCK
  7324									;WITH 001774,,007760
  7325	036224	200 11 0 00 041053 		MOVE	SRCE+^D8,[000777,,000777] ;PRELOAD NINTH WORD OF SOURCE BLOCK
  7326									;WITH 000777,,000777
  7327	036225	200 12 0 00 041054 		MOVE	SRCE+^D9,[000377,,600077] ;PRELOAD TENTH WORD OF SOURCE BLOCK
  7328									;WITH 000377,,600077
  7329	036226	200 13 0 00 041040 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  7330									;OF SOURCE BLOCK WITH 007603,,607062
  7331	036227	202 00 0 00 041212 		MOVEM	GSVAC0#
  7332	036230	561 00 0 00 040220 		HRROI	DEST-1
  7333	036231	202 00 0 00 040220 		MOVEM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7334									;BLOCK WITH DEST-1
  7335	036232	561 00 0 00 040221 		HRROI	DEST
  7336	036233	202 00 0 00 040221 		MOVEM	DEST		;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
  7337	036234	561 00 0 00 040222 		HRROI	DEST+1
  7338	036235	202 00 0 00 040222 		MOVEM	DEST+1		;PRELOAD SECOND WORD OF DESTINATION BLOCK WITH DEST+1
  7339	036236	561 00 0 00 040223 		HRROI	DEST+2
  7340	036237	202 00 0 00 040223 		MOVEM	DEST+2		;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
  7341	036240	561 00 0 00 040224 		HRROI	DEST+3
  7342	036241	202 00 0 00 040224 		MOVEM	DEST+3		;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
  7343	036242	561 00 0 00 040225 		HRROI	DEST+4
  7344	036243	202 00 0 00 040225 		MOVEM	DEST+4		;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 81-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0192

  7345	036244	561 00 0 00 040226 		HRROI	DEST+5
  7346	036245	202 00 0 00 040226 		MOVEM	DEST+5		;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
  7347	036246	561 00 0 00 040227 		HRROI	DEST+6
  7348	036247	202 00 0 00 040227 		MOVEM	DEST+6		;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
  7349	036250	561 00 0 00 040230 		HRROI	DEST+7
  7350	036251	202 00 0 00 040230 		MOVEM	DEST+7		;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
  7351	036252	561 00 0 00 040231 		HRROI	DEST+^D8
  7352	036253	202 00 0 00 040231 		MOVEM	DEST+^D8	;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
  7353	036254	561 00 0 00 040232 		HRROI	DEST+^D9
  7354	036255	202 00 0 00 040232 		MOVEM	DEST+^D9	;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
  7355	036256	561 00 0 00 040233 		HRROI	DEST+SIZ
  7356	036257	202 00 0 00 040233 		MOVEM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7357									;WITH DEST+SIZ
  7358	036260	200 00 0 00 041212 		MOVE	GSVAC0
  7359
  7360	036261	251 14 0 00 040232 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 82
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0193

  7361					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7362					;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
  7363
  7364			021501		SN=SN+1
  7365	036262	312 00 0 00 040752 		CAME	SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7366									;BLOCK CLOBBERED?
  7367	036263	002 00 0 00 021501 		ER2	SRCE-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7368									;WAS CLOBBERED
  7369			021502		SN=SN+1
  7370	036264	312 01 0 00 041016 		CAME	SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7371	036265	002 01 0 00 021502 		ER2	SRCE,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7372			021503		SN=SN+1
  7373	036266	312 02 0 00 041035 		CAME	SRCE+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
  7374	036267	002 02 0 00 021503 		ER2	SRCE+1,SN	;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
  7375			021504		SN=SN+1
  7376	036270	312 03 0 00 041020 		CAME	SRCE+2,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
  7377	036271	002 03 0 00 021504 		ER2	SRCE+2,SN	;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
  7378			021505		SN=SN+1
  7379	036272	312 04 0 00 041042 		CAME	SRCE+3,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
  7380	036273	002 04 0 00 021505 		ER2	SRCE+3,SN	;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7381			021506		SN=SN+1
  7382	036274	312 05 0 00 041037 		CAME	SRCE+4,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
  7383	036275	002 05 0 00 021506 		ER2	SRCE+4,SN	;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7384			021507		SN=SN+1
  7385	036276	312 06 0 00 041050 		CAME	SRCE+5,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
  7386	036277	002 06 0 00 021507 		ER2	SRCE+5,SN	;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7387			021510		SN=SN+1
  7388	036300	312 07 0 00 041051 		CAME	SRCE+6,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
  7389	036301	002 07 0 00 021510 		ER2	SRCE+6,SN	;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7390			021511		SN=SN+1
  7391	036302	312 10 0 00 041052 		CAME	SRCE+7,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
  7392	036303	002 10 0 00 021511 		ER2	SRCE+7,SN	;FAIL IF EIGHTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7393			021512		SN=SN+1
  7394	036304	312 11 0 00 041053 		CAME	SRCE+^D8,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
  7395	036305	002 11 0 00 021512 		ER2	SRCE+^D8,SN	;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7396			021513		SN=SN+1
  7397	036306	312 12 0 00 041054 		CAME	SRCE+^D9,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
  7398	036307	002 12 0 00 021513 		ER2	SRCE+^D9,SN	;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
  7399			021514		SN=SN+1
  7400	036310	312 13 0 00 041040 		CAME	SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7401									;BLOCK CLOBBERED?
  7402	036311	002 13 0 00 021514 		ER2	SRCE+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7403									;WAS CLOBBERED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 83
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0194

  7404					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7405					;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
  7406
  7407			021515		SN=SN+1
  7408	036312	200 15 0 00 040220 		MOVE	AC+1,DEST-1
  7409	036313	312 15 0 00 041055 		CAME	AC+1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7410									;BLOCK CLOBBERED?
  7411	036314	002 15 0 00 021515 		ER2	AC+1,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7412									;BLOCK WAS CLOBBERED?
  7413			021516		SN=SN+1
  7414	036315	200 15 0 00 040221 		MOVE	AC+1,DEST
  7415	036316	312 15 0 00 041016 		CAME	AC+1,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7416									;CORRECTLY FROM SOURCE?
  7417	036317	002 15 0 00 021516 		ER2	AC+1,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7418									;CORRECTLY FROM SOURCE
  7419			021517		SN=SN+1
  7420	036320	200 15 0 00 040222 		MOVE	AC+1,DEST+1
  7421	036321	312 15 0 00 041035 		CAME	AC+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7422									;LOADED CORRECTLY FROM SOURCE?
  7423	036322	002 15 0 00 021517 		ER2	AC+1,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7424									;CORRECTLY FROM SOURCE
  7425			021520		SN=SN+1
  7426	036323	200 15 0 00 040223 		MOVE	AC+1,DEST+2
  7427	036324	312 15 0 00 041020 		CAME	AC+1,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7428									;CORRECTLY FROM SOURCE?
  7429	036325	002 15 0 00 021520 		ER2	AC+1,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7430									;CORRECTLY FROM SOURCE
  7431			021521		SN=SN+1
  7432	036326	200 15 0 00 040224 		MOVE	AC+1,DEST+3
  7433	036327	312 15 0 00 041042 		CAME	AC+1,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7434									;LOADED CORRECTLY FROM SOURCE?
  7435	036330	002 15 0 00 021521 		ER2	AC+1,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7436									;CORRECTLY FROM SOURCE
  7437			021522		SN=SN+1
  7438	036331	200 15 0 00 040225 		MOVE	AC+1,DEST+4
  7439	036332	312 15 0 00 041037 		CAME	AC+1,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  7440									;LOADED CORRECTLY FROM SOURCE?
  7441	036333	002 15 0 00 021522 		ER2	AC+1,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  7442									;CORRECTLY FROM SOURCE
  7443			021523		SN=SN+1
  7444	036334	200 15 0 00 040226 		MOVE	AC+1,DEST+5
  7445	036335	312 15 0 00 041050 		CAME	AC+1,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK LOADED
  7446									;CORRECTLY FROM SOURCE?
  7447	036336	002 15 0 00 021523 		ER2	AC+1,SN		;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
  7448									;CORRECTLY FROM SOURCE
  7449			021524		SN=SN+1
  7450	036337	200 15 0 00 040227 		MOVE	AC+1,DEST+6
  7451	036340	312 15 0 00 041051 		CAME	AC+1,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
  7452									;LOADED CORRECTLY FROM SOURCE?
  7453	036341	002 15 0 00 021524 		ER2	AC+1,SN		;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
  7454									;CORRECTLY FROM SOURCE
  7455			021525		SN=SN+1
  7456	036342	200 15 0 00 040230 		MOVE	AC+1,DEST+7
  7457	036343	312 15 0 00 041052 		CAME	AC+1,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
  7458									;LOADED CORRECTLY FROM SOURCE?
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 83-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0195

  7459	036344	002 15 0 00 021525 		ER2	AC+1,SN		;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
  7460									;CORRECTLY FROM SOURCE
  7461			021526		SN=SN+1
  7462	036345	200 15 0 00 040231 		MOVE	AC+1,DEST+^D8
  7463	036346	312 15 0 00 041053 		CAME	AC+1,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK LOADED
  7464									;CORRECTLY FROM SOURCE?
  7465	036347	002 15 0 00 021526 		ER2	AC+1,SN		;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
  7466									;CORRECTLY FROM SOURCE
  7467			021527		SN=SN+1
  7468	036350	200 15 0 00 040232 		MOVE	AC+1,DEST+^D9
  7469	036351	312 15 0 00 041054 		CAME	AC+1,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7470									;CORRECTLY FROM SOURCE?
  7471	036352	002 15 0 00 021527 		ER2	AC+1,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7472									;CORRECTLY FROM SOURCE
  7473			021530		SN=SN+1
  7474	036353	200 15 0 00 040233 		MOVE	AC+1,DEST+SIZ
  7475	036354	312 15 0 00 041056 		CAME	AC+1,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7476									;BLOCK CLOBBERED?
  7477	036355	002 15 0 00 021530 		ER2	AC+1,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7478									;WAS CLOBBERED
  7479	036356	321 16 0 00 036212 		JUMPL	AC+2,G21500	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 84
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0196

  7480					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7481					;HAS AC ADDRESS - MULTIPLE PATTERN
  7482
  7483			000014			AC=14
  7484						SAVEAC	(1,1)^
  7485	036357	201 16 0 00 036357 		MOVEI	AC+2,.		;SAVE TEST PC
  7486	036360	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7487	036361	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7488	036362	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7489
  7490			021600		SN=21600
  7491			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
  7492			000001			DEST=<AC-13>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
  7493			000012			SIZ=^D10		;BLOCK SIZE=10 WORDS
  7494
  7495	036363	200 14 0 00 041057 	G21600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7496									;SOURCE AND DESTINATION BLOCKS
  7497	036364	200 00 0 00 040752 		MOVE	[230703,,603700]
  7498	036365	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7499									;WITH 230703,,603700
  7500	036366	200 00 0 00 041016 		MOVE	[252525,,252525]
  7501	036367	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7502	036370	200 00 0 00 041035 		MOVE	[146314,,631463]
  7503	036371	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7504									;WITH 146314,,631463
  7505	036372	200 00 0 00 041020 		MOVE	[070707,,070707]
  7506	036373	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7507	036374	200 00 0 00 041042 		MOVE	[036074,,170630]
  7508	036375	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7509									;WITH 036074,,170630
  7510	036376	200 00 0 00 041037 		MOVE	[017407,,603701]
  7511	036377	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD
  7512									;FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7513	036400	200 00 0 00 041050 		MOVE	[007700,,770077]
  7514	036401	202 00 0 00 040226 		MOVEM	SRCE+5		;PRELOAD SIXTH WORD OF SOURCE BLOCK WITH 007700,,770077
  7515	036402	200 00 0 00 041051 		MOVE	[003760,,077401]
  7516	036403	202 00 0 00 040227 		MOVEM	SRCE+6		;PRELOAD SEVENTH WORD OF SOURCE BLOCK
  7517									;WITH 003760,,077401
  7518	036404	200 00 0 00 041052 		MOVE	[001774,,007760]
  7519	036405	202 00 0 00 040230 		MOVEM	SRCE+7		;PRELOAD EIGHTH WORD OF SOURCE BLOCK
  7520									;WITH 001774,,007760
  7521	036406	200 00 0 00 041053 		MOVE	[000777,,000777]
  7522	036407	202 00 0 00 040231 		MOVEM	SRCE+^D8	;PRELOAD NINTH WORD OF SOURCE BLOCK WITH 000777,,000777
  7523	036410	200 00 0 00 041054 		MOVE	[000377,,600077]
  7524	036411	202 00 0 00 040232 		MOVEM	SRCE+^D9	;PRELOAD TENTH WORD OF SOURCE BLOCK WITH 000377,,600077
  7525	036412	200 00 0 00 041040 		MOVE	[007603,,607062]
  7526	036413	202 00 0 00 040233 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7527									;WITH 007603,,607062
  7528	036414	561 00 0 00 000000 		HRROI	DEST-1,DEST-1	;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7529									;BLOCK WITH DEST-1
  7530	036415	561 01 0 00 000001 		HRROI	DEST,DEST	;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
  7531	036416	561 02 0 00 000002 		HRROI	DEST+1,DEST+1	;PRELOAD SECOND WORD OF DESTINATION BLOCK
  7532									;WITH DEST+1,DEST+1
  7533	036417	561 03 0 00 000003 		HRROI	DEST+2,DEST+2	;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
  7534	036420	561 04 0 00 000004 		HRROI	DEST+3,DEST+3	;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 84-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0197

  7535	036421	561 05 0 00 000005 		HRROI	DEST+4,DEST+4	;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
  7536	036422	561 06 0 00 000006 		HRROI	DEST+5,DEST+5	;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
  7537	036423	561 07 0 00 000007 		HRROI	DEST+6,DEST+6	;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
  7538	036424	561 10 0 00 000010 		HRROI	DEST+7,DEST+7	;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
  7539	036425	561 11 0 00 000011 		HRROI	DEST+^D8,DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
  7540	036426	561 12 0 00 000012 		HRROI	DEST+^D9,DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
  7541	036427	561 13 0 00 000013 		HRROI	DEST+SIZ,DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION
  7542									;BLOCK WITH DEST+SIZ
  7543	036430	251 14 0 00 000012 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 85
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0198

  7544					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7545					;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
  7546
  7547			021601		SN=SN+1
  7548	036431	200 15 0 00 040220 		MOVE	AC+1,SRCE-1
  7549	036432	312 15 0 00 040752 		CAME	AC+1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7550									;BLOCK CLOBBERED?
  7551	036433	002 15 0 00 021601 		ER2	AC+1,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7552									;WAS CLOBBERED
  7553			021602		SN=SN+1
  7554	036434	200 15 0 00 040221 		MOVE	AC+1,SRCE
  7555	036435	312 15 0 00 041016 		CAME	AC+1,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7556	036436	002 15 0 00 021602 		ER2	AC+1,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7557			021603		SN=SN+1
  7558	036437	200 15 0 00 040222 		MOVE	AC+1,SRCE+1
  7559	036440	312 15 0 00 041035 		CAME	AC+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
  7560	036441	002 15 0 00 021603 		ER2	AC+1,SN		;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
  7561			021604		SN=SN+1
  7562	036442	200 15 0 00 040223 		MOVE	AC+1,SRCE+2
  7563	036443	312 15 0 00 041020 		CAME	AC+1,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
  7564	036444	002 15 0 00 021604 		ER2	AC+1,SN		;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
  7565			021605		SN=SN+1
  7566	036445	200 15 0 00 040224 		MOVE	AC+1,SRCE+3
  7567	036446	312 15 0 00 041042 		CAME	AC+1,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
  7568	036447	002 15 0 00 021605 		ER2	AC+1,SN		;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7569			021606		SN=SN+1
  7570	036450	200 15 0 00 040225 		MOVE	AC+1,SRCE+4
  7571	036451	312 15 0 00 041037 		CAME	AC+1,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
  7572	036452	002 15 0 00 021606 		ER2	AC+1,SN		;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7573			021607		SN=SN+1
  7574	036453	200 15 0 00 040226 		MOVE	AC+1,SRCE+5
  7575	036454	312 15 0 00 041050 		CAME	AC+1,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
  7576	036455	002 15 0 00 021607 		ER2	AC+1,SN		;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7577			021610		SN=SN+1
  7578	036456	200 15 0 00 040227 		MOVE	AC+1,SRCE+6
  7579	036457	312 15 0 00 041051 		CAME	AC+1,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
  7580	036460	002 15 0 00 021610 		ER2	AC+1,SN		;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7581			021611		SN=SN+1
  7582	036461	200 15 0 00 040230 		MOVE	AC+1,SRCE+7
  7583	036462	312 15 0 00 041052 		CAME	AC+1,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
  7584	036463	002 15 0 00 021611 		ER2	AC+1,SN		;FAIL IF EIGTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7585			021612		SN=SN+1
  7586	036464	200 15 0 00 040231 		MOVE	AC+1,SRCE+^D8
  7587	036465	312 15 0 00 041053 		CAME	AC+1,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
  7588	036466	002 15 0 00 021612 		ER2	AC+1,SN		;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7589			021613		SN=SN+1
  7590	036467	200 15 0 00 040232 		MOVE	AC+1,SRCE+^D9
  7591	036470	312 15 0 00 041054 		CAME	AC+1,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
  7592	036471	002 15 0 00 021613 		ER2	AC+1,SN		;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
  7593			021614		SN=SN+1
  7594	036472	200 15 0 00 040233 		MOVE	AC+1,SRCE+SIZ
  7595	036473	312 15 0 00 041040 		CAME	AC+1,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7596									;BLOCK CLOBBERED?
  7597	036474	002 15 0 00 021614 		ER2	AC+1,SN		;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
  7598									;CLOBBERED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 86
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0199

  7599					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7600					;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
  7601
  7602			021615		SN=SN+1
  7603	036475	312 00 0 00 041060 		CAME	DEST-1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7604									;BLOCK CLOBBERED?
  7605	036476	002 00 0 00 021615 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7606									;BLOCK WAS CLOBBERED?
  7607			021616		SN=SN+1
  7608	036477	312 01 0 00 041016 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7609									;CORRECTLY FROM SOURCE?
  7610	036500	002 01 0 00 021616 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7611									;CORRECTLY FROM SOURCE
  7612			021617		SN=SN+1
  7613	036501	312 02 0 00 041035 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7614									;LOADED CORRECTLY FROM SOURCE?
  7615	036502	002 02 0 00 021617 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7616									;CORRECTLY FROM SOURCE
  7617			021620		SN=SN+1
  7618	036503	312 03 0 00 041020 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  7619									;LOADED CORRECTLY FROM SOURCE?
  7620	036504	002 03 0 00 021620 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7621									;CORRECTLY FROM SOURCE
  7622			021621		SN=SN+1
  7623	036505	312 04 0 00 041042 		CAME	DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7624									;LOADED CORRECTLY FROM SOURCE?
  7625	036506	002 04 0 00 021621 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7626									;CORRECTLY FROM SOURCE
  7627			021622		SN=SN+1
  7628	036507	312 05 0 00 041037 		CAME	DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  7629									;LOADED CORRECTLY FROM SOURCE?
  7630	036510	002 05 0 00 021622 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  7631									;CORRECTLY FROM SOURCE
  7632			021623		SN=SN+1
  7633	036511	312 06 0 00 041050 		CAME	DEST+5,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK
  7634									;LOADED CORRECTLY FROM SOURCE?
  7635	036512	002 06 0 00 021623 		ER2	DEST+5,SN	;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
  7636									;CORRECTLY FROM SOURCE
  7637			021624		SN=SN+1
  7638	036513	312 07 0 00 041051 		CAME	DEST+6,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
  7639									;LOADED CORRECTLY FROM SOURCE?
  7640	036514	002 07 0 00 021624 		ER2	DEST+6,SN	;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
  7641									;CORRECTLY FROM SOURCE
  7642			021625		SN=SN+1
  7643	036515	312 10 0 00 041052 		CAME	DEST+7,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
  7644									;LOADED CORRECTLY FROM SOURCE?
  7645	036516	002 10 0 00 021625 		ER2	DEST+7,SN	;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
  7646									;CORRECTLY FROM SOURCE
  7647			021626		SN=SN+1
  7648	036517	312 11 0 00 041053 		CAME	DEST+^D8,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK
  7649									;LOADED CORRECTLY FROM SOURCE?
  7650	036520	002 11 0 00 021626 		ER2	DEST+^D8,SN	;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
  7651									;CORRECTLY FROM SOURCE
  7652			021627		SN=SN+1
  7653	036521	312 12 0 00 041054 		CAME	DEST+^D9,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 86-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0200

  7654									;LOADED CORRECTLY FROM SOURCE?
  7655	036522	002 12 0 00 021627 		ER2	DEST+^D9,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7656									;CORRECTLY FROM SOURCE
  7657			021630		SN=SN+1
  7658	036523	312 13 0 00 041061 		CAME	DEST+SIZ,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7659									;BLOCK CLOBBERED?
  7660	036524	002 13 0 00 021630 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  7661									;BLOCK WAS CLOBBERED
  7662	036525	321 16 0 00 036363 		JUMPL	AC+2,G21600	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 87
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0201

  7663					;TEST BLT WITH 'E' LESS THAN RH(AC)
  7664					;SUCH THAT THE BLT INSTR. TRANSFERS ONLY ONE WORD, THEN STOPS.
  7665
  7666			000010			AC=10
  7667						SAVEAC	(1,1)^
  7668	036526	201 12 0 00 036526 		MOVEI	AC+2,.		;SAVE TEST PC
  7669	036527	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  7670	036530	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7671	036531	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7672			021700			SN=21700
  7673
  7674			041224			BLTSRC=END+2
  7675			041230			BLTDST=END+6
  7676
  7677	036532	200 10 0 00 041016 	G21700:	MOVE	AC,[252525,,252525]	; PRELOAD FOR SRC-1
  7678	036533	202 10 0 00 041223 		MOVEM	AC,BLTSRC-1
  7679	036534	200 10 0 00 040726 		MOVE	AC,[707070,,707070]	; PRELOAD FOR SRC
  7680	036535	202 10 0 00 041224 		MOVEM	AC,BLTSRC
  7681	036536	200 10 0 00 041062 		MOVE	AC,[525252,,525252]	;PRELOAD FOR SRC+1
  7682	036537	202 10 0 00 041225 		MOVEM	AC,BLTSRC+1
  7683	036540	200 10 0 00 041063 		MOVE	AC,[123456,,654321]	;PRELOAD FOR DST-1
  7684	036541	202 10 0 00 041227 		MOVEM	AC,BLTDST-1
  7685	036542	200 10 0 00 041020 		MOVE	AC,[070707,,070707]	;PRELOAD FOR DST
  7686	036543	202 10 0 00 041230 		MOVEM	AC,BLTDST
  7687	036544	200 10 0 00 040743 		MOVE	AC,[112233,,445566]	;PRELOAD FOR DST+1
  7688	036545	202 10 0 00 041231 		MOVEM	AC,BLTDST+1
  7689
  7690	036546	200 10 0 00 041064 		MOVE	AC,[BLTSRC,,BLTDST]	;SETUP BLT PTR=FROM,,TO
  7691	036547	251 10 0 00 041227 		BLT	AC,BLTDST-1		;*BLT SHOULD XFER ONE WORD AND STOP
  7692
  7693			021701		SN=SN+1
  7694	036550	312 10 0 00 041064 		CAME	AC,[BLTSRC,,BLTDST]	;SEE IF PTR CHANGED
  7695	036551	002 10 0 00 021701 		ER2	AC,SN			;YES, REPORT
  7696			021702		SN=SN+1
  7697	036552	200 10 0 00 041016 		MOVE	AC,[252525,,252525]	;GET PRELOAD FOR SRC-1
  7698	036553	312 10 0 00 041223 		CAME	AC,BLTSRC-1		;SEE IF OK
  7699	036554	002 10 0 00 021702 		ER2	AC,SN			;REPORT ERROR
  7700			021703		SN=SN+1
  7701	036555	200 10 0 00 040726 		MOVE	AC,[707070,,707070]	;GET PRELOAD FOR SRC
  7702	036556	312 10 0 00 041224 		CAME	AC,BLTSRC		;SEE IF SRC OK
  7703	036557	002 10 0 00 021703 		ER2	AC,SN			; REPORT ERR
  7704			021704		SN=SN+1
  7705	036560	200 10 0 00 041062 		MOVE	AC,[525252,,525252]	;GET PRELOAD FOR SRC+1
  7706	036561	312 10 0 00 041225 		CAME	AC,BLTSRC+1		;SEE IF OK
  7707	036562	002 10 0 00 021704 		ER2	AC,SN			;REPORT ER
  7708			021705		SN=SN+1
  7709	036563	200 10 0 00 041063 		MOVE	AC,[123456,,654321]	;GET PRELOAD FOR DST-1
  7710	036564	312 10 0 00 041227 		CAME	AC,BLTDST-1		;SEE IF OK
  7711	036565	002 10 0 00 021705 		ER2	AC,SN			;REPORT ERR
  7712			021706		SN=SN+1
  7713	036566	200 10 0 00 040726 		MOVE	AC,[707070,,707070]	;GET PRELOAD FOR SRC***
  7714	036567	312 10 0 00 041230 		CAME	AC,BLTDST		;SEE IF IT XFERED A WORD
  7715	036570	002 10 0 00 021706 		ER2	AC,SN			;REPORT ER
  7716			021707		SN=SN+1
  7717	036571	200 10 0 00 040743 		MOVE	AC,[112233,,445566]	;GET PRELOAD FOR DST+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 87-1
DAKAMM	MAC	20-JAN-77 11:34		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0202

  7718	036572	312 10 0 00 041231 		CAME	AC,BLTDST+1		;SEE IF XFERED ONLY ONE WORD
  7719	036573	002 10 0 00 021707 		ER2	AC,SN			;REPORT ERR
  7720
  7721	036574	321 12 0 00 036532 		JUMPL	AC+2,G21700		;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0203

  7722					SUBTTL	PART III - GENERAL JFFO TEST
  7723
  7724					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0
  7725
  7726			030100		G30000:	SN=30100
  7727		777777	777777			AC=-1
  7728
  7729	036575	201 00 0 00 041065 		MOVEI	[ASCIZ/JFFO NO-JUMP FAILED/]
  7730	036576	202 00 0 00 040646 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTOR
  7731
  7732					G30100:	REPEAT	^D13,<
  7733					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7734					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7735					
  7736					SN=SN+1
  7737						AC=<AC+1>&17
  7738						SAVEAC	(1,1)
  7739					
  7740						SETZM	AC		;CLEAR AC
  7741						SETOM	<AC+1>&17	;INITIALIZE AC+1
  7742						JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7743						JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7744						ER2	AC,SN		;ERROR IF JFFO JUMPED
  7745						SKIPE	AC		;EXAMINE AC
  7746						ER3	AC,SN		;C(AC) WAS CLOBBERED
  7747						SKIPE	<AC+1>&17	;EXAMINE AC+1
  7748						ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7749						JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7750					>
  7751
  7752					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7753					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7754
  7755			030101		SN=SN+1
  7756			000000			AC=<AC+1>&17
  7757						SAVEAC	(1,1)^
  7758	036577	201 02 0 00 036577 		MOVEI	AC+2,.		;SAVE TEST PC
  7759	036600	202 02 0 00 030051 		MOVEM	AC+2,TESTPC
  7760	036601	201 02 0 00 000002 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7761	036602	202 02 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7762
  7763	036603	402 00 0 00 000000 		SETZM	AC		;CLEAR AC
  7764	036604	476 00 0 00 000001 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7765	036605	243 00 0 00 036607 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7766	036606	254 00 0 00 036610 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7767	036607	002 00 0 00 030101 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7768	036610	332 00 0 00 000000 		SKIPE	AC		;EXAMINE AC
  7769	036611	003 00 0 00 030101 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7770	036612	332 00 0 00 000001 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7771	036613	004 01 0 00 030101 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7772	036614	321 02 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7773
  7774
  7775					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7776					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-1
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0204

  7777
  7778			030102		SN=SN+1
  7779			000001			AC=<AC+1>&17
  7780						SAVEAC	(1,1)^
  7781	036615	201 03 0 00 036615 		MOVEI	AC+2,.		;SAVE TEST PC
  7782	036616	202 03 0 00 030051 		MOVEM	AC+2,TESTPC
  7783	036617	201 03 0 00 000003 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7784	036620	202 03 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7785
  7786	036621	402 00 0 00 000001 		SETZM	AC		;CLEAR AC
  7787	036622	476 00 0 00 000002 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7788	036623	243 01 0 00 036625 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7789	036624	254 00 0 00 036626 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7790	036625	002 01 0 00 030102 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7791	036626	332 00 0 00 000001 		SKIPE	AC		;EXAMINE AC
  7792	036627	003 01 0 00 030102 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7793	036630	332 00 0 00 000002 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7794	036631	004 02 0 00 030102 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7795	036632	321 03 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7796
  7797
  7798					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7799					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7800
  7801			030103		SN=SN+1
  7802			000002			AC=<AC+1>&17
  7803						SAVEAC	(1,1)^
  7804	036633	201 04 0 00 036633 		MOVEI	AC+2,.		;SAVE TEST PC
  7805	036634	202 04 0 00 030051 		MOVEM	AC+2,TESTPC
  7806	036635	201 04 0 00 000004 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7807	036636	202 04 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7808
  7809	036637	402 00 0 00 000002 		SETZM	AC		;CLEAR AC
  7810	036640	476 00 0 00 000003 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7811	036641	243 02 0 00 036643 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7812	036642	254 00 0 00 036644 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7813	036643	002 02 0 00 030103 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7814	036644	332 00 0 00 000002 		SKIPE	AC		;EXAMINE AC
  7815	036645	003 02 0 00 030103 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7816	036646	332 00 0 00 000003 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7817	036647	004 03 0 00 030103 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7818	036650	321 04 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7819
  7820
  7821					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7822					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7823
  7824			030104		SN=SN+1
  7825			000003			AC=<AC+1>&17
  7826						SAVEAC	(1,1)^
  7827	036651	201 05 0 00 036651 		MOVEI	AC+2,.		;SAVE TEST PC
  7828	036652	202 05 0 00 030051 		MOVEM	AC+2,TESTPC
  7829	036653	201 05 0 00 000005 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7830	036654	202 05 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7831
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-2
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0205

  7832	036655	402 00 0 00 000003 		SETZM	AC		;CLEAR AC
  7833	036656	476 00 0 00 000004 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7834	036657	243 03 0 00 036661 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7835	036660	254 00 0 00 036662 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7836	036661	002 03 0 00 030104 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7837	036662	332 00 0 00 000003 		SKIPE	AC		;EXAMINE AC
  7838	036663	003 03 0 00 030104 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7839	036664	332 00 0 00 000004 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7840	036665	004 04 0 00 030104 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7841	036666	321 05 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7842
  7843
  7844					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7845					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7846
  7847			030105		SN=SN+1
  7848			000004			AC=<AC+1>&17
  7849						SAVEAC	(1,1)^
  7850	036667	201 06 0 00 036667 		MOVEI	AC+2,.		;SAVE TEST PC
  7851	036670	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  7852	036671	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7853	036672	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7854
  7855	036673	402 00 0 00 000004 		SETZM	AC		;CLEAR AC
  7856	036674	476 00 0 00 000005 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7857	036675	243 04 0 00 036677 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7858	036676	254 00 0 00 036700 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7859	036677	002 04 0 00 030105 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7860	036700	332 00 0 00 000004 		SKIPE	AC		;EXAMINE AC
  7861	036701	003 04 0 00 030105 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7862	036702	332 00 0 00 000005 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7863	036703	004 05 0 00 030105 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7864	036704	321 06 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7865
  7866
  7867					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7868					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7869
  7870			030106		SN=SN+1
  7871			000005			AC=<AC+1>&17
  7872						SAVEAC	(1,1)^
  7873	036705	201 07 0 00 036705 		MOVEI	AC+2,.		;SAVE TEST PC
  7874	036706	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  7875	036707	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7876	036710	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7877
  7878	036711	402 00 0 00 000005 		SETZM	AC		;CLEAR AC
  7879	036712	476 00 0 00 000006 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7880	036713	243 05 0 00 036715 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7881	036714	254 00 0 00 036716 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7882	036715	002 05 0 00 030106 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7883	036716	332 00 0 00 000005 		SKIPE	AC		;EXAMINE AC
  7884	036717	003 05 0 00 030106 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7885	036720	332 00 0 00 000006 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7886	036721	004 06 0 00 030106 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-3
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0206

  7887	036722	321 07 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7888
  7889
  7890					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7891					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7892
  7893			030107		SN=SN+1
  7894			000006			AC=<AC+1>&17
  7895						SAVEAC	(1,1)^
  7896	036723	201 10 0 00 036723 		MOVEI	AC+2,.		;SAVE TEST PC
  7897	036724	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  7898	036725	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7899	036726	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7900
  7901	036727	402 00 0 00 000006 		SETZM	AC		;CLEAR AC
  7902	036730	476 00 0 00 000007 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7903	036731	243 06 0 00 036733 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7904	036732	254 00 0 00 036734 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7905	036733	002 06 0 00 030107 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7906	036734	332 00 0 00 000006 		SKIPE	AC		;EXAMINE AC
  7907	036735	003 06 0 00 030107 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7908	036736	332 00 0 00 000007 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7909	036737	004 07 0 00 030107 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7910	036740	321 10 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7911
  7912
  7913					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7914					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7915
  7916			030110		SN=SN+1
  7917			000007			AC=<AC+1>&17
  7918						SAVEAC	(1,1)^
  7919	036741	201 11 0 00 036741 		MOVEI	AC+2,.		;SAVE TEST PC
  7920	036742	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  7921	036743	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7922	036744	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7923
  7924	036745	402 00 0 00 000007 		SETZM	AC		;CLEAR AC
  7925	036746	476 00 0 00 000010 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7926	036747	243 07 0 00 036751 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7927	036750	254 00 0 00 036752 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7928	036751	002 07 0 00 030110 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7929	036752	332 00 0 00 000007 		SKIPE	AC		;EXAMINE AC
  7930	036753	003 07 0 00 030110 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7931	036754	332 00 0 00 000010 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7932	036755	004 10 0 00 030110 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7933	036756	321 11 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7934
  7935
  7936					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7937					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7938
  7939			030111		SN=SN+1
  7940			000010			AC=<AC+1>&17
  7941						SAVEAC	(1,1)^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-4
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0207

  7942	036757	201 12 0 00 036757 		MOVEI	AC+2,.		;SAVE TEST PC
  7943	036760	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  7944	036761	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7945	036762	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7946
  7947	036763	402 00 0 00 000010 		SETZM	AC		;CLEAR AC
  7948	036764	476 00 0 00 000011 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7949	036765	243 10 0 00 036767 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7950	036766	254 00 0 00 036770 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7951	036767	002 10 0 00 030111 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7952	036770	332 00 0 00 000010 		SKIPE	AC		;EXAMINE AC
  7953	036771	003 10 0 00 030111 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7954	036772	332 00 0 00 000011 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7955	036773	004 11 0 00 030111 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7956	036774	321 12 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7957
  7958
  7959					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7960					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7961
  7962			030112		SN=SN+1
  7963			000011			AC=<AC+1>&17
  7964						SAVEAC	(1,1)^
  7965	036775	201 13 0 00 036775 		MOVEI	AC+2,.		;SAVE TEST PC
  7966	036776	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  7967	036777	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7968	037000	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7969
  7970	037001	402 00 0 00 000011 		SETZM	AC		;CLEAR AC
  7971	037002	476 00 0 00 000012 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7972	037003	243 11 0 00 037005 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7973	037004	254 00 0 00 037006 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7974	037005	002 11 0 00 030112 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7975	037006	332 00 0 00 000011 		SKIPE	AC		;EXAMINE AC
  7976	037007	003 11 0 00 030112 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7977	037010	332 00 0 00 000012 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7978	037011	004 12 0 00 030112 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7979	037012	321 13 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7980
  7981
  7982					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7983					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7984
  7985			030113		SN=SN+1
  7986			000012			AC=<AC+1>&17
  7987						SAVEAC	(1,1)^
  7988	037013	201 14 0 00 037013 		MOVEI	AC+2,.		;SAVE TEST PC
  7989	037014	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  7990	037015	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7991	037016	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7992
  7993	037017	402 00 0 00 000012 		SETZM	AC		;CLEAR AC
  7994	037020	476 00 0 00 000013 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7995	037021	243 12 0 00 037023 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7996	037022	254 00 0 00 037024 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-5
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0208

  7997	037023	002 12 0 00 030113 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7998	037024	332 00 0 00 000012 		SKIPE	AC		;EXAMINE AC
  7999	037025	003 12 0 00 030113 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8000	037026	332 00 0 00 000013 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8001	037027	004 13 0 00 030113 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  8002	037030	321 14 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8003
  8004
  8005					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  8006					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8007
  8008			030114		SN=SN+1
  8009			000013			AC=<AC+1>&17
  8010						SAVEAC	(1,1)^
  8011	037031	201 15 0 00 037031 		MOVEI	AC+2,.		;SAVE TEST PC
  8012	037032	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  8013	037033	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8014	037034	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8015
  8016	037035	402 00 0 00 000013 		SETZM	AC		;CLEAR AC
  8017	037036	476 00 0 00 000014 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8018	037037	243 13 0 00 037041 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  8019	037040	254 00 0 00 037042 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  8020	037041	002 13 0 00 030114 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  8021	037042	332 00 0 00 000013 		SKIPE	AC		;EXAMINE AC
  8022	037043	003 13 0 00 030114 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8023	037044	332 00 0 00 000014 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8024	037045	004 14 0 00 030114 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  8025	037046	321 15 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8026
  8027
  8028					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  8029					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8030
  8031			030115		SN=SN+1
  8032			000014			AC=<AC+1>&17
  8033						SAVEAC	(1,1)^
  8034	037047	201 16 0 00 037047 		MOVEI	AC+2,.		;SAVE TEST PC
  8035	037050	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  8036	037051	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8037	037052	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8038
  8039	037053	402 00 0 00 000014 		SETZM	AC		;CLEAR AC
  8040	037054	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8041	037055	243 14 0 00 037057 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  8042	037056	254 00 0 00 037060 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  8043	037057	002 14 0 00 030115 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  8044	037060	332 00 0 00 000014 		SKIPE	AC		;EXAMINE AC
  8045	037061	003 14 0 00 030115 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8046	037062	332 00 0 00 000015 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8047	037063	004 15 0 00 030115 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  8048	037064	321 16 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8049
  8050					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 88-6
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0209

  8051					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8052					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8053
  8054	037065	201 00 0 00 041071 		MOVEI	[ASCIZ/JFFO JUMP FAILED/]
  8055	037066	202 00 0 00 040646 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTER
  8056
  8057	037067	477 14 0 00 000015 	G30200:	SETOB	AC,<AC+1>&17	;INITIALIZE AC AND AC+1
  8058	037070	243 14 0 00 037072 		JFFO	AC,.+2
  8059	037071	002 14 0 00 030201 		ER2	AC,30201	;ERROR IF JFFO DID NOT JUMP
  8060	037072	312 14 0 00 040734 		CAME	AC,[-1,,-1]	;EXAMINE AC
  8061	037073	003 14 0 00 030201 		ER3	AC,30201	;C(AC) WAS CLOBBERED
  8062	037074	332 00 0 00 000015 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8063	037075	004 15 0 00 030201 		ER4	AC+1,30201	;C(AC+1) NOT = TO NO OF LEADING ZEROS IN AC
  8064	037076	321 16 0 00 037067 		JUMPL	AC+2,G30200	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0210

  8065					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8066					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8067					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8068
  8069			030300		SN=30300
  8070		000001	000000			XX=1000000
  8071		777777	777777			ZZ=-1
  8072
  8073					G30300:	REPEAT	^D18,<
  8074					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8075					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8076					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8077					
  8078					SN=SN+1
  8079						XX=XX/2
  8080						ZZ=ZZ+1
  8081						MOVSI	AC,XX		;INITIALIZE AC
  8082						MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8083						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8084						JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8085						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8086						CAME	AC,<AC-2>&17	;EXAMINE AC
  8087						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8088						CAIE	AC+1,ZZ		;EXAMINE AC+1
  8089						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8090						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8091					>
  8092
  8093					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8094					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8095					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8096
  8097			030301		SN=SN+1
  8098			400000			XX=XX/2
  8099			000000			ZZ=ZZ+1
  8100	037077	205 14 0 00 400000 		MOVSI	AC,XX		;INITIALIZE AC
  8101	037100	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8102	037101	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8103	037102	243 14 0 00 037104 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8104	037103	002 14 0 00 030301 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8105	037104	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8106	037105	003 14 0 00 030301 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8107	037106	302 15 0 00 000000 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8108	037107	004 15 0 00 030301 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8109	037110	321 16 0 00 037077 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8110
  8111
  8112					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8113					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8114					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8115
  8116			030302		SN=SN+1
  8117			200000			XX=XX/2
  8118			000001			ZZ=ZZ+1
  8119	037111	205 14 0 00 200000 		MOVSI	AC,XX		;INITIALIZE AC
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-1
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0211

  8120	037112	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8121	037113	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8122	037114	243 14 0 00 037116 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8123	037115	002 14 0 00 030302 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8124	037116	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8125	037117	003 14 0 00 030302 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8126	037120	302 15 0 00 000001 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8127	037121	004 15 0 00 030302 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8128	037122	321 16 0 00 037111 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8129
  8130
  8131					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8132					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8133					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8134
  8135			030303		SN=SN+1
  8136			100000			XX=XX/2
  8137			000002			ZZ=ZZ+1
  8138	037123	205 14 0 00 100000 		MOVSI	AC,XX		;INITIALIZE AC
  8139	037124	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8140	037125	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8141	037126	243 14 0 00 037130 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8142	037127	002 14 0 00 030303 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8143	037130	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8144	037131	003 14 0 00 030303 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8145	037132	302 15 0 00 000002 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8146	037133	004 15 0 00 030303 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8147	037134	321 16 0 00 037123 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8148
  8149
  8150					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8151					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8152					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8153
  8154			030304		SN=SN+1
  8155			040000			XX=XX/2
  8156			000003			ZZ=ZZ+1
  8157	037135	205 14 0 00 040000 		MOVSI	AC,XX		;INITIALIZE AC
  8158	037136	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8159	037137	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8160	037140	243 14 0 00 037142 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8161	037141	002 14 0 00 030304 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8162	037142	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8163	037143	003 14 0 00 030304 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8164	037144	302 15 0 00 000003 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8165	037145	004 15 0 00 030304 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8166	037146	321 16 0 00 037135 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8167
  8168
  8169					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8170					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8171					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8172
  8173			030305		SN=SN+1
  8174			020000			XX=XX/2
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-2
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0212

  8175			000004			ZZ=ZZ+1
  8176	037147	205 14 0 00 020000 		MOVSI	AC,XX		;INITIALIZE AC
  8177	037150	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8178	037151	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8179	037152	243 14 0 00 037154 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8180	037153	002 14 0 00 030305 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8181	037154	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8182	037155	003 14 0 00 030305 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8183	037156	302 15 0 00 000004 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8184	037157	004 15 0 00 030305 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8185	037160	321 16 0 00 037147 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8186
  8187
  8188					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8189					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8190					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8191
  8192			030306		SN=SN+1
  8193			010000			XX=XX/2
  8194			000005			ZZ=ZZ+1
  8195	037161	205 14 0 00 010000 		MOVSI	AC,XX		;INITIALIZE AC
  8196	037162	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8197	037163	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8198	037164	243 14 0 00 037166 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8199	037165	002 14 0 00 030306 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8200	037166	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8201	037167	003 14 0 00 030306 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8202	037170	302 15 0 00 000005 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8203	037171	004 15 0 00 030306 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8204	037172	321 16 0 00 037161 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8205
  8206
  8207					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8208					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8209					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8210
  8211			030307		SN=SN+1
  8212			004000			XX=XX/2
  8213			000006			ZZ=ZZ+1
  8214	037173	205 14 0 00 004000 		MOVSI	AC,XX		;INITIALIZE AC
  8215	037174	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8216	037175	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8217	037176	243 14 0 00 037200 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8218	037177	002 14 0 00 030307 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8219	037200	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8220	037201	003 14 0 00 030307 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8221	037202	302 15 0 00 000006 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8222	037203	004 15 0 00 030307 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8223	037204	321 16 0 00 037173 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8224
  8225
  8226					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8227					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8228					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8229
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-3
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0213

  8230			030310		SN=SN+1
  8231			002000			XX=XX/2
  8232			000007			ZZ=ZZ+1
  8233	037205	205 14 0 00 002000 		MOVSI	AC,XX		;INITIALIZE AC
  8234	037206	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8235	037207	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8236	037210	243 14 0 00 037212 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8237	037211	002 14 0 00 030310 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8238	037212	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8239	037213	003 14 0 00 030310 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8240	037214	302 15 0 00 000007 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8241	037215	004 15 0 00 030310 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8242	037216	321 16 0 00 037205 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8243
  8244
  8245					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8246					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8247					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8248
  8249			030311		SN=SN+1
  8250			001000			XX=XX/2
  8251			000010			ZZ=ZZ+1
  8252	037217	205 14 0 00 001000 		MOVSI	AC,XX		;INITIALIZE AC
  8253	037220	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8254	037221	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8255	037222	243 14 0 00 037224 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8256	037223	002 14 0 00 030311 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8257	037224	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8258	037225	003 14 0 00 030311 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8259	037226	302 15 0 00 000010 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8260	037227	004 15 0 00 030311 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8261	037230	321 16 0 00 037217 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8262
  8263
  8264					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8265					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8266					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8267
  8268			030312		SN=SN+1
  8269			000400			XX=XX/2
  8270			000011			ZZ=ZZ+1
  8271	037231	205 14 0 00 000400 		MOVSI	AC,XX		;INITIALIZE AC
  8272	037232	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8273	037233	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8274	037234	243 14 0 00 037236 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8275	037235	002 14 0 00 030312 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8276	037236	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8277	037237	003 14 0 00 030312 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8278	037240	302 15 0 00 000011 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8279	037241	004 15 0 00 030312 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8280	037242	321 16 0 00 037231 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8281
  8282
  8283					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8284					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-4
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0214

  8285					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8286
  8287			030313		SN=SN+1
  8288			000200			XX=XX/2
  8289			000012			ZZ=ZZ+1
  8290	037243	205 14 0 00 000200 		MOVSI	AC,XX		;INITIALIZE AC
  8291	037244	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8292	037245	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8293	037246	243 14 0 00 037250 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8294	037247	002 14 0 00 030313 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8295	037250	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8296	037251	003 14 0 00 030313 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8297	037252	302 15 0 00 000012 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8298	037253	004 15 0 00 030313 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8299	037254	321 16 0 00 037243 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8300
  8301
  8302					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8303					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8304					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8305
  8306			030314		SN=SN+1
  8307			000100			XX=XX/2
  8308			000013			ZZ=ZZ+1
  8309	037255	205 14 0 00 000100 		MOVSI	AC,XX		;INITIALIZE AC
  8310	037256	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8311	037257	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8312	037260	243 14 0 00 037262 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8313	037261	002 14 0 00 030314 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8314	037262	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8315	037263	003 14 0 00 030314 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8316	037264	302 15 0 00 000013 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8317	037265	004 15 0 00 030314 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8318	037266	321 16 0 00 037255 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8319
  8320
  8321					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8322					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8323					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8324
  8325			030315		SN=SN+1
  8326			000040			XX=XX/2
  8327			000014			ZZ=ZZ+1
  8328	037267	205 14 0 00 000040 		MOVSI	AC,XX		;INITIALIZE AC
  8329	037270	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8330	037271	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8331	037272	243 14 0 00 037274 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8332	037273	002 14 0 00 030315 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8333	037274	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8334	037275	003 14 0 00 030315 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8335	037276	302 15 0 00 000014 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8336	037277	004 15 0 00 030315 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8337	037300	321 16 0 00 037267 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8338
  8339
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-5
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0215

  8340					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8341					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8342					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8343
  8344			030316		SN=SN+1
  8345			000020			XX=XX/2
  8346			000015			ZZ=ZZ+1
  8347	037301	205 14 0 00 000020 		MOVSI	AC,XX		;INITIALIZE AC
  8348	037302	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8349	037303	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8350	037304	243 14 0 00 037306 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8351	037305	002 14 0 00 030316 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8352	037306	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8353	037307	003 14 0 00 030316 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8354	037310	302 15 0 00 000015 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8355	037311	004 15 0 00 030316 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8356	037312	321 16 0 00 037301 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8357
  8358
  8359					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8360					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8361					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8362
  8363			030317		SN=SN+1
  8364			000010			XX=XX/2
  8365			000016			ZZ=ZZ+1
  8366	037313	205 14 0 00 000010 		MOVSI	AC,XX		;INITIALIZE AC
  8367	037314	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8368	037315	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8369	037316	243 14 0 00 037320 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8370	037317	002 14 0 00 030317 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8371	037320	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8372	037321	003 14 0 00 030317 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8373	037322	302 15 0 00 000016 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8374	037323	004 15 0 00 030317 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8375	037324	321 16 0 00 037313 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8376
  8377
  8378					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8379					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8380					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8381
  8382			030320		SN=SN+1
  8383			000004			XX=XX/2
  8384			000017			ZZ=ZZ+1
  8385	037325	205 14 0 00 000004 		MOVSI	AC,XX		;INITIALIZE AC
  8386	037326	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8387	037327	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8388	037330	243 14 0 00 037332 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8389	037331	002 14 0 00 030320 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8390	037332	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8391	037333	003 14 0 00 030320 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8392	037334	302 15 0 00 000017 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8393	037335	004 15 0 00 030320 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8394	037336	321 16 0 00 037325 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-6
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0216

  8395
  8396
  8397					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8398					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8399					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8400
  8401			030321		SN=SN+1
  8402			000002			XX=XX/2
  8403			000020			ZZ=ZZ+1
  8404	037337	205 14 0 00 000002 		MOVSI	AC,XX		;INITIALIZE AC
  8405	037340	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8406	037341	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8407	037342	243 14 0 00 037344 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8408	037343	002 14 0 00 030321 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8409	037344	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8410	037345	003 14 0 00 030321 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8411	037346	302 15 0 00 000020 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8412	037347	004 15 0 00 030321 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8413	037350	321 16 0 00 037337 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8414
  8415
  8416					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8417					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8418					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8419
  8420			030322		SN=SN+1
  8421			000001			XX=XX/2
  8422			000021			ZZ=ZZ+1
  8423	037351	205 14 0 00 000001 		MOVSI	AC,XX		;INITIALIZE AC
  8424	037352	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8425	037353	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8426	037354	243 14 0 00 037356 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8427	037355	002 14 0 00 030322 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8428	037356	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8429	037357	003 14 0 00 030322 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8430	037360	302 15 0 00 000021 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8431	037361	004 15 0 00 030322 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8432	037362	321 16 0 00 037351 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8433
  8434					PAGE
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-7
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0217

  8435			030400		SN=30400
  8436		000001	000000			XX=1000000
  8437
  8438					G30400:	REPEAT	^D18,<
  8439					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8440					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8441					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8442					
  8443					SN=SN+1
  8444						XX=XX/2
  8445						ZZ=ZZ+1
  8446						MOVEI	AC,XX		;INITIALIZE AC
  8447						MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8448						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8449						JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8450						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8451						CAME	AC,<AC-2>&17	;EXAMINE AC
  8452						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8453						CAIE	AC+1,ZZ		;EXAMINE AC+1
  8454						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8455						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8456					>
  8457
  8458					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8459					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8460					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8461
  8462			030401		SN=SN+1
  8463			400000			XX=XX/2
  8464			000022			ZZ=ZZ+1
  8465	037363	201 14 0 00 400000 		MOVEI	AC,XX		;INITIALIZE AC
  8466	037364	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8467	037365	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8468	037366	243 14 0 00 037370 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8469	037367	002 14 0 00 030401 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8470	037370	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8471	037371	003 14 0 00 030401 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8472	037372	302 15 0 00 000022 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8473	037373	004 15 0 00 030401 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8474	037374	321 16 0 00 037363 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8475
  8476
  8477					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8478					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8479					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8480
  8481			030402		SN=SN+1
  8482			200000			XX=XX/2
  8483			000023			ZZ=ZZ+1
  8484	037375	201 14 0 00 200000 		MOVEI	AC,XX		;INITIALIZE AC
  8485	037376	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8486	037377	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8487	037400	243 14 0 00 037402 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8488	037401	002 14 0 00 030402 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8489	037402	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-8
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0218

  8490	037403	003 14 0 00 030402 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8491	037404	302 15 0 00 000023 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8492	037405	004 15 0 00 030402 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8493	037406	321 16 0 00 037375 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8494
  8495
  8496					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8497					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8498					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8499
  8500			030403		SN=SN+1
  8501			100000			XX=XX/2
  8502			000024			ZZ=ZZ+1
  8503	037407	201 14 0 00 100000 		MOVEI	AC,XX		;INITIALIZE AC
  8504	037410	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8505	037411	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8506	037412	243 14 0 00 037414 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8507	037413	002 14 0 00 030403 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8508	037414	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8509	037415	003 14 0 00 030403 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8510	037416	302 15 0 00 000024 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8511	037417	004 15 0 00 030403 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8512	037420	321 16 0 00 037407 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8513
  8514
  8515					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8516					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8517					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8518
  8519			030404		SN=SN+1
  8520			040000			XX=XX/2
  8521			000025			ZZ=ZZ+1
  8522	037421	201 14 0 00 040000 		MOVEI	AC,XX		;INITIALIZE AC
  8523	037422	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8524	037423	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8525	037424	243 14 0 00 037426 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8526	037425	002 14 0 00 030404 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8527	037426	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8528	037427	003 14 0 00 030404 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8529	037430	302 15 0 00 000025 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8530	037431	004 15 0 00 030404 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8531	037432	321 16 0 00 037421 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8532
  8533
  8534					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8535					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8536					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8537
  8538			030405		SN=SN+1
  8539			020000			XX=XX/2
  8540			000026			ZZ=ZZ+1
  8541	037433	201 14 0 00 020000 		MOVEI	AC,XX		;INITIALIZE AC
  8542	037434	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8543	037435	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8544	037436	243 14 0 00 037440 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-9
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0219

  8545	037437	002 14 0 00 030405 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8546	037440	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8547	037441	003 14 0 00 030405 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8548	037442	302 15 0 00 000026 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8549	037443	004 15 0 00 030405 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8550	037444	321 16 0 00 037433 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8551
  8552
  8553					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8554					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8555					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8556
  8557			030406		SN=SN+1
  8558			010000			XX=XX/2
  8559			000027			ZZ=ZZ+1
  8560	037445	201 14 0 00 010000 		MOVEI	AC,XX		;INITIALIZE AC
  8561	037446	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8562	037447	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8563	037450	243 14 0 00 037452 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8564	037451	002 14 0 00 030406 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8565	037452	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8566	037453	003 14 0 00 030406 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8567	037454	302 15 0 00 000027 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8568	037455	004 15 0 00 030406 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8569	037456	321 16 0 00 037445 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8570
  8571
  8572					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8573					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8574					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8575
  8576			030407		SN=SN+1
  8577			004000			XX=XX/2
  8578			000030			ZZ=ZZ+1
  8579	037457	201 14 0 00 004000 		MOVEI	AC,XX		;INITIALIZE AC
  8580	037460	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8581	037461	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8582	037462	243 14 0 00 037464 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8583	037463	002 14 0 00 030407 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8584	037464	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8585	037465	003 14 0 00 030407 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8586	037466	302 15 0 00 000030 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8587	037467	004 15 0 00 030407 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8588	037470	321 16 0 00 037457 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8589
  8590
  8591					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8592					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8593					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8594
  8595			030410		SN=SN+1
  8596			002000			XX=XX/2
  8597			000031			ZZ=ZZ+1
  8598	037471	201 14 0 00 002000 		MOVEI	AC,XX		;INITIALIZE AC
  8599	037472	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-10
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0220

  8600	037473	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8601	037474	243 14 0 00 037476 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8602	037475	002 14 0 00 030410 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8603	037476	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8604	037477	003 14 0 00 030410 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8605	037500	302 15 0 00 000031 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8606	037501	004 15 0 00 030410 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8607	037502	321 16 0 00 037471 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8608
  8609
  8610					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8611					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8612					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8613
  8614			030411		SN=SN+1
  8615			001000			XX=XX/2
  8616			000032			ZZ=ZZ+1
  8617	037503	201 14 0 00 001000 		MOVEI	AC,XX		;INITIALIZE AC
  8618	037504	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8619	037505	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8620	037506	243 14 0 00 037510 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8621	037507	002 14 0 00 030411 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8622	037510	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8623	037511	003 14 0 00 030411 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8624	037512	302 15 0 00 000032 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8625	037513	004 15 0 00 030411 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8626	037514	321 16 0 00 037503 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8627
  8628
  8629					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8630					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8631					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8632
  8633			030412		SN=SN+1
  8634			000400			XX=XX/2
  8635			000033			ZZ=ZZ+1
  8636	037515	201 14 0 00 000400 		MOVEI	AC,XX		;INITIALIZE AC
  8637	037516	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8638	037517	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8639	037520	243 14 0 00 037522 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8640	037521	002 14 0 00 030412 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8641	037522	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8642	037523	003 14 0 00 030412 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8643	037524	302 15 0 00 000033 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8644	037525	004 15 0 00 030412 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8645	037526	321 16 0 00 037515 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8646
  8647
  8648					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8649					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8650					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8651
  8652			030413		SN=SN+1
  8653			000200			XX=XX/2
  8654			000034			ZZ=ZZ+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-11
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0221

  8655	037527	201 14 0 00 000200 		MOVEI	AC,XX		;INITIALIZE AC
  8656	037530	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8657	037531	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8658	037532	243 14 0 00 037534 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8659	037533	002 14 0 00 030413 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8660	037534	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8661	037535	003 14 0 00 030413 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8662	037536	302 15 0 00 000034 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8663	037537	004 15 0 00 030413 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8664	037540	321 16 0 00 037527 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8665
  8666
  8667					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8668					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8669					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8670
  8671			030414		SN=SN+1
  8672			000100			XX=XX/2
  8673			000035			ZZ=ZZ+1
  8674	037541	201 14 0 00 000100 		MOVEI	AC,XX		;INITIALIZE AC
  8675	037542	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8676	037543	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8677	037544	243 14 0 00 037546 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8678	037545	002 14 0 00 030414 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8679	037546	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8680	037547	003 14 0 00 030414 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8681	037550	302 15 0 00 000035 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8682	037551	004 15 0 00 030414 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8683	037552	321 16 0 00 037541 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8684
  8685
  8686					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8687					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8688					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8689
  8690			030415		SN=SN+1
  8691			000040			XX=XX/2
  8692			000036			ZZ=ZZ+1
  8693	037553	201 14 0 00 000040 		MOVEI	AC,XX		;INITIALIZE AC
  8694	037554	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8695	037555	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8696	037556	243 14 0 00 037560 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8697	037557	002 14 0 00 030415 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8698	037560	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8699	037561	003 14 0 00 030415 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8700	037562	302 15 0 00 000036 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8701	037563	004 15 0 00 030415 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8702	037564	321 16 0 00 037553 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8703
  8704
  8705					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8706					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8707					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8708
  8709			030416		SN=SN+1
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-12
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0222

  8710			000020			XX=XX/2
  8711			000037			ZZ=ZZ+1
  8712	037565	201 14 0 00 000020 		MOVEI	AC,XX		;INITIALIZE AC
  8713	037566	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8714	037567	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8715	037570	243 14 0 00 037572 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8716	037571	002 14 0 00 030416 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8717	037572	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8718	037573	003 14 0 00 030416 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8719	037574	302 15 0 00 000037 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8720	037575	004 15 0 00 030416 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8721	037576	321 16 0 00 037565 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8722
  8723
  8724					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8725					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8726					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8727
  8728			030417		SN=SN+1
  8729			000010			XX=XX/2
  8730			000040			ZZ=ZZ+1
  8731	037577	201 14 0 00 000010 		MOVEI	AC,XX		;INITIALIZE AC
  8732	037600	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8733	037601	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8734	037602	243 14 0 00 037604 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8735	037603	002 14 0 00 030417 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8736	037604	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8737	037605	003 14 0 00 030417 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8738	037606	302 15 0 00 000040 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8739	037607	004 15 0 00 030417 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8740	037610	321 16 0 00 037577 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8741
  8742
  8743					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8744					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8745					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8746
  8747			030420		SN=SN+1
  8748			000004			XX=XX/2
  8749			000041			ZZ=ZZ+1
  8750	037611	201 14 0 00 000004 		MOVEI	AC,XX		;INITIALIZE AC
  8751	037612	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8752	037613	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8753	037614	243 14 0 00 037616 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8754	037615	002 14 0 00 030420 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8755	037616	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8756	037617	003 14 0 00 030420 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8757	037620	302 15 0 00 000041 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8758	037621	004 15 0 00 030420 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8759	037622	321 16 0 00 037611 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8760
  8761
  8762					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8763					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8764					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 89-13
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0223

  8765
  8766			030421		SN=SN+1
  8767			000002			XX=XX/2
  8768			000042			ZZ=ZZ+1
  8769	037623	201 14 0 00 000002 		MOVEI	AC,XX		;INITIALIZE AC
  8770	037624	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8771	037625	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8772	037626	243 14 0 00 037630 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8773	037627	002 14 0 00 030421 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8774	037630	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8775	037631	003 14 0 00 030421 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8776	037632	302 15 0 00 000042 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8777	037633	004 15 0 00 030421 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8778	037634	321 16 0 00 037623 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8779
  8780
  8781					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8782					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8783					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8784
  8785			030422		SN=SN+1
  8786			000001			XX=XX/2
  8787			000043			ZZ=ZZ+1
  8788	037635	201 14 0 00 000001 		MOVEI	AC,XX		;INITIALIZE AC
  8789	037636	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8790	037637	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8791	037640	243 14 0 00 037642 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8792	037641	002 14 0 00 030422 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8793	037642	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8794	037643	003 14 0 00 030422 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8795	037644	302 15 0 00 000043 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8796	037645	004 15 0 00 030422 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8797	037646	321 16 0 00 037635 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8798
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0224

  8799					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8800					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8801					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8802
  8803			030500		SN=30500
  8804		777777	777777			AC=-1
  8805
  8806					G30500:	REPEAT	^D13,<
  8807					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8808					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8809					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8810					
  8811					SN=SN+1
  8812						AC=<AC+1>&17
  8813						SAVEAC	(1,1)
  8814					
  8815						MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8816						MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8817						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8818						JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8819						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8820						CAME	AC,GSVAC	;EXAMINE AC
  8821						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8822						CAIE	AC+1,AC		;EXAMINE AC+1
  8823						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8824						JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8825					>
  8826
  8827					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8828					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8829					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8830
  8831			030501		SN=SN+1
  8832			000000			AC=<AC+1>&17
  8833						SAVEAC	(1,1)^
  8834	037647	201 02 0 00 037647 		MOVEI	AC+2,.		;SAVE TEST PC
  8835	037650	202 02 0 00 030051 		MOVEM	AC+2,TESTPC
  8836	037651	201 02 0 00 000002 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8837	037652	202 02 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8838
  8839	037653	205 00 0 00 400000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8840	037654	202 00 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8841	037655	476 00 0 00 000001 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8842	037656	243 00 0 00 037660 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8843	037657	002 00 0 00 030501 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8844	037660	312 00 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8845	037661	003 00 0 00 030501 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8846	037662	302 01 0 00 000000 		CAIE	AC+1,AC		;EXAMINE AC+1
  8847	037663	004 01 0 00 030501 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8848	037664	321 02 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8849
  8850
  8851					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8852					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8853					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-1
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0225

  8854
  8855			030502		SN=SN+1
  8856			000001			AC=<AC+1>&17
  8857						SAVEAC	(1,1)^
  8858	037665	201 03 0 00 037665 		MOVEI	AC+2,.		;SAVE TEST PC
  8859	037666	202 03 0 00 030051 		MOVEM	AC+2,TESTPC
  8860	037667	201 03 0 00 000003 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8861	037670	202 03 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8862
  8863	037671	205 01 0 00 200000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8864	037672	202 01 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8865	037673	476 00 0 00 000002 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8866	037674	243 01 0 00 037676 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8867	037675	002 01 0 00 030502 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8868	037676	312 01 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8869	037677	003 01 0 00 030502 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8870	037700	302 02 0 00 000001 		CAIE	AC+1,AC		;EXAMINE AC+1
  8871	037701	004 02 0 00 030502 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8872	037702	321 03 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8873
  8874
  8875					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8876					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8877					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8878
  8879			030503		SN=SN+1
  8880			000002			AC=<AC+1>&17
  8881						SAVEAC	(1,1)^
  8882	037703	201 04 0 00 037703 		MOVEI	AC+2,.		;SAVE TEST PC
  8883	037704	202 04 0 00 030051 		MOVEM	AC+2,TESTPC
  8884	037705	201 04 0 00 000004 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8885	037706	202 04 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8886
  8887	037707	205 02 0 00 100000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8888	037710	202 02 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8889	037711	476 00 0 00 000003 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8890	037712	243 02 0 00 037714 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8891	037713	002 02 0 00 030503 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8892	037714	312 02 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8893	037715	003 02 0 00 030503 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8894	037716	302 03 0 00 000002 		CAIE	AC+1,AC		;EXAMINE AC+1
  8895	037717	004 03 0 00 030503 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8896	037720	321 04 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8897
  8898
  8899					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8900					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8901					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8902
  8903			030504		SN=SN+1
  8904			000003			AC=<AC+1>&17
  8905						SAVEAC	(1,1)^
  8906	037721	201 05 0 00 037721 		MOVEI	AC+2,.		;SAVE TEST PC
  8907	037722	202 05 0 00 030051 		MOVEM	AC+2,TESTPC
  8908	037723	201 05 0 00 000005 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-2
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0226

  8909	037724	202 05 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8910
  8911	037725	205 03 0 00 040000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8912	037726	202 03 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8913	037727	476 00 0 00 000004 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8914	037730	243 03 0 00 037732 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8915	037731	002 03 0 00 030504 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8916	037732	312 03 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8917	037733	003 03 0 00 030504 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8918	037734	302 04 0 00 000003 		CAIE	AC+1,AC		;EXAMINE AC+1
  8919	037735	004 04 0 00 030504 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8920	037736	321 05 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8921
  8922
  8923					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8924					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8925					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8926
  8927			030505		SN=SN+1
  8928			000004			AC=<AC+1>&17
  8929						SAVEAC	(1,1)^
  8930	037737	201 06 0 00 037737 		MOVEI	AC+2,.		;SAVE TEST PC
  8931	037740	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  8932	037741	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8933	037742	202 06 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8934
  8935	037743	205 04 0 00 020000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8936	037744	202 04 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8937	037745	476 00 0 00 000005 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8938	037746	243 04 0 00 037750 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8939	037747	002 04 0 00 030505 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8940	037750	312 04 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8941	037751	003 04 0 00 030505 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8942	037752	302 05 0 00 000004 		CAIE	AC+1,AC		;EXAMINE AC+1
  8943	037753	004 05 0 00 030505 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8944	037754	321 06 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8945
  8946
  8947					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8948					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8949					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8950
  8951			030506		SN=SN+1
  8952			000005			AC=<AC+1>&17
  8953						SAVEAC	(1,1)^
  8954	037755	201 07 0 00 037755 		MOVEI	AC+2,.		;SAVE TEST PC
  8955	037756	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  8956	037757	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8957	037760	202 07 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8958
  8959	037761	205 05 0 00 010000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8960	037762	202 05 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8961	037763	476 00 0 00 000006 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8962	037764	243 05 0 00 037766 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8963	037765	002 05 0 00 030506 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-3
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0227

  8964	037766	312 05 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8965	037767	003 05 0 00 030506 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8966	037770	302 06 0 00 000005 		CAIE	AC+1,AC		;EXAMINE AC+1
  8967	037771	004 06 0 00 030506 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8968	037772	321 07 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8969
  8970
  8971					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8972					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8973					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8974
  8975			030507		SN=SN+1
  8976			000006			AC=<AC+1>&17
  8977						SAVEAC	(1,1)^
  8978	037773	201 10 0 00 037773 		MOVEI	AC+2,.		;SAVE TEST PC
  8979	037774	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  8980	037775	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8981	037776	202 10 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8982
  8983	037777	205 06 0 00 004000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8984	040000	202 06 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8985	040001	476 00 0 00 000007 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8986	040002	243 06 0 00 040004 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8987	040003	002 06 0 00 030507 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8988	040004	312 06 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  8989	040005	003 06 0 00 030507 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8990	040006	302 07 0 00 000006 		CAIE	AC+1,AC		;EXAMINE AC+1
  8991	040007	004 07 0 00 030507 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8992	040010	321 10 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8993
  8994
  8995					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8996					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8997					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8998
  8999			030510		SN=SN+1
  9000			000007			AC=<AC+1>&17
  9001						SAVEAC	(1,1)^
  9002	040011	201 11 0 00 040011 		MOVEI	AC+2,.		;SAVE TEST PC
  9003	040012	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  9004	040013	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9005	040014	202 11 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9006
  9007	040015	205 07 0 00 002000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9008	040016	202 07 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9009	040017	476 00 0 00 000010 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9010	040020	243 07 0 00 040022 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9011	040021	002 07 0 00 030510 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9012	040022	312 07 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9013	040023	003 07 0 00 030510 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9014	040024	302 10 0 00 000007 		CAIE	AC+1,AC		;EXAMINE AC+1
  9015	040025	004 10 0 00 030510 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9016	040026	321 11 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9017
  9018
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-4
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0228

  9019					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9020					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9021					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9022
  9023			030511		SN=SN+1
  9024			000010			AC=<AC+1>&17
  9025						SAVEAC	(1,1)^
  9026	040027	201 12 0 00 040027 		MOVEI	AC+2,.		;SAVE TEST PC
  9027	040030	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  9028	040031	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9029	040032	202 12 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9030
  9031	040033	205 10 0 00 001000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9032	040034	202 10 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9033	040035	476 00 0 00 000011 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9034	040036	243 10 0 00 040040 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9035	040037	002 10 0 00 030511 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9036	040040	312 10 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9037	040041	003 10 0 00 030511 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9038	040042	302 11 0 00 000010 		CAIE	AC+1,AC		;EXAMINE AC+1
  9039	040043	004 11 0 00 030511 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9040	040044	321 12 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9041
  9042
  9043					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9044					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9045					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9046
  9047			030512		SN=SN+1
  9048			000011			AC=<AC+1>&17
  9049						SAVEAC	(1,1)^
  9050	040045	201 13 0 00 040045 		MOVEI	AC+2,.		;SAVE TEST PC
  9051	040046	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  9052	040047	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9053	040050	202 13 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9054
  9055	040051	205 11 0 00 000400 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9056	040052	202 11 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9057	040053	476 00 0 00 000012 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9058	040054	243 11 0 00 040056 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9059	040055	002 11 0 00 030512 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9060	040056	312 11 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9061	040057	003 11 0 00 030512 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9062	040060	302 12 0 00 000011 		CAIE	AC+1,AC		;EXAMINE AC+1
  9063	040061	004 12 0 00 030512 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9064	040062	321 13 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9065
  9066
  9067					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9068					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9069					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9070
  9071			030513		SN=SN+1
  9072			000012			AC=<AC+1>&17
  9073						SAVEAC	(1,1)^
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-5
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0229

  9074	040063	201 14 0 00 040063 		MOVEI	AC+2,.		;SAVE TEST PC
  9075	040064	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  9076	040065	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9077	040066	202 14 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9078
  9079	040067	205 12 0 00 000200 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9080	040070	202 12 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9081	040071	476 00 0 00 000013 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9082	040072	243 12 0 00 040074 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9083	040073	002 12 0 00 030513 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9084	040074	312 12 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9085	040075	003 12 0 00 030513 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9086	040076	302 13 0 00 000012 		CAIE	AC+1,AC		;EXAMINE AC+1
  9087	040077	004 13 0 00 030513 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9088	040100	321 14 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9089
  9090
  9091					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9092					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9093					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9094
  9095			030514		SN=SN+1
  9096			000013			AC=<AC+1>&17
  9097						SAVEAC	(1,1)^
  9098	040101	201 15 0 00 040101 		MOVEI	AC+2,.		;SAVE TEST PC
  9099	040102	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  9100	040103	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9101	040104	202 15 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9102
  9103	040105	205 13 0 00 000100 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9104	040106	202 13 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9105	040107	476 00 0 00 000014 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9106	040110	243 13 0 00 040112 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9107	040111	002 13 0 00 030514 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9108	040112	312 13 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9109	040113	003 13 0 00 030514 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9110	040114	302 14 0 00 000013 		CAIE	AC+1,AC		;EXAMINE AC+1
  9111	040115	004 14 0 00 030514 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9112	040116	321 15 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9113
  9114
  9115					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9116					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9117					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9118
  9119			030515		SN=SN+1
  9120			000014			AC=<AC+1>&17
  9121						SAVEAC	(1,1)^
  9122	040117	201 16 0 00 040117 		MOVEI	AC+2,.		;SAVE TEST PC
  9123	040120	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  9124	040121	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9125	040122	202 16 0 00 041210 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9126
  9127	040123	205 14 0 00 000040 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9128	040124	202 14 0 00 041211 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 90-6
DAKAMM	MAC	20-JAN-77 11:34		PART III - GENERAL JFFO TEST                                                       SEQ 0230

  9129	040125	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9130	040126	243 14 0 00 040130 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9131	040127	002 14 0 00 030515 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9132	040130	312 14 0 00 041211 		CAME	AC,GSVAC	;EXAMINE AC
  9133	040131	003 14 0 00 030515 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9134	040132	302 15 0 00 000014 		CAIE	AC+1,AC		;EXAMINE AC+1
  9135	040133	004 15 0 00 030515 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9136	040134	321 16 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9137
  9138
  9139	040135	254 00 0 00 030057 	LAST1:	JRST	BEGEND		;REPEAT DIAGNOSTIC
  9140
  9141						IF1,<PURGE BYTBLK>
  9142	040136				BYTBLK:	BLOCK	^D50
  9143
  9144						IF1,<PURGE BLTBLK>
  9145	040220				BLTBLK:	BLOCK	^D200
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0231

  9146					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
  9147
  9148					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  9149
  9150	040530	202 00 0 00 041216 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  9151						IFDEF	EXCASB,<IFDEF	KI10,<
  9152						SKIPN	KAIFLG
  9153						JRST	.+5
  9154						SKIPE	USER		;USER MODE ?
  9155						JRST	.+3
  9156						SKIPE	MARGIN
  9157						DATAO	APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
  9158	040531	202 01 0 00 041217 		MOVEM	1,%ERAC1#	;SAVE AC1
  9159	040532	202 02 0 00 041220 		MOVEM	2,%ERAC2#	;SAVE AC2
  9160	040533	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  9161	040534	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  9162	040535	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  9163	040536	350 00 0 00 041213 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  9164	040537	200 00 0 00 041213 		MOVE	0,MICNT
  9165	040540	504 00 0 00 030114 		HRL	0,$SVUPC
  9166	040541	336 00 0 00 030041 		SKIPN	KLFLG		;NOT KL10
  9167	040542	332 00 0 00 030037 		SKIPE	USER		;AND NOT USER?
  9168	040543	254 00 0 00 040545 		JRST	.+2
  9169	040544	7 004 14 0 00 000000 		DATAO	PI,0		;YES, DISPLAY ERROR PC,ERROR COUNT
  9170	040545	402 00 0 00 041214 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  9171	040546	037 10 0 00 000002 		SWITCH
  9172	040547	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  9173	040550	254 00 0 00 040663 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  9174	040551	200 01 0 00 030113 		MOVE	1,$SVUUO
  9175	040552	242 01 0 00 777745 		LSH	1,-^D27
  9176	040553	202 01 0 00 041215 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  9177	040554	200 00 0 00 041216 		MOVE	0,%ERAC0
  9178	040555	200 01 0 00 041217 		MOVE	1,%ERAC1
  9179	040556	335 00 1 00 041210 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  9180	040557	254 00 0 00 040715 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  9181	040560	402 00 0 00 041213 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  9182	040561	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  9183	040562	254 00 0 00 040566 		JRST	.+4		;NO, DON'T NEED TITLE
  9184	040563	336 00 0 00 041221 		SKIPN	%ERFST#		;FIRST ERROR ?
  9185	040564	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  9186	040565	476 00 0 00 041221 		SETOM	%ERFST
  9187	040566	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  9188	040567	254 00 0 00 040573 		JRST	.+4		;YES
  9189						PMSG	<^TEST PASS COUNT = >^
  9190	040570	037 02 0 00 041075 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  9191	040571	200 00 0 00 030047 		MOVE	PASCNT
  9192	040572	037 15 0 00 000000 		PNTDEC
  9193						PMSG	<^PC =   >^
  9194	040573	037 02 0 00 041101 		PSIXM	[SIXBIT\^PC =   _\]^
  9195	040574	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  9196	040575	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  9197	040576	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  9198						XLIST
  9199						IFDEF	ERDIAG,<LIST
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 2
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0232

  9200					;DIAGNOSTIC FORMAT ERROR PRINTER
  9201
  9202					;PRINT RESULT
  9203
  9204	040577				%ERMS2:	PMSG	<^RESULT  = >^
  9205	040577	037 02 0 00 041103 		PSIXM	[SIXBIT\^RESULT  = _\]^
  9206	040600	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
  9207	040601	242 01 0 00 777751 		LSH	1,-27
  9208	040602	405 01 0 00 000017 		ANDI	1,17
  9209	040603	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  9210	040604	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
  9211	040605	200 00 0 01 041216 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  9212	040606	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
  9213
  9214	040607	200 00 0 00 030046 		MOVE	CONSW
  9215	040610	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
  9216	040611	254 00 0 00 040660 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
  9217
  9218					;PRINT FAILURE DESCRIPTOR
  9219
  9220	040612	200 01 0 00 041215 		MOVE	1,%ACS1A	;GET UUO NUMBER
  9221	040613	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
  9222	040614	254 00 0 00 040620 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
  9223	040615	037 00 0 00 030242 		PCRL
  9224	040616	200 00 0 01 040644 		MOVE	%FLTTB(1)
  9225	040617	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
  9226
  9227					;PRINT FAULT NUMBER
  9228
  9229	040620				%ERMS3:	PMSG	<^FAULT NUMBER = >^
  9230	040620	037 02 0 00 041105 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
  9231	040621	201 00 0 00 040643 		MOVEI	TLET
  9232	040622	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 3
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0233

  9233
  9234	040623	550 00 0 00 030113 		HRRZ	$SVUUO
  9235	040624	602 00 0 00 700000 		TRNE	700000
  9236	040625	254 00 0 00 040641 		JRST	%ER6X
  9237	040626	602 00 0 00 070000 		TRNE	070000
  9238	040627	254 00 0 00 040637 		JRST	%ER5X
  9239	040630	602 00 0 00 007000 		TRNE	007000
  9240	040631	254 00 0 00 040635 		JRST	%ER4X
  9241	040632	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
  9242	040633	037 00 0 00 030242 	%ER7X:	PCRL
  9243	040634	254 00 0 00 040660 		JRST	%ERMORE
  9244
  9245	040635	037 04 0 00 000000 	%ER4X:	PNT4
  9246	040636	254 00 0 00 040633 		JRST	%ER7X
  9247	040637	037 05 0 00 000000 	%ER5X:	PNT5
  9248	040640	254 00 0 00 040633 		JRST	%ER7X
  9249	040641	037 06 0 00 000000 	%ER6X:	PNT6
  9250	040642	254 00 0 00 040633 		JRST	%ER7X
  9251
  9252					;FAILURE DESCRIPTORS
  9253
  9254	040643	000000	000000		TLET:	0			;TEST LETTER
  9255	040644	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
  9256	040645	000000	041011		%NODES:	[0]			;NO DESCRIPTOR
  9257	040646	000000	041011		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
  9258	040647	000000	041110		$ACF:	[ASCIZ/C(AC) FAILED/]
  9259	040650	000000	041113		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
  9260	040651	000000	041116		%EF:	[ASCIZ/C(E) FAILED/]
  9261	040652	000000	041121		%E1F:	[ASCIZ/C(E+1) FAILED/]
  9262	040653	000000	041124		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
  9263	040654	000000	041130		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
  9264	040655	000000	041134		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
  9265	040656	000000	041140		%EEF:	[ASCIZ/C(C(E)) FAILED/]
  9266	040657	000000	041143		%FF:	[ASCIZ/FLAG FAILED/]
  9267					>
  9268						XLIST
  9269						LIST
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 8
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0234

  9270					;RESTORE AC'S AND RETURN OR HALT
  9271
  9272	040660	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  9273	040661	037 16 0 00 000002 		PNTMGN			;PRINT MARGINS	
  9274	040662	037 10 0 00 000002 		SWITCH
  9275
  9276	040663	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  9277	040664	254 00 0 00 040670 		JRST	.+4		;NONE
  9278	040665	201 00 0 00 040670 		MOVEI	.+3		;SAVE CONT ADDRESS
  9279	040666	202 00 0 00 000130 		MOVEM	JOBOPC
  9280	040667	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  9281	040670	200 00 0 00 030046 		MOVE	CONSW
  9282	040671	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  9283	040672	037 14 0 00 000004 		ERRHLT			;YES
  9284	040673	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  9285	040674	476 00 0 00 041214 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  9286	040675	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  9287	040676	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  9288
  9289	040677	200 02 0 00 041220 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  9290	040700	200 01 0 00 041217 		MOVE	1,%ERAC1
  9291	040701	476 00 1 00 041210 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  9292	040702	336 00 0 00 041214 		SKIPN	PROCED		;LOOP ON ERROR ?
  9293	040703	254 00 0 00 040713 		JRST	%ERRS5		;YES
  9294	040704	350 00 1 00 041210 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  9295	040705	350 00 1 00 041210 		AOS	@ERRLOP		;SO IT ='S 1
  9296	040706	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  9297	040707	254 00 0 00 040713 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  9298	040710	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  9299	040711	301 00 0 00 000005 		CAIL	0,5		;PRINTED ALLOWED ERRORS ?
  9300	040712	254 00 0 00 030061 		JRST	$BEND2
  9301
  9302	040713	200 00 0 00 041216 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  9303						IFDEF	EXCASB,<IFDEF KI10,<
  9304						SKIPN	KAIFLG
  9305						JRST	.+5
  9306						SKIPE	USER
  9307						JRST	.+3
  9308						SKIPE	MARGIN
  9309						DATAO	APR,MARGIN	;RESET MARGIN SYSTEM >>
  9310	040714	254 00 0 00 030065 		JRST	UUOEXT
  9311
  9312	040715	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  9313	040716	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  9314	040717	254 00 0 00 040663 		JRST	%ERRS1		;NO
  9315	040720	254 00 0 00 040560 		JRST	%ERMS1		;YES
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0235

  9316					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  9317
  9318					;PROGRAM LITERALS
  9319
  9320						XLIST
  9321					IFNDEF	$LPAPER,<LIST>
  9322	040721					LIT
  9323	040721	101 115 000 000 000 
  9324	040722	525252	525377
  9325	040723	076000	000001
  9326	040724	002525	252525
  9327	040725	074000	000001
  9328	040726	707070	707070
  9329	040727	323232	232323
  9330	040730	103 050 103 050 105 
  9331	040731	051 055 061 051 040 
  9332	040732	106 101 111 114 105 
  9333	040733	104 000 000 000 000 
  9334	040734	777777	777777
  9335	040735	646446	464670
  9336	040736	103 050 103 050 105 
  9337	040737	051 053 061 051 040 
  9338	040740	106 101 111 114 105 
  9339	040741	104 000 000 000 000 
  9340	040742	220600	000012
  9341	040743	112233	445566
  9342	040744	020000	033356
  9343	040745	020000	033373
  9344	040746	112270	445566
  9345	040747	000000	033411
  9346	040750	000000	033424
  9347	040751	000000	033442
  9348	040752	230703	603700
  9349	040753	230702	103700
  9350	040754	000000	033465
  9351	040755	000000	033512
  9352	040756	000000	033536
  9353	040757	000000	033564
  9354	040760	000000	033610
  9355	040761	000000	033631
  9356	040762	000000	033656
  9357	040763	000000	033705
  9358	040764	000000	033730
  9359	040765	000000	033754
  9360	040766	000000	034000
  9361	040767	000000	034026
  9362	040770	000000	034052
  9363	040771	000000	034077
  9364	040772	000000	034124
  9365	040773	000000	034153
  9366	040774	000000	034173
  9367	040775	000000	034213
  9368	040776	000000	034233
  9369	040777	000000	034253
  9370	041000	000000	034276
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0236

  9371	041001	000000	034321
  9372	041002	000000	034344
  9373	041003	377777	777777
  9374	041004	000000	034370
  9375	041005	777777	777776
  9376	041006	000000	034414
  9377	041007	102 114 124 040 106 
  9378	041010	101 111 114 105 104 
  9379	041011	000 000 000 000 000 
  9380	041012	000001	000001
  9381	041013	000006	000006
  9382	041014	040221	040221
  9383	041015	000006	000011
  9384	041016	252525	252525
  9385	041017	770077	007700
  9386	041020	070707	070707
  9387	041021	123456	765432
  9388	041022	552255	225522
  9389	041023	000005	000010
  9390	041024	000004	000007
  9391	041025	000006	040224
  9392	041026	000005	040224
  9393	041027	000004	040224
  9394	041030	040221	040224
  9395	041031	040221	000006
  9396	041032	040221	000005
  9397	041033	040221	000004
  9398	041034	000004	000004
  9399	041035	146314	631463
  9400	041036	036074	170360
  9401	041037	017407	603701
  9402	041040	007603	607062
  9403	041041	000002	000001
  9404	041042	036074	170630
  9405	041043	040222	040221
  9406	041044	000001	000002
  9407	041045	040221	040222
  9408	041046	146314	146314
  9409	041047	000001	040221
  9410	041050	007700	770077
  9411	041051	003760	077401
  9412	041052	001774	007760
  9413	041053	000777	000777
  9414	041054	000377	600077
  9415	041055	777777	040220
  9416	041056	777777	040233
  9417	041057	040221	000001
  9418	041060	777777	000000
  9419	041061	777777	000013
  9420	041062	525252	525252
  9421	041063	123456	654321
  9422	041064	041224	041230
  9423	041065	112 106 106 117 040 
  9424	041066	116 117 055 112 125 
  9425	041067	115 120 040 106 101 
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1-2
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0237

  9426	041070	111 114 105 104 000 
  9427	041071	112 106 106 117 040 
  9428	041072	112 125 115 120 040 
  9429	041073	106 101 111 114 105 
  9430	041074	104 000 000 000 000 
  9431	041075	76 64 45 63 64 00 
  9432	041076	60 41 63 63 00 43 
  9433	041077	57 65 56 64 00 35 
  9434	041100	00 77 00 00 00 00 
  9435	041101	76 60 43 00 35 00 
  9436	041102	00 00 77 00 00 00 
  9437	041103	76 62 45 63 65 54 
  9438	041104	64 00 00 35 00 77 
  9439	041105	76 46 41 65 54 64 
  9440	041106	00 56 65 55 42 45 
  9441	041107	62 00 35 00 77 00 
  9442	041110	103 050 101 103 051 
  9443	041111	040 106 101 111 114 
  9444	041112	105 104 000 000 000 
  9445	041113	103 050 101 103 053 
  9446	041114	061 051 040 106 101 
  9447	041115	111 114 105 104 000 
  9448	041116	103 050 105 051 040 
  9449	041117	106 101 111 114 105 
  9450	041120	104 000 000 000 000 
  9451	041121	103 050 105 053 061 
  9452	041122	051 040 106 101 111 
  9453	041123	114 105 104 000 000 
  9454	041124	103 050 103 050 101 
  9455	041125	103 122 051 051 040 
  9456	041126	106 101 111 114 105 
  9457	041127	104 000 000 000 000 
  9458	041130	103 050 103 050 101 
  9459	041131	103 122 053 061 051 
  9460	041132	051 040 106 101 111 
  9461	041133	114 105 104 000 000 
  9462	041134	103 050 103 050 101 
  9463	041135	103 114 051 051 040 
  9464	041136	106 101 111 114 105 
  9465	041137	104 000 000 000 000 
  9466	041140	103 050 103 050 105 
  9467	041141	051 051 040 106 101 
  9468	041142	111 114 105 104 000 
  9469	041143	106 114 101 107 040 
  9470	041144	106 101 111 114 105 
  9471	041145	104 000 000 000 000 
  9472						LIST
  9473	041147	000000	000000		ENDSLD:	0
  9474
  9475					IFDEF	DEBUG,<
  9476	041150				PATCH:	BLOCK DEBUG		;PATCHING AREA
  9477					>
  9478
  9479					;PROGRAM VARIABLES
  9480	041210					VAR
DAKAM PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %52(537) 15:23 20-JAN-77 PAGE 1-3
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0238

  9481
  9482					IFDEF	PGMEND,<
  9483	041222	000000	000000		END:	0
  9484			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 041223
CPU TIME USED 00:42.173

11K CORE USED

AABCLR	   431#
AADRBK	   431#                                                                                                            SEQ 0239
AAPRC1	   431#
ABORT	   163#
AC	   799#	   801	   802	   803	   804	   806	   808	   809	   810	   811	   812	   823#	   825	   826
	   827	   828	   830	   831	   833	   834	   836	   842#	   844	   845	   846	   847	   849	   850
	   851	   852	   853	   854	   860#	   862	   863	   864	   865	   867	   868	   869	   870	   871
	   872	   883#	   885	   886	   887	   888	   909	   910	   911	   912	   913	   914	   920	   921
	   922	   923	   924	   925	   931	   932	   933	   934	   935	   936	   942	   943	   944	   945
	   946	   947	   953	   954	   955	   956	   957	   958	   964	   965	   966	   967	   968	   969
	   971#	   973	   974	   975	   976	   979	   980	   981	   982	   983	   984	   987	   988	   989
	   990	   991	   992	   994	   995	   996	   997	   998	   999	  1002	  1003	  1004	  1005	  1006
	  1007	  1010	  1011	  1012	  1013	  1014	  1015	  1020#	  1022	  1023	  1024	  1025	  1027	  1028
	  1029	  1030	  1031	  1032	  1033	  1042#	  1044	  1045	  1046	  1047	  1049	  1050	  1051	  1052
	  1053	  1054	  1055	  1063#	  1065	  1066	  1067	  1068	  1070	  1071	  1072	  1073	  1074	  1075
	  1076	  1079	  1080	  1081	  1082	  1083	  1084	  1085	  1088	  1089	  1090	  1091	  1092	  1093
	  1094	  1097	  1098	  1099	  1100	  1101	  1102	  1103	  1106	  1107	  1108	  1109	  1110	  1111
	  1112	  1114	  1115	  1116	  1117	  1118	  1119	  1120	  1132#	  1134	  1135	  1136	  1137	  1139
	  1140	  1141	  1142	  1143	  1144	  1145	  1156#	  1158	  1159	  1160	  1161	  1164	  1165	  1166
	  1167	  1168	  1169	  1170	  1173	  1174	  1175	  1176	  1177	  1178	  1179	  1182	  1183	  1184
	  1185	  1186	  1187	  1188	  1191	  1192	  1193	  1194	  1195	  1196	  1197	  1205#	  1207	  1208
	  1209	  1210	  1212	  1213	  1214	  1215	  1216	  1217	  1218	  1226#	  1228	  1229	  1230	  1231
	  1233	  1234	  1235	  1236	  1237	  1238	  1239	  1240	  1250#	  1252	  1253	  1254	  1255	  1257
	  1258	  1260	  1261	  1262	  1263	  1264	  1271#	  1273	  1274	  1275	  1276	  1278	  1279	  1281
	  1282	  1283	  1284	  1290#	  1292	  1293	  1294	  1295	  1297	  1299	  1300	  1301	  1302	  1312#
	  1314	  1315	  1316	  1317	  1319	  1320	  1322	  1323	  1324	  1325	  1328	  1329	  1331	  1332
	  1333	  1334	  1337	  1338	  1340	  1341	  1342	  1343	  1346	  1347	  1349	  1350	  1351	  1352
	  1354	  1355	  1357	  1358	  1359	  1360	  1363	  1364	  1366	  1367	  1368	  1369	  1375#	  1377
	  1378	  1379	  1380	  1382	  1383	  1385	  1386	  1387	  1388	  1394#	  1396	  1397	  1398	  1399
	  1401	  1402	  1404	  1405	  1406	  1407	  1417#	  1419	  1420	  1421	  1422	  1424	  1426	  1428
	  1429	  1438#	  1440	  1441	  1442	  1443	  1445	  1447	  1448	  1449	  1450	  1451	  1465#	  1467
	  1468	  1469	  1470	  1472	  1475	  1476	  1477	  1478	  1479	  1492#	  1494	  1495	  1496	  1497
	  1499	  1500	  1502	  1503	  1504	  1505	  1506	  1516#	  1518	  1519	  1520	  1521	  1523	  1524
	  1528	  1529	  1530	  1531	  1540#	  1542	  1543	  1544	  1545	  1547	  1548	  1549	  1552	  1553
	  1554	  1555	  1564#	  1566	  1567	  1568	  1569	  1571	  1572	  1577	  1578	  1579	  1580	  1587#
	  1589	  1590	  1591	  1592	  1594	  1595	  1600	  1601	  1602	  1603	  1614#	  1616	  1617	  1618
	  1619	  1621	  1622	  1623	  1624	  1625	  1626	  1637#	  1639	  1640	  1641	  1642	  1644	  1645
	  1647	  1648	  1650	  1651	  1652	  1661#	  1663	  1664	  1665	  1666	  1668	  1669	  1671	  1672
	  1673	  1674	  1675	  1676	  1686#	  1688	  1689	  1690	  1691	  1693	  1694	  1695	  1697	  1698
	  1700	  1711#	  1713	  1714	  1715	  1716	  1718	  1719	  1720	  1722	  1723	  1725	  1735#	  1737
	  1738	  1739	  1740	  1742	  1743	  1744	  1745	  1747	  1748	  1750	  1760#	  1762	  1763	  1764
	  1765	  1767	  1768	  1769	  1771	  1772	  1774	  1784#	  1786	  1787	  1788	  1789	  1791	  1792
	  1793	  1795	  1796	  1798	  1807#	  1809	  1810	  1811	  1812	  1814	  1815	  1816	  1818	  1819
	  1821	  1831#	  1833	  1834	  1835	  1836	  1838	  1839	  1841	  1842	  1843	  1844	  1845	  1863#
	  1865	  1866	  1867	  1868	  1870	  1871	  1872	  1874	  1875	  1876	  1879	  1892#	  1894	  1895
	  1896	  1897	  1919	  1920	  1921	  1922	  1923	  1924	  1930	  1931	  1932	  1933	  1934	  1935
	  1941	  1942	  1943	  1944	  1945	  1946	  1952	  1953	  1954	  1955	  1956	  1957	  1963	  1964
	  1965	  1966	  1967	  1968	  1979#	  1981	  1982	  1983	  1984	  2009	  2010	  2011	  2012	  2013
	  2014	  2021	  2022	  2023	  2024	  2025	  2026	  2033	  2034	  2035	  2036	  2037	  2038	  2045
	  2046	  2047	  2048	  2049	  2050	  2057	  2058	  2059	  2060	  2061	  2062	  2074#	  2076	  2077
	  2078	  2079	  2102	  2103	  2104	  2105	  2106	  2107	  2108	  2114	  2115	  2116	  2117	  2118
	  2119	  2120	  2126	  2127	  2128	  2129	  2130	  2131	  2132	  2138	  2139	  2140	  2141	  2142
	  2143	  2144	  2150	  2151	  2152	  2153	  2154	  2155	  2156	  2168#	  2170	  2171	  2172	  2173
	  2195	  2197	  2198	  2199	  2200	  2206	  2208	  2209	  2210	  2211	  2217	  2219	  2220	  2221
	  2222	  2228	  2230	  2231	  2232	  2233	  2239	  2241	  2242	  2243	  2244	  2257#	  2259	  2260     SEQ 0240
	  2261	  2262	  2285	  2288	  2289	  2290	  2291	  2297	  2300	  2301	  2302	  2303	  2309	  2312
	  2313	  2314	  2315	  2321	  2324	  2325	  2326	  2327	  2333	  2336	  2337	  2338	  2339	  2351#
	  2353	  2354	  2355	  2356	  2376	  2377	  2379	  2380	  2381	  2382	  2387	  2388	  2390	  2391
	  2392	  2393	  2398	  2399	  2401	  2402	  2403	  2404	  2409	  2410	  2412	  2413	  2414	  2415
	  2420	  2421	  2423	  2424	  2425	  2426	  2438#	  2440	  2441	  2442	  2443	  2466	  2467	  2468
	  2469	  2477	  2478	  2479	  2480	  2488	  2489	  2490	  2491	  2499	  2500	  2501	  2502	  2510
	  2511	  2512	  2513	  2525#	  2527	  2528	  2529	  2530	  2552	  2553	  2557	  2558	  2559	  2560
	  2565	  2566	  2570	  2571	  2572	  2573	  2578	  2579	  2583	  2584	  2585	  2586	  2591	  2592
	  2596	  2597	  2598	  2599	  2604	  2605	  2609	  2610	  2611	  2612	  2623#	  2625	  2626	  2627
	  2628	  2662	  2663	  2664	  2665	  2677	  2678	  2679	  2680	  2692	  2693	  2694	  2695	  2707#
	  2709	  2710	  2711	  2712	  2732	  2733	  2735	  2736	  2737	  2738	  2743	  2744	  2746	  2747
	  2748	  2749	  2754	  2755	  2757	  2758	  2759	  2760	  2765	  2766	  2768	  2769	  2770	  2771
	  2776	  2777	  2779	  2780	  2781	  2782	  2793#	  2795	  2796	  2797	  2798	  2818	  2821	  2822
	  2823	  2824	  2829	  2832	  2833	  2834	  2835	  2840	  2843	  2844	  2845	  2846	  2851	  2854
	  2855	  2856	  2857	  2862	  2865	  2866	  2867	  2868	  2880#	  2882	  2883	  2884	  2885	  2909
	  2910	  2913	  2914	  2915	  2916	  2922	  2923	  2926	  2927	  2928	  2929	  2935	  2936	  2939
	  2940	  2941	  2942	  2953#	  2955	  2956	  2957	  2958	  2981	  2984	  2985	  2986	  2987	  2993
	  2996	  2997	  2998	  2999	  3005	  3008	  3009	  3010	  3011	  3017	  3020	  3021	  3022	  3023
	  3029	  3032	  3033	  3034	  3035	  3047#	  3049	  3050	  3051	  3052	  3075	  3078	  3079	  3080
	  3081	  3087	  3090	  3091	  3092	  3093	  3099	  3102	  3103	  3104	  3105	  3111	  3114	  3115
	  3116	  3117	  3123	  3126	  3127	  3128	  3129	  3141	  3143	  3144	  3145	  3146	  3147	  3157#
	  3159	  3160	  3161	  3162	  3187	  3188	  3189	  3191	  3192	  3193	  3195	  3201	  3202	  3203
	  3205	  3206	  3207	  3209	  3215	  3216	  3217	  3219	  3220	  3221	  3223	  3229	  3230	  3231
	  3233	  3234	  3235	  3237	  3243	  3244	  3245	  3247	  3248	  3249	  3251	  3262#	  3264	  3265
	  3266	  3267	  3294	  3295	  3296	  3297	  3299	  3300	  3302	  3309	  3310	  3311	  3312	  3314
	  3315	  3317	  3324	  3325	  3326	  3327	  3329	  3330	  3332	  3339	  3340	  3341	  3342	  3344
	  3345	  3347	  3354	  3355	  3356	  3357	  3359	  3360	  3362	  3374#	  3376	  3377	  3378	  3379
	  3404	  3405	  3406	  3407	  3409	  3410	  3412	  3418	  3419	  3420	  3421	  3423	  3424	  3426
	  3432	  3433	  3434	  3435	  3437	  3438	  3440	  3446	  3447	  3448	  3449	  3451	  3452	  3454
	  3460	  3461	  3462	  3463	  3465	  3466	  3468	  3478#	  3480	  3481	  3482	  3483	  3488	  3506
	  3507	  3508	  3509	  3511	  3512	  3514	  3519	  3520	  3521	  3522	  3524	  3525	  3527	  3532
	  3533	  3534	  3535	  3537	  3538	  3540	  3545	  3546	  3547	  3548	  3550	  3551	  3553	  3558
	  3559	  3560	  3561	  3563	  3564	  3566	  3573#	  3575	  3576	  3577	  3578	  3603	  3604	  3605
	  3606	  3607	  3608	  3609	  3610	  3617	  3618	  3619	  3620	  3621	  3622	  3623	  3624	  3661
	  3662	  3663	  3664	  3665	  3670	  3671	  3674	  3681	  3682	  3683	  3684	  3685	  3690	  3691
	  3694	  3699#	  3701	  3702	  3703	  3704	  3706	  3707	  3708	  3710	  3711	  3712	  3713	  3714
	  3715	  3716	  3717	  3718	  3720	  3721	  3722	  3724	  3725	  3726	  3727	  3728	  3729	  3730
	  3731	  3732	  3736#	  3738	  3739	  3740	  3741	  3744	  3745	  3746	  3747	  3748	  3749	  3754#
	  3756	  3757	  3758	  3759	  3762	  3763	  3764	  3765	  3767	  3768	  3769	  3770	  3775#	  3777
	  3778	  3779	  3780	  3783	  3784	  3785	  3786	  3787	  3788	  3789	  3790	  3791	  3792	  3793
	  3794	  3795	  3796	  3801#	  3803	  3804	  3805	  3806	  3809	  3810	  3811	  3812	  3813	  3814
	  3815	  3816	  3817	  3818	  3819	  3820	  3821	  3822	  3823	  3824	  3829#	  3831	  3832	  3833
	  3834	  3837	  3838	  3839	  3840	  3841	  3842	  3843	  3844	  3845	  3846	  3847	  3848	  3849
	  3850	  3851	  3856#	  3858	  3859	  3860	  3861	  3864	  3865	  3866	  3867	  3868	  3869	  3870
	  3871	  3872	  3873	  3874	  3875	  3876	  3877	  3878	  3879	  3880	  3885#	  3887	  3888	  3889
	  3890	  3893	  3894	  3895	  3896	  3897	  3898	  3899	  3900	  3901	  3902	  3903	  3904	  3905
	  3906	  3907	  3913#	  3915	  3916	  3917	  3918	  3921	  3922	  3923	  3924	  3925	  3926	  3927
	  3928	  3929	  3931	  3932	  3933	  3938#	  3940	  3941	  3942	  3943	  3947	  3948	  3949	  3950
	  3951	  3952	  3953	  3954	  3956	  3957	  3958	  3959	  3960	  3961	  3962	  3963	  3968#	  3970
	  3971	  3972	  3973	  3976	  3977	  3978	  3979	  3980	  3981	  3982	  3983	  3984	  3986	  3987
	  3988	  3989	  3990	  3991	  3992	  3993	  3994	  3999#	  4001	  4002	  4003	  4004	  4007	  4008
	  4009	  4010	  4011	  4012	  4013	  4014	  4015	  4016	  4017	  4018	  4019	  4020	  4026#	  4028
	  4029	  4030	  4031	  4034	  4035	  4036	  4037	  4038	  4039	  4040	  4041	  4042	  4043	  4044     SEQ 0241
	  4045	  4046	  4047	  4048	  4053#	  4055	  4056	  4057	  4058	  4061	  4062	  4063	  4064	  4065
	  4066	  4067	  4068	  4069	  4070	  4071	  4072	  4073	  4074	  4075	  4080#	  4082	  4083	  4084
	  4085	  4088	  4089	  4090	  4091	  4092	  4093	  4094	  4095	  4096	  4097	  4098	  4099	  4100
	  4101	  4102	  4103	  4104	  4109#	  4111	  4112	  4113	  4114	  4117	  4118	  4119	  4120	  4121
	  4122	  4123	  4124	  4126	  4127	  4128	  4129	  4130	  4131	  4132	  4138#	  4140	  4141	  4142
	  4143	  4146	  4147	  4148	  4149	  4150	  4151	  4152	  4153	  4155	  4156	  4157	  4158	  4159
	  4160	  4161	  4162	  4167#	  4169	  4170	  4171	  4172	  4175	  4176	  4177	  4178	  4179	  4180
	  4181	  4182	  4184	  4185	  4186	  4187	  4188	  4189	  4190	  4191	  4196#	  4198	  4199	  4200
	  4201	  4204	  4205	  4207	  4208	  4209	  4210	  4211	  4212	  4213	  4215	  4216	  4217	  4218
	  4219	  4220	  4221	  4222	  4223	  4227#	  4229	  4230	  4231	  4232	  4235	  4236	  4237	  4238
	  4239	  4240	  4241	  4242	  4243	  4244	  4245	  4250#	  4252	  4253	  4254	  4255	  4258	  4259
	  4260	  4261	  4262	  4263	  4264	  4265	  4266	  4267	  4268	  4272#	  4274	  4275	  4276	  4277
	  4280	  4281	  4282	  4283	  4284	  4285	  4286	  4287	  4288	  4289	  4290	  4295#	  4297	  4298
	  4299	  4300	  4303	  4304	  4305	  4306	  4307	  4308	  4309	  4310	  4311	  4312	  4313	  4317#
	  4319	  4320	  4321	  4322	  4325	  4326	  4327	  4329	  4331	  4332	  4333	  4334	  4335	  4336
	  4337	  4338	  4341#	  4343	  4344	  4345	  4346	  4349	  4350	  4351	  4352	  4353	  4354	  4355
	  4356	  4357	  4358	  4359	  4360	  4361	  4362	  4366#	  4368	  4369	  4370	  4371	  4374	  4375
	  4376	  4377	  4378	  4379	  4380	  4381	  4382	  4383	  4384	  4385	  4386	  4387	  4390#	  4392
	  4393	  4394	  4395	  4398	  4399	  4400	  4401	  4402	  4403	  4404	  4405	  4406	  4407	  4408
	  4409	  4410	  4411	  4412	  4416#	  4418	  4419	  4420	  4421	  4424	  4425	  4426	  4427	  4428
	  4429	  4430	  4431	  4432	  4433	  4434	  4435	  4436	  4437	  4438	  4442#	  4444	  4445	  4446
	  4447	  4450	  4451	  4452	  4453	  4454	  4455	  4464#	  4466	  4467	  4468	  4469	  4471	  4472
	  4475	  4478	  4488	  4493#	  4495	  4496	  4497	  4498	  4500	  4501	  4504	  4507	  4517	  4522#
	  4524	  4525	  4526	  4527	  4529	  4530	  4533	  4536	  4546	  4551#	  4553	  4554	  4555	  4556
	  4562	  4566	  4568	  4569	  4570	  4572	  4573	  4574	  4576	  4577	  4578	  4579	  4584#	  4586
	  4587	  4588	  4589	  4595	  4599	  4601	  4602	  4603	  4605	  4606	  4607	  4609	  4610	  4611
	  4612	  4618#	  4620	  4621	  4622	  4623	  4629	  4631	  4632	  4634	  4636	  4637	  4638	  4640
	  4641	  4642	  4644	  4645	  4646	  4647	  4655#	  4657	  4658	  4659	  4660	  4662	  4663	  4666
	  4703	  4794	  4803#	  4805	  4806	  4807	  4808	  4810	  4811	  4814	  4851	  4942	  4951#	  4953
	  4954	  4955	  4956	  4958	  4959	  4962	  4999	  5090	  5099#	  5101	  5102	  5103	  5104	  5106
	  5110	  5133	  5134	  5139	  5140	  5145	  5146	  5147	  5196	  5197	  5201	  5211	  5212	  5214
	  5226	  5227	  5231	  5238	  5247#	  5249	  5250	  5251	  5252	  5254	  5258	  5281	  5282	  5287
	  5288	  5293	  5294	  5295	  5344	  5345	  5349	  5359	  5360	  5362	  5374	  5375	  5379	  5386
	  5395#	  5397	  5398	  5399	  5400	  5402	  5406	  5429	  5430	  5435	  5436	  5441	  5442	  5443
	  5492	  5493	  5497	  5507	  5508	  5510	  5522	  5523	  5527	  5534	  5543#	  5545	  5546	  5547
	  5548	  5554	  5559	  5560	  5565	  5566	  5571	  5572	  5577	  5578	  5583	  5584	  5589	  5590
	  5591	  5595	  5596	  5600	  5610	  5611	  5615	  5625	  5626	  5630	  5640	  5641	  5645	  5655
	  5656	  5658	  5670	  5671	  5675	  5682	  5691#	  5693	  5694	  5695	  5696	  5702	  5707	  5708
	  5713	  5714	  5719	  5720	  5725	  5726	  5731	  5732	  5737	  5738	  5739	  5743	  5744	  5748
	  5758	  5759	  5763	  5773	  5774	  5778	  5788	  5789	  5793	  5803	  5804	  5806	  5818	  5819
	  5823	  5830	  5839#	  5841	  5842	  5843	  5844	  5850	  5855	  5856	  5861	  5862	  5867	  5868
	  5873	  5874	  5879	  5880	  5885	  5886	  5887	  5891	  5892	  5896	  5906	  5907	  5911	  5921
	  5922	  5926	  5936	  5937	  5941	  5951	  5952	  5954	  5966	  5967	  5971	  5978	  5987#	  5989
	  5990	  5991	  5992	  5995	  5998	  6003	  6004	  6009	  6010	  6015	  6016	  6035	  6039	  6040
	  6044	  6054	  6055	  6059	  6069	  6070	  6074	  6126	  6135#	  6137	  6138	  6139	  6140	  6143
	  6146	  6151	  6152	  6157	  6158	  6163	  6164	  6183	  6187	  6188	  6192	  6202	  6203	  6207
	  6217	  6218	  6222	  6274	  6283#	  6285	  6286	  6287	  6288	  6291	  6294	  6299	  6300	  6305
	  6306	  6311	  6312	  6331	  6335	  6336	  6340	  6350	  6351	  6355	  6365	  6366	  6370	  6422
	  6426#	  6428	  6429	  6430	  6431	  6434	  6435	  6438	  6445	  6481	  6485#	  6487	  6488	  6489
	  6490	  6493	  6494	  6497	  6504	  6540	  6544#	  6546	  6547	  6548	  6549	  6552	  6553	  6556
	  6566	  6602	  6606#	  6608	  6609	  6610	  6611	  6614	  6615	  6618	  6634	  6670	  6674#	  6676
	  6677	  6678	  6679	  6686	  6698	  6700	  6701	  6703	  6706	  6707	  6709	  6712	  6713	  6715
	  6718	  6719	  6721	  6724	  6725	  6727	  6730	  6731	  6733	  6736	  6737	  6739	  6741	  6745#    SEQ 0242
	  6747	  6748	  6749	  6750	  6757	  6769	  6771	  6772	  6774	  6777	  6778	  6780	  6783	  6784
	  6786	  6789	  6790	  6792	  6795	  6796	  6798	  6801	  6802	  6804	  6807	  6808	  6810	  6812
	  6816#	  6818	  6819	  6820	  6821	  6828	  6840	  6842	  6843	  6845	  6848	  6849	  6851	  6854
	  6855	  6857	  6860	  6861	  6863	  6866	  6867	  6869	  6872	  6873	  6875	  6878	  6879	  6881
	  6883	  6887#	  6889	  6890	  6891	  6892	  6899	  6919	  6921	  6922	  6924	  6927	  6928	  6930
	  6933	  6934	  6936	  6939	  6940	  6942	  6945	  6946	  6948	  6951	  6952	  6954	  6957	  6958
	  6960	  6962	  6966#	  6968	  6969	  6970	  6971	  6974	  6975	  6978	  6996	  7038	  7042#	  7044
	  7045	  7046	  7047	  7054	  7076	  7081	  7082	  7084	  7087	  7088	  7090	  7093	  7094	  7096
	  7099	  7100	  7102	  7105	  7106	  7108	  7111	  7112	  7114	  7117	  7118	  7120	  7123	  7124
	  7126	  7128	  7132#	  7134	  7135	  7136	  7137	  7140	  7141	  7144	  7162	  7201	  7205#	  7207
	  7208	  7209	  7210	  7217	  7239	  7244	  7245	  7247	  7250	  7251	  7252	  7254	  7255	  7257
	  7260	  7261	  7263	  7266	  7267	  7269	  7272	  7273	  7275	  7278	  7279	  7281	  7284	  7285
	  7287	  7289	  7293#	  7295	  7296	  7297	  7298	  7301	  7305	  7360	  7408	  7409	  7411	  7414
	  7415	  7417	  7420	  7421	  7423	  7426	  7427	  7429	  7432	  7433	  7435	  7438	  7439	  7441
	  7444	  7445	  7447	  7450	  7451	  7453	  7456	  7457	  7459	  7462	  7463	  7465	  7468	  7469
	  7471	  7474	  7475	  7477	  7479	  7483#	  7485	  7486	  7487	  7488	  7492	  7495	  7543	  7548
	  7549	  7551	  7554	  7555	  7556	  7558	  7559	  7560	  7562	  7563	  7564	  7566	  7567	  7568
	  7570	  7571	  7572	  7574	  7575	  7576	  7578	  7579	  7580	  7582	  7583	  7584	  7586	  7587
	  7588	  7590	  7591	  7592	  7594	  7595	  7597	  7662	  7666#	  7668	  7669	  7670	  7671	  7677
	  7678	  7679	  7680	  7681	  7682	  7683	  7684	  7685	  7686	  7687	  7688	  7690	  7691	  7694
	  7695	  7697	  7698	  7699	  7701	  7702	  7703	  7705	  7706	  7707	  7709	  7710	  7711	  7713
	  7714	  7715	  7717	  7718	  7719	  7721	  7727#	  7756	  7756#	  7758	  7759	  7760	  7761	  7763
	  7764	  7765	  7767	  7768	  7769	  7770	  7771	  7772	  7779	  7779#	  7781	  7782	  7783	  7784
	  7786	  7787	  7788	  7790	  7791	  7792	  7793	  7794	  7795	  7802	  7802#	  7804	  7805	  7806
	  7807	  7809	  7810	  7811	  7813	  7814	  7815	  7816	  7817	  7818	  7825	  7825#	  7827	  7828
	  7829	  7830	  7832	  7833	  7834	  7836	  7837	  7838	  7839	  7840	  7841	  7848	  7848#	  7850
	  7851	  7852	  7853	  7855	  7856	  7857	  7859	  7860	  7861	  7862	  7863	  7864	  7871	  7871#
	  7873	  7874	  7875	  7876	  7878	  7879	  7880	  7882	  7883	  7884	  7885	  7886	  7887	  7894
	  7894#	  7896	  7897	  7898	  7899	  7901	  7902	  7903	  7905	  7906	  7907	  7908	  7909	  7910
	  7917	  7917#	  7919	  7920	  7921	  7922	  7924	  7925	  7926	  7928	  7929	  7930	  7931	  7932
	  7933	  7940	  7940#	  7942	  7943	  7944	  7945	  7947	  7948	  7949	  7951	  7952	  7953	  7954
	  7955	  7956	  7963	  7963#	  7965	  7966	  7967	  7968	  7970	  7971	  7972	  7974	  7975	  7976
	  7977	  7978	  7979	  7986	  7986#	  7988	  7989	  7990	  7991	  7993	  7994	  7995	  7997	  7998
	  7999	  8000	  8001	  8002	  8009	  8009#	  8011	  8012	  8013	  8014	  8016	  8017	  8018	  8020
	  8021	  8022	  8023	  8024	  8025	  8032	  8032#	  8034	  8035	  8036	  8037	  8039	  8040	  8041
	  8043	  8044	  8045	  8046	  8047	  8048	  8057	  8058	  8059	  8060	  8061	  8062	  8063	  8064
	  8100	  8101	  8102	  8103	  8104	  8105	  8106	  8107	  8108	  8109	  8119	  8120	  8121	  8122
	  8123	  8124	  8125	  8126	  8127	  8128	  8138	  8139	  8140	  8141	  8142	  8143	  8144	  8145
	  8146	  8147	  8157	  8158	  8159	  8160	  8161	  8162	  8163	  8164	  8165	  8166	  8176	  8177
	  8178	  8179	  8180	  8181	  8182	  8183	  8184	  8185	  8195	  8196	  8197	  8198	  8199	  8200
	  8201	  8202	  8203	  8204	  8214	  8215	  8216	  8217	  8218	  8219	  8220	  8221	  8222	  8223
	  8233	  8234	  8235	  8236	  8237	  8238	  8239	  8240	  8241	  8242	  8252	  8253	  8254	  8255
	  8256	  8257	  8258	  8259	  8260	  8261	  8271	  8272	  8273	  8274	  8275	  8276	  8277	  8278
	  8279	  8280	  8290	  8291	  8292	  8293	  8294	  8295	  8296	  8297	  8298	  8299	  8309	  8310
	  8311	  8312	  8313	  8314	  8315	  8316	  8317	  8318	  8328	  8329	  8330	  8331	  8332	  8333
	  8334	  8335	  8336	  8337	  8347	  8348	  8349	  8350	  8351	  8352	  8353	  8354	  8355	  8356
	  8366	  8367	  8368	  8369	  8370	  8371	  8372	  8373	  8374	  8375	  8385	  8386	  8387	  8388
	  8389	  8390	  8391	  8392	  8393	  8394	  8404	  8405	  8406	  8407	  8408	  8409	  8410	  8411
	  8412	  8413	  8423	  8424	  8425	  8426	  8427	  8428	  8429	  8430	  8431	  8432	  8465	  8466
	  8467	  8468	  8469	  8470	  8471	  8472	  8473	  8474	  8484	  8485	  8486	  8487	  8488	  8489
	  8490	  8491	  8492	  8493	  8503	  8504	  8505	  8506	  8507	  8508	  8509	  8510	  8511	  8512
	  8522	  8523	  8524	  8525	  8526	  8527	  8528	  8529	  8530	  8531	  8541	  8542	  8543	  8544
	  8545	  8546	  8547	  8548	  8549	  8550	  8560	  8561	  8562	  8563	  8564	  8565	  8566	  8567     SEQ 0243
	  8568	  8569	  8579	  8580	  8581	  8582	  8583	  8584	  8585	  8586	  8587	  8588	  8598	  8599
	  8600	  8601	  8602	  8603	  8604	  8605	  8606	  8607	  8617	  8618	  8619	  8620	  8621	  8622
	  8623	  8624	  8625	  8626	  8636	  8637	  8638	  8639	  8640	  8641	  8642	  8643	  8644	  8645
	  8655	  8656	  8657	  8658	  8659	  8660	  8661	  8662	  8663	  8664	  8674	  8675	  8676	  8677
	  8678	  8679	  8680	  8681	  8682	  8683	  8693	  8694	  8695	  8696	  8697	  8698	  8699	  8700
	  8701	  8702	  8712	  8713	  8714	  8715	  8716	  8717	  8718	  8719	  8720	  8721	  8731	  8732
	  8733	  8734	  8735	  8736	  8737	  8738	  8739	  8740	  8750	  8751	  8752	  8753	  8754	  8755
	  8756	  8757	  8758	  8759	  8769	  8770	  8771	  8772	  8773	  8774	  8775	  8776	  8777	  8778
	  8788	  8789	  8790	  8791	  8792	  8793	  8794	  8795	  8796	  8797	  8804#	  8832	  8832#	  8834
	  8835	  8836	  8837	  8839	  8840	  8841	  8842	  8843	  8844	  8845	  8846	  8847	  8848	  8856
	  8856#	  8858	  8859	  8860	  8861	  8863	  8864	  8865	  8866	  8867	  8868	  8869	  8870	  8871
	  8872	  8880	  8880#	  8882	  8883	  8884	  8885	  8887	  8888	  8889	  8890	  8891	  8892	  8893
	  8894	  8895	  8896	  8904	  8904#	  8906	  8907	  8908	  8909	  8911	  8912	  8913	  8914	  8915
	  8916	  8917	  8918	  8919	  8920	  8928	  8928#	  8930	  8931	  8932	  8933	  8935	  8936	  8937
	  8938	  8939	  8940	  8941	  8942	  8943	  8944	  8952	  8952#	  8954	  8955	  8956	  8957	  8959
	  8960	  8961	  8962	  8963	  8964	  8965	  8966	  8967	  8968	  8976	  8976#	  8978	  8979	  8980
	  8981	  8983	  8984	  8985	  8986	  8987	  8988	  8989	  8990	  8991	  8992	  9000	  9000#	  9002
	  9003	  9004	  9005	  9007	  9008	  9009	  9010	  9011	  9012	  9013	  9014	  9015	  9016	  9024
	  9024#	  9026	  9027	  9028	  9029	  9031	  9032	  9033	  9034	  9035	  9036	  9037	  9038	  9039
	  9040	  9048	  9048#	  9050	  9051	  9052	  9053	  9055	  9056	  9057	  9058	  9059	  9060	  9061
	  9062	  9063	  9064	  9072	  9072#	  9074	  9075	  9076	  9077	  9079	  9080	  9081	  9082	  9083
	  9084	  9085	  9086	  9087	  9088	  9096	  9096#	  9098	  9099	  9100	  9101	  9103	  9104	  9105
	  9106	  9107	  9108	  9109	  9110	  9111	  9112	  9120	  9120#	  9122	  9123	  9124	  9125	  9127
	  9128	  9129	  9130	  9131	  9132	  9133	  9134	  9135	  9136
AFOCLR	   431#
AFODIS	   431#
AFOENB	   431#
AFOV	   431#
ALTMGO	   517#	  9280
AMPCLR	   431#
AMPV	   431#
ANXCLR	   431#
ANXM	   431#
AOVCLR	   431#
AOVDIS	   431#
AOVENB	   431#
AOVFLO	   431#
APAREN	   431#
APARER	   431#
APDCLR	   431#
APDLOV	   431#
APWRFL	   431#
AROV	   431#
AROVU	   431#
AST	   632#
ATRPOS	   431#
ATSIN	   633#
AUSRIO	   431#
BEGEND	   513#	  9139
BEGIN	    67	    68	    69	    70	    71	    72	    73	    74	    75	    76	    77	   377	   378	   444#
	  9484
BEGIN1	   460#	   514
BELL	   636#                                                                                                            SEQ 0244
BIS	   431#	  3709	  3716	  3723	  3730
BLTBLK	  4558	  4559	  4591	  4592	  4625	  4626	  5107	  5255	  5403	  5550	  5551	  5698	  5699	  5846
	  5847	  5994	  6142	  6290	  6682	  6683	  6753	  6754	  6824	  6825	  6895	  6896	  7050	  7051
	  7213	  7214	  7302	  7491	  9145#
BLTDST	  7675#	  7684	  7686	  7688	  7690	  7691	  7694	  7710	  7714	  7718
BLTSRC	  7674#	  7678	  7680	  7682	  7690	  7694	  7698	  7702	  7706
BYTBLK	  3763	  3766	  3767	  3810	  3813	  3821	  3822	  3839	  3843	  3844	  3845	  3865	  3866	  3868
	  3871	  3872	  3873	  3875	  3876	  3922	  3926	  3949	  3954	  3956	  3957	  3977	  3978	  3981
	  3984	  3986	  3987	  3989	  3990	  4035	  4038	  4045	  4046	  4063	  4067	  4068	  4069	  4089
	  4090	  4092	  4095	  4096	  4097	  4099	  4100	  4147	  4151	  4159	  4160	  4177	  4182	  4184
	  4185	  4205	  4207	  4210	  4213	  4215	  4216	  4218	  4219	  9142#
CCA	   431#
CHAIN	   183#
CHNOFF	   431#
CHNON	   431#
CLK	   431#
CLKCLR	   431#
CLKDIS	   431#
CLKENB	   431#
CLKU	   431#
CLOCKF	   499#
CNTLC	   516#
COMMA	   625#
CONSW	   500#	  9214	  9281	  9312
CPOPJ	   520#
CPOPJ1	   518#
CRLF	   312	   313	   620#
CRLF2	   316	   317	   622#
CRY0	   431#
CRY1	   431#
CSHFLG	   679#
CSHMEM	   680#
CYCL60	   673#
DCK	   431#
DDTLNK	   197#	   458
DDTSRT	   458#
DEBUG	    58#	  9475	  9476
DECVER	     5#	    12	    26	   479
DEST	  4472#	  4475	  4478	  4480	  4481	  4483	  4484	  4486	  4487	  4501#	  4504	  4507	  4509	  4510
	  4512	  4513	  4515	  4516	  4530#	  4533	  4536	  4538	  4539	  4541	  4542	  4544	  4545	  4559#
	  4562	  4566	  4568	  4572	  4576	  4592#	  4595	  4599	  4601	  4605	  4609	  4626#	  4629	  4634
	  4636	  4640	  4644	  4663#	  4666	  4686	  4687	  4688	  4692	  4693	  4694	  4698	  4699	  4700
	  4703	  4751	  4758	  4759	  4763	  4766	  4773	  4774	  4776	  4781	  4788	  4789	  4793	  4811#
	  4814	  4834	  4835	  4836	  4840	  4841	  4842	  4846	  4847	  4848	  4851	  4899	  4906	  4907
	  4911	  4914	  4921	  4922	  4924	  4929	  4936	  4937	  4941	  4959#	  4962	  4982	  4983	  4984
	  4988	  4989	  4990	  4994	  4995	  4996	  4999	  5047	  5054	  5055	  5059	  5062	  5069	  5070
	  5072	  5077	  5084	  5085	  5089	  5107#	  5110	  5130	  5132	  5134	  5136	  5138	  5140	  5142
	  5144	  5146	  5147	  5195	  5196	  5202	  5210	  5211	  5217	  5225	  5226	  5232	  5255#	  5258
	  5278	  5280	  5282	  5284	  5286	  5288	  5290	  5292	  5294	  5295	  5343	  5344	  5350	  5358
	  5359	  5365	  5373	  5374	  5380	  5403#	  5406	  5426	  5428	  5430	  5432	  5434	  5436	  5438
	  5440	  5442	  5443	  5491	  5492	  5498	  5506	  5507	  5513	  5521	  5522	  5528	  5551#	  5554
	  5574	  5576	  5578	  5580	  5582	  5584	  5586	  5588	  5590	  5591	  5639	  5640	  5646	  5654
	  5655	  5661	  5669	  5670	  5676	  5699#	  5702	  5722	  5724	  5726	  5728	  5730	  5732	  5734     SEQ 0245
	  5736	  5738	  5739	  5787	  5788	  5794	  5802	  5803	  5809	  5817	  5818	  5824	  5847#	  5850
	  5870	  5872	  5874	  5876	  5878	  5880	  5882	  5884	  5886	  5887	  5935	  5936	  5942	  5950
	  5951	  5957	  5965	  5966	  5972	  5995#	  5998	  6018	  6019	  6020	  6024	  6025	  6026	  6030
	  6031	  6032	  6035	  6083	  6090	  6091	  6095	  6098	  6105	  6106	  6108	  6113	  6120	  6121
	  6125	  6143#	  6146	  6166	  6167	  6168	  6172	  6173	  6174	  6178	  6179	  6180	  6183	  6231
	  6238	  6239	  6243	  6246	  6253	  6254	  6256	  6261	  6268	  6269	  6273	  6291#	  6294	  6314
	  6315	  6316	  6320	  6321	  6322	  6326	  6327	  6328	  6331	  6379	  6386	  6387	  6391	  6394
	  6401	  6402	  6404	  6409	  6416	  6417	  6421	  6435#	  6438	  6445	  6447	  6449	  6452	  6454
	  6457	  6459	  6462	  6464	  6467	  6469	  6472	  6474	  6477	  6479	  6494#	  6497	  6504	  6506
	  6508	  6511	  6513	  6516	  6518	  6521	  6523	  6526	  6528	  6531	  6533	  6536	  6538	  6553#
	  6556	  6566	  6568	  6570	  6573	  6575	  6578	  6580	  6583	  6585	  6588	  6590	  6593	  6595
	  6598	  6600	  6615#	  6618	  6634	  6636	  6638	  6641	  6643	  6646	  6648	  6651	  6653	  6656
	  6658	  6661	  6663	  6666	  6668	  6683#	  6686	  6698	  6700	  6706	  6712	  6718	  6724	  6730
	  6736	  6754#	  6757	  6769	  6771	  6777	  6783	  6789	  6795	  6801	  6807	  6825#	  6828	  6840
	  6842	  6848	  6854	  6860	  6866	  6872	  6878	  6896#	  6899	  6919	  6921	  6927	  6933	  6939
	  6945	  6951	  6957	  6975#	  6978	  6980	  6982	  6996	  6998	  7000	  7003	  7005	  7008	  7010
	  7013	  7015	  7019	  7021	  7024	  7026	  7029	  7031	  7051#	  7054	  7056	  7059	  7076	  7081
	  7087	  7093	  7099	  7105	  7111	  7117	  7141#	  7144	  7160	  7162	  7172	  7174	  7177	  7179
	  7182	  7184	  7187	  7189	  7192	  7194	  7197	  7199	  7214#	  7217	  7237	  7239	  7254	  7260
	  7266	  7272	  7278	  7284	  7302#	  7305	  7332	  7333	  7335	  7336	  7337	  7338	  7339	  7340
	  7341	  7342	  7343	  7344	  7345	  7346	  7347	  7348	  7349	  7350	  7351	  7352	  7353	  7354
	  7355	  7356	  7360	  7408	  7409	  7414	  7420	  7426	  7432	  7438	  7444	  7450	  7456	  7462
	  7468	  7474	  7475	  7492#	  7495	  7528	  7530	  7531	  7533	  7534	  7535	  7536	  7537	  7538
	  7539	  7540	  7541	  7543	  7603	  7605	  7608	  7610	  7613	  7615	  7618	  7620	  7623	  7625
	  7628	  7630	  7633	  7635	  7638	  7640	  7643	  7645	  7648	  7650	  7653	  7655	  7658	  7660
DF22F	   584#
DIAGMN	   447#
DING	   169#	  9286
DOLLAR	   639#
DSKUPD	   484
END	  7674	  7675	  9483#
ENDFIX	   753#
ENDSLD	  9473#
ERDIAG	    63#	  9199
ERMORE	   533#	  9272
ERRELB	  9269
ERRLOP	   804#	   804	   828#	   828	   847#	   847	   865#	   865	   888#	   888	   976#	   976	  1025#	  1025
	  1047#	  1047	  1068#	  1068	  1137#	  1137	  1161#	  1161	  1210#	  1210	  1231#	  1231	  1255#	  1255
	  1276#	  1276	  1295#	  1295	  1317#	  1317	  1380#	  1380	  1399#	  1399	  1422#	  1422	  1443#	  1443
	  1470#	  1470	  1497#	  1497	  1521#	  1521	  1545#	  1545	  1569#	  1569	  1592#	  1592	  1619#	  1619
	  1642#	  1642	  1666#	  1666	  1691#	  1691	  1716#	  1716	  1740#	  1740	  1765#	  1765	  1789#	  1789
	  1812#	  1812	  1836#	  1836	  1868#	  1868	  1897#	  1897	  1984#	  1984	  2079#	  2079	  2173#	  2173
	  2262#	  2262	  2356#	  2356	  2443#	  2443	  2530#	  2530	  2628#	  2628	  2712#	  2712	  2798#	  2798
	  2885#	  2885	  2958#	  2958	  3052#	  3052	  3162#	  3162	  3267#	  3267	  3379#	  3379	  3483#	  3483
	  3578#	  3578	  3704#	  3704	  3741#	  3741	  3759#	  3759	  3780#	  3780	  3806#	  3806	  3834#	  3834
	  3861#	  3861	  3890#	  3890	  3918#	  3918	  3943#	  3943	  3973#	  3973	  4004#	  4004	  4031#	  4031
	  4058#	  4058	  4085#	  4085	  4114#	  4114	  4143#	  4143	  4172#	  4172	  4201#	  4201	  4232#	  4232
	  4255#	  4255	  4277#	  4277	  4300#	  4300	  4322#	  4322	  4346#	  4346	  4371#	  4371	  4395#	  4395
	  4421#	  4421	  4447#	  4447	  4469#	  4469	  4498#	  4498	  4527#	  4527	  4556#	  4556	  4589#	  4589
	  4623#	  4623	  4660#	  4660	  4808#	  4808	  4956#	  4956	  5104#	  5104	  5252#	  5252	  5400#	  5400
	  5548#	  5548	  5696#	  5696	  5844#	  5844	  5992#	  5992	  6140#	  6140	  6288#	  6288	  6431#	  6431
	  6490#	  6490	  6549#	  6549	  6611#	  6611	  6679#	  6679	  6750#	  6750	  6821#	  6821	  6892#	  6892
	  6971#	  6971	  7047#	  7047	  7137#	  7137	  7210#	  7210	  7298#	  7298	  7488#	  7488	  7671#	  7671     SEQ 0246
	  7761#	  7761	  7784#	  7784	  7807#	  7807	  7830#	  7830	  7853#	  7853	  7876#	  7876	  7899#	  7899
	  7922#	  7922	  7945#	  7945	  7968#	  7968	  7991#	  7991	  8014#	  8014	  8037#	  8037	  8837#	  8837
	  8861#	  8861	  8885#	  8885	  8909#	  8909	  8933#	  8933	  8957#	  8957	  8981#	  8981	  9005#	  9005
	  9029#	  9029	  9053#	  9053	  9077#	  9077	  9101#	  9101	  9125#	  9125	  9179	  9291	  9294	  9295
ERRMES	    45	    46	    47	    48	    49	    50	    51	    52	    53	    54	    55	  9150#
ERRPC	   504#	  9162	  9196
ERRTLS	   505#	  9160	  9298
ERSTOP	   172#	  9282
EXCASB	    59#	   482	  9151	  9303
EXIOT	   431#
EXIT	   756#	   757
FOV	   431#
FOVU	   431#
FRDLNK	   195#
FSELNK	   194#
FXU	   431#
G00	   779	   799#
G100	   806#	   812
G1000	   987#	   992
G10000	  1904#
G10100	  1992#
G10200	  2086#
G10300	  2180#
G10400	  2269#
G10500	  2362#
G10600	  2449#
G10700	  2536#
G1100	   994#	   999
G11000	  2637#
G11100	  2718#
G11200	  2804#
G11300	  2892#
G11400	  2965#
G11500	  3059#
G11600	  3141#	  3147
G11700	  3169#
G1200	  1002#	  1007
G12000	  3274#
G12100	  3386#
G12200	  3488#
G12210	  3584#
G12220	  3636#
G12300	  3706#	  3718
G12400	  3720#	  3732
G12500	  3744#	  3749
G12510	  3762#	  3770
G12600	  3783#	  3796
G12610	  3809#	  3824
G12620	  3837#	  3851
G12630	  3864#	  3880
G12700	  3893#	  3907
G12710	  3921#	  3933
G12720	  3947#	  3963                                                                                                     SEQ 0247
G12730	  3976#	  3994
G1300	  1010#	  1015
G13000	  4007#	  4020
G13010	  4034#	  4048
G13020	  4061#	  4075
G13030	  4088#	  4104
G13100	  4117#	  4132
G13110	  4146#	  4162
G13120	  4175#	  4191
G13130	  4204#	  4223
G13200	  4235#	  4245
G13210	  4258#	  4268
G13220	  4280#	  4290
G13230	  4303#	  4313
G13240	  4325#	  4338
G13300	  4349#	  4362
G13310	  4374#	  4387
G13320	  4398#	  4412
G13330	  4424#	  4438
G13400	  4450#	  4455
G1400	  1027#	  1033
G1500	  1049#	  1055
G1600	  1070#	  1076
G1700	  1079#	  1085
G200	   830#	   836
G2000	  1088#	  1094
G20100	  6438#	  6481
G20200	  6497#	  6540
G20300	  6556#	  6602
G20400	  6618#	  6670
G20500	  6686#	  6741
G20600	  6757#	  6812
G20700	  6828#	  6883
G2100	  1097#	  1103
G21000	  6899#	  6962
G21100	  6978#	  7038
G21200	  7054#	  7128
G21300	  7144#	  7201
G21400	  7217#	  7289
G21500	  7305#	  7479
G21600	  7495#	  7662
G21700	  7677#	  7721
G2200	  1106#	  1112
G22100	  4475#	  4488
G22200	  4504#	  4517
G22300	  4533#	  4546
G22400	  4562#	  4579
G22500	  4595#	  4612
G22600	  4629#	  4647
G22700	  4666#	  4794
G2300	  1114#	  1120
G23000	  4814#	  4942
G23100	  4962#	  5090                                                                                                     SEQ 0248
G23200	  5110#	  5238
G23300	  5258#	  5386
G23400	  5406#	  5534
G23500	  5554#	  5682
G23600	  5702#	  5830
G23700	  5850#	  5978
G2400	  1139#	  1145
G24000	  5998#	  6126
G24100	  6146#	  6274
G24200	  6294#	  6422
G2600	  1164#	  1170
G2700	  1173#	  1179
G300	   849#	   854
G3000	  1182#	  1188
G30000	  7726#
G30100	  7732#
G30200	  8057#	  8064
G30300	  8073#
G30400	  8438#
G30500	  8806#
G3100	  1191#	  1197
G3200	  1212#	  1218
G3300	  1233#	  1240
G3400	  1257#	  1264
G3500	  1278#	  1284
G3600	  1297#	  1302
G3700	  1319#	  1325
G400	   867#	   872
G4000	  1328#	  1334
G4100	  1337#	  1343
G4200	  1346#	  1352
G4300	  1354#	  1360
G4400	  1363#	  1369
G4600	  1382#	  1388
G4700	  1401#	  1407
G5000	  1424#	  1429
G5100	  1445#	  1451
G5200	  1472#	  1479
G5300	  1499#	  1506
G5400	  1523#	  1531
G5500	  1547#	  1555
G5600	  1571#	  1580
G5700	  1594#	  1603
G600	   894#
G6000	  1621#	  1626
G6100	  1644#	  1652
G6200	  1668#	  1676
G6300	  1693#	  1700
G6400	  1718#	  1725
G700	   979#	   984
G7000	  1742#	  1750
G7100	  1767#	  1774
G7200	  1791#	  1798                                                                                                     SEQ 0249
G7400	  1814#	  1821
G7600	  1838#	  1845
G7700	  1870#	  1879
GSVAC	  8840#	  8840	  8844	  8864#	  8864	  8868	  8888#	  8888	  8892	  8912#	  8912	  8916	  8936#	  8936
	  8940	  8960#	  8960	  8964	  8984#	  8984	  8988	  9008#	  9008	  9012	  9032#	  9032	  9036	  9056#
	  9056	  9060	  9080#	  9080	  9084	  9104#	  9104	  9108	  9128#	  9128	  9132
GSVAC0	  7331#	  7331	  7358
HYPEN	   630#
INHCSH	   180#
INHPAG	   177#
INXM	   431#
IOCLR	   431#
ITERAT	    88#	   477
ITRCH1	   537#
ITRCNT	   477#
JOB41	   431#
JOBAPR	   431#
JOBCNI	   431#
JOBDDT	   431#
JOBFF	   431#
JOBOPC	   431#	  9279
JOBREL	   431#
JOBREN	   431#
JOBSA	   431#
JOBSYM	   431#
JOBTPC	   431#
JOBUSY	   431#
JOBUUO	   431#
JOBVER	   431#
KA10	    61#	   431
KAHZ50	   185#
KAIFLG	   494#
KI10	   431	  9151	  9303
KL10	   431
KLFLG	   495#	  4328	  4330	  9166
KLOLD	   392
KLTYP	   711#
LAST1	  9139#
LDLNK	   196#	   447	   449
LFP	   634#
LOOPER	   171#	  9284
LUUO	   431#
LUUO1	    45#	   564	   565
LUUO10	    52#	   564	   569
LUUO11	    53#	   564	   569
LUUO12	    54#	   564	   570
LUUO13	    55#	   564	   570
LUUO14	   564	   571
LUUO15	   564	   571
LUUO16	   564	   572
LUUO17	   564	   572
LUUO2	    46#	   564	   566
LUUO20	   564	   573                                                                                                     SEQ 0250
LUUO21	   564	   573
LUUO22	   564	   574
LUUO23	   564	   574
LUUO24	   564	   575
LUUO25	   564	   575
LUUO26	   564	   576
LUUO27	   564	   576
LUUO3	    47#	   564	   566
LUUO30	   564	   577
LUUO31	   564	   577
LUUO32	   564	   578
LUUO33	   564	   578
LUUO4	    48#	   564	   567
LUUO5	    49#	   564	   567
LUUO6	    50#	   564	   568
LUUO7	    51#	   564	   568
LUUOI	   431#
MAPNEW	   585#
MARGIN	   507#
MCNVER	     4#	    12	    26	   479
MEMLOW	   587#
MEMMAP	   485
MEMSIZ	   588#
MEMTOT	   586#
MICNT	  9163#	  9163	  9164	  9181
MINUS	   629#
MODDVC	   179#
MODDVL	   377	   377#	   480
MODDVU	   378	   378#	   481
MODLNK	   198#	   444
MONCTL	   497#	  9182	  9296
MONFLG	   496#
MONTEN	   498#
MPVU	   431#
NOPNT	   167#	  9172
NXMU	   431#
OPRSEL	   181#
OPTIME	   599#
P	   224	   225	   226	   227	   431#	   519
PAG	   431#
PALERS	   173#	  9313
PARCLR	   431#
PARDIS	   431#
PAREA0	    81#
PAREA1	    82#	   475
PAREA2	    83#	   476
PAREA3	    84#	   473
PAREA4	    85#	   474
PAREA5	    86#	   486
PAREA6	    87#	   487
PAREA7	   486#
PAREA8	   487#
PARENB	   431#                                                                                                            SEQ 0251
PARU	   431#
PASCNT	   501#	  9187	  9191
PATCH	  9476#
PDISF	   596#
PDLOVU	   431#
PERIOD	   626#
PFSTRT	   453#
PGMEND	    62#	  9482
PGMNAM	   478	   759#
PI	  9169
PICHN1	   431#
PICHN2	   431#
PICHN3	   431#
PICHN4	   431#
PICHN5	   431#
PICHN6	   431#
PICHN7	   431#
PICHNA	   431#
PICLR	   431#
PIOFF	   431#
PION	   431#
PLIST	   665#	   665
PLISTE	   665	   667#	   751
PLISTS	   666#
PLUS	   631#
PNTENB	   595#
PNTEXT	   474#
PNTFLG	   594#
PNTINH	   597#
PNTLPT	   168#
PNTNAM	   473#
PNTSPC	   598#
PROCED	  9170#	  9170	  9285	  9292
PVPAGI	   692#
PWFCLR	   431#
QUEST	   637#
RADIX	   640#
RADLSC	   642#
RADLSP	   641#
RANDBS	   475#
REENTR	   455#
RELIAB	   175#
REPT	   431#
REPT1	   431#
REPTU	   553#
REQSET	   431#
RESRT1	   530#
RESRT2	   531#
RETURN	   462#
RSTART	   164#
RTP	   635#
RUNFLG	   502#
SADR1	    67#	   451                                                                                                     SEQ 0252
SADR10	    76#	   467
SADR11	    77#	   468
SADR2	    68#	   453
SADR3	    69#	   455
SADR4	    70#
SADR5	    71#	   516
SADR6	    72#	   517
SADR7	    73#	   464
SADR8	    74#	   465
SADR9	    75#	   466
SBINIT	   237	   461#
SCOPE	   554#
SFSTRT	   451#
SIZ	  4473#	  4478	  4502#	  4507	  4531#	  4536	  4560#	  4566	  4593#	  4599	  4627#	  4634	  4664#	  4703
	  4812#	  4851	  4960#	  4999	  5108#	  5147	  5256#	  5295	  5404#	  5443	  5552#	  5591	  5700#	  5739
	  5848#	  5887	  5996#	  6035	  6144#	  6183	  6292#	  6331	  6436#	  6440	  6445	  6477	  6479	  6495#
	  6499	  6504	  6536	  6538	  6554#	  6558	  6566	  6598	  6600	  6616#	  6632	  6634	  6666	  6668
	  6684#	  6696	  6698	  6736	  6755#	  6767	  6769	  6807	  6826#	  6838	  6840	  6878	  6897#	  6917
	  6919	  6957	  6976#	  6994	  6996	  7029	  7031	  7034	  7036	  7052#	  7074	  7076	  7117	  7123
	  7142#	  7158	  7160	  7162	  7197	  7199	  7215#	  7235	  7237	  7239	  7284	  7303#	  7329	  7355
	  7356	  7360	  7400	  7402	  7474	  7475	  7493#	  7526	  7541	  7543	  7594	  7658	  7660
SLASH	   638#
SN	   890#	   906	   906#	   913	   917	   917#	   924	   928	   928#	   935	   939	   939#	   946	   950
	   950#	   957	   961	   961#	   968	  1899#	  1916	  1916#	  1923	  1927	  1927#	  1934	  1938	  1938#
	  1945	  1949	  1949#	  1956	  1960	  1960#	  1967	  1986#	  2005	  2005#	  2013	  2017	  2017#	  2025
	  2029	  2029#	  2037	  2041	  2041#	  2049	  2053	  2053#	  2061	  2081#	  2099	  2099#	  2107	  2111
	  2111#	  2119	  2123	  2123#	  2131	  2135	  2135#	  2143	  2147	  2147#	  2155	  2175#	  2192	  2192#
	  2199	  2203	  2203#	  2210	  2214	  2214#	  2221	  2225	  2225#	  2232	  2236	  2236#	  2243	  2264#
	  2282	  2282#	  2290	  2294	  2294#	  2302	  2306	  2306#	  2314	  2318	  2318#	  2326	  2330	  2330#
	  2338	  2358#	  2374	  2374#	  2381	  2385	  2385#	  2392	  2396	  2396#	  2403	  2407	  2407#	  2414
	  2418	  2418#	  2425	  2445#	  2461	  2461#	  2468	  2472	  2472#	  2479	  2483	  2483#	  2490	  2494
	  2494#	  2501	  2505	  2505#	  2512	  2532#	  2550	  2550#	  2559	  2563	  2563#	  2572	  2576	  2576#
	  2585	  2589	  2589#	  2598	  2602	  2602#	  2611	  2630#	  2653	  2653#	  2664	  2668	  2668#	  2679
	  2683	  2683#	  2694	  2714#	  2730	  2730#	  2737	  2741	  2741#	  2748	  2752	  2752#	  2759	  2763
	  2763#	  2770	  2774	  2774#	  2781	  2800#	  2816	  2816#	  2823	  2827	  2827#	  2834	  2838	  2838#
	  2845	  2849	  2849#	  2856	  2860	  2860#	  2867	  2887#	  2906	  2906#	  2915	  2919	  2919#	  2928
	  2932	  2932#	  2941	  2960#	  2978	  2978#	  2986	  2990	  2990#	  2998	  3002	  3002#	  3010	  3014
	  3014#	  3022	  3026	  3026#	  3034	  3054#	  3072	  3072#	  3080	  3084	  3084#	  3092	  3096	  3096#
	  3104	  3108	  3108#	  3116	  3120	  3120#	  3128	  3164#	  3184	  3184#	  3194	  3198	  3198#	  3208
	  3212	  3212#	  3222	  3226	  3226#	  3236	  3240	  3240#	  3250	  3269#	  3290	  3290#	  3301	  3305
	  3305#	  3316	  3320	  3320#	  3331	  3335	  3335#	  3346	  3350	  3350#	  3361	  3381#	  3401	  3401#
	  3411	  3415	  3415#	  3425	  3429	  3429#	  3439	  3443	  3443#	  3453	  3457	  3457#	  3467	  3485#
	  3504	  3504#	  3513	  3517	  3517#	  3526	  3530	  3530#	  3539	  3543	  3543#	  3552	  3556	  3556#
	  3565	  3580#	  3599	  3599#	  3607	  3609	  3613	  3613#	  3621	  3623	  3632#	  3657	  3657#	  3667
	  3669	  3673	  3677	  3677#	  3687	  3689	  3693	  4470#	  4479	  4479#	  4481	  4482	  4482#	  4484
	  4485	  4485#	  4487	  4499#	  4508	  4508#	  4510	  4511	  4511#	  4513	  4514	  4514#	  4516	  4528#
	  4537	  4537#	  4539	  4540	  4540#	  4542	  4543	  4543#	  4545	  4557#	  4567	  4567#	  4570	  4571
	  4571#	  4574	  4575	  4575#	  4578	  4590#	  4600	  4600#	  4603	  4604	  4604#	  4607	  4608	  4608#
	  4611	  4624#	  4635	  4635#	  4638	  4639	  4639#	  4642	  4643	  4643#	  4646	  4661#	  4705	  4705#
	  4718	  4720	  4720#	  4733	  4735	  4735#	  4748	  4750	  4750#	  4763	  4765	  4765#	  4776	  4780
	  4780#	  4793	  4809#	  4853	  4853#	  4866	  4868	  4868#	  4881	  4883	  4883#	  4896	  4898	  4898#
	  4911	  4913	  4913#	  4924	  4928	  4928#	  4941	  4957#	  5001	  5001#	  5014	  5016	  5016#	  5029
	  5031	  5031#	  5044	  5046	  5046#	  5059	  5061	  5061#	  5072	  5076	  5076#	  5089	  5105#	  5149     SEQ 0253
	  5149#	  5162	  5164	  5164#	  5177	  5179	  5179#	  5192	  5194	  5194#	  5201	  5209	  5209#	  5214
	  5224	  5224#	  5231	  5253#	  5297	  5297#	  5310	  5312	  5312#	  5325	  5327	  5327#	  5340	  5342
	  5342#	  5349	  5357	  5357#	  5362	  5372	  5372#	  5379	  5401#	  5445	  5445#	  5458	  5460	  5460#
	  5473	  5475	  5475#	  5488	  5490	  5490#	  5497	  5505	  5505#	  5510	  5520	  5520#	  5527	  5549#
	  5593	  5593#	  5600	  5608	  5608#	  5615	  5623	  5623#	  5630	  5638	  5638#	  5645	  5653	  5653#
	  5658	  5668	  5668#	  5675	  5697#	  5741	  5741#	  5748	  5756	  5756#	  5763	  5771	  5771#	  5778
	  5786	  5786#	  5793	  5801	  5801#	  5806	  5816	  5816#	  5823	  5845#	  5889	  5889#	  5896	  5904
	  5904#	  5911	  5919	  5919#	  5926	  5934	  5934#	  5941	  5949	  5949#	  5954	  5964	  5964#	  5971
	  5993#	  6037	  6037#	  6044	  6052	  6052#	  6059	  6067	  6067#	  6074	  6082	  6082#	  6095	  6097
	  6097#	  6108	  6112	  6112#	  6125	  6141#	  6185	  6185#	  6192	  6200	  6200#	  6207	  6215	  6215#
	  6222	  6230	  6230#	  6243	  6245	  6245#	  6256	  6260	  6260#	  6273	  6289#	  6333	  6333#	  6340
	  6348	  6348#	  6355	  6363	  6363#	  6370	  6378	  6378#	  6391	  6393	  6393#	  6404	  6408	  6408#
	  6421	  6433#	  6446	  6446#	  6449	  6451	  6451#	  6454	  6456	  6456#	  6459	  6461	  6461#	  6464
	  6466	  6466#	  6469	  6471	  6471#	  6474	  6476	  6476#	  6479	  6492#	  6505	  6505#	  6508	  6510
	  6510#	  6513	  6515	  6515#	  6518	  6520	  6520#	  6523	  6525	  6525#	  6528	  6530	  6530#	  6533
	  6535	  6535#	  6538	  6551#	  6567	  6567#	  6570	  6572	  6572#	  6575	  6577	  6577#	  6580	  6582
	  6582#	  6585	  6587	  6587#	  6590	  6592	  6592#	  6595	  6597	  6597#	  6600	  6613#	  6635	  6635#
	  6638	  6640	  6640#	  6643	  6645	  6645#	  6648	  6650	  6650#	  6653	  6655	  6655#	  6658	  6660
	  6660#	  6663	  6665	  6665#	  6668	  6681#	  6699	  6699#	  6703	  6705	  6705#	  6709	  6711	  6711#
	  6715	  6717	  6717#	  6721	  6723	  6723#	  6727	  6729	  6729#	  6733	  6735	  6735#	  6739	  6752#
	  6770	  6770#	  6774	  6776	  6776#	  6780	  6782	  6782#	  6786	  6788	  6788#	  6792	  6794	  6794#
	  6798	  6800	  6800#	  6804	  6806	  6806#	  6810	  6823#	  6841	  6841#	  6845	  6847	  6847#	  6851
	  6853	  6853#	  6857	  6859	  6859#	  6863	  6865	  6865#	  6869	  6871	  6871#	  6875	  6877	  6877#
	  6881	  6894#	  6920	  6920#	  6924	  6926	  6926#	  6930	  6932	  6932#	  6936	  6938	  6938#	  6942
	  6944	  6944#	  6948	  6950	  6950#	  6954	  6956	  6956#	  6960	  6973#	  6997	  6997#	  7000	  7002
	  7002#	  7005	  7007	  7007#	  7010	  7012	  7012#	  7015	  7018	  7018#	  7021	  7023	  7023#	  7026
	  7028	  7028#	  7031	  7033	  7033#	  7036	  7049#	  7080	  7080#	  7084	  7086	  7086#	  7090	  7092
	  7092#	  7096	  7098	  7098#	  7102	  7104	  7104#	  7108	  7110	  7110#	  7114	  7116	  7116#	  7120
	  7122	  7122#	  7126	  7139#	  7163	  7163#	  7166	  7168	  7168#	  7170	  7171	  7171#	  7174	  7176
	  7176#	  7179	  7181	  7181#	  7184	  7186	  7186#	  7189	  7191	  7191#	  7194	  7196	  7196#	  7199
	  7212#	  7243	  7243#	  7247	  7249	  7249#	  7252	  7253	  7253#	  7257	  7259	  7259#	  7263	  7265
	  7265#	  7269	  7271	  7271#	  7275	  7277	  7277#	  7281	  7283	  7283#	  7287	  7300#	  7364	  7364#
	  7367	  7369	  7369#	  7371	  7372	  7372#	  7374	  7375	  7375#	  7377	  7378	  7378#	  7380	  7381
	  7381#	  7383	  7384	  7384#	  7386	  7387	  7387#	  7389	  7390	  7390#	  7392	  7393	  7393#	  7395
	  7396	  7396#	  7398	  7399	  7399#	  7402	  7407	  7407#	  7411	  7413	  7413#	  7417	  7419	  7419#
	  7423	  7425	  7425#	  7429	  7431	  7431#	  7435	  7437	  7437#	  7441	  7443	  7443#	  7447	  7449
	  7449#	  7453	  7455	  7455#	  7459	  7461	  7461#	  7465	  7467	  7467#	  7471	  7473	  7473#	  7477
	  7490#	  7547	  7547#	  7551	  7553	  7553#	  7556	  7557	  7557#	  7560	  7561	  7561#	  7564	  7565
	  7565#	  7568	  7569	  7569#	  7572	  7573	  7573#	  7576	  7577	  7577#	  7580	  7581	  7581#	  7584
	  7585	  7585#	  7588	  7589	  7589#	  7592	  7593	  7593#	  7597	  7602	  7602#	  7605	  7607	  7607#
	  7610	  7612	  7612#	  7615	  7617	  7617#	  7620	  7622	  7622#	  7625	  7627	  7627#	  7630	  7632
	  7632#	  7635	  7637	  7637#	  7640	  7642	  7642#	  7645	  7647	  7647#	  7650	  7652	  7652#	  7655
	  7657	  7657#	  7660	  7672#	  7693	  7693#	  7695	  7696	  7696#	  7699	  7700	  7700#	  7703	  7704
	  7704#	  7707	  7708	  7708#	  7711	  7712	  7712#	  7715	  7716	  7716#	  7719	  7726#	  7755	  7755#
	  7767	  7769	  7771	  7778	  7778#	  7790	  7792	  7794	  7801	  7801#	  7813	  7815	  7817	  7824
	  7824#	  7836	  7838	  7840	  7847	  7847#	  7859	  7861	  7863	  7870	  7870#	  7882	  7884	  7886
	  7893	  7893#	  7905	  7907	  7909	  7916	  7916#	  7928	  7930	  7932	  7939	  7939#	  7951	  7953
	  7955	  7962	  7962#	  7974	  7976	  7978	  7985	  7985#	  7997	  7999	  8001	  8008	  8008#	  8020
	  8022	  8024	  8031	  8031#	  8043	  8045	  8047	  8069#	  8097	  8097#	  8104	  8106	  8108	  8116
	  8116#	  8123	  8125	  8127	  8135	  8135#	  8142	  8144	  8146	  8154	  8154#	  8161	  8163	  8165
	  8173	  8173#	  8180	  8182	  8184	  8192	  8192#	  8199	  8201	  8203	  8211	  8211#	  8218	  8220
	  8222	  8230	  8230#	  8237	  8239	  8241	  8249	  8249#	  8256	  8258	  8260	  8268	  8268#	  8275
	  8277	  8279	  8287	  8287#	  8294	  8296	  8298	  8306	  8306#	  8313	  8315	  8317	  8325	  8325#    SEQ 0254
	  8332	  8334	  8336	  8344	  8344#	  8351	  8353	  8355	  8363	  8363#	  8370	  8372	  8374	  8382
	  8382#	  8389	  8391	  8393	  8401	  8401#	  8408	  8410	  8412	  8420	  8420#	  8427	  8429	  8431
	  8435#	  8462	  8462#	  8469	  8471	  8473	  8481	  8481#	  8488	  8490	  8492	  8500	  8500#	  8507
	  8509	  8511	  8519	  8519#	  8526	  8528	  8530	  8538	  8538#	  8545	  8547	  8549	  8557	  8557#
	  8564	  8566	  8568	  8576	  8576#	  8583	  8585	  8587	  8595	  8595#	  8602	  8604	  8606	  8614
	  8614#	  8621	  8623	  8625	  8633	  8633#	  8640	  8642	  8644	  8652	  8652#	  8659	  8661	  8663
	  8671	  8671#	  8678	  8680	  8682	  8690	  8690#	  8697	  8699	  8701	  8709	  8709#	  8716	  8718
	  8720	  8728	  8728#	  8735	  8737	  8739	  8747	  8747#	  8754	  8756	  8758	  8766	  8766#	  8773
	  8775	  8777	  8785	  8785#	  8792	  8794	  8796	  8803#	  8831	  8831#	  8843	  8845	  8847	  8855
	  8855#	  8867	  8869	  8871	  8879	  8879#	  8891	  8893	  8895	  8903	  8903#	  8915	  8917	  8919
	  8927	  8927#	  8939	  8941	  8943	  8951	  8951#	  8963	  8965	  8967	  8975	  8975#	  8987	  8989
	  8991	  8999	  8999#	  9011	  9013	  9015	  9023	  9023#	  9035	  9037	  9039	  9047	  9047#	  9059
	  9061	  9063	  9071	  9071#	  9083	  9085	  9087	  9095	  9095#	  9107	  9109	  9111	  9119	  9119#
	  9131	  9133	  9135
SPACE	   627#
SPDES	  3665	  3671	  3685	  3691	  4459	  7730	  8055	  9257#
SRCE	  4471#	  4475	  4476	  4477	  4500#	  4504	  4505	  4506	  4529#	  4533	  4534	  4535	  4558#	  4562
	  4563	  4564	  4565	  4591#	  4595	  4596	  4597	  4598	  4625#	  4629	  4630	  4632	  4633	  4662#
	  4666	  4668	  4669	  4670	  4674	  4675	  4676	  4680	  4681	  4682	  4706	  4713	  4714	  4718
	  4721	  4728	  4729	  4733	  4736	  4743	  4744	  4748	  4810#	  4814	  4816	  4817	  4818	  4822
	  4823	  4824	  4828	  4829	  4830	  4854	  4861	  4862	  4866	  4869	  4876	  4877	  4881	  4884
	  4891	  4892	  4896	  4958#	  4962	  4964	  4965	  4966	  4970	  4971	  4972	  4976	  4977	  4978
	  5002	  5009	  5010	  5014	  5017	  5024	  5025	  5029	  5032	  5039	  5040	  5044	  5106#	  5110
	  5112	  5113	  5114	  5118	  5119	  5120	  5124	  5125	  5126	  5150	  5157	  5158	  5162	  5165
	  5172	  5173	  5177	  5180	  5187	  5188	  5192	  5254#	  5258	  5260	  5261	  5262	  5266	  5267
	  5268	  5272	  5273	  5274	  5298	  5305	  5306	  5310	  5313	  5320	  5321	  5325	  5328	  5335
	  5336	  5340	  5402#	  5406	  5408	  5409	  5410	  5414	  5415	  5416	  5420	  5421	  5422	  5446
	  5453	  5454	  5458	  5461	  5468	  5469	  5473	  5476	  5483	  5484	  5488	  5550#	  5554	  5556
	  5558	  5560	  5562	  5564	  5566	  5568	  5570	  5572	  5594	  5595	  5601	  5609	  5610	  5616
	  5624	  5625	  5631	  5698#	  5702	  5704	  5706	  5708	  5710	  5712	  5714	  5716	  5718	  5720
	  5742	  5743	  5749	  5757	  5758	  5764	  5772	  5773	  5779	  5846#	  5850	  5852	  5854	  5856
	  5858	  5860	  5862	  5864	  5866	  5868	  5890	  5891	  5897	  5905	  5906	  5912	  5920	  5921
	  5927	  5994#	  5998	  6000	  6002	  6004	  6006	  6008	  6010	  6012	  6014	  6016	  6038	  6039
	  6045	  6053	  6054	  6060	  6068	  6069	  6075	  6142#	  6146	  6148	  6150	  6152	  6154	  6156
	  6158	  6160	  6162	  6164	  6186	  6187	  6193	  6201	  6202	  6208	  6216	  6217	  6223	  6290#
	  6294	  6296	  6298	  6300	  6302	  6304	  6306	  6308	  6310	  6312	  6334	  6335	  6341	  6349
	  6350	  6356	  6364	  6365	  6371	  6434#	  6438	  6440	  6442	  6443	  6444	  6493#	  6497	  6499
	  6501	  6502	  6503	  6552#	  6556	  6558	  6560	  6562	  6563	  6564	  6565	  6614#	  6618	  6620
	  6622	  6624	  6626	  6628	  6630	  6632	  6682#	  6686	  6688	  6690	  6692	  6693	  6694	  6695
	  6696	  6753#	  6757	  6759	  6761	  6763	  6764	  6765	  6766	  6767	  6824#	  6828	  6830	  6833
	  6834	  6835	  6836	  6837	  6838	  6895#	  6899	  6902	  6905	  6907	  6910	  6912	  6915	  6917
	  6974#	  6978	  6984	  6986	  6988	  6990	  6992	  6994	  7034	  7036	  7050#	  7054	  7062	  7064
	  7067	  7069	  7072	  7074	  7123	  7140#	  7144	  7146	  7148	  7150	  7152	  7154	  7156	  7158
	  7164	  7166	  7169	  7170	  7213#	  7217	  7220	  7223	  7225	  7228	  7230	  7233	  7235	  7244
	  7250	  7301#	  7305	  7307	  7309	  7311	  7313	  7315	  7317	  7319	  7321	  7323	  7325	  7327
	  7329	  7365	  7367	  7370	  7371	  7373	  7374	  7376	  7377	  7379	  7380	  7382	  7383	  7385
	  7386	  7388	  7389	  7391	  7392	  7394	  7395	  7397	  7398	  7400	  7402	  7491#	  7495	  7498
	  7501	  7503	  7506	  7508	  7511	  7514	  7516	  7519	  7522	  7524	  7526	  7548	  7554	  7558
	  7562	  7566	  7570	  7574	  7578	  7582	  7586	  7590	  7594
SRTDDT	   457#
START	   445	   775#
START1	   464#
START2	   465#                                                                                                            SEQ 0255
START3	   466#
START4	   467#
START5	   468#
STARTA	   460	   779#
SUBLNK	   199#	   461
SWTEXR	   476#
SYSEXR	   449#
TAB	   628#
TESTPC	   503#	   802	   826	   845	   863	   886	   974	  1023	  1045	  1066	  1135	  1159	  1208	  1229
	  1253	  1274	  1293	  1315	  1378	  1397	  1420	  1441	  1468	  1495	  1519	  1543	  1567	  1590
	  1617	  1640	  1664	  1689	  1714	  1738	  1763	  1787	  1810	  1834	  1866	  1895	  1982	  2077
	  2171	  2260	  2354	  2441	  2528	  2626	  2710	  2796	  2883	  2956	  3050	  3160	  3265	  3377
	  3481	  3576	  3702	  3739	  3757	  3778	  3804	  3832	  3859	  3888	  3916	  3941	  3971	  4002
	  4029	  4056	  4083	  4112	  4141	  4170	  4199	  4230	  4253	  4275	  4298	  4320	  4344	  4369
	  4393	  4419	  4445	  4467	  4496	  4525	  4554	  4587	  4621	  4658	  4806	  4954	  5102	  5250
	  5398	  5546	  5694	  5842	  5990	  6138	  6286	  6429	  6488	  6547	  6609	  6677	  6748	  6819
	  6890	  6969	  7045	  7135	  7208	  7296	  7486	  7669	  7759	  7782	  7805	  7828	  7851	  7874
	  7897	  7920	  7943	  7966	  7989	  8012	  8035	  8835	  8859	  8883	  8907	  8931	  8955	  8979
	  9003	  9027	  9051	  9075	  9099	  9123
TICKS	   506#
TLET	   777	  9231	  9254#
TOTALS	   165#
TTNBRF	   686#
TTYFIL	   602#
TTYSPD	   603#
TXTINH	   176#	  9215
USER	   493#	  9167
USERF	   431#
USRASB	    60#	   483
USRCRF	   612#
USRLFF	   611#
UUODIS	   565#
UUOEXT	   521#	  9310
UUORTN	   522#
UUOSKP	   519#
VV	  2631#	  2654	  2654#	  2658	  2669	  2669#	  2673	  2684	  2684#	  2688
WW	  1988#	  2007	  2007#	  2009	  2019	  2019#	  2021	  2031	  2031#	  2033	  2043	  2043#	  2045	  2055
	  2055#	  2057	  2632#	  2655	  2655#	  2658	  2659	  2670	  2670#	  2673	  2674	  2685	  2685#	  2688
	  2689
XX	  1900#	  1917	  1917#	  1919	  1928	  1928#	  1930	  1939	  1939#	  1941	  1950	  1950#	  1952	  1961
	  1961#	  1963	  1987#	  2006	  2006#	  2009	  2018	  2018#	  2021	  2030	  2030#	  2033	  2042	  2042#
	  2045	  2054	  2054#	  2057	  2082#	  2100	  2100#	  2102	  2112	  2112#	  2114	  2124	  2124#	  2126
	  2136	  2136#	  2138	  2148	  2148#	  2150	  2176#	  2193	  2193#	  2195	  2204	  2204#	  2206	  2215
	  2215#	  2217	  2226	  2226#	  2228	  2237	  2237#	  2239	  2265#	  2283	  2283#	  2287	  2295	  2295#
	  2299	  2307	  2307#	  2311	  2319	  2319#	  2323	  2331	  2331#	  2335	  2633#	  2656	  2656#	  2659
	  2660	  2661	  2663	  2671	  2671#	  2674	  2675	  2676	  2678	  2686	  2686#	  2689	  2690	  2691
	  2693	  2888#	  2907	  2907#	  2911	  2912	  2914	  2920	  2920#	  2924	  2925	  2927	  2933	  2933#
	  2937	  2938	  2940	  2961#	  2979	  2979#	  2981	  2991	  2991#	  2993	  3003	  3003#	  3005	  3015
	  3015#	  3017	  3027	  3027#	  3029	  3055#	  3073	  3073#	  3075	  3085	  3085#	  3087	  3097	  3097#
	  3099	  3109	  3109#	  3111	  3121	  3121#	  3123	  3139#	  3141	  3165#	  3185	  3185#	  3188	  3199
	  3199#	  3202	  3213	  3213#	  3216	  3227	  3227#	  3230	  3241	  3241#	  3244	  3270#	  3291	  3291#
	  3295	  3306	  3306#	  3310	  3321	  3321#	  3325	  3336	  3336#	  3340	  3351	  3351#	  3355	  3382#
	  3402	  3402#	  3405	  3416	  3416#	  3419	  3430	  3430#	  3433	  3444	  3444#	  3447	  3458	  3458#    SEQ 0256
	  3461	  3581#	  3600	  3600#	  3604	  3608	  3614	  3614#	  3618	  3622	  3633#	  3658	  3658#	  3662
	  3678	  3678#	  3682	  8070#	  8098	  8098#	  8100	  8117	  8117#	  8119	  8136	  8136#	  8138	  8155
	  8155#	  8157	  8174	  8174#	  8176	  8193	  8193#	  8195	  8212	  8212#	  8214	  8231	  8231#	  8233
	  8250	  8250#	  8252	  8269	  8269#	  8271	  8288	  8288#	  8290	  8307	  8307#	  8309	  8326	  8326#
	  8328	  8345	  8345#	  8347	  8364	  8364#	  8366	  8383	  8383#	  8385	  8402	  8402#	  8404	  8421
	  8421#	  8423	  8436#	  8463	  8463#	  8465	  8482	  8482#	  8484	  8501	  8501#	  8503	  8520	  8520#
	  8522	  8539	  8539#	  8541	  8558	  8558#	  8560	  8577	  8577#	  8579	  8596	  8596#	  8598	  8615
	  8615#	  8617	  8634	  8634#	  8636	  8653	  8653#	  8655	  8672	  8672#	  8674	  8691	  8691#	  8693
	  8710	  8710#	  8712	  8729	  8729#	  8731	  8748	  8748#	  8750	  8767	  8767#	  8769	  8786	  8786#
	  8788
YY	   892#	   908	   908#	   909	   919	   919#	   920	   930	   930#	   931	   941	   941#	   942	   952
	   952#	   953	   963	   963#	   964
ZZ	   891#	   907	   907#	   909	   910	   918	   918#	   920	   921	   929	   929#	   931	   932	   940
	   940#	   942	   943	   951	   951#	   953	   954	   962	   962#	   964	   965	  1901#	  1918	  1918#
	  1920	  1929	  1929#	  1931	  1940	  1940#	  1942	  1951	  1951#	  1953	  1962	  1962#	  1964	  1989#
	  2008	  2008#	  2010	  2020	  2020#	  2022	  2032	  2032#	  2034	  2044	  2044#	  2046	  2056	  2056#
	  2058	  2083#	  2101	  2101#	  2102	  2104	  2113	  2113#	  2114	  2116	  2125	  2125#	  2126	  2128
	  2137	  2137#	  2138	  2140	  2149	  2149#	  2150	  2152	  2177#	  2194	  2194#	  2198	  2205	  2205#
	  2209	  2216	  2216#	  2220	  2227	  2227#	  2231	  2238	  2238#	  2242	  2266#	  2284	  2284#	  2285
	  2296	  2296#	  2297	  2308	  2308#	  2309	  2320	  2320#	  2321	  2332	  2332#	  2333	  2359#	  2375
	  2375#	  2377	  2378	  2380	  2386	  2386#	  2388	  2389	  2391	  2397	  2397#	  2399	  2400	  2402
	  2408	  2408#	  2410	  2411	  2413	  2419	  2419#	  2421	  2422	  2424	  2446#	  2462	  2462#	  2464
	  2465	  2466	  2467	  2473	  2473#	  2475	  2476	  2477	  2478	  2484	  2484#	  2486	  2487	  2488
	  2489	  2495	  2495#	  2497	  2498	  2499	  2500	  2506	  2506#	  2508	  2509	  2510	  2511	  2533#
	  2551	  2551#	  2553	  2554	  2555	  2558	  2564	  2564#	  2566	  2567	  2568	  2571	  2577	  2577#
	  2579	  2580	  2581	  2584	  2590	  2590#	  2592	  2593	  2594	  2597	  2603	  2603#	  2605	  2606
	  2607	  2610	  2634#	  2657	  2657#	  2662	  2672	  2672#	  2677	  2687	  2687#	  2692	  2715#	  2731
	  2731#	  2733	  2734	  2736	  2742	  2742#	  2744	  2745	  2747	  2753	  2753#	  2755	  2756	  2758
	  2764	  2764#	  2766	  2767	  2769	  2775	  2775#	  2777	  2778	  2780	  2801#	  2817	  2817#	  2819
	  2820	  2822	  2828	  2828#	  2830	  2831	  2833	  2839	  2839#	  2841	  2842	  2844	  2850	  2850#
	  2852	  2853	  2855	  2861	  2861#	  2863	  2864	  2866	  2889#	  2908	  2908#	  2910	  2911	  2921
	  2921#	  2923	  2924	  2934	  2934#	  2936	  2937	  2962#	  2980	  2980#	  2983	  2992	  2992#	  2995
	  3004	  3004#	  3007	  3016	  3016#	  3019	  3028	  3028#	  3031	  3056#	  3074	  3074#	  3077	  3086
	  3086#	  3089	  3098	  3098#	  3101	  3110	  3110#	  3113	  3122	  3122#	  3125	  3166#	  3186	  3186#
	  3189	  3200	  3200#	  3203	  3214	  3214#	  3217	  3228	  3228#	  3231	  3242	  3242#	  3245	  3271#
	  3292	  3292#	  3293	  3293#	  3296	  3307	  3307#	  3308	  3311	  3322	  3322#	  3323	  3326	  3337
	  3337#	  3338	  3341	  3352	  3352#	  3353	  3356	  3383#	  3403	  3403#	  3406	  3417	  3417#	  3420
	  3431	  3431#	  3434	  3445	  3445#	  3448	  3459	  3459#	  3462	  3486#	  3505	  3505#	  3508	  3518
	  3518#	  3521	  3531	  3531#	  3534	  3544	  3544#	  3547	  3557	  3557#	  3560	  8071#	  8099	  8099#
	  8107	  8118	  8118#	  8126	  8137	  8137#	  8145	  8156	  8156#	  8164	  8175	  8175#	  8183	  8194
	  8194#	  8202	  8213	  8213#	  8221	  8232	  8232#	  8240	  8251	  8251#	  8259	  8270	  8270#	  8278
	  8289	  8289#	  8297	  8308	  8308#	  8316	  8327	  8327#	  8335	  8346	  8346#	  8354	  8365	  8365#
	  8373	  8384	  8384#	  8392	  8403	  8403#	  8411	  8422	  8422#	  8430	  8464	  8464#	  8472	  8483
	  8483#	  8491	  8502	  8502#	  8510	  8521	  8521#	  8529	  8540	  8540#	  8548	  8559	  8559#	  8567
	  8578	  8578#	  8586	  8597	  8597#	  8605	  8616	  8616#	  8624	  8635	  8635#	  8643	  8654	  8654#
	  8662	  8673	  8673#	  8681	  8692	  8692#	  8700	  8711	  8711#	  8719	  8730	  8730#	  8738	  8749
	  8749#	  8757	  8768	  8768#	  8776	  8787	  8787#	  8795
$$MUUO	   717#
$$OUTE	   723#
$$TAX1	   735#
$$TAX2	   736#
$$TOGG	   729#
$$UUO	   706#                                                                                                            SEQ 0257
$ACC0	   544#
$ACF	  9258#
$BEND1	   514#
$BEND2	   515#	  9300
$CHRIN	   605#
$CRLF	   607#
$DEVCH	   431#
$DSKUP	   484#
$DVCH1	   431#
$DVOFF	   601#
$EMODE	   482#
$ENDFX	   751#	   752
$FFF	   609#
$IBUF	   657#
$INEXT	   659#
$INNM	   658#
$ITRHL	   525#
$ITRX1	   526#
$LPAPE	  9321
$MMAP	   485#
$MODVL	   480#
$MODVU	   481#
$OBUF	   648#
$ONETM	   508#
$OUTEX	   650#
$OUTNM	   649#
$PAPER	   431
$PARER	   532#
$PNAME	   478#
$PSHER	   536#
$PVER	   479#
$RSRTX	   528#
$RSRTY	   529#
$SPAG1	   548#
$START	   445#
$SVAPR	   546#
$SVPAG	   547#
$SVPI	   545#
$SVUPC	   551#	  9161	  9165	  9195
$SVUUO	   550#	  9174	  9206	  9234
$TABF	   608#
$TTCHR	   604#
$TWCNT	   600#
$TYPNB	   606#
$UMODE	   483#
$UORTX	   523#
$USRHL	   527#
$UUOER	   524#	   565
$VTF	   610#
%AC1F	  9259#
%ACS1A	  9176#	  9176	  9220
%ACTFL	   557#
%ACTUL	   558#                                                                                                            SEQ 0258
%ALF	  9264#
%AR1F	  9263#
%ARF	  9262#
%COREC	   556#
%CORFL	   555#
%DISCR	   559#
%E1F	  9261#
%EEF	  9265#
%EF	  9260#
%ER4X	  9240	  9245#
%ER5X	  9238	  9247#
%ER6X	  9236	  9249#
%ER7X	  9242#	  9246	  9248	  9250
%ERAC0	  9150#	  9150	  9177	  9211	  9302
%ERAC1	  9158#	  9158	  9178	  9290
%ERAC2	  9159#	  9159	  9289
%ERFST	  9184#	  9184	  9186
%ERHI1	   698#
%ERHI2	   699#
%ERHI3	   700#
%ERMOR	  9216	  9243	  9272#
%ERMS1	  9181#	  9315
%ERMS2	  9204#
%ERMS3	  9222	  9229#
%ERRS1	  9173	  9276#	  9314
%ERRS2	  9289#
%ERRS4	  9180	  9312#
%ERRS5	  9293	  9297	  9302#
%FF	  9266#
%FLTTB	  9224	  9255#
%NODES	  9256#
.JB41	   431#
.JBAPR	   431#
.JBCNI	   431#
.JBDDT	   431#
.JBFF	   431#
.JBOPC	   431#
.JBREL	   431#
.JBREN	   431#
.JBSA	   431#
.JBSYM	   431#
.JBTPC	   431#
.JBUSY	   431#
.JBUUO	   431#
.JBVER	   431#
BLTM1	   126#	  4650	  4798	  4946	  5094	  5242	  5390	  5538	  5686	  5834	  5982	  6130	  6278
CFLUSH	   348#                                                                                                            SEQ 0259
CINVAL	   347#
CLOKOP	   342#
CWRTBI	   349#
DROPDV	   309#	   756
ENDUUO	   355#	   513
EOPUUO	   356#	   515
ER1	    33#
ER10	    40#
ER11	    41#
ER12	    42#	   835	  1649	  1699	  1724	  1749	  1773	  1797	  1820	  1878	  3194	  3208	  3222	  3236
	  3250	  3301	  3316	  3331	  3346	  3361	  3411	  3425	  3439	  3453	  3467	  3513	  3526	  3539
	  3552	  3565	  3669	  3689	  3729	  3795	  3823	  3850	  3877	  3906	  3932	  3962	  3991	  4019
	  4047	  4074	  4101	  4131	  4161	  4190	  4220	  4244	  4267	  4289	  4312	  4337	  4361	  4386
	  4411	  4437
ER13	    43#	  1844	  3717	  3731
ER2	    34#	  3667	  3673	  3687	  3693	  4481	  4484	  4487	  4510	  4513	  4516	  4539	  4542	  4545
	  4570	  4574	  4578	  4603	  4607	  4611	  4638	  4642	  4646	  4718	  4733	  4748	  4763	  4776
	  4793	  4866	  4881	  4896	  4911	  4924	  4941	  5014	  5029	  5044	  5059	  5072	  5089	  5162
	  5177	  5192	  5201	  5214	  5231	  5310	  5325	  5340	  5349	  5362	  5379	  5458	  5473	  5488
	  5497	  5510	  5527	  5600	  5615	  5630	  5645	  5658	  5675	  5748	  5763	  5778	  5793	  5806
	  5823	  5896	  5911	  5926	  5941	  5954	  5971	  6044	  6059	  6074	  6095	  6108	  6125	  6192
	  6207	  6222	  6243	  6256	  6273	  6340	  6355	  6370	  6391	  6404	  6421	  6449	  6454	  6459
	  6464	  6469	  6474	  6479	  6508	  6513	  6518	  6523	  6528	  6533	  6538	  6570	  6575	  6580
	  6585	  6590	  6595	  6600	  6638	  6643	  6648	  6653	  6658	  6663	  6668	  6703	  6709	  6715
	  6721	  6727	  6733	  6739	  6774	  6780	  6786	  6792	  6798	  6804	  6810	  6845	  6851	  6857
	  6863	  6869	  6875	  6881	  6924	  6930	  6936	  6942	  6948	  6954	  6960	  7000	  7005	  7010
	  7015	  7021	  7026	  7031	  7036	  7084	  7090	  7096	  7102	  7108	  7114	  7120	  7126	  7166
	  7170	  7174	  7179	  7184	  7189	  7194	  7199	  7247	  7252	  7257	  7263	  7269	  7275	  7281
	  7287	  7367	  7371	  7374	  7377	  7380	  7383	  7386	  7389	  7392	  7395	  7398	  7402	  7411
	  7417	  7423	  7429	  7435	  7441	  7447	  7453	  7459	  7465	  7471	  7477	  7551	  7556	  7560
	  7564	  7568	  7572	  7576	  7580	  7584	  7588	  7592	  7597	  7605	  7610	  7615	  7620	  7625
	  7630	  7635	  7640	  7645	  7650	  7655	  7660	  7695	  7699	  7703	  7707	  7711	  7715	  7719
	  7767	  7790	  7813	  7836	  7859	  7882	  7905	  7928	  7951	  7974	  7997	  8020	  8043	  8059
	  8104	  8123	  8142	  8161	  8180	  8199	  8218	  8237	  8256	  8275	  8294	  8313	  8332	  8351
	  8370	  8389	  8408	  8427	  8469	  8488	  8507	  8526	  8545	  8564	  8583	  8602	  8621	  8640
	  8659	  8678	  8697	  8716	  8735	  8754	  8773	  8792	  8843	  8867	  8891	  8915	  8939	  8963
	  8987	  9011	  9035	  9059	  9083	  9107	  9131
ER3	    35#	   811	  1263	  1283	  1301	  1324	  1333	  1342	  1351	  1359	  1368	  1387	  1406	  1428
	  1450	  1478	  1505	  1530	  1554	  1579	  1602	  1673	  2199	  2210	  2221	  2232	  2243	  2290
	  2302	  2314	  2326	  2338	  2381	  2392	  2403	  2414	  2425	  2468	  2479	  2490	  2501	  2512
	  2559	  2572	  2585	  2598	  2611	  2664	  2679	  2694	  2737	  2748	  2759	  2770	  2781	  2823
	  2834	  2845	  2856	  2867	  2915	  2928	  2941	  2986	  2998	  3010	  3022	  3034	  3080	  3092
	  3104	  3116	  3128	  3146	  3607	  3621	  3713	  3793	  3820	  3848	  3879	  3904	  3960	  3993
	  4017	  4044	  4072	  4103	  4129	  4158	  4188	  4222	  4240	  4263	  4285	  4308	  4333	  4357
	  4382	  4407	  4433	  7769	  7792	  7815	  7838	  7861	  7884	  7907	  7930	  7953	  7976	  7999
	  8022	  8045	  8061	  8106	  8125	  8144	  8163	  8182	  8201	  8220	  8239	  8258	  8277	  8296
	  8315	  8334	  8353	  8372	  8391	  8410	  8429	  8471	  8490	  8509	  8528	  8547	  8566	  8585
	  8604	  8623	  8642	  8661	  8680	  8699	  8718	  8737	  8756	  8775	  8794	  8845	  8869	  8893
	  8917	  8941	  8965	  8989	  9013	  9037	  9061	  9085	  9109	  9133
ER4	    36#	  1625	  3609	  3623	  3715	  3727	  7771	  7794	  7817	  7840	  7863	  7886	  7909	  7932
	  7955	  7978	  8001	  8024	  8047	  8063	  8108	  8127	  8146	  8165	  8184	  8203	  8222	  8241
	  8260	  8279	  8298	  8317	  8336	  8355	  8374	  8393	  8412	  8431	  8473	  8492	  8511	  8530
	  8549	  8568	  8587	  8606	  8625	  8644	  8663	  8682	  8701	  8720	  8739	  8758	  8777	  8796     SEQ 0260
	  8847	  8871	  8895	  8919	  8943	  8967	  8991	  9015	  9039	  9063	  9087	  9111	  9135
ER5	    37#	   853	   871	   913	   924	   935	   946	   957	   968	   983	   991	   998	  1006	  1014
	  1032	  1054	  1075	  1084	  1093	  1102	  1111	  1119	  1144	  1169	  1178	  1187	  1196	  1217
	  1239	  1651	  1675	  1876	  1923	  1934	  1945	  1956	  1967	  2013	  2025	  2037	  2049	  2061
	  2107	  2119	  2131	  2143	  2155	  3748	  3769	  3791	  3818	  3846	  3874	  3902	  3958	  3988
	  4015	  4042	  4070	  4098	  4127	  4156	  4186	  4217	  4242	  4265	  4287	  4310	  4335	  4359
	  4384	  4409	  4435	  4454
ER6	    38#
ER7	    39#
ERLOOP	   400#
ERLP1	   401#
ERLP2	   402#
ERRHLT	   244#	  9283
ERROR	   409#
ERROR1	   421#
ERUUO	   399#
FATAL	   243#
FRD36	   384#
FRD8	   385#
FREAD	   383#
FSELEC	   382#
GCAM	   111#	  4704	  4719	  4734	  4749	  4764	  4779	  4852	  4867	  4882	  4897	  4912	  4927	  5000
	  5015	  5030	  5045	  5060	  5075	  5148	  5163	  5178	  5193	  5208	  5223	  5296	  5311	  5326
	  5341	  5356	  5371	  5444	  5459	  5474	  5489	  5504	  5519	  5592	  5607	  5622	  5637	  5652
	  5667	  5740	  5755	  5770	  5785	  5800	  5815	  5888	  5903	  5918	  5933	  5948	  5963	  6036
	  6051	  6066	  6081	  6096	  6111	  6184	  6199	  6214	  6229	  6244	  6259	  6332	  6347	  6362
	  6377	  6392	  6407
GET	   227#
GMOV	   104#	  4667	  4673	  4679	  4685	  4691	  4697	  4815	  4821	  4827	  4833	  4839	  4845	  4963
	  4969	  4975	  4981	  4987	  4993	  5111	  5117	  5123	  5129	  5135	  5141	  5259	  5265	  5271
	  5277	  5283	  5289	  5407	  5413	  5419	  5425	  5431	  5437	  5555	  5561	  5567	  5573	  5579
	  5585	  5703	  5709	  5715	  5721	  5727	  5733	  5851	  5857	  5863	  5869	  5875	  5881	  5999
	  6005	  6011	  6017	  6023	  6029	  6147	  6153	  6159	  6165	  6171	  6177	  6295	  6301	  6307
	  6313	  6319	  6325
GO	   224#
HALT	   229#	   534
JEN	   231#
JRSTF	   230#	  3709	  3723	  3742	  3760	  3781	  3807	  3835	  3862	  3891	  3919	  3945	  3974	  4005
	  4032	  4059	  4086	  4115	  4144	  4173	  4202	  4233	  4256	  4278	  4301	  4323	  4347	  4372
	  4396	  4422	  4448
MAPADR	   365#
MAPCNK	   366#
MAPMEM	   362#
MAPPNT	   368#
MAPSET	   367#
MEMSEG	   364#
MEMZRO	   363#
MODPCP	   375#
MODPCU	   374#
MTROP	   343#
NAME	     9#	    12
PBELL	   318#	  9287
PCRL	   312#	  9223	  9242                                                                                             SEQ 0261
PCRL2	   316#
PCRL2F	   317#
PCRLF	   313#
PFORCE	   320#
PGMINT	   237#	   775
PJRST	   228#
PMSG	   322#	  9189	  9193	  9204	  9229
PMSGF	   325#
PNT1	   278#
PNT11	   292#
PNT11F	   293#
PNT1F	   279#
PNT2	   280#
PNT2F	   281#
PNT3	   282#	  9241
PNT3F	   283#
PNT4	   284#	  9245
PNT4F	   285#
PNT5	   286#	  9247
PNT5F	   287#
PNT6	   288#	  9197	  9249
PNT6F	   289#
PNT7	   290#
PNT7F	   291#
PNTA	   264#	  9232
PNTADF	   295#
PNTADR	   294#
PNTAF	   265#
PNTAL	   266#	  9225
PNTALF	   267#
PNTCHF	   277#
PNTCHR	   276#
PNTCI	   274#
PNTCIF	   275#
PNTCW	   310#
PNTCWF	   311#
PNTDCF	   303#
PNTDEC	   302#	  9192
PNTDS	   304#
PNTDSF	   305#
PNTHW	   298#	  9212
PNTHWF	   299#
PNTMGN	   389#	  9273
PNTMSF	   271#
PNTMSG	   270#
PNTNM	   306#	  9185
PNTOCF	   301#
PNTOCS	   300#
PNTOCT	   296#
PNTOTF	   297#
PNTSIX	   307#
PNTSXF	   308#
PSIXL	   268#                                                                                                            SEQ 0262
PSIXLF	   269#
PSIXM	   272#	  9190	  9194	  9205	  9230
PSIXMF	   273#
PSP	   314#
PSPF	   315#
PUT	   226#
REPTUO	   403#
RTN	   225#	   521
S	   155#	   157	   161	   190	   192	   201	   204	   219	   220	   222	   233	   235	   239	   241
	   246	   250	   395	   397	   431	   436	   442	   469	   471	   489	   491	   509	   511	   540
	   542	   560	   562	   580	   582	   590	   592	   613	   618	   644	   646	   653	   655	   661
	   663	   669	   671	   675	   677	   682	   684	   688	   690	   694	   696	   702	   704	   707
	   709	   713	   715	   719	   721	   725	   727	   731	   733	   738	   743	   747	   749
SAVEAC	    92#	   800	   824	   843	   861	   884	   972	  1021	  1043	  1064	  1133	  1157	  1206	  1227
	  1251	  1272	  1291	  1313	  1376	  1395	  1418	  1439	  1466	  1493	  1517	  1541	  1565	  1588
	  1615	  1638	  1662	  1687	  1712	  1736	  1761	  1785	  1808	  1832	  1864	  1893	  1980	  2075
	  2169	  2258	  2352	  2439	  2526	  2624	  2708	  2794	  2881	  2954	  3048	  3158	  3263	  3375
	  3479	  3574	  3700	  3737	  3755	  3776	  3802	  3830	  3857	  3886	  3914	  3939	  3969	  4000
	  4027	  4054	  4081	  4110	  4139	  4168	  4197	  4228	  4251	  4273	  4296	  4318	  4342	  4367
	  4391	  4417	  4443	  4465	  4494	  4523	  4552	  4585	  4619	  4656	  4804	  4952	  5100	  5248
	  5396	  5544	  5692	  5840	  5988	  6136	  6284	  6427	  6486	  6545	  6607	  6675	  6746	  6817
	  6888	  6967	  7043	  7133	  7206	  7294	  7484	  7667	  7757	  7780	  7803	  7826	  7849	  7872
	  7895	  7918	  7941	  7964	  7987	  8010	  8033	  8833	  8857	  8881	  8905	  8929	  8953	  8977
	  9001	  9025	  9049	  9073	  9097	  9121
SIXBTZ	   331#
SWITCH	   337#	  9171	  9274
TTALTM	   259#	  9276
TTICHR	   252#
TTICNV	   257#
TTIDEC	   256#
TTINO	   254#
TTIOCT	   255#
TTIYES	   253#
TTLOOK	   258#
TTSIXB	   260#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 1
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0263


*030631 IBP	0,000006
INITIAL
C(AC)=000000 777777 
C(E)=140600 000000 
FINAL

C(E)=140600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030631 030631 0   0   133000000006 0            140600000000 
IT1	030631 0      0   0   133000000006 0            140600000000 
AT3	030631 0      0   0   000000000006 0            133000000006 
AT6	030631 000006 0   0   000000000006 0            133000000006 
FT0	030631 000006 0   0   140600000000 0            133000000006 
FT1A	030631 000006 0   0   140600000000 0            140600000000 
FT9	030632 000006 0   0   140600000000 0            140600000000 
ET0	030632 000006 0   0   140600000000 0            140600000000 
BYT1	030632 000006 014 0   140600000000 0            140600000000 
BYT4	030632 000006 0   0   060600000000 0            140600000000 
ST9	030632 000006 0   0   060600000000 0            140600000000 


*030644 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=140600 000000 
FINAL

C(E)=140600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030644 030644 0   0   133000000015 0            140600000000 
IT1	030644 0      0   0   133000000015 0            140600000000 
AT3	030644 0      0   0   000000000015 0            133000000015 
AT6	030644 000015 0   0   000000000015 0            133000000015 
FT0	030644 000015 0   0   140600000000 0            133000000015 
FT1A	030644 000015 0   0   140600000000 0            140600000000 
FT9	030645 000015 0   0   140600000000 0            140600000000 
ET0	030645 000015 0   0   140600000000 0            140600000000 
BYT1	030645 000015 014 0   140600000000 0            140600000000 
BYT4	030645 000015 0   0   060600000000 0            140600000000 
ST9	030645 000015 0   0   060600000000 0            140600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 2
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0264

*030656 IBP	0,000014
INITIAL
C(AC)=777777 777777 
C(E)=140600 000000 
FINAL

C(E)=140600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030656 030656 0   0   133000000014 0            140600000000 
IT1	030656 0      0   0   133000000014 0            140600000000 
AT3	030656 0      0   0   000000000014 0            133000000014 
AT6	030656 000014 0   0   000000000014 0            133000000014 
FT0	030656 000014 0   0   140600000000 0            133000000014 
FT1A	030656 000014 0   0   140600000000 0            140600000000 
FT9	030657 000014 0   0   140600000000 0            140600000000 
ET0	030657 000014 0   0   140600000000 0            140600000000 
BYT1	030657 000014 014 0   140600000000 0            140600000000 
BYT4	030657 000014 0   0   060600000000 0            140600000000 
ST9	030657 000014 0   0   060600000000 0            140600000000 


*030670 IBP	0,000013
INITIAL
C(AC)=777777 777777 
C(E)=160600 000000 
FINAL

C(E)=160600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030670 030670 0   0   133000000013 0            160600000000 
IT1	030670 0      0   0   133000000013 0            160600000000 
AT3	030670 0      0   0   000000000013 0            133000000013 
AT6	030670 000013 0   0   000000000013 0            133000000013 
FT0	030670 000013 0   0   160600000000 0            133000000013 
FT1A	030670 000013 0   0   160600000000 0            160600000000 
FT9	030671 000013 0   0   160600000000 0            160600000000 
ET0	030671 000013 0   0   160600000000 0            160600000000 
BYT1	030671 000013 016 0   160600000000 0            160600000000 
BYT4	030671 000013 0   0   100600000000 0            160600000000 
ST9	030671 000013 0   0   100600000000 0            160600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 3
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0265

*030702 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=770100 000000 
FINAL

C(E)=770100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030702 030702 0   0   133000000011 0            770100000000 
IT1	030702 0      0   0   133000000011 0            770100000000 
AT3	030702 0      0   0   000000000011 0            133000000011 
AT6	030702 000011 0   0   000000000011 0            133000000011 
FT0	030702 000011 0   0   770100000000 0            133000000011 
FT1A	030702 000011 0   0   770100000000 0            770100000000 
FT9	030703 000011 0   0   770100000000 0            770100000000 
ET0	030703 000011 0   0   770100000000 0            770100000000 
BYT1	030703 000011 077 0   770100000000 0            770100000000 
BYT4	030703 000011 0   0   760100000000 0            770100000000 
ST9	030703 000011 0   0   760100000000 0            770100000000 


*030710 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=770200 000000 
FINAL

C(E)=770200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030710 030710 0   0   133000000011 0            770200000000 
IT1	030710 0      0   0   133000000011 0            770200000000 
AT3	030710 0      0   0   000000000011 0            133000000011 
AT6	030710 000011 0   0   000000000011 0            133000000011 
FT0	030710 000011 0   0   770200000000 0            133000000011 
FT1A	030710 000011 0   0   770200000000 0            770200000000 
FT9	030711 000011 0   0   770200000000 0            770200000000 
ET0	030711 000011 0   0   770200000000 0            770200000000 
BYT1	030711 000011 077 0   770200000000 0            770200000000 
BYT4	030711 000011 0   0   750200000000 0            770200000000 
ST9	030711 000011 0   0   750200000000 0            770200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 4
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0266

*030716 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=770400 000000 
FINAL

C(E)=770400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030716 030716 0   0   133000000011 0            770400000000 
IT1	030716 0      0   0   133000000011 0            770400000000 
AT3	030716 0      0   0   000000000011 0            133000000011 
AT6	030716 000011 0   0   000000000011 0            133000000011 
FT0	030716 000011 0   0   770400000000 0            133000000011 
FT1A	030716 000011 0   0   770400000000 0            770400000000 
FT9	030717 000011 0   0   770400000000 0            770400000000 
ET0	030717 000011 0   0   770400000000 0            770400000000 
BYT1	030717 000011 077 0   770400000000 0            770400000000 
BYT4	030717 000011 0   0   730400000000 0            770400000000 
ST9	030717 000011 0   0   730400000000 0            770400000000 


*030724 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=771000 000000 
FINAL

C(E)=771000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030724 030724 0   0   133000000011 0            771000000000 
IT1	030724 0      0   0   133000000011 0            771000000000 
AT3	030724 0      0   0   000000000011 0            133000000011 
AT6	030724 000011 0   0   000000000011 0            133000000011 
FT0	030724 000011 0   0   771000000000 0            133000000011 
FT1A	030724 000011 0   0   771000000000 0            771000000000 
FT9	030725 000011 0   0   771000000000 0            771000000000 
ET0	030725 000011 0   0   771000000000 0            771000000000 
BYT1	030725 000011 077 0   771000000000 0            771000000000 
BYT4	030725 000011 0   0   671000000000 0            771000000000 
ST9	030725 000011 0   0   671000000000 0            771000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 5
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0267

*030732 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=772000 000000 
FINAL

C(E)=772000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030732 030732 0   0   133000000011 0            772000000000 
IT1	030732 0      0   0   133000000011 0            772000000000 
AT3	030732 0      0   0   000000000011 0            133000000011 
AT6	030732 000011 0   0   000000000011 0            133000000011 
FT0	030732 000011 0   0   772000000000 0            133000000011 
FT1A	030732 000011 0   0   772000000000 0            772000000000 
FT9	030733 000011 0   0   772000000000 0            772000000000 
ET0	030733 000011 0   0   772000000000 0            772000000000 
BYT1	030733 000011 077 0   772000000000 0            772000000000 
BYT4	030733 000011 0   0   572000000000 0            772000000000 
ST9	030733 000011 0   0   572000000000 0            772000000000 


*030740 IBP	0,000011
INITIAL
C(AC)=777777 777777 
C(E)=774000 000000 
FINAL

C(E)=774000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030740 030740 0   0   133000000011 0            774000000000 
IT1	030740 0      0   0   133000000011 0            774000000000 
AT3	030740 0      0   0   000000000011 0            133000000011 
AT6	030740 000011 0   0   000000000011 0            133000000011 
FT0	030740 000011 0   0   774000000000 0            133000000011 
FT1A	030740 000011 0   0   774000000000 0            774000000000 
FT9	030741 000011 0   0   774000000000 0            774000000000 
ET0	030741 000011 0   0   774000000000 0            774000000000 
BYT1	030741 000011 077 0   774000000000 0            774000000000 
BYT4	030741 000011 0   0   374000000000 0            774000000000 
ST9	030741 000011 0   0   374000000000 0            774000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 6
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0268

*030752 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=402000 000000 
FINAL

C(E)=402000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030752 030752 0   0   133000000012 0            402000000000 
IT1	030752 0      0   0   133000000012 0            402000000000 
AT3	030752 0      0   0   000000000012 0            133000000012 
AT6	030752 000012 0   0   000000000012 0            133000000012 
FT0	030752 000012 0   0   402000000000 0            133000000012 
FT1A	030752 000012 0   0   402000000000 0            402000000000 
FT9	030753 000012 0   0   402000000000 0            402000000000 
ET0	030753 000012 0   0   402000000000 0            402000000000 
BYT1	030753 000012 0   0   402000000000 0            402000000000 
BYT4	030753 000012 0   0   202000000000 0            402000000000 
ST9	030753 000012 0   0   202000000000 0            402000000000 


*030760 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=603000 000000 
FINAL

C(E)=603000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030760 030760 0   0   133000000012 0            603000000000 
IT1	030760 0      0   0   133000000012 0            603000000000 
AT3	030760 0      0   0   000000000012 0            133000000012 
AT6	030760 000012 0   0   000000000012 0            133000000012 
FT0	030760 000012 0   0   603000000000 0            133000000012 
FT1A	030760 000012 0   0   603000000000 0            603000000000 
FT9	030761 000012 0   0   603000000000 0            603000000000 
ET0	030761 000012 0   0   603000000000 0            603000000000 
BYT1	030761 000012 0   0   603000000000 0            603000000000 
BYT4	030761 000012 0   0   303000000000 0            603000000000 
ST9	030761 000012 0   0   303000000000 0            603000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 7
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0269

*030766 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=301400 000000 
FINAL

C(E)=301400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   133000000012 0            301400000000 
IT1	030766 0      0   0   133000000012 0            301400000000 
AT3	030766 0      0   0   000000000012 0            133000000012 
AT6	030766 000012 0   0   000000000012 0            133000000012 
FT0	030766 000012 0   0   301400000000 0            133000000012 
FT1A	030766 000012 0   0   301400000000 0            301400000000 
FT9	030767 000012 0   0   301400000000 0            301400000000 
ET0	030767 000012 0   0   301400000000 0            301400000000 
BYT1	030767 000012 0   0   301400000000 0            301400000000 
BYT4	030767 000012 0   0   141400000000 0            301400000000 
ST9	030767 000012 0   0   141400000000 0            301400000000 


*030774 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=140600 000000 
FINAL

C(E)=140600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   133000000012 0            140600000000 
IT1	030774 0      0   0   133000000012 0            140600000000 
AT3	030774 0      0   0   000000000012 0            133000000012 
AT6	030774 000012 0   0   000000000012 0            133000000012 
FT0	030774 000012 0   0   140600000000 0            133000000012 
FT1A	030774 000012 0   0   140600000000 0            140600000000 
FT9	030775 000012 0   0   140600000000 0            140600000000 
ET0	030775 000012 0   0   140600000000 0            140600000000 
BYT1	030775 000012 014 0   140600000000 0            140600000000 
BYT4	030775 000012 0   0   060600000000 0            140600000000 
ST9	030775 000012 0   0   060600000000 0            140600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 8
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0270

*031002 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=060300 000000 
FINAL

C(E)=060300 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   133000000012 0            060300000000 
IT1	031002 0      0   0   133000000012 0            060300000000 
AT3	031002 0      0   0   000000000012 0            133000000012 
AT6	031002 000012 0   0   000000000012 0            133000000012 
FT0	031002 000012 0   0   060300000000 0            133000000012 
FT1A	031002 000012 0   0   060300000000 0            060300000000 
FT9	031003 000012 0   0   060300000000 0            060300000000 
ET0	031003 000012 0   0   060300000000 0            060300000000 
BYT1	031003 000012 006 0   060300000000 0            060300000000 
BYT4	031003 000012 0   0   030300000000 0            060300000000 
ST9	031003 000012 0   0   030300000000 0            060300000000 


*031014 IBP	0,000006
INITIAL
C(AC)=777777 777777 
C(E)=051000 000000 
FINAL

C(E)=051000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031014 031014 0   0   133000000006 0            051000000000 
IT1	031014 0      0   0   133000000006 0            051000000000 
AT3	031014 0      0   0   000000000006 0            133000000006 
AT6	031014 000006 0   0   000000000006 0            133000000006 
FT0	031014 000006 0   0   051000000000 0            133000000006 
FT1A	031014 000006 0   0   051000000000 0            051000000000 
FT9	031015 000006 0   0   051000000000 0            051000000000 
ET0	031015 000006 0   0   051000000000 0            051000000000 
BYT1	031015 000006 005 0   051000000000 0            051000000000 
BYT2	031015 000006 0   0   051000000001 0            051000000000 
BYT3	031015 000006 144 0   051000000001 0            051000000000 
BYT4	031015 000006 0   0   341000000001 0            051000000000 
ST9	031015 000006 0   0   341000000001 0            051000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 9
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0271

*031027 IBP	0,000006
INITIAL
C(AC)=777777 777777 
C(E)=160600 000000 
FINAL

C(E)=160600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   133000000006 0            160600000000 
IT1	031027 0      0   0   133000000006 0            160600000000 
AT3	031027 0      0   0   000000000006 0            133000000006 
AT6	031027 000006 0   0   000000000006 0            133000000006 
FT0	031027 000006 0   0   160600000000 0            133000000006 
FT1A	031027 000006 0   0   160600000000 0            160600000000 
FT9	031030 000006 0   0   160600000000 0            160600000000 
ET0	031030 000006 0   0   160600000000 0            160600000000 
BYT1	031030 000006 016 0   160600000000 0            160600000000 
BYT4	031030 000006 0   0   100600000000 0            160600000000 
ST9	031030 000006 0   0   100600000000 0            160600000000 


*031042 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=010100 000000 
FINAL

C(E)=010100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031042 031042 0   0   133000000015 0            010100000000 
IT1	031042 0      0   0   133000000015 0            010100000000 
AT3	031042 0      0   0   000000000015 0            133000000015 
AT6	031042 000015 0   0   000000000015 0            133000000015 
FT0	031042 000015 0   0   010100000000 0            133000000015 
FT1A	031042 000015 0   0   010100000000 0            010100000000 
FT9	031043 000015 0   0   010100000000 0            010100000000 
ET0	031043 000015 0   0   010100000000 0            010100000000 
BYT1	031043 000015 001 0   010100000000 0            010100000000 
BYT4	031043 000015 0   0   000100000000 0            010100000000 
ST9	031043 000015 0   0   000100000000 0            010100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 10
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0272

*031051 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=020200 000000 
FINAL

C(E)=020200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031051 031051 0   0   133000000015 0            020200000000 
IT1	031051 0      0   0   133000000015 0            020200000000 
AT3	031051 0      0   0   000000000015 0            133000000015 
AT6	031051 000015 0   0   000000000015 0            133000000015 
FT0	031051 000015 0   0   020200000000 0            133000000015 
FT1A	031051 000015 0   0   020200000000 0            020200000000 
FT9	031052 000015 0   0   020200000000 0            020200000000 
ET0	031052 000015 0   0   020200000000 0            020200000000 
BYT1	031052 000015 002 0   020200000000 0            020200000000 
BYT4	031052 000015 0   0   000200000000 0            020200000000 
ST9	031052 000015 0   0   000200000000 0            020200000000 


*031060 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=040400 000000 
FINAL

C(E)=040400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   133000000015 0            040400000000 
IT1	031060 0      0   0   133000000015 0            040400000000 
AT3	031060 0      0   0   000000000015 0            133000000015 
AT6	031060 000015 0   0   000000000015 0            133000000015 
FT0	031060 000015 0   0   040400000000 0            133000000015 
FT1A	031060 000015 0   0   040400000000 0            040400000000 
FT9	031061 000015 0   0   040400000000 0            040400000000 
ET0	031061 000015 0   0   040400000000 0            040400000000 
BYT1	031061 000015 004 0   040400000000 0            040400000000 
BYT4	031061 000015 0   0   000400000000 0            040400000000 
ST9	031061 000015 0   0   000400000000 0            040400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 11
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0273

*031067 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=101000 000000 
FINAL

C(E)=101000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   133000000015 0            101000000000 
IT1	031067 0      0   0   133000000015 0            101000000000 
AT3	031067 0      0   0   000000000015 0            133000000015 
AT6	031067 000015 0   0   000000000015 0            133000000015 
FT0	031067 000015 0   0   101000000000 0            133000000015 
FT1A	031067 000015 0   0   101000000000 0            101000000000 
FT9	031070 000015 0   0   101000000000 0            101000000000 
ET0	031070 000015 0   0   101000000000 0            101000000000 
BYT1	031070 000015 0   0   101000000000 0            101000000000 
BYT4	031070 000015 0   0   001000000000 0            101000000000 
ST9	031070 000015 0   0   001000000000 0            101000000000 


*031076 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=202000 000000 
FINAL

C(E)=202000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031076 031076 0   0   133000000015 0            202000000000 
IT1	031076 0      0   0   133000000015 0            202000000000 
AT3	031076 0      0   0   000000000015 0            133000000015 
AT6	031076 000015 0   0   000000000015 0            133000000015 
FT0	031076 000015 0   0   202000000000 0            133000000015 
FT1A	031076 000015 0   0   202000000000 0            202000000000 
FT9	031077 000015 0   0   202000000000 0            202000000000 
ET0	031077 000015 0   0   202000000000 0            202000000000 
BYT1	031077 000015 0   0   202000000000 0            202000000000 
BYT4	031077 000015 0   0   002000000000 0            202000000000 
ST9	031077 000015 0   0   002000000000 0            202000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 12
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0274

*031105 IBP	0,000015
INITIAL
C(AC)=777777 777777 
C(E)=404000 000000 
FINAL

C(E)=404000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   133000000015 0            404000000000 
IT1	031105 0      0   0   133000000015 0            404000000000 
AT3	031105 0      0   0   000000000015 0            133000000015 
AT6	031105 000015 0   0   000000000015 0            133000000015 
FT0	031105 000015 0   0   404000000000 0            133000000015 
FT1A	031105 000015 0   0   404000000000 0            404000000000 
FT9	031106 000015 0   0   404000000000 0            404000000000 
ET0	031106 000015 0   0   404000000000 0            404000000000 
BYT1	031106 000015 0   0   404000000000 0            404000000000 
BYT4	031106 000015 0   0   004000000000 0            404000000000 
ST9	031106 000015 0   0   004000000000 0            404000000000 


*031120 IBP	0,000014
INITIAL
C(AC)=777777 777777 
C(E)=061000 000000 
FINAL

C(E)=061000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   133000000014 0            061000000000 
IT1	031120 0      0   0   133000000014 0            061000000000 
AT3	031120 0      0   0   000000000014 0            133000000014 
AT6	031120 000014 0   0   000000000014 0            133000000014 
FT0	031120 000014 0   0   061000000000 0            133000000014 
FT1A	031120 000014 0   0   061000000000 0            061000000000 
FT9	031121 000014 0   0   061000000000 0            061000000000 
ET0	031121 000014 0   0   061000000000 0            061000000000 
BYT1	031121 000014 006 0   061000000000 0            061000000000 
BYT2	031121 000014 0   0   061000000001 0            061000000000 
BYT3	031121 000014 144 0   061000000001 0            061000000000 
BYT4	031121 000014 0   0   341000000001 0            061000000000 
ST9	031121 000014 0   0   341000000001 0            061000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 13
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0275

*031133 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=202100 000000 
FINAL

C(E)=202100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   133000000012 0            202100000000 
IT1	031133 0      0   0   133000000012 0            202100000000 
AT3	031133 0      0   0   000000000012 0            133000000012 
AT6	031133 000012 0   0   000000000012 0            133000000012 
FT0	031133 000012 0   0   202100000000 0            133000000012 
FT1A	031133 000012 0   0   202100000000 0            202100000000 
FT9	031134 000012 0   0   202100000000 0            202100000000 
ET0	031134 000012 0   0   202100000000 0            202100000000 
BYT1	031134 000012 0   0   202100000000 0            202100000000 
BYT2	031134 000012 0   0   202100000001 0            202100000000 
BYT3	031134 000012 144 0   202100000001 0            202100000000 
BYT4	031134 000012 0   0   232100000001 0            202100000000 
ST9	031134 000012 0   0   232100000001 0            202100000000 


*031142 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=101100 000000 
FINAL

C(E)=101100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031142 031142 0   0   133000000012 0            101100000000 
IT1	031142 0      0   0   133000000012 0            101100000000 
AT3	031142 0      0   0   000000000012 0            133000000012 
AT6	031142 000012 0   0   000000000012 0            133000000012 
FT0	031142 000012 0   0   101100000000 0            133000000012 
FT1A	031142 000012 0   0   101100000000 0            101100000000 
FT9	031143 000012 0   0   101100000000 0            101100000000 
ET0	031143 000012 0   0   101100000000 0            101100000000 
BYT1	031143 000012 0   0   101100000000 0            101100000000 
BYT2	031143 000012 0   0   101100000001 0            101100000000 
BYT3	031143 000012 144 0   101100000001 0            101100000000 
BYT4	031143 000012 0   0   331100000001 0            101100000000 
ST9	031143 000012 0   0   331100000001 0            101100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 14
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0276

*031151 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=020300 000000 
FINAL

C(E)=020300 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   133000000012 0            020300000000 
IT1	031151 0      0   0   133000000012 0            020300000000 
AT3	031151 0      0   0   000000000012 0            133000000012 
AT6	031151 000012 0   0   000000000012 0            133000000012 
FT0	031151 000012 0   0   020300000000 0            133000000012 
FT1A	031151 000012 0   0   020300000000 0            020300000000 
FT9	031152 000012 0   0   020300000000 0            020300000000 
ET0	031152 000012 0   0   020300000000 0            020300000000 
BYT1	031152 000012 002 0   020300000000 0            020300000000 
BYT2	031152 000012 0   0   020300000001 0            020300000000 
BYT3	031152 000012 144 0   020300000001 0            020300000000 
BYT4	031152 000012 0   0   410300000001 0            020300000000 
ST9	031152 000012 0   0   410300000001 0            020300000000 


*031160 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=010200 000000 
FINAL

C(E)=010200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   133000000012 0            010200000000 
IT1	031160 0      0   0   133000000012 0            010200000000 
AT3	031160 0      0   0   000000000012 0            133000000012 
AT6	031160 000012 0   0   000000000012 0            133000000012 
FT0	031160 000012 0   0   010200000000 0            133000000012 
FT1A	031160 000012 0   0   010200000000 0            010200000000 
FT9	031161 000012 0   0   010200000000 0            010200000000 
ET0	031161 000012 0   0   010200000000 0            010200000000 
BYT1	031161 000012 001 0   010200000000 0            010200000000 
BYT2	031161 000012 0   0   010200000001 0            010200000000 
BYT3	031161 000012 144 0   010200000001 0            010200000000 
BYT4	031161 000012 0   0   420200000001 0            010200000000 
ST9	031161 000012 0   0   420200000001 0            010200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 15
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0277

*031174 IBP	0,000013
INITIAL
C(AC)=777777 777777 
C(E)=061000 000000 
FINAL

C(E)=061000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031174 031174 0   0   133000000013 0            061000000000 
IT1	031174 0      0   0   133000000013 0            061000000000 
AT3	031174 0      0   0   000000000013 0            133000000013 
AT6	031174 000013 0   0   000000000013 0            133000000013 
FT0	031174 000013 0   0   061000000000 0            133000000013 
FT1A	031174 000013 0   0   061000000000 0            061000000000 
FT9	031175 000013 0   0   061000000000 0            061000000000 
ET0	031175 000013 0   0   061000000000 0            061000000000 
BYT1	031175 000013 006 0   061000000000 0            061000000000 
BYT2	031175 000013 0   0   061000000001 0            061000000000 
BYT3	031175 000013 144 0   061000000001 0            061000000000 
BYT4	031175 000013 0   0   341000000001 0            061000000000 
ST9	031175 000013 0   0   341000000001 0            061000000000 


*031210 IBP	0,000012
INITIAL
C(AC)=777777 777777 
C(E)=061000 000011 
FINAL

C(E)=061000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031210 031210 0   0   133000000012 0            061000000011 
IT1	031210 0      0   0   133000000012 0            061000000011 
AT3	031210 0      0   0   000000000012 0            133000000012 
AT6	031210 000012 0   0   000000000012 0            133000000012 
FT0	031210 000012 0   0   061000000011 0            133000000012 
FT1A	031210 000012 0   0   061000000011 0            061000000011 
FT9	031211 000012 0   0   061000000011 0            061000000011 
ET0	031211 000012 0   0   061000000011 0            061000000011 
BYT1	031211 000012 006 0   061000000011 0            061000000011 
BYT2	031211 000012 0   0   061000000012 0            061000000011 
BYT3	031211 000012 144 0   061000000012 0            061000000011 
BYT4	031211 000012 0   0   341000000012 0            061000000011 
ST9	031211 000012 0   0   341000000012 0            061000000011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 16
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0278

*031224 LDB	14,000015
INITIAL
C(AC)=000000 000000 
C(E)=000600 000005   C(C(E))=000000 777777 
FINAL
C(AC)=000000 000077 
C(E)=000600 000005   C(C(E))=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031224 031224 0   0   135600000015 0            000000777777 
IT1	031224 0      0   0   135600000015 0            000000777777 
AT3	031224 0      0   0   000000000015 0            135600000015 
AT6	031224 000015 0   0   000000000015 0            135600000015 
FT0	031224 000015 0   0   000600000005 0            135600000015 
FT1A	031224 000015 0   0   000600000005 0            000600000005 
FT9	031224 000015 0   0   000600000005 0            000600000005 
ET0	031224 000015 0   0   000600000005 0            000600000005 
BYT6	031224 000015 0   0   000600000005 0            000600000005 
BYT7	031224 000015 772 0   000600000005 0            000600000005 
SCT0	031224 000015 772 0   000600000005 0            000600000005 
SCT3	031224 000015 773 0   000600000005 000000000001 000600000005 
SCT3	031224 000015 774 0   000600000005 000000000003 000600000005 
SCT3	031224 000015 775 0   000600000005 000000000007 000600000005 
SCT3	031224 000015 776 0   000600000005 000000000017 000600000005 
SCT3	031224 000015 777 0   000600000005 000000000037 000600000005 
SCT3	031224 000015 0   0   000600000005 000000000077 000600000005 
SCT4	031224 000015 0   0   000600000005 000000000077 000600000005 
BYT7A	031224 000015 0   0   000600000005 000000000077 000600000005 
IT1	031224 0      0   0   000600000005 000000000077 000600000005 
AT3	031224 0      0   0   000000000005 000000000077 000600000005 
AT6	031224 000005 0   0   000000000005 000000000077 000600000005 
FT0	031224 000005 0   0   000000777777 000000000077 000600000005 
FT1A	031224 000005 0   0   000000777777 000000000077 000000777777 
FT9	031225 000005 0   0   000000777777 000000000077 000000777777 
ET0	031225 000005 0   0   000000777777 000000000077 000000777777 
SCT0	031225 000005 0   0   000000777777 000000000077 000000777777 
SCT4	031225 000005 0   0   000000777777 000000000077 000000777777 
LBT1	031225 000005 0   0   000000000077 000000000077 000000777777 
ST0	031225 000005 0   0   000000000077 000000000077 000000777777 
ST1	031225 000005 0   0   000000000077 000000000077 000000777777 
ST2	031225 000005 0   0   000000000077 000000000077 000000777777 
ST9	031225 000005 0   0   000000000077 000000000077 000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 17
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0279

*031237 LDB	11,000012
INITIAL
C(AC)=341000 000000 
C(E)=140600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031237 031237 0   0   135440000012 0            777777777777 
IT1	031237 0      0   0   135440000012 0            777777777777 
AT3	031237 0      0   0   000000000012 0            135440000012 
AT6	031237 000012 0   0   000000000012 0            135440000012 
FT0	031237 000012 0   0   140600000000 0            135440000012 
FT1A	031237 000012 0   0   140600000000 0            140600000000 
FT9	031237 000012 0   0   140600000000 0            140600000000 
ET0	031237 000012 0   0   140600000000 0            140600000000 
BYT6	031237 000012 0   0   140600000000 0            140600000000 
BYT7	031237 000012 772 0   140600000000 0            140600000000 
SCT0	031237 000012 772 0   140600000000 0            140600000000 
SCT3	031237 000012 773 0   140600000000 000000000001 140600000000 
SCT3	031237 000012 774 0   140600000000 000000000003 140600000000 
SCT3	031237 000012 775 0   140600000000 000000000007 140600000000 
SCT3	031237 000012 776 0   140600000000 000000000017 140600000000 
SCT3	031237 000012 777 0   140600000000 000000000037 140600000000 
SCT3	031237 000012 0   0   140600000000 000000000077 140600000000 
SCT4	031237 000012 0   0   140600000000 000000000077 140600000000 
BYT7A	031237 000012 014 0   140600000000 000000000077 140600000000 
IT1	031237 0      014 0   140600000000 000000000077 140600000000 
AT3	031237 0      014 0   0            000000000077 140600000000 
AT6	031237 0      014 0   0            000000000077 140600000000 
FT0	031237 0      014 0   777777777777 000000000077 140600000000 
FT1A	031237 0      014 0   777777777777 000000000077 777777777777 
FT9	031240 0      014 0   777777777777 000000000077 777777777777 
ET0	031240 0      764 0   777777777777 000000000077 777777777777 
SCT0	031240 0      764 0   777777777777 000000000077 777777777777 
SCT3	031240 0      765 0   377777777777 000000000077 777777777777 
SCT3	031240 0      766 0   177777777777 000000000077 777777777777 
SCT3	031240 0      767 0   077777777777 000000000077 777777777777 
SCT3	031240 0      0   0   037777777777 000000000077 777777777777 
SCT3	031240 0      771 0   017777777777 000000000077 777777777777 
SCT3	031240 0      772 0   007777777777 000000000077 777777777777 
SCT3	031240 0      773 0   003777777777 000000000077 777777777777 
SCT3	031240 0      774 0   001777777777 000000000077 777777777777 
SCT3	031240 0      775 0   000777777777 000000000077 777777777777 
SCT3	031240 0      776 0   000377777777 000000000077 777777777777 
SCT3	031240 0      777 0   000177777777 000000000077 777777777777 
SCT3	031240 0      0   0   000077777777 000000000077 777777777777 
SCT4	031240 0      0   0   000077777777 000000000077 777777777777 
LBT1	031240 0      0   0   000000000077 000000000077 777777777777 
ST0	031240 0      0   0   000000000077 000000000077 777777777777 
ST1	031240 0      0   0   000000000077 000000000077 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 18
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0280

ST2	031240 0      0   0   000000000077 000000000077 777777777777 
ST9	031240 0      0   0   000000000077 000000000077 777777777777 


*031251 LDB	6,000007
INITIAL
C(AC)=100600 000000 
C(E)=140600 000000   C(C(E))=000000 777777 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   135300000007 0            000000777777 
IT1	031251 0      0   0   135300000007 0            000000777777 
AT3	031251 0      0   0   000000000007 0            135300000007 
AT6	031251 000007 0   0   000000000007 0            135300000007 
FT0	031251 000007 0   0   140600000000 0            135300000007 
FT1A	031251 000007 0   0   140600000000 0            140600000000 
FT9	031251 000007 0   0   140600000000 0            140600000000 
ET0	031251 000007 0   0   140600000000 0            140600000000 
BYT6	031251 000007 0   0   140600000000 0            140600000000 
BYT7	031251 000007 772 0   140600000000 0            140600000000 
SCT0	031251 000007 772 0   140600000000 0            140600000000 
SCT3	031251 000007 773 0   140600000000 000000000001 140600000000 
SCT3	031251 000007 774 0   140600000000 000000000003 140600000000 
SCT3	031251 000007 775 0   140600000000 000000000007 140600000000 
SCT3	031251 000007 776 0   140600000000 000000000017 140600000000 
SCT3	031251 000007 777 0   140600000000 000000000037 140600000000 
SCT3	031251 000007 0   0   140600000000 000000000077 140600000000 
SCT4	031251 000007 0   0   140600000000 000000000077 140600000000 
BYT7A	031251 000007 014 0   140600000000 000000000077 140600000000 
IT1	031251 0      014 0   140600000000 000000000077 140600000000 
AT3	031251 0      014 0   0            000000000077 140600000000 
AT6	031251 0      014 0   0            000000000077 140600000000 
FT0	031251 0      014 0   000000777777 000000000077 140600000000 
FT1A	031251 0      014 0   000000777777 000000000077 000000777777 
FT9	031252 0      014 0   000000777777 000000000077 000000777777 
ET0	031252 0      764 0   000000777777 000000000077 000000777777 
SCT0	031252 0      764 0   000000777777 000000000077 000000777777 
SCT3	031252 0      765 0   000000377777 000000000077 000000777777 
SCT3	031252 0      766 0   000000177777 000000000077 000000777777 
SCT3	031252 0      767 0   000000077777 000000000077 000000777777 
SCT3	031252 0      0   0   000000037777 000000000077 000000777777 
SCT3	031252 0      771 0   000000017777 000000000077 000000777777 
SCT3	031252 0      772 0   000000007777 000000000077 000000777777 
SCT3	031252 0      773 0   000000003777 000000000077 000000777777 
SCT3	031252 0      774 0   000000001777 000000000077 000000777777 
SCT3	031252 0      775 0   000000000777 000000000077 000000777777 
SCT3	031252 0      776 0   000000000377 000000000077 000000777777 
SCT3	031252 0      777 0   000000000177 000000000077 000000777777 
SCT3	031252 0      0   0   000000000077 000000000077 000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 19
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0281

SCT4	031252 0      0   0   000000000077 000000000077 000000777777 
LBT1	031252 0      0   0   000000000077 000000000077 000000777777 
ST0	031252 0      0   0   000000000077 000000000077 000000777777 
ST1	031252 0      0   0   000000000077 000000000077 000000777777 
ST2	031252 0      0   0   000000000077 000000000077 000000777777 
ST9	031252 0      0   0   000000000077 000000000077 000000777777 


*031264 LDB	5,000006
INITIAL
C(AC)=000000 777777 
C(E)=004000 000000   C(C(E))=777777 777777 
FINAL
C(AC)=037777 777777 
C(E)=004000 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031264 031264 0   0   135240000006 0            777777777777 
IT1	031264 0      0   0   135240000006 0            777777777777 
AT3	031264 0      0   0   000000000006 0            135240000006 
AT6	031264 000006 0   0   000000000006 0            135240000006 
FT0	031264 000006 0   0   004000000000 0            135240000006 
FT1A	031264 000006 0   0   004000000000 0            004000000000 
FT9	031264 000006 0   0   004000000000 0            004000000000 
ET0	031264 000006 0   0   004000000000 0            004000000000 
BYT6	031264 000006 0   0   004000000000 0            004000000000 
BYT7	031264 000006 0   0   004000000000 0            004000000000 
SCT0	031264 000006 0   0   004000000000 0            004000000000 
SCT3	031264 000006 741 0   004000000000 000000000001 004000000000 
SCT3	031264 000006 742 0   004000000000 000000000003 004000000000 
SCT3	031264 000006 743 0   004000000000 000000000007 004000000000 
SCT3	031264 000006 744 0   004000000000 000000000017 004000000000 
SCT3	031264 000006 745 0   004000000000 000000000037 004000000000 
SCT3	031264 000006 746 0   004000000000 000000000077 004000000000 
SCT3	031264 000006 747 0   004000000000 000000000177 004000000000 
SCT3	031264 000006 0   0   004000000000 000000000377 004000000000 
SCT3	031264 000006 751 0   004000000000 000000000777 004000000000 
SCT3	031264 000006 752 0   004000000000 000000001777 004000000000 
SCT3	031264 000006 753 0   004000000000 000000003777 004000000000 
SCT3	031264 000006 754 0   004000000000 000000007777 004000000000 
SCT3	031264 000006 755 0   004000000000 000000017777 004000000000 
SCT3	031264 000006 756 0   004000000000 000000037777 004000000000 
SCT3	031264 000006 757 0   004000000000 000000077777 004000000000 
SCT3	031264 000006 0   0   004000000000 000000177777 004000000000 
SCT3	031264 000006 761 0   004000000000 000000377777 004000000000 
SCT3	031264 000006 762 0   004000000000 000000777777 004000000000 
SCT3	031264 000006 763 0   004000000000 000001777777 004000000000 
SCT3	031264 000006 764 0   004000000000 000003777777 004000000000 
SCT3	031264 000006 765 0   004000000000 000007777777 004000000000 
SCT3	031264 000006 766 0   004000000000 000017777777 004000000000 
SCT3	031264 000006 767 0   004000000000 000037777777 004000000000 
SCT3	031264 000006 0   0   004000000000 000077777777 004000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 20
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0282

SCT3	031264 000006 771 0   004000000000 000177777777 004000000000 
SCT3	031264 000006 772 0   004000000000 000377777777 004000000000 
SCT3	031264 000006 773 0   004000000000 000777777777 004000000000 
SCT3	031264 000006 774 0   004000000000 001777777777 004000000000 
SCT3	031264 000006 775 0   004000000000 003777777777 004000000000 
SCT3	031264 000006 776 0   004000000000 007777777777 004000000000 
SCT3	031264 000006 777 0   004000000000 017777777777 004000000000 
SCT3	031264 000006 0   0   004000000000 037777777777 004000000000 
SCT4	031264 000006 0   0   004000000000 037777777777 004000000000 
BYT7A	031264 000006 0   0   004000000000 037777777777 004000000000 
IT1	031264 0      0   0   004000000000 037777777777 004000000000 
AT3	031264 0      0   0   0            037777777777 004000000000 
AT6	031264 0      0   0   0            037777777777 004000000000 
FT0	031264 0      0   0   777777777777 037777777777 004000000000 
FT1A	031264 0      0   0   777777777777 037777777777 777777777777 
FT9	031265 0      0   0   777777777777 037777777777 777777777777 
ET0	031265 0      0   0   777777777777 037777777777 777777777777 
SCT0	031265 0      0   0   777777777777 037777777777 777777777777 
SCT4	031265 0      0   0   777777777777 037777777777 777777777777 
LBT1	031265 0      0   0   037777777777 037777777777 777777777777 
ST0	031265 0      0   0   037777777777 037777777777 777777777777 
ST1	031265 0      0   0   037777777777 037777777777 777777777777 
ST2	031265 0      0   0   037777777777 037777777777 777777777777 
ST9	031265 0      0   0   037777777777 037777777777 777777777777 


*031273 LDB	5,000006
INITIAL
C(AC)=037777 777777 
C(E)=002000 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 177777 
C(E)=002000 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031273 031273 0   0   135240000006 0            777777777777 
IT1	031273 0      0   0   135240000006 0            777777777777 
AT3	031273 0      0   0   000000000006 0            135240000006 
AT6	031273 000006 0   0   000000000006 0            135240000006 
FT0	031273 000006 0   0   002000000000 0            135240000006 
FT1A	031273 000006 0   0   002000000000 0            002000000000 
FT9	031273 000006 0   0   002000000000 0            002000000000 
ET0	031273 000006 0   0   002000000000 0            002000000000 
BYT6	031273 000006 0   0   002000000000 0            002000000000 
BYT7	031273 000006 0   0   002000000000 0            002000000000 
SCT0	031273 000006 0   0   002000000000 0            002000000000 
SCT3	031273 000006 761 0   002000000000 000000000001 002000000000 
SCT3	031273 000006 762 0   002000000000 000000000003 002000000000 
SCT3	031273 000006 763 0   002000000000 000000000007 002000000000 
SCT3	031273 000006 764 0   002000000000 000000000017 002000000000 
SCT3	031273 000006 765 0   002000000000 000000000037 002000000000 
SCT3	031273 000006 766 0   002000000000 000000000077 002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 21
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0283

SCT3	031273 000006 767 0   002000000000 000000000177 002000000000 
SCT3	031273 000006 0   0   002000000000 000000000377 002000000000 
SCT3	031273 000006 771 0   002000000000 000000000777 002000000000 
SCT3	031273 000006 772 0   002000000000 000000001777 002000000000 
SCT3	031273 000006 773 0   002000000000 000000003777 002000000000 
SCT3	031273 000006 774 0   002000000000 000000007777 002000000000 
SCT3	031273 000006 775 0   002000000000 000000017777 002000000000 
SCT3	031273 000006 776 0   002000000000 000000037777 002000000000 
SCT3	031273 000006 777 0   002000000000 000000077777 002000000000 
SCT3	031273 000006 0   0   002000000000 000000177777 002000000000 
SCT4	031273 000006 0   0   002000000000 000000177777 002000000000 
BYT7A	031273 000006 0   0   002000000000 000000177777 002000000000 
IT1	031273 0      0   0   002000000000 000000177777 002000000000 
AT3	031273 0      0   0   0            000000177777 002000000000 
AT6	031273 0      0   0   0            000000177777 002000000000 
FT0	031273 0      0   0   777777777777 000000177777 002000000000 
FT1A	031273 0      0   0   777777777777 000000177777 777777777777 
FT9	031274 0      0   0   777777777777 000000177777 777777777777 
ET0	031274 0      0   0   777777777777 000000177777 777777777777 
SCT0	031274 0      0   0   777777777777 000000177777 777777777777 
SCT4	031274 0      0   0   777777777777 000000177777 777777777777 
LBT1	031274 0      0   0   000000177777 000000177777 777777777777 
ST0	031274 0      0   0   000000177777 000000177777 777777777777 
ST1	031274 0      0   0   000000177777 000000177777 777777777777 
ST2	031274 0      0   0   000000177777 000000177777 777777777777 
ST9	031274 0      0   0   000000177777 000000177777 777777777777 


*031302 LDB	5,000006
INITIAL
C(AC)=000000 177777 
C(E)=001000 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000377 
C(E)=001000 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031302 031302 0   0   135240000006 0            777777777777 
IT1	031302 0      0   0   135240000006 0            777777777777 
AT3	031302 0      0   0   000000000006 0            135240000006 
AT6	031302 000006 0   0   000000000006 0            135240000006 
FT0	031302 000006 0   0   001000000000 0            135240000006 
FT1A	031302 000006 0   0   001000000000 0            001000000000 
FT9	031302 000006 0   0   001000000000 0            001000000000 
ET0	031302 000006 0   0   001000000000 0            001000000000 
BYT6	031302 000006 0   0   001000000000 0            001000000000 
BYT7	031302 000006 0   0   001000000000 0            001000000000 
SCT0	031302 000006 0   0   001000000000 0            001000000000 
SCT3	031302 000006 771 0   001000000000 000000000001 001000000000 
SCT3	031302 000006 772 0   001000000000 000000000003 001000000000 
SCT3	031302 000006 773 0   001000000000 000000000007 001000000000 
SCT3	031302 000006 774 0   001000000000 000000000017 001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 22
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0284

SCT3	031302 000006 775 0   001000000000 000000000037 001000000000 
SCT3	031302 000006 776 0   001000000000 000000000077 001000000000 
SCT3	031302 000006 777 0   001000000000 000000000177 001000000000 
SCT3	031302 000006 0   0   001000000000 000000000377 001000000000 
SCT4	031302 000006 0   0   001000000000 000000000377 001000000000 
BYT7A	031302 000006 0   0   001000000000 000000000377 001000000000 
IT1	031302 0      0   0   001000000000 000000000377 001000000000 
AT3	031302 0      0   0   0            000000000377 001000000000 
AT6	031302 0      0   0   0            000000000377 001000000000 
FT0	031302 0      0   0   777777777777 000000000377 001000000000 
FT1A	031302 0      0   0   777777777777 000000000377 777777777777 
FT9	031303 0      0   0   777777777777 000000000377 777777777777 
ET0	031303 0      0   0   777777777777 000000000377 777777777777 
SCT0	031303 0      0   0   777777777777 000000000377 777777777777 
SCT4	031303 0      0   0   777777777777 000000000377 777777777777 
LBT1	031303 0      0   0   000000000377 000000000377 777777777777 
ST0	031303 0      0   0   000000000377 000000000377 777777777777 
ST1	031303 0      0   0   000000000377 000000000377 777777777777 
ST2	031303 0      0   0   000000000377 000000000377 777777777777 
ST9	031303 0      0   0   000000000377 000000000377 777777777777 


*031311 LDB	5,000006
INITIAL
C(AC)=000000 000377 
C(E)=000400 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000017 
C(E)=000400 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031311 031311 0   0   135240000006 0            777777777777 
IT1	031311 0      0   0   135240000006 0            777777777777 
AT3	031311 0      0   0   000000000006 0            135240000006 
AT6	031311 000006 0   0   000000000006 0            135240000006 
FT0	031311 000006 0   0   000400000000 0            135240000006 
FT1A	031311 000006 0   0   000400000000 0            000400000000 
FT9	031311 000006 0   0   000400000000 0            000400000000 
ET0	031311 000006 0   0   000400000000 0            000400000000 
BYT6	031311 000006 0   0   000400000000 0            000400000000 
BYT7	031311 000006 774 0   000400000000 0            000400000000 
SCT0	031311 000006 774 0   000400000000 0            000400000000 
SCT3	031311 000006 775 0   000400000000 000000000001 000400000000 
SCT3	031311 000006 776 0   000400000000 000000000003 000400000000 
SCT3	031311 000006 777 0   000400000000 000000000007 000400000000 
SCT3	031311 000006 0   0   000400000000 000000000017 000400000000 
SCT4	031311 000006 0   0   000400000000 000000000017 000400000000 
BYT7A	031311 000006 0   0   000400000000 000000000017 000400000000 
IT1	031311 0      0   0   000400000000 000000000017 000400000000 
AT3	031311 0      0   0   0            000000000017 000400000000 
AT6	031311 0      0   0   0            000000000017 000400000000 
FT0	031311 0      0   0   777777777777 000000000017 000400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 23
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0285

FT1A	031311 0      0   0   777777777777 000000000017 777777777777 
FT9	031312 0      0   0   777777777777 000000000017 777777777777 
ET0	031312 0      0   0   777777777777 000000000017 777777777777 
SCT0	031312 0      0   0   777777777777 000000000017 777777777777 
SCT4	031312 0      0   0   777777777777 000000000017 777777777777 
LBT1	031312 0      0   0   000000000017 000000000017 777777777777 
ST0	031312 0      0   0   000000000017 000000000017 777777777777 
ST1	031312 0      0   0   000000000017 000000000017 777777777777 
ST2	031312 0      0   0   000000000017 000000000017 777777777777 
ST9	031312 0      0   0   000000000017 000000000017 777777777777 


*031320 LDB	5,000006
INITIAL
C(AC)=000000 000017 
C(E)=000200 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000003 
C(E)=000200 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031320 031320 0   0   135240000006 0            777777777777 
IT1	031320 0      0   0   135240000006 0            777777777777 
AT3	031320 0      0   0   000000000006 0            135240000006 
AT6	031320 000006 0   0   000000000006 0            135240000006 
FT0	031320 000006 0   0   000200000000 0            135240000006 
FT1A	031320 000006 0   0   000200000000 0            000200000000 
FT9	031320 000006 0   0   000200000000 0            000200000000 
ET0	031320 000006 0   0   000200000000 0            000200000000 
BYT6	031320 000006 0   0   000200000000 0            000200000000 
BYT7	031320 000006 776 0   000200000000 0            000200000000 
SCT0	031320 000006 776 0   000200000000 0            000200000000 
SCT3	031320 000006 777 0   000200000000 000000000001 000200000000 
SCT3	031320 000006 0   0   000200000000 000000000003 000200000000 
SCT4	031320 000006 0   0   000200000000 000000000003 000200000000 
BYT7A	031320 000006 0   0   000200000000 000000000003 000200000000 
IT1	031320 0      0   0   000200000000 000000000003 000200000000 
AT3	031320 0      0   0   0            000000000003 000200000000 
AT6	031320 0      0   0   0            000000000003 000200000000 
FT0	031320 0      0   0   777777777777 000000000003 000200000000 
FT1A	031320 0      0   0   777777777777 000000000003 777777777777 
FT9	031321 0      0   0   777777777777 000000000003 777777777777 
ET0	031321 0      0   0   777777777777 000000000003 777777777777 
SCT0	031321 0      0   0   777777777777 000000000003 777777777777 
SCT4	031321 0      0   0   777777777777 000000000003 777777777777 
LBT1	031321 0      0   0   000000000003 000000000003 777777777777 
ST0	031321 0      0   0   000000000003 000000000003 777777777777 
ST1	031321 0      0   0   000000000003 000000000003 777777777777 
ST2	031321 0      0   0   000000000003 000000000003 777777777777 
ST9	031321 0      0   0   000000000003 000000000003 777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 24
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0286

*031327 LDB	5,000006
INITIAL
C(AC)=000000 000003 
C(E)=000100 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000001 
C(E)=000100 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031327 031327 0   0   135240000006 0            777777777777 
IT1	031327 0      0   0   135240000006 0            777777777777 
AT3	031327 0      0   0   000000000006 0            135240000006 
AT6	031327 000006 0   0   000000000006 0            135240000006 
FT0	031327 000006 0   0   000100000000 0            135240000006 
FT1A	031327 000006 0   0   000100000000 0            000100000000 
FT9	031327 000006 0   0   000100000000 0            000100000000 
ET0	031327 000006 0   0   000100000000 0            000100000000 
BYT6	031327 000006 0   0   000100000000 0            000100000000 
BYT7	031327 000006 777 0   000100000000 0            000100000000 
SCT0	031327 000006 777 0   000100000000 0            000100000000 
SCT3	031327 000006 0   0   000100000000 000000000001 000100000000 
SCT4	031327 000006 0   0   000100000000 000000000001 000100000000 
BYT7A	031327 000006 0   0   000100000000 000000000001 000100000000 
IT1	031327 0      0   0   000100000000 000000000001 000100000000 
AT3	031327 0      0   0   0            000000000001 000100000000 
AT6	031327 0      0   0   0            000000000001 000100000000 
FT0	031327 0      0   0   777777777777 000000000001 000100000000 
FT1A	031327 0      0   0   777777777777 000000000001 777777777777 
FT9	031330 0      0   0   777777777777 000000000001 777777777777 
ET0	031330 0      0   0   777777777777 000000000001 777777777777 
SCT0	031330 0      0   0   777777777777 000000000001 777777777777 
SCT4	031330 0      0   0   777777777777 000000000001 777777777777 
LBT1	031330 0      0   0   000000000001 000000000001 777777777777 
ST0	031330 0      0   0   000000000001 000000000001 777777777777 
ST1	031330 0      0   0   000000000001 000000000001 777777777777 
ST2	031330 0      0   0   000000000001 000000000001 777777777777 
ST9	031330 0      0   0   000000000001 000000000001 777777777777 


*031342 LDB	14,000015
INITIAL
C(AC)=000000 000077 
C(E)=061400 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=061400 000000   C(C(E))=000000 007700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031342 031342 0   0   135600000015 0            000000007700 
IT1	031342 0      0   0   135600000015 0            000000007700 
AT3	031342 0      0   0   000000000015 0            135600000015 
AT6	031342 000015 0   0   000000000015 0            135600000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 25
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0287

FT0	031342 000015 0   0   061400000000 0            135600000015 
FT1A	031342 000015 0   0   061400000000 0            061400000000 
FT9	031342 000015 0   0   061400000000 0            061400000000 
ET0	031342 000015 0   0   061400000000 0            061400000000 
BYT6	031342 000015 0   0   061400000000 0            061400000000 
BYT7	031342 000015 764 0   061400000000 0            061400000000 
SCT0	031342 000015 764 0   061400000000 0            061400000000 
SCT3	031342 000015 765 0   061400000000 000000000001 061400000000 
SCT3	031342 000015 766 0   061400000000 000000000003 061400000000 
SCT3	031342 000015 767 0   061400000000 000000000007 061400000000 
SCT3	031342 000015 0   0   061400000000 000000000017 061400000000 
SCT3	031342 000015 771 0   061400000000 000000000037 061400000000 
SCT3	031342 000015 772 0   061400000000 000000000077 061400000000 
SCT3	031342 000015 773 0   061400000000 000000000177 061400000000 
SCT3	031342 000015 774 0   061400000000 000000000377 061400000000 
SCT3	031342 000015 775 0   061400000000 000000000777 061400000000 
SCT3	031342 000015 776 0   061400000000 000000001777 061400000000 
SCT3	031342 000015 777 0   061400000000 000000003777 061400000000 
SCT3	031342 000015 0   0   061400000000 000000007777 061400000000 
SCT4	031342 000015 0   0   061400000000 000000007777 061400000000 
BYT7A	031342 000015 006 0   061400000000 000000007777 061400000000 
IT1	031342 0      006 0   061400000000 000000007777 061400000000 
AT3	031342 0      006 0   0            000000007777 061400000000 
AT6	031342 0      006 0   0            000000007777 061400000000 
FT0	031342 0      006 0   000000007700 000000007777 061400000000 
FT1A	031342 0      006 0   000000007700 000000007777 000000007700 
FT9	031343 0      006 0   000000007700 000000007777 000000007700 
ET0	031343 0      772 0   000000007700 000000007777 000000007700 
SCT0	031343 0      772 0   000000007700 000000007777 000000007700 
SCT3	031343 0      773 0   000000003740 000000007777 000000007700 
SCT3	031343 0      774 0   000000001760 000000007777 000000007700 
SCT3	031343 0      775 0   000000000770 000000007777 000000007700 
SCT3	031343 0      776 0   000000000374 000000007777 000000007700 
SCT3	031343 0      777 0   000000000176 000000007777 000000007700 
SCT3	031343 0      0   0   000000000077 000000007777 000000007700 
SCT4	031343 0      0   0   000000000077 000000007777 000000007700 
LBT1	031343 0      0   0   000000000077 000000007777 000000007700 
ST0	031343 0      0   0   000000000077 000000007777 000000007700 
ST1	031343 0      0   0   000000000077 000000007777 000000007700 
ST2	031343 0      0   0   000000000077 000000007777 000000007700 
ST9	031343 0      0   0   000000000077 000000007777 000000007700 


*031355 LDB	13,000014
INITIAL
C(AC)=000000 000013 
C(E)=060600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000077 
C(E)=060600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 26
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0288

IT0	031355 031355 0   0   135540000014 0            777777777777 
IT1	031355 0      0   0   135540000014 0            777777777777 
AT3	031355 0      0   0   000000000014 0            135540000014 
AT6	031355 000014 0   0   000000000014 0            135540000014 
FT0	031355 000014 0   0   060600000000 0            135540000014 
FT1A	031355 000014 0   0   060600000000 0            060600000000 
FT9	031355 000014 0   0   060600000000 0            060600000000 
ET0	031355 000014 0   0   060600000000 0            060600000000 
BYT6	031355 000014 0   0   060600000000 0            060600000000 
BYT7	031355 000014 772 0   060600000000 0            060600000000 
SCT0	031355 000014 772 0   060600000000 0            060600000000 
SCT3	031355 000014 773 0   060600000000 000000000001 060600000000 
SCT3	031355 000014 774 0   060600000000 000000000003 060600000000 
SCT3	031355 000014 775 0   060600000000 000000000007 060600000000 
SCT3	031355 000014 776 0   060600000000 000000000017 060600000000 
SCT3	031355 000014 777 0   060600000000 000000000037 060600000000 
SCT3	031355 000014 0   0   060600000000 000000000077 060600000000 
SCT4	031355 000014 0   0   060600000000 000000000077 060600000000 
BYT7A	031355 000014 006 0   060600000000 000000000077 060600000000 
IT1	031355 0      006 0   060600000000 000000000077 060600000000 
AT3	031355 0      006 0   0            000000000077 060600000000 
AT6	031355 0      006 0   0            000000000077 060600000000 
FT0	031355 0      006 0   777777777777 000000000077 060600000000 
FT1A	031355 0      006 0   777777777777 000000000077 777777777777 
FT9	031356 0      006 0   777777777777 000000000077 777777777777 
ET0	031356 0      772 0   777777777777 000000000077 777777777777 
SCT0	031356 0      772 0   777777777777 000000000077 777777777777 
SCT3	031356 0      773 0   377777777777 000000000077 777777777777 
SCT3	031356 0      774 0   177777777777 000000000077 777777777777 
SCT3	031356 0      775 0   077777777777 000000000077 777777777777 
SCT3	031356 0      776 0   037777777777 000000000077 777777777777 
SCT3	031356 0      777 0   017777777777 000000000077 777777777777 
SCT3	031356 0      0   0   007777777777 000000000077 777777777777 
SCT4	031356 0      0   0   007777777777 000000000077 777777777777 
LBT1	031356 0      0   0   000000000077 000000000077 777777777777 
ST0	031356 0      0   0   000000000077 000000000077 777777777777 
ST1	031356 0      0   0   000000000077 000000000077 777777777777 
ST2	031356 0      0   0   000000000077 000000000077 777777777777 
ST9	031356 0      0   0   000000000077 000000000077 777777777777 


*031367 LDB	10,000011
INITIAL
C(AC)=000000 000010 
C(E)=140600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031367 031367 0   0   135400000011 0            777777777777 
IT1	031367 0      0   0   135400000011 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 27
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0289

AT3	031367 0      0   0   000000000011 0            135400000011 
AT6	031367 000011 0   0   000000000011 0            135400000011 
FT0	031367 000011 0   0   140600000000 0            135400000011 
FT1A	031367 000011 0   0   140600000000 0            140600000000 
FT9	031367 000011 0   0   140600000000 0            140600000000 
ET0	031367 000011 0   0   140600000000 0            140600000000 
BYT6	031367 000011 0   0   140600000000 0            140600000000 
BYT7	031367 000011 772 0   140600000000 0            140600000000 
SCT0	031367 000011 772 0   140600000000 0            140600000000 
SCT3	031367 000011 773 0   140600000000 000000000001 140600000000 
SCT3	031367 000011 774 0   140600000000 000000000003 140600000000 
SCT3	031367 000011 775 0   140600000000 000000000007 140600000000 
SCT3	031367 000011 776 0   140600000000 000000000017 140600000000 
SCT3	031367 000011 777 0   140600000000 000000000037 140600000000 
SCT3	031367 000011 0   0   140600000000 000000000077 140600000000 
SCT4	031367 000011 0   0   140600000000 000000000077 140600000000 
BYT7A	031367 000011 014 0   140600000000 000000000077 140600000000 
IT1	031367 0      014 0   140600000000 000000000077 140600000000 
AT3	031367 0      014 0   0            000000000077 140600000000 
AT6	031367 0      014 0   0            000000000077 140600000000 
FT0	031367 0      014 0   777777777777 000000000077 140600000000 
FT1A	031367 0      014 0   777777777777 000000000077 777777777777 
FT9	031370 0      014 0   777777777777 000000000077 777777777777 
ET0	031370 0      764 0   777777777777 000000000077 777777777777 
SCT0	031370 0      764 0   777777777777 000000000077 777777777777 
SCT3	031370 0      765 0   377777777777 000000000077 777777777777 
SCT3	031370 0      766 0   177777777777 000000000077 777777777777 
SCT3	031370 0      767 0   077777777777 000000000077 777777777777 
SCT3	031370 0      0   0   037777777777 000000000077 777777777777 
SCT3	031370 0      771 0   017777777777 000000000077 777777777777 
SCT3	031370 0      772 0   007777777777 000000000077 777777777777 
SCT3	031370 0      773 0   003777777777 000000000077 777777777777 
SCT3	031370 0      774 0   001777777777 000000000077 777777777777 
SCT3	031370 0      775 0   000777777777 000000000077 777777777777 
SCT3	031370 0      776 0   000377777777 000000000077 777777777777 
SCT3	031370 0      777 0   000177777777 000000000077 777777777777 
SCT3	031370 0      0   0   000077777777 000000000077 777777777777 
SCT4	031370 0      0   0   000077777777 000000000077 777777777777 
LBT1	031370 0      0   0   000000000077 000000000077 777777777777 
ST0	031370 0      0   0   000000000077 000000000077 777777777777 
ST1	031370 0      0   0   000000000077 000000000077 777777777777 
ST2	031370 0      0   0   000000000077 000000000077 777777777777 
ST9	031370 0      0   0   000000000077 000000000077 777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 28
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0290

*031401 LDB	7,000010
INITIAL
C(AC)=000000 000007 
C(E)=140600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   135340000010 0            777777777777 
IT1	031401 0      0   0   135340000010 0            777777777777 
AT3	031401 0      0   0   000000000010 0            135340000010 
AT6	031401 000010 0   0   000000000010 0            135340000010 
FT0	031401 000010 0   0   140600000000 0            135340000010 
FT1A	031401 000010 0   0   140600000000 0            140600000000 
FT9	031401 000010 0   0   140600000000 0            140600000000 
ET0	031401 000010 0   0   140600000000 0            140600000000 
BYT6	031401 000010 0   0   140600000000 0            140600000000 
BYT7	031401 000010 772 0   140600000000 0            140600000000 
SCT0	031401 000010 772 0   140600000000 0            140600000000 
SCT3	031401 000010 773 0   140600000000 000000000001 140600000000 
SCT3	031401 000010 774 0   140600000000 000000000003 140600000000 
SCT3	031401 000010 775 0   140600000000 000000000007 140600000000 
SCT3	031401 000010 776 0   140600000000 000000000017 140600000000 
SCT3	031401 000010 777 0   140600000000 000000000037 140600000000 
SCT3	031401 000010 0   0   140600000000 000000000077 140600000000 
SCT4	031401 000010 0   0   140600000000 000000000077 140600000000 
BYT7A	031401 000010 014 0   140600000000 000000000077 140600000000 
IT1	031401 0      014 0   140600000000 000000000077 140600000000 
AT3	031401 0      014 0   0            000000000077 140600000000 
AT6	031401 0      014 0   0            000000000077 140600000000 
FT0	031401 0      014 0   777777777777 000000000077 140600000000 
FT1A	031401 0      014 0   777777777777 000000000077 777777777777 
FT9	031402 0      014 0   777777777777 000000000077 777777777777 
ET0	031402 0      764 0   777777777777 000000000077 777777777777 
SCT0	031402 0      764 0   777777777777 000000000077 777777777777 
SCT3	031402 0      765 0   377777777777 000000000077 777777777777 
SCT3	031402 0      766 0   177777777777 000000000077 777777777777 
SCT3	031402 0      767 0   077777777777 000000000077 777777777777 
SCT3	031402 0      0   0   037777777777 000000000077 777777777777 
SCT3	031402 0      771 0   017777777777 000000000077 777777777777 
SCT3	031402 0      772 0   007777777777 000000000077 777777777777 
SCT3	031402 0      773 0   003777777777 000000000077 777777777777 
SCT3	031402 0      774 0   001777777777 000000000077 777777777777 
SCT3	031402 0      775 0   000777777777 000000000077 777777777777 
SCT3	031402 0      776 0   000377777777 000000000077 777777777777 
SCT3	031402 0      777 0   000177777777 000000000077 777777777777 
SCT3	031402 0      0   0   000077777777 000000000077 777777777777 
SCT4	031402 0      0   0   000077777777 000000000077 777777777777 
LBT1	031402 0      0   0   000000000077 000000000077 777777777777 
ST0	031402 0      0   0   000000000077 000000000077 777777777777 
ST1	031402 0      0   0   000000000077 000000000077 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 29
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0291

ST2	031402 0      0   0   000000000077 000000000077 777777777777 
ST9	031402 0      0   0   000000000077 000000000077 777777777777 


*031416 LDB	6,@000007
INITIAL
C(AC)=000100 000000 
C(E)=000600 000000   C(C(E))=000600 000014 
FINAL
C(AC)=000000 000044 
C(E)=000600 000014   C(C(E))=000000 000044 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   135320000007 0            000000000044 
IT1	031416 0      0   0   135320000007 0            000000000044 
AT3	031416 0      0   0   000000000007 0            135320000007 
AT4	031416 000007 0   0   000600000000 0            135320000007 
IT1	031416 0      0   0   000600000000 0            135320000007 
AT3	031416 0      0   0   0            0            000600000000 
AT6	031416 0      0   0   0            0            000600000000 
FT0	031416 0      0   0   000600000014 0            000600000000 
FT1A	031416 0      0   0   000600000014 0            000600000014 
FT9	031416 0      0   0   000600000014 0            000600000014 
ET0	031416 0      0   0   000600000014 0            000600000014 
BYT6	031416 0      0   0   000600000014 0            000600000014 
BYT7	031416 0      772 0   000600000014 0            000600000014 
SCT0	031416 0      772 0   000600000014 0            000600000014 
SCT3	031416 0      773 0   000600000014 000000000001 000600000014 
SCT3	031416 0      774 0   000600000014 000000000003 000600000014 
SCT3	031416 0      775 0   000600000014 000000000007 000600000014 
SCT3	031416 0      776 0   000600000014 000000000017 000600000014 
SCT3	031416 0      777 0   000600000014 000000000037 000600000014 
SCT3	031416 0      0   0   000600000014 000000000077 000600000014 
SCT4	031416 0      0   0   000600000014 000000000077 000600000014 
BYT7A	031416 0      0   0   000600000014 000000000077 000600000014 
IT1	031416 0      0   0   000600000014 000000000077 000600000014 
AT3	031416 0      0   0   000000000014 000000000077 000600000014 
AT6	031416 000014 0   0   000000000014 000000000077 000600000014 
FT0	031416 000014 0   0   000000000044 000000000077 000600000014 
FT1A	031416 000014 0   0   000000000044 000000000077 000000000044 
FT9	031417 000014 0   0   000000000044 000000000077 000000000044 
ET0	031417 000014 0   0   000000000044 000000000077 000000000044 
SCT0	031417 000014 0   0   000000000044 000000000077 000000000044 
SCT4	031417 000014 0   0   000000000044 000000000077 000000000044 
LBT1	031417 000014 0   0   000000000044 000000000077 000000000044 
ST0	031417 000014 0   0   000000000044 000000000077 000000000044 
ST1	031417 000014 0   0   000000000044 000000000077 000000000044 
ST2	031417 000014 0   0   000000000044 000000000077 000000000044 
ST9	031417 000014 0   0   000000000044 000000000077 000000000044 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 30
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0292

*031432 LDB	7,000010(7)
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010   C(C(E))=000000 000010 
FINAL
C(AC)=000000 002222 
C(E)=061400 000000   C(C(E))=000000 222222 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   135347000010 0            000000222222 
IT1	031432 0      0   0   135347000010 0            000000222222 
AT1	031432 0      0   0   0            0            135347000010 
AT2	031432 0      0   0   000000000004 0            135347000010 
AT3	031432 0      0   0   000000000014 0            000000000014 
AT6	031432 000014 0   0   000000000014 0            000000000014 
FT0	031432 000014 0   0   061400000000 0            000000000014 
FT1A	031432 000014 0   0   061400000000 0            061400000000 
FT9	031432 000014 0   0   061400000000 0            061400000000 
ET0	031432 000014 0   0   061400000000 0            061400000000 
BYT6	031432 000014 0   0   061400000000 0            061400000000 
BYT7	031432 000014 764 0   061400000000 0            061400000000 
SCT0	031432 000014 764 0   061400000000 0            061400000000 
SCT3	031432 000014 765 0   061400000000 000000000001 061400000000 
SCT3	031432 000014 766 0   061400000000 000000000003 061400000000 
SCT3	031432 000014 767 0   061400000000 000000000007 061400000000 
SCT3	031432 000014 0   0   061400000000 000000000017 061400000000 
SCT3	031432 000014 771 0   061400000000 000000000037 061400000000 
SCT3	031432 000014 772 0   061400000000 000000000077 061400000000 
SCT3	031432 000014 773 0   061400000000 000000000177 061400000000 
SCT3	031432 000014 774 0   061400000000 000000000377 061400000000 
SCT3	031432 000014 775 0   061400000000 000000000777 061400000000 
SCT3	031432 000014 776 0   061400000000 000000001777 061400000000 
SCT3	031432 000014 777 0   061400000000 000000003777 061400000000 
SCT3	031432 000014 0   0   061400000000 000000007777 061400000000 
SCT4	031432 000014 0   0   061400000000 000000007777 061400000000 
BYT7A	031432 000014 006 0   061400000000 000000007777 061400000000 
IT1	031432 0      006 0   061400000000 000000007777 061400000000 
AT3	031432 0      006 0   0            000000007777 061400000000 
AT6	031432 0      006 0   0            000000007777 061400000000 
FT0	031432 0      006 0   000000222222 000000007777 061400000000 
FT1A	031432 0      006 0   000000222222 000000007777 000000222222 
FT9	031433 0      006 0   000000222222 000000007777 000000222222 
ET0	031433 0      772 0   000000222222 000000007777 000000222222 
SCT0	031433 0      772 0   000000222222 000000007777 000000222222 
SCT3	031433 0      773 0   000000111111 000000007777 000000222222 
SCT3	031433 0      774 0   000000044444 000000007777 000000222222 
SCT3	031433 0      775 0   000000022222 000000007777 000000222222 
SCT3	031433 0      776 0   000000011111 000000007777 000000222222 
SCT3	031433 0      777 0   000000004444 000000007777 000000222222 
SCT3	031433 0      0   0   000000002222 000000007777 000000222222 
SCT4	031433 0      0   0   000000002222 000000007777 000000222222 
LBT1	031433 0      0   0   000000002222 000000007777 000000222222 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 31
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0293

ST0	031433 0      0   0   000000002222 000000007777 000000222222 
ST1	031433 0      0   0   000000002222 000000007777 000000222222 
ST2	031433 0      0   0   000000002222 000000007777 000000222222 
ST9	031433 0      0   0   000000002222 000000007777 000000222222 


*031447 LDB	10,000011
INITIAL
C(AC)=000000 000010 
C(E)=000607 000005   C(C(E))=000000 000055 
FINAL
C(AC)=000000 000077 
C(E)=000607 000005   C(C(E))=000000 000055 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   135400000011 0            000000000077 
IT1	031447 0      0   0   135400000011 0            000000000077 
AT3	031447 0      0   0   000000000011 0            135400000011 
AT6	031447 000011 0   0   000000000011 0            135400000011 
FT0	031447 000011 0   0   000607000005 0            135400000011 
FT1A	031447 000011 0   0   000607000005 0            000607000005 
FT9	031447 000011 0   0   000607000005 0            000607000005 
ET0	031447 000011 0   0   000607000005 0            000607000005 
BYT6	031447 000011 0   0   000607000005 0            000607000005 
BYT7	031447 000011 772 0   000607000005 0            000607000005 
SCT0	031447 000011 772 0   000607000005 0            000607000005 
SCT3	031447 000011 773 0   000607000005 000000000001 000607000005 
SCT3	031447 000011 774 0   000607000005 000000000003 000607000005 
SCT3	031447 000011 775 0   000607000005 000000000007 000607000005 
SCT3	031447 000011 776 0   000607000005 000000000017 000607000005 
SCT3	031447 000011 777 0   000607000005 000000000037 000607000005 
SCT3	031447 000011 0   0   000607000005 000000000077 000607000005 
SCT4	031447 000011 0   0   000607000005 000000000077 000607000005 
BYT7A	031447 000011 0   0   000607000005 000000000077 000607000005 
IT1	031447 0      0   0   000607000005 000000000077 000607000005 
AT1	031447 0      0   0   0            000000000077 000607000005 
AT2	031447 0      0   0   000000000010 000000000077 000607000005 
AT3	031447 0      0   0   000000000015 000000000077 000000000015 
AT6	031447 000015 0   0   000000000015 000000000077 000000000015 
FT0	031447 000015 0   0   000000000077 000000000077 000000000015 
FT1A	031447 000015 0   0   000000000077 000000000077 000000000077 
FT9	031450 000015 0   0   000000000077 000000000077 000000000077 
ET0	031450 000015 0   0   000000000077 000000000077 000000000077 
SCT0	031450 000015 0   0   000000000077 000000000077 000000000077 
SCT4	031450 000015 0   0   000000000077 000000000077 000000000077 
LBT1	031450 000015 0   0   000000000077 000000000077 000000000077 
ST0	031450 000015 0   0   000000000077 000000000077 000000000077 
ST1	031450 000015 0   0   000000000077 000000000077 000000000077 
ST2	031450 000015 0   0   000000000077 000000000077 000000000077 
ST9	031450 000015 0   0   000000000077 000000000077 000000000077 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 32
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0294

*031464 LDB	10,000011
INITIAL
C(AC)=000000 000000 
C(E)=000607 000005   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 
C(E)=000607 000005   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031464 031464 0   0   135400000011 0            000000000077 
IT1	031464 0      0   0   135400000011 0            000000000077 
AT3	031464 0      0   0   000000000011 0            135400000011 
AT6	031464 000011 0   0   000000000011 0            135400000011 
FT0	031464 000011 0   0   000607000005 0            135400000011 
FT1A	031464 000011 0   0   000607000005 0            000607000005 
FT9	031464 000011 0   0   000607000005 0            000607000005 
ET0	031464 000011 0   0   000607000005 0            000607000005 
BYT6	031464 000011 0   0   000607000005 0            000607000005 
BYT7	031464 000011 772 0   000607000005 0            000607000005 
SCT0	031464 000011 772 0   000607000005 0            000607000005 
SCT3	031464 000011 773 0   000607000005 000000000001 000607000005 
SCT3	031464 000011 774 0   000607000005 000000000003 000607000005 
SCT3	031464 000011 775 0   000607000005 000000000007 000607000005 
SCT3	031464 000011 776 0   000607000005 000000000017 000607000005 
SCT3	031464 000011 777 0   000607000005 000000000037 000607000005 
SCT3	031464 000011 0   0   000607000005 000000000077 000607000005 
SCT4	031464 000011 0   0   000607000005 000000000077 000607000005 
BYT7A	031464 000011 0   0   000607000005 000000000077 000607000005 
IT1	031464 0      0   0   000607000005 000000000077 000607000005 
AT1	031464 0      0   0   0            000000000077 000607000005 
AT2	031464 0      0   0   000000000010 000000000077 000607000005 
AT3	031464 0      0   0   000000000015 000000000077 000000000015 
AT6	031464 000015 0   0   000000000015 000000000077 000000000015 
FT0	031464 000015 0   0   000000000077 000000000077 000000000015 
FT1A	031464 000015 0   0   000000000077 000000000077 000000000077 
FT9	031465 000015 0   0   000000000077 000000000077 000000000077 
ET0	031465 000015 0   0   000000000077 000000000077 000000000077 
SCT0	031465 000015 0   0   000000000077 000000000077 000000000077 
SCT4	031465 000015 0   0   000000000077 000000000077 000000000077 
LBT1	031465 000015 0   0   000000000077 000000000077 000000000077 
ST0	031465 000015 0   0   000000000077 000000000077 000000000077 
ST1	031465 000015 0   0   000000000077 000000000077 000000000077 
ST2	031465 000015 0   0   000000000077 000000000077 000000000077 
ST9	031465 000015 0   0   000000000077 000000000077 000000000077 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 33
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0295

*031502 LDB	10,000011
INITIAL
C(AC)=000000 000077 
C(E)=000607 000005   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000015 
C(E)=000607 000005   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   135400000011 0            000000000015 
IT1	031502 0      0   0   135400000011 0            000000000015 
AT3	031502 0      0   0   000000000011 0            135400000011 
AT6	031502 000011 0   0   000000000011 0            135400000011 
FT0	031502 000011 0   0   000607000005 0            135400000011 
FT1A	031502 000011 0   0   000607000005 0            000607000005 
FT9	031502 000011 0   0   000607000005 0            000607000005 
ET0	031502 000011 0   0   000607000005 0            000607000005 
BYT6	031502 000011 0   0   000607000005 0            000607000005 
BYT7	031502 000011 772 0   000607000005 0            000607000005 
SCT0	031502 000011 772 0   000607000005 0            000607000005 
SCT3	031502 000011 773 0   000607000005 000000000001 000607000005 
SCT3	031502 000011 774 0   000607000005 000000000003 000607000005 
SCT3	031502 000011 775 0   000607000005 000000000007 000607000005 
SCT3	031502 000011 776 0   000607000005 000000000017 000607000005 
SCT3	031502 000011 777 0   000607000005 000000000037 000607000005 
SCT3	031502 000011 0   0   000607000005 000000000077 000607000005 
SCT4	031502 000011 0   0   000607000005 000000000077 000607000005 
BYT7A	031502 000011 0   0   000607000005 000000000077 000607000005 
IT1	031502 0      0   0   000607000005 000000000077 000607000005 
AT1	031502 0      0   0   0            000000000077 000607000005 
AT2	031502 0      0   0   000000000010 000000000077 000607000005 
AT3	031502 0      0   0   000000000015 000000000077 000000000015 
AT6	031502 000015 0   0   000000000015 000000000077 000000000015 
FT0	031502 000015 0   0   000000000015 000000000077 000000000015 
FT1A	031502 000015 0   0   000000000015 000000000077 000000000015 
FT9	031503 000015 0   0   000000000015 000000000077 000000000015 
ET0	031503 000015 0   0   000000000015 000000000077 000000000015 
SCT0	031503 000015 0   0   000000000015 000000000077 000000000015 
SCT4	031503 000015 0   0   000000000015 000000000077 000000000015 
LBT1	031503 000015 0   0   000000000015 000000000077 000000000015 
ST0	031503 000015 0   0   000000000015 000000000077 000000000015 
ST1	031503 000015 0   0   000000000015 000000000077 000000000015 
ST2	031503 000015 0   0   000000000015 000000000077 000000000015 
ST9	031503 000015 0   0   000000000015 000000000077 000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 34
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0296

*031520 LDB	10,000011
INITIAL
C(AC)=000000 000015 
C(E)=000607 000005   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000015 
C(E)=000607 000005   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031520 031520 0   0   135400000011 0            000000000015 
IT1	031520 0      0   0   135400000011 0            000000000015 
AT3	031520 0      0   0   000000000011 0            135400000011 
AT6	031520 000011 0   0   000000000011 0            135400000011 
FT0	031520 000011 0   0   000607000005 0            135400000011 
FT1A	031520 000011 0   0   000607000005 0            000607000005 
FT9	031520 000011 0   0   000607000005 0            000607000005 
ET0	031520 000011 0   0   000607000005 0            000607000005 
BYT6	031520 000011 0   0   000607000005 0            000607000005 
BYT7	031520 000011 772 0   000607000005 0            000607000005 
SCT0	031520 000011 772 0   000607000005 0            000607000005 
SCT3	031520 000011 773 0   000607000005 000000000001 000607000005 
SCT3	031520 000011 774 0   000607000005 000000000003 000607000005 
SCT3	031520 000011 775 0   000607000005 000000000007 000607000005 
SCT3	031520 000011 776 0   000607000005 000000000017 000607000005 
SCT3	031520 000011 777 0   000607000005 000000000037 000607000005 
SCT3	031520 000011 0   0   000607000005 000000000077 000607000005 
SCT4	031520 000011 0   0   000607000005 000000000077 000607000005 
BYT7A	031520 000011 0   0   000607000005 000000000077 000607000005 
IT1	031520 0      0   0   000607000005 000000000077 000607000005 
AT1	031520 0      0   0   0            000000000077 000607000005 
AT2	031520 0      0   0   000000000010 000000000077 000607000005 
AT3	031520 0      0   0   000000000015 000000000077 000000000015 
AT6	031520 000015 0   0   000000000015 000000000077 000000000015 
FT0	031520 000015 0   0   000000000015 000000000077 000000000015 
FT1A	031520 000015 0   0   000000000015 000000000077 000000000015 
FT9	031521 000015 0   0   000000000015 000000000077 000000000015 
ET0	031521 000015 0   0   000000000015 000000000077 000000000015 
SCT0	031521 000015 0   0   000000000015 000000000077 000000000015 
SCT4	031521 000015 0   0   000000000015 000000000077 000000000015 
LBT1	031521 000015 0   0   000000000015 000000000077 000000000015 
ST0	031521 000015 0   0   000000000015 000000000077 000000000015 
ST1	031521 000015 0   0   000000000015 000000000077 000000000015 
ST2	031521 000015 0   0   000000000015 000000000077 000000000015 
ST9	031521 000015 0   0   000000000015 000000000077 000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 35
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0297

*031532 ILDB	5,000006
INITIAL
C(AC)=000000 000000 
C(E)=160600 000000   C(C(E))=000000 000007 
FINAL
C(AC)=000000 000000 
C(E)=100600 000000   C(C(E))=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   134240000006 0            000000000007 
IT1	031532 0      0   0   134240000006 0            000000000007 
AT3	031532 0      0   0   000000000006 0            134240000006 
AT6	031532 000006 0   0   000000000006 0            134240000006 
FT0	031532 000006 0   0   160600000000 0            134240000006 
FT1A	031532 000006 0   0   160600000000 0            160600000000 
FT9	031532 000006 0   0   160600000000 0            160600000000 
ET0	031532 000006 0   0   160600000000 0            160600000000 
BYT1	031532 000006 016 0   160600000000 0            160600000000 
BYT4	031532 000006 0   0   100600000000 0            160600000000 
BYT7	031532 000006 772 0   100600000000 0            160600000000 
SCT0	031532 000006 772 0   100600000000 0            160600000000 
SCT3	031532 000006 773 0   100600000000 000000000001 160600000000 
SCT3	031532 000006 774 0   100600000000 000000000003 160600000000 
SCT3	031532 000006 775 0   100600000000 000000000007 160600000000 
SCT3	031532 000006 776 0   100600000000 000000000017 160600000000 
SCT3	031532 000006 777 0   100600000000 000000000037 160600000000 
SCT3	031532 000006 0   0   100600000000 000000000077 160600000000 
SCT4	031532 000006 0   0   100600000000 000000000077 160600000000 
BYT7A	031532 000006 0   0   100600000000 000000000077 160600000000 
IT1	031532 0      0   0   100600000000 000000000077 160600000000 
AT3	031532 0      0   0   0            000000000077 100600000000 
AT6	031532 0      0   0   0            000000000077 100600000000 
FT0	031532 0      0   0   000000000007 000000000077 100600000000 
FT1A	031532 0      0   0   000000000007 000000000077 000000000007 
FT9	031533 0      0   0   000000000007 000000000077 000000000007 
ET0	031533 0      0   0   000000000007 000000000077 000000000007 
SCT0	031533 0      0   0   000000000007 000000000077 000000000007 
SCT3	031533 0      771 0   000000000003 000000000077 000000000007 
SCT3	031533 0      772 0   000000000001 000000000077 000000000007 
SCT3	031533 0      773 0   0            000000000077 000000000007 
SCT3	031533 0      774 0   0            000000000077 000000000007 
SCT3	031533 0      775 0   0            000000000077 000000000007 
SCT3	031533 0      776 0   0            000000000077 000000000007 
SCT3	031533 0      777 0   0            000000000077 000000000007 
SCT3	031533 0      0   0   0            000000000077 000000000007 
SCT4	031533 0      0   0   0            000000000077 000000000007 
LBT1	031533 0      0   0   0            000000000077 000000000007 
ST0	031533 0      0   0   0            000000000077 000000000007 
ST1	031533 0      0   0   0            000000000077 000000000007 
ST2	031533 0      0   0   0            000000000077 000000000007 
ST9	031533 0      0   0   0            000000000077 000000000007 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 36
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0298


*031545 ILDB	14,000015
INITIAL
C(AC)=000000 000033 
C(E)=222200 000000   C(C(E))=000000 777777 
FINAL
C(AC)=000000 777777 
C(E)=002200 000000   C(C(E))=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   134600000015 0            000000777777 
IT1	031545 0      0   0   134600000015 0            000000777777 
AT3	031545 0      0   0   000000000015 0            134600000015 
AT6	031545 000015 0   0   000000000015 0            134600000015 
FT0	031545 000015 0   0   222200000000 0            134600000015 
FT1A	031545 000015 0   0   222200000000 0            222200000000 
FT9	031545 000015 0   0   222200000000 0            222200000000 
ET0	031545 000015 0   0   222200000000 0            222200000000 
BYT1	031545 000015 022 0   222200000000 0            222200000000 
BYT4	031545 000015 0   0   002200000000 0            222200000000 
BYT7	031545 000015 756 0   002200000000 0            222200000000 
SCT0	031545 000015 756 0   002200000000 0            222200000000 
SCT3	031545 000015 757 0   002200000000 000000000001 222200000000 
SCT3	031545 000015 0   0   002200000000 000000000003 222200000000 
SCT3	031545 000015 761 0   002200000000 000000000007 222200000000 
SCT3	031545 000015 762 0   002200000000 000000000017 222200000000 
SCT3	031545 000015 763 0   002200000000 000000000037 222200000000 
SCT3	031545 000015 764 0   002200000000 000000000077 222200000000 
SCT3	031545 000015 765 0   002200000000 000000000177 222200000000 
SCT3	031545 000015 766 0   002200000000 000000000377 222200000000 
SCT3	031545 000015 767 0   002200000000 000000000777 222200000000 
SCT3	031545 000015 0   0   002200000000 000000001777 222200000000 
SCT3	031545 000015 771 0   002200000000 000000003777 222200000000 
SCT3	031545 000015 772 0   002200000000 000000007777 222200000000 
SCT3	031545 000015 773 0   002200000000 000000017777 222200000000 
SCT3	031545 000015 774 0   002200000000 000000037777 222200000000 
SCT3	031545 000015 775 0   002200000000 000000077777 222200000000 
SCT3	031545 000015 776 0   002200000000 000000177777 222200000000 
SCT3	031545 000015 777 0   002200000000 000000377777 222200000000 
SCT3	031545 000015 0   0   002200000000 000000777777 222200000000 
SCT4	031545 000015 0   0   002200000000 000000777777 222200000000 
BYT7A	031545 000015 0   0   002200000000 000000777777 222200000000 
IT1	031545 0      0   0   002200000000 000000777777 222200000000 
AT3	031545 0      0   0   0            000000777777 002200000000 
AT6	031545 0      0   0   0            000000777777 002200000000 
FT0	031545 0      0   0   000000777777 000000777777 002200000000 
FT1A	031545 0      0   0   000000777777 000000777777 000000777777 
FT9	031546 0      0   0   000000777777 000000777777 000000777777 
ET0	031546 0      0   0   000000777777 000000777777 000000777777 
SCT0	031546 0      0   0   000000777777 000000777777 000000777777 
SCT4	031546 0      0   0   000000777777 000000777777 000000777777 
LBT1	031546 0      0   0   000000777777 000000777777 000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 37
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0299

ST0	031546 0      0   0   000000777777 000000777777 000000777777 
ST1	031546 0      0   0   000000777777 000000777777 000000777777 
ST2	031546 0      0   0   000000777777 000000777777 000000777777 
ST9	031546 0      0   0   000000777777 000000777777 000000777777 


*031562 ILDB	13,000014
INITIAL
C(AC)=000000 000077 
C(E)=220600 000000   C(C(E))=000000 770000 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 770000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031562 031562 0   0   134540000014 0            000000770000 
IT1	031562 0      0   0   134540000014 0            000000770000 
AT3	031562 0      0   0   000000000014 0            134540000014 
AT6	031562 000014 0   0   000000000014 0            134540000014 
FT0	031562 000014 0   0   220600000000 0            134540000014 
FT1A	031562 000014 0   0   220600000000 0            220600000000 
FT9	031562 000014 0   0   220600000000 0            220600000000 
ET0	031562 000014 0   0   220600000000 0            220600000000 
BYT1	031562 000014 022 0   220600000000 0            220600000000 
BYT4	031562 000014 0   0   140600000000 0            220600000000 
BYT7	031562 000014 772 0   140600000000 0            220600000000 
SCT0	031562 000014 772 0   140600000000 0            220600000000 
SCT3	031562 000014 773 0   140600000000 000000000001 220600000000 
SCT3	031562 000014 774 0   140600000000 000000000003 220600000000 
SCT3	031562 000014 775 0   140600000000 000000000007 220600000000 
SCT3	031562 000014 776 0   140600000000 000000000017 220600000000 
SCT3	031562 000014 777 0   140600000000 000000000037 220600000000 
SCT3	031562 000014 0   0   140600000000 000000000077 220600000000 
SCT4	031562 000014 0   0   140600000000 000000000077 220600000000 
BYT7A	031562 000014 014 0   140600000000 000000000077 220600000000 
IT1	031562 0      014 0   140600000000 000000000077 220600000000 
AT3	031562 0      014 0   0            000000000077 140600000000 
AT6	031562 0      014 0   0            000000000077 140600000000 
FT0	031562 0      014 0   000000770000 000000000077 140600000000 
FT1A	031562 0      014 0   000000770000 000000000077 000000770000 
FT9	031563 0      014 0   000000770000 000000000077 000000770000 
ET0	031563 0      764 0   000000770000 000000000077 000000770000 
SCT0	031563 0      764 0   000000770000 000000000077 000000770000 
SCT3	031563 0      765 0   000000374000 000000000077 000000770000 
SCT3	031563 0      766 0   000000176000 000000000077 000000770000 
SCT3	031563 0      767 0   000000077000 000000000077 000000770000 
SCT3	031563 0      0   0   000000037400 000000000077 000000770000 
SCT3	031563 0      771 0   000000017600 000000000077 000000770000 
SCT3	031563 0      772 0   000000007700 000000000077 000000770000 
SCT3	031563 0      773 0   000000003740 000000000077 000000770000 
SCT3	031563 0      774 0   000000001760 000000000077 000000770000 
SCT3	031563 0      775 0   000000000770 000000000077 000000770000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 38
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0300

SCT3	031563 0      776 0   000000000374 000000000077 000000770000 
SCT3	031563 0      777 0   000000000176 000000000077 000000770000 
SCT3	031563 0      0   0   000000000077 000000000077 000000770000 
SCT4	031563 0      0   0   000000000077 000000000077 000000770000 
LBT1	031563 0      0   0   000000000077 000000000077 000000770000 
ST0	031563 0      0   0   000000000077 000000000077 000000770000 
ST1	031563 0      0   0   000000000077 000000000077 000000770000 
ST2	031563 0      0   0   000000000077 000000000077 000000770000 
ST9	031563 0      0   0   000000000077 000000000077 000000770000 


*031600 DPB	12,000013
INITIAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   137500000013 0            000000770000 
IT1	0      0      0   0   137500000013 0            000000770000 
AT3	0      0      0   0   000000000013 0            137500000013 
AT6	0      000013 0   0   000000000013 0            137500000013 
FT0	0      000013 0   0   140600000000 0            137500000013 
FT1A	0      000013 0   0   140600000000 0            140600000000 
FT9	0      000013 0   0   140600000000 0            140600000000 
ET0	0      000013 0   0   140600000000 0            140600000000 
BYT6	0      000013 0   0   140600000000 0            140600000000 
BYT7	0      000013 772 0   140600000000 0            140600000000 
SCT0	0      000013 772 0   140600000000 0            140600000000 
SCT3	0      000013 773 0   140600000000 000000000001 140600000000 
SCT3	0      000013 774 0   140600000000 000000000003 140600000000 
SCT3	0      000013 775 0   140600000000 000000000007 140600000000 
SCT3	0      000013 776 0   140600000000 000000000017 140600000000 
SCT3	0      000013 777 0   140600000000 000000000037 140600000000 
SCT3	0      000013 0   0   140600000000 000000000077 140600000000 
SCT4	0      000013 0   0   140600000000 000000000077 140600000000 
BYT7A	0      000013 014 0   140600000000 000000000077 140600000000 
IT1	0      0      014 0   140600000000 000000000077 140600000000 
AT3	0      0      014 0   0            000000000077 140600000000 
AT6	0      0      014 0   0            000000000077 140600000000 
FT0	0      0      014 0   0            000000000077 140600000000 
FT1A	0      0      014 0   0            000000000077 0            
FT2	0      0      014 0   0            000000000077 0            
FT2RQ	0      0      014 0   000000000077 000000000077 0            
FT3	0      0      014 0   000000000077 000000000077 0            
FT9	031601 0      014 0   000000000077 000000000077 0            
ET0	031601 0      764 0   000000000077 000000000077 0            
SCT0	031601 0      764 0   000000000077 000000000077 0            
SCT3	031601 0      765 0   000000000176 000000000176 0            
SCT3	031601 0      766 0   000000000374 000000000374 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 39
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0301

SCT3	031601 0      767 0   000000000770 000000000770 0            
SCT3	031601 0      0   0   000000001760 000000001760 0            
SCT3	031601 0      771 0   000000003740 000000003740 0            
SCT3	031601 0      772 0   000000007700 000000007700 0            
SCT3	031601 0      773 0   000000017600 000000017600 0            
SCT3	031601 0      774 0   000000037400 000000037400 0            
SCT3	031601 0      775 0   000000077000 000000077000 0            
SCT3	031601 0      776 0   000000176000 000000176000 0            
SCT3	031601 0      777 0   000000374000 000000374000 0            
SCT3	031601 0      0   0   000000770000 000000770000 0            
SCT4	031601 0      0   0   000000770000 000000770000 0            
DBT1	031601 0      0   0   000000770000 000000770000 0            
DBT2	031601 0      0   0   000000770000 0            000000770000 
DBT3	031601 0      0   0   777777007777 0            000000770000 
DBT4	031601 0      0   0   0            0            000000770000 
DBT5	031601 0      0   0   000000770000 0            000000770000 
ST0	031601 0      0   0   000000770000 0            000000770000 
ST6	031601 0      0   0   000000770000 0            000000770000 
ST6A	031601 0      0   0   000000770000 0            000000770000 
ST9	031601 0      0   0   000000770000 0            000000770000 


*031614 DPB	7,000010
INITIAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   137340000010 0            000000550000 
IT1	031614 0      0   0   137340000010 0            000000550000 
AT3	031614 0      0   0   000000000010 0            137340000010 
AT6	031614 000010 0   0   000000000010 0            137340000010 
FT0	031614 000010 0   0   140600000000 0            137340000010 
FT1A	031614 000010 0   0   140600000000 0            140600000000 
FT9	031614 000010 0   0   140600000000 0            140600000000 
ET0	031614 000010 0   0   140600000000 0            140600000000 
BYT6	031614 000010 0   0   140600000000 0            140600000000 
BYT7	031614 000010 772 0   140600000000 0            140600000000 
SCT0	031614 000010 772 0   140600000000 0            140600000000 
SCT3	031614 000010 773 0   140600000000 000000000001 140600000000 
SCT3	031614 000010 774 0   140600000000 000000000003 140600000000 
SCT3	031614 000010 775 0   140600000000 000000000007 140600000000 
SCT3	031614 000010 776 0   140600000000 000000000017 140600000000 
SCT3	031614 000010 777 0   140600000000 000000000037 140600000000 
SCT3	031614 000010 0   0   140600000000 000000000077 140600000000 
SCT4	031614 000010 0   0   140600000000 000000000077 140600000000 
BYT7A	031614 000010 014 0   140600000000 000000000077 140600000000 
IT1	031614 0      014 0   140600000000 000000000077 140600000000 
AT3	031614 0      014 0   0            000000000077 140600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 40
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0302

AT6	031614 0      014 0   0            000000000077 140600000000 
FT0	031614 0      014 0   777777777777 000000000077 140600000000 
FT1A	031614 0      014 0   777777777777 000000000077 777777777777 
FT2	031614 0      014 0   0            000000000077 777777777777 
FT2RQ	031614 0      014 0   000000000055 000000000077 777777777777 
FT3	031614 0      014 0   000000000055 000000000077 777777777777 
FT9	031615 0      014 0   000000000055 000000000077 777777777777 
ET0	031615 0      764 0   000000000055 000000000077 777777777777 
SCT0	031615 0      764 0   000000000055 000000000077 777777777777 
SCT3	031615 0      765 0   000000000132 000000000176 777777777777 
SCT3	031615 0      766 0   000000000264 000000000374 777777777777 
SCT3	031615 0      767 0   000000000550 000000000770 777777777777 
SCT3	031615 0      0   0   000000001320 000000001760 777777777777 
SCT3	031615 0      771 0   000000002640 000000003740 777777777777 
SCT3	031615 0      772 0   000000005500 000000007700 777777777777 
SCT3	031615 0      773 0   000000013200 000000017600 777777777777 
SCT3	031615 0      774 0   000000026400 000000037400 777777777777 
SCT3	031615 0      775 0   000000055000 000000077000 777777777777 
SCT3	031615 0      776 0   000000132000 000000176000 777777777777 
SCT3	031615 0      777 0   000000264000 000000374000 777777777777 
SCT3	031615 0      0   0   000000550000 000000770000 777777777777 
SCT4	031615 0      0   0   000000550000 000000770000 777777777777 
DBT1	031615 0      0   0   000000550000 000000770000 777777777777 
DBT2	031615 0      0   0   000000770000 777777777777 000000550000 
DBT3	031615 0      0   0   777777007777 777777777777 000000550000 
DBT4	031615 0      0   0   777777007777 777777777777 000000550000 
DBT5	031615 0      0   0   777777557777 777777777777 000000550000 
ST0	031615 0      0   0   777777557777 777777777777 000000550000 
ST6	031615 0      0   0   777777557777 777777777777 000000550000 
ST6A	031615 0      0   0   777777557777 777777777777 000000550000 
ST9	031615 0      0   0   777777557777 777777777777 000000550000 


*031631 DPB	5,000006
INITIAL
C(AC)=000000 005555 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 005555 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031631 031631 0   0   137240000006 0            000000550000 
IT1	031631 0      0   0   137240000006 0            000000550000 
AT3	031631 0      0   0   000000000006 0            137240000006 
AT6	031631 000006 0   0   000000000006 0            137240000006 
FT0	031631 000006 0   0   140600000000 0            137240000006 
FT1A	031631 000006 0   0   140600000000 0            140600000000 
FT9	031631 000006 0   0   140600000000 0            140600000000 
ET0	031631 000006 0   0   140600000000 0            140600000000 
BYT6	031631 000006 0   0   140600000000 0            140600000000 
BYT7	031631 000006 772 0   140600000000 0            140600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 41
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0303

SCT0	031631 000006 772 0   140600000000 0            140600000000 
SCT3	031631 000006 773 0   140600000000 000000000001 140600000000 
SCT3	031631 000006 774 0   140600000000 000000000003 140600000000 
SCT3	031631 000006 775 0   140600000000 000000000007 140600000000 
SCT3	031631 000006 776 0   140600000000 000000000017 140600000000 
SCT3	031631 000006 777 0   140600000000 000000000037 140600000000 
SCT3	031631 000006 0   0   140600000000 000000000077 140600000000 
SCT4	031631 000006 0   0   140600000000 000000000077 140600000000 
BYT7A	031631 000006 014 0   140600000000 000000000077 140600000000 
IT1	031631 0      014 0   140600000000 000000000077 140600000000 
AT3	031631 0      014 0   0            000000000077 140600000000 
AT6	031631 0      014 0   0            000000000077 140600000000 
FT0	031631 0      014 0   0            000000000077 140600000000 
FT1A	031631 0      014 0   0            000000000077 0            
FT2	031631 0      014 0   0            000000000077 0            
FT2RQ	031631 0      014 0   000000005555 000000000077 0            
FT3	031631 0      014 0   000000005555 000000000077 0            
FT9	031632 0      014 0   000000005555 000000000077 0            
ET0	031632 0      764 0   000000005555 000000000077 0            
SCT0	031632 0      764 0   000000005555 000000000077 0            
SCT3	031632 0      765 0   000000013332 000000000176 0            
SCT3	031632 0      766 0   000000026664 000000000374 0            
SCT3	031632 0      767 0   000000055550 000000000770 0            
SCT3	031632 0      0   0   000000133320 000000001760 0            
SCT3	031632 0      771 0   000000266640 000000003740 0            
SCT3	031632 0      772 0   000000555500 000000007700 0            
SCT3	031632 0      773 0   000001333200 000000017600 0            
SCT3	031632 0      774 0   000002666400 000000037400 0            
SCT3	031632 0      775 0   000005555000 000000077000 0            
SCT3	031632 0      776 0   000013332000 000000176000 0            
SCT3	031632 0      777 0   000026664000 000000374000 0            
SCT3	031632 0      0   0   000055550000 000000770000 0            
SCT4	031632 0      0   0   000055550000 000000770000 0            
DBT1	031632 0      0   0   000055550000 000000770000 0            
DBT2	031632 0      0   0   000000770000 0            000055550000 
DBT3	031632 0      0   0   777777007777 0            000000550000 
DBT4	031632 0      0   0   0            0            000000550000 
DBT5	031632 0      0   0   000000550000 0            000000550000 
ST0	031632 0      0   0   000000550000 0            000000550000 
ST6	031632 0      0   0   000000550000 0            000000550000 
ST6A	031632 0      0   0   000000550000 0            000000550000 
ST9	031632 0      0   0   000000550000 0            000000550000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 42
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0304

*031645 DPB	14,000015
INITIAL
C(AC)=000000 000055 
C(E)=061400 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 
C(E)=061400 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   137600000015 0            000000005500 
IT1	031645 0      0   0   137600000015 0            000000005500 
AT3	031645 0      0   0   000000000015 0            137600000015 
AT6	031645 000015 0   0   000000000015 0            137600000015 
FT0	031645 000015 0   0   061400000000 0            137600000015 
FT1A	031645 000015 0   0   061400000000 0            061400000000 
FT9	031645 000015 0   0   061400000000 0            061400000000 
ET0	031645 000015 0   0   061400000000 0            061400000000 
BYT6	031645 000015 0   0   061400000000 0            061400000000 
BYT7	031645 000015 764 0   061400000000 0            061400000000 
SCT0	031645 000015 764 0   061400000000 0            061400000000 
SCT3	031645 000015 765 0   061400000000 000000000001 061400000000 
SCT3	031645 000015 766 0   061400000000 000000000003 061400000000 
SCT3	031645 000015 767 0   061400000000 000000000007 061400000000 
SCT3	031645 000015 0   0   061400000000 000000000017 061400000000 
SCT3	031645 000015 771 0   061400000000 000000000037 061400000000 
SCT3	031645 000015 772 0   061400000000 000000000077 061400000000 
SCT3	031645 000015 773 0   061400000000 000000000177 061400000000 
SCT3	031645 000015 774 0   061400000000 000000000377 061400000000 
SCT3	031645 000015 775 0   061400000000 000000000777 061400000000 
SCT3	031645 000015 776 0   061400000000 000000001777 061400000000 
SCT3	031645 000015 777 0   061400000000 000000003777 061400000000 
SCT3	031645 000015 0   0   061400000000 000000007777 061400000000 
SCT4	031645 000015 0   0   061400000000 000000007777 061400000000 
BYT7A	031645 000015 006 0   061400000000 000000007777 061400000000 
IT1	031645 0      006 0   061400000000 000000007777 061400000000 
AT3	031645 0      006 0   0            000000007777 061400000000 
AT6	031645 0      006 0   0            000000007777 061400000000 
FT0	031645 0      006 0   777777777777 000000007777 061400000000 
FT1A	031645 0      006 0   777777777777 000000007777 777777777777 
FT2	031645 0      006 0   0            000000007777 777777777777 
FT2RQ	031645 0      006 0   000000000055 000000007777 777777777777 
FT3	031645 0      006 0   000000000055 000000007777 777777777777 
FT9	031646 0      006 0   000000000055 000000007777 777777777777 
ET0	031646 0      772 0   000000000055 000000007777 777777777777 
SCT0	031646 0      772 0   000000000055 000000007777 777777777777 
SCT3	031646 0      773 0   000000000132 000000017776 777777777777 
SCT3	031646 0      774 0   000000000264 000000037774 777777777777 
SCT3	031646 0      775 0   000000000550 000000077770 777777777777 
SCT3	031646 0      776 0   000000001320 000000177760 777777777777 
SCT3	031646 0      777 0   000000002640 000000377740 777777777777 
SCT3	031646 0      0   0   000000005500 000000777700 777777777777 
SCT4	031646 0      0   0   000000005500 000000777700 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 43
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0305

DBT1	031646 0      0   0   000000005500 000000777700 777777777777 
DBT2	031646 0      0   0   000000777700 777777777777 000000005500 
DBT3	031646 0      0   0   777777000077 777777777777 000000005500 
DBT4	031646 0      0   0   777777000077 777777777777 000000005500 
DBT5	031646 0      0   0   777777005577 777777777777 000000005500 
ST0	031646 0      0   0   777777005577 777777777777 000000005500 
ST6	031646 0      0   0   777777005577 777777777777 000000005500 
ST6A	031646 0      0   0   777777005577 777777777777 000000005500 
ST9	031646 0      0   0   777777005577 777777777777 000000005500 


*031661 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031661 031661 0   0   137540000014 0            000000550000 
IT1	031661 0      0   0   137540000014 0            000000550000 
AT3	031661 0      0   0   000000000014 0            137540000014 
AT6	031661 000014 0   0   000000000014 0            137540000014 
FT0	031661 000014 0   0   140600000000 0            137540000014 
FT1A	031661 000014 0   0   140600000000 0            140600000000 
FT9	031661 000014 0   0   140600000000 0            140600000000 
ET0	031661 000014 0   0   140600000000 0            140600000000 
BYT6	031661 000014 0   0   140600000000 0            140600000000 
BYT7	031661 000014 772 0   140600000000 0            140600000000 
SCT0	031661 000014 772 0   140600000000 0            140600000000 
SCT3	031661 000014 773 0   140600000000 000000000001 140600000000 
SCT3	031661 000014 774 0   140600000000 000000000003 140600000000 
SCT3	031661 000014 775 0   140600000000 000000000007 140600000000 
SCT3	031661 000014 776 0   140600000000 000000000017 140600000000 
SCT3	031661 000014 777 0   140600000000 000000000037 140600000000 
SCT3	031661 000014 0   0   140600000000 000000000077 140600000000 
SCT4	031661 000014 0   0   140600000000 000000000077 140600000000 
BYT7A	031661 000014 014 0   140600000000 000000000077 140600000000 
IT1	031661 0      014 0   140600000000 000000000077 140600000000 
AT3	031661 0      014 0   0            000000000077 140600000000 
AT6	031661 0      014 0   0            000000000077 140600000000 
FT0	031661 0      014 0   0            000000000077 140600000000 
FT1A	031661 0      014 0   0            000000000077 0            
FT2	031661 0      014 0   0            000000000077 0            
FT2RQ	031661 0      014 0   000000000055 000000000077 0            
FT3	031661 0      014 0   000000000055 000000000077 0            
FT9	031662 0      014 0   000000000055 000000000077 0            
ET0	031662 0      764 0   000000000055 000000000077 0            
SCT0	031662 0      764 0   000000000055 000000000077 0            
SCT3	031662 0      765 0   000000000132 000000000176 0            
SCT3	031662 0      766 0   000000000264 000000000374 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 44
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0306

SCT3	031662 0      767 0   000000000550 000000000770 0            
SCT3	031662 0      0   0   000000001320 000000001760 0            
SCT3	031662 0      771 0   000000002640 000000003740 0            
SCT3	031662 0      772 0   000000005500 000000007700 0            
SCT3	031662 0      773 0   000000013200 000000017600 0            
SCT3	031662 0      774 0   000000026400 000000037400 0            
SCT3	031662 0      775 0   000000055000 000000077000 0            
SCT3	031662 0      776 0   000000132000 000000176000 0            
SCT3	031662 0      777 0   000000264000 000000374000 0            
SCT3	031662 0      0   0   000000550000 000000770000 0            
SCT4	031662 0      0   0   000000550000 000000770000 0            
DBT1	031662 0      0   0   000000550000 000000770000 0            
DBT2	031662 0      0   0   000000770000 0            000000550000 
DBT3	031662 0      0   0   777777007777 0            000000550000 
DBT4	031662 0      0   0   0            0            000000550000 
DBT5	031662 0      0   0   000000550000 0            000000550000 
ST0	031662 0      0   0   000000550000 0            000000550000 
ST6	031662 0      0   0   000000550000 0            000000550000 
ST6A	031662 0      0   0   000000550000 0            000000550000 
ST9	031662 0      0   0   000000550000 0            000000550000 


*031675 DPB	11,000012
INITIAL
C(AC)=000000 005555 
C(E)=220600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 005555 
C(E)=220600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031675 031675 0   0   137440000012 0            000055000000 
IT1	031675 0      0   0   137440000012 0            000055000000 
AT3	031675 0      0   0   000000000012 0            137440000012 
AT6	031675 000012 0   0   000000000012 0            137440000012 
FT0	031675 000012 0   0   220600000000 0            137440000012 
FT1A	031675 000012 0   0   220600000000 0            220600000000 
FT9	031675 000012 0   0   220600000000 0            220600000000 
ET0	031675 000012 0   0   220600000000 0            220600000000 
BYT6	031675 000012 0   0   220600000000 0            220600000000 
BYT7	031675 000012 772 0   220600000000 0            220600000000 
SCT0	031675 000012 772 0   220600000000 0            220600000000 
SCT3	031675 000012 773 0   220600000000 000000000001 220600000000 
SCT3	031675 000012 774 0   220600000000 000000000003 220600000000 
SCT3	031675 000012 775 0   220600000000 000000000007 220600000000 
SCT3	031675 000012 776 0   220600000000 000000000017 220600000000 
SCT3	031675 000012 777 0   220600000000 000000000037 220600000000 
SCT3	031675 000012 0   0   220600000000 000000000077 220600000000 
SCT4	031675 000012 0   0   220600000000 000000000077 220600000000 
BYT7A	031675 000012 022 0   220600000000 000000000077 220600000000 
IT1	031675 0      022 0   220600000000 000000000077 220600000000 
AT3	031675 0      022 0   0            000000000077 220600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 45
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0307

AT6	031675 0      022 0   0            000000000077 220600000000 
FT0	031675 0      022 0   777777777777 000000000077 220600000000 
FT1A	031675 0      022 0   777777777777 000000000077 777777777777 
FT2	031675 0      022 0   0            000000000077 777777777777 
FT2RQ	031675 0      022 0   000000005555 000000000077 777777777777 
FT3	031675 0      022 0   000000005555 000000000077 777777777777 
FT9	031676 0      022 0   000000005555 000000000077 777777777777 
ET0	031676 0      756 0   000000005555 000000000077 777777777777 
SCT0	031676 0      756 0   000000005555 000000000077 777777777777 
SCT3	031676 0      757 0   000000013332 000000000176 777777777777 
SCT3	031676 0      0   0   000000026664 000000000374 777777777777 
SCT3	031676 0      761 0   000000055550 000000000770 777777777777 
SCT3	031676 0      762 0   000000133320 000000001760 777777777777 
SCT3	031676 0      763 0   000000266640 000000003740 777777777777 
SCT3	031676 0      764 0   000000555500 000000007700 777777777777 
SCT3	031676 0      765 0   000001333200 000000017600 777777777777 
SCT3	031676 0      766 0   000002666400 000000037400 777777777777 
SCT3	031676 0      767 0   000005555000 000000077000 777777777777 
SCT3	031676 0      0   0   000013332000 000000176000 777777777777 
SCT3	031676 0      771 0   000026664000 000000374000 777777777777 
SCT3	031676 0      772 0   000055550000 000000770000 777777777777 
SCT3	031676 0      773 0   000133320000 000001760000 777777777777 
SCT3	031676 0      774 0   000266640000 000003740000 777777777777 
SCT3	031676 0      775 0   000555500000 000007700000 777777777777 
SCT3	031676 0      776 0   001333200000 000017600000 777777777777 
SCT3	031676 0      777 0   002666400000 000037400000 777777777777 
SCT3	031676 0      0   0   005555000000 000077000000 777777777777 
SCT4	031676 0      0   0   005555000000 000077000000 777777777777 
DBT1	031676 0      0   0   005555000000 000077000000 777777777777 
DBT2	031676 0      0   0   000077000000 777777777777 005555000000 
DBT3	031676 0      0   0   777700777777 777777777777 000055000000 
DBT4	031676 0      0   0   777700777777 777777777777 000055000000 
DBT5	031676 0      0   0   777755777777 777777777777 000055000000 
ST0	031676 0      0   0   777755777777 777777777777 000055000000 
ST6	031676 0      0   0   777755777777 777777777777 000055000000 
ST6A	031676 0      0   0   777755777777 777777777777 000055000000 
ST9	031676 0      0   0   777755777777 777777777777 000055000000 


*031710 DPB	7,000010
INITIAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031710 031710 0   0   137340000010 0            000000550000 
IT1	031710 0      0   0   137340000010 0            000000550000 
AT3	031710 0      0   0   000000000010 0            137340000010 
AT6	031710 000010 0   0   000000000010 0            137340000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 46
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0308

FT0	031710 000010 0   0   140600000000 0            137340000010 
FT1A	031710 000010 0   0   140600000000 0            140600000000 
FT9	031710 000010 0   0   140600000000 0            140600000000 
ET0	031710 000010 0   0   140600000000 0            140600000000 
BYT6	031710 000010 0   0   140600000000 0            140600000000 
BYT7	031710 000010 772 0   140600000000 0            140600000000 
SCT0	031710 000010 772 0   140600000000 0            140600000000 
SCT3	031710 000010 773 0   140600000000 000000000001 140600000000 
SCT3	031710 000010 774 0   140600000000 000000000003 140600000000 
SCT3	031710 000010 775 0   140600000000 000000000007 140600000000 
SCT3	031710 000010 776 0   140600000000 000000000017 140600000000 
SCT3	031710 000010 777 0   140600000000 000000000037 140600000000 
SCT3	031710 000010 0   0   140600000000 000000000077 140600000000 
SCT4	031710 000010 0   0   140600000000 000000000077 140600000000 
BYT7A	031710 000010 014 0   140600000000 000000000077 140600000000 
IT1	031710 0      014 0   140600000000 000000000077 140600000000 
AT3	031710 0      014 0   0            000000000077 140600000000 
AT6	031710 0      014 0   0            000000000077 140600000000 
FT0	031710 0      014 0   0            000000000077 140600000000 
FT1A	031710 0      014 0   0            000000000077 0            
FT2	031710 0      014 0   0            000000000077 0            
FT2RQ	031710 0      014 0   000000000055 000000000077 0            
FT3	031710 0      014 0   000000000055 000000000077 0            
FT9	031711 0      014 0   000000000055 000000000077 0            
ET0	031711 0      764 0   000000000055 000000000077 0            
SCT0	031711 0      764 0   000000000055 000000000077 0            
SCT3	031711 0      765 0   000000000132 000000000176 0            
SCT3	031711 0      766 0   000000000264 000000000374 0            
SCT3	031711 0      767 0   000000000550 000000000770 0            
SCT3	031711 0      0   0   000000001320 000000001760 0            
SCT3	031711 0      771 0   000000002640 000000003740 0            
SCT3	031711 0      772 0   000000005500 000000007700 0            
SCT3	031711 0      773 0   000000013200 000000017600 0            
SCT3	031711 0      774 0   000000026400 000000037400 0            
SCT3	031711 0      775 0   000000055000 000000077000 0            
SCT3	031711 0      776 0   000000132000 000000176000 0            
SCT3	031711 0      777 0   000000264000 000000374000 0            
SCT3	031711 0      0   0   000000550000 000000770000 0            
SCT4	031711 0      0   0   000000550000 000000770000 0            
DBT1	031711 0      0   0   000000550000 000000770000 0            
DBT2	031711 0      0   0   000000770000 0            000000550000 
DBT3	031711 0      0   0   777777007777 0            000000550000 
DBT4	031711 0      0   0   0            0            000000550000 
DBT5	031711 0      0   0   000000550000 0            000000550000 
ST0	031711 0      0   0   000000550000 0            000000550000 
ST6	031711 0      0   0   000000550000 0            000000550000 
ST6A	031711 0      0   0   000000550000 0            000000550000 
ST9	031711 0      0   0   000000550000 0            000000550000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 47
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0309

*031725 IDPB	5,000006
INITIAL
C(AC)=000000 000077 
C(E)=220600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031725 031725 0   0   136240000006 0            000000770000 
IT1	031725 0      0   0   136240000006 0            000000770000 
AT3	031725 0      0   0   000000000006 0            136240000006 
AT6	031725 000006 0   0   000000000006 0            136240000006 
FT0	031725 000006 0   0   220600000000 0            136240000006 
FT1A	031725 000006 0   0   220600000000 0            220600000000 
FT9	031725 000006 0   0   220600000000 0            220600000000 
ET0	031725 000006 0   0   220600000000 0            220600000000 
BYT1	031725 000006 022 0   220600000000 0            220600000000 
BYT4	031725 000006 0   0   140600000000 0            220600000000 
BYT7	031725 000006 772 0   140600000000 0            220600000000 
SCT0	031725 000006 772 0   140600000000 0            220600000000 
SCT3	031725 000006 773 0   140600000000 000000000001 220600000000 
SCT3	031725 000006 774 0   140600000000 000000000003 220600000000 
SCT3	031725 000006 775 0   140600000000 000000000007 220600000000 
SCT3	031725 000006 776 0   140600000000 000000000017 220600000000 
SCT3	031725 000006 777 0   140600000000 000000000037 220600000000 
SCT3	031725 000006 0   0   140600000000 000000000077 220600000000 
SCT4	031725 000006 0   0   140600000000 000000000077 220600000000 
BYT7A	031725 000006 014 0   140600000000 000000000077 220600000000 
IT1	031725 0      014 0   140600000000 000000000077 220600000000 
AT3	031725 0      014 0   0            000000000077 140600000000 
AT6	031725 0      014 0   0            000000000077 140600000000 
FT0	031725 0      014 0   0            000000000077 140600000000 
FT1A	031725 0      014 0   0            000000000077 0            
FT2	031725 0      014 0   0            000000000077 0            
FT2RQ	031725 0      014 0   000000000077 000000000077 0            
FT3	031725 0      014 0   000000000077 000000000077 0            
FT9	031726 0      014 0   000000000077 000000000077 0            
ET0	031726 0      764 0   000000000077 000000000077 0            
SCT0	031726 0      764 0   000000000077 000000000077 0            
SCT3	031726 0      765 0   000000000176 000000000176 0            
SCT3	031726 0      766 0   000000000374 000000000374 0            
SCT3	031726 0      767 0   000000000770 000000000770 0            
SCT3	031726 0      0   0   000000001760 000000001760 0            
SCT3	031726 0      771 0   000000003740 000000003740 0            
SCT3	031726 0      772 0   000000007700 000000007700 0            
SCT3	031726 0      773 0   000000017600 000000017600 0            
SCT3	031726 0      774 0   000000037400 000000037400 0            
SCT3	031726 0      775 0   000000077000 000000077000 0            
SCT3	031726 0      776 0   000000176000 000000176000 0            
SCT3	031726 0      777 0   000000374000 000000374000 0            
SCT3	031726 0      0   0   000000770000 000000770000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 48
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0310

SCT4	031726 0      0   0   000000770000 000000770000 0            
DBT1	031726 0      0   0   000000770000 000000770000 0            
DBT2	031726 0      0   0   000000770000 0            000000770000 
DBT3	031726 0      0   0   777777007777 0            000000770000 
DBT4	031726 0      0   0   0            0            000000770000 
DBT5	031726 0      0   0   000000770000 0            000000770000 
ST0	031726 0      0   0   000000770000 0            000000770000 
ST6	031726 0      0   0   000000770000 0            000000770000 
ST6A	031726 0      0   0   000000770000 0            000000770000 
ST9	031726 0      0   0   000000770000 0            000000770000 


*031741 IBP	0,000006
INITIAL
C(AC)=000000 770000 
C(E)=220600 000000 
FINAL

C(E)=220600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   133000000006 0            220600000000 
IT1	031741 0      0   0   133000000006 0            220600000000 
AT3	031741 0      0   0   000000000006 0            133000000006 
AT6	031741 000006 0   0   000000000006 0            133000000006 
FT0	031741 000006 0   0   220600000000 0            133000000006 
FT1A	031741 000006 0   0   220600000000 0            220600000000 
FT9	031742 000006 0   0   220600000000 0            220600000000 
ET0	031742 000006 0   0   220600000000 0            220600000000 
BYT1	031742 000006 022 0   220600000000 0            220600000000 
BYT4	031742 000006 0   0   140600000000 0            220600000000 
ST9	031742 000006 0   0   140600000000 0            220600000000 


*031747 IBP	0,000006
INITIAL
C(AC)=000000 770000 
C(E)=200600 000000 
FINAL

C(E)=200600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   133000000006 0            200600000000 
IT1	031747 0      0   0   133000000006 0            200600000000 
AT3	031747 0      0   0   000000000006 0            133000000006 
AT6	031747 000006 0   0   000000000006 0            133000000006 
FT0	031747 000006 0   0   200600000000 0            133000000006 
FT1A	031747 000006 0   0   200600000000 0            200600000000 
FT9	031750 000006 0   0   200600000000 0            200600000000 
ET0	031750 000006 0   0   200600000000 0            200600000000 
BYT1	031750 000006 0   0   200600000000 0            200600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 49
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0311

BYT4	031750 000006 0   0   120600000000 0            200600000000 
ST9	031750 000006 0   0   120600000000 0            200600000000 


*031755 IBP	0,000006
INITIAL
C(AC)=000000 770000 
C(E)=160600 000000 
FINAL

C(E)=160600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031755 031755 0   0   133000000006 0            160600000000 
IT1	031755 0      0   0   133000000006 0            160600000000 
AT3	031755 0      0   0   000000000006 0            133000000006 
AT6	031755 000006 0   0   000000000006 0            133000000006 
FT0	031755 000006 0   0   160600000000 0            133000000006 
FT1A	031755 000006 0   0   160600000000 0            160600000000 
FT9	031756 000006 0   0   160600000000 0            160600000000 
ET0	031756 000006 0   0   160600000000 0            160600000000 
BYT1	031756 000006 016 0   160600000000 0            160600000000 
BYT4	031756 000006 0   0   100600000000 0            160600000000 
ST9	031756 000006 0   0   100600000000 0            160600000000 


*031763 IBP	0,000006
INITIAL
C(AC)=000000 770000 
C(E)=140600 000000 
FINAL

C(E)=140600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   133000000006 0            140600000000 
IT1	031763 0      0   0   133000000006 0            140600000000 
AT3	031763 0      0   0   000000000006 0            133000000006 
AT6	031763 000006 0   0   000000000006 0            133000000006 
FT0	031763 000006 0   0   140600000000 0            133000000006 
FT1A	031763 000006 0   0   140600000000 0            140600000000 
FT9	031764 000006 0   0   140600000000 0            140600000000 
ET0	031764 000006 0   0   140600000000 0            140600000000 
BYT1	031764 000006 014 0   140600000000 0            140600000000 
BYT4	031764 000006 0   0   060600000000 0            140600000000 
ST9	031764 000006 0   0   060600000000 0            140600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 50
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0312

*031771 IBP	0,000006
INITIAL
C(AC)=000000 770000 
C(E)=120600 000000 
FINAL

C(E)=120600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031771 031771 0   0   133000000006 0            120600000000 
IT1	031771 0      0   0   133000000006 0            120600000000 
AT3	031771 0      0   0   000000000006 0            133000000006 
AT6	031771 000006 0   0   000000000006 0            133000000006 
FT0	031771 000006 0   0   120600000000 0            133000000006 
FT1A	031771 000006 0   0   120600000000 0            120600000000 
FT9	031772 000006 0   0   120600000000 0            120600000000 
ET0	031772 000006 0   0   120600000000 0            120600000000 
BYT1	031772 000006 012 0   120600000000 0            120600000000 
BYT4	031772 000006 0   0   040600000000 0            120600000000 
ST9	031772 000006 0   0   040600000000 0            120600000000 


*032003 IBP	0,000015
INITIAL
C(AC)=000000 770000 
C(E)=221400 000000 
FINAL

C(E)=221400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   133000000015 0            221400000000 
IT1	032003 0      0   0   133000000015 0            221400000000 
AT3	032003 0      0   0   000000000015 0            133000000015 
AT6	032003 000015 0   0   000000000015 0            133000000015 
FT0	032003 000015 0   0   221400000000 0            133000000015 
FT1A	032003 000015 0   0   221400000000 0            221400000000 
FT9	032004 000015 0   0   221400000000 0            221400000000 
ET0	032004 000015 0   0   221400000000 0            221400000000 
BYT1	032004 000015 022 0   221400000000 0            221400000000 
BYT4	032004 000015 0   0   061400000000 0            221400000000 
ST9	032004 000015 0   0   061400000000 0            221400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 51
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0313

*032011 IBP	0,000015
INITIAL
C(AC)=000000 770000 
C(E)=221200 000000 
FINAL

C(E)=221200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032011 032011 0   0   133000000015 0            221200000000 
IT1	032011 0      0   0   133000000015 0            221200000000 
AT3	032011 0      0   0   000000000015 0            133000000015 
AT6	032011 000015 0   0   000000000015 0            133000000015 
FT0	032011 000015 0   0   221200000000 0            133000000015 
FT1A	032011 000015 0   0   221200000000 0            221200000000 
FT9	032012 000015 0   0   221200000000 0            221200000000 
ET0	032012 000015 0   0   221200000000 0            221200000000 
BYT1	032012 000015 022 0   221200000000 0            221200000000 
BYT4	032012 000015 0   0   101200000000 0            221200000000 
ST9	032012 000015 0   0   101200000000 0            221200000000 


*032017 IBP	0,000015
INITIAL
C(AC)=000000 770000 
C(E)=221000 000000 
FINAL

C(E)=221000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   133000000015 0            221000000000 
IT1	032017 0      0   0   133000000015 0            221000000000 
AT3	032017 0      0   0   000000000015 0            133000000015 
AT6	032017 000015 0   0   000000000015 0            133000000015 
FT0	032017 000015 0   0   221000000000 0            133000000015 
FT1A	032017 000015 0   0   221000000000 0            221000000000 
FT9	032020 000015 0   0   221000000000 0            221000000000 
ET0	032020 000015 0   0   221000000000 0            221000000000 
BYT1	032020 000015 022 0   221000000000 0            221000000000 
BYT4	032020 000015 0   0   121000000000 0            221000000000 
ST9	032020 000015 0   0   121000000000 0            221000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 52
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0314

*032025 IBP	0,000015
INITIAL
C(AC)=000000 770000 
C(E)=220600 000000 
FINAL

C(E)=220600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032025 032025 0   0   133000000015 0            220600000000 
IT1	032025 0      0   0   133000000015 0            220600000000 
AT3	032025 0      0   0   000000000015 0            133000000015 
AT6	032025 000015 0   0   000000000015 0            133000000015 
FT0	032025 000015 0   0   220600000000 0            133000000015 
FT1A	032025 000015 0   0   220600000000 0            220600000000 
FT9	032026 000015 0   0   220600000000 0            220600000000 
ET0	032026 000015 0   0   220600000000 0            220600000000 
BYT1	032026 000015 022 0   220600000000 0            220600000000 
BYT4	032026 000015 0   0   140600000000 0            220600000000 
ST9	032026 000015 0   0   140600000000 0            220600000000 


*032033 IBP	0,000015
INITIAL
C(AC)=000000 770000 
C(E)=220400 000000 
FINAL

C(E)=220400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032033 032033 0   0   133000000015 0            220400000000 
IT1	032033 0      0   0   133000000015 0            220400000000 
AT3	032033 0      0   0   000000000015 0            133000000015 
AT6	032033 000015 0   0   000000000015 0            133000000015 
FT0	032033 000015 0   0   220400000000 0            133000000015 
FT1A	032033 000015 0   0   220400000000 0            220400000000 
FT9	032034 000015 0   0   220400000000 0            220400000000 
ET0	032034 000015 0   0   220400000000 0            220400000000 
BYT1	032034 000015 022 0   220400000000 0            220400000000 
BYT4	032034 000015 0   0   160400000000 0            220400000000 
ST9	032034 000015 0   0   160400000000 0            220400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 53
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0315

*032046 IBP	0,000014
INITIAL
C(AC)=000000 770000 
C(E)=001400 000000 
FINAL

C(E)=001400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   133000000014 0            001400000000 
IT1	032046 0      0   0   133000000014 0            001400000000 
AT3	032046 0      0   0   000000000014 0            133000000014 
AT6	032046 000014 0   0   000000000014 0            133000000014 
FT0	032046 000014 0   0   001400000000 0            133000000014 
FT1A	032046 000014 0   0   001400000000 0            001400000000 
FT9	032047 000014 0   0   001400000000 0            001400000000 
ET0	032047 000014 0   0   001400000000 0            001400000000 
BYT1	032047 000014 0   0   001400000000 0            001400000000 
BYT2	032047 000014 0   0   001400000001 0            001400000000 
BYT3	032047 000014 144 0   001400000001 0            001400000000 
BYT4	032047 000014 0   0   301400000001 0            001400000000 
ST9	032047 000014 0   0   301400000001 0            001400000000 


*032055 IBP	0,000014
INITIAL
C(AC)=000000 770000 
C(E)=001200 000000 
FINAL

C(E)=001200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032055 032055 0   0   133000000014 0            001200000000 
IT1	032055 0      0   0   133000000014 0            001200000000 
AT3	032055 0      0   0   000000000014 0            133000000014 
AT6	032055 000014 0   0   000000000014 0            133000000014 
FT0	032055 000014 0   0   001200000000 0            133000000014 
FT1A	032055 000014 0   0   001200000000 0            001200000000 
FT9	032056 000014 0   0   001200000000 0            001200000000 
ET0	032056 000014 0   0   001200000000 0            001200000000 
BYT1	032056 000014 0   0   001200000000 0            001200000000 
BYT2	032056 000014 0   0   001200000001 0            001200000000 
BYT3	032056 000014 144 0   001200000001 0            001200000000 
BYT4	032056 000014 0   0   321200000001 0            001200000000 
ST9	032056 000014 0   0   321200000001 0            001200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 54
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0316

*032064 IBP	0,000014
INITIAL
C(AC)=000000 770000 
C(E)=001000 000000 
FINAL

C(E)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   133000000014 0            001000000000 
IT1	032064 0      0   0   133000000014 0            001000000000 
AT3	032064 0      0   0   000000000014 0            133000000014 
AT6	032064 000014 0   0   000000000014 0            133000000014 
FT0	032064 000014 0   0   001000000000 0            133000000014 
FT1A	032064 000014 0   0   001000000000 0            001000000000 
FT9	032065 000014 0   0   001000000000 0            001000000000 
ET0	032065 000014 0   0   001000000000 0            001000000000 
BYT1	032065 000014 0   0   001000000000 0            001000000000 
BYT2	032065 000014 0   0   001000000001 0            001000000000 
BYT3	032065 000014 144 0   001000000001 0            001000000000 
BYT4	032065 000014 0   0   341000000001 0            001000000000 
ST9	032065 000014 0   0   341000000001 0            001000000000 


*032073 IBP	0,000014
INITIAL
C(AC)=000000 770000 
C(E)=000600 000000 
FINAL

C(E)=000600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   133000000014 0            000600000000 
IT1	032073 0      0   0   133000000014 0            000600000000 
AT3	032073 0      0   0   000000000014 0            133000000014 
AT6	032073 000014 0   0   000000000014 0            133000000014 
FT0	032073 000014 0   0   000600000000 0            133000000014 
FT1A	032073 000014 0   0   000600000000 0            000600000000 
FT9	032074 000014 0   0   000600000000 0            000600000000 
ET0	032074 000014 0   0   000600000000 0            000600000000 
BYT1	032074 000014 0   0   000600000000 0            000600000000 
BYT2	032074 000014 0   0   000600000001 0            000600000000 
BYT3	032074 000014 144 0   000600000001 0            000600000000 
BYT4	032074 000014 0   0   360600000001 0            000600000000 
ST9	032074 000014 0   0   360600000001 0            000600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 55
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0317

*032102 IBP	0,000014
INITIAL
C(AC)=000000 770000 
C(E)=000400 000000 
FINAL

C(E)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   133000000014 0            000400000000 
IT1	032102 0      0   0   133000000014 0            000400000000 
AT3	032102 0      0   0   000000000014 0            133000000014 
AT6	032102 000014 0   0   000000000014 0            133000000014 
FT0	032102 000014 0   0   000400000000 0            133000000014 
FT1A	032102 000014 0   0   000400000000 0            000400000000 
FT9	032103 000014 0   0   000400000000 0            000400000000 
ET0	032103 000014 0   0   000400000000 0            000400000000 
BYT1	032103 000014 0   0   000400000000 0            000400000000 
BYT2	032103 000014 0   0   000400000001 0            000400000000 
BYT3	032103 000014 144 0   000400000001 0            000400000000 
BYT4	032103 000014 0   0   400400000001 0            000400000000 
ST9	032103 000014 0   0   400400000001 0            000400000000 


*032114 LDB	12,000013
INITIAL
C(AC)=160400 000000 
C(E)=220100 000000   C(C(E))=777777 000000 
FINAL
C(AC)=000000 000001 
C(E)=220100 000000   C(C(E))=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032114 032114 0   0   135500000013 0            777777000000 
IT1	032114 0      0   0   135500000013 0            777777000000 
AT3	032114 0      0   0   000000000013 0            135500000013 
AT6	032114 000013 0   0   000000000013 0            135500000013 
FT0	032114 000013 0   0   220100000000 0            135500000013 
FT1A	032114 000013 0   0   220100000000 0            220100000000 
FT9	032114 000013 0   0   220100000000 0            220100000000 
ET0	032114 000013 0   0   220100000000 0            220100000000 
BYT6	032114 000013 0   0   220100000000 0            220100000000 
BYT7	032114 000013 777 0   220100000000 0            220100000000 
SCT0	032114 000013 777 0   220100000000 0            220100000000 
SCT3	032114 000013 0   0   220100000000 000000000001 220100000000 
SCT4	032114 000013 0   0   220100000000 000000000001 220100000000 
BYT7A	032114 000013 022 0   220100000000 000000000001 220100000000 
IT1	032114 0      022 0   220100000000 000000000001 220100000000 
AT3	032114 0      022 0   0            000000000001 220100000000 
AT6	032114 0      022 0   0            000000000001 220100000000 
FT0	032114 0      022 0   777777000000 000000000001 220100000000 
FT1A	032114 0      022 0   777777000000 000000000001 777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 56
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0318

FT9	032115 0      022 0   777777000000 000000000001 777777000000 
ET0	032115 0      756 0   777777000000 000000000001 777777000000 
SCT0	032115 0      756 0   777777000000 000000000001 777777000000 
SCT3	032115 0      757 0   377777400000 000000000001 777777000000 
SCT3	032115 0      0   0   177777600000 000000000001 777777000000 
SCT3	032115 0      761 0   077777700000 000000000001 777777000000 
SCT3	032115 0      762 0   037777740000 000000000001 777777000000 
SCT3	032115 0      763 0   017777760000 000000000001 777777000000 
SCT3	032115 0      764 0   007777770000 000000000001 777777000000 
SCT3	032115 0      765 0   003777774000 000000000001 777777000000 
SCT3	032115 0      766 0   001777776000 000000000001 777777000000 
SCT3	032115 0      767 0   000777777000 000000000001 777777000000 
SCT3	032115 0      0   0   000377777400 000000000001 777777000000 
SCT3	032115 0      771 0   000177777600 000000000001 777777000000 
SCT3	032115 0      772 0   000077777700 000000000001 777777000000 
SCT3	032115 0      773 0   000037777740 000000000001 777777000000 
SCT3	032115 0      774 0   000017777760 000000000001 777777000000 
SCT3	032115 0      775 0   000007777770 000000000001 777777000000 
SCT3	032115 0      776 0   000003777774 000000000001 777777000000 
SCT3	032115 0      777 0   000001777776 000000000001 777777000000 
SCT3	032115 0      0   0   000000777777 000000000001 777777000000 
SCT4	032115 0      0   0   000000777777 000000000001 777777000000 
LBT1	032115 0      0   0   000000000001 000000000001 777777000000 
ST0	032115 0      0   0   000000000001 000000000001 777777000000 
ST1	032115 0      0   0   000000000001 000000000001 777777000000 
ST2	032115 0      0   0   000000000001 000000000001 777777000000 
ST9	032115 0      0   0   000000000001 000000000001 777777000000 


*032122 LDB	12,000013
INITIAL
C(AC)=000000 000001 
C(E)=220200 000000   C(C(E))=777777 000000 
FINAL
C(AC)=000000 000003 
C(E)=220200 000000   C(C(E))=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   135500000013 0            777777000000 
IT1	032122 0      0   0   135500000013 0            777777000000 
AT3	032122 0      0   0   000000000013 0            135500000013 
AT6	032122 000013 0   0   000000000013 0            135500000013 
FT0	032122 000013 0   0   220200000000 0            135500000013 
FT1A	032122 000013 0   0   220200000000 0            220200000000 
FT9	032122 000013 0   0   220200000000 0            220200000000 
ET0	032122 000013 0   0   220200000000 0            220200000000 
BYT6	032122 000013 0   0   220200000000 0            220200000000 
BYT7	032122 000013 776 0   220200000000 0            220200000000 
SCT0	032122 000013 776 0   220200000000 0            220200000000 
SCT3	032122 000013 777 0   220200000000 000000000001 220200000000 
SCT3	032122 000013 0   0   220200000000 000000000003 220200000000 
SCT4	032122 000013 0   0   220200000000 000000000003 220200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 57
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0319

BYT7A	032122 000013 022 0   220200000000 000000000003 220200000000 
IT1	032122 0      022 0   220200000000 000000000003 220200000000 
AT3	032122 0      022 0   0            000000000003 220200000000 
AT6	032122 0      022 0   0            000000000003 220200000000 
FT0	032122 0      022 0   777777000000 000000000003 220200000000 
FT1A	032122 0      022 0   777777000000 000000000003 777777000000 
FT9	032123 0      022 0   777777000000 000000000003 777777000000 
ET0	032123 0      756 0   777777000000 000000000003 777777000000 
SCT0	032123 0      756 0   777777000000 000000000003 777777000000 
SCT3	032123 0      757 0   377777400000 000000000003 777777000000 
SCT3	032123 0      0   0   177777600000 000000000003 777777000000 
SCT3	032123 0      761 0   077777700000 000000000003 777777000000 
SCT3	032123 0      762 0   037777740000 000000000003 777777000000 
SCT3	032123 0      763 0   017777760000 000000000003 777777000000 
SCT3	032123 0      764 0   007777770000 000000000003 777777000000 
SCT3	032123 0      765 0   003777774000 000000000003 777777000000 
SCT3	032123 0      766 0   001777776000 000000000003 777777000000 
SCT3	032123 0      767 0   000777777000 000000000003 777777000000 
SCT3	032123 0      0   0   000377777400 000000000003 777777000000 
SCT3	032123 0      771 0   000177777600 000000000003 777777000000 
SCT3	032123 0      772 0   000077777700 000000000003 777777000000 
SCT3	032123 0      773 0   000037777740 000000000003 777777000000 
SCT3	032123 0      774 0   000017777760 000000000003 777777000000 
SCT3	032123 0      775 0   000007777770 000000000003 777777000000 
SCT3	032123 0      776 0   000003777774 000000000003 777777000000 
SCT3	032123 0      777 0   000001777776 000000000003 777777000000 
SCT3	032123 0      0   0   000000777777 000000000003 777777000000 
SCT4	032123 0      0   0   000000777777 000000000003 777777000000 
LBT1	032123 0      0   0   000000000003 000000000003 777777000000 
ST0	032123 0      0   0   000000000003 000000000003 777777000000 
ST1	032123 0      0   0   000000000003 000000000003 777777000000 
ST2	032123 0      0   0   000000000003 000000000003 777777000000 
ST9	032123 0      0   0   000000000003 000000000003 777777000000 


*032130 LDB	12,000013
INITIAL
C(AC)=000000 000003 
C(E)=220300 000000   C(C(E))=777777 000000 
FINAL
C(AC)=000000 000007 
C(E)=220300 000000   C(C(E))=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   135500000013 0            777777000000 
IT1	032130 0      0   0   135500000013 0            777777000000 
AT3	032130 0      0   0   000000000013 0            135500000013 
AT6	032130 000013 0   0   000000000013 0            135500000013 
FT0	032130 000013 0   0   220300000000 0            135500000013 
FT1A	032130 000013 0   0   220300000000 0            220300000000 
FT9	032130 000013 0   0   220300000000 0            220300000000 
ET0	032130 000013 0   0   220300000000 0            220300000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 58
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0320

BYT6	032130 000013 0   0   220300000000 0            220300000000 
BYT7	032130 000013 775 0   220300000000 0            220300000000 
SCT0	032130 000013 775 0   220300000000 0            220300000000 
SCT3	032130 000013 776 0   220300000000 000000000001 220300000000 
SCT3	032130 000013 777 0   220300000000 000000000003 220300000000 
SCT3	032130 000013 0   0   220300000000 000000000007 220300000000 
SCT4	032130 000013 0   0   220300000000 000000000007 220300000000 
BYT7A	032130 000013 022 0   220300000000 000000000007 220300000000 
IT1	032130 0      022 0   220300000000 000000000007 220300000000 
AT3	032130 0      022 0   0            000000000007 220300000000 
AT6	032130 0      022 0   0            000000000007 220300000000 
FT0	032130 0      022 0   777777000000 000000000007 220300000000 
FT1A	032130 0      022 0   777777000000 000000000007 777777000000 
FT9	032131 0      022 0   777777000000 000000000007 777777000000 
ET0	032131 0      756 0   777777000000 000000000007 777777000000 
SCT0	032131 0      756 0   777777000000 000000000007 777777000000 
SCT3	032131 0      757 0   377777400000 000000000007 777777000000 
SCT3	032131 0      0   0   177777600000 000000000007 777777000000 
SCT3	032131 0      761 0   077777700000 000000000007 777777000000 
SCT3	032131 0      762 0   037777740000 000000000007 777777000000 
SCT3	032131 0      763 0   017777760000 000000000007 777777000000 
SCT3	032131 0      764 0   007777770000 000000000007 777777000000 
SCT3	032131 0      765 0   003777774000 000000000007 777777000000 
SCT3	032131 0      766 0   001777776000 000000000007 777777000000 
SCT3	032131 0      767 0   000777777000 000000000007 777777000000 
SCT3	032131 0      0   0   000377777400 000000000007 777777000000 
SCT3	032131 0      771 0   000177777600 000000000007 777777000000 
SCT3	032131 0      772 0   000077777700 000000000007 777777000000 
SCT3	032131 0      773 0   000037777740 000000000007 777777000000 
SCT3	032131 0      774 0   000017777760 000000000007 777777000000 
SCT3	032131 0      775 0   000007777770 000000000007 777777000000 
SCT3	032131 0      776 0   000003777774 000000000007 777777000000 
SCT3	032131 0      777 0   000001777776 000000000007 777777000000 
SCT3	032131 0      0   0   000000777777 000000000007 777777000000 
SCT4	032131 0      0   0   000000777777 000000000007 777777000000 
LBT1	032131 0      0   0   000000000007 000000000007 777777000000 
ST0	032131 0      0   0   000000000007 000000000007 777777000000 
ST1	032131 0      0   0   000000000007 000000000007 777777000000 
ST2	032131 0      0   0   000000000007 000000000007 777777000000 
ST9	032131 0      0   0   000000000007 000000000007 777777000000 


*032136 LDB	12,000013
INITIAL
C(AC)=000000 000007 
C(E)=220400 000000   C(C(E))=777777 000000 
FINAL
C(AC)=000000 000017 
C(E)=220400 000000   C(C(E))=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032136 032136 0   0   135500000013 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 59
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0321

IT1	032136 0      0   0   135500000013 0            777777000000 
AT3	032136 0      0   0   000000000013 0            135500000013 
AT6	032136 000013 0   0   000000000013 0            135500000013 
FT0	032136 000013 0   0   220400000000 0            135500000013 
FT1A	032136 000013 0   0   220400000000 0            220400000000 
FT9	032136 000013 0   0   220400000000 0            220400000000 
ET0	032136 000013 0   0   220400000000 0            220400000000 
BYT6	032136 000013 0   0   220400000000 0            220400000000 
BYT7	032136 000013 774 0   220400000000 0            220400000000 
SCT0	032136 000013 774 0   220400000000 0            220400000000 
SCT3	032136 000013 775 0   220400000000 000000000001 220400000000 
SCT3	032136 000013 776 0   220400000000 000000000003 220400000000 
SCT3	032136 000013 777 0   220400000000 000000000007 220400000000 
SCT3	032136 000013 0   0   220400000000 000000000017 220400000000 
SCT4	032136 000013 0   0   220400000000 000000000017 220400000000 
BYT7A	032136 000013 022 0   220400000000 000000000017 220400000000 
IT1	032136 0      022 0   220400000000 000000000017 220400000000 
AT3	032136 0      022 0   0            000000000017 220400000000 
AT6	032136 0      022 0   0            000000000017 220400000000 
FT0	032136 0      022 0   777777000000 000000000017 220400000000 
FT1A	032136 0      022 0   777777000000 000000000017 777777000000 
FT9	032137 0      022 0   777777000000 000000000017 777777000000 
ET0	032137 0      756 0   777777000000 000000000017 777777000000 
SCT0	032137 0      756 0   777777000000 000000000017 777777000000 
SCT3	032137 0      757 0   377777400000 000000000017 777777000000 
SCT3	032137 0      0   0   177777600000 000000000017 777777000000 
SCT3	032137 0      761 0   077777700000 000000000017 777777000000 
SCT3	032137 0      762 0   037777740000 000000000017 777777000000 
SCT3	032137 0      763 0   017777760000 000000000017 777777000000 
SCT3	032137 0      764 0   007777770000 000000000017 777777000000 
SCT3	032137 0      765 0   003777774000 000000000017 777777000000 
SCT3	032137 0      766 0   001777776000 000000000017 777777000000 
SCT3	032137 0      767 0   000777777000 000000000017 777777000000 
SCT3	032137 0      0   0   000377777400 000000000017 777777000000 
SCT3	032137 0      771 0   000177777600 000000000017 777777000000 
SCT3	032137 0      772 0   000077777700 000000000017 777777000000 
SCT3	032137 0      773 0   000037777740 000000000017 777777000000 
SCT3	032137 0      774 0   000017777760 000000000017 777777000000 
SCT3	032137 0      775 0   000007777770 000000000017 777777000000 
SCT3	032137 0      776 0   000003777774 000000000017 777777000000 
SCT3	032137 0      777 0   000001777776 000000000017 777777000000 
SCT3	032137 0      0   0   000000777777 000000000017 777777000000 
SCT4	032137 0      0   0   000000777777 000000000017 777777000000 
LBT1	032137 0      0   0   000000000017 000000000017 777777000000 
ST0	032137 0      0   0   000000000017 000000000017 777777000000 
ST1	032137 0      0   0   000000000017 000000000017 777777000000 
ST2	032137 0      0   0   000000000017 000000000017 777777000000 
ST9	032137 0      0   0   000000000017 000000000017 777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 60
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0322

*032144 LDB	12,000013
INITIAL
C(AC)=000000 000017 
C(E)=220500 000000   C(C(E))=777777 000000 
FINAL
C(AC)=000000 000037 
C(E)=220500 000000   C(C(E))=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032144 032144 0   0   135500000013 0            777777000000 
IT1	032144 0      0   0   135500000013 0            777777000000 
AT3	032144 0      0   0   000000000013 0            135500000013 
AT6	032144 000013 0   0   000000000013 0            135500000013 
FT0	032144 000013 0   0   220500000000 0            135500000013 
FT1A	032144 000013 0   0   220500000000 0            220500000000 
FT9	032144 000013 0   0   220500000000 0            220500000000 
ET0	032144 000013 0   0   220500000000 0            220500000000 
BYT6	032144 000013 0   0   220500000000 0            220500000000 
BYT7	032144 000013 773 0   220500000000 0            220500000000 
SCT0	032144 000013 773 0   220500000000 0            220500000000 
SCT3	032144 000013 774 0   220500000000 000000000001 220500000000 
SCT3	032144 000013 775 0   220500000000 000000000003 220500000000 
SCT3	032144 000013 776 0   220500000000 000000000007 220500000000 
SCT3	032144 000013 777 0   220500000000 000000000017 220500000000 
SCT3	032144 000013 0   0   220500000000 000000000037 220500000000 
SCT4	032144 000013 0   0   220500000000 000000000037 220500000000 
BYT7A	032144 000013 022 0   220500000000 000000000037 220500000000 
IT1	032144 0      022 0   220500000000 000000000037 220500000000 
AT3	032144 0      022 0   0            000000000037 220500000000 
AT6	032144 0      022 0   0            000000000037 220500000000 
FT0	032144 0      022 0   777777000000 000000000037 220500000000 
FT1A	032144 0      022 0   777777000000 000000000037 777777000000 
FT9	032145 0      022 0   777777000000 000000000037 777777000000 
ET0	032145 0      756 0   777777000000 000000000037 777777000000 
SCT0	032145 0      756 0   777777000000 000000000037 777777000000 
SCT3	032145 0      757 0   377777400000 000000000037 777777000000 
SCT3	032145 0      0   0   177777600000 000000000037 777777000000 
SCT3	032145 0      761 0   077777700000 000000000037 777777000000 
SCT3	032145 0      762 0   037777740000 000000000037 777777000000 
SCT3	032145 0      763 0   017777760000 000000000037 777777000000 
SCT3	032145 0      764 0   007777770000 000000000037 777777000000 
SCT3	032145 0      765 0   003777774000 000000000037 777777000000 
SCT3	032145 0      766 0   001777776000 000000000037 777777000000 
SCT3	032145 0      767 0   000777777000 000000000037 777777000000 
SCT3	032145 0      0   0   000377777400 000000000037 777777000000 
SCT3	032145 0      771 0   000177777600 000000000037 777777000000 
SCT3	032145 0      772 0   000077777700 000000000037 777777000000 
SCT3	032145 0      773 0   000037777740 000000000037 777777000000 
SCT3	032145 0      774 0   000017777760 000000000037 777777000000 
SCT3	032145 0      775 0   000007777770 000000000037 777777000000 
SCT3	032145 0      776 0   000003777774 000000000037 777777000000 
SCT3	032145 0      777 0   000001777776 000000000037 777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 61
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0323

SCT3	032145 0      0   0   000000777777 000000000037 777777000000 
SCT4	032145 0      0   0   000000777777 000000000037 777777000000 
LBT1	032145 0      0   0   000000000037 000000000037 777777000000 
ST0	032145 0      0   0   000000000037 000000000037 777777000000 
ST1	032145 0      0   0   000000000037 000000000037 777777000000 
ST2	032145 0      0   0   000000000037 000000000037 777777000000 
ST9	032145 0      0   0   000000000037 000000000037 777777000000 


*032157 LDB	11,000012
INITIAL
C(AC)=400400 000001 
C(E)=140300 000000   C(C(E))=000000 070000 
FINAL
C(AC)=000000 000007 
C(E)=140300 000000   C(C(E))=000000 070000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032157 032157 0   0   135440000012 0            000000070000 
IT1	032157 0      0   0   135440000012 0            000000070000 
AT3	032157 0      0   0   000000000012 0            135440000012 
AT6	032157 000012 0   0   000000000012 0            135440000012 
FT0	032157 000012 0   0   140300000000 0            135440000012 
FT1A	032157 000012 0   0   140300000000 0            140300000000 
FT9	032157 000012 0   0   140300000000 0            140300000000 
ET0	032157 000012 0   0   140300000000 0            140300000000 
BYT6	032157 000012 0   0   140300000000 0            140300000000 
BYT7	032157 000012 775 0   140300000000 0            140300000000 
SCT0	032157 000012 775 0   140300000000 0            140300000000 
SCT3	032157 000012 776 0   140300000000 000000000001 140300000000 
SCT3	032157 000012 777 0   140300000000 000000000003 140300000000 
SCT3	032157 000012 0   0   140300000000 000000000007 140300000000 
SCT4	032157 000012 0   0   140300000000 000000000007 140300000000 
BYT7A	032157 000012 014 0   140300000000 000000000007 140300000000 
IT1	032157 0      014 0   140300000000 000000000007 140300000000 
AT3	032157 0      014 0   0            000000000007 140300000000 
AT6	032157 0      014 0   0            000000000007 140300000000 
FT0	032157 0      014 0   000000070000 000000000007 140300000000 
FT1A	032157 0      014 0   000000070000 000000000007 000000070000 
FT9	032160 0      014 0   000000070000 000000000007 000000070000 
ET0	032160 0      764 0   000000070000 000000000007 000000070000 
SCT0	032160 0      764 0   000000070000 000000000007 000000070000 
SCT3	032160 0      765 0   000000034000 000000000007 000000070000 
SCT3	032160 0      766 0   000000016000 000000000007 000000070000 
SCT3	032160 0      767 0   000000007000 000000000007 000000070000 
SCT3	032160 0      0   0   000000003400 000000000007 000000070000 
SCT3	032160 0      771 0   000000001600 000000000007 000000070000 
SCT3	032160 0      772 0   000000000700 000000000007 000000070000 
SCT3	032160 0      773 0   000000000340 000000000007 000000070000 
SCT3	032160 0      774 0   000000000160 000000000007 000000070000 
SCT3	032160 0      775 0   000000000070 000000000007 000000070000 
SCT3	032160 0      776 0   000000000034 000000000007 000000070000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 62
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0324

SCT3	032160 0      777 0   000000000016 000000000007 000000070000 
SCT3	032160 0      0   0   000000000007 000000000007 000000070000 
SCT4	032160 0      0   0   000000000007 000000000007 000000070000 
LBT1	032160 0      0   0   000000000007 000000000007 000000070000 
ST0	032160 0      0   0   000000000007 000000000007 000000070000 
ST1	032160 0      0   0   000000000007 000000000007 000000070000 
ST2	032160 0      0   0   000000000007 000000000007 000000070000 
ST9	032160 0      0   0   000000000007 000000000007 000000070000 


*032166 LDB	11,000012
INITIAL
C(AC)=000000 000007 
C(E)=170300 000000   C(C(E))=000000 700000 
FINAL
C(AC)=000000 000007 
C(E)=170300 000000   C(C(E))=000000 700000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032166 032166 0   0   135440000012 0            000000700000 
IT1	032166 0      0   0   135440000012 0            000000700000 
AT3	032166 0      0   0   000000000012 0            135440000012 
AT6	032166 000012 0   0   000000000012 0            135440000012 
FT0	032166 000012 0   0   170300000000 0            135440000012 
FT1A	032166 000012 0   0   170300000000 0            170300000000 
FT9	032166 000012 0   0   170300000000 0            170300000000 
ET0	032166 000012 0   0   170300000000 0            170300000000 
BYT6	032166 000012 0   0   170300000000 0            170300000000 
BYT7	032166 000012 775 0   170300000000 0            170300000000 
SCT0	032166 000012 775 0   170300000000 0            170300000000 
SCT3	032166 000012 776 0   170300000000 000000000001 170300000000 
SCT3	032166 000012 777 0   170300000000 000000000003 170300000000 
SCT3	032166 000012 0   0   170300000000 000000000007 170300000000 
SCT4	032166 000012 0   0   170300000000 000000000007 170300000000 
BYT7A	032166 000012 017 0   170300000000 000000000007 170300000000 
IT1	032166 0      017 0   170300000000 000000000007 170300000000 
AT3	032166 0      017 0   0            000000000007 170300000000 
AT6	032166 0      017 0   0            000000000007 170300000000 
FT0	032166 0      017 0   000000700000 000000000007 170300000000 
FT1A	032166 0      017 0   000000700000 000000000007 000000700000 
FT9	032167 0      017 0   000000700000 000000000007 000000700000 
ET0	032167 0      761 0   000000700000 000000000007 000000700000 
SCT0	032167 0      761 0   000000700000 000000000007 000000700000 
SCT3	032167 0      762 0   000000340000 000000000007 000000700000 
SCT3	032167 0      763 0   000000160000 000000000007 000000700000 
SCT3	032167 0      764 0   000000070000 000000000007 000000700000 
SCT3	032167 0      765 0   000000034000 000000000007 000000700000 
SCT3	032167 0      766 0   000000016000 000000000007 000000700000 
SCT3	032167 0      767 0   000000007000 000000000007 000000700000 
SCT3	032167 0      0   0   000000003400 000000000007 000000700000 
SCT3	032167 0      771 0   000000001600 000000000007 000000700000 
SCT3	032167 0      772 0   000000000700 000000000007 000000700000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 63
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0325

SCT3	032167 0      773 0   000000000340 000000000007 000000700000 
SCT3	032167 0      774 0   000000000160 000000000007 000000700000 
SCT3	032167 0      775 0   000000000070 000000000007 000000700000 
SCT3	032167 0      776 0   000000000034 000000000007 000000700000 
SCT3	032167 0      777 0   000000000016 000000000007 000000700000 
SCT3	032167 0      0   0   000000000007 000000000007 000000700000 
SCT4	032167 0      0   0   000000000007 000000000007 000000700000 
LBT1	032167 0      0   0   000000000007 000000000007 000000700000 
ST0	032167 0      0   0   000000000007 000000000007 000000700000 
ST1	032167 0      0   0   000000000007 000000000007 000000700000 
ST2	032167 0      0   0   000000000007 000000000007 000000700000 
ST9	032167 0      0   0   000000000007 000000000007 000000700000 


*032175 LDB	11,000012
INITIAL
C(AC)=000000 000007 
C(E)=220300 000000   C(C(E))=000007 000000 
FINAL
C(AC)=000000 000007 
C(E)=220300 000000   C(C(E))=000007 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032175 032175 0   0   135440000012 0            000007000000 
IT1	032175 0      0   0   135440000012 0            000007000000 
AT3	032175 0      0   0   000000000012 0            135440000012 
AT6	032175 000012 0   0   000000000012 0            135440000012 
FT0	032175 000012 0   0   220300000000 0            135440000012 
FT1A	032175 000012 0   0   220300000000 0            220300000000 
FT9	032175 000012 0   0   220300000000 0            220300000000 
ET0	032175 000012 0   0   220300000000 0            220300000000 
BYT6	032175 000012 0   0   220300000000 0            220300000000 
BYT7	032175 000012 775 0   220300000000 0            220300000000 
SCT0	032175 000012 775 0   220300000000 0            220300000000 
SCT3	032175 000012 776 0   220300000000 000000000001 220300000000 
SCT3	032175 000012 777 0   220300000000 000000000003 220300000000 
SCT3	032175 000012 0   0   220300000000 000000000007 220300000000 
SCT4	032175 000012 0   0   220300000000 000000000007 220300000000 
BYT7A	032175 000012 022 0   220300000000 000000000007 220300000000 
IT1	032175 0      022 0   220300000000 000000000007 220300000000 
AT3	032175 0      022 0   0            000000000007 220300000000 
AT6	032175 0      022 0   0            000000000007 220300000000 
FT0	032175 0      022 0   000007000000 000000000007 220300000000 
FT1A	032175 0      022 0   000007000000 000000000007 000007000000 
FT9	032176 0      022 0   000007000000 000000000007 000007000000 
ET0	032176 0      756 0   000007000000 000000000007 000007000000 
SCT0	032176 0      756 0   000007000000 000000000007 000007000000 
SCT3	032176 0      757 0   000003400000 000000000007 000007000000 
SCT3	032176 0      0   0   000001600000 000000000007 000007000000 
SCT3	032176 0      761 0   000000700000 000000000007 000007000000 
SCT3	032176 0      762 0   000000340000 000000000007 000007000000 
SCT3	032176 0      763 0   000000160000 000000000007 000007000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 64
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0326

SCT3	032176 0      764 0   000000070000 000000000007 000007000000 
SCT3	032176 0      765 0   000000034000 000000000007 000007000000 
SCT3	032176 0      766 0   000000016000 000000000007 000007000000 
SCT3	032176 0      767 0   000000007000 000000000007 000007000000 
SCT3	032176 0      0   0   000000003400 000000000007 000007000000 
SCT3	032176 0      771 0   000000001600 000000000007 000007000000 
SCT3	032176 0      772 0   000000000700 000000000007 000007000000 
SCT3	032176 0      773 0   000000000340 000000000007 000007000000 
SCT3	032176 0      774 0   000000000160 000000000007 000007000000 
SCT3	032176 0      775 0   000000000070 000000000007 000007000000 
SCT3	032176 0      776 0   000000000034 000000000007 000007000000 
SCT3	032176 0      777 0   000000000016 000000000007 000007000000 
SCT3	032176 0      0   0   000000000007 000000000007 000007000000 
SCT4	032176 0      0   0   000000000007 000000000007 000007000000 
LBT1	032176 0      0   0   000000000007 000000000007 000007000000 
ST0	032176 0      0   0   000000000007 000000000007 000007000000 
ST1	032176 0      0   0   000000000007 000000000007 000007000000 
ST2	032176 0      0   0   000000000007 000000000007 000007000000 
ST9	032176 0      0   0   000000000007 000000000007 000007000000 


*032204 LDB	11,000012
INITIAL
C(AC)=000000 000007 
C(E)=250300 000000   C(C(E))=000070 000000 
FINAL
C(AC)=000000 000007 
C(E)=250300 000000   C(C(E))=000070 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032204 032204 0   0   135440000012 0            000070000000 
IT1	032204 0      0   0   135440000012 0            000070000000 
AT3	032204 0      0   0   000000000012 0            135440000012 
AT6	032204 000012 0   0   000000000012 0            135440000012 
FT0	032204 000012 0   0   250300000000 0            135440000012 
FT1A	032204 000012 0   0   250300000000 0            250300000000 
FT9	032204 000012 0   0   250300000000 0            250300000000 
ET0	032204 000012 0   0   250300000000 0            250300000000 
BYT6	032204 000012 0   0   250300000000 0            250300000000 
BYT7	032204 000012 775 0   250300000000 0            250300000000 
SCT0	032204 000012 775 0   250300000000 0            250300000000 
SCT3	032204 000012 776 0   250300000000 000000000001 250300000000 
SCT3	032204 000012 777 0   250300000000 000000000003 250300000000 
SCT3	032204 000012 0   0   250300000000 000000000007 250300000000 
SCT4	032204 000012 0   0   250300000000 000000000007 250300000000 
BYT7A	032204 000012 025 0   250300000000 000000000007 250300000000 
IT1	032204 0      025 0   250300000000 000000000007 250300000000 
AT3	032204 0      025 0   0            000000000007 250300000000 
AT6	032204 0      025 0   0            000000000007 250300000000 
FT0	032204 0      025 0   000070000000 000000000007 250300000000 
FT1A	032204 0      025 0   000070000000 000000000007 000070000000 
FT9	032205 0      025 0   000070000000 000000000007 000070000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 65
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0327

ET0	032205 0      753 0   000070000000 000000000007 000070000000 
SCT0	032205 0      753 0   000070000000 000000000007 000070000000 
SCT3	032205 0      754 0   000034000000 000000000007 000070000000 
SCT3	032205 0      755 0   000016000000 000000000007 000070000000 
SCT3	032205 0      756 0   000007000000 000000000007 000070000000 
SCT3	032205 0      757 0   000003400000 000000000007 000070000000 
SCT3	032205 0      0   0   000001600000 000000000007 000070000000 
SCT3	032205 0      761 0   000000700000 000000000007 000070000000 
SCT3	032205 0      762 0   000000340000 000000000007 000070000000 
SCT3	032205 0      763 0   000000160000 000000000007 000070000000 
SCT3	032205 0      764 0   000000070000 000000000007 000070000000 
SCT3	032205 0      765 0   000000034000 000000000007 000070000000 
SCT3	032205 0      766 0   000000016000 000000000007 000070000000 
SCT3	032205 0      767 0   000000007000 000000000007 000070000000 
SCT3	032205 0      0   0   000000003400 000000000007 000070000000 
SCT3	032205 0      771 0   000000001600 000000000007 000070000000 
SCT3	032205 0      772 0   000000000700 000000000007 000070000000 
SCT3	032205 0      773 0   000000000340 000000000007 000070000000 
SCT3	032205 0      774 0   000000000160 000000000007 000070000000 
SCT3	032205 0      775 0   000000000070 000000000007 000070000000 
SCT3	032205 0      776 0   000000000034 000000000007 000070000000 
SCT3	032205 0      777 0   000000000016 000000000007 000070000000 
SCT3	032205 0      0   0   000000000007 000000000007 000070000000 
SCT4	032205 0      0   0   000000000007 000000000007 000070000000 
LBT1	032205 0      0   0   000000000007 000000000007 000070000000 
ST0	032205 0      0   0   000000000007 000000000007 000070000000 
ST1	032205 0      0   0   000000000007 000000000007 000070000000 
ST2	032205 0      0   0   000000000007 000000000007 000070000000 
ST9	032205 0      0   0   000000000007 000000000007 000070000000 


*032213 LDB	11,000012
INITIAL
C(AC)=000000 000007 
C(E)=300300 000000   C(C(E))=000700 000000 
FINAL
C(AC)=000000 000007 
C(E)=300300 000000   C(C(E))=000700 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032213 032213 0   0   135440000012 0            000700000000 
IT1	032213 0      0   0   135440000012 0            000700000000 
AT3	032213 0      0   0   000000000012 0            135440000012 
AT6	032213 000012 0   0   000000000012 0            135440000012 
FT0	032213 000012 0   0   300300000000 0            135440000012 
FT1A	032213 000012 0   0   300300000000 0            300300000000 
FT9	032213 000012 0   0   300300000000 0            300300000000 
ET0	032213 000012 0   0   300300000000 0            300300000000 
BYT6	032213 000012 0   0   300300000000 0            300300000000 
BYT7	032213 000012 775 0   300300000000 0            300300000000 
SCT0	032213 000012 775 0   300300000000 0            300300000000 
SCT3	032213 000012 776 0   300300000000 000000000001 300300000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 66
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0328

SCT3	032213 000012 777 0   300300000000 000000000003 300300000000 
SCT3	032213 000012 0   0   300300000000 000000000007 300300000000 
SCT4	032213 000012 0   0   300300000000 000000000007 300300000000 
BYT7A	032213 000012 0   0   300300000000 000000000007 300300000000 
IT1	032213 0      0   0   300300000000 000000000007 300300000000 
AT3	032213 0      0   0   0            000000000007 300300000000 
AT6	032213 0      0   0   0            000000000007 300300000000 
FT0	032213 0      0   0   000700000000 000000000007 300300000000 
FT1A	032213 0      0   0   000700000000 000000000007 000700000000 
FT9	032214 0      0   0   000700000000 000000000007 000700000000 
ET0	032214 0      0   0   000700000000 000000000007 000700000000 
SCT0	032214 0      0   0   000700000000 000000000007 000700000000 
SCT3	032214 0      751 0   000340000000 000000000007 000700000000 
SCT3	032214 0      752 0   000160000000 000000000007 000700000000 
SCT3	032214 0      753 0   000070000000 000000000007 000700000000 
SCT3	032214 0      754 0   000034000000 000000000007 000700000000 
SCT3	032214 0      755 0   000016000000 000000000007 000700000000 
SCT3	032214 0      756 0   000007000000 000000000007 000700000000 
SCT3	032214 0      757 0   000003400000 000000000007 000700000000 
SCT3	032214 0      0   0   000001600000 000000000007 000700000000 
SCT3	032214 0      761 0   000000700000 000000000007 000700000000 
SCT3	032214 0      762 0   000000340000 000000000007 000700000000 
SCT3	032214 0      763 0   000000160000 000000000007 000700000000 
SCT3	032214 0      764 0   000000070000 000000000007 000700000000 
SCT3	032214 0      765 0   000000034000 000000000007 000700000000 
SCT3	032214 0      766 0   000000016000 000000000007 000700000000 
SCT3	032214 0      767 0   000000007000 000000000007 000700000000 
SCT3	032214 0      0   0   000000003400 000000000007 000700000000 
SCT3	032214 0      771 0   000000001600 000000000007 000700000000 
SCT3	032214 0      772 0   000000000700 000000000007 000700000000 
SCT3	032214 0      773 0   000000000340 000000000007 000700000000 
SCT3	032214 0      774 0   000000000160 000000000007 000700000000 
SCT3	032214 0      775 0   000000000070 000000000007 000700000000 
SCT3	032214 0      776 0   000000000034 000000000007 000700000000 
SCT3	032214 0      777 0   000000000016 000000000007 000700000000 
SCT3	032214 0      0   0   000000000007 000000000007 000700000000 
SCT4	032214 0      0   0   000000000007 000000000007 000700000000 
LBT1	032214 0      0   0   000000000007 000000000007 000700000000 
ST0	032214 0      0   0   000000000007 000000000007 000700000000 
ST1	032214 0      0   0   000000000007 000000000007 000700000000 
ST2	032214 0      0   0   000000000007 000000000007 000700000000 
ST9	032214 0      0   0   000000000007 000000000007 000700000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 67
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0329

*032226 LDB	7,000010
INITIAL
C(AC)=000000 000007 
C(E)=220300 000006   C(C(E))=000006 000000 
FINAL
C(AC)=000000 000006 
C(E)=220300 000006   C(C(E))=000006 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032226 032226 0   0   135340000010 0            000006000000 
IT1	032226 0      0   0   135340000010 0            000006000000 
AT3	032226 0      0   0   000000000010 0            135340000010 
AT6	032226 000010 0   0   000000000010 0            135340000010 
FT0	032226 000010 0   0   220300000006 0            135340000010 
FT1A	032226 000010 0   0   220300000006 0            220300000006 
FT9	032226 000010 0   0   220300000006 0            220300000006 
ET0	032226 000010 0   0   220300000006 0            220300000006 
BYT6	032226 000010 0   0   220300000006 0            220300000006 
BYT7	032226 000010 775 0   220300000006 0            220300000006 
SCT0	032226 000010 775 0   220300000006 0            220300000006 
SCT3	032226 000010 776 0   220300000006 000000000001 220300000006 
SCT3	032226 000010 777 0   220300000006 000000000003 220300000006 
SCT3	032226 000010 0   0   220300000006 000000000007 220300000006 
SCT4	032226 000010 0   0   220300000006 000000000007 220300000006 
BYT7A	032226 000010 022 0   220300000006 000000000007 220300000006 
IT1	032226 0      022 0   220300000006 000000000007 220300000006 
AT3	032226 0      022 0   000000000006 000000000007 220300000006 
AT6	032226 000006 022 0   000000000006 000000000007 220300000006 
FT0	032226 000006 022 0   000006000000 000000000007 220300000006 
FT1A	032226 000006 022 0   000006000000 000000000007 000006000000 
FT9	032227 000006 022 0   000006000000 000000000007 000006000000 
ET0	032227 000006 756 0   000006000000 000000000007 000006000000 
SCT0	032227 000006 756 0   000006000000 000000000007 000006000000 
SCT3	032227 000006 757 0   000003000000 000000000007 000006000000 
SCT3	032227 000006 0   0   000001400000 000000000007 000006000000 
SCT3	032227 000006 761 0   000000600000 000000000007 000006000000 
SCT3	032227 000006 762 0   000000300000 000000000007 000006000000 
SCT3	032227 000006 763 0   000000140000 000000000007 000006000000 
SCT3	032227 000006 764 0   000000060000 000000000007 000006000000 
SCT3	032227 000006 765 0   000000030000 000000000007 000006000000 
SCT3	032227 000006 766 0   000000014000 000000000007 000006000000 
SCT3	032227 000006 767 0   000000006000 000000000007 000006000000 
SCT3	032227 000006 0   0   000000003000 000000000007 000006000000 
SCT3	032227 000006 771 0   000000001400 000000000007 000006000000 
SCT3	032227 000006 772 0   000000000600 000000000007 000006000000 
SCT3	032227 000006 773 0   000000000300 000000000007 000006000000 
SCT3	032227 000006 774 0   000000000140 000000000007 000006000000 
SCT3	032227 000006 775 0   000000000060 000000000007 000006000000 
SCT3	032227 000006 776 0   000000000030 000000000007 000006000000 
SCT3	032227 000006 777 0   000000000014 000000000007 000006000000 
SCT3	032227 000006 0   0   000000000006 000000000007 000006000000 
SCT4	032227 000006 0   0   000000000006 000000000007 000006000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 68
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0330

LBT1	032227 000006 0   0   000000000006 000000000007 000006000000 
ST0	032227 000006 0   0   000000000006 000000000007 000006000000 
ST1	032227 000006 0   0   000000000006 000000000007 000006000000 
ST2	032227 000006 0   0   000000000006 000000000007 000006000000 
ST9	032227 000006 0   0   000000000006 000000000007 000006000000 


*032235 LDB	7,000010
INITIAL
C(AC)=000000 000006 
C(E)=220300 000005   C(C(E))=000005 000000 
FINAL
C(AC)=000000 000005 
C(E)=220300 000005   C(C(E))=000005 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032235 032235 0   0   135340000010 0            000005000000 
IT1	032235 0      0   0   135340000010 0            000005000000 
AT3	032235 0      0   0   000000000010 0            135340000010 
AT6	032235 000010 0   0   000000000010 0            135340000010 
FT0	032235 000010 0   0   220300000005 0            135340000010 
FT1A	032235 000010 0   0   220300000005 0            220300000005 
FT9	032235 000010 0   0   220300000005 0            220300000005 
ET0	032235 000010 0   0   220300000005 0            220300000005 
BYT6	032235 000010 0   0   220300000005 0            220300000005 
BYT7	032235 000010 775 0   220300000005 0            220300000005 
SCT0	032235 000010 775 0   220300000005 0            220300000005 
SCT3	032235 000010 776 0   220300000005 000000000001 220300000005 
SCT3	032235 000010 777 0   220300000005 000000000003 220300000005 
SCT3	032235 000010 0   0   220300000005 000000000007 220300000005 
SCT4	032235 000010 0   0   220300000005 000000000007 220300000005 
BYT7A	032235 000010 022 0   220300000005 000000000007 220300000005 
IT1	032235 0      022 0   220300000005 000000000007 220300000005 
AT3	032235 0      022 0   000000000005 000000000007 220300000005 
AT6	032235 000005 022 0   000000000005 000000000007 220300000005 
FT0	032235 000005 022 0   000005000000 000000000007 220300000005 
FT1A	032235 000005 022 0   000005000000 000000000007 000005000000 
FT9	032236 000005 022 0   000005000000 000000000007 000005000000 
ET0	032236 000005 756 0   000005000000 000000000007 000005000000 
SCT0	032236 000005 756 0   000005000000 000000000007 000005000000 
SCT3	032236 000005 757 0   000002400000 000000000007 000005000000 
SCT3	032236 000005 0   0   000001200000 000000000007 000005000000 
SCT3	032236 000005 761 0   000000500000 000000000007 000005000000 
SCT3	032236 000005 762 0   000000240000 000000000007 000005000000 
SCT3	032236 000005 763 0   000000120000 000000000007 000005000000 
SCT3	032236 000005 764 0   000000050000 000000000007 000005000000 
SCT3	032236 000005 765 0   000000024000 000000000007 000005000000 
SCT3	032236 000005 766 0   000000012000 000000000007 000005000000 
SCT3	032236 000005 767 0   000000005000 000000000007 000005000000 
SCT3	032236 000005 0   0   000000002400 000000000007 000005000000 
SCT3	032236 000005 771 0   000000001200 000000000007 000005000000 
SCT3	032236 000005 772 0   000000000500 000000000007 000005000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 69
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0331

SCT3	032236 000005 773 0   000000000240 000000000007 000005000000 
SCT3	032236 000005 774 0   000000000120 000000000007 000005000000 
SCT3	032236 000005 775 0   000000000050 000000000007 000005000000 
SCT3	032236 000005 776 0   000000000024 000000000007 000005000000 
SCT3	032236 000005 777 0   000000000012 000000000007 000005000000 
SCT3	032236 000005 0   0   000000000005 000000000007 000005000000 
SCT4	032236 000005 0   0   000000000005 000000000007 000005000000 
LBT1	032236 000005 0   0   000000000005 000000000007 000005000000 
ST0	032236 000005 0   0   000000000005 000000000007 000005000000 
ST1	032236 000005 0   0   000000000005 000000000007 000005000000 
ST2	032236 000005 0   0   000000000005 000000000007 000005000000 
ST9	032236 000005 0   0   000000000005 000000000007 000005000000 


*032244 LDB	7,000010
INITIAL
C(AC)=000000 000005 
C(E)=220300 000004   C(C(E))=000004 000000 
FINAL
C(AC)=000000 000004 
C(E)=220300 000004   C(C(E))=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   135340000010 0            000004000000 
IT1	032244 0      0   0   135340000010 0            000004000000 
AT3	032244 0      0   0   000000000010 0            135340000010 
AT6	032244 000010 0   0   000000000010 0            135340000010 
FT0	032244 000010 0   0   220300000004 0            135340000010 
FT1A	032244 000010 0   0   220300000004 0            220300000004 
FT9	032244 000010 0   0   220300000004 0            220300000004 
ET0	032244 000010 0   0   220300000004 0            220300000004 
BYT6	032244 000010 0   0   220300000004 0            220300000004 
BYT7	032244 000010 775 0   220300000004 0            220300000004 
SCT0	032244 000010 775 0   220300000004 0            220300000004 
SCT3	032244 000010 776 0   220300000004 000000000001 220300000004 
SCT3	032244 000010 777 0   220300000004 000000000003 220300000004 
SCT3	032244 000010 0   0   220300000004 000000000007 220300000004 
SCT4	032244 000010 0   0   220300000004 000000000007 220300000004 
BYT7A	032244 000010 022 0   220300000004 000000000007 220300000004 
IT1	032244 0      022 0   220300000004 000000000007 220300000004 
AT3	032244 0      022 0   000000000004 000000000007 220300000004 
AT6	032244 000004 022 0   000000000004 000000000007 220300000004 
FT0	032244 000004 022 0   000004000000 000000000007 220300000004 
FT1A	032244 000004 022 0   000004000000 000000000007 000004000000 
FT9	032245 000004 022 0   000004000000 000000000007 000004000000 
ET0	032245 000004 756 0   000004000000 000000000007 000004000000 
SCT0	032245 000004 756 0   000004000000 000000000007 000004000000 
SCT3	032245 000004 757 0   000002000000 000000000007 000004000000 
SCT3	032245 000004 0   0   000001000000 000000000007 000004000000 
SCT3	032245 000004 761 0   000000400000 000000000007 000004000000 
SCT3	032245 000004 762 0   000000200000 000000000007 000004000000 
SCT3	032245 000004 763 0   000000100000 000000000007 000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 70
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0332

SCT3	032245 000004 764 0   000000040000 000000000007 000004000000 
SCT3	032245 000004 765 0   000000020000 000000000007 000004000000 
SCT3	032245 000004 766 0   000000010000 000000000007 000004000000 
SCT3	032245 000004 767 0   000000004000 000000000007 000004000000 
SCT3	032245 000004 0   0   000000002000 000000000007 000004000000 
SCT3	032245 000004 771 0   000000001000 000000000007 000004000000 
SCT3	032245 000004 772 0   000000000400 000000000007 000004000000 
SCT3	032245 000004 773 0   000000000200 000000000007 000004000000 
SCT3	032245 000004 774 0   000000000100 000000000007 000004000000 
SCT3	032245 000004 775 0   000000000040 000000000007 000004000000 
SCT3	032245 000004 776 0   000000000020 000000000007 000004000000 
SCT3	032245 000004 777 0   000000000010 000000000007 000004000000 
SCT3	032245 000004 0   0   000000000004 000000000007 000004000000 
SCT4	032245 000004 0   0   000000000004 000000000007 000004000000 
LBT1	032245 000004 0   0   000000000004 000000000007 000004000000 
ST0	032245 000004 0   0   000000000004 000000000007 000004000000 
ST1	032245 000004 0   0   000000000004 000000000007 000004000000 
ST2	032245 000004 0   0   000000000004 000000000007 000004000000 
ST9	032245 000004 0   0   000000000004 000000000007 000004000000 


*032253 LDB	7,000010
INITIAL
C(AC)=000000 000004 
C(E)=220300 000003   C(C(E))=000003 000000 
FINAL
C(AC)=000000 000003 
C(E)=220300 000003   C(C(E))=000003 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032253 032253 0   0   135340000010 0            000003000000 
IT1	032253 0      0   0   135340000010 0            000003000000 
AT3	032253 0      0   0   000000000010 0            135340000010 
AT6	032253 000010 0   0   000000000010 0            135340000010 
FT0	032253 000010 0   0   220300000003 0            135340000010 
FT1A	032253 000010 0   0   220300000003 0            220300000003 
FT9	032253 000010 0   0   220300000003 0            220300000003 
ET0	032253 000010 0   0   220300000003 0            220300000003 
BYT6	032253 000010 0   0   220300000003 0            220300000003 
BYT7	032253 000010 775 0   220300000003 0            220300000003 
SCT0	032253 000010 775 0   220300000003 0            220300000003 
SCT3	032253 000010 776 0   220300000003 000000000001 220300000003 
SCT3	032253 000010 777 0   220300000003 000000000003 220300000003 
SCT3	032253 000010 0   0   220300000003 000000000007 220300000003 
SCT4	032253 000010 0   0   220300000003 000000000007 220300000003 
BYT7A	032253 000010 022 0   220300000003 000000000007 220300000003 
IT1	032253 0      022 0   220300000003 000000000007 220300000003 
AT3	032253 0      022 0   000000000003 000000000007 220300000003 
AT6	032253 000003 022 0   000000000003 000000000007 220300000003 
FT0	032253 000003 022 0   000003000000 000000000007 220300000003 
FT1A	032253 000003 022 0   000003000000 000000000007 000003000000 
FT9	032254 000003 022 0   000003000000 000000000007 000003000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 71
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0333

ET0	032254 000003 756 0   000003000000 000000000007 000003000000 
SCT0	032254 000003 756 0   000003000000 000000000007 000003000000 
SCT3	032254 000003 757 0   000001400000 000000000007 000003000000 
SCT3	032254 000003 0   0   000000600000 000000000007 000003000000 
SCT3	032254 000003 761 0   000000300000 000000000007 000003000000 
SCT3	032254 000003 762 0   000000140000 000000000007 000003000000 
SCT3	032254 000003 763 0   000000060000 000000000007 000003000000 
SCT3	032254 000003 764 0   000000030000 000000000007 000003000000 
SCT3	032254 000003 765 0   000000014000 000000000007 000003000000 
SCT3	032254 000003 766 0   000000006000 000000000007 000003000000 
SCT3	032254 000003 767 0   000000003000 000000000007 000003000000 
SCT3	032254 000003 0   0   000000001400 000000000007 000003000000 
SCT3	032254 000003 771 0   000000000600 000000000007 000003000000 
SCT3	032254 000003 772 0   000000000300 000000000007 000003000000 
SCT3	032254 000003 773 0   000000000140 000000000007 000003000000 
SCT3	032254 000003 774 0   000000000060 000000000007 000003000000 
SCT3	032254 000003 775 0   000000000030 000000000007 000003000000 
SCT3	032254 000003 776 0   000000000014 000000000007 000003000000 
SCT3	032254 000003 777 0   000000000006 000000000007 000003000000 
SCT3	032254 000003 0   0   000000000003 000000000007 000003000000 
SCT4	032254 000003 0   0   000000000003 000000000007 000003000000 
LBT1	032254 000003 0   0   000000000003 000000000007 000003000000 
ST0	032254 000003 0   0   000000000003 000000000007 000003000000 
ST1	032254 000003 0   0   000000000003 000000000007 000003000000 
ST2	032254 000003 0   0   000000000003 000000000007 000003000000 
ST9	032254 000003 0   0   000000000003 000000000007 000003000000 


*032262 LDB	7,000010
INITIAL
C(AC)=000000 000003 
C(E)=220300 000002   C(C(E))=000002 000000 
FINAL
C(AC)=000000 000002 
C(E)=220300 000002   C(C(E))=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032262 032262 0   0   135340000010 0            000002000000 
IT1	032262 0      0   0   135340000010 0            000002000000 
AT3	032262 0      0   0   000000000010 0            135340000010 
AT6	032262 000010 0   0   000000000010 0            135340000010 
FT0	032262 000010 0   0   220300000002 0            135340000010 
FT1A	032262 000010 0   0   220300000002 0            220300000002 
FT9	032262 000010 0   0   220300000002 0            220300000002 
ET0	032262 000010 0   0   220300000002 0            220300000002 
BYT6	032262 000010 0   0   220300000002 0            220300000002 
BYT7	032262 000010 775 0   220300000002 0            220300000002 
SCT0	032262 000010 775 0   220300000002 0            220300000002 
SCT3	032262 000010 776 0   220300000002 000000000001 220300000002 
SCT3	032262 000010 777 0   220300000002 000000000003 220300000002 
SCT3	032262 000010 0   0   220300000002 000000000007 220300000002 
SCT4	032262 000010 0   0   220300000002 000000000007 220300000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 72
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0334

BYT7A	032262 000010 022 0   220300000002 000000000007 220300000002 
IT1	032262 0      022 0   220300000002 000000000007 220300000002 
AT3	032262 0      022 0   000000000002 000000000007 220300000002 
AT6	032262 000002 022 0   000000000002 000000000007 220300000002 
FT0	032262 000002 022 0   000002000000 000000000007 220300000002 
FT1A	032262 000002 022 0   000002000000 000000000007 000002000000 
FT9	032263 000002 022 0   000002000000 000000000007 000002000000 
ET0	032263 000002 756 0   000002000000 000000000007 000002000000 
SCT0	032263 000002 756 0   000002000000 000000000007 000002000000 
SCT3	032263 000002 757 0   000001000000 000000000007 000002000000 
SCT3	032263 000002 0   0   000000400000 000000000007 000002000000 
SCT3	032263 000002 761 0   000000200000 000000000007 000002000000 
SCT3	032263 000002 762 0   000000100000 000000000007 000002000000 
SCT3	032263 000002 763 0   000000040000 000000000007 000002000000 
SCT3	032263 000002 764 0   000000020000 000000000007 000002000000 
SCT3	032263 000002 765 0   000000010000 000000000007 000002000000 
SCT3	032263 000002 766 0   000000004000 000000000007 000002000000 
SCT3	032263 000002 767 0   000000002000 000000000007 000002000000 
SCT3	032263 000002 0   0   000000001000 000000000007 000002000000 
SCT3	032263 000002 771 0   000000000400 000000000007 000002000000 
SCT3	032263 000002 772 0   000000000200 000000000007 000002000000 
SCT3	032263 000002 773 0   000000000100 000000000007 000002000000 
SCT3	032263 000002 774 0   000000000040 000000000007 000002000000 
SCT3	032263 000002 775 0   000000000020 000000000007 000002000000 
SCT3	032263 000002 776 0   000000000010 000000000007 000002000000 
SCT3	032263 000002 777 0   000000000004 000000000007 000002000000 
SCT3	032263 000002 0   0   000000000002 000000000007 000002000000 
SCT4	032263 000002 0   0   000000000002 000000000007 000002000000 
LBT1	032263 000002 0   0   000000000002 000000000007 000002000000 
ST0	032263 000002 0   0   000000000002 000000000007 000002000000 
ST1	032263 000002 0   0   000000000002 000000000007 000002000000 
ST2	032263 000002 0   0   000000000002 000000000007 000002000000 
ST9	032263 000002 0   0   000000000002 000000000007 000002000000 


*032275 LDB	10,000000(1)
INITIAL
C(AC)=220300 000002 
C(E)=000300 000000   C(C(E))=000300 000000 
FINAL
C(AC)=000000 000001 
C(E)=000300 000001   C(C(E))=000300 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032275 032275 0   0   135401000000 0            000300000001 
IT1	032275 0      0   0   135401000000 0            000300000001 
AT1	032275 0      0   0   0            0            135401000000 
AT2	032275 0      0   0   000300000001 0            135401000000 
AT3	032275 0      0   0   000000000001 0            000300000001 
AT6	032275 000001 0   0   000000000001 0            000300000001 
FT0	032275 000001 0   0   000300000001 0            000300000001 
FT1A	032275 000001 0   0   000300000001 0            000300000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 73
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0335

FT9	032275 000001 0   0   000300000001 0            000300000001 
ET0	032275 000001 0   0   000300000001 0            000300000001 
BYT6	032275 000001 0   0   000300000001 0            000300000001 
BYT7	032275 000001 775 0   000300000001 0            000300000001 
SCT0	032275 000001 775 0   000300000001 0            000300000001 
SCT3	032275 000001 776 0   000300000001 000000000001 000300000001 
SCT3	032275 000001 777 0   000300000001 000000000003 000300000001 
SCT3	032275 000001 0   0   000300000001 000000000007 000300000001 
SCT4	032275 000001 0   0   000300000001 000000000007 000300000001 
BYT7A	032275 000001 0   0   000300000001 000000000007 000300000001 
IT1	032275 0      0   0   000300000001 000000000007 000300000001 
AT3	032275 0      0   0   000000000001 000000000007 000300000001 
AT6	032275 000001 0   0   000000000001 000000000007 000300000001 
FT0	032275 000001 0   0   000300000001 000000000007 000300000001 
FT1A	032275 000001 0   0   000300000001 000000000007 000300000001 
FT9	032276 000001 0   0   000300000001 000000000007 000300000001 
ET0	032276 000001 0   0   000300000001 000000000007 000300000001 
SCT0	032276 000001 0   0   000300000001 000000000007 000300000001 
SCT4	032276 000001 0   0   000300000001 000000000007 000300000001 
LBT1	032276 000001 0   0   000000000001 000000000007 000300000001 
ST0	032276 000001 0   0   000000000001 000000000007 000300000001 
ST1	032276 000001 0   0   000000000001 000000000007 000300000001 
ST2	032276 000001 0   0   000000000001 000000000007 000300000001 
ST9	032276 000001 0   0   000000000001 000000000007 000300000001 


*032304 LDB	10,000000(2)
INITIAL
C(AC)=000000 000001 
C(E)=000300 000000   C(C(E))=000300 000000 
FINAL
C(AC)=000000 000002 
C(E)=000300 000002   C(C(E))=000300 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032304 032304 0   0   135402000000 0            000300000002 
IT1	032304 0      0   0   135402000000 0            000300000002 
AT1	032304 0      0   0   0            0            135402000000 
AT2	032304 0      0   0   000300000002 0            135402000000 
AT3	032304 0      0   0   000000000002 0            000300000002 
AT6	032304 000002 0   0   000000000002 0            000300000002 
FT0	032304 000002 0   0   000300000002 0            000300000002 
FT1A	032304 000002 0   0   000300000002 0            000300000002 
FT9	032304 000002 0   0   000300000002 0            000300000002 
ET0	032304 000002 0   0   000300000002 0            000300000002 
BYT6	032304 000002 0   0   000300000002 0            000300000002 
BYT7	032304 000002 775 0   000300000002 0            000300000002 
SCT0	032304 000002 775 0   000300000002 0            000300000002 
SCT3	032304 000002 776 0   000300000002 000000000001 000300000002 
SCT3	032304 000002 777 0   000300000002 000000000003 000300000002 
SCT3	032304 000002 0   0   000300000002 000000000007 000300000002 
SCT4	032304 000002 0   0   000300000002 000000000007 000300000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 74
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0336

BYT7A	032304 000002 0   0   000300000002 000000000007 000300000002 
IT1	032304 0      0   0   000300000002 000000000007 000300000002 
AT3	032304 0      0   0   000000000002 000000000007 000300000002 
AT6	032304 000002 0   0   000000000002 000000000007 000300000002 
FT0	032304 000002 0   0   000300000002 000000000007 000300000002 
FT1A	032304 000002 0   0   000300000002 000000000007 000300000002 
FT9	032305 000002 0   0   000300000002 000000000007 000300000002 
ET0	032305 000002 0   0   000300000002 000000000007 000300000002 
SCT0	032305 000002 0   0   000300000002 000000000007 000300000002 
SCT4	032305 000002 0   0   000300000002 000000000007 000300000002 
LBT1	032305 000002 0   0   000000000002 000000000007 000300000002 
ST0	032305 000002 0   0   000000000002 000000000007 000300000002 
ST1	032305 000002 0   0   000000000002 000000000007 000300000002 
ST2	032305 000002 0   0   000000000002 000000000007 000300000002 
ST9	032305 000002 0   0   000000000002 000000000007 000300000002 


*032313 LDB	10,000000(3)
INITIAL
C(AC)=000000 000002 
C(E)=000300 000000   C(C(E))=000300 000000 
FINAL
C(AC)=000000 000003 
C(E)=000300 000003   C(C(E))=000300 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032313 032313 0   0   135403000000 0            000300000003 
IT1	032313 0      0   0   135403000000 0            000300000003 
AT1	032313 0      0   0   0            0            135403000000 
AT2	032313 0      0   0   000300000003 0            135403000000 
AT3	032313 0      0   0   000000000003 0            000300000003 
AT6	032313 000003 0   0   000000000003 0            000300000003 
FT0	032313 000003 0   0   000300000003 0            000300000003 
FT1A	032313 000003 0   0   000300000003 0            000300000003 
FT9	032313 000003 0   0   000300000003 0            000300000003 
ET0	032313 000003 0   0   000300000003 0            000300000003 
BYT6	032313 000003 0   0   000300000003 0            000300000003 
BYT7	032313 000003 775 0   000300000003 0            000300000003 
SCT0	032313 000003 775 0   000300000003 0            000300000003 
SCT3	032313 000003 776 0   000300000003 000000000001 000300000003 
SCT3	032313 000003 777 0   000300000003 000000000003 000300000003 
SCT3	032313 000003 0   0   000300000003 000000000007 000300000003 
SCT4	032313 000003 0   0   000300000003 000000000007 000300000003 
BYT7A	032313 000003 0   0   000300000003 000000000007 000300000003 
IT1	032313 0      0   0   000300000003 000000000007 000300000003 
AT3	032313 0      0   0   000000000003 000000000007 000300000003 
AT6	032313 000003 0   0   000000000003 000000000007 000300000003 
FT0	032313 000003 0   0   000300000003 000000000007 000300000003 
FT1A	032313 000003 0   0   000300000003 000000000007 000300000003 
FT9	032314 000003 0   0   000300000003 000000000007 000300000003 
ET0	032314 000003 0   0   000300000003 000000000007 000300000003 
SCT0	032314 000003 0   0   000300000003 000000000007 000300000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 75
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0337

SCT4	032314 000003 0   0   000300000003 000000000007 000300000003 
LBT1	032314 000003 0   0   000000000003 000000000007 000300000003 
ST0	032314 000003 0   0   000000000003 000000000007 000300000003 
ST1	032314 000003 0   0   000000000003 000000000007 000300000003 
ST2	032314 000003 0   0   000000000003 000000000007 000300000003 
ST9	032314 000003 0   0   000000000003 000000000007 000300000003 


*032322 LDB	10,000000(4)
INITIAL
C(AC)=000000 000003 
C(E)=000300 000000   C(C(E))=000300 000000 
FINAL
C(AC)=000000 000004 
C(E)=000300 000004   C(C(E))=000300 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032322 032322 0   0   135404000000 0            000300000004 
IT1	032322 0      0   0   135404000000 0            000300000004 
AT1	032322 0      0   0   0            0            135404000000 
AT2	032322 0      0   0   000300000004 0            135404000000 
AT3	032322 0      0   0   000000000004 0            000300000004 
AT6	032322 000004 0   0   000000000004 0            000300000004 
FT0	032322 000004 0   0   000300000004 0            000300000004 
FT1A	032322 000004 0   0   000300000004 0            000300000004 
FT9	032322 000004 0   0   000300000004 0            000300000004 
ET0	032322 000004 0   0   000300000004 0            000300000004 
BYT6	032322 000004 0   0   000300000004 0            000300000004 
BYT7	032322 000004 775 0   000300000004 0            000300000004 
SCT0	032322 000004 775 0   000300000004 0            000300000004 
SCT3	032322 000004 776 0   000300000004 000000000001 000300000004 
SCT3	032322 000004 777 0   000300000004 000000000003 000300000004 
SCT3	032322 000004 0   0   000300000004 000000000007 000300000004 
SCT4	032322 000004 0   0   000300000004 000000000007 000300000004 
BYT7A	032322 000004 0   0   000300000004 000000000007 000300000004 
IT1	032322 0      0   0   000300000004 000000000007 000300000004 
AT3	032322 0      0   0   000000000004 000000000007 000300000004 
AT6	032322 000004 0   0   000000000004 000000000007 000300000004 
FT0	032322 000004 0   0   000300000004 000000000007 000300000004 
FT1A	032322 000004 0   0   000300000004 000000000007 000300000004 
FT9	032323 000004 0   0   000300000004 000000000007 000300000004 
ET0	032323 000004 0   0   000300000004 000000000007 000300000004 
SCT0	032323 000004 0   0   000300000004 000000000007 000300000004 
SCT4	032323 000004 0   0   000300000004 000000000007 000300000004 
LBT1	032323 000004 0   0   000000000004 000000000007 000300000004 
ST0	032323 000004 0   0   000000000004 000000000007 000300000004 
ST1	032323 000004 0   0   000000000004 000000000007 000300000004 
ST2	032323 000004 0   0   000000000004 000000000007 000300000004 
ST9	032323 000004 0   0   000000000004 000000000007 000300000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 76
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0338

*032331 LDB	10,000000(5)
INITIAL
C(AC)=000000 000004 
C(E)=000300 000000   C(C(E))=000300 000000 
FINAL
C(AC)=000000 000005 
C(E)=000300 000005   C(C(E))=000300 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032331 032331 0   0   135405000000 0            000300000005 
IT1	032331 0      0   0   135405000000 0            000300000005 
AT1	032331 0      0   0   0            0            135405000000 
AT2	032331 0      0   0   000300000005 0            135405000000 
AT3	032331 0      0   0   000000000005 0            000300000005 
AT6	032331 000005 0   0   000000000005 0            000300000005 
FT0	032331 000005 0   0   000300000005 0            000300000005 
FT1A	032331 000005 0   0   000300000005 0            000300000005 
FT9	032331 000005 0   0   000300000005 0            000300000005 
ET0	032331 000005 0   0   000300000005 0            000300000005 
BYT6	032331 000005 0   0   000300000005 0            000300000005 
BYT7	032331 000005 775 0   000300000005 0            000300000005 
SCT0	032331 000005 775 0   000300000005 0            000300000005 
SCT3	032331 000005 776 0   000300000005 000000000001 000300000005 
SCT3	032331 000005 777 0   000300000005 000000000003 000300000005 
SCT3	032331 000005 0   0   000300000005 000000000007 000300000005 
SCT4	032331 000005 0   0   000300000005 000000000007 000300000005 
BYT7A	032331 000005 0   0   000300000005 000000000007 000300000005 
IT1	032331 0      0   0   000300000005 000000000007 000300000005 
AT3	032331 0      0   0   000000000005 000000000007 000300000005 
AT6	032331 000005 0   0   000000000005 000000000007 000300000005 
FT0	032331 000005 0   0   000300000005 000000000007 000300000005 
FT1A	032331 000005 0   0   000300000005 000000000007 000300000005 
FT9	032332 000005 0   0   000300000005 000000000007 000300000005 
ET0	032332 000005 0   0   000300000005 000000000007 000300000005 
SCT0	032332 000005 0   0   000300000005 000000000007 000300000005 
SCT4	032332 000005 0   0   000300000005 000000000007 000300000005 
LBT1	032332 000005 0   0   000000000005 000000000007 000300000005 
ST0	032332 000005 0   0   000000000005 000000000007 000300000005 
ST1	032332 000005 0   0   000000000005 000000000007 000300000005 
ST2	032332 000005 0   0   000000000005 000000000007 000300000005 
ST9	032332 000005 0   0   000000000005 000000000007 000300000005 


*032346 LDB	7,@000010
INITIAL
C(AC)=000000 000002 
C(E)=440300 000001   C(C(E))=000300 000001 
FINAL
C(AC)=000000 000001 
C(E)=000300 000001   C(C(E))=000300 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 77
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0339

IT0	032346 032346 0   0   135360000010 0            000300000001 
IT1	032346 0      0   0   135360000010 0            000300000001 
AT3	032346 0      0   0   000000000010 0            135360000010 
AT4	032346 000010 0   0   440300000001 0            135360000010 
IT1	032346 0      0   0   440300000001 0            135360000010 
AT3	032346 0      0   0   000000000001 0            440300000001 
AT6	032346 000001 0   0   000000000001 0            440300000001 
FT0	032346 000001 0   0   000300000001 0            440300000001 
FT1A	032346 000001 0   0   000300000001 0            000300000001 
FT9	032346 000001 0   0   000300000001 0            000300000001 
ET0	032346 000001 0   0   000300000001 0            000300000001 
BYT6	032346 000001 0   0   000300000001 0            000300000001 
BYT7	032346 000001 775 0   000300000001 0            000300000001 
SCT0	032346 000001 775 0   000300000001 0            000300000001 
SCT3	032346 000001 776 0   000300000001 000000000001 000300000001 
SCT3	032346 000001 777 0   000300000001 000000000003 000300000001 
SCT3	032346 000001 0   0   000300000001 000000000007 000300000001 
SCT4	032346 000001 0   0   000300000001 000000000007 000300000001 
BYT7A	032346 000001 0   0   000300000001 000000000007 000300000001 
IT1	032346 0      0   0   000300000001 000000000007 000300000001 
AT3	032346 0      0   0   000000000001 000000000007 000300000001 
AT6	032346 000001 0   0   000000000001 000000000007 000300000001 
FT0	032346 000001 0   0   000300000001 000000000007 000300000001 
FT1A	032346 000001 0   0   000300000001 000000000007 000300000001 
FT9	032347 000001 0   0   000300000001 000000000007 000300000001 
ET0	032347 000001 0   0   000300000001 000000000007 000300000001 
SCT0	032347 000001 0   0   000300000001 000000000007 000300000001 
SCT4	032347 000001 0   0   000300000001 000000000007 000300000001 
LBT1	032347 000001 0   0   000000000001 000000000007 000300000001 
ST0	032347 000001 0   0   000000000001 000000000007 000300000001 
ST1	032347 000001 0   0   000000000001 000000000007 000300000001 
ST2	032347 000001 0   0   000000000001 000000000007 000300000001 
ST9	032347 000001 0   0   000000000001 000000000007 000300000001 


*032357 LDB	7,@000010
INITIAL
C(AC)=000000 000001 
C(E)=440300 000002   C(C(E))=000300 000002 
FINAL
C(AC)=000000 000002 
C(E)=000300 000002   C(C(E))=000300 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032357 032357 0   0   135360000010 0            000300000002 
IT1	032357 0      0   0   135360000010 0            000300000002 
AT3	032357 0      0   0   000000000010 0            135360000010 
AT4	032357 000010 0   0   440300000002 0            135360000010 
IT1	032357 0      0   0   440300000002 0            135360000010 
AT3	032357 0      0   0   000000000002 0            440300000002 
AT6	032357 000002 0   0   000000000002 0            440300000002 
FT0	032357 000002 0   0   000300000002 0            440300000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 78
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0340

FT1A	032357 000002 0   0   000300000002 0            000300000002 
FT9	032357 000002 0   0   000300000002 0            000300000002 
ET0	032357 000002 0   0   000300000002 0            000300000002 
BYT6	032357 000002 0   0   000300000002 0            000300000002 
BYT7	032357 000002 775 0   000300000002 0            000300000002 
SCT0	032357 000002 775 0   000300000002 0            000300000002 
SCT3	032357 000002 776 0   000300000002 000000000001 000300000002 
SCT3	032357 000002 777 0   000300000002 000000000003 000300000002 
SCT3	032357 000002 0   0   000300000002 000000000007 000300000002 
SCT4	032357 000002 0   0   000300000002 000000000007 000300000002 
BYT7A	032357 000002 0   0   000300000002 000000000007 000300000002 
IT1	032357 0      0   0   000300000002 000000000007 000300000002 
AT3	032357 0      0   0   000000000002 000000000007 000300000002 
AT6	032357 000002 0   0   000000000002 000000000007 000300000002 
FT0	032357 000002 0   0   000300000002 000000000007 000300000002 
FT1A	032357 000002 0   0   000300000002 000000000007 000300000002 
FT9	032360 000002 0   0   000300000002 000000000007 000300000002 
ET0	032360 000002 0   0   000300000002 000000000007 000300000002 
SCT0	032360 000002 0   0   000300000002 000000000007 000300000002 
SCT4	032360 000002 0   0   000300000002 000000000007 000300000002 
LBT1	032360 000002 0   0   000000000002 000000000007 000300000002 
ST0	032360 000002 0   0   000000000002 000000000007 000300000002 
ST1	032360 000002 0   0   000000000002 000000000007 000300000002 
ST2	032360 000002 0   0   000000000002 000000000007 000300000002 
ST9	032360 000002 0   0   000000000002 000000000007 000300000002 


*032370 LDB	7,@000010
INITIAL
C(AC)=000000 000002 
C(E)=440300 000003   C(C(E))=000300 000003 
FINAL
C(AC)=000000 000003 
C(E)=000300 000003   C(C(E))=000300 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032370 032370 0   0   135360000010 0            000300000003 
IT1	032370 0      0   0   135360000010 0            000300000003 
AT3	032370 0      0   0   000000000010 0            135360000010 
AT4	032370 000010 0   0   440300000003 0            135360000010 
IT1	032370 0      0   0   440300000003 0            135360000010 
AT3	032370 0      0   0   000000000003 0            440300000003 
AT6	032370 000003 0   0   000000000003 0            440300000003 
FT0	032370 000003 0   0   000300000003 0            440300000003 
FT1A	032370 000003 0   0   000300000003 0            000300000003 
FT9	032370 000003 0   0   000300000003 0            000300000003 
ET0	032370 000003 0   0   000300000003 0            000300000003 
BYT6	032370 000003 0   0   000300000003 0            000300000003 
BYT7	032370 000003 775 0   000300000003 0            000300000003 
SCT0	032370 000003 775 0   000300000003 0            000300000003 
SCT3	032370 000003 776 0   000300000003 000000000001 000300000003 
SCT3	032370 000003 777 0   000300000003 000000000003 000300000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 79
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0341

SCT3	032370 000003 0   0   000300000003 000000000007 000300000003 
SCT4	032370 000003 0   0   000300000003 000000000007 000300000003 
BYT7A	032370 000003 0   0   000300000003 000000000007 000300000003 
IT1	032370 0      0   0   000300000003 000000000007 000300000003 
AT3	032370 0      0   0   000000000003 000000000007 000300000003 
AT6	032370 000003 0   0   000000000003 000000000007 000300000003 
FT0	032370 000003 0   0   000300000003 000000000007 000300000003 
FT1A	032370 000003 0   0   000300000003 000000000007 000300000003 
FT9	032371 000003 0   0   000300000003 000000000007 000300000003 
ET0	032371 000003 0   0   000300000003 000000000007 000300000003 
SCT0	032371 000003 0   0   000300000003 000000000007 000300000003 
SCT4	032371 000003 0   0   000300000003 000000000007 000300000003 
LBT1	032371 000003 0   0   000000000003 000000000007 000300000003 
ST0	032371 000003 0   0   000000000003 000000000007 000300000003 
ST1	032371 000003 0   0   000000000003 000000000007 000300000003 
ST2	032371 000003 0   0   000000000003 000000000007 000300000003 
ST9	032371 000003 0   0   000000000003 000000000007 000300000003 


*032401 LDB	7,@000010
INITIAL
C(AC)=000000 000003 
C(E)=440300 000004   C(C(E))=000300 000004 
FINAL
C(AC)=000000 000004 
C(E)=000300 000004   C(C(E))=000300 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032401 032401 0   0   135360000010 0            000300000004 
IT1	032401 0      0   0   135360000010 0            000300000004 
AT3	032401 0      0   0   000000000010 0            135360000010 
AT4	032401 000010 0   0   440300000004 0            135360000010 
IT1	032401 0      0   0   440300000004 0            135360000010 
AT3	032401 0      0   0   000000000004 0            440300000004 
AT6	032401 000004 0   0   000000000004 0            440300000004 
FT0	032401 000004 0   0   000300000004 0            440300000004 
FT1A	032401 000004 0   0   000300000004 0            000300000004 
FT9	032401 000004 0   0   000300000004 0            000300000004 
ET0	032401 000004 0   0   000300000004 0            000300000004 
BYT6	032401 000004 0   0   000300000004 0            000300000004 
BYT7	032401 000004 775 0   000300000004 0            000300000004 
SCT0	032401 000004 775 0   000300000004 0            000300000004 
SCT3	032401 000004 776 0   000300000004 000000000001 000300000004 
SCT3	032401 000004 777 0   000300000004 000000000003 000300000004 
SCT3	032401 000004 0   0   000300000004 000000000007 000300000004 
SCT4	032401 000004 0   0   000300000004 000000000007 000300000004 
BYT7A	032401 000004 0   0   000300000004 000000000007 000300000004 
IT1	032401 0      0   0   000300000004 000000000007 000300000004 
AT3	032401 0      0   0   000000000004 000000000007 000300000004 
AT6	032401 000004 0   0   000000000004 000000000007 000300000004 
FT0	032401 000004 0   0   000300000004 000000000007 000300000004 
FT1A	032401 000004 0   0   000300000004 000000000007 000300000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 80
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0342

FT9	032402 000004 0   0   000300000004 000000000007 000300000004 
ET0	032402 000004 0   0   000300000004 000000000007 000300000004 
SCT0	032402 000004 0   0   000300000004 000000000007 000300000004 
SCT4	032402 000004 0   0   000300000004 000000000007 000300000004 
LBT1	032402 000004 0   0   000000000004 000000000007 000300000004 
ST0	032402 000004 0   0   000000000004 000000000007 000300000004 
ST1	032402 000004 0   0   000000000004 000000000007 000300000004 
ST2	032402 000004 0   0   000000000004 000000000007 000300000004 
ST9	032402 000004 0   0   000000000004 000000000007 000300000004 


*032412 LDB	7,@000010
INITIAL
C(AC)=000000 000004 
C(E)=440300 000005   C(C(E))=000300 000005 
FINAL
C(AC)=000000 000005 
C(E)=000300 000005   C(C(E))=000300 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032412 032412 0   0   135360000010 0            000300000005 
IT1	032412 0      0   0   135360000010 0            000300000005 
AT3	032412 0      0   0   000000000010 0            135360000010 
AT4	032412 000010 0   0   440300000005 0            135360000010 
IT1	032412 0      0   0   440300000005 0            135360000010 
AT3	032412 0      0   0   000000000005 0            440300000005 
AT6	032412 000005 0   0   000000000005 0            440300000005 
FT0	032412 000005 0   0   000300000005 0            440300000005 
FT1A	032412 000005 0   0   000300000005 0            000300000005 
FT9	032412 000005 0   0   000300000005 0            000300000005 
ET0	032412 000005 0   0   000300000005 0            000300000005 
BYT6	032412 000005 0   0   000300000005 0            000300000005 
BYT7	032412 000005 775 0   000300000005 0            000300000005 
SCT0	032412 000005 775 0   000300000005 0            000300000005 
SCT3	032412 000005 776 0   000300000005 000000000001 000300000005 
SCT3	032412 000005 777 0   000300000005 000000000003 000300000005 
SCT3	032412 000005 0   0   000300000005 000000000007 000300000005 
SCT4	032412 000005 0   0   000300000005 000000000007 000300000005 
BYT7A	032412 000005 0   0   000300000005 000000000007 000300000005 
IT1	032412 0      0   0   000300000005 000000000007 000300000005 
AT3	032412 0      0   0   000000000005 000000000007 000300000005 
AT6	032412 000005 0   0   000000000005 000000000007 000300000005 
FT0	032412 000005 0   0   000300000005 000000000007 000300000005 
FT1A	032412 000005 0   0   000300000005 000000000007 000300000005 
FT9	032413 000005 0   0   000300000005 000000000007 000300000005 
ET0	032413 000005 0   0   000300000005 000000000007 000300000005 
SCT0	032413 000005 0   0   000300000005 000000000007 000300000005 
SCT4	032413 000005 0   0   000300000005 000000000007 000300000005 
LBT1	032413 000005 0   0   000000000005 000000000007 000300000005 
ST0	032413 000005 0   0   000000000005 000000000007 000300000005 
ST1	032413 000005 0   0   000000000005 000000000007 000300000005 
ST2	032413 000005 0   0   000000000005 000000000007 000300000005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 81
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0343

ST9	032413 000005 0   0   000000000005 000000000007 000300000005 


*032426 LDB	10,@000000(4)
INITIAL
C(AC)=440300 000005 
C(E)=000000 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000012 
C(E)=000600 000012   C(C(E))=000600 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032426 032426 0   0   135424000000 0            000600000012 
IT1	032426 0      0   0   135424000000 0            000600000012 
AT1	032426 0      0   0   0            0            135424000000 
AT2	032426 0      0   0   000000000007 0            135424000000 
AT3	032426 0      0   0   000000000007 0            000000000007 
AT4	032426 000007 0   0   000000000012 0            000000000007 
IT1	032426 0      0   0   000000000012 0            000000000007 
AT3	032426 0      0   0   000000000012 0            000000000012 
AT6	032426 000012 0   0   000000000012 0            000000000012 
FT0	032426 000012 0   0   000600000012 0            000000000012 
FT1A	032426 000012 0   0   000600000012 0            000600000012 
FT9	032426 000012 0   0   000600000012 0            000600000012 
ET0	032426 000012 0   0   000600000012 0            000600000012 
BYT6	032426 000012 0   0   000600000012 0            000600000012 
BYT7	032426 000012 772 0   000600000012 0            000600000012 
SCT0	032426 000012 772 0   000600000012 0            000600000012 
SCT3	032426 000012 773 0   000600000012 000000000001 000600000012 
SCT3	032426 000012 774 0   000600000012 000000000003 000600000012 
SCT3	032426 000012 775 0   000600000012 000000000007 000600000012 
SCT3	032426 000012 776 0   000600000012 000000000017 000600000012 
SCT3	032426 000012 777 0   000600000012 000000000037 000600000012 
SCT3	032426 000012 0   0   000600000012 000000000077 000600000012 
SCT4	032426 000012 0   0   000600000012 000000000077 000600000012 
BYT7A	032426 000012 0   0   000600000012 000000000077 000600000012 
IT1	032426 0      0   0   000600000012 000000000077 000600000012 
AT3	032426 0      0   0   000000000012 000000000077 000600000012 
AT6	032426 000012 0   0   000000000012 000000000077 000600000012 
FT0	032426 000012 0   0   000600000012 000000000077 000600000012 
FT1A	032426 000012 0   0   000600000012 000000000077 000600000012 
FT9	032427 000012 0   0   000600000012 000000000077 000600000012 
ET0	032427 000012 0   0   000600000012 000000000077 000600000012 
SCT0	032427 000012 0   0   000600000012 000000000077 000600000012 
SCT4	032427 000012 0   0   000600000012 000000000077 000600000012 
LBT1	032427 000012 0   0   000000000012 000000000077 000600000012 
ST0	032427 000012 0   0   000000000012 000000000077 000600000012 
ST1	032427 000012 0   0   000000000012 000000000077 000600000012 
ST2	032427 000012 0   0   000000000012 000000000077 000600000012 
ST9	032427 000012 0   0   000000000012 000000000077 000600000012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 82
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0344

*032436 LDB	10,@000000(5)
INITIAL
C(AC)=000000 000013 
C(E)=000000 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000013 
C(E)=000600 000013   C(C(E))=000600 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032436 032436 0   0   135425000000 0            000600000013 
IT1	032436 0      0   0   135425000000 0            000600000013 
AT1	032436 0      0   0   0            0            135425000000 
AT2	032436 0      0   0   000000000010 0            135425000000 
AT3	032436 0      0   0   000000000010 0            000000000010 
AT4	032436 000010 0   0   000000000013 0            000000000010 
IT1	032436 0      0   0   000000000013 0            000000000010 
AT3	032436 0      0   0   000000000013 0            000000000013 
AT6	032436 000013 0   0   000000000013 0            000000000013 
FT0	032436 000013 0   0   000600000013 0            000000000013 
FT1A	032436 000013 0   0   000600000013 0            000600000013 
FT9	032436 000013 0   0   000600000013 0            000600000013 
ET0	032436 000013 0   0   000600000013 0            000600000013 
BYT6	032436 000013 0   0   000600000013 0            000600000013 
BYT7	032436 000013 772 0   000600000013 0            000600000013 
SCT0	032436 000013 772 0   000600000013 0            000600000013 
SCT3	032436 000013 773 0   000600000013 000000000001 000600000013 
SCT3	032436 000013 774 0   000600000013 000000000003 000600000013 
SCT3	032436 000013 775 0   000600000013 000000000007 000600000013 
SCT3	032436 000013 776 0   000600000013 000000000017 000600000013 
SCT3	032436 000013 777 0   000600000013 000000000037 000600000013 
SCT3	032436 000013 0   0   000600000013 000000000077 000600000013 
SCT4	032436 000013 0   0   000600000013 000000000077 000600000013 
BYT7A	032436 000013 0   0   000600000013 000000000077 000600000013 
IT1	032436 0      0   0   000600000013 000000000077 000600000013 
AT3	032436 0      0   0   000000000013 000000000077 000600000013 
AT6	032436 000013 0   0   000000000013 000000000077 000600000013 
FT0	032436 000013 0   0   000600000013 000000000077 000600000013 
FT1A	032436 000013 0   0   000600000013 000000000077 000600000013 
FT9	032437 000013 0   0   000600000013 000000000077 000600000013 
ET0	032437 000013 0   0   000600000013 000000000077 000600000013 
SCT0	032437 000013 0   0   000600000013 000000000077 000600000013 
SCT4	032437 000013 0   0   000600000013 000000000077 000600000013 
LBT1	032437 000013 0   0   000000000013 000000000077 000600000013 
ST0	032437 000013 0   0   000000000013 000000000077 000600000013 
ST1	032437 000013 0   0   000000000013 000000000077 000600000013 
ST2	032437 000013 0   0   000000000013 000000000077 000600000013 
ST9	032437 000013 0   0   000000000013 000000000077 000600000013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 83
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0345

*032446 LDB	10,@000000(6)
INITIAL
C(AC)=000000 000013 
C(E)=000000 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000014 
C(E)=000600 000014   C(C(E))=000600 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032446 032446 0   0   135426000000 0            000600000014 
IT1	032446 0      0   0   135426000000 0            000600000014 
AT1	032446 0      0   0   0            0            135426000000 
AT2	032446 0      0   0   000000000011 0            135426000000 
AT3	032446 0      0   0   000000000011 0            000000000011 
AT4	032446 000011 0   0   000000000014 0            000000000011 
IT1	032446 0      0   0   000000000014 0            000000000011 
AT3	032446 0      0   0   000000000014 0            000000000014 
AT6	032446 000014 0   0   000000000014 0            000000000014 
FT0	032446 000014 0   0   000600000014 0            000000000014 
FT1A	032446 000014 0   0   000600000014 0            000600000014 
FT9	032446 000014 0   0   000600000014 0            000600000014 
ET0	032446 000014 0   0   000600000014 0            000600000014 
BYT6	032446 000014 0   0   000600000014 0            000600000014 
BYT7	032446 000014 772 0   000600000014 0            000600000014 
SCT0	032446 000014 772 0   000600000014 0            000600000014 
SCT3	032446 000014 773 0   000600000014 000000000001 000600000014 
SCT3	032446 000014 774 0   000600000014 000000000003 000600000014 
SCT3	032446 000014 775 0   000600000014 000000000007 000600000014 
SCT3	032446 000014 776 0   000600000014 000000000017 000600000014 
SCT3	032446 000014 777 0   000600000014 000000000037 000600000014 
SCT3	032446 000014 0   0   000600000014 000000000077 000600000014 
SCT4	032446 000014 0   0   000600000014 000000000077 000600000014 
BYT7A	032446 000014 0   0   000600000014 000000000077 000600000014 
IT1	032446 0      0   0   000600000014 000000000077 000600000014 
AT3	032446 0      0   0   000000000014 000000000077 000600000014 
AT6	032446 000014 0   0   000000000014 000000000077 000600000014 
FT0	032446 000014 0   0   000600000014 000000000077 000600000014 
FT1A	032446 000014 0   0   000600000014 000000000077 000600000014 
FT9	032447 000014 0   0   000600000014 000000000077 000600000014 
ET0	032447 000014 0   0   000600000014 000000000077 000600000014 
SCT0	032447 000014 0   0   000600000014 000000000077 000600000014 
SCT4	032447 000014 0   0   000600000014 000000000077 000600000014 
LBT1	032447 000014 0   0   000000000014 000000000077 000600000014 
ST0	032447 000014 0   0   000000000014 000000000077 000600000014 
ST1	032447 000014 0   0   000000000014 000000000077 000600000014 
ST2	032447 000014 0   0   000000000014 000000000077 000600000014 
ST9	032447 000014 0   0   000000000014 000000000077 000600000014 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 84
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0346

*032461 LDB	4,000005
INITIAL
C(AC)=000000 000007 
C(E)=000607 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000007 
C(E)=000607 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032461 032461 0   0   135200000005 0            000000000007 
IT1	032461 0      0   0   135200000005 0            000000000007 
AT3	032461 0      0   0   000000000005 0            135200000005 
AT6	032461 000005 0   0   000000000005 0            135200000005 
FT0	032461 000005 0   0   000607000000 0            135200000005 
FT1A	032461 000005 0   0   000607000000 0            000607000000 
FT9	032461 000005 0   0   000607000000 0            000607000000 
ET0	032461 000005 0   0   000607000000 0            000607000000 
BYT6	032461 000005 0   0   000607000000 0            000607000000 
BYT7	032461 000005 772 0   000607000000 0            000607000000 
SCT0	032461 000005 772 0   000607000000 0            000607000000 
SCT3	032461 000005 773 0   000607000000 000000000001 000607000000 
SCT3	032461 000005 774 0   000607000000 000000000003 000607000000 
SCT3	032461 000005 775 0   000607000000 000000000007 000607000000 
SCT3	032461 000005 776 0   000607000000 000000000017 000607000000 
SCT3	032461 000005 777 0   000607000000 000000000037 000607000000 
SCT3	032461 000005 0   0   000607000000 000000000077 000607000000 
SCT4	032461 000005 0   0   000607000000 000000000077 000607000000 
BYT7A	032461 000005 0   0   000607000000 000000000077 000607000000 
IT1	032461 0      0   0   000607000000 000000000077 000607000000 
AT1	032461 0      0   0   0            000000000077 000607000000 
AT2	032461 0      0   0   000000000007 000000000077 000607000000 
AT3	032461 0      0   0   000000000007 000000000077 000000000007 
AT6	032461 000007 0   0   000000000007 000000000077 000000000007 
FT0	032461 000007 0   0   000000000007 000000000077 000000000007 
FT1A	032461 000007 0   0   000000000007 000000000077 000000000007 
FT9	032462 000007 0   0   000000000007 000000000077 000000000007 
ET0	032462 000007 0   0   000000000007 000000000077 000000000007 
SCT0	032462 000007 0   0   000000000007 000000000077 000000000007 
SCT4	032462 000007 0   0   000000000007 000000000077 000000000007 
LBT1	032462 000007 0   0   000000000007 000000000077 000000000007 
ST0	032462 000007 0   0   000000000007 000000000077 000000000007 
ST1	032462 000007 0   0   000000000007 000000000077 000000000007 
ST2	032462 000007 0   0   000000000007 000000000077 000000000007 
ST9	032462 000007 0   0   000000000007 000000000077 000000000007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 85
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0347

*032470 LDB	4,000005
INITIAL
C(AC)=000000 000007 
C(E)=000607 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000010 
C(E)=000607 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032470 032470 0   0   135200000005 0            000000000010 
IT1	032470 0      0   0   135200000005 0            000000000010 
AT3	032470 0      0   0   000000000005 0            135200000005 
AT6	032470 000005 0   0   000000000005 0            135200000005 
FT0	032470 000005 0   0   000607000000 0            135200000005 
FT1A	032470 000005 0   0   000607000000 0            000607000000 
FT9	032470 000005 0   0   000607000000 0            000607000000 
ET0	032470 000005 0   0   000607000000 0            000607000000 
BYT6	032470 000005 0   0   000607000000 0            000607000000 
BYT7	032470 000005 772 0   000607000000 0            000607000000 
SCT0	032470 000005 772 0   000607000000 0            000607000000 
SCT3	032470 000005 773 0   000607000000 000000000001 000607000000 
SCT3	032470 000005 774 0   000607000000 000000000003 000607000000 
SCT3	032470 000005 775 0   000607000000 000000000007 000607000000 
SCT3	032470 000005 776 0   000607000000 000000000017 000607000000 
SCT3	032470 000005 777 0   000607000000 000000000037 000607000000 
SCT3	032470 000005 0   0   000607000000 000000000077 000607000000 
SCT4	032470 000005 0   0   000607000000 000000000077 000607000000 
BYT7A	032470 000005 0   0   000607000000 000000000077 000607000000 
IT1	032470 0      0   0   000607000000 000000000077 000607000000 
AT1	032470 0      0   0   0            000000000077 000607000000 
AT2	032470 0      0   0   000000000010 000000000077 000607000000 
AT3	032470 0      0   0   000000000010 000000000077 000000000010 
AT6	032470 000010 0   0   000000000010 000000000077 000000000010 
FT0	032470 000010 0   0   000000000010 000000000077 000000000010 
FT1A	032470 000010 0   0   000000000010 000000000077 000000000010 
FT9	032471 000010 0   0   000000000010 000000000077 000000000010 
ET0	032471 000010 0   0   000000000010 000000000077 000000000010 
SCT0	032471 000010 0   0   000000000010 000000000077 000000000010 
SCT4	032471 000010 0   0   000000000010 000000000077 000000000010 
LBT1	032471 000010 0   0   000000000010 000000000077 000000000010 
ST0	032471 000010 0   0   000000000010 000000000077 000000000010 
ST1	032471 000010 0   0   000000000010 000000000077 000000000010 
ST2	032471 000010 0   0   000000000010 000000000077 000000000010 
ST9	032471 000010 0   0   000000000010 000000000077 000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 86
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0348

*032477 LDB	4,000005
INITIAL
C(AC)=000000 000010 
C(E)=000607 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000011 
C(E)=000607 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032477 032477 0   0   135200000005 0            000000000011 
IT1	032477 0      0   0   135200000005 0            000000000011 
AT3	032477 0      0   0   000000000005 0            135200000005 
AT6	032477 000005 0   0   000000000005 0            135200000005 
FT0	032477 000005 0   0   000607000000 0            135200000005 
FT1A	032477 000005 0   0   000607000000 0            000607000000 
FT9	032477 000005 0   0   000607000000 0            000607000000 
ET0	032477 000005 0   0   000607000000 0            000607000000 
BYT6	032477 000005 0   0   000607000000 0            000607000000 
BYT7	032477 000005 772 0   000607000000 0            000607000000 
SCT0	032477 000005 772 0   000607000000 0            000607000000 
SCT3	032477 000005 773 0   000607000000 000000000001 000607000000 
SCT3	032477 000005 774 0   000607000000 000000000003 000607000000 
SCT3	032477 000005 775 0   000607000000 000000000007 000607000000 
SCT3	032477 000005 776 0   000607000000 000000000017 000607000000 
SCT3	032477 000005 777 0   000607000000 000000000037 000607000000 
SCT3	032477 000005 0   0   000607000000 000000000077 000607000000 
SCT4	032477 000005 0   0   000607000000 000000000077 000607000000 
BYT7A	032477 000005 0   0   000607000000 000000000077 000607000000 
IT1	032477 0      0   0   000607000000 000000000077 000607000000 
AT1	032477 0      0   0   0            000000000077 000607000000 
AT2	032477 0      0   0   000000000011 000000000077 000607000000 
AT3	032477 0      0   0   000000000011 000000000077 000000000011 
AT6	032477 000011 0   0   000000000011 000000000077 000000000011 
FT0	032477 000011 0   0   000000000011 000000000077 000000000011 
FT1A	032477 000011 0   0   000000000011 000000000077 000000000011 
FT9	0      000011 0   0   000000000011 000000000077 000000000011 
ET0	0      000011 0   0   000000000011 000000000077 000000000011 
SCT0	0      000011 0   0   000000000011 000000000077 000000000011 
SCT4	0      000011 0   0   000000000011 000000000077 000000000011 
LBT1	0      000011 0   0   000000000011 000000000077 000000000011 
ST0	0      000011 0   0   000000000011 000000000077 000000000011 
ST1	0      000011 0   0   000000000011 000000000077 000000000011 
ST2	0      000011 0   0   000000000011 000000000077 000000000011 
ST9	0      000011 0   0   000000000011 000000000077 000000000011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 87
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0349

*032506 LDB	4,000005
INITIAL
C(AC)=000000 000011 
C(E)=000607 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000012 
C(E)=000607 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032506 032506 0   0   135200000005 0            000000000012 
IT1	032506 0      0   0   135200000005 0            000000000012 
AT3	032506 0      0   0   000000000005 0            135200000005 
AT6	032506 000005 0   0   000000000005 0            135200000005 
FT0	032506 000005 0   0   000607000000 0            135200000005 
FT1A	032506 000005 0   0   000607000000 0            000607000000 
FT9	032506 000005 0   0   000607000000 0            000607000000 
ET0	032506 000005 0   0   000607000000 0            000607000000 
BYT6	032506 000005 0   0   000607000000 0            000607000000 
BYT7	032506 000005 772 0   000607000000 0            000607000000 
SCT0	032506 000005 772 0   000607000000 0            000607000000 
SCT3	032506 000005 773 0   000607000000 000000000001 000607000000 
SCT3	032506 000005 774 0   000607000000 000000000003 000607000000 
SCT3	032506 000005 775 0   000607000000 000000000007 000607000000 
SCT3	032506 000005 776 0   000607000000 000000000017 000607000000 
SCT3	032506 000005 777 0   000607000000 000000000037 000607000000 
SCT3	032506 000005 0   0   000607000000 000000000077 000607000000 
SCT4	032506 000005 0   0   000607000000 000000000077 000607000000 
BYT7A	032506 000005 0   0   000607000000 000000000077 000607000000 
IT1	032506 0      0   0   000607000000 000000000077 000607000000 
AT1	032506 0      0   0   0            000000000077 000607000000 
AT2	032506 0      0   0   000000000012 000000000077 000607000000 
AT3	032506 0      0   0   000000000012 000000000077 000000000012 
AT6	032506 000012 0   0   000000000012 000000000077 000000000012 
FT0	032506 000012 0   0   000000000012 000000000077 000000000012 
FT1A	032506 000012 0   0   000000000012 000000000077 000000000012 
FT9	032507 000012 0   0   000000000012 000000000077 000000000012 
ET0	032507 000012 0   0   000000000012 000000000077 000000000012 
SCT0	032507 000012 0   0   000000000012 000000000077 000000000012 
SCT4	032507 000012 0   0   000000000012 000000000077 000000000012 
LBT1	032507 000012 0   0   000000000012 000000000077 000000000012 
ST0	032507 000012 0   0   000000000012 000000000077 000000000012 
ST1	032507 000012 0   0   000000000012 000000000077 000000000012 
ST2	032507 000012 0   0   000000000012 000000000077 000000000012 
ST9	032507 000012 0   0   000000000012 000000000077 000000000012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 88
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0350

*032515 LDB	4,000005
INITIAL
C(AC)=000000 000012 
C(E)=000607 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000013 
C(E)=000607 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032515 032515 0   0   135200000005 0            000000000013 
IT1	032515 0      0   0   135200000005 0            000000000013 
AT3	032515 0      0   0   000000000005 0            135200000005 
AT6	032515 000005 0   0   000000000005 0            135200000005 
FT0	032515 000005 0   0   000607000000 0            135200000005 
FT1A	032515 000005 0   0   000607000000 0            000607000000 
FT9	032515 000005 0   0   000607000000 0            000607000000 
ET0	032515 000005 0   0   000607000000 0            000607000000 
BYT6	032515 000005 0   0   000607000000 0            000607000000 
BYT7	032515 000005 772 0   000607000000 0            000607000000 
SCT0	032515 000005 772 0   000607000000 0            000607000000 
SCT3	032515 000005 773 0   000607000000 000000000001 000607000000 
SCT3	032515 000005 774 0   000607000000 000000000003 000607000000 
SCT3	032515 000005 775 0   000607000000 000000000007 000607000000 
SCT3	032515 000005 776 0   000607000000 000000000017 000607000000 
SCT3	032515 000005 777 0   000607000000 000000000037 000607000000 
SCT3	032515 000005 0   0   000607000000 000000000077 000607000000 
SCT4	032515 000005 0   0   000607000000 000000000077 000607000000 
BYT7A	032515 000005 0   0   000607000000 000000000077 000607000000 
IT1	032515 0      0   0   000607000000 000000000077 000607000000 
AT1	032515 0      0   0   0            000000000077 000607000000 
AT2	032515 0      0   0   000000000013 000000000077 000607000000 
AT3	032515 0      0   0   000000000013 000000000077 000000000013 
AT6	032515 000013 0   0   000000000013 000000000077 000000000013 
FT0	032515 000013 0   0   000000000013 000000000077 000000000013 
FT1A	032515 000013 0   0   000000000013 000000000077 000000000013 
FT9	032516 000013 0   0   000000000013 000000000077 000000000013 
ET0	032516 000013 0   0   000000000013 000000000077 000000000013 
SCT0	032516 000013 0   0   000000000013 000000000077 000000000013 
SCT4	032516 000013 0   0   000000000013 000000000077 000000000013 
LBT1	032516 000013 0   0   000000000013 000000000077 000000000013 
ST0	032516 000013 0   0   000000000013 000000000077 000000000013 
ST1	032516 000013 0   0   000000000013 000000000077 000000000013 
ST2	032516 000013 0   0   000000000013 000000000077 000000000013 
ST9	032516 000013 0   0   000000000013 000000000077 000000000013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 89
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0351

*032530 LDB	4,000005
INITIAL
C(AC)=000000 000013 
C(E)=000620 000000   C(C(E))=000000 000007 
FINAL
C(AC)=000000 000007 
C(E)=000620 000000   C(C(E))=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032530 032530 0   0   135200000005 0            000000000007 
IT1	032530 0      0   0   135200000005 0            000000000007 
AT3	032530 0      0   0   000000000005 0            135200000005 
AT6	032530 000005 0   0   000000000005 0            135200000005 
FT0	032530 000005 0   0   000620000000 0            135200000005 
FT1A	032530 000005 0   0   000620000000 0            000620000000 
FT9	032530 000005 0   0   000620000000 0            000620000000 
ET0	032530 000005 0   0   000620000000 0            000620000000 
BYT6	032530 000005 0   0   000620000000 0            000620000000 
BYT7	032530 000005 772 0   000620000000 0            000620000000 
SCT0	032530 000005 772 0   000620000000 0            000620000000 
SCT3	032530 000005 773 0   000620000000 000000000001 000620000000 
SCT3	032530 000005 774 0   000620000000 000000000003 000620000000 
SCT3	032530 000005 775 0   000620000000 000000000007 000620000000 
SCT3	032530 000005 776 0   000620000000 000000000017 000620000000 
SCT3	032530 000005 777 0   000620000000 000000000037 000620000000 
SCT3	032530 000005 0   0   000620000000 000000000077 000620000000 
SCT4	032530 000005 0   0   000620000000 000000000077 000620000000 
BYT7A	032530 000005 0   0   000620000000 000000000077 000620000000 
IT1	032530 0      0   0   000620000000 000000000077 000620000000 
AT3	032530 0      0   0   0            000000000077 000620000000 
AT4	032530 0      0   0   000000000007 000000000077 000620000000 
IT1	032530 0      0   0   000000000007 000000000077 000620000000 
AT3	032530 0      0   0   000000000007 000000000077 000000000007 
AT6	032530 000007 0   0   000000000007 000000000077 000000000007 
FT0	032530 000007 0   0   000000000007 000000000077 000000000007 
FT1A	032530 000007 0   0   000000000007 000000000077 000000000007 
FT9	032531 000007 0   0   000000000007 000000000077 000000000007 
ET0	032531 000007 0   0   000000000007 000000000077 000000000007 
SCT0	032531 000007 0   0   000000000007 000000000077 000000000007 
SCT4	032531 000007 0   0   000000000007 000000000077 000000000007 
LBT1	032531 000007 0   0   000000000007 000000000077 000000000007 
ST0	032531 000007 0   0   000000000007 000000000077 000000000007 
ST1	032531 000007 0   0   000000000007 000000000077 000000000007 
ST2	032531 000007 0   0   000000000007 000000000077 000000000007 
ST9	032531 000007 0   0   000000000007 000000000077 000000000007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 90
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0352

*032537 LDB	4,000005
INITIAL
C(AC)=000000 000007 
C(E)=000620 000000   C(C(E))=000000 000010 
FINAL
C(AC)=000000 000010 
C(E)=000620 000000   C(C(E))=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032537 032537 0   0   135200000005 0            000000000010 
IT1	032537 0      0   0   135200000005 0            000000000010 
AT3	032537 0      0   0   000000000005 0            135200000005 
AT6	032537 000005 0   0   000000000005 0            135200000005 
FT0	032537 000005 0   0   000620000000 0            135200000005 
FT1A	032537 000005 0   0   000620000000 0            000620000000 
FT9	032537 000005 0   0   000620000000 0            000620000000 
ET0	032537 000005 0   0   000620000000 0            000620000000 
BYT6	032537 000005 0   0   000620000000 0            000620000000 
BYT7	032537 000005 772 0   000620000000 0            000620000000 
SCT0	032537 000005 772 0   000620000000 0            000620000000 
SCT3	032537 000005 773 0   000620000000 000000000001 000620000000 
SCT3	032537 000005 774 0   000620000000 000000000003 000620000000 
SCT3	032537 000005 775 0   000620000000 000000000007 000620000000 
SCT3	032537 000005 776 0   000620000000 000000000017 000620000000 
SCT3	032537 000005 777 0   000620000000 000000000037 000620000000 
SCT3	032537 000005 0   0   000620000000 000000000077 000620000000 
SCT4	032537 000005 0   0   000620000000 000000000077 000620000000 
BYT7A	032537 000005 0   0   000620000000 000000000077 000620000000 
IT1	032537 0      0   0   000620000000 000000000077 000620000000 
AT3	032537 0      0   0   0            000000000077 000620000000 
AT4	032537 0      0   0   000000000010 000000000077 000620000000 
IT1	032537 0      0   0   000000000010 000000000077 000620000000 
AT3	032537 0      0   0   000000000010 000000000077 000000000010 
AT6	032537 000010 0   0   000000000010 000000000077 000000000010 
FT0	032537 000010 0   0   000000000010 000000000077 000000000010 
FT1A	032537 000010 0   0   000000000010 000000000077 000000000010 
FT9	032540 000010 0   0   000000000010 000000000077 000000000010 
ET0	032540 000010 0   0   000000000010 000000000077 000000000010 
SCT0	032540 000010 0   0   000000000010 000000000077 000000000010 
SCT4	032540 000010 0   0   000000000010 000000000077 000000000010 
LBT1	032540 000010 0   0   000000000010 000000000077 000000000010 
ST0	032540 000010 0   0   000000000010 000000000077 000000000010 
ST1	032540 000010 0   0   000000000010 000000000077 000000000010 
ST2	032540 000010 0   0   000000000010 000000000077 000000000010 
ST9	032540 000010 0   0   000000000010 000000000077 000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 91
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0353

*032546 LDB	4,000005
INITIAL
C(AC)=000000 000010 
C(E)=000620 000000   C(C(E))=000000 000011 
FINAL
C(AC)=000000 000011 
C(E)=000620 000000   C(C(E))=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032546 032546 0   0   135200000005 0            000000000011 
IT1	032546 0      0   0   135200000005 0            000000000011 
AT3	032546 0      0   0   000000000005 0            135200000005 
AT6	032546 000005 0   0   000000000005 0            135200000005 
FT0	032546 000005 0   0   000620000000 0            135200000005 
FT1A	032546 000005 0   0   000620000000 0            000620000000 
FT9	032546 000005 0   0   000620000000 0            000620000000 
ET0	032546 000005 0   0   000620000000 0            000620000000 
BYT6	032546 000005 0   0   000620000000 0            000620000000 
BYT7	032546 000005 772 0   000620000000 0            000620000000 
SCT0	032546 000005 772 0   000620000000 0            000620000000 
SCT3	032546 000005 773 0   000620000000 000000000001 000620000000 
SCT3	032546 000005 774 0   000620000000 000000000003 000620000000 
SCT3	032546 000005 775 0   000620000000 000000000007 000620000000 
SCT3	032546 000005 776 0   000620000000 000000000017 000620000000 
SCT3	032546 000005 777 0   000620000000 000000000037 000620000000 
SCT3	032546 000005 0   0   000620000000 000000000077 000620000000 
SCT4	032546 000005 0   0   000620000000 000000000077 000620000000 
BYT7A	032546 000005 0   0   000620000000 000000000077 000620000000 
IT1	032546 0      0   0   000620000000 000000000077 000620000000 
AT3	032546 0      0   0   0            000000000077 000620000000 
AT4	032546 0      0   0   000000000011 000000000077 000620000000 
IT1	032546 0      0   0   000000000011 000000000077 000620000000 
AT3	032546 0      0   0   000000000011 000000000077 000000000011 
AT6	032546 000011 0   0   000000000011 000000000077 000000000011 
FT0	032546 000011 0   0   000000000011 000000000077 000000000011 
FT1A	032546 000011 0   0   000000000011 000000000077 000000000011 
FT9	032547 000011 0   0   000000000011 000000000077 000000000011 
ET0	032547 000011 0   0   000000000011 000000000077 000000000011 
SCT0	032547 000011 0   0   000000000011 000000000077 000000000011 
SCT4	032547 000011 0   0   000000000011 000000000077 000000000011 
LBT1	032547 000011 0   0   000000000011 000000000077 000000000011 
ST0	032547 000011 0   0   000000000011 000000000077 000000000011 
ST1	032547 000011 0   0   000000000011 000000000077 000000000011 
ST2	032547 000011 0   0   000000000011 000000000077 000000000011 
ST9	032547 000011 0   0   000000000011 000000000077 000000000011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 92
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0354

*032555 LDB	4,000005
INITIAL
C(AC)=000000 000011 
C(E)=000620 000000   C(C(E))=000000 000012 
FINAL
C(AC)=000000 000012 
C(E)=000620 000000   C(C(E))=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032555 032555 0   0   135200000005 0            000000000012 
IT1	032555 0      0   0   135200000005 0            000000000012 
AT3	032555 0      0   0   000000000005 0            135200000005 
AT6	032555 000005 0   0   000000000005 0            135200000005 
FT0	032555 000005 0   0   000620000000 0            135200000005 
FT1A	032555 000005 0   0   000620000000 0            000620000000 
FT9	032555 000005 0   0   000620000000 0            000620000000 
ET0	032555 000005 0   0   000620000000 0            000620000000 
BYT6	032555 000005 0   0   000620000000 0            000620000000 
BYT7	032555 000005 772 0   000620000000 0            000620000000 
SCT0	032555 000005 772 0   000620000000 0            000620000000 
SCT3	032555 000005 773 0   000620000000 000000000001 000620000000 
SCT3	032555 000005 774 0   000620000000 000000000003 000620000000 
SCT3	032555 000005 775 0   000620000000 000000000007 000620000000 
SCT3	032555 000005 776 0   000620000000 000000000017 000620000000 
SCT3	032555 000005 777 0   000620000000 000000000037 000620000000 
SCT3	032555 000005 0   0   000620000000 000000000077 000620000000 
SCT4	032555 000005 0   0   000620000000 000000000077 000620000000 
BYT7A	032555 000005 0   0   000620000000 000000000077 000620000000 
IT1	032555 0      0   0   000620000000 000000000077 000620000000 
AT3	032555 0      0   0   0            000000000077 000620000000 
AT4	032555 0      0   0   000000000012 000000000077 000620000000 
IT1	032555 0      0   0   000000000012 000000000077 000620000000 
AT3	032555 0      0   0   000000000012 000000000077 000000000012 
AT6	032555 000012 0   0   000000000012 000000000077 000000000012 
FT0	032555 000012 0   0   000000000012 000000000077 000000000012 
FT1A	032555 000012 0   0   000000000012 000000000077 000000000012 
FT9	032556 000012 0   0   000000000012 000000000077 000000000012 
ET0	032556 000012 0   0   000000000012 000000000077 000000000012 
SCT0	032556 000012 0   0   000000000012 000000000077 000000000012 
SCT4	032556 000012 0   0   000000000012 000000000077 000000000012 
LBT1	032556 000012 0   0   000000000012 000000000077 000000000012 
ST0	032556 000012 0   0   000000000012 000000000077 000000000012 
ST1	032556 000012 0   0   000000000012 000000000077 000000000012 
ST2	032556 000012 0   0   000000000012 000000000077 000000000012 
ST9	032556 000012 0   0   000000000012 000000000077 000000000012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 93
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0355

*032564 LDB	4,000005
INITIAL
C(AC)=000000 000012 
C(E)=000620 000000   C(C(E))=000000 000013 
FINAL
C(AC)=000000 000013 
C(E)=000620 000000   C(C(E))=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032564 032564 0   0   135200000005 0            000000000013 
IT1	032564 0      0   0   135200000005 0            000000000013 
AT3	032564 0      0   0   000000000005 0            135200000005 
AT6	032564 000005 0   0   000000000005 0            135200000005 
FT0	032564 000005 0   0   000620000000 0            135200000005 
FT1A	032564 000005 0   0   000620000000 0            000620000000 
FT9	032564 000005 0   0   000620000000 0            000620000000 
ET0	032564 000005 0   0   000620000000 0            000620000000 
BYT6	032564 000005 0   0   000620000000 0            000620000000 
BYT7	032564 000005 772 0   000620000000 0            000620000000 
SCT0	032564 000005 772 0   000620000000 0            000620000000 
SCT3	032564 000005 773 0   000620000000 000000000001 000620000000 
SCT3	032564 000005 774 0   000620000000 000000000003 000620000000 
SCT3	032564 000005 775 0   000620000000 000000000007 000620000000 
SCT3	032564 000005 776 0   000620000000 000000000017 000620000000 
SCT3	032564 000005 777 0   000620000000 000000000037 000620000000 
SCT3	032564 000005 0   0   000620000000 000000000077 000620000000 
SCT4	032564 000005 0   0   000620000000 000000000077 000620000000 
BYT7A	032564 000005 0   0   000620000000 000000000077 000620000000 
IT1	032564 0      0   0   000620000000 000000000077 000620000000 
AT3	032564 0      0   0   0            000000000077 000620000000 
AT4	032564 0      0   0   000000000013 000000000077 000620000000 
IT1	032564 0      0   0   000000000013 000000000077 000620000000 
AT3	032564 0      0   0   000000000013 000000000077 000000000013 
AT6	032564 000013 0   0   000000000013 000000000077 000000000013 
FT0	032564 000013 0   0   000000000013 000000000077 000000000013 
FT1A	032564 000013 0   0   000000000013 000000000077 000000000013 
FT9	032565 000013 0   0   000000000013 000000000077 000000000013 
ET0	032565 000013 0   0   000000000013 000000000077 000000000013 
SCT0	032565 000013 0   0   000000000013 000000000077 000000000013 
SCT4	032565 000013 0   0   000000000013 000000000077 000000000013 
LBT1	032565 000013 0   0   000000000013 000000000077 000000000013 
ST0	032565 000013 0   0   000000000013 000000000077 000000000013 
ST1	032565 000013 0   0   000000000013 000000000077 000000000013 
ST2	032565 000013 0   0   000000000013 000000000077 000000000013 
ST9	032565 000013 0   0   000000000013 000000000077 000000000013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 94
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0356

*032600 LDB	4,000005
INITIAL
C(AC)=000000 000013 
C(E)=000627 000000   C(C(E))=000000 000013 
FINAL
C(AC)=000000 000013 
C(E)=000627 000000   C(C(E))=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   135200000005 0            000000000013 
IT1	0      0      0   0   135200000005 0            000000000013 
AT3	0      0      0   0   000000000005 0            135200000005 
AT6	0      000005 0   0   000000000005 0            135200000005 
FT0	0      000005 0   0   000627000000 0            135200000005 
FT1A	0      000005 0   0   000627000000 0            000627000000 
FT9	0      000005 0   0   000627000000 0            000627000000 
ET0	0      000005 0   0   000627000000 0            000627000000 
BYT6	0      000005 0   0   000627000000 0            000627000000 
BYT7	0      000005 772 0   000627000000 0            000627000000 
SCT0	0      000005 772 0   000627000000 0            000627000000 
SCT3	0      000005 773 0   000627000000 000000000001 000627000000 
SCT3	0      000005 774 0   000627000000 000000000003 000627000000 
SCT3	0      000005 775 0   000627000000 000000000007 000627000000 
SCT3	0      000005 776 0   000627000000 000000000017 000627000000 
SCT3	0      000005 777 0   000627000000 000000000037 000627000000 
SCT3	0      000005 0   0   000627000000 000000000077 000627000000 
SCT4	0      000005 0   0   000627000000 000000000077 000627000000 
BYT7A	0      000005 0   0   000627000000 000000000077 000627000000 
IT1	0      0      0   0   000627000000 000000000077 000627000000 
AT1	0      0      0   0   0            000000000077 000627000000 
AT2	0      0      0   0   000000000010 000000000077 000627000000 
AT3	0      0      0   0   000000000010 000000000077 000000000010 
AT4	0      000010 0   0   000000000013 000000000077 000000000010 
IT1	0      0      0   0   000000000013 000000000077 000000000010 
AT3	0      0      0   0   000000000013 000000000077 000000000013 
AT6	0      000013 0   0   000000000013 000000000077 000000000013 
FT0	0      000013 0   0   000000000013 000000000077 000000000013 
FT1A	0      000013 0   0   000000000013 000000000077 000000000013 
FT9	032601 000013 0   0   000000000013 000000000077 000000000013 
ET0	032601 000013 0   0   000000000013 000000000077 000000000013 
SCT0	032601 000013 0   0   000000000013 000000000077 000000000013 
SCT4	032601 000013 0   0   000000000013 000000000077 000000000013 
LBT1	032601 000013 0   0   000000000013 000000000077 000000000013 
ST0	032601 000013 0   0   000000000013 000000000077 000000000013 
ST1	032601 000013 0   0   000000000013 000000000077 000000000013 
ST2	032601 000013 0   0   000000000013 000000000077 000000000013 
ST9	032601 000013 0   0   000000000013 000000000077 000000000013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 95
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0357

*032610 LDB	4,000005
INITIAL
C(AC)=000000 000013 
C(E)=000627 000000   C(C(E))=000000 000013 
FINAL
C(AC)=000000 000014 
C(E)=000627 000000   C(C(E))=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032610 032610 0   0   135200000005 0            000000000014 
IT1	032610 0      0   0   135200000005 0            000000000014 
AT3	032610 0      0   0   000000000005 0            135200000005 
AT6	032610 000005 0   0   000000000005 0            135200000005 
FT0	032610 000005 0   0   000627000000 0            135200000005 
FT1A	032610 000005 0   0   000627000000 0            000627000000 
FT9	032610 000005 0   0   000627000000 0            000627000000 
ET0	032610 000005 0   0   000627000000 0            000627000000 
BYT6	032610 000005 0   0   000627000000 0            000627000000 
BYT7	032610 000005 772 0   000627000000 0            000627000000 
SCT0	032610 000005 772 0   000627000000 0            000627000000 
SCT3	032610 000005 773 0   000627000000 000000000001 000627000000 
SCT3	032610 000005 774 0   000627000000 000000000003 000627000000 
SCT3	032610 000005 775 0   000627000000 000000000007 000627000000 
SCT3	032610 000005 776 0   000627000000 000000000017 000627000000 
SCT3	032610 000005 777 0   000627000000 000000000037 000627000000 
SCT3	032610 000005 0   0   000627000000 000000000077 000627000000 
SCT4	032610 000005 0   0   000627000000 000000000077 000627000000 
BYT7A	032610 000005 0   0   000627000000 000000000077 000627000000 
IT1	032610 0      0   0   000627000000 000000000077 000627000000 
AT1	032610 0      0   0   0            000000000077 000627000000 
AT2	032610 0      0   0   000000000011 000000000077 000627000000 
AT3	032610 0      0   0   000000000011 000000000077 000000000011 
AT4	032610 000011 0   0   000000000014 000000000077 000000000011 
IT1	032610 0      0   0   000000000014 000000000077 000000000011 
AT3	032610 0      0   0   000000000014 000000000077 000000000014 
AT6	032610 000014 0   0   000000000014 000000000077 000000000014 
FT0	032610 000014 0   0   000000000014 000000000077 000000000014 
FT1A	032610 000014 0   0   000000000014 000000000077 000000000014 
FT9	032611 000014 0   0   000000000014 000000000077 000000000014 
ET0	032611 000014 0   0   000000000014 000000000077 000000000014 
SCT0	032611 000014 0   0   000000000014 000000000077 000000000014 
SCT4	032611 000014 0   0   000000000014 000000000077 000000000014 
LBT1	032611 000014 0   0   000000000014 000000000077 000000000014 
ST0	032611 000014 0   0   000000000014 000000000077 000000000014 
ST1	032611 000014 0   0   000000000014 000000000077 000000000014 
ST2	032611 000014 0   0   000000000014 000000000077 000000000014 
ST9	032611 000014 0   0   000000000014 000000000077 000000000014 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 96
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0358

*032620 LDB	4,000005
INITIAL
C(AC)=000000 000014 
C(E)=000627 000000   C(C(E))=000000 000013 
FINAL
C(AC)=000000 000015 
C(E)=000627 000000   C(C(E))=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032620 032620 0   0   135200000005 0            000000000015 
IT1	032620 0      0   0   135200000005 0            000000000015 
AT3	032620 0      0   0   000000000005 0            135200000005 
AT6	032620 000005 0   0   000000000005 0            135200000005 
FT0	032620 000005 0   0   000627000000 0            135200000005 
FT1A	032620 000005 0   0   000627000000 0            000627000000 
FT9	032620 000005 0   0   000627000000 0            000627000000 
ET0	032620 000005 0   0   000627000000 0            000627000000 
BYT6	032620 000005 0   0   000627000000 0            000627000000 
BYT7	032620 000005 772 0   000627000000 0            000627000000 
SCT0	032620 000005 772 0   000627000000 0            000627000000 
SCT3	032620 000005 773 0   000627000000 000000000001 000627000000 
SCT3	032620 000005 774 0   000627000000 000000000003 000627000000 
SCT3	032620 000005 775 0   000627000000 000000000007 000627000000 
SCT3	032620 000005 776 0   000627000000 000000000017 000627000000 
SCT3	032620 000005 777 0   000627000000 000000000037 000627000000 
SCT3	032620 000005 0   0   000627000000 000000000077 000627000000 
SCT4	032620 000005 0   0   000627000000 000000000077 000627000000 
BYT7A	032620 000005 0   0   000627000000 000000000077 000627000000 
IT1	032620 0      0   0   000627000000 000000000077 000627000000 
AT1	032620 0      0   0   0            000000000077 000627000000 
AT2	032620 0      0   0   000000000012 000000000077 000627000000 
AT3	032620 0      0   0   000000000012 000000000077 000000000012 
AT4	032620 000012 0   0   000000000015 000000000077 000000000012 
IT1	032620 0      0   0   000000000015 000000000077 000000000012 
AT3	032620 0      0   0   000000000015 000000000077 000000000015 
AT6	032620 000015 0   0   000000000015 000000000077 000000000015 
FT0	032620 000015 0   0   000000000015 000000000077 000000000015 
FT1A	032620 000015 0   0   000000000015 000000000077 000000000015 
FT9	032621 000015 0   0   000000000015 000000000077 000000000015 
ET0	032621 000015 0   0   000000000015 000000000077 000000000015 
SCT0	032621 000015 0   0   000000000015 000000000077 000000000015 
SCT4	032621 000015 0   0   000000000015 000000000077 000000000015 
LBT1	032621 000015 0   0   000000000015 000000000077 000000000015 
ST0	032621 000015 0   0   000000000015 000000000077 000000000015 
ST1	032621 000015 0   0   000000000015 000000000077 000000000015 
ST2	032621 000015 0   0   000000000015 000000000077 000000000015 
ST9	032621 000015 0   0   000000000015 000000000077 000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 97
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0359

*032633 ILDB	5,000006
INITIAL
C(AC)=000627 000000 
C(E)=440600 000000   C(C(E))=770000 000000 
FINAL
C(AC)=000000 000077 
C(E)=360600 000000   C(C(E))=770000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032633 032633 0   0   134240000006 0            770000000000 
IT1	032633 0      0   0   134240000006 0            770000000000 
AT3	032633 0      0   0   000000000006 0            134240000006 
AT6	032633 000006 0   0   000000000006 0            134240000006 
FT0	032633 000006 0   0   440600000000 0            134240000006 
FT1A	032633 000006 0   0   440600000000 0            440600000000 
FT9	032633 000006 0   0   440600000000 0            440600000000 
ET0	032633 000006 0   0   440600000000 0            440600000000 
BYT1	032633 000006 044 0   440600000000 0            440600000000 
BYT4	032633 000006 0   0   360600000000 0            440600000000 
BYT7	032633 000006 772 0   360600000000 0            440600000000 
SCT0	032633 000006 772 0   360600000000 0            440600000000 
SCT3	032633 000006 773 0   360600000000 000000000001 440600000000 
SCT3	032633 000006 774 0   360600000000 000000000003 440600000000 
SCT3	032633 000006 775 0   360600000000 000000000007 440600000000 
SCT3	032633 000006 776 0   360600000000 000000000017 440600000000 
SCT3	032633 000006 777 0   360600000000 000000000037 440600000000 
SCT3	032633 000006 0   0   360600000000 000000000077 440600000000 
SCT4	032633 000006 0   0   360600000000 000000000077 440600000000 
BYT7A	032633 000006 036 0   360600000000 000000000077 440600000000 
IT1	032633 0      036 0   360600000000 000000000077 440600000000 
AT3	032633 0      036 0   0            000000000077 360600000000 
AT6	032633 0      036 0   0            000000000077 360600000000 
FT0	032633 0      036 0   770000000000 000000000077 360600000000 
FT1A	032633 0      036 0   770000000000 000000000077 770000000000 
FT9	032634 0      036 0   770000000000 000000000077 770000000000 
ET0	032634 0      742 0   770000000000 000000000077 770000000000 
SCT0	032634 0      742 0   770000000000 000000000077 770000000000 
SCT3	032634 0      743 0   374000000000 000000000077 770000000000 
SCT3	032634 0      744 0   176000000000 000000000077 770000000000 
SCT3	032634 0      745 0   077000000000 000000000077 770000000000 
SCT3	032634 0      746 0   037400000000 000000000077 770000000000 
SCT3	032634 0      747 0   017600000000 000000000077 770000000000 
SCT3	032634 0      0   0   007700000000 000000000077 770000000000 
SCT3	032634 0      751 0   003740000000 000000000077 770000000000 
SCT3	032634 0      752 0   001760000000 000000000077 770000000000 
SCT3	032634 0      753 0   000770000000 000000000077 770000000000 
SCT3	032634 0      754 0   000374000000 000000000077 770000000000 
SCT3	032634 0      755 0   000176000000 000000000077 770000000000 
SCT3	032634 0      756 0   000077000000 000000000077 770000000000 
SCT3	032634 0      757 0   000037400000 000000000077 770000000000 
SCT3	032634 0      0   0   000017600000 000000000077 770000000000 
SCT3	032634 0      761 0   000007700000 000000000077 770000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 98
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0360

SCT3	032634 0      762 0   000003740000 000000000077 770000000000 
SCT3	032634 0      763 0   000001760000 000000000077 770000000000 
SCT3	032634 0      764 0   000000770000 000000000077 770000000000 
SCT3	032634 0      765 0   000000374000 000000000077 770000000000 
SCT3	032634 0      766 0   000000176000 000000000077 770000000000 
SCT3	032634 0      767 0   000000077000 000000000077 770000000000 
SCT3	032634 0      0   0   000000037400 000000000077 770000000000 
SCT3	032634 0      771 0   000000017600 000000000077 770000000000 
SCT3	032634 0      772 0   000000007700 000000000077 770000000000 
SCT3	032634 0      773 0   000000003740 000000000077 770000000000 
SCT3	032634 0      774 0   000000001760 000000000077 770000000000 
SCT3	032634 0      775 0   000000000770 000000000077 770000000000 
SCT3	032634 0      776 0   000000000374 000000000077 770000000000 
SCT3	032634 0      777 0   000000000176 000000000077 770000000000 
SCT3	032634 0      0   0   000000000077 000000000077 770000000000 
SCT4	032634 0      0   0   000000000077 000000000077 770000000000 
LBT1	032634 0      0   0   000000000077 000000000077 770000000000 
ST0	032634 0      0   0   000000000077 000000000077 770000000000 
ST1	032634 0      0   0   000000000077 000000000077 770000000000 
ST2	032634 0      0   0   000000000077 000000000077 770000000000 
ST9	032634 0      0   0   000000000077 000000000077 770000000000 


*032642 ILDB	5,000006
INITIAL
C(AC)=000000 000077 
C(E)=360600 000000   C(C(E))=007700 000000 
FINAL
C(AC)=000000 000077 
C(E)=300600 000000   C(C(E))=007700 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032642 032642 0   0   134240000006 0            007700000000 
IT1	032642 0      0   0   134240000006 0            007700000000 
AT3	032642 0      0   0   000000000006 0            134240000006 
AT6	032642 000006 0   0   000000000006 0            134240000006 
FT0	032642 000006 0   0   360600000000 0            134240000006 
FT1A	032642 000006 0   0   360600000000 0            360600000000 
FT9	032642 000006 0   0   360600000000 0            360600000000 
ET0	032642 000006 0   0   360600000000 0            360600000000 
BYT1	032642 000006 036 0   360600000000 0            360600000000 
BYT4	032642 000006 0   0   300600000000 0            360600000000 
BYT7	032642 000006 772 0   300600000000 0            360600000000 
SCT0	032642 000006 772 0   300600000000 0            360600000000 
SCT3	032642 000006 773 0   300600000000 000000000001 360600000000 
SCT3	032642 000006 774 0   300600000000 000000000003 360600000000 
SCT3	032642 000006 775 0   300600000000 000000000007 360600000000 
SCT3	032642 000006 776 0   300600000000 000000000017 360600000000 
SCT3	032642 000006 777 0   300600000000 000000000037 360600000000 
SCT3	032642 000006 0   0   300600000000 000000000077 360600000000 
SCT4	032642 000006 0   0   300600000000 000000000077 360600000000 
BYT7A	032642 000006 0   0   300600000000 000000000077 360600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 99
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0361

IT1	032642 0      0   0   300600000000 000000000077 360600000000 
AT3	032642 0      0   0   0            000000000077 300600000000 
AT6	032642 0      0   0   0            000000000077 300600000000 
FT0	032642 0      0   0   007700000000 000000000077 300600000000 
FT1A	032642 0      0   0   007700000000 000000000077 007700000000 
FT9	032643 0      0   0   007700000000 000000000077 007700000000 
ET0	032643 0      0   0   007700000000 000000000077 007700000000 
SCT0	032643 0      0   0   007700000000 000000000077 007700000000 
SCT3	032643 0      751 0   003740000000 000000000077 007700000000 
SCT3	032643 0      752 0   001760000000 000000000077 007700000000 
SCT3	032643 0      753 0   000770000000 000000000077 007700000000 
SCT3	032643 0      754 0   000374000000 000000000077 007700000000 
SCT3	032643 0      755 0   000176000000 000000000077 007700000000 
SCT3	032643 0      756 0   000077000000 000000000077 007700000000 
SCT3	032643 0      757 0   000037400000 000000000077 007700000000 
SCT3	032643 0      0   0   000017600000 000000000077 007700000000 
SCT3	032643 0      761 0   000007700000 000000000077 007700000000 
SCT3	032643 0      762 0   000003740000 000000000077 007700000000 
SCT3	032643 0      763 0   000001760000 000000000077 007700000000 
SCT3	032643 0      764 0   000000770000 000000000077 007700000000 
SCT3	032643 0      765 0   000000374000 000000000077 007700000000 
SCT3	032643 0      766 0   000000176000 000000000077 007700000000 
SCT3	032643 0      767 0   000000077000 000000000077 007700000000 
SCT3	032643 0      0   0   000000037400 000000000077 007700000000 
SCT3	032643 0      771 0   000000017600 000000000077 007700000000 
SCT3	032643 0      772 0   000000007700 000000000077 007700000000 
SCT3	032643 0      773 0   000000003740 000000000077 007700000000 
SCT3	032643 0      774 0   000000001760 000000000077 007700000000 
SCT3	032643 0      775 0   000000000770 000000000077 007700000000 
SCT3	032643 0      776 0   000000000374 000000000077 007700000000 
SCT3	032643 0      777 0   000000000176 000000000077 007700000000 
SCT3	032643 0      0   0   000000000077 000000000077 007700000000 
SCT4	032643 0      0   0   000000000077 000000000077 007700000000 
LBT1	032643 0      0   0   000000000077 000000000077 007700000000 
ST0	032643 0      0   0   000000000077 000000000077 007700000000 
ST1	032643 0      0   0   000000000077 000000000077 007700000000 
ST2	032643 0      0   0   000000000077 000000000077 007700000000 
ST9	032643 0      0   0   000000000077 000000000077 007700000000 


*032651 ILDB	5,000006
INITIAL
C(AC)=000000 000077 
C(E)=300600 000000   C(C(E))=000077 000000 
FINAL
C(AC)=000000 000077 
C(E)=220600 000000   C(C(E))=000077 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032651 032651 0   0   134240000006 0            000077000000 
IT1	032651 0      0   0   134240000006 0            000077000000 
AT3	032651 0      0   0   000000000006 0            134240000006 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 100
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0362

AT6	032651 000006 0   0   000000000006 0            134240000006 
FT0	032651 000006 0   0   300600000000 0            134240000006 
FT1A	032651 000006 0   0   300600000000 0            300600000000 
FT9	032651 000006 0   0   300600000000 0            300600000000 
ET0	032651 000006 0   0   300600000000 0            300600000000 
BYT1	032651 000006 0   0   300600000000 0            300600000000 
BYT4	032651 000006 0   0   220600000000 0            300600000000 
BYT7	032651 000006 772 0   220600000000 0            300600000000 
SCT0	032651 000006 772 0   220600000000 0            300600000000 
SCT3	032651 000006 773 0   220600000000 000000000001 300600000000 
SCT3	032651 000006 774 0   220600000000 000000000003 300600000000 
SCT3	032651 000006 775 0   220600000000 000000000007 300600000000 
SCT3	032651 000006 776 0   220600000000 000000000017 300600000000 
SCT3	032651 000006 777 0   220600000000 000000000037 300600000000 
SCT3	032651 000006 0   0   220600000000 000000000077 300600000000 
SCT4	032651 000006 0   0   220600000000 000000000077 300600000000 
BYT7A	032651 000006 022 0   220600000000 000000000077 300600000000 
IT1	032651 0      022 0   220600000000 000000000077 300600000000 
AT3	032651 0      022 0   0            000000000077 220600000000 
AT6	032651 0      022 0   0            000000000077 220600000000 
FT0	032651 0      022 0   000077000000 000000000077 220600000000 
FT1A	032651 0      022 0   000077000000 000000000077 000077000000 
FT9	032652 0      022 0   000077000000 000000000077 000077000000 
ET0	032652 0      756 0   000077000000 000000000077 000077000000 
SCT0	032652 0      756 0   000077000000 000000000077 000077000000 
SCT3	032652 0      757 0   000037400000 000000000077 000077000000 
SCT3	032652 0      0   0   000017600000 000000000077 000077000000 
SCT3	032652 0      761 0   000007700000 000000000077 000077000000 
SCT3	032652 0      762 0   000003740000 000000000077 000077000000 
SCT3	032652 0      763 0   000001760000 000000000077 000077000000 
SCT3	032652 0      764 0   000000770000 000000000077 000077000000 
SCT3	032652 0      765 0   000000374000 000000000077 000077000000 
SCT3	032652 0      766 0   000000176000 000000000077 000077000000 
SCT3	032652 0      767 0   000000077000 000000000077 000077000000 
SCT3	032652 0      0   0   000000037400 000000000077 000077000000 
SCT3	032652 0      771 0   000000017600 000000000077 000077000000 
SCT3	032652 0      772 0   000000007700 000000000077 000077000000 
SCT3	032652 0      773 0   000000003740 000000000077 000077000000 
SCT3	032652 0      774 0   000000001760 000000000077 000077000000 
SCT3	032652 0      775 0   000000000770 000000000077 000077000000 
SCT3	032652 0      776 0   000000000374 000000000077 000077000000 
SCT3	032652 0      777 0   000000000176 000000000077 000077000000 
SCT3	032652 0      0   0   000000000077 000000000077 000077000000 
SCT4	032652 0      0   0   000000000077 000000000077 000077000000 
LBT1	032652 0      0   0   000000000077 000000000077 000077000000 
ST0	032652 0      0   0   000000000077 000000000077 000077000000 
ST1	032652 0      0   0   000000000077 000000000077 000077000000 
ST2	032652 0      0   0   000000000077 000000000077 000077000000 
ST9	032652 0      0   0   000000000077 000000000077 000077000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 101
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0363

*032660 ILDB	5,000006
INITIAL
C(AC)=000000 000077 
C(E)=220600 000000   C(C(E))=000000 770000 
FINAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 770000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032660 032660 0   0   134240000006 0            000000770000 
IT1	032660 0      0   0   134240000006 0            000000770000 
AT3	032660 0      0   0   000000000006 0            134240000006 
AT6	032660 000006 0   0   000000000006 0            134240000006 
FT0	032660 000006 0   0   220600000000 0            134240000006 
FT1A	032660 000006 0   0   220600000000 0            220600000000 
FT9	032660 000006 0   0   220600000000 0            220600000000 
ET0	032660 000006 0   0   220600000000 0            220600000000 
BYT1	032660 000006 022 0   220600000000 0            220600000000 
BYT4	032660 000006 0   0   140600000000 0            220600000000 
BYT7	032660 000006 772 0   140600000000 0            220600000000 
SCT0	032660 000006 772 0   140600000000 0            220600000000 
SCT3	032660 000006 773 0   140600000000 000000000001 220600000000 
SCT3	032660 000006 774 0   140600000000 000000000003 220600000000 
SCT3	032660 000006 775 0   140600000000 000000000007 220600000000 
SCT3	032660 000006 776 0   140600000000 000000000017 220600000000 
SCT3	032660 000006 777 0   140600000000 000000000037 220600000000 
SCT3	032660 000006 0   0   140600000000 000000000077 220600000000 
SCT4	032660 000006 0   0   140600000000 000000000077 220600000000 
BYT7A	032660 000006 014 0   140600000000 000000000077 220600000000 
IT1	032660 0      014 0   140600000000 000000000077 220600000000 
AT3	032660 0      014 0   0            000000000077 140600000000 
AT6	032660 0      014 0   0            000000000077 140600000000 
FT0	032660 0      014 0   000000770000 000000000077 140600000000 
FT1A	032660 0      014 0   000000770000 000000000077 000000770000 
FT9	032661 0      014 0   000000770000 000000000077 000000770000 
ET0	032661 0      764 0   000000770000 000000000077 000000770000 
SCT0	032661 0      764 0   000000770000 000000000077 000000770000 
SCT3	032661 0      765 0   000000374000 000000000077 000000770000 
SCT3	032661 0      766 0   000000176000 000000000077 000000770000 
SCT3	032661 0      767 0   000000077000 000000000077 000000770000 
SCT3	032661 0      0   0   000000037400 000000000077 000000770000 
SCT3	032661 0      771 0   000000017600 000000000077 000000770000 
SCT3	032661 0      772 0   000000007700 000000000077 000000770000 
SCT3	032661 0      773 0   000000003740 000000000077 000000770000 
SCT3	032661 0      774 0   000000001760 000000000077 000000770000 
SCT3	032661 0      775 0   000000000770 000000000077 000000770000 
SCT3	032661 0      776 0   000000000374 000000000077 000000770000 
SCT3	032661 0      777 0   000000000176 000000000077 000000770000 
SCT3	032661 0      0   0   000000000077 000000000077 000000770000 
SCT4	032661 0      0   0   000000000077 000000000077 000000770000 
LBT1	032661 0      0   0   000000000077 000000000077 000000770000 
ST0	032661 0      0   0   000000000077 000000000077 000000770000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 102
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0364

ST1	032661 0      0   0   000000000077 000000000077 000000770000 
ST2	032661 0      0   0   000000000077 000000000077 000000770000 
ST9	032661 0      0   0   000000000077 000000000077 000000770000 


*032667 ILDB	5,000006
INITIAL
C(AC)=000000 000077 
C(E)=140600 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=060600 000000   C(C(E))=000000 007700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032667 032667 0   0   134240000006 0            000000007700 
IT1	032667 0      0   0   134240000006 0            000000007700 
AT3	032667 0      0   0   000000000006 0            134240000006 
AT6	032667 000006 0   0   000000000006 0            134240000006 
FT0	032667 000006 0   0   140600000000 0            134240000006 
FT1A	032667 000006 0   0   140600000000 0            140600000000 
FT9	032667 000006 0   0   140600000000 0            140600000000 
ET0	032667 000006 0   0   140600000000 0            140600000000 
BYT1	032667 000006 014 0   140600000000 0            140600000000 
BYT4	032667 000006 0   0   060600000000 0            140600000000 
BYT7	032667 000006 772 0   060600000000 0            140600000000 
SCT0	032667 000006 772 0   060600000000 0            140600000000 
SCT3	032667 000006 773 0   060600000000 000000000001 140600000000 
SCT3	032667 000006 774 0   060600000000 000000000003 140600000000 
SCT3	032667 000006 775 0   060600000000 000000000007 140600000000 
SCT3	032667 000006 776 0   060600000000 000000000017 140600000000 
SCT3	032667 000006 777 0   060600000000 000000000037 140600000000 
SCT3	032667 000006 0   0   060600000000 000000000077 140600000000 
SCT4	032667 000006 0   0   060600000000 000000000077 140600000000 
BYT7A	032667 000006 006 0   060600000000 000000000077 140600000000 
IT1	032667 0      006 0   060600000000 000000000077 140600000000 
AT3	032667 0      006 0   0            000000000077 060600000000 
AT6	032667 0      006 0   0            000000000077 060600000000 
FT0	032667 0      006 0   000000007700 000000000077 060600000000 
FT1A	032667 0      006 0   000000007700 000000000077 000000007700 
FT9	032670 0      006 0   000000007700 000000000077 000000007700 
ET0	032670 0      772 0   000000007700 000000000077 000000007700 
SCT0	032670 0      772 0   000000007700 000000000077 000000007700 
SCT3	032670 0      773 0   000000003740 000000000077 000000007700 
SCT3	032670 0      774 0   000000001760 000000000077 000000007700 
SCT3	032670 0      775 0   000000000770 000000000077 000000007700 
SCT3	032670 0      776 0   000000000374 000000000077 000000007700 
SCT3	032670 0      777 0   000000000176 000000000077 000000007700 
SCT3	032670 0      0   0   000000000077 000000000077 000000007700 
SCT4	032670 0      0   0   000000000077 000000000077 000000007700 
LBT1	032670 0      0   0   000000000077 000000000077 000000007700 
ST0	032670 0      0   0   000000000077 000000000077 000000007700 
ST1	032670 0      0   0   000000000077 000000000077 000000007700 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 103
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0365

ST2	032670 0      0   0   000000000077 000000000077 000000007700 
ST9	032670 0      0   0   000000000077 000000000077 000000007700 


*032702 ILDB	14,000015
INITIAL
C(AC)=000000 000014 
C(E)=000600 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=360600 000001   C(C(E))=770000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032702 032702 0   0   134600000015 0            770000000000 
IT1	032702 0      0   0   134600000015 0            770000000000 
AT3	032702 0      0   0   000000000015 0            134600000015 
AT6	032702 000015 0   0   000000000015 0            134600000015 
FT0	032702 000015 0   0   000600000000 0            134600000015 
FT1A	032702 000015 0   0   000600000000 0            000600000000 
FT9	032702 000015 0   0   000600000000 0            000600000000 
ET0	032702 000015 0   0   000600000000 0            000600000000 
BYT1	032702 000015 0   0   000600000000 0            000600000000 
BYT2	032702 000015 0   0   000600000001 0            000600000000 
BYT3	032702 000015 144 0   000600000001 0            000600000000 
BYT4	032702 000015 0   0   360600000001 0            000600000000 
BYT7	032702 000015 772 0   360600000001 0            000600000000 
SCT0	032702 000015 772 0   360600000001 0            000600000000 
SCT3	032702 000015 773 0   360600000001 000000000001 000600000000 
SCT3	032702 000015 774 0   360600000001 000000000003 000600000000 
SCT3	032702 000015 775 0   360600000001 000000000007 000600000000 
SCT3	032702 000015 776 0   360600000001 000000000017 000600000000 
SCT3	032702 000015 777 0   360600000001 000000000037 000600000000 
SCT3	032702 000015 0   0   360600000001 000000000077 000600000000 
SCT4	032702 000015 0   0   360600000001 000000000077 000600000000 
BYT7A	032702 000015 036 0   360600000001 000000000077 000600000000 
IT1	032702 0      036 0   360600000001 000000000077 000600000000 
AT3	032702 0      036 0   000000000001 000000000077 360600000001 
AT6	032702 000001 036 0   000000000001 000000000077 360600000001 
FT0	032702 000001 036 0   770000000000 000000000077 360600000001 
FT1A	032702 000001 036 0   770000000000 000000000077 770000000000 
FT9	032703 000001 036 0   770000000000 000000000077 770000000000 
ET0	032703 000001 742 0   770000000000 000000000077 770000000000 
SCT0	032703 000001 742 0   770000000000 000000000077 770000000000 
SCT3	032703 000001 743 0   374000000000 000000000077 770000000000 
SCT3	032703 000001 744 0   176000000000 000000000077 770000000000 
SCT3	032703 000001 745 0   077000000000 000000000077 770000000000 
SCT3	032703 000001 746 0   037400000000 000000000077 770000000000 
SCT3	032703 000001 747 0   017600000000 000000000077 770000000000 
SCT3	032703 000001 0   0   007700000000 000000000077 770000000000 
SCT3	032703 000001 751 0   003740000000 000000000077 770000000000 
SCT3	032703 000001 752 0   001760000000 000000000077 770000000000 
SCT3	032703 000001 753 0   000770000000 000000000077 770000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 104
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0366

SCT3	032703 000001 754 0   000374000000 000000000077 770000000000 
SCT3	032703 000001 755 0   000176000000 000000000077 770000000000 
SCT3	032703 000001 756 0   000077000000 000000000077 770000000000 
SCT3	032703 000001 757 0   000037400000 000000000077 770000000000 
SCT3	032703 000001 0   0   000017600000 000000000077 770000000000 
SCT3	032703 000001 761 0   000007700000 000000000077 770000000000 
SCT3	032703 000001 762 0   000003740000 000000000077 770000000000 
SCT3	032703 000001 763 0   000001760000 000000000077 770000000000 
SCT3	032703 000001 764 0   000000770000 000000000077 770000000000 
SCT3	032703 000001 765 0   000000374000 000000000077 770000000000 
SCT3	032703 000001 766 0   000000176000 000000000077 770000000000 
SCT3	032703 000001 767 0   000000077000 000000000077 770000000000 
SCT3	032703 000001 0   0   000000037400 000000000077 770000000000 
SCT3	032703 000001 771 0   000000017600 000000000077 770000000000 
SCT3	032703 000001 772 0   000000007700 000000000077 770000000000 
SCT3	032703 000001 773 0   000000003740 000000000077 770000000000 
SCT3	032703 000001 774 0   000000001760 000000000077 770000000000 
SCT3	032703 000001 775 0   000000000770 000000000077 770000000000 
SCT3	032703 000001 776 0   000000000374 000000000077 770000000000 
SCT3	032703 000001 777 0   000000000176 000000000077 770000000000 
SCT3	032703 000001 0   0   000000000077 000000000077 770000000000 
SCT4	032703 000001 0   0   000000000077 000000000077 770000000000 
LBT1	032703 000001 0   0   000000000077 000000000077 770000000000 
ST0	032703 000001 0   0   000000000077 000000000077 770000000000 
ST1	032703 000001 0   0   000000000077 000000000077 770000000000 
ST2	032703 000001 0   0   000000000077 000000000077 770000000000 
ST9	032703 000001 0   0   000000000077 000000000077 770000000000 


*032711 ILDB	14,000015
INITIAL
C(AC)=000000 000077 
C(E)=001400 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=301400 000001   C(C(E))=007700 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032711 032711 0   0   134600000015 0            007700000000 
IT1	032711 0      0   0   134600000015 0            007700000000 
AT3	032711 0      0   0   000000000015 0            134600000015 
AT6	032711 000015 0   0   000000000015 0            134600000015 
FT0	032711 000015 0   0   001400000000 0            134600000015 
FT1A	032711 000015 0   0   001400000000 0            001400000000 
FT9	032711 000015 0   0   001400000000 0            001400000000 
ET0	032711 000015 0   0   001400000000 0            001400000000 
BYT1	032711 000015 0   0   001400000000 0            001400000000 
BYT2	032711 000015 0   0   001400000001 0            001400000000 
BYT3	032711 000015 144 0   001400000001 0            001400000000 
BYT4	032711 000015 0   0   301400000001 0            001400000000 
BYT7	032711 000015 764 0   301400000001 0            001400000000 
SCT0	032711 000015 764 0   301400000001 0            001400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 105
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0367

SCT3	032711 000015 765 0   301400000001 000000000001 001400000000 
SCT3	032711 000015 766 0   301400000001 000000000003 001400000000 
SCT3	032711 000015 767 0   301400000001 000000000007 001400000000 
SCT3	032711 000015 0   0   301400000001 000000000017 001400000000 
SCT3	032711 000015 771 0   301400000001 000000000037 001400000000 
SCT3	032711 000015 772 0   301400000001 000000000077 001400000000 
SCT3	032711 000015 773 0   301400000001 000000000177 001400000000 
SCT3	032711 000015 774 0   301400000001 000000000377 001400000000 
SCT3	032711 000015 775 0   301400000001 000000000777 001400000000 
SCT3	032711 000015 776 0   301400000001 000000001777 001400000000 
SCT3	032711 000015 777 0   301400000001 000000003777 001400000000 
SCT3	032711 000015 0   0   301400000001 000000007777 001400000000 
SCT4	032711 000015 0   0   301400000001 000000007777 001400000000 
BYT7A	032711 000015 0   0   301400000001 000000007777 001400000000 
IT1	032711 0      0   0   301400000001 000000007777 001400000000 
AT3	032711 0      0   0   000000000001 000000007777 301400000001 
AT6	032711 000001 0   0   000000000001 000000007777 301400000001 
FT0	032711 000001 0   0   007700000000 000000007777 301400000001 
FT1A	032711 000001 0   0   007700000000 000000007777 007700000000 
FT9	032712 000001 0   0   007700000000 000000007777 007700000000 
ET0	032712 000001 0   0   007700000000 000000007777 007700000000 
SCT0	032712 000001 0   0   007700000000 000000007777 007700000000 
SCT3	032712 000001 751 0   003740000000 000000007777 007700000000 
SCT3	032712 000001 752 0   001760000000 000000007777 007700000000 
SCT3	032712 000001 753 0   000770000000 000000007777 007700000000 
SCT3	032712 000001 754 0   000374000000 000000007777 007700000000 
SCT3	032712 000001 755 0   000176000000 000000007777 007700000000 
SCT3	032712 000001 756 0   000077000000 000000007777 007700000000 
SCT3	032712 000001 757 0   000037400000 000000007777 007700000000 
SCT3	032712 000001 0   0   000017600000 000000007777 007700000000 
SCT3	032712 000001 761 0   000007700000 000000007777 007700000000 
SCT3	032712 000001 762 0   000003740000 000000007777 007700000000 
SCT3	032712 000001 763 0   000001760000 000000007777 007700000000 
SCT3	032712 000001 764 0   000000770000 000000007777 007700000000 
SCT3	032712 000001 765 0   000000374000 000000007777 007700000000 
SCT3	032712 000001 766 0   000000176000 000000007777 007700000000 
SCT3	032712 000001 767 0   000000077000 000000007777 007700000000 
SCT3	032712 000001 0   0   000000037400 000000007777 007700000000 
SCT3	032712 000001 771 0   000000017600 000000007777 007700000000 
SCT3	032712 000001 772 0   000000007700 000000007777 007700000000 
SCT3	032712 000001 773 0   000000003740 000000007777 007700000000 
SCT3	032712 000001 774 0   000000001760 000000007777 007700000000 
SCT3	032712 000001 775 0   000000000770 000000007777 007700000000 
SCT3	032712 000001 776 0   000000000374 000000007777 007700000000 
SCT3	032712 000001 777 0   000000000176 000000007777 007700000000 
SCT3	032712 000001 0   0   000000000077 000000007777 007700000000 
SCT4	032712 000001 0   0   000000000077 000000007777 007700000000 
LBT1	032712 000001 0   0   000000000077 000000007777 007700000000 
ST0	032712 000001 0   0   000000000077 000000007777 007700000000 
ST1	032712 000001 0   0   000000000077 000000007777 007700000000 
ST2	032712 000001 0   0   000000000077 000000007777 007700000000 
ST9	032712 000001 0   0   000000000077 000000007777 007700000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 106
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0368



*032720 ILDB	14,000015
INITIAL
C(AC)=000000 000077 
C(E)=002200 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=222200 000001   C(C(E))=000077 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032720 032720 0   0   134600000015 0            000077000000 
IT1	032720 0      0   0   134600000015 0            000077000000 
AT3	032720 0      0   0   000000000015 0            134600000015 
AT6	032720 000015 0   0   000000000015 0            134600000015 
FT0	032720 000015 0   0   002200000000 0            134600000015 
FT1A	032720 000015 0   0   002200000000 0            002200000000 
FT9	032720 000015 0   0   002200000000 0            002200000000 
ET0	032720 000015 0   0   002200000000 0            002200000000 
BYT1	032720 000015 0   0   002200000000 0            002200000000 
BYT2	032720 000015 0   0   002200000001 0            002200000000 
BYT3	032720 000015 144 0   002200000001 0            002200000000 
BYT4	032720 000015 0   0   222200000001 0            002200000000 
BYT7	032720 000015 756 0   222200000001 0            002200000000 
SCT0	032720 000015 756 0   222200000001 0            002200000000 
SCT3	032720 000015 757 0   222200000001 000000000001 002200000000 
SCT3	032720 000015 0   0   222200000001 000000000003 002200000000 
SCT3	032720 000015 761 0   222200000001 000000000007 002200000000 
SCT3	032720 000015 762 0   222200000001 000000000017 002200000000 
SCT3	032720 000015 763 0   222200000001 000000000037 002200000000 
SCT3	032720 000015 764 0   222200000001 000000000077 002200000000 
SCT3	032720 000015 765 0   222200000001 000000000177 002200000000 
SCT3	032720 000015 766 0   222200000001 000000000377 002200000000 
SCT3	032720 000015 767 0   222200000001 000000000777 002200000000 
SCT3	032720 000015 0   0   222200000001 000000001777 002200000000 
SCT3	032720 000015 771 0   222200000001 000000003777 002200000000 
SCT3	032720 000015 772 0   222200000001 000000007777 002200000000 
SCT3	032720 000015 773 0   222200000001 000000017777 002200000000 
SCT3	032720 000015 774 0   222200000001 000000037777 002200000000 
SCT3	032720 000015 775 0   222200000001 000000077777 002200000000 
SCT3	032720 000015 776 0   222200000001 000000177777 002200000000 
SCT3	032720 000015 777 0   222200000001 000000377777 002200000000 
SCT3	032720 000015 0   0   222200000001 000000777777 002200000000 
SCT4	032720 000015 0   0   222200000001 000000777777 002200000000 
BYT7A	032720 000015 022 0   222200000001 000000777777 002200000000 
IT1	032720 0      022 0   222200000001 000000777777 002200000000 
AT3	032720 0      022 0   000000000001 000000777777 222200000001 
AT6	032720 000001 022 0   000000000001 000000777777 222200000001 
FT0	032720 000001 022 0   000077000000 000000777777 222200000001 
FT1A	032720 000001 022 0   000077000000 000000777777 000077000000 
FT9	032721 000001 022 0   000077000000 000000777777 000077000000 
ET0	032721 000001 756 0   000077000000 000000777777 000077000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 107
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0369

SCT0	032721 000001 756 0   000077000000 000000777777 000077000000 
SCT3	032721 000001 757 0   000037400000 000000777777 000077000000 
SCT3	032721 000001 0   0   000017600000 000000777777 000077000000 
SCT3	032721 000001 761 0   000007700000 000000777777 000077000000 
SCT3	032721 000001 762 0   000003740000 000000777777 000077000000 
SCT3	032721 000001 763 0   000001760000 000000777777 000077000000 
SCT3	032721 000001 764 0   000000770000 000000777777 000077000000 
SCT3	032721 000001 765 0   000000374000 000000777777 000077000000 
SCT3	032721 000001 766 0   000000176000 000000777777 000077000000 
SCT3	032721 000001 767 0   000000077000 000000777777 000077000000 
SCT3	032721 000001 0   0   000000037400 000000777777 000077000000 
SCT3	032721 000001 771 0   000000017600 000000777777 000077000000 
SCT3	032721 000001 772 0   000000007700 000000777777 000077000000 
SCT3	032721 000001 773 0   000000003740 000000777777 000077000000 
SCT3	032721 000001 774 0   000000001760 000000777777 000077000000 
SCT3	032721 000001 775 0   000000000770 000000777777 000077000000 
SCT3	032721 000001 776 0   000000000374 000000777777 000077000000 
SCT3	032721 000001 777 0   000000000176 000000777777 000077000000 
SCT3	032721 000001 0   0   000000000077 000000777777 000077000000 
SCT4	032721 000001 0   0   000000000077 000000777777 000077000000 
LBT1	032721 000001 0   0   000000000077 000000777777 000077000000 
ST0	032721 000001 0   0   000000000077 000000777777 000077000000 
ST1	032721 000001 0   0   000000000077 000000777777 000077000000 
ST2	032721 000001 0   0   000000000077 000000777777 000077000000 
ST9	032721 000001 0   0   000000000077 000000777777 000077000000 


*032727 ILDB	14,000015
INITIAL
C(AC)=000000 000077 
C(E)=003000 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=143000 000001   C(C(E))=000000 770000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032727 032727 0   0   134600000015 0            000000770000 
IT1	032727 0      0   0   134600000015 0            000000770000 
AT3	032727 0      0   0   000000000015 0            134600000015 
AT6	032727 000015 0   0   000000000015 0            134600000015 
FT0	032727 000015 0   0   003000000000 0            134600000015 
FT1A	032727 000015 0   0   003000000000 0            003000000000 
FT9	032727 000015 0   0   003000000000 0            003000000000 
ET0	032727 000015 0   0   003000000000 0            003000000000 
BYT1	032727 000015 0   0   003000000000 0            003000000000 
BYT2	032727 000015 0   0   003000000001 0            003000000000 
BYT3	032727 000015 144 0   003000000001 0            003000000000 
BYT4	032727 000015 0   0   143000000001 0            003000000000 
BYT7	032727 000015 0   0   143000000001 0            003000000000 
SCT0	032727 000015 0   0   143000000001 0            003000000000 
SCT3	032727 000015 751 0   143000000001 000000000001 003000000000 
SCT3	032727 000015 752 0   143000000001 000000000003 003000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 108
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0370

SCT3	032727 000015 753 0   143000000001 000000000007 003000000000 
SCT3	032727 000015 754 0   143000000001 000000000017 003000000000 
SCT3	032727 000015 755 0   143000000001 000000000037 003000000000 
SCT3	032727 000015 756 0   143000000001 000000000077 003000000000 
SCT3	032727 000015 757 0   143000000001 000000000177 003000000000 
SCT3	032727 000015 0   0   143000000001 000000000377 003000000000 
SCT3	032727 000015 761 0   143000000001 000000000777 003000000000 
SCT3	032727 000015 762 0   143000000001 000000001777 003000000000 
SCT3	032727 000015 763 0   143000000001 000000003777 003000000000 
SCT3	032727 000015 764 0   143000000001 000000007777 003000000000 
SCT3	032727 000015 765 0   143000000001 000000017777 003000000000 
SCT3	032727 000015 766 0   143000000001 000000037777 003000000000 
SCT3	032727 000015 767 0   143000000001 000000077777 003000000000 
SCT3	032727 000015 0   0   143000000001 000000177777 003000000000 
SCT3	032727 000015 771 0   143000000001 000000377777 003000000000 
SCT3	032727 000015 772 0   143000000001 000000777777 003000000000 
SCT3	032727 000015 773 0   143000000001 000001777777 003000000000 
SCT3	032727 000015 774 0   143000000001 000003777777 003000000000 
SCT3	032727 000015 775 0   143000000001 000007777777 003000000000 
SCT3	032727 000015 776 0   143000000001 000017777777 003000000000 
SCT3	032727 000015 777 0   143000000001 000037777777 003000000000 
SCT3	032727 000015 0   0   143000000001 000077777777 003000000000 
SCT4	032727 000015 0   0   143000000001 000077777777 003000000000 
BYT7A	032727 000015 014 0   143000000001 000077777777 003000000000 
IT1	032727 0      014 0   143000000001 000077777777 003000000000 
AT3	032727 0      014 0   000000000001 000077777777 143000000001 
AT6	032727 000001 014 0   000000000001 000077777777 143000000001 
FT0	032727 000001 014 0   000000770000 000077777777 143000000001 
FT1A	032727 000001 014 0   000000770000 000077777777 000000770000 
FT9	032730 000001 014 0   000000770000 000077777777 000000770000 
ET0	032730 000001 764 0   000000770000 000077777777 000000770000 
SCT0	032730 000001 764 0   000000770000 000077777777 000000770000 
SCT3	032730 000001 765 0   000000374000 000077777777 000000770000 
SCT3	032730 000001 766 0   000000176000 000077777777 000000770000 
SCT3	032730 000001 767 0   000000077000 000077777777 000000770000 
SCT3	032730 000001 0   0   000000037400 000077777777 000000770000 
SCT3	032730 000001 771 0   000000017600 000077777777 000000770000 
SCT3	032730 000001 772 0   000000007700 000077777777 000000770000 
SCT3	032730 000001 773 0   000000003740 000077777777 000000770000 
SCT3	032730 000001 774 0   000000001760 000077777777 000000770000 
SCT3	032730 000001 775 0   000000000770 000077777777 000000770000 
SCT3	032730 000001 776 0   000000000374 000077777777 000000770000 
SCT3	032730 000001 777 0   000000000176 000077777777 000000770000 
SCT3	032730 000001 0   0   000000000077 000077777777 000000770000 
SCT4	032730 000001 0   0   000000000077 000077777777 000000770000 
LBT1	032730 000001 0   0   000000000077 000077777777 000000770000 
ST0	032730 000001 0   0   000000000077 000077777777 000000770000 
ST1	032730 000001 0   0   000000000077 000077777777 000000770000 
ST2	032730 000001 0   0   000000000077 000077777777 000000770000 
ST9	032730 000001 0   0   000000000077 000077777777 000000770000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 109
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0371

*032736 ILDB	14,000015
INITIAL
C(AC)=000000 000077 
C(E)=003600 000000   C(C(E))=000000 007700 
FINAL
C(AC)=000000 000077 
C(E)=063600 000001   C(C(E))=000000 007700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032736 032736 0   0   134600000015 0            000000007700 
IT1	032736 0      0   0   134600000015 0            000000007700 
AT3	032736 0      0   0   000000000015 0            134600000015 
AT6	032736 000015 0   0   000000000015 0            134600000015 
FT0	032736 000015 0   0   003600000000 0            134600000015 
FT1A	032736 000015 0   0   003600000000 0            003600000000 
FT9	032736 000015 0   0   003600000000 0            003600000000 
ET0	032736 000015 0   0   003600000000 0            003600000000 
BYT1	032736 000015 0   0   003600000000 0            003600000000 
BYT2	032736 000015 0   0   003600000001 0            003600000000 
BYT3	032736 000015 144 0   003600000001 0            003600000000 
BYT4	032736 000015 0   0   063600000001 0            003600000000 
BYT7	032736 000015 742 0   063600000001 0            003600000000 
SCT0	032736 000015 742 0   063600000001 0            003600000000 
SCT3	032736 000015 743 0   063600000001 000000000001 003600000000 
SCT3	032736 000015 744 0   063600000001 000000000003 003600000000 
SCT3	032736 000015 745 0   063600000001 000000000007 003600000000 
SCT3	032736 000015 746 0   063600000001 000000000017 003600000000 
SCT3	032736 000015 747 0   063600000001 000000000037 003600000000 
SCT3	032736 000015 0   0   063600000001 000000000077 003600000000 
SCT3	032736 000015 751 0   063600000001 000000000177 003600000000 
SCT3	032736 000015 752 0   063600000001 000000000377 003600000000 
SCT3	032736 000015 753 0   063600000001 000000000777 003600000000 
SCT3	032736 000015 754 0   063600000001 000000001777 003600000000 
SCT3	032736 000015 755 0   063600000001 000000003777 003600000000 
SCT3	032736 000015 756 0   063600000001 000000007777 003600000000 
SCT3	032736 000015 757 0   063600000001 000000017777 003600000000 
SCT3	032736 000015 0   0   063600000001 000000037777 003600000000 
SCT3	032736 000015 761 0   063600000001 000000077777 003600000000 
SCT3	032736 000015 762 0   063600000001 000000177777 003600000000 
SCT3	032736 000015 763 0   063600000001 000000377777 003600000000 
SCT3	032736 000015 764 0   063600000001 000000777777 003600000000 
SCT3	032736 000015 765 0   063600000001 000001777777 003600000000 
SCT3	032736 000015 766 0   063600000001 000003777777 003600000000 
SCT3	032736 000015 767 0   063600000001 000007777777 003600000000 
SCT3	032736 000015 0   0   063600000001 000017777777 003600000000 
SCT3	032736 000015 771 0   063600000001 000037777777 003600000000 
SCT3	032736 000015 772 0   063600000001 000077777777 003600000000 
SCT3	032736 000015 773 0   063600000001 000177777777 003600000000 
SCT3	032736 000015 774 0   063600000001 000377777777 003600000000 
SCT3	032736 000015 775 0   063600000001 000777777777 003600000000 
SCT3	032736 000015 776 0   063600000001 001777777777 003600000000 
SCT3	032736 000015 777 0   063600000001 003777777777 003600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 110
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0372

SCT3	032736 000015 0   0   063600000001 007777777777 003600000000 
SCT4	032736 000015 0   0   063600000001 007777777777 003600000000 
BYT7A	032736 000015 006 0   063600000001 007777777777 003600000000 
IT1	032736 0      006 0   063600000001 007777777777 003600000000 
AT3	032736 0      006 0   000000000001 007777777777 063600000001 
AT6	032736 000001 006 0   000000000001 007777777777 063600000001 
FT0	032736 000001 006 0   000000007700 007777777777 063600000001 
FT1A	032736 000001 006 0   000000007700 007777777777 000000007700 
FT9	032737 000001 006 0   000000007700 007777777777 000000007700 
ET0	032737 000001 772 0   000000007700 007777777777 000000007700 
SCT0	032737 000001 772 0   000000007700 007777777777 000000007700 
SCT3	032737 000001 773 0   000000003740 007777777777 000000007700 
SCT3	032737 000001 774 0   000000001760 007777777777 000000007700 
SCT3	032737 000001 775 0   000000000770 007777777777 000000007700 
SCT3	032737 000001 776 0   000000000374 007777777777 000000007700 
SCT3	032737 000001 777 0   000000000176 007777777777 000000007700 
SCT3	032737 000001 0   0   000000000077 007777777777 000000007700 
SCT4	032737 000001 0   0   000000000077 007777777777 000000007700 
LBT1	032737 000001 0   0   000000000077 007777777777 000000007700 
ST0	032737 000001 0   0   000000000077 007777777777 000000007700 
ST1	032737 000001 0   0   000000000077 007777777777 000000007700 
ST2	032737 000001 0   0   000000000077 007777777777 000000007700 
ST9	032737 000001 0   0   000000000077 007777777777 000000007700 


*032745 ILDB	14,000015
INITIAL
C(AC)=777777 777777 
C(E)=206000 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=646000 000001   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032745 032745 0   0   134600000015 0            777777777777 
IT1	032745 0      0   0   134600000015 0            777777777777 
AT3	032745 0      0   0   000000000015 0            134600000015 
AT6	032745 000015 0   0   000000000015 0            134600000015 
FT0	032745 000015 0   0   206000000000 0            134600000015 
FT1A	032745 000015 0   0   206000000000 0            206000000000 
FT9	032745 000015 0   0   206000000000 0            206000000000 
ET0	032745 000015 0   0   206000000000 0            206000000000 
BYT1	032745 000015 0   0   206000000000 0            206000000000 
BYT2	032745 000015 0   0   206000000001 0            206000000000 
BYT3	032745 000015 144 0   206000000001 0            206000000000 
BYT4	032745 000015 0   0   646000000001 0            206000000000 
BYT7	032745 000015 0   0   646000000001 0            206000000000 
SCT0	032745 000015 0   0   646000000001 0            206000000000 
SCT3	032745 000015 721 0   646000000001 000000000001 206000000000 
SCT3	032745 000015 722 0   646000000001 000000000003 206000000000 
SCT3	032745 000015 723 0   646000000001 000000000007 206000000000 
SCT3	032745 000015 724 0   646000000001 000000000017 206000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 111
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0373

SCT3	032745 000015 725 0   646000000001 000000000037 206000000000 
SCT3	032745 000015 726 0   646000000001 000000000077 206000000000 
SCT3	032745 000015 727 0   646000000001 000000000177 206000000000 
SCT3	032745 000015 0   0   646000000001 000000000377 206000000000 
SCT3	032745 000015 731 0   646000000001 000000000777 206000000000 
SCT3	032745 000015 732 0   646000000001 000000001777 206000000000 
SCT3	032745 000015 733 0   646000000001 000000003777 206000000000 
SCT3	032745 000015 734 0   646000000001 000000007777 206000000000 
SCT3	032745 000015 735 0   646000000001 000000017777 206000000000 
SCT3	032745 000015 736 0   646000000001 000000037777 206000000000 
SCT3	032745 000015 737 0   646000000001 000000077777 206000000000 
SCT3	032745 000015 0   0   646000000001 000000177777 206000000000 
SCT3	032745 000015 741 0   646000000001 000000377777 206000000000 
SCT3	032745 000015 742 0   646000000001 000000777777 206000000000 
SCT3	032745 000015 743 0   646000000001 000001777777 206000000000 
SCT3	032745 000015 744 0   646000000001 000003777777 206000000000 
SCT3	032745 000015 745 0   646000000001 000007777777 206000000000 
SCT3	032745 000015 746 0   646000000001 000017777777 206000000000 
SCT3	032745 000015 747 0   646000000001 000037777777 206000000000 
SCT3	032745 000015 0   0   646000000001 000077777777 206000000000 
SCT3	032745 000015 751 0   646000000001 000177777777 206000000000 
SCT3	032745 000015 752 0   646000000001 000377777777 206000000000 
SCT3	032745 000015 753 0   646000000001 000777777777 206000000000 
SCT3	032745 000015 754 0   646000000001 001777777777 206000000000 
SCT3	032745 000015 755 0   646000000001 003777777777 206000000000 
SCT3	032745 000015 756 0   646000000001 007777777777 206000000000 
SCT3	032745 000015 757 0   646000000001 017777777777 206000000000 
SCT3	032745 000015 0   0   646000000001 037777777777 206000000000 
SCT3	032745 000015 761 0   646000000001 077777777777 206000000000 
SCT3	032745 000015 762 0   646000000001 177777777777 206000000000 
SCT3	032745 000015 763 0   646000000001 377777777777 206000000000 
SCT3	032745 000015 764 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 765 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 766 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 767 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 0   0   646000000001 777777777777 206000000000 
SCT3	032745 000015 771 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 772 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 773 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 774 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 775 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 776 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 777 0   646000000001 777777777777 206000000000 
SCT3	032745 000015 0   0   646000000001 777777777777 206000000000 
SCT4	032745 000015 0   0   646000000001 777777777777 206000000000 
BYT7A	032745 000015 064 0   646000000001 777777777777 206000000000 
IT1	032745 0      064 0   646000000001 777777777777 206000000000 
AT3	032745 0      064 0   000000000001 777777777777 646000000001 
AT6	032745 000001 064 0   000000000001 777777777777 646000000001 
FT0	032745 000001 064 0   777777777777 777777777777 646000000001 
FT1A	032745 000001 064 0   777777777777 777777777777 777777777777 
FT9	032746 000001 064 0   777777777777 777777777777 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 112
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0374

ET0	032746 000001 714 0   777777777777 777777777777 777777777777 
SCT0	032746 000001 714 0   777777777777 777777777777 777777777777 
SCT3	032746 000001 715 0   377777777777 777777777777 777777777777 
SCT3	032746 000001 716 0   177777777777 777777777777 777777777777 
SCT3	032746 000001 717 0   077777777777 777777777777 777777777777 
SCT3	032746 000001 0   0   037777777777 777777777777 777777777777 
SCT3	032746 000001 721 0   017777777777 777777777777 777777777777 
SCT3	032746 000001 722 0   007777777777 777777777777 777777777777 
SCT3	032746 000001 723 0   003777777777 777777777777 777777777777 
SCT3	032746 000001 724 0   001777777777 777777777777 777777777777 
SCT3	032746 000001 725 0   000777777777 777777777777 777777777777 
SCT3	032746 000001 726 0   000377777777 777777777777 777777777777 
SCT3	032746 000001 727 0   000177777777 777777777777 777777777777 
SCT3	032746 000001 0   0   000077777777 777777777777 777777777777 
SCT3	032746 000001 731 0   000037777777 777777777777 777777777777 
SCT3	032746 000001 732 0   000017777777 777777777777 777777777777 
SCT3	032746 000001 733 0   000007777777 777777777777 777777777777 
SCT3	032746 000001 734 0   000003777777 777777777777 777777777777 
SCT3	032746 000001 735 0   000001777777 777777777777 777777777777 
SCT3	032746 000001 736 0   000000777777 777777777777 777777777777 
SCT3	032746 000001 737 0   000000377777 777777777777 777777777777 
SCT3	032746 000001 0   0   000000177777 777777777777 777777777777 
SCT3	032746 000001 741 0   000000077777 777777777777 777777777777 
SCT3	032746 000001 742 0   000000037777 777777777777 777777777777 
SCT3	032746 000001 743 0   000000017777 777777777777 777777777777 
SCT3	032746 000001 744 0   000000007777 777777777777 777777777777 
SCT3	032746 000001 745 0   000000003777 777777777777 777777777777 
SCT3	032746 000001 746 0   000000001777 777777777777 777777777777 
SCT3	032746 000001 747 0   000000000777 777777777777 777777777777 
SCT3	032746 000001 0   0   000000000377 777777777777 777777777777 
SCT3	032746 000001 751 0   000000000177 777777777777 777777777777 
SCT3	032746 000001 752 0   000000000077 777777777777 777777777777 
SCT3	032746 000001 753 0   000000000037 777777777777 777777777777 
SCT3	032746 000001 754 0   000000000017 777777777777 777777777777 
SCT3	032746 000001 755 0   000000000007 777777777777 777777777777 
SCT3	032746 000001 756 0   000000000003 777777777777 777777777777 
SCT3	032746 000001 757 0   000000000001 777777777777 777777777777 
SCT3	032746 000001 0   0   0            777777777777 777777777777 
SCT3	032746 000001 761 0   0            777777777777 777777777777 
SCT3	032746 000001 762 0   0            777777777777 777777777777 
SCT3	032746 000001 763 0   0            777777777777 777777777777 
SCT3	032746 000001 764 0   0            777777777777 777777777777 
SCT3	032746 000001 765 0   0            777777777777 777777777777 
SCT3	032746 000001 766 0   0            777777777777 777777777777 
SCT3	032746 000001 767 0   0            777777777777 777777777777 
SCT3	032746 000001 0   0   0            777777777777 777777777777 
SCT3	032746 000001 771 0   0            777777777777 777777777777 
SCT3	032746 000001 772 0   0            777777777777 777777777777 
SCT3	032746 000001 773 0   0            777777777777 777777777777 
SCT3	032746 000001 774 0   0            777777777777 777777777777 
SCT3	032746 000001 775 0   0            777777777777 777777777777 
SCT3	032746 000001 776 0   0            777777777777 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 113
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0375

SCT3	032746 000001 777 0   0            777777777777 777777777777 
SCT3	032746 000001 0   0   0            777777777777 777777777777 
SCT4	032746 000001 0   0   0            777777777777 777777777777 
LBT1	032746 000001 0   0   0            777777777777 777777777777 
ST0	032746 000001 0   0   0            777777777777 777777777777 
ST1	032746 000001 0   0   0            777777777777 777777777777 
ST2	032746 000001 0   0   0            777777777777 777777777777 
ST9	032746 000001 0   0   0            777777777777 777777777777 


*032762 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=060600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=060600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032762 032762 0   0   137540000014 0            000000005500 
IT1	032762 0      0   0   137540000014 0            000000005500 
AT3	032762 0      0   0   000000000014 0            137540000014 
AT6	032762 000014 0   0   000000000014 0            137540000014 
FT0	032762 000014 0   0   060600000000 0            137540000014 
FT1A	032762 000014 0   0   060600000000 0            060600000000 
FT9	032762 000014 0   0   060600000000 0            060600000000 
ET0	032762 000014 0   0   060600000000 0            060600000000 
BYT6	032762 000014 0   0   060600000000 0            060600000000 
BYT7	032762 000014 772 0   060600000000 0            060600000000 
SCT0	032762 000014 772 0   060600000000 0            060600000000 
SCT3	032762 000014 773 0   060600000000 000000000001 060600000000 
SCT3	032762 000014 774 0   060600000000 000000000003 060600000000 
SCT3	032762 000014 775 0   060600000000 000000000007 060600000000 
SCT3	032762 000014 776 0   060600000000 000000000017 060600000000 
SCT3	032762 000014 777 0   060600000000 000000000037 060600000000 
SCT3	032762 000014 0   0   060600000000 000000000077 060600000000 
SCT4	032762 000014 0   0   060600000000 000000000077 060600000000 
BYT7A	032762 000014 006 0   060600000000 000000000077 060600000000 
IT1	032762 0      006 0   060600000000 000000000077 060600000000 
AT3	032762 0      006 0   0            000000000077 060600000000 
AT6	032762 0      006 0   0            000000000077 060600000000 
FT0	032762 0      006 0   0            000000000077 060600000000 
FT1A	032762 0      006 0   0            000000000077 0            
FT2	032762 0      006 0   0            000000000077 0            
FT2RQ	032762 0      006 0   000000000055 000000000077 0            
FT3	032762 0      006 0   000000000055 000000000077 0            
FT9	032763 0      006 0   000000000055 000000000077 0            
ET0	032763 0      772 0   000000000055 000000000077 0            
SCT0	032763 0      772 0   000000000055 000000000077 0            
SCT3	032763 0      773 0   000000000132 000000000176 0            
SCT3	032763 0      774 0   000000000264 000000000374 0            
SCT3	032763 0      775 0   000000000550 000000000770 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 114
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0376

SCT3	032763 0      776 0   000000001320 000000001760 0            
SCT3	032763 0      777 0   000000002640 000000003740 0            
SCT3	032763 0      0   0   000000005500 000000007700 0            
SCT4	032763 0      0   0   000000005500 000000007700 0            
DBT1	032763 0      0   0   000000005500 000000007700 0            
DBT2	032763 0      0   0   000000007700 0            000000005500 
DBT3	032763 0      0   0   777777770077 0            000000005500 
DBT4	032763 0      0   0   0            0            000000005500 
DBT5	032763 0      0   0   000000005500 0            000000005500 
ST0	032763 0      0   0   000000005500 0            000000005500 
ST6	032763 0      0   0   000000005500 0            000000005500 
ST6A	032763 0      0   0   000000005500 0            000000005500 
ST9	032763 0      0   0   000000005500 0            000000005500 


*032773 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032773 032773 0   0   137540000014 0            000000550000 
IT1	032773 0      0   0   137540000014 0            000000550000 
AT3	032773 0      0   0   000000000014 0            137540000014 
AT6	032773 000014 0   0   000000000014 0            137540000014 
FT0	032773 000014 0   0   140600000000 0            137540000014 
FT1A	032773 000014 0   0   140600000000 0            140600000000 
FT9	032773 000014 0   0   140600000000 0            140600000000 
ET0	032773 000014 0   0   140600000000 0            140600000000 
BYT6	032773 000014 0   0   140600000000 0            140600000000 
BYT7	032773 000014 772 0   140600000000 0            140600000000 
SCT0	032773 000014 772 0   140600000000 0            140600000000 
SCT3	032773 000014 773 0   140600000000 000000000001 140600000000 
SCT3	032773 000014 774 0   140600000000 000000000003 140600000000 
SCT3	032773 000014 775 0   140600000000 000000000007 140600000000 
SCT3	032773 000014 776 0   140600000000 000000000017 140600000000 
SCT3	032773 000014 777 0   140600000000 000000000037 140600000000 
SCT3	032773 000014 0   0   140600000000 000000000077 140600000000 
SCT4	032773 000014 0   0   140600000000 000000000077 140600000000 
BYT7A	032773 000014 014 0   140600000000 000000000077 140600000000 
IT1	032773 0      014 0   140600000000 000000000077 140600000000 
AT3	032773 0      014 0   0            000000000077 140600000000 
AT6	032773 0      014 0   0            000000000077 140600000000 
FT0	032773 0      014 0   0            000000000077 140600000000 
FT1A	032773 0      014 0   0            000000000077 0            
FT2	032773 0      014 0   0            000000000077 0            
FT2RQ	032773 0      014 0   000000000055 000000000077 0            
FT3	032773 0      014 0   000000000055 000000000077 0            
FT9	032774 0      014 0   000000000055 000000000077 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 115
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0377

ET0	032774 0      764 0   000000000055 000000000077 0            
SCT0	032774 0      764 0   000000000055 000000000077 0            
SCT3	032774 0      765 0   000000000132 000000000176 0            
SCT3	032774 0      766 0   000000000264 000000000374 0            
SCT3	032774 0      767 0   000000000550 000000000770 0            
SCT3	032774 0      0   0   000000001320 000000001760 0            
SCT3	032774 0      771 0   000000002640 000000003740 0            
SCT3	032774 0      772 0   000000005500 000000007700 0            
SCT3	032774 0      773 0   000000013200 000000017600 0            
SCT3	032774 0      774 0   000000026400 000000037400 0            
SCT3	032774 0      775 0   000000055000 000000077000 0            
SCT3	032774 0      776 0   000000132000 000000176000 0            
SCT3	032774 0      777 0   000000264000 000000374000 0            
SCT3	032774 0      0   0   000000550000 000000770000 0            
SCT4	032774 0      0   0   000000550000 000000770000 0            
DBT1	032774 0      0   0   000000550000 000000770000 0            
DBT2	032774 0      0   0   000000770000 0            000000550000 
DBT3	032774 0      0   0   777777007777 0            000000550000 
DBT4	032774 0      0   0   0            0            000000550000 
DBT5	032774 0      0   0   000000550000 0            000000550000 
ST0	032774 0      0   0   000000550000 0            000000550000 
ST6	032774 0      0   0   000000550000 0            000000550000 
ST6A	032774 0      0   0   000000550000 0            000000550000 
ST9	032774 0      0   0   000000550000 0            000000550000 


*033004 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=220600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=220600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033004 033004 0   0   137540000014 0            000055000000 
IT1	033004 0      0   0   137540000014 0            000055000000 
AT3	033004 0      0   0   000000000014 0            137540000014 
AT6	033004 000014 0   0   000000000014 0            137540000014 
FT0	033004 000014 0   0   220600000000 0            137540000014 
FT1A	033004 000014 0   0   220600000000 0            220600000000 
FT9	033004 000014 0   0   220600000000 0            220600000000 
ET0	033004 000014 0   0   220600000000 0            220600000000 
BYT6	033004 000014 0   0   220600000000 0            220600000000 
BYT7	033004 000014 772 0   220600000000 0            220600000000 
SCT0	033004 000014 772 0   220600000000 0            220600000000 
SCT3	033004 000014 773 0   220600000000 000000000001 220600000000 
SCT3	033004 000014 774 0   220600000000 000000000003 220600000000 
SCT3	033004 000014 775 0   220600000000 000000000007 220600000000 
SCT3	033004 000014 776 0   220600000000 000000000017 220600000000 
SCT3	033004 000014 777 0   220600000000 000000000037 220600000000 
SCT3	033004 000014 0   0   220600000000 000000000077 220600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 116
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0378

SCT4	033004 000014 0   0   220600000000 000000000077 220600000000 
BYT7A	033004 000014 022 0   220600000000 000000000077 220600000000 
IT1	033004 0      022 0   220600000000 000000000077 220600000000 
AT3	033004 0      022 0   0            000000000077 220600000000 
AT6	033004 0      022 0   0            000000000077 220600000000 
FT0	033004 0      022 0   0            000000000077 220600000000 
FT1A	033004 0      022 0   0            000000000077 0            
FT2	033004 0      022 0   0            000000000077 0            
FT2RQ	033004 0      022 0   000000000055 000000000077 0            
FT3	033004 0      022 0   000000000055 000000000077 0            
FT9	033005 0      022 0   000000000055 000000000077 0            
ET0	033005 0      756 0   000000000055 000000000077 0            
SCT0	033005 0      756 0   000000000055 000000000077 0            
SCT3	033005 0      757 0   000000000132 000000000176 0            
SCT3	033005 0      0   0   000000000264 000000000374 0            
SCT3	033005 0      761 0   000000000550 000000000770 0            
SCT3	033005 0      762 0   000000001320 000000001760 0            
SCT3	033005 0      763 0   000000002640 000000003740 0            
SCT3	033005 0      764 0   000000005500 000000007700 0            
SCT3	033005 0      765 0   000000013200 000000017600 0            
SCT3	033005 0      766 0   000000026400 000000037400 0            
SCT3	033005 0      767 0   000000055000 000000077000 0            
SCT3	033005 0      0   0   000000132000 000000176000 0            
SCT3	033005 0      771 0   000000264000 000000374000 0            
SCT3	033005 0      772 0   000000550000 000000770000 0            
SCT3	033005 0      773 0   000001320000 000001760000 0            
SCT3	033005 0      774 0   000002640000 000003740000 0            
SCT3	033005 0      775 0   000005500000 000007700000 0            
SCT3	033005 0      776 0   000013200000 000017600000 0            
SCT3	033005 0      777 0   000026400000 000037400000 0            
SCT3	033005 0      0   0   000055000000 000077000000 0            
SCT4	033005 0      0   0   000055000000 000077000000 0            
DBT1	033005 0      0   0   000055000000 000077000000 0            
DBT2	033005 0      0   0   000077000000 0            000055000000 
DBT3	033005 0      0   0   777700777777 0            000055000000 
DBT4	033005 0      0   0   0            0            000055000000 
DBT5	033005 0      0   0   000055000000 0            000055000000 
ST0	033005 0      0   0   000055000000 0            000055000000 
ST6	033005 0      0   0   000055000000 0            000055000000 
ST6A	033005 0      0   0   000055000000 0            000055000000 
ST9	033005 0      0   0   000055000000 0            000055000000 


*033015 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 117
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0379

IT0	033015 033015 0   0   137540000014 0            005500000000 
IT1	033015 0      0   0   137540000014 0            005500000000 
AT3	033015 0      0   0   000000000014 0            137540000014 
AT6	033015 000014 0   0   000000000014 0            137540000014 
FT0	033015 000014 0   0   300600000000 0            137540000014 
FT1A	033015 000014 0   0   300600000000 0            300600000000 
FT9	033015 000014 0   0   300600000000 0            300600000000 
ET0	033015 000014 0   0   300600000000 0            300600000000 
BYT6	033015 000014 0   0   300600000000 0            300600000000 
BYT7	033015 000014 772 0   300600000000 0            300600000000 
SCT0	033015 000014 772 0   300600000000 0            300600000000 
SCT3	033015 000014 773 0   300600000000 000000000001 300600000000 
SCT3	033015 000014 774 0   300600000000 000000000003 300600000000 
SCT3	033015 000014 775 0   300600000000 000000000007 300600000000 
SCT3	033015 000014 776 0   300600000000 000000000017 300600000000 
SCT3	033015 000014 777 0   300600000000 000000000037 300600000000 
SCT3	033015 000014 0   0   300600000000 000000000077 300600000000 
SCT4	033015 000014 0   0   300600000000 000000000077 300600000000 
BYT7A	033015 000014 0   0   300600000000 000000000077 300600000000 
IT1	033015 0      0   0   300600000000 000000000077 300600000000 
AT3	033015 0      0   0   0            000000000077 300600000000 
AT6	033015 0      0   0   0            000000000077 300600000000 
FT0	033015 0      0   0   0            000000000077 300600000000 
FT1A	033015 0      0   0   0            000000000077 0            
FT2	033015 0      0   0   0            000000000077 0            
FT2RQ	033015 0      0   0   000000000055 000000000077 0            
FT3	033015 0      0   0   000000000055 000000000077 0            
FT9	033016 0      0   0   000000000055 000000000077 0            
ET0	033016 0      0   0   000000000055 000000000077 0            
SCT0	033016 0      0   0   000000000055 000000000077 0            
SCT3	033016 0      751 0   000000000132 000000000176 0            
SCT3	033016 0      752 0   000000000264 000000000374 0            
SCT3	033016 0      753 0   000000000550 000000000770 0            
SCT3	033016 0      754 0   000000001320 000000001760 0            
SCT3	033016 0      755 0   000000002640 000000003740 0            
SCT3	033016 0      756 0   000000005500 000000007700 0            
SCT3	033016 0      757 0   000000013200 000000017600 0            
SCT3	033016 0      0   0   000000026400 000000037400 0            
SCT3	033016 0      761 0   000000055000 000000077000 0            
SCT3	033016 0      762 0   000000132000 000000176000 0            
SCT3	033016 0      763 0   000000264000 000000374000 0            
SCT3	033016 0      764 0   000000550000 000000770000 0            
SCT3	033016 0      765 0   000001320000 000001760000 0            
SCT3	033016 0      766 0   000002640000 000003740000 0            
SCT3	033016 0      767 0   000005500000 000007700000 0            
SCT3	033016 0      0   0   000013200000 000017600000 0            
SCT3	033016 0      771 0   000026400000 000037400000 0            
SCT3	033016 0      772 0   000055000000 000077000000 0            
SCT3	033016 0      773 0   000132000000 000176000000 0            
SCT3	033016 0      774 0   000264000000 000374000000 0            
SCT3	033016 0      775 0   000550000000 000770000000 0            
SCT3	033016 0      776 0   001320000000 001760000000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 118
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0380

SCT3	033016 0      777 0   002640000000 003740000000 0            
SCT3	033016 0      0   0   005500000000 007700000000 0            
SCT4	033016 0      0   0   005500000000 007700000000 0            
DBT1	033016 0      0   0   005500000000 007700000000 0            
DBT2	033016 0      0   0   007700000000 0            005500000000 
DBT3	033016 0      0   0   770077777777 0            005500000000 
DBT4	033016 0      0   0   0            0            005500000000 
DBT5	033016 0      0   0   005500000000 0            005500000000 
ST0	033016 0      0   0   005500000000 0            005500000000 
ST6	033016 0      0   0   005500000000 0            005500000000 
ST6A	033016 0      0   0   005500000000 0            005500000000 
ST9	033016 0      0   0   005500000000 0            005500000000 


*033026 DPB	13,000014
INITIAL
C(AC)=000000 000055 
C(E)=360600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=360600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033026 033026 0   0   137540000014 0            550000000000 
IT1	033026 0      0   0   137540000014 0            550000000000 
AT3	033026 0      0   0   000000000014 0            137540000014 
AT6	033026 000014 0   0   000000000014 0            137540000014 
FT0	033026 000014 0   0   360600000000 0            137540000014 
FT1A	033026 000014 0   0   360600000000 0            360600000000 
FT9	033026 000014 0   0   360600000000 0            360600000000 
ET0	033026 000014 0   0   360600000000 0            360600000000 
BYT6	033026 000014 0   0   360600000000 0            360600000000 
BYT7	033026 000014 772 0   360600000000 0            360600000000 
SCT0	033026 000014 772 0   360600000000 0            360600000000 
SCT3	033026 000014 773 0   360600000000 000000000001 360600000000 
SCT3	033026 000014 774 0   360600000000 000000000003 360600000000 
SCT3	033026 000014 775 0   360600000000 000000000007 360600000000 
SCT3	033026 000014 776 0   360600000000 000000000017 360600000000 
SCT3	033026 000014 777 0   360600000000 000000000037 360600000000 
SCT3	033026 000014 0   0   360600000000 000000000077 360600000000 
SCT4	033026 000014 0   0   360600000000 000000000077 360600000000 
BYT7A	033026 000014 036 0   360600000000 000000000077 360600000000 
IT1	033026 0      036 0   360600000000 000000000077 360600000000 
AT3	033026 0      036 0   0            000000000077 360600000000 
AT6	033026 0      036 0   0            000000000077 360600000000 
FT0	033026 0      036 0   0            000000000077 360600000000 
FT1A	033026 0      036 0   0            000000000077 0            
FT2	033026 0      036 0   0            000000000077 0            
FT2RQ	033026 0      036 0   000000000055 000000000077 0            
FT3	033026 0      036 0   000000000055 000000000077 0            
FT9	033027 0      036 0   000000000055 000000000077 0            
ET0	033027 0      742 0   000000000055 000000000077 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 119
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0381

SCT0	033027 0      742 0   000000000055 000000000077 0            
SCT3	033027 0      743 0   000000000132 000000000176 0            
SCT3	033027 0      744 0   000000000264 000000000374 0            
SCT3	033027 0      745 0   000000000550 000000000770 0            
SCT3	033027 0      746 0   000000001320 000000001760 0            
SCT3	033027 0      747 0   000000002640 000000003740 0            
SCT3	033027 0      0   0   000000005500 000000007700 0            
SCT3	033027 0      751 0   000000013200 000000017600 0            
SCT3	033027 0      752 0   000000026400 000000037400 0            
SCT3	033027 0      753 0   000000055000 000000077000 0            
SCT3	033027 0      754 0   000000132000 000000176000 0            
SCT3	033027 0      755 0   000000264000 000000374000 0            
SCT3	033027 0      756 0   000000550000 000000770000 0            
SCT3	033027 0      757 0   000001320000 000001760000 0            
SCT3	033027 0      0   0   000002640000 000003740000 0            
SCT3	033027 0      761 0   000005500000 000007700000 0            
SCT3	033027 0      762 0   000013200000 000017600000 0            
SCT3	033027 0      763 0   000026400000 000037400000 0            
SCT3	033027 0      764 0   000055000000 000077000000 0            
SCT3	033027 0      765 0   000132000000 000176000000 0            
SCT3	033027 0      766 0   000264000000 000374000000 0            
SCT3	033027 0      767 0   000550000000 000770000000 0            
SCT3	033027 0      0   0   001320000000 001760000000 0            
SCT3	033027 0      771 0   002640000000 003740000000 0            
SCT3	033027 0      772 0   005500000000 007700000000 0            
SCT3	033027 0      773 0   013200000000 017600000000 0            
SCT3	033027 0      774 0   026400000000 037400000000 0            
SCT3	033027 0      775 0   055000000000 077000000000 0            
SCT3	033027 0      776 0   132000000000 176000000000 0            
SCT3	033027 0      777 0   264000000000 374000000000 0            
SCT3	033027 0      0   0   550000000000 770000000000 0            
SCT4	033027 0      0   0   550000000000 770000000000 0            
DBT1	033027 0      0   0   550000000000 770000000000 0            
DBT2	033027 0      0   0   770000000000 0            550000000000 
DBT3	033027 0      0   0   007777777777 0            550000000000 
DBT4	033027 0      0   0   0            0            550000000000 
DBT5	033027 0      0   0   550000000000 0            550000000000 
ST0	033027 0      0   0   550000000000 0            550000000000 
ST6	033027 0      0   0   550000000000 0            550000000000 
ST6A	033027 0      0   0   550000000000 0            550000000000 
ST9	033027 0      0   0   550000000000 0            550000000000 


*033043 DPB	12,000013
INITIAL
C(AC)=000000 000055 
C(E)=000600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=000600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 120
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0382

IT0	033043 033043 0   0   137500000013 0            000000000055 
IT1	033043 0      0   0   137500000013 0            000000000055 
AT3	033043 0      0   0   000000000013 0            137500000013 
AT6	033043 000013 0   0   000000000013 0            137500000013 
FT0	033043 000013 0   0   000600000000 0            137500000013 
FT1A	033043 000013 0   0   000600000000 0            000600000000 
FT9	033043 000013 0   0   000600000000 0            000600000000 
ET0	033043 000013 0   0   000600000000 0            000600000000 
BYT6	033043 000013 0   0   000600000000 0            000600000000 
BYT7	033043 000013 772 0   000600000000 0            000600000000 
SCT0	033043 000013 772 0   000600000000 0            000600000000 
SCT3	033043 000013 773 0   000600000000 000000000001 000600000000 
SCT3	033043 000013 774 0   000600000000 000000000003 000600000000 
SCT3	033043 000013 775 0   000600000000 000000000007 000600000000 
SCT3	033043 000013 776 0   000600000000 000000000017 000600000000 
SCT3	033043 000013 777 0   000600000000 000000000037 000600000000 
SCT3	033043 000013 0   0   000600000000 000000000077 000600000000 
SCT4	033043 000013 0   0   000600000000 000000000077 000600000000 
BYT7A	033043 000013 0   0   000600000000 000000000077 000600000000 
IT1	033043 0      0   0   000600000000 000000000077 000600000000 
AT3	033043 0      0   0   0            000000000077 000600000000 
AT6	033043 0      0   0   0            000000000077 000600000000 
FT0	033043 0      0   0   0            000000000077 000600000000 
FT1A	033043 0      0   0   0            000000000077 0            
FT2	033043 0      0   0   0            000000000077 0            
FT2RQ	033043 0      0   0   000000000055 000000000077 0            
FT3	033043 0      0   0   000000000055 000000000077 0            
FT9	033044 0      0   0   000000000055 000000000077 0            
ET0	033044 0      0   0   000000000055 000000000077 0            
SCT0	033044 0      0   0   000000000055 000000000077 0            
SCT4	033044 0      0   0   000000000055 000000000077 0            
DBT1	033044 0      0   0   000000000055 000000000077 0            
DBT2	033044 0      0   0   000000000077 0            000000000055 
DBT3	033044 0      0   0   777777777700 0            000000000055 
DBT4	033044 0      0   0   0            0            000000000055 
DBT5	033044 0      0   0   000000000055 0            000000000055 
ST0	033044 0      0   0   000000000055 0            000000000055 
ST6	033044 0      0   0   000000000055 0            000000000055 
ST6A	033044 0      0   0   000000000055 0            000000000055 
ST9	033044 0      0   0   000000000055 0            000000000055 


*033054 DPB	12,000013
INITIAL
C(AC)=000000 000055 
C(E)=060600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=060600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033054 033054 0   0   137500000013 0            000000005500 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 121
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0383

IT1	033054 0      0   0   137500000013 0            000000005500 
AT3	033054 0      0   0   000000000013 0            137500000013 
AT6	033054 000013 0   0   000000000013 0            137500000013 
FT0	033054 000013 0   0   060600000000 0            137500000013 
FT1A	033054 000013 0   0   060600000000 0            060600000000 
FT9	033054 000013 0   0   060600000000 0            060600000000 
ET0	033054 000013 0   0   060600000000 0            060600000000 
BYT6	033054 000013 0   0   060600000000 0            060600000000 
BYT7	033054 000013 772 0   060600000000 0            060600000000 
SCT0	033054 000013 772 0   060600000000 0            060600000000 
SCT3	033054 000013 773 0   060600000000 000000000001 060600000000 
SCT3	033054 000013 774 0   060600000000 000000000003 060600000000 
SCT3	033054 000013 775 0   060600000000 000000000007 060600000000 
SCT3	033054 000013 776 0   060600000000 000000000017 060600000000 
SCT3	033054 000013 777 0   060600000000 000000000037 060600000000 
SCT3	033054 000013 0   0   060600000000 000000000077 060600000000 
SCT4	033054 000013 0   0   060600000000 000000000077 060600000000 
BYT7A	033054 000013 006 0   060600000000 000000000077 060600000000 
IT1	033054 0      006 0   060600000000 000000000077 060600000000 
AT3	033054 0      006 0   0            000000000077 060600000000 
AT6	033054 0      006 0   0            000000000077 060600000000 
FT0	033054 0      006 0   0            000000000077 060600000000 
FT1A	033054 0      006 0   0            000000000077 0            
FT2	033054 0      006 0   0            000000000077 0            
FT2RQ	033054 0      006 0   000000000055 000000000077 0            
FT3	033054 0      006 0   000000000055 000000000077 0            
FT9	033055 0      006 0   000000000055 000000000077 0            
ET0	033055 0      772 0   000000000055 000000000077 0            
SCT0	033055 0      772 0   000000000055 000000000077 0            
SCT3	033055 0      773 0   000000000132 000000000176 0            
SCT3	033055 0      774 0   000000000264 000000000374 0            
SCT3	033055 0      775 0   000000000550 000000000770 0            
SCT3	033055 0      776 0   000000001320 000000001760 0            
SCT3	033055 0      777 0   000000002640 000000003740 0            
SCT3	033055 0      0   0   000000005500 000000007700 0            
SCT4	033055 0      0   0   000000005500 000000007700 0            
DBT1	033055 0      0   0   000000005500 000000007700 0            
DBT2	033055 0      0   0   000000007700 0            000000005500 
DBT3	033055 0      0   0   777777770077 0            000000005500 
DBT4	033055 0      0   0   0            0            000000005500 
DBT5	033055 0      0   0   000000005500 0            000000005500 
ST0	033055 0      0   0   000000005500 0            000000005500 
ST6	033055 0      0   0   000000005500 0            000000005500 
ST6A	033055 0      0   0   000000005500 0            000000005500 
ST9	033055 0      0   0   000000005500 0            000000005500 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 122
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0384

*033065 DPB	12,000013
INITIAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=140600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033065 033065 0   0   137500000013 0            000000550000 
IT1	033065 0      0   0   137500000013 0            000000550000 
AT3	033065 0      0   0   000000000013 0            137500000013 
AT6	033065 000013 0   0   000000000013 0            137500000013 
FT0	033065 000013 0   0   140600000000 0            137500000013 
FT1A	033065 000013 0   0   140600000000 0            140600000000 
FT9	033065 000013 0   0   140600000000 0            140600000000 
ET0	033065 000013 0   0   140600000000 0            140600000000 
BYT6	033065 000013 0   0   140600000000 0            140600000000 
BYT7	033065 000013 772 0   140600000000 0            140600000000 
SCT0	033065 000013 772 0   140600000000 0            140600000000 
SCT3	033065 000013 773 0   140600000000 000000000001 140600000000 
SCT3	033065 000013 774 0   140600000000 000000000003 140600000000 
SCT3	033065 000013 775 0   140600000000 000000000007 140600000000 
SCT3	033065 000013 776 0   140600000000 000000000017 140600000000 
SCT3	033065 000013 777 0   140600000000 000000000037 140600000000 
SCT3	033065 000013 0   0   140600000000 000000000077 140600000000 
SCT4	033065 000013 0   0   140600000000 000000000077 140600000000 
BYT7A	033065 000013 014 0   140600000000 000000000077 140600000000 
IT1	033065 0      014 0   140600000000 000000000077 140600000000 
AT3	033065 0      014 0   0            000000000077 140600000000 
AT6	033065 0      014 0   0            000000000077 140600000000 
FT0	033065 0      014 0   0            000000000077 140600000000 
FT1A	033065 0      014 0   0            000000000077 0            
FT2	033065 0      014 0   0            000000000077 0            
FT2RQ	033065 0      014 0   000000000055 000000000077 0            
FT3	033065 0      014 0   000000000055 000000000077 0            
FT9	033066 0      014 0   000000000055 000000000077 0            
ET0	033066 0      764 0   000000000055 000000000077 0            
SCT0	033066 0      764 0   000000000055 000000000077 0            
SCT3	033066 0      765 0   000000000132 000000000176 0            
SCT3	033066 0      766 0   000000000264 000000000374 0            
SCT3	033066 0      767 0   000000000550 000000000770 0            
SCT3	033066 0      0   0   000000001320 000000001760 0            
SCT3	033066 0      771 0   000000002640 000000003740 0            
SCT3	033066 0      772 0   000000005500 000000007700 0            
SCT3	033066 0      773 0   000000013200 000000017600 0            
SCT3	033066 0      774 0   000000026400 000000037400 0            
SCT3	033066 0      775 0   000000055000 000000077000 0            
SCT3	033066 0      776 0   000000132000 000000176000 0            
SCT3	033066 0      777 0   000000264000 000000374000 0            
SCT3	033066 0      0   0   000000550000 000000770000 0            
SCT4	033066 0      0   0   000000550000 000000770000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 123
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0385

DBT1	033066 0      0   0   000000550000 000000770000 0            
DBT2	033066 0      0   0   000000770000 0            000000550000 
DBT3	033066 0      0   0   777777007777 0            000000550000 
DBT4	033066 0      0   0   0            0            000000550000 
DBT5	033066 0      0   0   000000550000 0            000000550000 
ST0	033066 0      0   0   000000550000 0            000000550000 
ST6	033066 0      0   0   000000550000 0            000000550000 
ST6A	033066 0      0   0   000000550000 0            000000550000 
ST9	033066 0      0   0   000000550000 0            000000550000 


*033076 DPB	12,000013
INITIAL
C(AC)=000000 000055 
C(E)=220600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=220600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033076 033076 0   0   137500000013 0            000055000000 
IT1	033076 0      0   0   137500000013 0            000055000000 
AT3	033076 0      0   0   000000000013 0            137500000013 
AT6	033076 000013 0   0   000000000013 0            137500000013 
FT0	033076 000013 0   0   220600000000 0            137500000013 
FT1A	033076 000013 0   0   220600000000 0            220600000000 
FT9	033076 000013 0   0   220600000000 0            220600000000 
ET0	033076 000013 0   0   220600000000 0            220600000000 
BYT6	033076 000013 0   0   220600000000 0            220600000000 
BYT7	033076 000013 772 0   220600000000 0            220600000000 
SCT0	033076 000013 772 0   220600000000 0            220600000000 
SCT3	033076 000013 773 0   220600000000 000000000001 220600000000 
SCT3	033076 000013 774 0   220600000000 000000000003 220600000000 
SCT3	033076 000013 775 0   220600000000 000000000007 220600000000 
SCT3	033076 000013 776 0   220600000000 000000000017 220600000000 
SCT3	033076 000013 777 0   220600000000 000000000037 220600000000 
SCT3	033076 000013 0   0   220600000000 000000000077 220600000000 
SCT4	033076 000013 0   0   220600000000 000000000077 220600000000 
BYT7A	033076 000013 022 0   220600000000 000000000077 220600000000 
IT1	033076 0      022 0   220600000000 000000000077 220600000000 
AT3	033076 0      022 0   0            000000000077 220600000000 
AT6	033076 0      022 0   0            000000000077 220600000000 
FT0	033076 0      022 0   0            000000000077 220600000000 
FT1A	033076 0      022 0   0            000000000077 0            
FT2	033076 0      022 0   0            000000000077 0            
FT2RQ	033076 0      022 0   000000000055 000000000077 0            
FT3	033076 0      022 0   000000000055 000000000077 0            
FT9	033077 0      022 0   000000000055 000000000077 0            
ET0	033077 0      756 0   000000000055 000000000077 0            
SCT0	033077 0      756 0   000000000055 000000000077 0            
SCT3	033077 0      757 0   000000000132 000000000176 0            
SCT3	033077 0      0   0   000000000264 000000000374 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 124
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0386

SCT3	033077 0      761 0   000000000550 000000000770 0            
SCT3	033077 0      762 0   000000001320 000000001760 0            
SCT3	033077 0      763 0   000000002640 000000003740 0            
SCT3	033077 0      764 0   000000005500 000000007700 0            
SCT3	033077 0      765 0   000000013200 000000017600 0            
SCT3	033077 0      766 0   000000026400 000000037400 0            
SCT3	033077 0      767 0   000000055000 000000077000 0            
SCT3	033077 0      0   0   000000132000 000000176000 0            
SCT3	033077 0      771 0   000000264000 000000374000 0            
SCT3	033077 0      772 0   000000550000 000000770000 0            
SCT3	033077 0      773 0   000001320000 000001760000 0            
SCT3	033077 0      774 0   000002640000 000003740000 0            
SCT3	033077 0      775 0   000005500000 000007700000 0            
SCT3	033077 0      776 0   000013200000 000017600000 0            
SCT3	033077 0      777 0   000026400000 000037400000 0            
SCT3	033077 0      0   0   000055000000 000077000000 0            
SCT4	033077 0      0   0   000055000000 000077000000 0            
DBT1	033077 0      0   0   000055000000 000077000000 0            
DBT2	033077 0      0   0   000077000000 0            000055000000 
DBT3	033077 0      0   0   777700777777 0            000055000000 
DBT4	033077 0      0   0   0            0            000055000000 
DBT5	033077 0      0   0   000055000000 0            000055000000 
ST0	033077 0      0   0   000055000000 0            000055000000 
ST6	033077 0      0   0   000055000000 0            000055000000 
ST6A	033077 0      0   0   000055000000 0            000055000000 
ST9	033077 0      0   0   000055000000 0            000055000000 


*033107 DPB	12,000013
INITIAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=000000 000000 
FINAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033107 033107 0   0   137500000013 0            005500000000 
IT1	033107 0      0   0   137500000013 0            005500000000 
AT3	033107 0      0   0   000000000013 0            137500000013 
AT6	033107 000013 0   0   000000000013 0            137500000013 
FT0	033107 000013 0   0   300600000000 0            137500000013 
FT1A	033107 000013 0   0   300600000000 0            300600000000 
FT9	033107 000013 0   0   300600000000 0            300600000000 
ET0	033107 000013 0   0   300600000000 0            300600000000 
BYT6	033107 000013 0   0   300600000000 0            300600000000 
BYT7	033107 000013 772 0   300600000000 0            300600000000 
SCT0	033107 000013 772 0   300600000000 0            300600000000 
SCT3	033107 000013 773 0   300600000000 000000000001 300600000000 
SCT3	033107 000013 774 0   300600000000 000000000003 300600000000 
SCT3	033107 000013 775 0   300600000000 000000000007 300600000000 
SCT3	033107 000013 776 0   300600000000 000000000017 300600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 125
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0387

SCT3	033107 000013 777 0   300600000000 000000000037 300600000000 
SCT3	033107 000013 0   0   300600000000 000000000077 300600000000 
SCT4	033107 000013 0   0   300600000000 000000000077 300600000000 
BYT7A	033107 000013 0   0   300600000000 000000000077 300600000000 
IT1	033107 0      0   0   300600000000 000000000077 300600000000 
AT3	033107 0      0   0   0            000000000077 300600000000 
AT6	033107 0      0   0   0            000000000077 300600000000 
FT0	033107 0      0   0   0            000000000077 300600000000 
FT1A	033107 0      0   0   0            000000000077 0            
FT2	033107 0      0   0   0            000000000077 0            
FT2RQ	033107 0      0   0   000000000055 000000000077 0            
FT3	033107 0      0   0   000000000055 000000000077 0            
FT9	033110 0      0   0   000000000055 000000000077 0            
ET0	033110 0      0   0   000000000055 000000000077 0            
SCT0	033110 0      0   0   000000000055 000000000077 0            
SCT3	033110 0      751 0   000000000132 000000000176 0            
SCT3	033110 0      752 0   000000000264 000000000374 0            
SCT3	033110 0      753 0   000000000550 000000000770 0            
SCT3	033110 0      754 0   000000001320 000000001760 0            
SCT3	033110 0      755 0   000000002640 000000003740 0            
SCT3	033110 0      756 0   000000005500 000000007700 0            
SCT3	033110 0      757 0   000000013200 000000017600 0            
SCT3	033110 0      0   0   000000026400 000000037400 0            
SCT3	033110 0      761 0   000000055000 000000077000 0            
SCT3	033110 0      762 0   000000132000 000000176000 0            
SCT3	033110 0      763 0   000000264000 000000374000 0            
SCT3	033110 0      764 0   000000550000 000000770000 0            
SCT3	033110 0      765 0   000001320000 000001760000 0            
SCT3	033110 0      766 0   000002640000 000003740000 0            
SCT3	033110 0      767 0   000005500000 000007700000 0            
SCT3	033110 0      0   0   000013200000 000017600000 0            
SCT3	033110 0      771 0   000026400000 000037400000 0            
SCT3	033110 0      772 0   000055000000 000077000000 0            
SCT3	033110 0      773 0   000132000000 000176000000 0            
SCT3	033110 0      774 0   000264000000 000374000000 0            
SCT3	033110 0      775 0   000550000000 000770000000 0            
SCT3	033110 0      776 0   001320000000 001760000000 0            
SCT3	033110 0      777 0   002640000000 003740000000 0            
SCT3	033110 0      0   0   005500000000 007700000000 0            
SCT4	033110 0      0   0   005500000000 007700000000 0            
DBT1	033110 0      0   0   005500000000 007700000000 0            
DBT2	033110 0      0   0   007700000000 0            005500000000 
DBT3	033110 0      0   0   770077777777 0            005500000000 
DBT4	033110 0      0   0   0            0            005500000000 
DBT5	033110 0      0   0   005500000000 0            005500000000 
ST0	033110 0      0   0   005500000000 0            005500000000 
ST6	033110 0      0   0   005500000000 0            005500000000 
ST6A	033110 0      0   0   005500000000 0            005500000000 
ST9	033110 0      0   0   005500000000 0            005500000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 126
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0388

*033124 IDPB	11,000012
INITIAL
C(AC)=000000 000077 
C(E)=000600 000000   C(C(E))=005500 000000 
FINAL
C(AC)=000000 000077 
C(E)=360600 000001   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033124 033124 0   0   136440000012 0            770000000000 
IT1	033124 0      0   0   136440000012 0            770000000000 
AT3	033124 0      0   0   000000000012 0            136440000012 
AT6	033124 000012 0   0   000000000012 0            136440000012 
FT0	033124 000012 0   0   000600000000 0            136440000012 
FT1A	033124 000012 0   0   000600000000 0            000600000000 
FT9	033124 000012 0   0   000600000000 0            000600000000 
ET0	033124 000012 0   0   000600000000 0            000600000000 
BYT1	033124 000012 0   0   000600000000 0            000600000000 
BYT2	033124 000012 0   0   000600000001 0            000600000000 
BYT3	033124 000012 144 0   000600000001 0            000600000000 
BYT4	033124 000012 0   0   360600000001 0            000600000000 
BYT7	033124 000012 772 0   360600000001 0            000600000000 
SCT0	033124 000012 772 0   360600000001 0            000600000000 
SCT3	033124 000012 773 0   360600000001 000000000001 000600000000 
SCT3	033124 000012 774 0   360600000001 000000000003 000600000000 
SCT3	033124 000012 775 0   360600000001 000000000007 000600000000 
SCT3	033124 000012 776 0   360600000001 000000000017 000600000000 
SCT3	033124 000012 777 0   360600000001 000000000037 000600000000 
SCT3	033124 000012 0   0   360600000001 000000000077 000600000000 
SCT4	033124 000012 0   0   360600000001 000000000077 000600000000 
BYT7A	033124 000012 036 0   360600000001 000000000077 000600000000 
IT1	033124 0      036 0   360600000001 000000000077 000600000000 
AT3	033124 0      036 0   000000000001 000000000077 360600000001 
AT6	033124 000001 036 0   000000000001 000000000077 360600000001 
FT0	033124 000001 036 0   0            000000000077 360600000001 
FT1A	033124 000001 036 0   0            000000000077 0            
FT2	033124 000001 036 0   0            000000000077 0            
FT2RQ	033124 000001 036 0   000000000077 000000000077 0            
FT3	033124 000001 036 0   000000000077 000000000077 0            
FT9	033125 000001 036 0   000000000077 000000000077 0            
ET0	033125 000001 742 0   000000000077 000000000077 0            
SCT0	033125 000001 742 0   000000000077 000000000077 0            
SCT3	033125 000001 743 0   000000000176 000000000176 0            
SCT3	033125 000001 744 0   000000000374 000000000374 0            
SCT3	033125 000001 745 0   000000000770 000000000770 0            
SCT3	033125 000001 746 0   000000001760 000000001760 0            
SCT3	033125 000001 747 0   000000003740 000000003740 0            
SCT3	033125 000001 0   0   000000007700 000000007700 0            
SCT3	033125 000001 751 0   000000017600 000000017600 0            
SCT3	033125 000001 752 0   000000037400 000000037400 0            
SCT3	033125 000001 753 0   000000077000 000000077000 0            
SCT3	033125 000001 754 0   000000176000 000000176000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 127
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0389

SCT3	033125 000001 755 0   000000374000 000000374000 0            
SCT3	033125 000001 756 0   000000770000 000000770000 0            
SCT3	033125 000001 757 0   000001760000 000001760000 0            
SCT3	033125 000001 0   0   000003740000 000003740000 0            
SCT3	033125 000001 761 0   000007700000 000007700000 0            
SCT3	033125 000001 762 0   000017600000 000017600000 0            
SCT3	033125 000001 763 0   000037400000 000037400000 0            
SCT3	033125 000001 764 0   000077000000 000077000000 0            
SCT3	033125 000001 765 0   000176000000 000176000000 0            
SCT3	033125 000001 766 0   000374000000 000374000000 0            
SCT3	033125 000001 767 0   000770000000 000770000000 0            
SCT3	033125 000001 0   0   001760000000 001760000000 0            
SCT3	033125 000001 771 0   003740000000 003740000000 0            
SCT3	033125 000001 772 0   007700000000 007700000000 0            
SCT3	033125 000001 773 0   017600000000 017600000000 0            
SCT3	033125 000001 774 0   037400000000 037400000000 0            
SCT3	033125 000001 775 0   077000000000 077000000000 0            
SCT3	033125 000001 776 0   176000000000 176000000000 0            
SCT3	033125 000001 777 0   374000000000 374000000000 0            
SCT3	033125 000001 0   0   770000000000 770000000000 0            
SCT4	033125 000001 0   0   770000000000 770000000000 0            
DBT1	033125 000001 0   0   770000000000 770000000000 0            
DBT2	033125 000001 0   0   770000000000 0            770000000000 
DBT3	033125 000001 0   0   007777777777 0            770000000000 
DBT4	033125 000001 0   0   0            0            770000000000 
DBT5	033125 000001 0   0   770000000000 0            770000000000 
ST0	033125 000001 0   0   770000000000 0            770000000000 
ST6	033125 000001 0   0   770000000000 0            770000000000 
ST6A	033125 000001 0   0   770000000000 0            770000000000 
ST9	033125 000001 0   0   770000000000 0            770000000000 


*033135 IDPB	11,000012
INITIAL
C(AC)=000000 000077 
C(E)=001400 000000   C(C(E))=005500 000000 
FINAL
C(AC)=000000 000077 
C(E)=301400 000001   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033135 033135 0   0   136440000012 0            007700000000 
IT1	033135 0      0   0   136440000012 0            007700000000 
AT3	033135 0      0   0   000000000012 0            136440000012 
AT6	033135 000012 0   0   000000000012 0            136440000012 
FT0	033135 000012 0   0   001400000000 0            136440000012 
FT1A	033135 000012 0   0   001400000000 0            001400000000 
FT9	033135 000012 0   0   001400000000 0            001400000000 
ET0	033135 000012 0   0   001400000000 0            001400000000 
BYT1	033135 000012 0   0   001400000000 0            001400000000 
BYT2	033135 000012 0   0   001400000001 0            001400000000 
BYT3	033135 000012 144 0   001400000001 0            001400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 128
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0390

BYT4	033135 000012 0   0   301400000001 0            001400000000 
BYT7	033135 000012 764 0   301400000001 0            001400000000 
SCT0	033135 000012 764 0   301400000001 0            001400000000 
SCT3	033135 000012 765 0   301400000001 000000000001 001400000000 
SCT3	033135 000012 766 0   301400000001 000000000003 001400000000 
SCT3	033135 000012 767 0   301400000001 000000000007 001400000000 
SCT3	033135 000012 0   0   301400000001 000000000017 001400000000 
SCT3	033135 000012 771 0   301400000001 000000000037 001400000000 
SCT3	033135 000012 772 0   301400000001 000000000077 001400000000 
SCT3	033135 000012 773 0   301400000001 000000000177 001400000000 
SCT3	033135 000012 774 0   301400000001 000000000377 001400000000 
SCT3	033135 000012 775 0   301400000001 000000000777 001400000000 
SCT3	033135 000012 776 0   301400000001 000000001777 001400000000 
SCT3	033135 000012 777 0   301400000001 000000003777 001400000000 
SCT3	033135 000012 0   0   301400000001 000000007777 001400000000 
SCT4	033135 000012 0   0   301400000001 000000007777 001400000000 
BYT7A	033135 000012 0   0   301400000001 000000007777 001400000000 
IT1	033135 0      0   0   301400000001 000000007777 001400000000 
AT3	033135 0      0   0   000000000001 000000007777 301400000001 
AT6	033135 000001 0   0   000000000001 000000007777 301400000001 
FT0	033135 000001 0   0   0            000000007777 301400000001 
FT1A	033135 000001 0   0   0            000000007777 0            
FT2	033135 000001 0   0   0            000000007777 0            
FT2RQ	033135 000001 0   0   000000000077 000000007777 0            
FT3	033135 000001 0   0   000000000077 000000007777 0            
FT9	033136 000001 0   0   000000000077 000000007777 0            
ET0	033136 000001 0   0   000000000077 000000007777 0            
SCT0	033136 000001 0   0   000000000077 000000007777 0            
SCT3	033136 000001 751 0   000000000176 000000017776 0            
SCT3	033136 000001 752 0   000000000374 000000037774 0            
SCT3	033136 000001 753 0   000000000770 000000077770 0            
SCT3	033136 000001 754 0   000000001760 000000177760 0            
SCT3	033136 000001 755 0   000000003740 000000377740 0            
SCT3	033136 000001 756 0   000000007700 000000777700 0            
SCT3	033136 000001 757 0   000000017600 000001777600 0            
SCT3	033136 000001 0   0   000000037400 000003777400 0            
SCT3	033136 000001 761 0   000000077000 000007777000 0            
SCT3	033136 000001 762 0   000000176000 000017776000 0            
SCT3	033136 000001 763 0   000000374000 000037774000 0            
SCT3	033136 000001 764 0   000000770000 000077770000 0            
SCT3	033136 000001 765 0   000001760000 000177760000 0            
SCT3	033136 000001 766 0   000003740000 000377740000 0            
SCT3	033136 000001 767 0   000007700000 000777700000 0            
SCT3	033136 000001 0   0   000017600000 001777600000 0            
SCT3	033136 000001 771 0   000037400000 003777400000 0            
SCT3	033136 000001 772 0   000077000000 007777000000 0            
SCT3	033136 000001 773 0   000176000000 017776000000 0            
SCT3	033136 000001 774 0   000374000000 037774000000 0            
SCT3	033136 000001 775 0   000770000000 077770000000 0            
SCT3	033136 000001 776 0   001760000000 177760000000 0            
SCT3	033136 000001 777 0   003740000000 377740000000 0            
SCT3	033136 000001 0   0   007700000000 777700000000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 129
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0391

SCT4	033136 000001 0   0   007700000000 777700000000 0            
DBT1	033136 000001 0   0   007700000000 777700000000 0            
DBT2	033136 000001 0   0   777700000000 0            007700000000 
DBT3	033136 000001 0   0   000077777777 0            007700000000 
DBT4	033136 000001 0   0   0            0            007700000000 
DBT5	033136 000001 0   0   007700000000 0            007700000000 
ST0	033136 000001 0   0   007700000000 0            007700000000 
ST6	033136 000001 0   0   007700000000 0            007700000000 
ST6A	033136 000001 0   0   007700000000 0            007700000000 
ST9	033136 000001 0   0   007700000000 0            007700000000 


*033146 IDPB	11,000012
INITIAL
C(AC)=000000 000077 
C(E)=002200 000000   C(C(E))=005500 000000 
FINAL
C(AC)=000000 000077 
C(E)=222200 000001   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033146 033146 0   0   136440000012 0            000077000000 
IT1	033146 0      0   0   136440000012 0            000077000000 
AT3	033146 0      0   0   000000000012 0            136440000012 
AT6	033146 000012 0   0   000000000012 0            136440000012 
FT0	033146 000012 0   0   002200000000 0            136440000012 
FT1A	033146 000012 0   0   002200000000 0            002200000000 
FT9	033146 000012 0   0   002200000000 0            002200000000 
ET0	033146 000012 0   0   002200000000 0            002200000000 
BYT1	033146 000012 0   0   002200000000 0            002200000000 
BYT2	033146 000012 0   0   002200000001 0            002200000000 
BYT3	033146 000012 144 0   002200000001 0            002200000000 
BYT4	033146 000012 0   0   222200000001 0            002200000000 
BYT7	033146 000012 756 0   222200000001 0            002200000000 
SCT0	033146 000012 756 0   222200000001 0            002200000000 
SCT3	033146 000012 757 0   222200000001 000000000001 002200000000 
SCT3	033146 000012 0   0   222200000001 000000000003 002200000000 
SCT3	033146 000012 761 0   222200000001 000000000007 002200000000 
SCT3	033146 000012 762 0   222200000001 000000000017 002200000000 
SCT3	033146 000012 763 0   222200000001 000000000037 002200000000 
SCT3	033146 000012 764 0   222200000001 000000000077 002200000000 
SCT3	033146 000012 765 0   222200000001 000000000177 002200000000 
SCT3	033146 000012 766 0   222200000001 000000000377 002200000000 
SCT3	033146 000012 767 0   222200000001 000000000777 002200000000 
SCT3	033146 000012 0   0   222200000001 000000001777 002200000000 
SCT3	033146 000012 771 0   222200000001 000000003777 002200000000 
SCT3	033146 000012 772 0   222200000001 000000007777 002200000000 
SCT3	033146 000012 773 0   222200000001 000000017777 002200000000 
SCT3	033146 000012 774 0   222200000001 000000037777 002200000000 
SCT3	033146 000012 775 0   222200000001 000000077777 002200000000 
SCT3	033146 000012 776 0   222200000001 000000177777 002200000000 
SCT3	033146 000012 777 0   222200000001 000000377777 002200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 130
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0392

SCT3	033146 000012 0   0   222200000001 000000777777 002200000000 
SCT4	033146 000012 0   0   222200000001 000000777777 002200000000 
BYT7A	033146 000012 022 0   222200000001 000000777777 002200000000 
IT1	033146 0      022 0   222200000001 000000777777 002200000000 
AT3	033146 0      022 0   000000000001 000000777777 222200000001 
AT6	033146 000001 022 0   000000000001 000000777777 222200000001 
FT0	033146 000001 022 0   0            000000777777 222200000001 
FT1A	033146 000001 022 0   0            000000777777 0            
FT2	033146 000001 022 0   0            000000777777 0            
FT2RQ	033146 000001 022 0   000000000077 000000777777 0            
FT3	033146 000001 022 0   000000000077 000000777777 0            
FT9	033147 000001 022 0   000000000077 000000777777 0            
ET0	033147 000001 756 0   000000000077 000000777777 0            
SCT0	033147 000001 756 0   000000000077 000000777777 0            
SCT3	033147 000001 757 0   000000000176 000001777776 0            
SCT3	033147 000001 0   0   000000000374 000003777774 0            
SCT3	033147 000001 761 0   000000000770 000007777770 0            
SCT3	033147 000001 762 0   000000001760 000017777760 0            
SCT3	033147 000001 763 0   000000003740 000037777740 0            
SCT3	033147 000001 764 0   000000007700 000077777700 0            
SCT3	033147 000001 765 0   000000017600 000177777600 0            
SCT3	033147 000001 766 0   000000037400 000377777400 0            
SCT3	033147 000001 767 0   000000077000 000777777000 0            
SCT3	033147 000001 0   0   000000176000 001777776000 0            
SCT3	033147 000001 771 0   000000374000 003777774000 0            
SCT3	033147 000001 772 0   000000770000 007777770000 0            
SCT3	033147 000001 773 0   000001760000 017777760000 0            
SCT3	033147 000001 774 0   000003740000 037777740000 0            
SCT3	033147 000001 775 0   000007700000 077777700000 0            
SCT3	033147 000001 776 0   000017600000 177777600000 0            
SCT3	033147 000001 777 0   000037400000 377777400000 0            
SCT3	033147 000001 0   0   000077000000 777777000000 0            
SCT4	033147 000001 0   0   000077000000 777777000000 0            
DBT1	033147 000001 0   0   000077000000 777777000000 0            
DBT2	033147 000001 0   0   777777000000 0            000077000000 
DBT3	033147 000001 0   0   000000777777 0            000077000000 
DBT4	033147 000001 0   0   0            0            000077000000 
DBT5	033147 000001 0   0   000077000000 0            000077000000 
ST0	033147 000001 0   0   000077000000 0            000077000000 
ST6	033147 000001 0   0   000077000000 0            000077000000 
ST6A	033147 000001 0   0   000077000000 0            000077000000 
ST9	033147 000001 0   0   000077000000 0            000077000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 131
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0393

*033157 IDPB	11,000012
INITIAL
C(AC)=000000 000077 
C(E)=003000 000000   C(C(E))=005500 000000 
FINAL
C(AC)=000000 000077 
C(E)=143000 000001   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033157 033157 0   0   136440000012 0            000000770000 
IT1	033157 0      0   0   136440000012 0            000000770000 
AT3	033157 0      0   0   000000000012 0            136440000012 
AT6	033157 000012 0   0   000000000012 0            136440000012 
FT0	033157 000012 0   0   003000000000 0            136440000012 
FT1A	033157 000012 0   0   003000000000 0            003000000000 
FT9	033157 000012 0   0   003000000000 0            003000000000 
ET0	033157 000012 0   0   003000000000 0            003000000000 
BYT1	033157 000012 0   0   003000000000 0            003000000000 
BYT2	033157 000012 0   0   003000000001 0            003000000000 
BYT3	033157 000012 144 0   003000000001 0            003000000000 
BYT4	033157 000012 0   0   143000000001 0            003000000000 
BYT7	033157 000012 0   0   143000000001 0            003000000000 
SCT0	033157 000012 0   0   143000000001 0            003000000000 
SCT3	033157 000012 751 0   143000000001 000000000001 003000000000 
SCT3	033157 000012 752 0   143000000001 000000000003 003000000000 
SCT3	033157 000012 753 0   143000000001 000000000007 003000000000 
SCT3	033157 000012 754 0   143000000001 000000000017 003000000000 
SCT3	033157 000012 755 0   143000000001 000000000037 003000000000 
SCT3	033157 000012 756 0   143000000001 000000000077 003000000000 
SCT3	033157 000012 757 0   143000000001 000000000177 003000000000 
SCT3	033157 000012 0   0   143000000001 000000000377 003000000000 
SCT3	033157 000012 761 0   143000000001 000000000777 003000000000 
SCT3	033157 000012 762 0   143000000001 000000001777 003000000000 
SCT3	033157 000012 763 0   143000000001 000000003777 003000000000 
SCT3	033157 000012 764 0   143000000001 000000007777 003000000000 
SCT3	033157 000012 765 0   143000000001 000000017777 003000000000 
SCT3	033157 000012 766 0   143000000001 000000037777 003000000000 
SCT3	033157 000012 767 0   143000000001 000000077777 003000000000 
SCT3	033157 000012 0   0   143000000001 000000177777 003000000000 
SCT3	033157 000012 771 0   143000000001 000000377777 003000000000 
SCT3	033157 000012 772 0   143000000001 000000777777 003000000000 
SCT3	033157 000012 773 0   143000000001 000001777777 003000000000 
SCT3	033157 000012 774 0   143000000001 000003777777 003000000000 
SCT3	033157 000012 775 0   143000000001 000007777777 003000000000 
SCT3	033157 000012 776 0   143000000001 000017777777 003000000000 
SCT3	033157 000012 777 0   143000000001 000037777777 003000000000 
SCT3	033157 000012 0   0   143000000001 000077777777 003000000000 
SCT4	033157 000012 0   0   143000000001 000077777777 003000000000 
BYT7A	033157 000012 014 0   143000000001 000077777777 003000000000 
IT1	033157 0      014 0   143000000001 000077777777 003000000000 
AT3	033157 0      014 0   000000000001 000077777777 143000000001 
AT6	033157 000001 014 0   000000000001 000077777777 143000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 132
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0394

FT0	033157 000001 014 0   0            000077777777 143000000001 
FT1A	033157 000001 014 0   0            000077777777 0            
FT2	033157 000001 014 0   0            000077777777 0            
FT2RQ	033157 000001 014 0   000000000077 000077777777 0            
FT3	033157 000001 014 0   000000000077 000077777777 0            
FT9	033160 000001 014 0   000000000077 000077777777 0            
ET0	033160 000001 764 0   000000000077 000077777777 0            
SCT0	033160 000001 764 0   000000000077 000077777777 0            
SCT3	033160 000001 765 0   000000000176 000177777776 0            
SCT3	033160 000001 766 0   000000000374 000377777774 0            
SCT3	033160 000001 767 0   000000000770 000777777770 0            
SCT3	033160 000001 0   0   000000001760 001777777760 0            
SCT3	033160 000001 771 0   000000003740 003777777740 0            
SCT3	033160 000001 772 0   000000007700 007777777700 0            
SCT3	033160 000001 773 0   000000017600 017777777600 0            
SCT3	033160 000001 774 0   000000037400 037777777400 0            
SCT3	033160 000001 775 0   000000077000 077777777000 0            
SCT3	033160 000001 776 0   000000176000 177777776000 0            
SCT3	033160 000001 777 0   000000374000 377777774000 0            
SCT3	033160 000001 0   0   000000770000 777777770000 0            
SCT4	033160 000001 0   0   000000770000 777777770000 0            
DBT1	033160 000001 0   0   000000770000 777777770000 0            
DBT2	033160 000001 0   0   777777770000 0            000000770000 
DBT3	033160 000001 0   0   000000007777 0            000000770000 
DBT4	033160 000001 0   0   0            0            000000770000 
DBT5	033160 000001 0   0   000000770000 0            000000770000 
ST0	033160 000001 0   0   000000770000 0            000000770000 
ST6	033160 000001 0   0   000000770000 0            000000770000 
ST6A	033160 000001 0   0   000000770000 0            000000770000 
ST9	033160 000001 0   0   000000770000 0            000000770000 


*033170 IDPB	11,000012
INITIAL
C(AC)=000000 000077 
C(E)=003600 000000   C(C(E))=005500 000000 
FINAL
C(AC)=000000 000077 
C(E)=063600 000001   C(C(E))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033170 033170 0   0   136440000012 0            000000007700 
IT1	033170 0      0   0   136440000012 0            000000007700 
AT3	033170 0      0   0   000000000012 0            136440000012 
AT6	033170 000012 0   0   000000000012 0            136440000012 
FT0	033170 000012 0   0   003600000000 0            136440000012 
FT1A	033170 000012 0   0   003600000000 0            003600000000 
FT9	033170 000012 0   0   003600000000 0            003600000000 
ET0	033170 000012 0   0   003600000000 0            003600000000 
BYT1	033170 000012 0   0   003600000000 0            003600000000 
BYT2	033170 000012 0   0   003600000001 0            003600000000 
BYT3	033170 000012 144 0   003600000001 0            003600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 133
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0395

BYT4	033170 000012 0   0   063600000001 0            003600000000 
BYT7	033170 000012 742 0   063600000001 0            003600000000 
SCT0	033170 000012 742 0   063600000001 0            003600000000 
SCT3	033170 000012 743 0   063600000001 000000000001 003600000000 
SCT3	033170 000012 744 0   063600000001 000000000003 003600000000 
SCT3	033170 000012 745 0   063600000001 000000000007 003600000000 
SCT3	033170 000012 746 0   063600000001 000000000017 003600000000 
SCT3	033170 000012 747 0   063600000001 000000000037 003600000000 
SCT3	033170 000012 0   0   063600000001 000000000077 003600000000 
SCT3	033170 000012 751 0   063600000001 000000000177 003600000000 
SCT3	033170 000012 752 0   063600000001 000000000377 003600000000 
SCT3	033170 000012 753 0   063600000001 000000000777 003600000000 
SCT3	033170 000012 754 0   063600000001 000000001777 003600000000 
SCT3	033170 000012 755 0   063600000001 000000003777 003600000000 
SCT3	033170 000012 756 0   063600000001 000000007777 003600000000 
SCT3	033170 000012 757 0   063600000001 000000017777 003600000000 
SCT3	033170 000012 0   0   063600000001 000000037777 003600000000 
SCT3	033170 000012 761 0   063600000001 000000077777 003600000000 
SCT3	033170 000012 762 0   063600000001 000000177777 003600000000 
SCT3	033170 000012 763 0   063600000001 000000377777 003600000000 
SCT3	033170 000012 764 0   063600000001 000000777777 003600000000 
SCT3	033170 000012 765 0   063600000001 000001777777 003600000000 
SCT3	033170 000012 766 0   063600000001 000003777777 003600000000 
SCT3	033170 000012 767 0   063600000001 000007777777 003600000000 
SCT3	033170 000012 0   0   063600000001 000017777777 003600000000 
SCT3	033170 000012 771 0   063600000001 000037777777 003600000000 
SCT3	033170 000012 772 0   063600000001 000077777777 003600000000 
SCT3	033170 000012 773 0   063600000001 000177777777 003600000000 
SCT3	033170 000012 774 0   063600000001 000377777777 003600000000 
SCT3	033170 000012 775 0   063600000001 000777777777 003600000000 
SCT3	033170 000012 776 0   063600000001 001777777777 003600000000 
SCT3	033170 000012 777 0   063600000001 003777777777 003600000000 
SCT3	033170 000012 0   0   063600000001 007777777777 003600000000 
SCT4	033170 000012 0   0   063600000001 007777777777 003600000000 
BYT7A	033170 000012 006 0   063600000001 007777777777 003600000000 
IT1	033170 0      006 0   063600000001 007777777777 003600000000 
AT3	033170 0      006 0   000000000001 007777777777 063600000001 
AT6	033170 000001 006 0   000000000001 007777777777 063600000001 
FT0	033170 000001 006 0   0            007777777777 063600000001 
FT1A	033170 000001 006 0   0            007777777777 0            
FT2	033170 000001 006 0   0            007777777777 0            
FT2RQ	033170 000001 006 0   000000000077 007777777777 0            
FT3	033170 000001 006 0   000000000077 007777777777 0            
FT9	033171 000001 006 0   000000000077 007777777777 0            
ET0	033171 000001 772 0   000000000077 007777777777 0            
SCT0	033171 000001 772 0   000000000077 007777777777 0            
SCT3	033171 000001 773 0   000000000176 017777777776 0            
SCT3	033171 000001 774 0   000000000374 037777777774 0            
SCT3	033171 000001 775 0   000000000770 077777777770 0            
SCT3	033171 000001 776 0   000000001760 177777777760 0            
SCT3	033171 000001 777 0   000000003740 377777777740 0            
SCT3	033171 000001 0   0   000000007700 777777777700 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 134
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0396

SCT4	033171 000001 0   0   000000007700 777777777700 0            
DBT1	033171 000001 0   0   000000007700 777777777700 0            
DBT2	033171 000001 0   0   777777777700 0            000000007700 
DBT3	033171 000001 0   0   000000000077 0            000000007700 
DBT4	033171 000001 0   0   0            0            000000007700 
DBT5	033171 000001 0   0   000000007700 0            000000007700 
ST0	033171 000001 0   0   000000007700 0            000000007700 
ST6	033171 000001 0   0   000000007700 0            000000007700 
ST6A	033171 000001 0   0   000000007700 0            000000007700 
ST9	033171 000001 0   0   000000007700 0            000000007700 


*033206 IDPB	10,000011
INITIAL
C(AC)=000000 000055 
C(E)=440600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 
C(E)=360600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033206 033206 0   0   136400000011 0            550000000000 
IT1	033206 0      0   0   136400000011 0            550000000000 
AT3	033206 0      0   0   000000000011 0            136400000011 
AT6	033206 000011 0   0   000000000011 0            136400000011 
FT0	033206 000011 0   0   440600000000 0            136400000011 
FT1A	033206 000011 0   0   440600000000 0            440600000000 
FT9	033206 000011 0   0   440600000000 0            440600000000 
ET0	033206 000011 0   0   440600000000 0            440600000000 
BYT1	033206 000011 044 0   440600000000 0            440600000000 
BYT4	033206 000011 0   0   360600000000 0            440600000000 
BYT7	033206 000011 772 0   360600000000 0            440600000000 
SCT0	033206 000011 772 0   360600000000 0            440600000000 
SCT3	033206 000011 773 0   360600000000 000000000001 440600000000 
SCT3	033206 000011 774 0   360600000000 000000000003 440600000000 
SCT3	033206 000011 775 0   360600000000 000000000007 440600000000 
SCT3	033206 000011 776 0   360600000000 000000000017 440600000000 
SCT3	033206 000011 777 0   360600000000 000000000037 440600000000 
SCT3	033206 000011 0   0   360600000000 000000000077 440600000000 
SCT4	033206 000011 0   0   360600000000 000000000077 440600000000 
BYT7A	033206 000011 036 0   360600000000 000000000077 440600000000 
IT1	033206 0      036 0   360600000000 000000000077 440600000000 
AT3	033206 0      036 0   0            000000000077 360600000000 
AT6	033206 0      036 0   0            000000000077 360600000000 
FT0	033206 0      036 0   777777777777 000000000077 360600000000 
FT1A	033206 0      036 0   777777777777 000000000077 777777777777 
FT2	033206 0      036 0   0            000000000077 777777777777 
FT2RQ	033206 0      036 0   000000000055 000000000077 777777777777 
FT3	033206 0      036 0   000000000055 000000000077 777777777777 
FT9	033207 0      036 0   000000000055 000000000077 777777777777 
ET0	033207 0      742 0   000000000055 000000000077 777777777777 
SCT0	033207 0      742 0   000000000055 000000000077 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 135
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0397

SCT3	033207 0      743 0   000000000132 000000000176 777777777777 
SCT3	033207 0      744 0   000000000264 000000000374 777777777777 
SCT3	033207 0      745 0   000000000550 000000000770 777777777777 
SCT3	033207 0      746 0   000000001320 000000001760 777777777777 
SCT3	033207 0      747 0   000000002640 000000003740 777777777777 
SCT3	033207 0      0   0   000000005500 000000007700 777777777777 
SCT3	033207 0      751 0   000000013200 000000017600 777777777777 
SCT3	033207 0      752 0   000000026400 000000037400 777777777777 
SCT3	033207 0      753 0   000000055000 000000077000 777777777777 
SCT3	033207 0      754 0   000000132000 000000176000 777777777777 
SCT3	033207 0      755 0   000000264000 000000374000 777777777777 
SCT3	033207 0      756 0   000000550000 000000770000 777777777777 
SCT3	033207 0      757 0   000001320000 000001760000 777777777777 
SCT3	033207 0      0   0   000002640000 000003740000 777777777777 
SCT3	033207 0      761 0   000005500000 000007700000 777777777777 
SCT3	033207 0      762 0   000013200000 000017600000 777777777777 
SCT3	033207 0      763 0   000026400000 000037400000 777777777777 
SCT3	033207 0      764 0   000055000000 000077000000 777777777777 
SCT3	033207 0      765 0   000132000000 000176000000 777777777777 
SCT3	033207 0      766 0   000264000000 000374000000 777777777777 
SCT3	033207 0      767 0   000550000000 000770000000 777777777777 
SCT3	033207 0      0   0   001320000000 001760000000 777777777777 
SCT3	033207 0      771 0   002640000000 003740000000 777777777777 
SCT3	033207 0      772 0   005500000000 007700000000 777777777777 
SCT3	033207 0      773 0   013200000000 017600000000 777777777777 
SCT3	033207 0      774 0   026400000000 037400000000 777777777777 
SCT3	033207 0      775 0   055000000000 077000000000 777777777777 
SCT3	033207 0      776 0   132000000000 176000000000 777777777777 
SCT3	033207 0      777 0   264000000000 374000000000 777777777777 
SCT3	033207 0      0   0   550000000000 770000000000 777777777777 
SCT4	033207 0      0   0   550000000000 770000000000 777777777777 
DBT1	033207 0      0   0   550000000000 770000000000 777777777777 
DBT2	033207 0      0   0   770000000000 777777777777 550000000000 
DBT3	033207 0      0   0   007777777777 777777777777 550000000000 
DBT4	033207 0      0   0   007777777777 777777777777 550000000000 
DBT5	033207 0      0   0   557777777777 777777777777 550000000000 
ST0	033207 0      0   0   557777777777 777777777777 550000000000 
ST6	033207 0      0   0   557777777777 777777777777 550000000000 
ST6A	033207 0      0   0   557777777777 777777777777 550000000000 
ST9	033207 0      0   0   557777777777 777777777777 550000000000 


*033217 IDPB	10,000011
INITIAL
C(AC)=000000 000055 
C(E)=360600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033217 033217 0   0   136400000011 0            005500000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 136
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0398

IT1	033217 0      0   0   136400000011 0            005500000000 
AT3	033217 0      0   0   000000000011 0            136400000011 
AT6	033217 000011 0   0   000000000011 0            136400000011 
FT0	033217 000011 0   0   360600000000 0            136400000011 
FT1A	033217 000011 0   0   360600000000 0            360600000000 
FT9	033217 000011 0   0   360600000000 0            360600000000 
ET0	033217 000011 0   0   360600000000 0            360600000000 
BYT1	033217 000011 036 0   360600000000 0            360600000000 
BYT4	033217 000011 0   0   300600000000 0            360600000000 
BYT7	033217 000011 772 0   300600000000 0            360600000000 
SCT0	033217 000011 772 0   300600000000 0            360600000000 
SCT3	033217 000011 773 0   300600000000 000000000001 360600000000 
SCT3	033217 000011 774 0   300600000000 000000000003 360600000000 
SCT3	033217 000011 775 0   300600000000 000000000007 360600000000 
SCT3	033217 000011 776 0   300600000000 000000000017 360600000000 
SCT3	033217 000011 777 0   300600000000 000000000037 360600000000 
SCT3	033217 000011 0   0   300600000000 000000000077 360600000000 
SCT4	033217 000011 0   0   300600000000 000000000077 360600000000 
BYT7A	033217 000011 0   0   300600000000 000000000077 360600000000 
IT1	033217 0      0   0   300600000000 000000000077 360600000000 
AT3	033217 0      0   0   0            000000000077 300600000000 
AT6	033217 0      0   0   0            000000000077 300600000000 
FT0	033217 0      0   0   777777777777 000000000077 300600000000 
FT1A	033217 0      0   0   777777777777 000000000077 777777777777 
FT2	033217 0      0   0   0            000000000077 777777777777 
FT2RQ	033217 0      0   0   000000000055 000000000077 777777777777 
FT3	033217 0      0   0   000000000055 000000000077 777777777777 
FT9	033220 0      0   0   000000000055 000000000077 777777777777 
ET0	033220 0      0   0   000000000055 000000000077 777777777777 
SCT0	033220 0      0   0   000000000055 000000000077 777777777777 
SCT3	033220 0      751 0   000000000132 000000000176 777777777777 
SCT3	033220 0      752 0   000000000264 000000000374 777777777777 
SCT3	033220 0      753 0   000000000550 000000000770 777777777777 
SCT3	033220 0      754 0   000000001320 000000001760 777777777777 
SCT3	033220 0      755 0   000000002640 000000003740 777777777777 
SCT3	033220 0      756 0   000000005500 000000007700 777777777777 
SCT3	033220 0      757 0   000000013200 000000017600 777777777777 
SCT3	033220 0      0   0   000000026400 000000037400 777777777777 
SCT3	033220 0      761 0   000000055000 000000077000 777777777777 
SCT3	033220 0      762 0   000000132000 000000176000 777777777777 
SCT3	033220 0      763 0   000000264000 000000374000 777777777777 
SCT3	033220 0      764 0   000000550000 000000770000 777777777777 
SCT3	033220 0      765 0   000001320000 000001760000 777777777777 
SCT3	033220 0      766 0   000002640000 000003740000 777777777777 
SCT3	033220 0      767 0   000005500000 000007700000 777777777777 
SCT3	033220 0      0   0   000013200000 000017600000 777777777777 
SCT3	033220 0      771 0   000026400000 000037400000 777777777777 
SCT3	033220 0      772 0   000055000000 000077000000 777777777777 
SCT3	033220 0      773 0   000132000000 000176000000 777777777777 
SCT3	033220 0      774 0   000264000000 000374000000 777777777777 
SCT3	033220 0      775 0   000550000000 000770000000 777777777777 
SCT3	033220 0      776 0   001320000000 001760000000 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 137
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0399

SCT3	033220 0      777 0   002640000000 003740000000 777777777777 
SCT3	033220 0      0   0   005500000000 007700000000 777777777777 
SCT4	033220 0      0   0   005500000000 007700000000 777777777777 
DBT1	033220 0      0   0   005500000000 007700000000 777777777777 
DBT2	033220 0      0   0   007700000000 777777777777 005500000000 
DBT3	033220 0      0   0   770077777777 777777777777 005500000000 
DBT4	033220 0      0   0   770077777777 777777777777 005500000000 
DBT5	033220 0      0   0   775577777777 777777777777 005500000000 
ST0	033220 0      0   0   775577777777 777777777777 005500000000 
ST6	033220 0      0   0   775577777777 777777777777 005500000000 
ST6A	033220 0      0   0   775577777777 777777777777 005500000000 
ST9	033220 0      0   0   775577777777 777777777777 005500000000 


*033230 IDPB	10,000011
INITIAL
C(AC)=000000 000055 
C(E)=300600 000000   C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 
C(E)=220600 000000   C(C(E))=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033230 033230 0   0   136400000011 0            000055000000 
IT1	033230 0      0   0   136400000011 0            000055000000 
AT3	033230 0      0   0   000000000011 0            136400000011 
AT6	033230 000011 0   0   000000000011 0            136400000011 
FT0	033230 000011 0   0   300600000000 0            136400000011 
FT1A	033230 000011 0   0   300600000000 0            300600000000 
FT9	033230 000011 0   0   300600000000 0            300600000000 
ET0	033230 000011 0   0   300600000000 0            300600000000 
BYT1	033230 000011 0   0   300600000000 0            300600000000 
BYT4	033230 000011 0   0   220600000000 0            300600000000 
BYT7	033230 000011 772 0   220600000000 0            300600000000 
SCT0	033230 000011 772 0   220600000000 0            300600000000 
SCT3	033230 000011 773 0   220600000000 000000000001 300600000000 
SCT3	033230 000011 774 0   220600000000 000000000003 300600000000 
SCT3	033230 000011 775 0   220600000000 000000000007 300600000000 
SCT3	033230 000011 776 0   220600000000 000000000017 300600000000 
SCT3	033230 000011 777 0   220600000000 000000000037 300600000000 
SCT3	033230 000011 0   0   220600000000 000000000077 300600000000 
SCT4	033230 000011 0   0   220600000000 000000000077 300600000000 
BYT7A	033230 000011 022 0   220600000000 000000000077 300600000000 
IT1	033230 0      022 0   220600000000 000000000077 300600000000 
AT3	033230 0      022 0   0            000000000077 220600000000 
AT6	033230 0      022 0   0            000000000077 220600000000 
FT0	033230 0      022 0   777777777777 000000000077 220600000000 
FT1A	033230 0      022 0   777777777777 000000000077 777777777777 
FT2	033230 0      022 0   0            000000000077 777777777777 
FT2RQ	033230 0      022 0   000000000055 000000000077 777777777777 
FT3	033230 0      022 0   000000000055 000000000077 777777777777 
FT9	033231 0      022 0   000000000055 000000000077 777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 138
DAKAM	000000 000000  770000 000000  130000 000000  030000  777777                                                        SEQ 0400

ET0	033231 0      756 0   000000000055 000000000077 777777777777 
SCT0	033231 0      756 0   000000000055 000000000077 777777777777 
SCT3	033231 0      757 0   000000000132 00000000