Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAM

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

	FUNCTION:	BYTE, BLT, JFFO

	VERSION:	0.2

	DATE RELEASED:	AUGUST,1976

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

COPYRIGHT(C) 1976
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-DBKAM.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-DBKAM.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

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

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER (KI10)
	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-DBKAM.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-DBKAM.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-DBKAM.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-DBKAM.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-DBKAM.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 'DBKAM.PNT'

	    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-DBKAM.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-DBKAM
                                                                                                                           SEQ 0010
************************************************************************

PRODUCT CODE:		MAINDEC-10-DBKAM

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #13

DATE RELEASED:		AUGUST,1976

VERSION:		0.2

UPDATE AUTHOR:		EDWARD G. PRENTICE

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

************************************************************************
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1
DBKAMT	MAC	30-JUL-76 12:39		DIAGNOSTIC PARAMETERS                                                              SEQ 0011

     1					;DBKAM
     2
     3			000000			MCNVER==0
     4			000002			DECVER==2
     5
     6
     7						XLIST
     8						LIST
     9						LALL
    10
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2
    14					^
    15
    16					;(BYTE, BLOCK TRANSFER, JFFO AND OTHER BASIC MISCELLANEOUS INSTRUCTIONS)
    17
    18					;COPYRIGHT 1975
    19					;DIGITAL EQUIPMENT CORPORATION
    20					;MARLBORO, MASS. 01752
    21
    22					;JOHN R. KIRCHOFF
    23
    24	000137					LOC	137
    25	000137	000000	000002			MCNVER,,DECVER
    26
    27						NOSYM
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 2
DBKAMT	MAC	30-JUL-76 12:39		DIAGNOSTIC PARAMETERS                                                              SEQ 0012

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

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

    98					;SPECIAL INSTRUCTIONS TO ASSEMBLER
    99
   100					IF1,<BYTBLK=14773>	;BYTBLK BEYOND AC RANGE FOR PASS 1
   101					IF1,<BLTBLK=15000>	;BLTBLK BEYOND AC RANGE FOR PASS 1
   102
   103					;MACROS
   104
   105					DEFINE	GMOV	(X1,DATA),<
   106						IFLE	<X1-20>,<
   107						MOVE	X1,[DATA]	;PRELOAD X1 WITH DATA>
   108						IFG	<X1-20>,<
   109						MOVE	AC+1,[DATA]
   110						MOVEM	AC+1,X1		;PRELOAD X1 WITH DATA>>
   111
   112					DEFINE	GCAM	(X1,DATA),<
   113					SN=SN+1
   114						IFG	<X1-20>,<
   115						MOVE	AC-1,X1
   116						CAME	AC-1,[DATA]	;IS C(X1) = DATA
   117						IFIDN	<DEST>,<X1>,<
   118						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
   119						IFDIF	<DEST>,<X1>,<
   120						ER2	AC-1,SN		;C(X1) WAS CLOBBERED>>
   121						IFLE	<X1-20>,<
   122						CAME	X1,[DATA]	;IS C(X1) = DATA
   123						IFIDN	<DEST>,<X1>,<
   124						ER2	X1,SN		;DEST NOT LOADED CORRECTLY>
   125						IFDIF	<DEST>,<X1>,<
   126						ER2	X1,SN		;C(X1) WAS CLOBBERED>>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 5
DBKAMT	MAC	30-JUL-76 12:39		DIAGNOSTIC PARAMETERS                                                              SEQ 0015

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

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

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

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

   263					;*TERMINAL OUTPUT UUO'S.
   264
   265		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   266		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   267		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   268		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   269		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   270		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   271		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   272		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   273		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   274		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   275		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   276		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   277		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   278		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   279		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   280		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   281		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   282		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   283		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   284		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   285		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   286		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   287		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   288		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   289		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   290		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   291		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   292		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   293		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   294		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   295		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   296		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   297		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   298		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   299		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   300		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   301		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   302		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   303		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   304		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   305		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   306		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 5
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0020

   307		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   308		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   309		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   310		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   311		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   312		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   313		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   314		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   315		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   316		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   317		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   318		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   319		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   320
   321		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   322
   323					DEFINE	PMSG	(ARG),<
   324						PSIXM	[SIXBIT\ARG'_\]>
   325
   326					DEFINE	PMSGF	(ARG),<
   327						PSIXMF	[SIXBIT\ARG'_\]>
   328
   329					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   330					;*	CONSERVES CORE OVER ASCIZ
   331
   332					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   333
   334					;*CONSOLE SWITCH INPUT UUO.
   335					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   336					;* USER MODE.
   337
   338		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   339
   340					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   341					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   342
   343		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   344		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   345
   346					;*KL10 ONLY CACHE OPERATION UUO'S
   347
   348		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   349		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   350		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 6
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0021

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

   394					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976
   395
   396	030000					LOC	30000
   397
   398					S^;*********************************************************************^
   399					;*PROGRAM STARTING ADDRESSES
   400					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   401					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   402					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   403					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   404					S^;*********************************************************************^
   405
   406	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   407	030001	254 00 0 00 030616 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   408
   409	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   410
   411	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   412
   413	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   414
   415	030005	254 00 0 00 030000 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   416
   417	030006	254 00 0 00 030000 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   418
   419	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   420	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   421
   422	030010	254 00 0 00 030621 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   423	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   424	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   425
   426	030013	254000	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   427	030014	254000	030000		START2:	SADR8			; "
   428	030015	254000	030000		START3:	SADR9			; "
   429	030016	254000	030000		START4:	SADR10			; "
   430	030017	254000	030000		START5:	SADR11			; "
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 2
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0023

   431					S^;*********************************************************************^
   432					;*PROGRAM FIXED PARAMETER AREA
   433					S^;*********************************************************************^
   434
   435	030020	444253	415500		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   436	030021	605664	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   437	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   438	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   439	030024	000000	001000		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   440	030025	000000	030602		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   441	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   442	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   443	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   444	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   445	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   446	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   447	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   448	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   449	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   450
   451					S^;*********************************************************************^
   452					;*PROGRAM VARIABLE PARAMETER AREA
   453					S^;*********************************************************************^
   454
   455	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   456	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   457	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   458	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   459	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   460	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   461	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   462	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   463	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   464	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   465	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   466	030052	000000	000000		ERRPC:	0		;ERROR PC
   467	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   468	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   469	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   470	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 3
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0024

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

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

   575					S^;*********************************************************************^
   576					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   577					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   578					;*	MOVEI	NAME
   579					;*	PNTA		;OR PNTAF
   580					S^;*********************************************************************^
   581
   582	030242				CRLF:	ASCII/
   583	030242	015 012 000 000 000 	/
   584	030243				CRLF2:	ASCII/
   585
   586	030243	015 012 015 012 000 	/
   587	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   588	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   589	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   590	030247	011 000 000 000 000 	TAB:	ASCII/	/
   591	030250				MINUS:
   592	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   593	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   594	030252	052 000 000 000 000 	AST:	ASCII/*/
   595	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   596	030254	050 000 000 000 000 	LFP:	ASCII/(/
   597	030255	051 000 000 000 000 	RTP:	ASCII/)/
   598	030256	007 0000000000 		BELL:	BYTE (7) 007
   599	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   600	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   601	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   602	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   603	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   604	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   605
   606					S^;*********************************************************************^
   607					;*USER MODE OUTPUT FILE INFORMATION
   608					S^;*********************************************************************^
   609
   610	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   611	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   612	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   613	030272					BLOCK	2
   614
   615					S^;*********************************************************************^
   616					;*DISK UPDATE MODE FILE INFORMATION
   617					S^;*********************************************************************^
   618
   619	030274				$IBUF:	BLOCK	3
   620	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   621	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   622	030301					BLOCK	2
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 6
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0027

   623					S^;*********************************************************************^
   624					;*PUSHDOWN LIST CONTROL INFORMATION
   625					S^;*********************************************************************^
   626
   627	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   628	030304				PLISTS:	BLOCK	200
   629	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   630
   631					S^;*********************************************************************^
   632					;*POWER LINE CLOCK FREQUENCY FLAG
   633					S^;*********************************************************************^
   634
   635	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   636
   637					S^;*********************************************************************^
   638					;*KL10 CACHE CONTROL FLAGS
   639					S^;*********************************************************************^
   640
   641	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   642	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   643
   644					S^;*********************************************************************^
   645					;*NUMBER INPUT DIGIT FLAG
   646					S^;*********************************************************************^
   647
   648	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   649
   650					S^;*********************************************************************^
   651					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   652					S^;*********************************************************************^
   653
   654	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   655
   656					S^;*********************************************************************^
   657					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   658					S^;*********************************************************************^
   659
   660	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   661	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   662	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   663
   664					S^;*********************************************************************^
   665					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   666					S^;*********************************************************************^
   667
   668	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 7
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0028

   669					S^;*********************************************************************^
   670					;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
   671					S^;*********************************************************************^
   672
   673	030516	000000	000000		KLTYP:	0
   674
   675					S^;*********************************************************************^
   676					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   677					S^;*********************************************************************^
   678
   679	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   680
   681					S^;*********************************************************************^
   682					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   683					S^;*********************************************************************^
   684
   685	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   686
   687					S^;*********************************************************************^
   688					;*"SWITCH" CALL USAGE CONTROL
   689					S^;*********************************************************************^
   690
   691	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   692
   693					S^;*********************************************************************^
   694					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   695					S^;*********************************************************************^
   696
   697	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   698	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   699
   700					S^;*********************************************************************^
   701					;*SPECIAL FUTURE EXPANSION ROOM
   702					;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
   703					;*THIS BLOCK STATEMENT ACCORDINGLY.  THIS MUST BE DONE
   704					;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
   705					S^;*********************************************************************^
   706
   707	030524					BLOCK	53	;HOPEFULLY THIS IS ENOUGH FOREVER
   708
   709					S^;*********************************************************************^
   710					;*END OF FIXED STORAGE
   711					S^;*********************************************************************^
   712
   713			030577			$ENDFX=<PLISTE+100>&<777700>-1
   714	030577					LOC	$ENDFX
   715	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1
DBKAMM	MAC	16-JUN-76 14:38		DIAGNOSTIC SECTION                                                                 SEQ 0029

   716					SUBTTL	DIAGNOSTIC SECTION
   717
   718	030600	037 05 0 00 000002 	EXIT:	DROPDV		;CLOSE LOGICAL OUTPUT FILE
   719	030601	000000	030600			EXIT
   720
   721	030602				PGMNAM:	ASCIZ/
   722	030602	015 012 120 104 120 	PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) [DBKAM]
   723	030603	055 061 060 040 040 
   724	030604	113 111 061 060 040 
   725	030605	102 101 123 111 103 
   726	030606	040 111 116 123 124 
   727	030607	122 125 103 124 111 
   728	030610	117 116 040 104 111 
   729	030611	101 107 116 117 123 
   730	030612	124 111 103 040 050 
   731	030613	061 063 051 040 133 
   732	030614	104 102 113 101 115 
   733	030615	135 015 012 000 000 	/
   734
   735					;INITIALIZE SUBROUTINES
   736
   737	030616	265 00 0 00 030011 	START:	PGMINT
   738	030617	200 00 0 00 040735 		MOVE	[ASCIZ/AM/]
   739	030620	202 00 0 00 040651 		MOVEM	TLET		;INITIALIZE TEST LETTER
   740
   741	030621	254 00 0 00 030622 	STARTA:	JRST	G00		;GO PERFORM DIAGNOSTIC
   742
   743					;	GENERAL DESCRIPTION
   744					;PART   IA   -BTYE LOGIC TESTS
   745					;PART   IB   -GENERAL BYTE TEST
   746					;PART	II   -GENERAL BLOCK TRANSFER TEST
   747					;PART	III   -GENERAL JFFO TEST
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 2
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0030

   748					SUBTTL	PART IA - BYTE MANIPULATION
   749
   750
   751					;PART IA - BYTE LOGIC TESTS
   752					;INST-IBP
   753					;TEST ABILITY TO FCE PSE AND DECODE
   754					;PFIELD=14
   755					;SFIELD=6
   756					;BYTEWORD=0,-1
   757					;DESTAC=0
   758					;AN ERROR WILL OCCUR IF AC DIFFERS FROM 0
   759					;FOLLOWING IBP
   760
   761			000005		G00:	AC=5
   762						SAVEAC	(1,1)^
   763	030622	201 07 0 00 030622 		MOVEI	AC+2,.		;SAVE TEST PC
   764	030623	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
   765	030624	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   766	030625	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   767
   768	030626	205 06 0 00 140600 	G100:	MOVSI	AC+1,140600	;SETUP PNTR WORD
   769	030627	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD
   770	030630	400 05 0 00 000000 		SETZ	AC,		;SETUP DEST AC
   771	030631	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC PNTR WORD
   772	030632	332 00 0 00 000005 		SKIPE	AC&17		;TEST AC DIFFERS FROM 0
   773	030633	003 05 0 00 000101 		ER3	AC,101		;FCE PSE FAILED
   774	030634	321 07 0 00 030626 		JUMPL	AC+2,G100	;LOOP ON ERROR SWITCH
   775
   776					;INST-IBP
   777					;TEST ABILITY TO INCREMENT BYTE PNTR
   778					;WITHOUT AFFECTING BYTE WORD
   779					;PFIELD=14
   780					;SFIELD=6
   781					;BYTE ADDRESS=AC0
   782					;AN ERROR WILL OCCUR IF C(AC0) DIFFERS
   783					;FROM ORIGINAL FOLLOWING IBP
   784
   785			000014			AC=14
   786						SAVEAC	(1,1)^
   787	030635	201 16 0 00 030635 		MOVEI	AC+2,.		;SAVE TEST PC
   788	030636	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
   789	030637	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   790	030640	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   791
   792	030641	474 12 0 00 000000 	G200:	SETO	AC-2,		;SETUP FOR COMPARISON
   793	030642	205 15 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
   794	030643	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
   795	030644	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
   796	030645	312 00 0 00 000012 		CAME	,<AC-2>&17	;TEST BYTE WORD
   797	030646	012 00 0 00 000201 		ER12	,201		;BYTE WORD FAILED
   798	030647	321 16 0 00 030641 		JUMPL	AC+2,G200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 3
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0031

   799					;INST-IBP
   800					;PFIELD=22
   801					;SFIELD=6
   802					;AN ERROR WILL OCCUR IF POINTER IS NOT INCREMENTED
   803
   804			000013			AC=13
   805						SAVEAC	(1,1)^
   806	030650	201 15 0 00 030650 		MOVEI	AC+2,.		;SAVE TEST PC
   807	030651	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
   808	030652	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   809	030653	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   810
   811	030654	205 11 0 00 060600 	G300:	MOVSI	AC-2,060600	;SETUP FOR COMPARISON
   812	030655	205 14 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
   813	030656	133 00 0 00 000014 		IBP	,<AC+1>&17	;INCREMENT PNTR
   814	030657	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST PNTR INC
   815	030660	005 14 0 00 000301 		ER5	AC+1,301	;POINTER FAILED
   816	030661	321 15 0 00 030654 		JUMPL	AC+2,G300	;LOOP ON ERROR SWITCH
   817
   818					;INST - IBP
   819					;PFIELD=16
   820					;SFIELD=6
   821
   822			000012			AC=12
   823						SAVEAC	(1,1)^
   824	030662	201 14 0 00 030662 		MOVEI	AC+2,.		;SAVE TEST PC
   825	030663	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
   826	030664	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   827	030665	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   828
   829	030666	205 10 0 00 100600 	G400:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
   830	030667	205 13 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR
   831	030670	133 00 0 00 000013 		IBP	,<AC+1>&17	;INCREMENT PNTR
   832	030671	312 13 0 00 000010 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   833	030672	005 13 0 00 000401 		ER5	AC+1,401	;POINTER FAILED
   834	030673	321 14 0 00 030666 		JUMPL	AC+2,G400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 4
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0032

   835					;INST-IBP
   836					;TEST ABILITY TO TRANSFER INCREMENTED
   837					;PFIELD
   838					;TEST JAM-ZERO'S
   839					;PFIELD=77
   840					;SFIELD=1,2,4,10,20,40
   841					;TEST JAM-ONE'S
   842					;PFIELD=6,14,30,60,40
   843					;SFIELD=3,6,14,30,20
   844
   845			000010			AC=10
   846						SAVEAC	(1,1)^
   847	030674	201 12 0 00 030674 		MOVEI	AC+2,.		;SAVE TEST PC
   848	030675	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
   849	030676	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   850	030677	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   851
   852			000600		SN=600
   853			000040			ZZ=40
   854			004000			YY=4000
   855
   856					G600:	REPEAT	^D6,<
   857					SN=SN+1
   858						ZZ=ZZ+ZZ
   859						YY=YY+YY
   860						MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   861						MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   862						IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   863						CAME	AC+1,<AC-2>&17	;TEST PFIELD
   864						ER5	AC+1,SN		;BIT UNDER TEST FAILED
   865						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   866					>
   867
   868			000601		SN=SN+1
   869			000100			ZZ=ZZ+ZZ
   870			010000			YY=YY+YY
   871	030700	205 06 0 00 760100 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   872	030701	205 11 0 00 770100 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   873	030702	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   874	030703	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   875	030704	005 11 0 00 000601 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   876	030705	321 12 0 00 030700 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   877
   878
   879			000602		SN=SN+1
   880			000200			ZZ=ZZ+ZZ
   881			020000			YY=YY+YY
   882	030706	205 06 0 00 750200 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   883	030707	205 11 0 00 770200 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   884	030710	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   885	030711	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   886	030712	005 11 0 00 000602 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   887	030713	321 12 0 00 030706 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   888
   889
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 4-1
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0033

   890			000603		SN=SN+1
   891			000400			ZZ=ZZ+ZZ
   892			040000			YY=YY+YY
   893	030714	205 06 0 00 730400 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   894	030715	205 11 0 00 770400 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   895	030716	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   896	030717	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   897	030720	005 11 0 00 000603 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   898	030721	321 12 0 00 030714 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   899
   900
   901			000604		SN=SN+1
   902			001000			ZZ=ZZ+ZZ
   903			100000			YY=YY+YY
   904	030722	205 06 0 00 671000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   905	030723	205 11 0 00 771000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   906	030724	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   907	030725	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   908	030726	005 11 0 00 000604 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   909	030727	321 12 0 00 030722 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   910
   911
   912			000605		SN=SN+1
   913			002000			ZZ=ZZ+ZZ
   914			200000			YY=YY+YY
   915	030730	205 06 0 00 572000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   916	030731	205 11 0 00 772000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   917	030732	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   918	030733	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   919	030734	005 11 0 00 000605 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   920	030735	321 12 0 00 030730 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   921
   922
   923			000606		SN=SN+1
   924			004000			ZZ=ZZ+ZZ
   925			400000			YY=YY+YY
   926	030736	205 06 0 00 374000 		MOVSI	AC-2,770000+ZZ-YY	;SETUP FOR COMPARISON
   927	030737	205 11 0 00 774000 		MOVSI	AC+1,770000+ZZ	;SETUP PNTR WORD
   928	030740	133 00 0 00 000011 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
   929	030741	312 11 0 00 000006 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   930	030742	005 11 0 00 000606 		ER5	AC+1,SN		;BIT UNDER TEST FAILED
   931	030743	321 12 0 00 030736 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
   932
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 5
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0034

   933			000011			AC=11
   934						SAVEAC	(1,1)^
   935	030744	201 13 0 00 030744 		MOVEI	AC+2,.		;SAVE TEST PC
   936	030745	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
   937	030746	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   938	030747	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   939
   940									;TEST AR1(1)
   941	030750	205 07 0 00 202000 	G700:	MOVSI	AC-2,202000	;SETUP FOR COMPARISON
   942	030751	205 12 0 00 402000 		MOVSI	AC+1,402000	;SETUP PNTR WORD
   943	030752	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   944	030753	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   945	030754	005 12 0 00 000701 		ER5	AC+1,701	;POINTER FAILED TO INCREMENT CORRECTLY
   946	030755	321 13 0 00 030750 		JUMPL	AC+2,G700	;LOOP ON ERROR SWITCH
   947
   948									;TEST AR2(1)
   949	030756	205 07 0 00 303000 	G1000:	MOVSI	AC-2,303000	;SETUP FOR COMPARISON
   950	030757	205 12 0 00 603000 		MOVSI	AC+1,603000	;SETUP PNTR
   951	030760	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   952	030761	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   953	030762	005 12 0 00 001001 		ER5	AC+1,1001	;POINTER FAILED TO INCREMENT CORRECTLY
   954	030763	321 13 0 00 030756 		JUMPL	AC+2,G1000	;LOOP ON ERROR SWITCH
   955
   956	030764	205 07 0 00 141400 	G1100:	MOVSI	AC-2,141400	;SETUP FOR COMPARISON
   957	030765	205 12 0 00 301400 		MOVSI	AC+1,301400	;SETUP PNTR
   958	030766	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   959	030767	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   960	030770	005 12 0 00 001101 		ER5	AC+1,1101	;POINTER FAILED TO INCREMENT CORRECTLY
   961	030771	321 13 0 00 030764 		JUMPL	AC+2,G1100	;LOOP ON ERROR SWITCH
   962
   963									;TEST AR4(1)
   964	030772	205 07 0 00 060600 	G1200:	MOVSI	AC-2,060600	;SETUP FOR COMPARISON
   965	030773	205 12 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR
   966	030774	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   967	030775	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
   968	030776	005 12 0 00 001201 		ER5	AC+1,1201	;POINTER FAILED TO INCREMENT CORRECTLY
   969	030777	321 13 0 00 030772 		JUMPL	AC+2,G1200	;LOOP ON ERROR SWITCH
   970
   971									;TEST AR5(1)
   972	031000	205 07 0 00 030300 	G1300:	MOVSI	AC-2,030300	;SETUP FOR COMPARISON
   973	031001	205 12 0 00 060300 		MOVSI	AC+1,060300	;SETUP PNTR
   974	031002	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
   975	031003	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST P FIELD
   976	031004	005 12 0 00 001301 		ER5	AC+1,1301	;POINTER FAILED TO INCREMENT CORRECTLY
   977	031005	321 13 0 00 031000 		JUMPL	AC+2,G1300	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 6
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0035

   978					;INST-IBP
   979					;PFIELD=5
   980					;SFIELD=10
   981
   982			000005			AC=5
   983						SAVEAC	(1,1)^
   984	031006	201 07 0 00 031006 		MOVEI	AC+2,.		;SAVE TEST PC
   985	031007	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
   986	031010	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   987	031011	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   988
   989	031012	205 03 0 00 341000 	G1400:	MOVSI	AC-2,341000	;SETUP FOR COMPARISON
   990	031013	205 06 0 00 051000 		MOVSI	AC+1,051000	;SETUP PNTR WORD
   991	031014	133 00 0 00 000006 		IBP	,<AC+1>&17	;INCREMENT PNPR
   992	031015	620 06 0 00 000001 		TRZ	AC+1,1		;CREAR ADDRESS FIELD OF POINTER
   993	031016	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST P FIELD
   994	031017	005 06 0 00 001401 		ER5	AC+1,1401	;POINTER FAILED
   995	031020	321 07 0 00 031012 		JUMPL	AC+2,G1400	;LOOP ON ERROR SWITCH
   996					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 6-1
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0036

   997					;INST - IBP
   998					;TEST ABILITY TO TRANSFER PFIELD
   999					;PRELIMINARY - TEST FOR PRESENCE
  1000					; OF PULSE
  1001					;PFIELD=16
  1002					;SFIELD=6
  1003
  1004			000005			AC=5
  1005						SAVEAC	(1,1)^
  1006	031021	201 07 0 00 031021 		MOVEI	AC+2,.		;SAVE TEST PC
  1007	031022	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1008	031023	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1009	031024	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1010
  1011	031025	205 03 0 00 100600 	G1500:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
  1012	031026	205 06 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR WORD
  1013	031027	133 00 0 00 000006 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1014	031030	620 06 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1015	031031	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST PFIELD
  1016	031032	005 06 0 00 001501 		ER5	AC+1,1501	;POINTER FAILED
  1017	031033	321 07 0 00 031025 		JUMPL	AC+2,G1500	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 7
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0037

  1018					;INST-IBP
  1019					;TEST ABILITY TO TRANSFER PFIELD
  1020					;TEST ABILITY TO SET INDIVIDUAL
  1021					;SC BITS 3-8
  1022					;PFIELD=1,2,4,10,20,40
  1023					;SFIELD=1,2,4,10,20,40
  1024
  1025			000014			AC=14
  1026						SAVEAC	(1,1)^
  1027	031034	201 16 0 00 031034 		MOVEI	AC+2,.		;SAVE TEST PC
  1028	031035	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1029	031036	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1030	031037	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1031									;TEST SC BIT 8 SET
  1032	031040	205 12 0 00 000100 	G1600:	MOVSI	AC-2,000100	;SETUP FOR COMPARISON
  1033	031041	205 15 0 00 010100 		MOVSI	AC+1,010100	;SETUP PNTR WORD
  1034	031042	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1035	031043	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1036	031044	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 8
  1037	031045	005 15 0 00 001601 		ER5	AC+1,1601	;POINTER FAILED
  1038	031046	321 16 0 00 031040 		JUMPL	AC+2,G1600	;LOOP ON ERROR SWITCH
  1039
  1040									;TEST SC BIT 7 SET
  1041	031047	205 12 0 00 000200 	G1700:	MOVSI	AC-2,000200	;SETUP FOR COMPARISON
  1042	031050	205 15 0 00 020200 		MOVSI	AC+1,020200	;SETUP PNTR WORD
  1043	031051	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1044	031052	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1045	031053	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 7
  1046	031054	005 15 0 00 001701 		ER5	AC+1,1701	;POINTER FAILED
  1047	031055	321 16 0 00 031047 		JUMPL	AC+2,G1700	;LOOP ON ERROR SWITCH
  1048
  1049									;TEST SC BIT 6 SET
  1050	031056	205 12 0 00 000400 	G2000:	MOVSI	AC-2,000400	;SETUP FOR COMPARISON
  1051	031057	205 15 0 00 040400 		MOVSI	AC+1,040400	;SETUP PNTR WORD
  1052	031060	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1053	031061	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1054	031062	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 6
  1055	031063	005 15 0 00 002001 		ER5	AC+1,2001	;POINTER FAILED
  1056	031064	321 16 0 00 031056 		JUMPL	AC+2,G2000	;LOOP ON ERROR SWITCH
  1057
  1058									;TEST SC BIT 5 SET
  1059	031065	205 12 0 00 001000 	G2100:	MOVSI	AC-2,001000	;SETUP FOR COMPARISON
  1060	031066	205 15 0 00 101000 		MOVSI	AC+1,101000	;SETUP PNTR WORD
  1061	031067	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1062	031070	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1063	031071	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 5
  1064	031072	005 15 0 00 002101 		ER5	AC+1,2101	;POINTER FAILED
  1065	031073	321 16 0 00 031065 		JUMPL	AC+2,G2100	;LOOP ON ERROR SWITCH
  1066
  1067									;TEST SC BIT 4 SET
  1068	031074	205 12 0 00 002000 	G2200:	MOVSI	AC-2,002000	;SETUP FOR COMPARISON
  1069	031075	205 15 0 00 202000 		MOVSI	AC+1,202000	;SETUP PNTR WORD
  1070	031076	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1071	031077	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1072	031100	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 4
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 7-1
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0038

  1073	031101	005 15 0 00 002201 		ER5	AC+1,2201	;POINTER FAILED
  1074	031102	321 16 0 00 031074 		JUMPL	AC+2,G2200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 8
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0039

  1075									;TEST SC BIT 3 SET
  1076	031103	205 12 0 00 004000 	G2300:	MOVSI	AC-2,004000	;SETUP FOR COMPARISON
  1077	031104	205 15 0 00 404000 		MOVSI	AC+1,404000	;SETUP PNTR WORD
  1078	031105	133 00 0 00 000015 		IBP	,<AC+1>&17	;INCREMENT BYTE PNTR
  1079	031106	620 15 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1080	031107	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST BIT 3
  1081	031110	005 15 0 00 002301 		ER5	AC+1,2301	;POINTER FAILED
  1082	031111	321 16 0 00 031103 		JUMPL	AC+2,G2300	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 9
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0040

  1083					;INST-IBP
  1084					;TEST ABILITY TO SET SC BITS 3,6
  1085					;PFIELD=6
  1086					;SFIELD=10
  1087					;FAILURE OF BIT 3 TO SET RESULTS IN A
  1088					;PFIELD=74
  1089					;FAILURE OF BIT 6 TO SET RESULTS IN
  1090					;A PFEILD=30
  1091					;SC BIT2 IS NOT TESTED-FAILURE TO SET
  1092					;BIT 2 RESULTS IN LOOPING
  1093
  1094			000013			AC=13
  1095						SAVEAC	(1,1)^
  1096	031112	201 15 0 00 031112 		MOVEI	AC+2,.		;SAVE TEST PC
  1097	031113	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1098	031114	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1099	031115	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1100
  1101	031116	205 11 0 00 341000 	G2400:	MOVSI	AC-2,341000	;SETUP FOR COMPARISON
  1102	031117	205 14 0 00 061000 		MOVSI	AC+1,061000	;SETUP PNTR WORD
  1103	031120	133 00 0 00 000014 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1104	031121	620 14 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1105	031122	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST SC3 (1)
  1106	031123	005 14 0 00 002401 		ER5	AC+1,2401	;POINTER FAILED
  1107	031124	321 15 0 00 031116 		JUMPL	AC+2,G2400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 10
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0041

  1108					;INST-IBP
  1109					;TEST ABILITY TO CLEAR INDIVIDUAL
  1110					;SC BITS
  1111					;PFIELD=20,10,2,1
  1112					;SFIELD=21,11,3,2
  1113					;FAILURE TO CLEAR SC BITS 4,5,7
  1114					;OR 8 RESULTS IN A PFIELD=43
  1115					;FAILURE TO CLEAR SC BITS 3 OR 6
  1116					;WILL NOT BE APPARENT
  1117
  1118			000011			AC=11
  1119						SAVEAC	(1,1)^
  1120	031125	201 13 0 00 031125 		MOVEI	AC+2,.		;SAVE TEST PC
  1121	031126	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1122	031127	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1123	031130	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1124
  1125									;TEST SC4 CLEARING
  1126	031131	205 07 0 00 232100 	G2600:	MOVSI	AC-2,232100	;SETUP FOR COMPARISON
  1127	031132	205 12 0 00 202100 		MOVSI	AC+1,202100	;SETUP PNTR WORD
  1128	031133	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1129	031134	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1130	031135	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1131	031136	005 12 0 00 002601 		ER5	AC+1,2601	;POINTER FAILED
  1132	031137	321 13 0 00 031131 		JUMPL	AC+2,G2600	;LOOP ON ERROR SWITCH
  1133
  1134									;TEST SC5 CLEARING
  1135	031140	205 07 0 00 331100 	G2700:	MOVSI	AC-2,331100	;SETUP FOR COMPARISON
  1136	031141	205 12 0 00 101100 		MOVSI	AC+1,101100	;SETUP PNTR WORD
  1137	031142	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1138	031143	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1139	031144	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=45
  1140	031145	005 12 0 00 002701 		ER5	AC+1,2701	;POINTER FAILED
  1141	031146	321 13 0 00 031140 		JUMPL	AC+2,G2700	;LOOP ON ERROR SWITCH
  1142
  1143									;TEST SC 7 CLEARING
  1144	031147	205 07 0 00 410300 	G3000:	MOVSI	AC-2,410300	;SETUP FOR COMPARISON
  1145	031150	205 12 0 00 020300 		MOVSI	AC+1,020300	;SETUP PNTR
  1146	031151	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1147	031152	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1148	031153	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1149	031154	005 12 0 00 003001 		ER5	AC+1,3001	;POINTER FAILED
  1150	031155	321 13 0 00 031147 		JUMPL	AC+2,G3000	;LOOP ON ERROR SWITCH
  1151
  1152									;TEST SC8 CLEARING
  1153	031156	205 07 0 00 420200 	G3100:	MOVSI	AC-2,420200	;SETUP FOR COMPARISON
  1154	031157	205 12 0 00 010200 		MOVSI	AC+1,010200	;SETUP PNTR
  1155	031160	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1156	031161	620 12 0 00 000001 		TRZ	AC+1,1		;CLEAR BIT 35
  1157	031162	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST PFIELD=43
  1158	031163	005 12 0 00 003101 		ER5	AC+1,3101	;POINTER FAILED
  1159	031164	321 13 0 00 031156 		JUMPL	AC+2,G3100	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 11
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0042

  1160					;INST-IBP
  1161					;TEST ABILITY TO INCREMENT ADDRESS
  1162					;FIELD OF PNTR WORD
  1163					;PFIELD=6
  1164					;SFIELD=10
  1165					;LOSS OF THE SFIELD AND AN ADDRESS=1
  1166
  1167			000012			AC=12
  1168						SAVEAC	(1,1)^
  1169	031165	201 14 0 00 031165 		MOVEI	AC+2,.		;SAVE TEST PC
  1170	031166	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  1171	031167	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1172	031170	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1173
  1174	031171	205 10 0 00 341000 	G3200:	MOVSI	AC-2,341000	;SETUP AC-2
  1175	031172	340 10 0 00 031173 		AOJ	AC-2,.+1	;FOR COMPARISON
  1176	031173	205 13 0 00 061000 		MOVSI	AC+1,061000	;SETUP PNTR WORD
  1177	031174	133 00 0 00 000013 		IBP	,<AC+1>&17	;INC PNTR WORD
  1178	031175	312 13 0 00 000010 		CAME	AC+1,<AC-2>&17	;TEST FOR ERROR PNTR
  1179	031176	005 13 0 00 003201 		ER5	AC+1,3201	;POINTER FAILED
  1180	031177	321 14 0 00 031171 		JUMPL	AC+2,G3200	;LOOP ON ERROR SWITCH
  1181
  1182					;INST-IBP
  1183					;TEST ABILITY TO INCREMENT
  1184					;ADDRESS FIELD OF PNTR WORD
  1185					;PFIELD=6
  1186					;SFIELD=10
  1187
  1188			000011			AC=11
  1189						SAVEAC	(1,1)^
  1190	031200	201 13 0 00 031200 		MOVEI	AC+2,.		;SAVE TEST PC
  1191	031201	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1192	031202	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1193	031203	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1194
  1195	031204	505 07 0 00 341000 	G3300:	HRLI	AC-2,341000	;SETUP AC-2 FOR
  1196	031205	541 07 0 00 000012 		HRRI	AC-2,<AC+1>&17	;COMPARISON
  1197	031206	505 12 0 00 061000 		HRLI	AC+1,061000	;SETUP BYTE
  1198	031207	541 12 0 00 000011 		HRRI	AC+1,AC&17		;PNTR WORD
  1199	031210	133 00 0 00 000012 		IBP	,<AC+1>&17	;INCREMENT PNTR
  1200	031211	312 12 0 00 000007 		CAME	AC+1,<AC-2>&17	;TEST ADDRESS
  1201	031212	005 12 0 00 003301 		ER5	AC+1,3301	;POINTER FAILED
  1202	031213	321 13 0 00 031204 		JUMPL	AC+2,G3300	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 12
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0043

  1203					;INST-LDB
  1204					;TEST ABILITY TO FCE (2ND PART)
  1205					;FAILURE TO FCE RESULTS IN LOSS
  1206					;OF DATA WORD
  1207					;PFIELD=0
  1208					;SFIELD=6
  1209					;BYTE WORD=0,777777
  1210					;DEST AC=0
  1211
  1212			000014			AC=14
  1213						SAVEAC	(1,1)^
  1214	031214	201 16 0 00 031214 		MOVEI	AC+2,.		;SAVE TEST PC
  1215	031215	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1216	031216	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1217	031217	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1218
  1219	031220	505 15 0 00 000600 	G3400:	HRLI	AC+1,000600	;SETUP BYTE
  1220	031221	541 15 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1221	031222	201 05 0 00 777777 		MOVEI	5,-1		;SETUP BYTE WORD
  1222	031223	400 14 0 00 000000 		SETZ	AC,		;CLEAR DEST AC
  1223	031224	135 14 0 00 000015 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1224	031225	302 14 0 00 000077 		CAIE	AC,77		;TEST DEST AC=0,,77
  1225	031226	003 14 0 00 003401 		ER3	AC,3401		;AC FAILED
  1226	031227	321 16 0 00 031220 		JUMPL	AC+2,G3400	;LOOP ON ERROR SWITCH
  1227
  1228					;INST-LDB
  1229					;P FIELD =14
  1230					;S FIELD =6
  1231					;BYTE WORD =-1
  1232
  1233			000011			AC=11
  1234						SAVEAC	(1,1)^
  1235	031230	201 13 0 00 031230 		MOVEI	AC+2,.		;SAVE TEST PC
  1236	031231	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1237	031232	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1238	031233	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1239
  1240	031234	551 07 0 00 000077 	G3500:	HRRZI	AC-2,77		;SETUP FOR COMPARISON
  1241	031235	205 12 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR
  1242	031236	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1243	031237	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1244	031240	312 11 0 00 000007 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,77
  1245	031241	003 11 0 00 003501 		ER3	AC,3501		;AC FAILED
  1246	031242	321 13 0 00 031234 		JUMPL	AC+2,G3500	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 13
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0044

  1247					;INST-LDB
  1248					;PFIELD=14
  1249					;SFIELD=6
  1250					;BYTE WORD = 777777
  1251
  1252			000006			AC=6
  1253						SAVEAC	(1,1)^
  1254	031243	201 10 0 00 031243 		MOVEI	AC+2,.		;SAVE TEST PC
  1255	031244	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  1256	031245	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1257	031246	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1258
  1259	031247	205 07 0 00 140600 	G3600:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1260	031250	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD (AC0)
  1261	031251	135 06 0 00 000007 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1262	031252	302 06 0 00 000077 		CAIE	AC,77		;TEST DEST AC
  1263	031253	003 06 0 00 003601 		ER3	AC,3601		;AC FAILED
  1264	031254	321 10 0 00 031247 		JUMPL	AC+2,G3600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 14
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0045

  1265					;INST-LDB
  1266					;TEST ABILITY TO TRANSFER 2'S COMP
  1267					;SFIELD
  1268					;TEST ABILITY TO SET INDIVIDUAL
  1269					;BITS OF SC
  1270					;PFIELD=0
  1271					;SFIELD=40,20,10,4,2,1
  1272					;BYTE WORD=-1
  1273
  1274			000005			AC=5
  1275						SAVEAC	(1,1)^
  1276	031255	201 07 0 00 031255 		MOVEI	AC+2,.		;SAVE TEST PC
  1277	031256	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1278	031257	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1279	031260	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1280									;TEST SC 1,2,3 SET
  1281	031261	525 03 0 00 037777 	G3700:	HRLOI	AC-2,37777	;SETUP FOR COMPARISON
  1282	031262	205 06 0 00 004000 		MOVSI	AC+1,4000	;SETUP PNTR WORD
  1283	031263	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1284	031264	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1285	031265	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=37777,,777777
  1286	031266	003 05 0 00 003701 		ER3	AC,3701		;AC FAILED
  1287	031267	321 07 0 00 031261 		JUMPL	AC+2,G3700	;LOOP ON ERROR SWITCH
  1288
  1289									;TEST SC4 SET
  1290	031270	551 03 0 00 177777 	G4000:	HRRZI	AC-2,177777	;SETUP FOR COMPARISON
  1291	031271	205 06 0 00 002000 		MOVSI	AC+1,2000	;SETUP PNTR WORD
  1292	031272	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1293	031273	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1294	031274	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,177777
  1295	031275	003 05 0 00 004001 		ER3	AC,4001		;AC FAILED
  1296	031276	321 07 0 00 031270 		JUMPL	AC+2,G4000	;LOOP ON ERROR SWITCH
  1297
  1298									;TEST SC5 SET
  1299	031277	201 03 0 00 000377 	G4100:	MOVEI	AC-2,377	;SETUP FOR COMPARISON
  1300	031300	205 06 0 00 001000 		MOVSI	AC+1,1000	;SETUP PNTR WORD
  1301	031301	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1302	031302	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1303	031303	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE = 0,,377
  1304	031304	003 05 0 00 004101 		ER3	AC,4101		;AC FAILED
  1305	031305	321 07 0 00 031277 		JUMPL	AC+2,G4100	;LOOP ON ERROR SWITCH
  1306
  1307									;TEST SC6 SET
  1308	031306	201 03 0 00 000017 	G4200:	MOVEI	AC-2,17	;SETUP FOR COMPARISON
  1309	031307	205 06 0 00 000400 		MOVSI	AC+1,400	;SETUP PNTR WORD
  1310	031310	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1311	031311	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1312	031312	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,17
  1313	031313	003 05 0 00 004201 		ER3	AC,4201		;AC FAILED
  1314	031314	321 07 0 00 031306 		JUMPL	AC+2,G4200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 15
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0046

  1315									;TEST SC 7 SET
  1316	031315	201 03 0 00 000003 	G4300:	MOVEI	AC-2,3		;SETUP FOR COMPARISON
  1317	031316	205 06 0 00 000200 		MOVSI	AC+1,200	;SETUP PNTR WORD
  1318	031317	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1319	031320	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1320	031321	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,3
  1321	031322	003 05 0 00 004301 		ER3	AC,4301		;AC FAILED
  1322	031323	321 07 0 00 031315 		JUMPL	AC+2,G4300	;LOOP ON ERROR SWITCH
  1323
  1324									;TEST SC 8 SET
  1325	031324	201 03 0 00 000001 	G4400:	MOVEI	AC-2,1		;SETUP FOR COMPARISON
  1326	031325	205 06 0 00 000100 		MOVSI	AC+1,100	;SETUP PNTR WORD
  1327	031326	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1328	031327	135 05 0 00 000006 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1329	031330	312 05 0 00 000003 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,1
  1330	031331	003 05 0 00 004401 		ER3	AC,4401		;AC FAILED
  1331	031332	321 07 0 00 031324 		JUMPL	AC+2,G4400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 16
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0047

  1332					;INST-LDB
  1333					;PFIELD=6
  1334					;SFIELD=14
  1335					;BYTE WORD=000000007700
  1336
  1337			000014			AC=14
  1338						SAVEAC	(1,1)^
  1339	031333	201 16 0 00 031333 		MOVEI	AC+2,.		;SAVE TEST PC
  1340	031334	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1341	031335	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1342	031336	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1343
  1344	031337	201 12 0 00 000077 	G4600:	MOVEI	AC-2,77		;SETUP FOR COMPARISON
  1345	031340	205 15 0 00 061400 		MOVSI	AC+1,061400	;SETUP PNTR WORD
  1346	031341	201 00 0 00 007700 		MOVEI	,7700		;SETUP BYTE WORD
  1347	031342	135 14 0 00 000015 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1348	031343	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;TEST BYTE =77
  1349	031344	003 14 0 00 004601 		ER3	AC,4601		;AC FAILED
  1350	031345	321 16 0 00 031337 		JUMPL	AC+2,G4600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 17
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0048

  1351					;INST-LDB
  1352					;PFIELD=6
  1353					;SFIELD=6
  1354					;BYTEWORD=-1
  1355
  1356			000013			AC=13
  1357						SAVEAC	(1,1)^
  1358	031346	201 15 0 00 031346 		MOVEI	AC+2,.		;SAVE TEST PC
  1359	031347	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1360	031350	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1361	031351	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1362
  1363	031352	201 11 0 00 000077 	G4700:	MOVEI	AC-2,77		;SETUP FOR COMPARISON
  1364	031353	205 14 0 00 060600 		MOVSI	AC+1,060600	;SETUP PNTR
  1365	031354	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1366	031355	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1367	031356	312 13 0 00 000011 		CAME	AC,<AC-2>&17	;TEST BYTE=0,,77
  1368	031357	003 13 0 00 004701 		ER3	AC,4701		;AC FAILED
  1369	031360	321 15 0 00 031352 		JUMPL	AC+2,G4700	;LOOP ON ERROR SWITCH
  1370
  1371					;INST-LDB
  1372					;TEST IR 134-7
  1373					;PFIELD=14
  1374					;SFIELD=6
  1375					;BYTE WORD=-1
  1376					;AN ERROR WILL OCCUR IF PC IS INCREMENTED
  1377					;TWICE DURING EXECUTION OF LDB
  1378
  1379			000010			AC=10
  1380						SAVEAC	(1,1)^
  1381	031361	201 12 0 00 031361 		MOVEI	AC+2,.		;SAVE TEST PC
  1382	031362	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1383	031363	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1384	031364	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1385
  1386	031365	205 11 0 00 140600 	G5000:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1387	031366	474 00 0 00 000000 		SETO			;SETUP BYTE WORD (AC0)
  1388	031367	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1389	031370	254 00 0 00 031372 		JRST	,.+2		;PC+1 INH ASSERTED
  1390	031371	003 10 0 00 005001 		ER3	AC,5001		;AC FAILED
  1391	031372	321 12 0 00 031365 		JUMPL	AC+2,G5000	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 18
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0049

  1392					;INST-LDB
  1393					;TEST ABILITY TO CLEAR BYF6
  1394					;PFIELD=14
  1395					;SFIELD=6
  1396					;BYTE WORD=-1
  1397					;AN ERROR WILL OCCUR IF BYF6(1) WHEN STORED
  1398					;BY JSP
  1399
  1400			000007			AC=7
  1401						SAVEAC	(1,1)^
  1402	031373	201 11 0 00 031373 		MOVEI	AC+2,.		;SAVE TEST PC
  1403	031374	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1404	031375	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1405	031376	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1406
  1407	031377	205 10 0 00 140600 	G5100:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1408	031400	474 00 0 00 000000 		SETO			;SETUP BYTE WORD
  1409	031401	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1410	031402	265 07 0 00 031403 		JSP	AC,.+1		;STORE FLAGS
  1411	031403	603 07 0 00 020000 		TLNE	AC,020000	;TEST BIT 4
  1412	031404	003 07 0 00 005101 		ER3	AC,5101		;AC FAILED
  1413	031405	321 11 0 00 031377 		JUMPL	AC+2,G5100	;LOOP ON ERROR SWITCH
  1414
  1415					;INST-LDB
  1416					;TEST ABILITY TO DEFER (INDIRECT) BYTE
  1417					;PNTR ADDRESS
  1418					;FAILURE TO INDIRECTLY ADDRESS BYTE
  1419					;PNTR RESULTS IN AN ERROR BYTE
  1420					;PFIELD=0
  1421					;SFIELD=6
  1422					;ERROR BYTE=14
  1423					;CORRECT BYTE=44
  1424					;AN ERROR WILL OCCUR IF DEST AC=14
  1425					;FOLLOWING LOAD BYTE INDIRECTLY ADDRESSED
  1426
  1427			000006			AC=6
  1428						SAVEAC	(1,1)^
  1429	031406	201 10 0 00 031406 		MOVEI	AC+2,.		;SAVE TEST PC
  1430	031407	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  1431	031410	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1432	031411	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1433
  1434	031412	205 07 0 00 000600 	G5200:	MOVSI	AC+1,600	;SETUP PNTR WORD
  1435	031413	505 00 0 00 000600 		HRLI	,600		;SETUP INDIRECT ADDRESS
  1436	031414	541 00 0 00 000014 		HRRI	,14		;PNTR WORD (AC0)
  1437	031415	201 14 0 00 000044 		MOVEI	AC+6,44		;SETUP CORR BYTE WORD
  1438	031416	135 06 1 00 000007 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY
  1439	031417	302 06 0 00 000044 		CAIE	AC,44		;TEST FOR CORR BYTE
  1440	031420	003 06 0 00 005201 		ER3	AC,5201		;INDIRECT ADDRESSING FAILED
  1441	031421	321 10 0 00 031412 		JUMPL	AC+2,G5200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 19
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0050

  1442					;INST-LDB
  1443					;TEST IR RT CLR AT6
  1444					;FURTHER TEST OF IR 134-7
  1445					;TEST ABILITY TO CLEAR IR BITS 13-17 FOLLOWING
  1446					;DEFERRING OR INDEXING OF BYTE PNTR ADDR
  1447					;PFIELD=6
  1448					;SFIELD=14
  1449					;CORR BYTE WORD=222222
  1450					;DEST AC=4
  1451					;AN ERROR WILL OCCUR IF DEST AC
  1452					;EQUALS 5555 FOLLOWING LOAD BYTE
  1453
  1454			000007			AC=7
  1455						SAVEAC	(1,1)^
  1456	031422	201 11 0 00 031422 		MOVEI	AC+2,.		;SAVE TEST PC
  1457	031423	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1458	031424	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1459	031425	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1460
  1461	031426	205 14 0 00 061400 	G5300:	MOVSI	AC+5,061400	;SETUP INDEXED PNTR WORD
  1462	031427	201 07 0 00 000004 		MOVEI	AC,4		;SETUP INDEX AC
  1463	031430	201 00 0 00 222222 		MOVEI	,222222		;SETUP CORR BYTE WORD
  1464	031431	201 04 0 00 555555 		MOVEI	AC-3,555555	;SETUP CORR BYTE WORD
  1465	031432	135 07 0 07 000010 		LDB	AC,<AC+1>&17(AC)	;LOAD BYTE INDEXED
  1466	031433	302 07 0 00 002222 		CAIE	AC,2222		;TEST FOR CORR BYTE
  1467	031434	003 07 0 00 005301 		ER3	AC,5301		;AC FAILED
  1468	031435	321 11 0 00 031426 		JUMPL	AC+2,G5300	;LOOP ON ERROR SWITCH
  1469
  1470					;INST-LDB
  1471					;FURTHER TEST OF IR 134-7
  1472					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1473					;P FIELD=0
  1474					;S FIELD=6
  1475					;FAILURE RESULTS IN IR14-17=0,
  1476					;NO INDEX, ERROR BYTE=55
  1477
  1478			000010			AC=10
  1479						SAVEAC	(1,1)^
  1480	031436	201 12 0 00 031436 		MOVEI	AC+2,.		;SAVE TEST PC
  1481	031437	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1482	031440	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1483	031441	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1484
  1485	031442	505 11 0 00 000607 	G5400:	HRLI	AC+1,000607	;SETUP BYTE
  1486	031443	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1487	031444	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1488	031445	201 05 0 00 000055 		MOVEI	5,55		;SETUP NON INDEX BYTE WORD
  1489	031446	201 15 0 00 000077 		MOVEI	15,77		;SETUP INDEXED BYTE WORD
  1490	031447	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1491	031450	302 10 0 00 000077 		CAIE	AC,77		;TEST BYTE=0,,77
  1492	031451	003 10 0 00 005401 		ER3	AC,5401		;AC FAILED
  1493	031452	321 12 0 00 031442 		JUMPL	AC+2,G5400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 20
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0051

  1494					;INST-LDB
  1495					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1496					;P FIELD=0
  1497					;S FIELD=6
  1498					;FAILURE RESULTS IN A BYTE WORD
  1499					;ADDRESS EQUAL TO CONTENTS OF 
  1500					;INDEX AC(=AC)
  1501
  1502			000010			AC=10
  1503						SAVEAC	(1,1)^
  1504	031453	201 12 0 00 031453 		MOVEI	AC+2,.		;SAVE TEST PC
  1505	031454	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1506	031455	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1507	031456	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1508
  1509	031457	505 11 0 00 000607 	G5500:	HRLI	AC+1,000607	;SETUP BYTE
  1510	031460	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1511	031461	403 10 0 00 000005 		SETZB	AC,5		;CLEAR DEST AC'S
  1512	031462	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1513	031463	201 15 0 00 000077 		MOVEI	15,77		;SETUP BYTE WORD
  1514	031464	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1515	031465	302 10 0 00 000077 		CAIE	AC,77		;TEST FOR BYTE
  1516	031466	003 10 0 00 005501 		ER3	AC,5501		;AC FAILED
  1517	031467	321 12 0 00 031457 		JUMPL	AC+2,G5500	;LOOP ON ERROR SWITCH
  1518
  1519					;INST-LDB
  1520					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1521					;P FIELD=0
  1522					;S FIELD=6
  1523					;FAILURE RESULTS IN AN INDEX AC EQUAL
  1524					;TO INDEX AC+AC(AC7+AC10=AC17)
  1525
  1526			000010			AC=10
  1527						SAVEAC	(1,1)^
  1528	031470	201 12 0 00 031470 		MOVEI	AC+2,.		;SAVE TEST PC
  1529	031471	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1530	031472	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1531	031473	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1532
  1533	031474	505 11 0 00 000607 	G5600:	HRLI	AC+1,000607	;SETUP BYTE
  1534	031475	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1535	031476	201 06 0 00 000010 		MOVEI	6,10		;SETUP INDEX AC
  1536	031477	201 15 0 00 000015 		MOVEI	15,15		;SETUP BYTE WORD
  1537	031500	201 16 0 00 000005 		MOVEI	16,5		;SETUP ERROR INDEX AC
  1538	031501	201 14 0 00 000014 		MOVEI	14,14		;SETUP ERROR BYTE WORD
  1539	031502	135 10 0 00 000011 		LDB	AC,<AC+1>&17	;LOAD BYTE
  1540	031503	302 10 0 00 000015 		CAIE	AC,15		;TEST BYTE=15
  1541	031504	003 10 0 00 005601 		ER3	AC,5601		;AC FAILED
  1542	031505	321 12 0 00 031474 		JUMPL	AC+2,G5600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 21
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0052

  1543					;INST-LDB
  1544					;TEST ABILITY TO INDEX BYTE WORD ADDRESS
  1545					;P FIELD=0
  1546					;S FIELD=6
  1547					;FAILURE RESULTS IN INDEXING BY C(AC0)
  1548
  1549			000010			AC=10
  1550						SAVEAC	(1,1)^
  1551	031506	201 12 0 00 031506 		MOVEI	AC+2,.		;SAVE TEST PC
  1552	031507	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  1553	031510	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1554	031511	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1555
  1556	031512	505 11 0 00 000607 	G5700:	HRLI	AC+1,000607	;SETUP BYTE
  1557	031513	541 11 0 00 000005 		HRRI	AC+1,5		;PNTR WORD
  1558	031514	201 07 0 00 000010 		MOVEI	7,10		;SETUP INDEX AC
  1559	031515	201 15 0 00 000015 		MOVEI	15,15		;SETUP BYTE WORD
  1560	031516	201 00 0 00 000007 		MOVEI	,7		;SETUP ERROR INDEX AC
  1561	031517	201 14 0 00 000033 		MOVEI	14,33		;SETUP ERROR BYTE WORD
  1562	031520	135 10 0 00 000011 		LDB	AC,AC+1		;LOAD BYTE
  1563	031521	302 10 0 00 000015 		CAIE	AC,15		;TEST BYTE=0,,15
  1564	031522	003 10 0 00 005701 		ER3	AC,5701		;AC FAILED
  1565	031523	321 12 0 00 031512 		JUMPL	AC+2,G5700	;LOOP ON ERROR SWITCH
  1566
  1567					;INST-ILDB
  1568					;TEST ABILITY TO ASSERT BYTE PTRINC
  1569					;P FIELD=16
  1570					;S FIELD=6
  1571					;FAILURE TO ASSERT MAY RESULT IN A HALT
  1572					;AT ET0
  1573					;AN ERROR WILL OCCUR IF PNTR WORD
  1574					;EQUALS ORIGINAL FOLLOWING ILDB
  1575
  1576			000005			AC=5
  1577						SAVEAC	(1,1)^
  1578	031524	201 07 0 00 031524 		MOVEI	AC+2,.		;SAVE TEST PC
  1579	031525	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1580	031526	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1581	031527	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1582
  1583	031530	205 03 0 00 100600 	G6000:	MOVSI	AC-2,100600	;SETUP FOR COMPARISON
  1584	031531	205 06 0 00 160600 		MOVSI	AC+1,160600	;SETUP PNTR WORD
  1585	031532	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1586	031533	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST PNTR=ORIGINAL
  1587	031534	004 06 0 00 006001 		ER4	AC+1,6001	;PNTR FAILED TO INCREMENT
  1588	031535	321 07 0 00 031530 		JUMPL	AC+2,G6000	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 22
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0053

  1589
  1590					;INST-ILDB
  1591					;TEST LB BYTE LOAD
  1592					;TEST BYF5 SET
  1593					;P FIELD=22
  1594					;S FIELD=22
  1595					;BYTE WORD=000000777777
  1596					;FAILURE RESULTS IN A BYTE EQUAL
  1597					;TO BYTE WORD.
  1598
  1599			000014			AC=14
  1600						SAVEAC	(1,1)^
  1601	031536	201 16 0 00 031536 		MOVEI	AC+2,.		;SAVE TEST PC
  1602	031537	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1603	031540	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1604	031541	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1605
  1606	031542	205 12 0 00 002200 	G6100:	MOVSI	AC-2,002200	;SETUP FOR COMPARISON
  1607	031543	205 15 0 00 222200 		MOVSI	AC+1,222200	;SETUP PNTR WORD
  1608	031544	201 00 0 00 777777 		MOVEI	,-1		;SETUP BYTE WORD
  1609	031545	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1610	031546	312 00 0 00 000014 		CAME	,AC		;TEST BYTE=000000777777
  1611	031547	012 00 0 00 006101 		ER12	,6101		;BYTE WORD FAILED
  1612	031550	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST PNTR WORD
  1613	031551	005 15 0 00 006101 		ER5	AC+1,6101	;POINTER FAILED
  1614	031552	321 16 0 00 031542 		JUMPL	AC+2,G6100	;LOOP ON ERROR SWITCH
  1615
  1616					;INST-ILDB
  1617					;P FIELD=22
  1618					;S FIELD=6
  1619					;BYTE WORD=0000007700000
  1620					;FAILURE RESULTS IN A BYTE
  1621					;=0
  1622
  1623			000013			AC=13
  1624						SAVEAC	(1,1)^
  1625	031553	201 15 0 00 031553 		MOVEI	AC+2,.		;SAVE TEST PC
  1626	031554	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1627	031555	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1628	031556	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1629
  1630	031557	205 11 0 00 140600 	G6200:	MOVSI	AC-2,140600	;SETUP FOR COMPARISON
  1631	031560	205 14 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1632	031561	201 00 0 00 770000 		MOVEI	,770000		;SETUP BYTE WORD (AC0)
  1633	031562	134 13 0 00 000014 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  1634	031563	302 13 0 00 000077 		CAIE	AC,77		;TEST BYTE
  1635	031564	003 13 0 00 006201 		ER3	AC,6201		;AC FAILED
  1636	031565	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST PNTR WORD
  1637	031566	005 14 0 00 006201 		ER5	AC+1,6201	;POINTER FAILED
  1638	031567	321 15 0 00 031557 		JUMPL	AC+2,G6200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 23
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0054

  1639
  1640					;INST-DPB
  1641					;TEST ABILITY TO ASSERT BYF5 SET
  1642					;P FIELD
  1643					;P=14
  1644					;S=6
  1645					;BYTE WORD=000000000077
  1646					;DEST WORD=000000000000
  1647
  1648			000012			AC=12
  1649						SAVEAC	(1,1)^
  1650	031570	201 14 0 00 031570 		MOVEI	AC+2,.		;SAVE TEST PC
  1651	031571	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  1652	031572	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1653	031573	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1654
  1655	031574	201 10 0 00 770000 	G6300:	MOVEI	AC-2,770000	;SETUP FOR COMPARISON
  1656	031575	205 13 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1657	031576	201 12 0 00 000077 		MOVEI	AC,77		;SETUP BYTE
  1658	031577	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1659	031600	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1660	031601	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST=0,,770000
  1661	031602	012 00 0 00 006301 		ER12	,6301		;BYTE W0RD FAILED
  1662	031603	321 14 0 00 031574 		JUMPL	AC+2,G6300	;LOOP ON ERROR SWITCH
  1663
  1664					;INST-DPB
  1665					;TEST ABILITY TO ASSERT DPBYTE DEP
  1666					;P FIELD=14
  1667					;S FIELD=6
  1668					;BYTE WORD=55
  1669					;DEST WORD=-1
  1670					;FAILURE OF MQ TO SHIFT RESULTS IN A
  1671					;DEPOSIT BYTE=777777777700
  1672
  1673			000007			AC=7
  1674						SAVEAC	(1,1)^
  1675	031604	201 11 0 00 031604 		MOVEI	AC+2,.		;SAVE TEST PC
  1676	031605	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1677	031606	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1678	031607	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1679
  1680	031610	561 05 0 00 557777 	G6400:	HRROI	AC-2,557777	;SETUP AC-2 FOR COMPARISON
  1681	031611	205 10 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1682	031612	201 07 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1683	031613	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1684	031614	137 07 0 00 000010 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1685	031615	312 00 0 00 000005 		CAME	,<AC-2>&17	;TEST DEST=-1,,557777
  1686	031616	012 00 0 00 006401 		ER12	,6401		;BYTE WORD FAILED
  1687	031617	321 11 0 00 031610 		JUMPL	AC+2,G6400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 25
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0055

  1688					;INST-DPB
  1689					;TEST ABILITY TO AND MASK, BYTE
  1690					;P FIELD=14
  1691					;S FIELD=6
  1692					;BYTE WORD=5555
  1693					;DEST WORD=0
  1694					;FAILURE RESULTS IN A DEPOSIT
  1695					;BYTE=000055550000
  1696
  1697			000005			AC=5
  1698						SAVEAC	(1,1)^
  1699	031620	201 07 0 00 031620 		MOVEI	AC+2,.		;SAVE TEST PC
  1700	031621	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1701	031622	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1702	031623	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1703
  1704	031624	551 03 0 00 550000 	G7000:	HRRZI	AC-2,550000	;SETUP AC-2 FOR COMPARISON
  1705	031625	541 03 0 00 550000 		HRRI	AC-2,550000	;FOR COMPARISON
  1706	031626	205 06 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1707	031627	201 05 0 00 005555 		MOVEI	AC,5555		;SETUP BYTE WORD
  1708	031630	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1709	031631	137 05 0 00 000006 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1710	031632	312 00 0 00 000003 		CAME	,<AC-2>&17	;TEST DEST WORD=0,,550000
  1711	031633	012 00 0 00 007001 		ER12	,7001		;BYTE WORD FAILED
  1712	031634	321 07 0 00 031624 		JUMPL	AC+2,G7000	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 26
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0056

  1713
  1714					;INST-DPB
  1715					;P FIELD = 6
  1716					;S FIELD = 14
  1717					;BYTE WORD=55
  1718					;DEST WORD = -1
  1719					;FAILURE OF ANY ONE RESULTS IN A 
  1720					;BYTE = 777777 000077
  1721
  1722			000014			AC=14
  1723						SAVEAC	(1,1)^
  1724	031635	201 16 0 00 031635 		MOVEI	AC+2,.		;SAVE TEST PC
  1725	031636	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1726	031637	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1727	031640	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1728
  1729	031641	561 12 0 00 005577 	G7100:	HRROI	AC-2,5577		;SETUP FOR COMPARISON
  1730	031642	205 15 0 00 061400 		MOVSI	AC+1,061400	;SETUP PNTR WORD
  1731	031643	201 14 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1732	031644	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1733	031645	137 14 0 00 000015 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1734	031646	312 00 0 00 000012 		CAME	,<AC-2>&17	;TEST BYTE=777777 005577
  1735	031647	012 00 0 00 007101 		ER12	,7101		;BYTE WORD FAILED
  1736	031650	321 16 0 00 031641 		JUMPL	AC+2,G7100	;LOOP ON ERROR SWITCH
  1737
  1738					;INST-DPB
  1739					;P FIELD=14
  1740					;S FIELD=6
  1741					;BYTE WORD=55
  1742					;DEST WORD=0
  1743					;FAILURE RESULTS IN A DEPOSIT
  1744					;BYTE=777777557777
  1745
  1746			000013			AC=13
  1747						SAVEAC	(1,1)^
  1748	031651	201 15 0 00 031651 		MOVEI	AC+2,.		;SAVE TEST PC
  1749	031652	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  1750	031653	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1751	031654	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1752
  1753	031655	551 11 0 00 550000 	G7200:	HRRZI	AC-2,550000	;SETUP FOR COMPARISON
  1754	031656	205 14 0 00 140600 		MOVSI	AC+1,140600	;SETUP PNTR WORD
  1755	031657	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1756	031660	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1757	031661	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1758	031662	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD=0,,550000
  1759	031663	012 00 0 00 007201 		ER12	,7201		;BYTE WORD FAILED
  1760	031664	321 15 0 00 031655 		JUMPL	AC+2,G7200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 27
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0057

  1761					;INST-DBP
  1762					;P FIELD=22
  1763					;S FIELD=6
  1764					;BYTE WORD=5555
  1765					;DEST WORD=-1
  1766					;FAILURE RESULTS IN A DEPOSIT
  1767					;BYTE=005455777777
  1768
  1769			000011			AC=11
  1770						SAVEAC	(1,1)^
  1771	031665	201 13 0 00 031665 		MOVEI	AC+2,.		;SAVE TEST PC
  1772	031666	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  1773	031667	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1774	031670	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1775
  1776	031671	525 07 0 00 777755 	G7400:	HRLOI	AC-2,777755	;SETUP FOR COMPARISON
  1777	031672	205 12 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1778	031673	201 11 0 00 005555 		MOVEI	AC,5555		;SETUP BYTE WORD
  1779	031674	474 00 0 00 000000 		SETO			;SETUP DEST WORD
  1780	031675	137 11 0 00 000012 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  1781	031676	312 00 0 00 000007 		CAME	,<AC-2>&17	;TEST DEST WORD=777755,,-1
  1782	031677	012 00 0 00 007401 		ER12	,7401		;BYTE WORD FAILED
  1783	031700	321 13 0 00 031671 		JUMPL	AC+2,G7400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 28
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0058

  1784					;INST-DPB
  1785					;TEST ABILITY TO CLEAR BYF6
  1786					;P FIELD=14
  1787					;S FIELD=6
  1788					;BYTE WORD=55
  1789					;DEST WORD=0
  1790					;AN ERROR WILL OCCUR IF BYF6(1) WHEN
  1791					;STORED BY JSP
  1792
  1793			000007			AC=7
  1794						SAVEAC	(1,1)^
  1795	031701	201 11 0 00 031701 		MOVEI	AC+2,.		;SAVE TEST PC
  1796	031702	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1797	031703	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1798	031704	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1799
  1800	031705	205 10 0 00 140600 	G7600:	MOVSI	AC+1,140600	;SETUP PNTR WORD
  1801	031706	201 07 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  1802	031707	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  1803	031710	137 07 0 00 000010 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  1804	031711	265 07 0 00 031712 		JSP	AC,.+1		;STORE FLAGS
  1805	031712	603 07 0 00 020000 		TLNE	AC,020000	;TEST BIT 4
  1806	031713	013 07 0 00 007601 		ER13	AC,7601		;BYF6 FAILED TO CLEAR
  1807	031714	321 11 0 00 031705 		JUMPL	AC+2,G7600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 29
DBKAMM	MAC	16-JUN-76 14:38		PART IA - BYTE MANIPULATION                                                        SEQ 0059

  1808
  1809					;INST-IDPB
  1810					;TEST ABILITY TO ASSERT BYTE PTRINC
  1811					;TEST ABILITY TO ASSERT DB BYTE DEP
  1812					;FAILURE TO ASSERT BYTE PTR INC
  1813					;MAY CAUSE A HALT AT ET0
  1814					;FAILURE TO ASSERT DB BYTE DEP PREVENTS
  1815					;ARMQSHLT SCT3 (2ND PART)
  1816					;P FIELD=22
  1817					;S FIELD=6
  1818					;DEST WORD=0
  1819					;BYTE WORD=77
  1820					;AN ERROR WILL OCCUR IF BYTE PNTR
  1821					;WORD EQUALS ORIGINAL
  1822					;AN ERROR WILL OCCUR IF DEST WORD
  1823					;EQUALS BYTE WORD
  1824
  1825			000005			AC=5
  1826						SAVEAC	(1,1)^
  1827	031715	201 07 0 00 031715 		MOVEI	AC+2,.		;SAVE TEST PC
  1828	031716	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1829	031717	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1830	031720	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1831
  1832	031721	205 03 0 00 140600 	G7700:	MOVSI	AC-2,140600	;SETUP FOR COMPARISON
  1833	031722	205 06 0 00 220600 		MOVSI	AC+1,220600	;SETUP PNTR WORD
  1834	031723	201 05 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  1835	031724	400 00 0 00 000000 		SETZ			;SETUP DEST WORD (AC0)
  1836	031725	136 05 0 00 000006 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  1837	031726	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST FOR INCREMENTED PNTR
  1838	031727	005 06 0 00 007701 		ER5	AC+1,7701	;BYTE PTR INC FAILED
  1839	031730	302 00 0 00 770000 		CAIE	,770000		;TEST DEST WORD
  1840	031731	012 00 0 00 007701 		ER12	,7701		;DB BYTE DEP FAILED
  1841	031732	321 07 0 00 031721 		JUMPL	AC+2,G7700	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 30
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0060

  1842					SUBTTL	PART IB-GENERAL BYTE TEST
  1843
  1844					;PART IA- GENERAL BYTE TEST
  1845
  1846					;INST-IBP
  1847					;DECREASING P FIELD
  1848					;P FIELD=22,20,16,14,12
  1849					;S FIELD=6
  1850					;RESULTANT P FIELDS=14,12,10,6,4
  1851					;AN ERROR WILL OCCUR ON AN
  1852					;INCORRECT INCREMENTED PNTR WORD
  1853
  1854			000005			AC=5
  1855						SAVEAC	(1,1)^
  1856	031733	201 07 0 00 031733 		MOVEI	AC+2,.		;SAVE TEST PC
  1857	031734	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  1858	031735	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1859	031736	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1860
  1861			010000		SN=10000
  1862			160600			XX=160600
  1863			240600			ZZ=240600
  1864
  1865							;TEST IBP
  1866					G10000:	REPEAT	^D5,<
  1867					SN=SN+1
  1868						XX=XX-020000
  1869						ZZ=ZZ-020000
  1870						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1871						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1872						IBP	,<AC+1>&17	;INC BYTE PNTR
  1873						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1874						ER5	AC+1,SN		;IBP FAILED
  1875						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1876					>
  1877
  1878			010001		SN=SN+1
  1879			140600			XX=XX-020000
  1880			220600			ZZ=ZZ-020000
  1881	031737	205 03 0 00 140600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1882	031740	205 06 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1883	031741	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1884	031742	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1885	031743	005 06 0 00 010001 		ER5	AC+1,SN		;IBP FAILED
  1886	031744	321 07 0 00 031737 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1887
  1888
  1889			010002		SN=SN+1
  1890			120600			XX=XX-020000
  1891			200600			ZZ=ZZ-020000
  1892	031745	205 03 0 00 120600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1893	031746	205 06 0 00 200600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1894	031747	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1895	031750	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1896	031751	005 06 0 00 010002 		ER5	AC+1,SN		;IBP FAILED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 30-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0061

  1897	031752	321 07 0 00 031745 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1898
  1899
  1900			010003		SN=SN+1
  1901			100600			XX=XX-020000
  1902			160600			ZZ=ZZ-020000
  1903	031753	205 03 0 00 100600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1904	031754	205 06 0 00 160600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1905	031755	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1906	031756	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1907	031757	005 06 0 00 010003 		ER5	AC+1,SN		;IBP FAILED
  1908	031760	321 07 0 00 031753 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1909
  1910
  1911			010004		SN=SN+1
  1912			060600			XX=XX-020000
  1913			140600			ZZ=ZZ-020000
  1914	031761	205 03 0 00 060600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1915	031762	205 06 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1916	031763	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1917	031764	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1918	031765	005 06 0 00 010004 		ER5	AC+1,SN		;IBP FAILED
  1919	031766	321 07 0 00 031761 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1920
  1921
  1922			010005		SN=SN+1
  1923			040600			XX=XX-020000
  1924			120600			ZZ=ZZ-020000
  1925	031767	205 03 0 00 040600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  1926	031770	205 06 0 00 120600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1927	031771	133 00 0 00 000006 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1928	031772	312 06 0 00 000003 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1929	031773	005 06 0 00 010005 		ER5	AC+1,SN		;IBP FAILED
  1930	031774	321 07 0 00 031767 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1931
  1932					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 30-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0062

  1933					;INST-IBP
  1934					;DECREASING S FIELD
  1935					;P FIELD=22
  1936					;S FIELD=14,12,10,6,4
  1937					;RESULTANT P FIELDS=6,10,12,14,16
  1938					;AN ERROR WILL OCCUR ON AN
  1939					;INCORRECT INCREMENTED PNTR WORD
  1940
  1941			000014			AC=14
  1942						SAVEAC	(1,1)^
  1943	031775	201 16 0 00 031775 		MOVEI	AC+2,.		;SAVE TEST PC
  1944	031776	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  1945	031777	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1946	032000	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1947
  1948			010100		SN=10100
  1949			040000			XX=040000
  1950			001600			WW=001600
  1951			221600			ZZ=221600
  1952
  1953							;TEST IBP
  1954					G10100:	REPEAT	^D5,<
  1955					SN=SN+1
  1956						XX=XX+020000
  1957						WW=WW-000200
  1958						ZZ=ZZ-000200
  1959						MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  1960						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1961						IBP	,<AC+1>&17	;INC BYTE PNTR
  1962						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1963						ER5	AC+1,SN		;IBP FAILED
  1964						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1965					>
  1966
  1967			010101		SN=SN+1
  1968			060000			XX=XX+020000
  1969			001400			WW=WW-000200
  1970			221400			ZZ=ZZ-000200
  1971	032001	205 12 0 00 061400 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  1972	032002	205 15 0 00 221400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1973	032003	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1974	032004	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1975	032005	005 15 0 00 010101 		ER5	AC+1,SN		;IBP FAILED
  1976	032006	321 16 0 00 032001 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1977
  1978
  1979			010102		SN=SN+1
  1980			100000			XX=XX+020000
  1981			001200			WW=WW-000200
  1982			221200			ZZ=ZZ-000200
  1983	032007	205 12 0 00 101200 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  1984	032010	205 15 0 00 221200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1985	032011	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1986	032012	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1987	032013	005 15 0 00 010102 		ER5	AC+1,SN		;IBP FAILED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 30-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0063

  1988	032014	321 16 0 00 032007 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1989
  1990
  1991			010103		SN=SN+1
  1992			120000			XX=XX+020000
  1993			001000			WW=WW-000200
  1994			221000			ZZ=ZZ-000200
  1995	032015	205 12 0 00 121000 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  1996	032016	205 15 0 00 221000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  1997	032017	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  1998	032020	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  1999	032021	005 15 0 00 010103 		ER5	AC+1,SN		;IBP FAILED
  2000	032022	321 16 0 00 032015 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2001
  2002
  2003			010104		SN=SN+1
  2004			140000			XX=XX+020000
  2005			000600			WW=WW-000200
  2006			220600			ZZ=ZZ-000200
  2007	032023	205 12 0 00 140600 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2008	032024	205 15 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2009	032025	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2010	032026	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2011	032027	005 15 0 00 010104 		ER5	AC+1,SN		;IBP FAILED
  2012	032030	321 16 0 00 032023 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2013
  2014
  2015			010105		SN=SN+1
  2016			160000			XX=XX+020000
  2017			000400			WW=WW-000200
  2018			220400			ZZ=ZZ-000200
  2019	032031	205 12 0 00 160400 		MOVSI	AC-2,XX+WW	;SETUP FOR COMPARISON
  2020	032032	205 15 0 00 220400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2021	032033	133 00 0 00 000015 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2022	032034	312 15 0 00 000012 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2023	032035	005 15 0 00 010105 		ER5	AC+1,SN		;IBP FAILED
  2024	032036	321 16 0 00 032031 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2025
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 31
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0064

  2026
  2027					;INST-IBP
  2028					;OVERFLOW AND INC ADDRESS
  2029					;P FIELD=0
  2030					;S FIELD=14,12,10,6,4
  2031					;RESULTANT P FIELDS=30,32,34,36,40
  2032					;ADDRESS FIELD INCREMENTED BY ONE
  2033					;AN ERROR WILL OCCUR ON AN INCORRECT
  2034					;INCREMENTED PNTR WORD
  2035
  2036			000013			AC=13
  2037						SAVEAC	(1,1)^
  2038	032037	201 15 0 00 032037 		MOVEI	AC+2,.		;SAVE TEST PC
  2039	032040	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  2040	032041	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2041	032042	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2042
  2043			010200		SN=10200
  2044			260000			XX=260000
  2045			001600			ZZ=001600
  2046
  2047							;TEST IBP
  2048					G10200:	REPEAT	^D5,<
  2049					SN=SN+1
  2050						XX=XX+020000
  2051						ZZ=ZZ-000200
  2052						MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2053						AOJ	AC-2,		;FOR COMPARISON
  2054						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2055						IBP	,<AC+1>&17	;INC BYTE PNTR
  2056						CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2057						ER5	AC+1,SN		;IBP FAILED
  2058						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2059					>
  2060
  2061			010201		SN=SN+1
  2062			300000			XX=XX+020000
  2063			001400			ZZ=ZZ-000200
  2064	032043	205 11 0 00 301400 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2065	032044	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2066	032045	205 14 0 00 001400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2067	032046	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2068	032047	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2069	032050	005 14 0 00 010201 		ER5	AC+1,SN		;IBP FAILED
  2070	032051	321 15 0 00 032043 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2071
  2072
  2073			010202		SN=SN+1
  2074			320000			XX=XX+020000
  2075			001200			ZZ=ZZ-000200
  2076	032052	205 11 0 00 321200 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2077	032053	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2078	032054	205 14 0 00 001200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2079	032055	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2080	032056	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 31-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0065

  2081	032057	005 14 0 00 010202 		ER5	AC+1,SN		;IBP FAILED
  2082	032060	321 15 0 00 032052 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2083
  2084
  2085			010203		SN=SN+1
  2086			340000			XX=XX+020000
  2087			001000			ZZ=ZZ-000200
  2088	032061	205 11 0 00 341000 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2089	032062	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2090	032063	205 14 0 00 001000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2091	032064	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2092	032065	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2093	032066	005 14 0 00 010203 		ER5	AC+1,SN		;IBP FAILED
  2094	032067	321 15 0 00 032061 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2095
  2096
  2097			010204		SN=SN+1
  2098			360000			XX=XX+020000
  2099			000600			ZZ=ZZ-000200
  2100	032070	205 11 0 00 360600 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2101	032071	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2102	032072	205 14 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2103	032073	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2104	032074	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2105	032075	005 14 0 00 010204 		ER5	AC+1,SN		;IBP FAILED
  2106	032076	321 15 0 00 032070 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2107
  2108
  2109			010205		SN=SN+1
  2110			400000			XX=XX+020000
  2111			000400			ZZ=ZZ-000200
  2112	032077	205 11 0 00 400400 		MOVSI	AC-2,XX+ZZ	;SETUP AC-2
  2113	032100	340 11 0 00 000000 		AOJ	AC-2,		;FOR COMPARISON
  2114	032101	205 14 0 00 000400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2115	032102	133 00 0 00 000014 		IBP	,<AC+1>&17	;INC BYTE PNTR
  2116	032103	312 14 0 00 000011 		CAME	AC+1,<AC-2>&17	;TEST INC PNTR
  2117	032104	005 14 0 00 010205 		ER5	AC+1,SN		;IBP FAILED
  2118	032105	321 15 0 00 032077 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2119
  2120					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 31-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0066

  2121					;INST-LDB
  2122					;INCREASING S FIELD
  2123					;P FIELD=22
  2124					;S FIELD=1,2,3,4,5
  2125					;BYTE WORD=777777000000
  2126					;AN ERROR WILL OCCUR IF AN
  2127					;IN CORRECT BYTE IS LOADED
  2128					;INTO AC
  2129
  2130			000012			AC=12
  2131						SAVEAC	(1,1)^
  2132	032106	201 14 0 00 032106 		MOVEI	AC+2,.		;SAVE TEST PC
  2133	032107	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  2134	032110	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2135	032111	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2136
  2137			010300		SN=10300
  2138			220000			XX=220000
  2139			000000			ZZ=0
  2140
  2141							;TEST LDB
  2142					G10300:	REPEAT	^D5,<
  2143					SN=SN+1
  2144						XX=XX+000100
  2145						ZZ=ZZ*2+1
  2146						MOVSI	AC+1,XX		;SETUP PNTR WORD
  2147						HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2148						LDB	AC,<AC+1>&17	;LOAD BYTE
  2149						CAIE	AC,ZZ		;TEST DEST AC
  2150						ER3	AC,SN		;LDB FAILED
  2151						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2152					>
  2153
  2154			010301		SN=SN+1
  2155			220100			XX=XX+000100
  2156			000001			ZZ=ZZ*2+1
  2157	032112	205 13 0 00 220100 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2158	032113	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2159	032114	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2160	032115	302 12 0 00 000001 		CAIE	AC,ZZ		;TEST DEST AC
  2161	032116	003 12 0 00 010301 		ER3	AC,SN		;LDB FAILED
  2162	032117	321 14 0 00 032112 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2163
  2164
  2165			010302		SN=SN+1
  2166			220200			XX=XX+000100
  2167			000003			ZZ=ZZ*2+1
  2168	032120	205 13 0 00 220200 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2169	032121	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2170	032122	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2171	032123	302 12 0 00 000003 		CAIE	AC,ZZ		;TEST DEST AC
  2172	032124	003 12 0 00 010302 		ER3	AC,SN		;LDB FAILED
  2173	032125	321 14 0 00 032120 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2174
  2175
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 31-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0067

  2176			010303		SN=SN+1
  2177			220300			XX=XX+000100
  2178			000007			ZZ=ZZ*2+1
  2179	032126	205 13 0 00 220300 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2180	032127	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2181	032130	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2182	032131	302 12 0 00 000007 		CAIE	AC,ZZ		;TEST DEST AC
  2183	032132	003 12 0 00 010303 		ER3	AC,SN		;LDB FAILED
  2184	032133	321 14 0 00 032126 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2185
  2186
  2187			010304		SN=SN+1
  2188			220400			XX=XX+000100
  2189			000017			ZZ=ZZ*2+1
  2190	032134	205 13 0 00 220400 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2191	032135	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2192	032136	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2193	032137	302 12 0 00 000017 		CAIE	AC,ZZ		;TEST DEST AC
  2194	032140	003 12 0 00 010304 		ER3	AC,SN		;LDB FAILED
  2195	032141	321 14 0 00 032134 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2196
  2197
  2198			010305		SN=SN+1
  2199			220500			XX=XX+000100
  2200			000037			ZZ=ZZ*2+1
  2201	032142	205 13 0 00 220500 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2202	032143	515 00 0 00 777777 		HRLZI	,-1		;SETUP BYTE WORD (AC0)
  2203	032144	135 12 0 00 000013 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2204	032145	302 12 0 00 000037 		CAIE	AC,ZZ		;TEST DEST AC
  2205	032146	003 12 0 00 010305 		ER3	AC,SN		;LDB FAILED
  2206	032147	321 14 0 00 032142 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2207
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 32
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0068

  2208
  2209					;INST-LDB
  2210					;INCREASING BYTE WORD
  2211					;INCREASING P FIELD
  2212					;P FIELD=14,17,22,25,33
  2213					;S FIELD=3
  2214					;BYTE WORD=000000070000 SHIFTING
  2215					;LEFT BY 3
  2216					;AN ERROR WILL OCCUR IF DEST AC
  2217					;DIFFERS FROM 7
  2218
  2219			000011			AC=11
  2220						SAVEAC	(1,1)^
  2221	032150	201 13 0 00 032150 		MOVEI	AC+2,.		;SAVE TEST PC
  2222	032151	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  2223	032152	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2224	032153	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2225
  2226			010400		SN=10400
  2227			000000			XX=0
  2228			110300			ZZ=110300
  2229
  2230							;TEST LDB
  2231					G10400:	REPEAT	^D5,<
  2232					SN=SN+1
  2233						XX=XX+3
  2234						ZZ=ZZ+030000
  2235						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2236						MOVEI	,7000		;SETUP BYTE WORD
  2237						ROT	,XX		;ROTATE LEFT BY 3
  2238						LDB	AC,<AC+1>&17	;LOAD BYTE
  2239						CAIE	AC,7		;TEST DEST AC=7
  2240						ER3	AC,SN		;LDB FAILED
  2241						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2242					>
  2243
  2244			010401		SN=SN+1
  2245			000003			XX=XX+3
  2246			140300			ZZ=ZZ+030000
  2247	032154	205 12 0 00 140300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2248	032155	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2249	032156	241 00 0 00 000003 		ROT	,XX		;ROTATE LEFT BY 3
  2250	032157	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2251	032160	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2252	032161	003 11 0 00 010401 		ER3	AC,SN		;LDB FAILED
  2253	032162	321 13 0 00 032154 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2254
  2255
  2256			010402		SN=SN+1
  2257			000006			XX=XX+3
  2258			170300			ZZ=ZZ+030000
  2259	032163	205 12 0 00 170300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2260	032164	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2261	032165	241 00 0 00 000006 		ROT	,XX		;ROTATE LEFT BY 3
  2262	032166	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 32-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0069

  2263	032167	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2264	032170	003 11 0 00 010402 		ER3	AC,SN		;LDB FAILED
  2265	032171	321 13 0 00 032163 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2266
  2267
  2268			010403		SN=SN+1
  2269			000011			XX=XX+3
  2270			220300			ZZ=ZZ+030000
  2271	032172	205 12 0 00 220300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2272	032173	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2273	032174	241 00 0 00 000011 		ROT	,XX		;ROTATE LEFT BY 3
  2274	032175	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2275	032176	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2276	032177	003 11 0 00 010403 		ER3	AC,SN		;LDB FAILED
  2277	032200	321 13 0 00 032172 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2278
  2279
  2280			010404		SN=SN+1
  2281			000014			XX=XX+3
  2282			250300			ZZ=ZZ+030000
  2283	032201	205 12 0 00 250300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2284	032202	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2285	032203	241 00 0 00 000014 		ROT	,XX		;ROTATE LEFT BY 3
  2286	032204	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2287	032205	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2288	032206	003 11 0 00 010404 		ER3	AC,SN		;LDB FAILED
  2289	032207	321 13 0 00 032201 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2290
  2291
  2292			010405		SN=SN+1
  2293			000017			XX=XX+3
  2294			300300			ZZ=ZZ+030000
  2295	032210	205 12 0 00 300300 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  2296	032211	201 00 0 00 007000 		MOVEI	,7000		;SETUP BYTE WORD
  2297	032212	241 00 0 00 000017 		ROT	,XX		;ROTATE LEFT BY 3
  2298	032213	135 11 0 00 000012 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2299	032214	302 11 0 00 000007 		CAIE	AC,7		;TEST DEST AC=7
  2300	032215	003 11 0 00 010405 		ER3	AC,SN		;LDB FAILED
  2301	032216	321 13 0 00 032210 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2302
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 33
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0070

  2303
  2304					;INST-LDB
  2305					;VARY BYTE ADDRESS
  2306					;P FIELD=22
  2307					;S FIELD=3
  2308					;BYTE WORD=AC NUMBER
  2309					;BYTE PNTR ADDR=AC 6,5,4,3,2
  2310					;AN ERROR WILL OCCUR IF C(DEST AC)
  2311					;DIFFERS FROM AC UNDER TEST
  2312
  2313			000007			AC=7
  2314						SAVEAC	(1,1)^
  2315	032217	201 11 0 00 032217 		MOVEI	AC+2,.		;SAVE TEST PC
  2316	032220	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  2317	032221	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2318	032222	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2319
  2320			010500		SN=10500
  2321			000007			ZZ=7
  2322
  2323							;TEST LOAD BYTE
  2324					G10500:	REPEAT	^D5,<
  2325					SN=SN+1
  2326						ZZ=ZZ-1
  2327						HRLI	AC+1,220300	;SETUP BYTE
  2328						HRRI	AC+1,ZZ		;PNTR WORD
  2329						MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2330						LDB	AC,<AC+1>&17	;LOAD BYTE
  2331						CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2332						ER3	AC,SN		;LDB FAILED
  2333						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2334					>
  2335
  2336			010501		SN=SN+1
  2337			000006			ZZ=ZZ-1
  2338	032223	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2339	032224	541 10 0 00 000006 		HRRI	AC+1,ZZ		;PNTR WORD
  2340	032225	205 06 0 00 000006 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2341	032226	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2342	032227	302 07 0 00 000006 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2343	032230	003 07 0 00 010501 		ER3	AC,SN		;LDB FAILED
  2344	032231	321 11 0 00 032223 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2345
  2346
  2347			010502		SN=SN+1
  2348			000005			ZZ=ZZ-1
  2349	032232	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2350	032233	541 10 0 00 000005 		HRRI	AC+1,ZZ		;PNTR WORD
  2351	032234	205 05 0 00 000005 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2352	032235	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2353	032236	302 07 0 00 000005 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2354	032237	003 07 0 00 010502 		ER3	AC,SN		;LDB FAILED
  2355	032240	321 11 0 00 032232 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2356
  2357
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 33-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0071

  2358			010503		SN=SN+1
  2359			000004			ZZ=ZZ-1
  2360	032241	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2361	032242	541 10 0 00 000004 		HRRI	AC+1,ZZ		;PNTR WORD
  2362	032243	205 04 0 00 000004 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2363	032244	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2364	032245	302 07 0 00 000004 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2365	032246	003 07 0 00 010503 		ER3	AC,SN		;LDB FAILED
  2366	032247	321 11 0 00 032241 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2367
  2368
  2369			010504		SN=SN+1
  2370			000003			ZZ=ZZ-1
  2371	032250	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2372	032251	541 10 0 00 000003 		HRRI	AC+1,ZZ		;PNTR WORD
  2373	032252	205 03 0 00 000003 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2374	032253	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2375	032254	302 07 0 00 000003 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2376	032255	003 07 0 00 010504 		ER3	AC,SN		;LDB FAILED
  2377	032256	321 11 0 00 032250 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2378
  2379
  2380			010505		SN=SN+1
  2381			000002			ZZ=ZZ-1
  2382	032257	505 10 0 00 220300 		HRLI	AC+1,220300	;SETUP BYTE
  2383	032260	541 10 0 00 000002 		HRRI	AC+1,ZZ		;PNTR WORD
  2384	032261	205 02 0 00 000002 		MOVSI	ZZ,ZZ		;SETUP BYTE WORD
  2385	032262	135 07 0 00 000010 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2386	032263	302 07 0 00 000002 		CAIE	AC,ZZ		;TEST DEST AC=AC NUMBER
  2387	032264	003 07 0 00 010505 		ER3	AC,SN		;LDB FAILED
  2388	032265	321 11 0 00 032257 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2389
  2390					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 33-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0072

  2391					;INST-LDB
  2392					;BYTE PNTR INDEXED
  2393					;P FIELD=0
  2394					;S FIELD=3
  2395					;BYTE WORD=PNTR WORD
  2396					;AN ERROR WILL OCCUR IF LOADED
  2397					;BYTE DIFFERS FROM CURRENT
  2398					;AC NUMBER
  2399
  2400			000010			AC=10
  2401						SAVEAC	(1,1)^
  2402	032266	201 12 0 00 032266 		MOVEI	AC+2,.		;SAVE TEST PC
  2403	032267	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  2404	032270	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2405	032271	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2406
  2407			010600		SN=10600
  2408			000000			ZZ=0
  2409
  2410							;TEST LDB INDEXED
  2411					G10600:	REPEAT	^D5,<
  2412					SN=SN+1
  2413						ZZ=ZZ+1
  2414						MOVSI	,000300		;SETUP NON IND PNTR WORD
  2415						HRLI	ZZ,000300	;SETUP INDEXED
  2416						HRRI	ZZ,ZZ		;PNTR WORD
  2417						LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2418						CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2419						ER3	AC,SN		;LDB FAILED
  2420						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2421					>
  2422
  2423			010601		SN=SN+1
  2424			000001			ZZ=ZZ+1
  2425	032272	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2426	032273	505 01 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2427	032274	541 01 0 00 000001 		HRRI	ZZ,ZZ		;PNTR WORD
  2428	032275	135 10 0 01 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2429	032276	302 10 0 00 000001 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2430	032277	003 10 0 00 010601 		ER3	AC,SN		;LDB FAILED
  2431	032300	321 12 0 00 032272 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2432
  2433
  2434			010602		SN=SN+1
  2435			000002			ZZ=ZZ+1
  2436	032301	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2437	032302	505 02 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2438	032303	541 02 0 00 000002 		HRRI	ZZ,ZZ		;PNTR WORD
  2439	032304	135 10 0 02 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2440	032305	302 10 0 00 000002 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2441	032306	003 10 0 00 010602 		ER3	AC,SN		;LDB FAILED
  2442	032307	321 12 0 00 032301 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2443
  2444
  2445			010603		SN=SN+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 33-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0073

  2446			000003			ZZ=ZZ+1
  2447	032310	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2448	032311	505 03 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2449	032312	541 03 0 00 000003 		HRRI	ZZ,ZZ		;PNTR WORD
  2450	032313	135 10 0 03 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2451	032314	302 10 0 00 000003 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2452	032315	003 10 0 00 010603 		ER3	AC,SN		;LDB FAILED
  2453	032316	321 12 0 00 032310 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2454
  2455
  2456			010604		SN=SN+1
  2457			000004			ZZ=ZZ+1
  2458	032317	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2459	032320	505 04 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2460	032321	541 04 0 00 000004 		HRRI	ZZ,ZZ		;PNTR WORD
  2461	032322	135 10 0 04 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2462	032323	302 10 0 00 000004 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2463	032324	003 10 0 00 010604 		ER3	AC,SN		;LDB FAILED
  2464	032325	321 12 0 00 032317 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2465
  2466
  2467			010605		SN=SN+1
  2468			000005			ZZ=ZZ+1
  2469	032326	205 00 0 00 000300 		MOVSI	,000300		;SETUP NON IND PNTR WORD
  2470	032327	505 05 0 00 000300 		HRLI	ZZ,000300	;SETUP INDEXED
  2471	032330	541 05 0 00 000005 		HRRI	ZZ,ZZ		;PNTR WORD
  2472	032331	135 10 0 05 000000 		LDB	AC,(ZZ)		;LOAD BYTE INDEXED
  2473	032332	302 10 0 00 000005 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2474	032333	003 10 0 00 010605 		ER3	AC,SN		;LDB FAILED
  2475	032334	321 12 0 00 032326 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2476
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 34
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0074

  2477
  2478					;INST-LDB
  2479					;BYTE PNTR INDIRECTLY ADDRESSED
  2480					;P FIELD=0
  2481					;S FIELD=3
  2482					;BYTE WORD=PNTR WORD
  2483					;AN ERROR WILL OCCUR IF LOADED
  2484					;BYTE DIFFERS FROM CURRENT
  2485					;AC NUMBER
  2486
  2487			000007			AC=7
  2488						SAVEAC	(1,1)^
  2489	032335	201 11 0 00 032335 		MOVEI	AC+2,.		;SAVE TEST PC
  2490	032336	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  2491	032337	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2492	032340	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2493
  2494			010700		SN=10700
  2495			000000			ZZ=0
  2496
  2497							;TEST LDB INDIRECTLY ADDRESSED
  2498					G10700:	REPEAT	^D5,<
  2499					SN=SN+1
  2500						ZZ=ZZ+1
  2501						MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2502						HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2503						HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2504						HRRI	ZZ,ZZ		;PNTR WORD
  2505						SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2506						LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2507						CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2508						ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2509						JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2510					>
  2511
  2512			010701		SN=SN+1
  2513			000001			ZZ=ZZ+1
  2514	032341	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2515	032342	541 10 0 00 000001 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2516	032343	505 01 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2517	032344	541 01 0 00 000001 		HRRI	ZZ,ZZ		;PNTR WORD
  2518	032345	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2519	032346	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2520	032347	302 07 0 00 000001 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2521	032350	003 07 0 00 010701 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2522	032351	321 11 0 00 032341 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2523
  2524
  2525			010702		SN=SN+1
  2526			000002			ZZ=ZZ+1
  2527	032352	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2528	032353	541 10 0 00 000002 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2529	032354	505 02 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2530	032355	541 02 0 00 000002 		HRRI	ZZ,ZZ		;PNTR WORD
  2531	032356	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 34-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0075

  2532	032357	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2533	032360	302 07 0 00 000002 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2534	032361	003 07 0 00 010702 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2535	032362	321 11 0 00 032352 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2536
  2537
  2538			010703		SN=SN+1
  2539			000003			ZZ=ZZ+1
  2540	032363	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2541	032364	541 10 0 00 000003 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2542	032365	505 03 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2543	032366	541 03 0 00 000003 		HRRI	ZZ,ZZ		;PNTR WORD
  2544	032367	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2545	032370	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2546	032371	302 07 0 00 000003 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2547	032372	003 07 0 00 010703 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2548	032373	321 11 0 00 032363 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2549
  2550
  2551			010704		SN=SN+1
  2552			000004			ZZ=ZZ+1
  2553	032374	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2554	032375	541 10 0 00 000004 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2555	032376	505 04 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2556	032377	541 04 0 00 000004 		HRRI	ZZ,ZZ		;PNTR WORD
  2557	032400	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2558	032401	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2559	032402	302 07 0 00 000004 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2560	032403	003 07 0 00 010704 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2561	032404	321 11 0 00 032374 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2562
  2563
  2564			010705		SN=SN+1
  2565			000005			ZZ=ZZ+1
  2566	032405	205 10 0 00 440300 		MOVSI	AC+1,440300	;SETUP DIRECTLY ADDRESSED PNTR WORD
  2567	032406	541 10 0 00 000005 		HRRI	AC+1,ZZ		;SETUP INDIRECT ADDRESS
  2568	032407	505 05 0 00 000300 		HRLI	ZZ,000300	;SETUP INDIRECTLY ADDRESSED
  2569	032410	541 05 0 00 000005 		HRRI	ZZ,ZZ		;PNTR WORD
  2570	032411	400 00 0 00 000000 		SETZ			;SETUP DIRECTLY ADDRESSED BYTE WORD
  2571	032412	135 07 1 00 000010 		LDB	AC,@<AC+1>&17	;LOAD BYTE INDIRECTLY ADDRESSED
  2572	032413	302 07 0 00 000005 		CAIE	AC,ZZ		;TEST FOR AC NUMBER
  2573	032414	003 07 0 00 010705 		ER3	AC,SN		;LDB INDIRECTLY ADDRESSED FAILED
  2574	032415	321 11 0 00 032405 		JUMPL	AC+2,.-10	;LOOP ON ERROR SWITCH
  2575
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 35
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0076

  2576					;INST-LDB
  2577					;PNTR INDEXED AND INDIRECTLY ADDRESSED
  2578					;P FIELD=0
  2579					;S FIELD=6
  2580					;PNTR WORD IS IN AC 12,13,14
  2581					;BYTE WORD=PNTR WORD
  2582					;LOADED BYTE SHOULD EQUAL
  2583					;12,13,14
  2584
  2585			000010			AC=10
  2586						SAVEAC	(1,1)^
  2587	032416	201 12 0 00 032416 		MOVEI	AC+2,.		;SAVE TEST PC
  2588	032417	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  2589	032420	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2590	032421	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2591
  2592			011000		SN=11000
  2593			000003			VV=3
  2594			000006			WW=6
  2595			000011			XX=11
  2596			000003			ZZ=3
  2597
  2598							;TEST LDB INDEXED, INDIRECTLY ADDRESSED
  2599					G11000:	REPEAT	^D3,<
  2600					SN=SN+1
  2601						VV=VV+1
  2602						WW=WW+1
  2603						XX=XX+1
  2604						ZZ=ZZ+1
  2605						MOVEI	VV,WW		;SETUP INDEX AC
  2606						MOVEI	WW,XX		;SETUP INDIRECT AC
  2607						HRLI	XX,000600	;SETUP INDEXED AND
  2608						HRRI	XX,XX		;INDIRECT PNTR WORD
  2609						LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2610						CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2611						ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2612						JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2613					>
  2614
  2615			011001		SN=SN+1
  2616			000004			VV=VV+1
  2617			000007			WW=WW+1
  2618			000012			XX=XX+1
  2619			000004			ZZ=ZZ+1
  2620	032422	201 04 0 00 000007 		MOVEI	VV,WW		;SETUP INDEX AC
  2621	032423	201 07 0 00 000012 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2622	032424	505 12 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2623	032425	541 12 0 00 000012 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2624	032426	135 10 1 04 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2625	032427	302 10 0 00 000012 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2626	032430	003 10 0 00 011001 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2627	032431	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2628
  2629
  2630			011002		SN=SN+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 35-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0077

  2631			000005			VV=VV+1
  2632			000010			WW=WW+1
  2633			000013			XX=XX+1
  2634			000005			ZZ=ZZ+1
  2635	032432	201 05 0 00 000010 		MOVEI	VV,WW		;SETUP INDEX AC
  2636	032433	201 10 0 00 000013 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2637	032434	505 13 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2638	032435	541 13 0 00 000013 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2639	032436	135 10 1 05 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2640	032437	302 10 0 00 000013 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2641	032440	003 10 0 00 011002 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2642	032441	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2643
  2644
  2645			011003		SN=SN+1
  2646			000006			VV=VV+1
  2647			000011			WW=WW+1
  2648			000014			XX=XX+1
  2649			000006			ZZ=ZZ+1
  2650	032442	201 06 0 00 000011 		MOVEI	VV,WW		;SETUP INDEX AC
  2651	032443	201 11 0 00 000014 		MOVEI	WW,XX		;SETUP INDIRECT AC
  2652	032444	505 14 0 00 000600 		HRLI	XX,000600	;SETUP INDEXED AND
  2653	032445	541 14 0 00 000014 		HRRI	XX,XX		;INDIRECT PNTR WORD
  2654	032446	135 10 1 06 000000 		LDB	AC,@(ZZ)	;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
  2655	032447	302 10 0 00 000014 		CAIE	AC,XX		;TEST LOAD BYTE=12,13,14
  2656	032450	003 10 0 00 011003 		ER3	AC,SN		;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
  2657	032451	321 12 0 00 000010 		JUMPL	AC+2,^D8	;LOOP ON ERROR SWITCH
  2658
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 36
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0078

  2659
  2660					;INST-LDB
  2661					;INDEX BYTE ADDRESS
  2662					;P FIELD=0
  2663					;S FIELD=6
  2664					;INDEX AC=AC7
  2665					;BYTE WORD ADDRESS=AC 7,10,11,12,13
  2666					;AN ERROR WILL OCCUR IF LOADED BYTE
  2667					;DIFFERS CURRENT AC
  2668
  2669			000004			AC=4
  2670						SAVEAC	(1,1)^
  2671	032452	201 06 0 00 032452 		MOVEI	AC+2,.		;SAVE TEST PC
  2672	032453	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2673	032454	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2674	032455	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2675
  2676			011100		SN=11100
  2677			000006			ZZ=6
  2678
  2679							;TEST LDB BYTE ADDR INDEXED
  2680					G11100:	REPEAT	^D5,<
  2681					SN=SN+1
  2682						ZZ=ZZ+1
  2683						MOVSI	AC+1,000607	;SETUP PNTR WORD
  2684						MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2685						MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2686						LDB	AC,<AC+1>&17	;LOAD BYTE
  2687						CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2688						ER3	AC,SN		;LDB FAILED
  2689						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2690					>
  2691
  2692			011101		SN=SN+1
  2693			000007			ZZ=ZZ+1
  2694	032456	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2695	032457	201 07 0 00 000007 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2696	032460	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2697	032461	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2698	032462	302 04 0 00 000007 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2699	032463	003 04 0 00 011101 		ER3	AC,SN		;LDB FAILED
  2700	032464	321 06 0 00 032456 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2701
  2702
  2703			011102		SN=SN+1
  2704			000010			ZZ=ZZ+1
  2705	032465	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2706	032466	201 07 0 00 000010 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2707	032467	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2708	032470	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2709	032471	302 04 0 00 000010 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2710	032472	003 04 0 00 011102 		ER3	AC,SN		;LDB FAILED
  2711	032473	321 06 0 00 032465 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2712
  2713
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 36-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0079

  2714			011103		SN=SN+1
  2715			000011			ZZ=ZZ+1
  2716	032474	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2717	032475	201 07 0 00 000011 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2718	032476	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2719	032477	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2720	032500	302 04 0 00 000011 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2721	032501	003 04 0 00 011103 		ER3	AC,SN		;LDB FAILED
  2722	032502	321 06 0 00 032474 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2723
  2724
  2725			011104		SN=SN+1
  2726			000012			ZZ=ZZ+1
  2727	032503	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2728	032504	201 07 0 00 000012 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2729	032505	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2730	032506	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2731	032507	302 04 0 00 000012 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2732	032510	003 04 0 00 011104 		ER3	AC,SN		;LDB FAILED
  2733	032511	321 06 0 00 032503 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2734
  2735
  2736			011105		SN=SN+1
  2737			000013			ZZ=ZZ+1
  2738	032512	205 05 0 00 000607 		MOVSI	AC+1,000607	;SETUP PNTR WORD
  2739	032513	201 07 0 00 000013 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2740	032514	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2741	032515	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2742	032516	302 04 0 00 000013 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2743	032517	003 04 0 00 011105 		ER3	AC,SN		;LDB FAILED
  2744	032520	321 06 0 00 032512 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2745
  2746					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 36-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0080

  2747					;INST-LDB
  2748					;BYTE INDIRECTLY ADDRESSED
  2749					;P FIELD=0
  2750					;S FIELD=6
  2751					;BYTE WORD ADDRESS=AC7,10,11,12,13
  2752					;AN ERROR WILL OCCUR IF LOADED
  2753					;BYTE DIFFERS FROM CURRENT AC
  2754
  2755			000004			AC=4
  2756						SAVEAC	(1,1)^
  2757	032521	201 06 0 00 032521 		MOVEI	AC+2,.		;SAVE TEST PC
  2758	032522	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2759	032523	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2760	032524	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2761
  2762			011200		SN=11200
  2763			000006			ZZ=6
  2764
  2765							;TEST LDB, BYTE INDIRECTLY ADDRESSED
  2766					G11200:	REPEAT	^D5,<
  2767					SN=SN+1
  2768						ZZ=ZZ+1
  2769						MOVSI	AC+1,000620	;SETUP PNTR WORD
  2770						MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2771						MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2772						LDB	AC,<AC+1>&17	;LOAD BYTE
  2773						CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2774						ER3	AC,SN		;LDB FAILED
  2775						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2776					>
  2777
  2778			011201		SN=SN+1
  2779			000007			ZZ=ZZ+1
  2780	032525	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2781	032526	201 00 0 00 000007 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2782	032527	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2783	032530	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2784	032531	302 04 0 00 000007 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2785	032532	003 04 0 00 011201 		ER3	AC,SN		;LDB FAILED
  2786	032533	321 06 0 00 032525 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2787
  2788
  2789			011202		SN=SN+1
  2790			000010			ZZ=ZZ+1
  2791	032534	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2792	032535	201 00 0 00 000010 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2793	032536	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2794	032537	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2795	032540	302 04 0 00 000010 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2796	032541	003 04 0 00 011202 		ER3	AC,SN		;LDB FAILED
  2797	032542	321 06 0 00 032534 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2798
  2799
  2800			011203		SN=SN+1
  2801			000011			ZZ=ZZ+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 36-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0081

  2802	032543	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2803	032544	201 00 0 00 000011 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2804	032545	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2805	032546	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2806	032547	302 04 0 00 000011 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2807	032550	003 04 0 00 011203 		ER3	AC,SN		;LDB FAILED
  2808	032551	321 06 0 00 032543 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2809
  2810
  2811			011204		SN=SN+1
  2812			000012			ZZ=ZZ+1
  2813	032552	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2814	032553	201 00 0 00 000012 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2815	032554	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2816	032555	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2817	032556	302 04 0 00 000012 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2818	032557	003 04 0 00 011204 		ER3	AC,SN		;LDB FAILED
  2819	032560	321 06 0 00 032552 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2820
  2821
  2822			011205		SN=SN+1
  2823			000013			ZZ=ZZ+1
  2824	032561	205 05 0 00 000620 		MOVSI	AC+1,000620	;SETUP PNTR WORD
  2825	032562	201 00 0 00 000013 		MOVEI	,ZZ		;SETUP DEFER ADDRESS
  2826	032563	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;SETUP BYTE WORD
  2827	032564	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2828	032565	302 04 0 00 000013 		CAIE	AC,ZZ		;TEST BYTE=7,10,11,12,13
  2829	032566	003 04 0 00 011205 		ER3	AC,SN		;LDB FAILED
  2830	032567	321 06 0 00 032561 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2831
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 37
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0082

  2832
  2833					;INST-LDB
  2834					;BYTE ADDRESS INDEXED AND INDIRECT
  2835					;P FIELD=0
  2836					;S FIELD=6
  2837					;BYTE ADDRESS=AC13,14,15
  2838					;BYTE WORD=13,14,15
  2839					;AN ERROR WILL OCCUR IF LOADED
  2840					;BYTE DIFFERS FROM CURRENT AC
  2841
  2842			000004			AC=4
  2843						SAVEAC	(1,1)^
  2844	032570	201 06 0 00 032570 		MOVEI	AC+2,.		;SAVE TEST PC
  2845	032571	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2846	032572	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2847	032573	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2848
  2849			011300		SN=11300
  2850			000012			XX=12
  2851			000007			ZZ=7
  2852
  2853							;TEST LDB, BYTE ADDR INDEXED AND INDIRECT
  2854					G11300:	REPEAT	^D3,<
  2855					SN=SN+1
  2856						XX=XX+1
  2857						ZZ=ZZ+1
  2858						MOVSI	AC+1,000627	;SETUP PNTR WORD
  2859						MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2860						MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2861						MOVEI	XX,XX		;SETUP BYTE WORD
  2862						LDB	AC,<AC+1>&17	;LOAD BYTE
  2863						CAIE	AC,XX		;TEST BYTE=13,14,15
  2864						ER3	AC,SN		;LDB FAILED
  2865						JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2866					>
  2867
  2868			011301		SN=SN+1
  2869			000013			XX=XX+1
  2870			000010			ZZ=ZZ+1
  2871	032574	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2872	032575	201 07 0 00 000010 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2873	032576	201 10 0 00 000013 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2874	032577	201 13 0 00 000013 		MOVEI	XX,XX		;SETUP BYTE WORD
  2875	032600	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2876	032601	302 04 0 00 000013 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2877	032602	003 04 0 00 011301 		ER3	AC,SN		;LDB FAILED
  2878	032603	321 06 0 00 032574 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2879
  2880
  2881			011302		SN=SN+1
  2882			000014			XX=XX+1
  2883			000011			ZZ=ZZ+1
  2884	032604	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2885	032605	201 07 0 00 000011 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2886	032606	201 11 0 00 000014 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 37-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0083

  2887	032607	201 14 0 00 000014 		MOVEI	XX,XX		;SETUP BYTE WORD
  2888	032610	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2889	032611	302 04 0 00 000014 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2890	032612	003 04 0 00 011302 		ER3	AC,SN		;LDB FAILED
  2891	032613	321 06 0 00 032604 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2892
  2893
  2894			011303		SN=SN+1
  2895			000015			XX=XX+1
  2896			000012			ZZ=ZZ+1
  2897	032614	205 05 0 00 000627 		MOVSI	AC+1,000627	;SETUP PNTR WORD
  2898	032615	201 07 0 00 000012 		MOVEI	AC+3,ZZ		;SETUP INDEX AC
  2899	032616	201 12 0 00 000015 		MOVEI	ZZ,XX		;SETUP INDIRECT ADDR
  2900	032617	201 15 0 00 000015 		MOVEI	XX,XX		;SETUP BYTE WORD
  2901	032620	135 04 0 00 000005 		LDB	AC,<AC+1>&17	;LOAD BYTE
  2902	032621	302 04 0 00 000015 		CAIE	AC,XX		;TEST BYTE=13,14,15
  2903	032622	003 04 0 00 011303 		ER3	AC,SN		;LDB FAILED
  2904	032623	321 06 0 00 032614 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2905
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 38
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0084

  2906
  2907					;INST-ILDB
  2908					;DECREASING P FIELD
  2909					;P FIELD=44,36,30,22,14
  2910					;S FIELD=6
  2911					;BYTE ADDRESS=AC0
  2912					;AN ERROR WILL OCCUR IF AC DIFFERS
  2913					;FROM 77
  2914
  2915			000005			AC=5
  2916						SAVEAC	(1,1)^
  2917	032624	201 07 0 00 032624 		MOVEI	AC+2,.		;SAVE TEST PC
  2918	032625	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  2919	032626	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2920	032627	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2921
  2922			011400		SN=11400
  2923			520600			XX=520600
  2924			000000			ZZ=0
  2925
  2926							;TEST ILDB
  2927					G11400:	REPEAT	^D5,<
  2928					SN=SN+1
  2929						XX=XX-060000
  2930						ZZ=ZZ-6
  2931						MOVSI	AC+1,XX		;SETUP PNTR WORD
  2932						MOVEI	,77		;SETUP BYTE WORD
  2933						ROT	,ZZ		;ROTATE RIGHT
  2934						ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2935						CAIE	AC,77		;TEST AC=77
  2936						ER3	AC,SN		;ILDB FAILED
  2937						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2938					>
  2939
  2940			011401		SN=SN+1
  2941			440600			XX=XX-060000
  2942		777777	777772			ZZ=ZZ-6
  2943	032630	205 06 0 00 440600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2944	032631	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2945	032632	241 00 0 00 777772 		ROT	,ZZ		;ROTATE RIGHT
  2946	032633	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2947	032634	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2948	032635	003 05 0 00 011401 		ER3	AC,SN		;ILDB FAILED
  2949	032636	321 07 0 00 032630 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2950
  2951
  2952			011402		SN=SN+1
  2953			360600			XX=XX-060000
  2954		777777	777764			ZZ=ZZ-6
  2955	032637	205 06 0 00 360600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2956	032640	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2957	032641	241 00 0 00 777764 		ROT	,ZZ		;ROTATE RIGHT
  2958	032642	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2959	032643	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2960	032644	003 05 0 00 011402 		ER3	AC,SN		;ILDB FAILED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 38-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0085

  2961	032645	321 07 0 00 032637 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2962
  2963
  2964			011403		SN=SN+1
  2965			300600			XX=XX-060000
  2966		777777	777756			ZZ=ZZ-6
  2967	032646	205 06 0 00 300600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2968	032647	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2969	032650	241 00 0 00 777756 		ROT	,ZZ		;ROTATE RIGHT
  2970	032651	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2971	032652	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2972	032653	003 05 0 00 011403 		ER3	AC,SN		;ILDB FAILED
  2973	032654	321 07 0 00 032646 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2974
  2975
  2976			011404		SN=SN+1
  2977			220600			XX=XX-060000
  2978		777777	777750			ZZ=ZZ-6
  2979	032655	205 06 0 00 220600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2980	032656	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2981	032657	241 00 0 00 777750 		ROT	,ZZ		;ROTATE RIGHT
  2982	032660	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2983	032661	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2984	032662	003 05 0 00 011404 		ER3	AC,SN		;ILDB FAILED
  2985	032663	321 07 0 00 032655 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2986
  2987
  2988			011405		SN=SN+1
  2989			140600			XX=XX-060000
  2990		777777	777742			ZZ=ZZ-6
  2991	032664	205 06 0 00 140600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  2992	032665	201 00 0 00 000077 		MOVEI	,77		;SETUP BYTE WORD
  2993	032666	241 00 0 00 777742 		ROT	,ZZ		;ROTATE RIGHT
  2994	032667	134 05 0 00 000006 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  2995	032670	302 05 0 00 000077 		CAIE	AC,77		;TEST AC=77
  2996	032671	003 05 0 00 011405 		ER3	AC,SN		;ILDB FAILED
  2997	032672	321 07 0 00 032664 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2998
  2999					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 38-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0086

  3000					;INST-ILDB
  3001					;INCREASING S FIELD
  3002					;CALCULATE NEW P FIELD, INCREMENT
  3003					;BYTE WORD ADDRESS
  3004					;P FIELD=0
  3005					;S FIELD=6,14,22,30,36
  3006					;AN ERROR WILL OCCUR IF AC
  3007					;DIFFERS FROM 77
  3008
  3009			000014			AC=14
  3010						SAVEAC	(1,1)^
  3011	032673	201 16 0 00 032673 		MOVEI	AC+2,.		;SAVE TEST PC
  3012	032674	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  3013	032675	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3014	032676	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3015
  3016			011500		SN=11500
  3017			000000			XX=0
  3018			000000			ZZ=0
  3019
  3020							;TEST ILDB
  3021					G11500:	REPEAT	^D5,<
  3022					SN=SN+1
  3023						XX=XX+600
  3024						ZZ=ZZ-6
  3025						MOVSI	AC+1,XX		;SETUP PNTR WORD
  3026						MOVEI	1,77		;SETUP BYTE WORD
  3027						ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3028						ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3029						CAIE	AC,77		;TEST AC=77
  3030						ER3	AC,SN		;ILDB FAILED
  3031						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3032					>
  3033
  3034			011501		SN=SN+1
  3035			000600			XX=XX+600
  3036		777777	777772			ZZ=ZZ-6
  3037	032677	205 15 0 00 000600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3038	032700	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3039	032701	241 01 0 00 777772 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3040	032702	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3041	032703	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3042	032704	003 14 0 00 011501 		ER3	AC,SN		;ILDB FAILED
  3043	032705	321 16 0 00 032677 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3044
  3045
  3046			011502		SN=SN+1
  3047			001400			XX=XX+600
  3048		777777	777764			ZZ=ZZ-6
  3049	032706	205 15 0 00 001400 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3050	032707	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3051	032710	241 01 0 00 777764 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3052	032711	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3053	032712	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3054	032713	003 14 0 00 011502 		ER3	AC,SN		;ILDB FAILED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 38-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0087

  3055	032714	321 16 0 00 032706 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3056
  3057
  3058			011503		SN=SN+1
  3059			002200			XX=XX+600
  3060		777777	777756			ZZ=ZZ-6
  3061	032715	205 15 0 00 002200 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3062	032716	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3063	032717	241 01 0 00 777756 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3064	032720	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3065	032721	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3066	032722	003 14 0 00 011503 		ER3	AC,SN		;ILDB FAILED
  3067	032723	321 16 0 00 032715 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3068
  3069
  3070			011504		SN=SN+1
  3071			003000			XX=XX+600
  3072		777777	777750			ZZ=ZZ-6
  3073	032724	205 15 0 00 003000 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3074	032725	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3075	032726	241 01 0 00 777750 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3076	032727	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3077	032730	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3078	032731	003 14 0 00 011504 		ER3	AC,SN		;ILDB FAILED
  3079	032732	321 16 0 00 032724 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3080
  3081
  3082			011505		SN=SN+1
  3083			003600			XX=XX+600
  3084		777777	777742			ZZ=ZZ-6
  3085	032733	205 15 0 00 003600 		MOVSI	AC+1,XX		;SETUP PNTR WORD
  3086	032734	201 01 0 00 000077 		MOVEI	1,77		;SETUP BYTE WORD
  3087	032735	241 01 0 00 777742 		ROT	1,ZZ		;ROTATE RIGHT BYTE WORD
  3088	032736	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;INC AND LOAD BYTE
  3089	032737	302 14 0 00 000077 		CAIE	AC,77		;TEST AC=77
  3090	032740	003 14 0 00 011505 		ER3	AC,SN		;ILDB FAILED
  3091	032741	321 16 0 00 032733 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3092
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 39
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0088

  3093
  3094					;INST-ILDB
  3095					;TESTING SPECIAL POINTER
  3096					;WHICH SETS AC TO ZERO
  3097					;PFIELD=20 ORIG,64 AFTER
  3098					;SFIELD=60 ORIG,60 AFTER
  3099					;AN ERROR WILL OCCUR IF AC IS NOT ZEROED
  3100
  3101			206000			XX=206000
  3102
  3103	032742	205 15 0 00 206000 	G11600:	MOVSI	AC+1,XX		;SETUP PNTR WORD
  3104	032743	477 00 0 00 000001 		SETOB	0,1		;SETUP BYTE WORD
  3105	032744	476 00 0 00 000014 		SETOM	AC		;SETUP AC FOR TEST
  3106	032745	134 14 0 00 000015 		ILDB	AC,<AC+1>&17	;THIS SHOULD ZERO AC
  3107	032746	332 00 0 00 000014 		SKIPE	AC		;TEST AC=0
  3108	032747	003 14 0 00 011601 		ER3	AC,11601	;ILDB FAILED
  3109	032750	321 16 0 00 032742 		JUMPL	AC+2,G11600	;LOOP ON ERROR SWITCH
  3110					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 39-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0089

  3111					;INST-DPB
  3112					;INCREASING P FIELD
  3113					;P FIELD=6,14,22,30,36
  3114					;S FIELD=6
  3115					;BYTE WORD=55
  3116					;AN ERROR WILL OCCUR IF DPB
  3117					;FAILS TO DEPOSIT CORRECTLY
  3118
  3119			000013			AC=13
  3120						SAVEAC	(1,1)^
  3121	032751	201 15 0 00 032751 		MOVEI	AC+2,.		;SAVE TEST PC
  3122	032752	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3123	032753	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3124	032754	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3125
  3126			011700		SN=11700
  3127			000000			XX=0
  3128			000600			ZZ=000600
  3129
  3130							;TEST DPB
  3131					G11700:	REPEAT	^D5,<
  3132					SN=SN+1
  3133						XX=XX+6
  3134						ZZ=ZZ+60000
  3135						MOVEI	AC-2,55		;SETUP AC-2
  3136						ROT	AC-2,XX		;FOR COMPARISON
  3137						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3138						SETZ			;SETUP DEST WORD
  3139						MOVEI	AC,55		;SETUP BYTE WORD
  3140						DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3141						CAME	,<AC-2>&17	;TEST DEST WORD
  3142						ER12	,SN		;DPB FAILED
  3143						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3144					>
  3145
  3146			011701		SN=SN+1
  3147			000006			XX=XX+6
  3148			060600			ZZ=ZZ+60000
  3149	032755	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3150	032756	241 11 0 00 000006 		ROT	AC-2,XX		;FOR COMPARISON
  3151	032757	205 14 0 00 060600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3152	032760	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3153	032761	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3154	032762	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3155	032763	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3156	032764	012 00 0 00 011701 		ER12	,SN		;DPB FAILED
  3157	032765	321 15 0 00 032755 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3158
  3159
  3160			011702		SN=SN+1
  3161			000014			XX=XX+6
  3162			140600			ZZ=ZZ+60000
  3163	032766	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3164	032767	241 11 0 00 000014 		ROT	AC-2,XX		;FOR COMPARISON
  3165	032770	205 14 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 39-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0090

  3166	032771	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3167	032772	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3168	032773	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3169	032774	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3170	032775	012 00 0 00 011702 		ER12	,SN		;DPB FAILED
  3171	032776	321 15 0 00 032766 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3172
  3173
  3174			011703		SN=SN+1
  3175			000022			XX=XX+6
  3176			220600			ZZ=ZZ+60000
  3177	032777	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3178	033000	241 11 0 00 000022 		ROT	AC-2,XX		;FOR COMPARISON
  3179	033001	205 14 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3180	033002	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3181	033003	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3182	033004	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3183	033005	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3184	033006	012 00 0 00 011703 		ER12	,SN		;DPB FAILED
  3185	033007	321 15 0 00 032777 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3186
  3187
  3188			011704		SN=SN+1
  3189			000030			XX=XX+6
  3190			300600			ZZ=ZZ+60000
  3191	033010	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3192	033011	241 11 0 00 000030 		ROT	AC-2,XX		;FOR COMPARISON
  3193	033012	205 14 0 00 300600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3194	033013	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3195	033014	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3196	033015	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3197	033016	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3198	033017	012 00 0 00 011704 		ER12	,SN		;DPB FAILED
  3199	033020	321 15 0 00 033010 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3200
  3201
  3202			011705		SN=SN+1
  3203			000036			XX=XX+6
  3204			360600			ZZ=ZZ+60000
  3205	033021	201 11 0 00 000055 		MOVEI	AC-2,55		;SETUP AC-2
  3206	033022	241 11 0 00 000036 		ROT	AC-2,XX		;FOR COMPARISON
  3207	033023	205 14 0 00 360600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3208	033024	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3209	033025	201 13 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3210	033026	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3211	033027	312 00 0 00 000011 		CAME	,<AC-2>&17	;TEST DEST WORD
  3212	033030	012 00 0 00 011705 		ER12	,SN		;DPB FAILED
  3213	033031	321 15 0 00 033021 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3214
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 40
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0091

  3215
  3216					;INST-DPB
  3217					;INCREASING P FIELD
  3218					;P FIELD = 0,6,14,22,30
  3219					;S FIELD = 6
  3220					;BYTE WORD=55 (SHIFTING LEFT 6 PLACES)
  3221					;AN ERROR WILL OCCUR IF DPB FAILS
  3222					;TO DEPOSIT CORRECTLY
  3223
  3224			000012			AC=12
  3225						SAVEAC	(1,1)^
  3226	033032	201 14 0 00 033032 		MOVEI	AC+2,.		;SAVE TEST PC
  3227	033033	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  3228	033034	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3229	033035	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3230
  3231			012000		SN=12000
  3232			000000			XX=0
  3233		777777	720000			ZZ=-60000
  3234
  3235							;TEST DPB
  3236					G12000:	REPEAT	^D5,<
  3237					SN=SN+1
  3238						XX=XX+6
  3239						ZZ=ZZ+060000
  3240						IFE	ZZ,<ZZ=000600>
  3241						MOVSI	AC-2,550000	;SETUP AC=2
  3242						ROT	AC-2,XX		;FRO COMPARISON
  3243						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3244						MOVEI	AC,55		;SETUP BYTE WORD
  3245						SETZ			;SETUP DEST WORD
  3246						DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3247						CAME	,<AC-2>&17	;TEST DEST WORD
  3248						ER12	,SN		;DPB FAILED
  3249						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3250					>
  3251
  3252			012001		SN=SN+1
  3253			000006			XX=XX+6
  3254			000000			ZZ=ZZ+060000
  3255			000600			IFE	ZZ,<ZZ=000600>
  3256	033036	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3257	033037	241 10 0 00 000006 		ROT	AC-2,XX		;FRO COMPARISON
  3258	033040	205 13 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3259	033041	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3260	033042	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3261	033043	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3262	033044	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3263	033045	012 00 0 00 012001 		ER12	,SN		;DPB FAILED
  3264	033046	321 14 0 00 033036 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3265
  3266
  3267			012002		SN=SN+1
  3268			000014			XX=XX+6
  3269			060600			ZZ=ZZ+060000
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 40-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0092

  3270						IFE	ZZ,<ZZ=000600>
  3271	033047	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3272	033050	241 10 0 00 000014 		ROT	AC-2,XX		;FRO COMPARISON
  3273	033051	205 13 0 00 060600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3274	033052	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3275	033053	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3276	033054	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3277	033055	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3278	033056	012 00 0 00 012002 		ER12	,SN		;DPB FAILED
  3279	033057	321 14 0 00 033047 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3280
  3281
  3282			012003		SN=SN+1
  3283			000022			XX=XX+6
  3284			140600			ZZ=ZZ+060000
  3285						IFE	ZZ,<ZZ=000600>
  3286	033060	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3287	033061	241 10 0 00 000022 		ROT	AC-2,XX		;FRO COMPARISON
  3288	033062	205 13 0 00 140600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3289	033063	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3290	033064	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3291	033065	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3292	033066	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3293	033067	012 00 0 00 012003 		ER12	,SN		;DPB FAILED
  3294	033070	321 14 0 00 033060 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3295
  3296
  3297			012004		SN=SN+1
  3298			000030			XX=XX+6
  3299			220600			ZZ=ZZ+060000
  3300						IFE	ZZ,<ZZ=000600>
  3301	033071	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3302	033072	241 10 0 00 000030 		ROT	AC-2,XX		;FRO COMPARISON
  3303	033073	205 13 0 00 220600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3304	033074	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3305	033075	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3306	033076	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3307	033077	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3308	033100	012 00 0 00 012004 		ER12	,SN		;DPB FAILED
  3309	033101	321 14 0 00 033071 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3310
  3311
  3312			012005		SN=SN+1
  3313			000036			XX=XX+6
  3314			300600			ZZ=ZZ+060000
  3315						IFE	ZZ,<ZZ=000600>
  3316	033102	205 10 0 00 550000 		MOVSI	AC-2,550000	;SETUP AC=2
  3317	033103	241 10 0 00 000036 		ROT	AC-2,XX		;FRO COMPARISON
  3318	033104	205 13 0 00 300600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3319	033105	201 12 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3320	033106	400 00 0 00 000000 		SETZ			;SETUP DEST WORD
  3321	033107	137 12 0 00 000013 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE (AC0)
  3322	033110	312 00 0 00 000010 		CAME	,<AC-2>&17	;TEST DEST WORD
  3323	033111	012 00 0 00 012005 		ER12	,SN		;DPB FAILED
  3324	033112	321 14 0 00 033102 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 40-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0093

  3325
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 41
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0094

  3326					;INST-IDPB
  3327					;INCREASING S FIELD
  3328					;CALCULATE NEW P FIELD, INCREMENT
  3329					;BYTE WORD ADDRESS
  3330					;P FIELD=0
  3331					;S FIELD=6,14,22,30,36
  3332					;BYTE WORD=77
  3333					;AN ERROR WILL OCCUR IF IDPB FAILS
  3334					;TO DEPOSIT CORRECTLY
  3335
  3336			000011			AC=11
  3337						SAVEAC	(1,1)^
  3338	033113	201 13 0 00 033113 		MOVEI	AC+2,.		;SAVE TEST PC
  3339	033114	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  3340	033115	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3341	033116	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3342
  3343			012100		SN=12100
  3344			000000			XX=0
  3345			000000			ZZ=000000
  3346
  3347							;TEST IDPB
  3348					G12100:	REPEAT	^D5,<
  3349					SN=SN+1
  3350						XX=XX-6
  3351						ZZ=ZZ+600
  3352						MOVEI	AC-2,77		;SETUP AC-2
  3353						ROT	AC-2,XX		;FOR COMPARISON
  3354						MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3355						MOVEI	AC,77		;SETUP BYTE WORD
  3356						SETZ	1,		;SETUP DEST WORD
  3357						IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3358						CAME	1,<AC-2>&17	;TEST DEST WORD
  3359						ER12	1,SN		;IDPB FAILED
  3360						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3361					>
  3362
  3363			012101		SN=SN+1
  3364		777777	777772			XX=XX-6
  3365			000600			ZZ=ZZ+600
  3366	033117	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3367	033120	241 07 0 00 777772 		ROT	AC-2,XX		;FOR COMPARISON
  3368	033121	205 12 0 00 000600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3369	033122	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3370	033123	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3371	033124	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3372	033125	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3373	033126	012 01 0 00 012101 		ER12	1,SN		;IDPB FAILED
  3374	033127	321 13 0 00 033117 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3375
  3376
  3377			012102		SN=SN+1
  3378		777777	777764			XX=XX-6
  3379			001400			ZZ=ZZ+600
  3380	033130	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 41-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0095

  3381	033131	241 07 0 00 777764 		ROT	AC-2,XX		;FOR COMPARISON
  3382	033132	205 12 0 00 001400 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3383	033133	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3384	033134	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3385	033135	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3386	033136	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3387	033137	012 01 0 00 012102 		ER12	1,SN		;IDPB FAILED
  3388	033140	321 13 0 00 033130 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3389
  3390
  3391			012103		SN=SN+1
  3392		777777	777756			XX=XX-6
  3393			002200			ZZ=ZZ+600
  3394	033141	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3395	033142	241 07 0 00 777756 		ROT	AC-2,XX		;FOR COMPARISON
  3396	033143	205 12 0 00 002200 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3397	033144	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3398	033145	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3399	033146	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3400	033147	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3401	033150	012 01 0 00 012103 		ER12	1,SN		;IDPB FAILED
  3402	033151	321 13 0 00 033141 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3403
  3404
  3405			012104		SN=SN+1
  3406		777777	777750			XX=XX-6
  3407			003000			ZZ=ZZ+600
  3408	033152	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3409	033153	241 07 0 00 777750 		ROT	AC-2,XX		;FOR COMPARISON
  3410	033154	205 12 0 00 003000 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3411	033155	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3412	033156	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3413	033157	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3414	033160	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3415	033161	012 01 0 00 012104 		ER12	1,SN		;IDPB FAILED
  3416	033162	321 13 0 00 033152 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3417
  3418
  3419			012105		SN=SN+1
  3420		777777	777742			XX=XX-6
  3421			003600			ZZ=ZZ+600
  3422	033163	201 07 0 00 000077 		MOVEI	AC-2,77		;SETUP AC-2
  3423	033164	241 07 0 00 777742 		ROT	AC-2,XX		;FOR COMPARISON
  3424	033165	205 12 0 00 003600 		MOVSI	AC+1,ZZ		;SETUP PNTR WORD
  3425	033166	201 11 0 00 000077 		MOVEI	AC,77		;SETUP BYTE WORD
  3426	033167	400 01 0 00 000000 		SETZ	1,		;SETUP DEST WORD
  3427	033170	136 11 0 00 000012 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3428	033171	312 01 0 00 000007 		CAME	1,<AC-2>&17	;TEST DEST WORD
  3429	033172	012 01 0 00 012105 		ER12	1,SN		;IDPB FAILED
  3430	033173	321 13 0 00 033163 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3431
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 42
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0096

  3432					;INST-IDPB
  3433					;P FIELD=44
  3434					;S FIELD=6
  3435					;BYTE WORD=55
  3436					;DEST WORD=-1
  3437					;AN ERROR WILL OCCUR IF IDPB
  3438					;FAILS TO DEPOSIT CORRECTLY
  3439
  3440			000010			AC=10
  3441						SAVEAC	(1,1)^
  3442	033174	201 12 0 00 033174 		MOVEI	AC+2,.		;SAVE TEST PC
  3443	033175	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  3444	033176	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3445	033177	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3446
  3447			012200		SN=12200
  3448			000000			ZZ=0
  3449
  3450	033200	205 11 0 00 440600 	G12200:	MOVSI	AC+1,440600	;SETUP PNPR WORD
  3451							;TEST IDPB
  3452						REPEAT	^D5,<
  3453					SN=SN+1
  3454						ZZ=ZZ-6
  3455						HRLI	AC-2,-1		;SETUP AC-2
  3456						HRRI	AC-2,-23	;FOR COMPARISON
  3457						ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3458						MOVEI	AC,55		;SETUP BYTE WORD
  3459						SETO			;SETUP DEST WORD (AC0)
  3460						IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3461						CAME	,<AC-2>&17	;TEST DEST WORD
  3462						ER12	,SN		;IDPB FAILED
  3463						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3464					>
  3465
  3466			012201		SN=SN+1
  3467		777777	777772			ZZ=ZZ-6
  3468	033201	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3469	033202	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3470	033203	241 06 0 00 777772 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3471	033204	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3472	033205	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3473	033206	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3474	033207	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3475	033210	012 00 0 00 012201 		ER12	,SN		;IDPB FAILED
  3476	033211	321 12 0 00 033201 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3477
  3478
  3479			012202		SN=SN+1
  3480		777777	777764			ZZ=ZZ-6
  3481	033212	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3482	033213	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3483	033214	241 06 0 00 777764 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3484	033215	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3485	033216	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3486	033217	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 42-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0097

  3487	033220	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3488	033221	012 00 0 00 012202 		ER12	,SN		;IDPB FAILED
  3489	033222	321 12 0 00 033212 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3490
  3491
  3492			012203		SN=SN+1
  3493		777777	777756			ZZ=ZZ-6
  3494	033223	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3495	033224	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3496	033225	241 06 0 00 777756 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3497	033226	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3498	033227	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3499	033230	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3500	033231	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3501	033232	012 00 0 00 012203 		ER12	,SN		;IDPB FAILED
  3502	033233	321 12 0 00 033223 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3503
  3504
  3505			012204		SN=SN+1
  3506		777777	777750			ZZ=ZZ-6
  3507	033234	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3508	033235	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3509	033236	241 06 0 00 777750 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3510	033237	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3511	033240	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3512	033241	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3513	033242	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3514	033243	012 00 0 00 012204 		ER12	,SN		;IDPB FAILED
  3515	033244	321 12 0 00 033234 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3516
  3517
  3518			012205		SN=SN+1
  3519		777777	777742			ZZ=ZZ-6
  3520	033245	505 06 0 00 777777 		HRLI	AC-2,-1		;SETUP AC-2
  3521	033246	541 06 0 00 777755 		HRRI	AC-2,-23	;FOR COMPARISON
  3522	033247	241 06 0 00 777742 		ROT	AC-2,ZZ		;ROTATE RIGHT BY 6
  3523	033250	201 10 0 00 000055 		MOVEI	AC,55		;SETUP BYTE WORD
  3524	033251	474 00 0 00 000000 		SETO			;SETUP DEST WORD (AC0)
  3525	033252	136 10 0 00 000011 		IDPB	AC,<AC+1>&17	;INC AND DEPOSIT BYTE
  3526	033253	312 00 0 00 000006 		CAME	,<AC-2>&17	;TEST DEST WORD
  3527	033254	012 00 0 00 012205 		ER12	,SN		;IDPB FAILED
  3528	033255	321 12 0 00 033245 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  3529
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 43
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0098

  3530					;INST-LDB-SPECIAL CASE-S GREATER THAN 44
  3531					;P FIELD=7
  3532					;S FIELD=60,40
  3533					;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
  3534
  3535			000013			AC=13
  3536						SAVEAC	(1,1)^
  3537	033256	201 15 0 00 033256 		MOVEI	AC+2,.		;SAVE TEST PC
  3538	033257	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3539	033260	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3540	033261	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3541
  3542			012210		SN=12210
  3543			100000			XX=100000
  3544
  3545							;TEST LDB
  3546					G12210:	REPEAT	2,<
  3547					SN=SN+1
  3548						XX=XX-2000
  3549						SETOB	0,2
  3550						MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3551						SETZM	AC		;CLEAR DEST WORD
  3552						MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3553						LDB	AC,<AC+1>&17	;LOAD BYTE
  3554						CAME	AC,[002525,,252525]	;TEST DEST WORD
  3555						ER3	AC,SN		;LDB FAILED
  3556						CAME	AC+1,[XX,,1]	;CHECK POINTER
  3557						ER4	AC+1,SN		;POINTER WAS MODIFIED
  3558						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3559					>
  3560
  3561			012211		SN=SN+1
  3562			076000			XX=XX-2000
  3563	033262	477 00 0 00 000002 		SETOB	0,2
  3564	033263	200 01 0 00 040736 		MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3565	033264	402 00 0 00 000013 		SETZM	AC		;CLEAR DEST WORD
  3566	033265	200 14 0 00 040737 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3567	033266	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  3568	033267	312 13 0 00 040740 		CAME	AC,[002525,,252525]	;TEST DEST WORD
  3569	033270	003 13 0 00 012211 		ER3	AC,SN		;LDB FAILED
  3570	033271	312 14 0 00 040737 		CAME	AC+1,[XX,,1]	;CHECK POINTER
  3571	033272	004 14 0 00 012211 		ER4	AC+1,SN		;POINTER WAS MODIFIED
  3572	033273	321 15 0 00 033262 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3573
  3574
  3575			012212		SN=SN+1
  3576			074000			XX=XX-2000
  3577	033274	477 00 0 00 000002 		SETOB	0,2
  3578	033275	200 01 0 00 040736 		MOVE	1,[525252,,525377]	;SETUP BYTE WORD
  3579	033276	402 00 0 00 000013 		SETZM	AC		;CLEAR DEST WORD
  3580	033277	200 14 0 00 040741 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3581	033300	135 13 0 00 000014 		LDB	AC,<AC+1>&17	;LOAD BYTE
  3582	033301	312 13 0 00 040740 		CAME	AC,[002525,,252525]	;TEST DEST WORD
  3583	033302	003 13 0 00 012212 		ER3	AC,SN		;LDB FAILED
  3584	033303	312 14 0 00 040741 		CAME	AC+1,[XX,,1]	;CHECK POINTER
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 43-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0099

  3585	033304	004 14 0 00 012212 		ER4	AC+1,SN		;POINTER WAS MODIFIED
  3586	033305	321 15 0 00 033274 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3587
  3588					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 43-2
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0100

  3589					;INST-DPB-SPECIAL CASE-S GREATER THAN 44
  3590					;P FIELD=7
  3591					;S FIELD=60,40
  3592					;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
  3593
  3594			012220		SN=12220
  3595			100000			XX=100000
  3596
  3597							;TEST DPB
  3598					G12220:	REPEAT	2,<
  3599					SN=SN+1
  3600						XX=XX-2000
  3601						SETOB	0,2
  3602						MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3603						MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
  3604						MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3605						DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3606						MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3607						MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3608						CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3609						ER2	0,SN		;DPB FAILED
  3610						CAME	1,[646446,,464670]	;CHECK DEST WORD
  3611						ER12	1,SN		;DPB FAILED
  3612						MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3613						MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3614						CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3615						ER2	2,SN		;DPB FAILED
  3616						JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3617					>
  3618
  3619			012221		SN=SN+1
  3620			076000			XX=XX-2000
  3621	033306	477 00 0 00 000002 		SETOB	0,2
  3622	033307	200 01 0 00 040742 		MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3623	033310	200 13 0 00 040743 		MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
  3624	033311	200 14 0 00 040737 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3625	033312	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3626	033313	201 11 0 00 040744 		MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3627	033314	200 11 0 00 040654 		MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3628	033315	312 00 0 00 040750 		CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3629	033316	002 00 0 00 012221 		ER2	0,SN		;DPB FAILED
  3630	033317	312 01 0 00 040751 		CAME	1,[646446,,464670]	;CHECK DEST WORD
  3631	033320	012 01 0 00 012221 		ER12	1,SN		;DPB FAILED
  3632	033321	201 11 0 00 040752 		MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3633	033322	202 11 0 00 040654 		MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3634	033323	312 02 0 00 040750 		CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3635	033324	002 02 0 00 012221 		ER2	2,SN		;DPB FAILED
  3636	033325	321 15 0 00 033306 		JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3637
  3638
  3639			012222		SN=SN+1
  3640			074000			XX=XX-2000
  3641	033326	477 00 0 00 000002 		SETOB	0,2
  3642	033327	200 01 0 00 040742 		MOVE	1,[707070,,707070]	;SETUP DEST WORD
  3643	033330	200 13 0 00 040743 		MOVE	AC,[323232,,232323]	;SETUP BYTE WORD
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 43-3
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0101

  3644	033331	200 14 0 00 040741 		MOVE	AC+1,[XX,,1]	;SETUP POINTER
  3645	033332	137 13 0 00 000014 		DPB	AC,<AC+1>&17	;DEPOSIT BYTE
  3646	033333	201 11 0 00 040744 		MOVEI	AC-2,[ASCIZ/C(C(E)-1) FAILED/]
  3647	033334	200 11 0 00 040654 		MOVE	AC-2,SPDES	;FAILURE DESCRIPTOR
  3648	033335	312 00 0 00 040750 		CAME	0,[-1,,-1]	;CHECK DEST WORD -1
  3649	033336	002 00 0 00 012222 		ER2	0,SN		;DPB FAILED
  3650	033337	312 01 0 00 040751 		CAME	1,[646446,,464670]	;CHECK DEST WORD
  3651	033340	012 01 0 00 012222 		ER12	1,SN		;DPB FAILED
  3652	033341	201 11 0 00 040752 		MOVEI	AC-2,[ASCIZ/C(C(E)+1) FAILED/]
  3653	033342	202 11 0 00 040654 		MOVEM	AC-2,SPDES	;FAILURE DSCRIPTOR
  3654	033343	312 02 0 00 040750 		CAME	2,[-1,,-1]	;CHECK DEST WORD +1
  3655	033344	002 02 0 00 012222 		ER2	2,SN		;DPB FAILED
  3656	033345	321 15 0 00 033326 		JUMPL	AC+2,.-^D15	;LOOP ON ERROR SWITCH
  3657
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 44
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0102

  3658					;VERIFY THAT THE POINTER IS NOT INCREMENTED BY "ILDB" OR "IDPB" IF 'BIS'
  3659					;IS SET; AND THAT THE SECOND PART OF THE BYTE INSTRUCTION CLEARS 'BIS'
  3660
  3661			000013			AC=13
  3662						SAVEAC	(1,1)^
  3663	033346	201 15 0 00 033346 		MOVEI	AC+2,.		;SAVE TEST PC
  3664	033347	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3665	033350	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3666	033351	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3667
  3668	033352	200 14 0 00 040756 	G12300:	MOVE	AC+1,[220600,,AC-1]	;SETUP BYTE POINTER
  3669	033353	200 13 0 00 040742 		MOVE	AC,[707070,,707070]	;SETUP AC
  3670	033354	200 12 0 00 040757 		MOVE	AC-1,[112233,,445566]	;SETUP BYTE WORD
  3671	033355	254 02 1 00 040760 		JRSTF	@[BIS,,.+1]		;SET 'BIS' FLAG
  3672	033356	134 13 0 00 000014 		ILDB	AC,AC+1
  3673	033357	265 11 0 00 033360 		JSP	AC-2,.+1		;SAVE FLAGS
  3674	033360	302 13 0 00 000033 		CAIE	AC,33			;TEST DEST WORD
  3675	033361	003 13 0 00 012301 		ER3	AC,12301		;INCORRECT BYTE WAS LOADED
  3676	033362	312 14 0 00 040756 		CAME	AC+1,[220600,,AC-1]	;TEST POINTER
  3677	033363	004 14 0 00 012301 		ER4	AC+1,12301		;POINTER WAS INCREMENTED
  3678	033364	603 11 0 00 020000 		TLNE	AC-2,BIS		;EXAMINE 'BIS'
  3679	033365	013 11 0 00 012301 		ER13	AC-2,12301		;'BIS' WAS NOT CLEARED
  3680	033366	322 15 0 00 033352 		JUMPE	AC+2,G12300		;LOOP ON ERROR SWITCH
  3681
  3682	033367	200 14 0 00 040756 	G12400:	MOVE	AC+1,[220600,,AC-1]	;SET-UP BYTE POINTER
  3683	033370	200 13 0 00 040742 		MOVE	AC,[707070,,707070]	;SET-UP AC
  3684	033371	200 12 0 00 040757 		MOVE	AC-1,[112233,,445566]	;SETUP BYTE WORD
  3685	033372	254 02 1 00 040761 		JRSTF	@[BIS,,.+1]		;SET 'BIS' FLAG
  3686	033373	136 13 0 00 000014 		IDPB	AC,AC+1
  3687	033374	265 11 0 00 033375 		JSP	AC-2,.+1		;SAVE FLAGS
  3688	033375	312 14 0 00 040756 		CAME	AC+1,[220600,,AC-1]	;TEST POINTER
  3689	033376	004 14 0 00 012401 		ER4	AC+1,12401		;POINTER WAS INCREMENTED
  3690	033377	312 12 0 00 040762 		CAME	AC-1,[112270,,445566]	;TEST BYTE WORD
  3691	033400	012 12 0 00 012401 		ER12	AC-1,12401		;INCORRECT BYTE WAS DEPOSITED
  3692	033401	603 11 0 00 020000 		TLNE	AC-2,BIS		;EXAMINE 'BIS'
  3693	033402	013 11 0 00 012401 		ER13	AC-2,12401		;'BIS' WAS NOT CLEARED
  3694	033403	321 15 0 00 033367 		JUMPL	AC+2,G12400		;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 47
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0103

  3695					;MSCL BYTE TESTS - IBP
  3696					;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN AN AC
  3697
  3698			000007			AC=7
  3699						SAVEAC	(1,1)^
  3700	033404	201 11 0 00 033404 		MOVEI	AC+2,.		;SAVE TEST PC
  3701	033405	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  3702	033406	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3703	033407	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3704	033410	254 02 1 00 040763 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3705
  3706	033411	205 05 0 00 170600 	G12500:	MOVSI	AC-2,170600	;SETUP POINTER
  3707	033412	205 06 0 00 110600 		MOVSI	AC-1,110600	;RESULT FOR COMPARISON
  3708	033413	133 00 0 00 000005 		IBP	<AC-2>&17		;*IBP SHOULD PLACE 110600,,0 INTO PTR
  3709	033414	312 05 0 00 000006 		CAME	AC-2,<AC-1>&17	;IS PTR = 110600,,0 ?
  3710	033415	005 05 0 00 012501 		ER5	AC-2,12501	;POINTER FAILURE
  3711	033416	321 11 0 00 033411 		JUMPL	AC+2,G12500	;LOOP ON ERROR SWITCH
  3712
  3713					;MSCL BYTE TESTS - IBP
  3714					;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN CORE MEMORY
  3715
  3716			000006			AC=6
  3717						SAVEAC	(1,1)^
  3718	033417	201 10 0 00 033417 		MOVEI	AC+2,.		;SAVE TEST PC
  3719	033420	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  3720	033421	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3721	033422	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3722	033423	254 02 1 00 040764 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3723
  3724	033424	205 04 0 00 170600 	G12510:	MOVSI	AC-2,170600
  3725	033425	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3726	033426	205 04 0 00 110600 		MOVSI	AC-2,110600	;RESULT FOR COMPARISON
  3727	033427	400 05 0 00 000000 		SETZ	AC-1,		;INITIALIZE FOR RESULT
  3728	033430	133 00 0 00 040136 		IBP	BYTBLK		;*IBP SHOULD PLACE 110600,,0 INTO PTR
  3729	033431	200 05 0 00 040136 		MOVE	AC-1,BYTBLK
  3730	033432	312 05 0 00 000004 		CAME	AC-1,<AC-2>&17	;IS PTR = 110600,,0 ?
  3731	033433	005 05 0 00 012511 		ER5	AC-1,12511	;POINTER FAILURE
  3732	033434	321 10 0 00 033424 		JUMPL	AC+2,G12510	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 48
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0104

  3733					;MSCL BYTE TESTS - DPB
  3734					;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE
  3735					;ARE IN AC'S
  3736
  3737			000005			AC=5
  3738						SAVEAC	(1,1)^
  3739	033435	201 07 0 00 033435 		MOVEI	AC+2,.		;SAVE TEST PC
  3740	033436	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  3741	033437	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3742	033440	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3743	033441	254 02 1 00 040765 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3744
  3745	033442	205 03 0 00 170600 	G12600:	MOVSI	AC-2,170600	;SETUP POINTER
  3746	033443	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17
  3747	033444	200 02 0 00 000003 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3748	033445	200 01 0 00 040766 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3749	033446	201 05 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3750	033447	200 04 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3751	033450	137 05 0 00 000003 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 230702.103700 INTO BYTE WORD
  3752	033451	312 03 0 00 000002 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED ?
  3753	033452	005 03 0 00 012601 		ER5	AC-2,12601	;FAILURE - POINTER WAS MODIFIED
  3754	033453	302 05 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3755	033454	003 05 0 00 012602 		ER3	AC,12602	;FAILURE - AC WAS MODIFIED
  3756	033455	312 01 0 00 000004 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3757	033456	012 01 0 00 012603 		ER12	AC-4,12603	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3758	033457	321 07 0 00 033442 		JUMPL	AC+2,G12600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 49
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0105

  3759					;MSCL BYTE TESTS - DPB
  3760					;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
  3761					;BYTE IS IN CORE MEMORY
  3762
  3763			000014			AC=14
  3764						SAVEAC	(1,1)^
  3765	033460	201 16 0 00 033460 		MOVEI	AC+2,.		;SAVE TEST PC
  3766	033461	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  3767	033462	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3768	033463	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3769	033464	254 02 1 00 040770 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3770
  3771	033465	205 12 0 00 170600 	G12610:	MOVSI	AC-2,170600	;SETUP POINTER
  3772	033466	541 12 0 00 040136 		HRRI	AC-2,BYTBLK
  3773	033467	200 11 0 00 000012 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3774	033470	200 14 0 00 040766 		MOVE	AC,[230703,,603700]	;SETUP BYTE WORD
  3775	033471	202 14 0 00 040136 		MOVEM	AC,BYTBLK
  3776	033472	200 13 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3777	033473	201 14 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3778	033474	137 14 0 00 000012 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3779	033475	312 12 0 00 000011 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  3780	033476	005 12 0 00 012611 		ER5	AC-2,12611	;FAILURE - POINTER WAS MODIFIED
  3781	033477	302 14 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3782	033500	003 14 0 00 012612 		ER3	AC,12612	;FAILURE - AC WAS MODIFIED
  3783	033501	200 07 0 00 040136 		MOVE	AC-5,BYTBLK
  3784	033502	312 13 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE DEPOSITED CORRECTLY?
  3785	033503	012 07 0 00 012613 		ER12	AC-5,12613	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3786	033504	321 16 0 00 033465 		JUMPL	AC+2,G12610	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 50
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0106

  3787					;MSCL BYTE TESTS - DPB
  3788					;VERIFY THAT DPB WORKS WHEN BYTE IS IN AN AC AND
  3789					;POINTER IS IN CORE MEMORY
  3790
  3791			000013			AC=13
  3792						SAVEAC	(1,1)^
  3793	033505	201 15 0 00 033505 		MOVEI	AC+2,.		;SAVE TEST PC
  3794	033506	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  3795	033507	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3796	033510	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3797	033511	254 02 1 00 040771 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3798
  3799	033512	205 11 0 00 170600 	G12620:	MOVSI	AC-2,170600
  3800	033513	541 11 0 00 000007 		HRRI	AC-2,<AC-4>&17	;POINTER FOR COMPARISON
  3801	033514	202 11 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3802	033515	200 07 0 00 040766 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3803	033516	200 12 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3804	033517	201 13 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3805	033520	137 13 0 00 040136 		DPB	AC,BYTBLK	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3806	033521	200 10 0 00 040136 		MOVE	AC-3,BYTBLK
  3807	033522	312 11 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3808	033523	005 10 0 00 012621 		ER5	AC-3,12621	;FAILURE - POINTER WAS  MODIFIED
  3809	033524	302 13 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3810	033525	003 13 0 00 012622 		ER3	AC,12622	;FAILURE - AC WAS MODIFIED
  3811	033526	312 07 0 00 000012 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3812	033527	012 07 0 00 012523 		ER12	AC-4,12523	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3813	033530	321 05 0 00 033512 		JUMPL	AC+12,G12620	;LOOP ON ERROR SWITCH
  3814
  3815					;MSCL BYTE TESTS - DPB
  3816					;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  3817
  3818			000012			AC=12
  3819						SAVEAC	(1,1)^
  3820	033531	201 14 0 00 033531 		MOVEI	AC+2,.		;SAVE TEST PC
  3821	033532	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  3822	033533	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3823	033534	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3824	033535	254 02 1 00 040772 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3825
  3826	033536	205 10 0 00 170600 	G12630:	MOVSI	AC-2,170600
  3827	033537	541 10 0 00 040141 		HRRI	AC-2,BYTBLK+3	;POINTER FOR COMPARISON
  3828	033540	202 10 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3829	033541	200 06 0 00 040766 		MOVE	AC-4,[230703,,603700]
  3830	033542	202 06 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  3831	033543	200 11 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3832	033544	201 12 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3833	033545	137 12 0 00 040136 		DPB	AC,BYTBLK	;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3834	033546	200 06 0 00 040136 		MOVE	AC-4,BYTBLK
  3835	033547	312 10 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3836	033550	005 06 0 00 012631 		ER5	AC-4,12631	;FAILURE - POINTER WAS MODIFIED
  3837	033551	200 07 0 00 040141 		MOVE	AC-3,BYTBLK+3
  3838	033552	312 11 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE DEPOSITED CORRECTLY?
  3839	033553	012 07 0 00 012632 		ER12	AC-3,12632	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3840	033554	302 12 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3841	033555	003 12 0 00 012633 		ER3	AC,12633	;FAILURE - AC WAS MODIFIED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 50-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0107

  3842	033556	321 14 0 00 033536 		JUMPL	AC+2,G12630	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 51
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0108

  3843					;MSCL BYTE TESTS - IDPB
  3844					;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE
  3845					;ARE IN AC'S
  3846
  3847			000011			AC=11
  3848						SAVEAC	(1,1)^
  3849	033557	201 13 0 00 033557 		MOVEI	AC+2,.		;SAVE TEST PC
  3850	033560	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  3851	033561	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3852	033562	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3853	033563	254 02 1 00 040773 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3854
  3855	033564	205 07 0 00 250600 	G12700:	MOVSI	AC-2,250600	;SETUP POINTER
  3856	033565	541 07 0 00 000005 		HRRI	AC-2,<AC-4>&17
  3857	033566	200 06 0 00 000007 		MOVE	AC-3,<AC-2>&17
  3858	033567	505 06 0 00 170600 		HRLI	AC-3,170600	;POINTER FOR COMPARISON
  3859	033570	200 05 0 00 040766 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3860	033571	201 11 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3861	033572	200 10 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3862	033573	136 11 0 00 000007 		IDPB	AC,<AC-2>&17	;IDPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
  3863	033574	312 07 0 00 000006 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY
  3864	033575	005 07 0 00 012701 		ER5	AC-2,12701	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  3865	033576	302 11 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED
  3866	033577	003 11 0 00 012700 		ER3	AC,12700	;FAILURE - AC WAS MODIFIED
  3867	033600	312 05 0 00 000010 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY?
  3868	033601	012 05 0 00 012703 		ER12	AC-4,12703	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3869	033602	321 13 0 00 033564 		JUMPL	AC+2,G12700	;LOOP ON ERROR SWITCH
  3870
  3871					;MSCL BYTE TESTS - IDPB
  3872					;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
  3873					;BYTE IS IN CORE MEMORY
  3874
  3875			000010			AC=10
  3876						SAVEAC	(1,1)^
  3877	033603	201 12 0 00 033603 		MOVEI	AC+2,.		;SAVE TEST PC
  3878	033604	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  3879	033605	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3880	033606	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3881	033607	254 02 1 00 040774 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3882
  3883	033610	205 06 0 00 250600 	G12710:	MOVSI	AC-2,250600	;SETUP POINTER
  3884	033611	541 06 0 00 040136 		HRRI	AC-2,BYTBLK
  3885	033612	200 05 0 00 000006 		MOVE	AC-3,<AC-2>&17
  3886	033613	505 05 0 00 170600 		HRLI	AC-3,170600	;POINTER FOR COMPARISON
  3887	033614	200 10 0 00 040766 		MOVE	AC,[230703,,603700]	;SETUP BYTE WORD
  3888	033615	202 10 0 00 040136 		MOVEM	AC,BYTBLK
  3889	033616	200 07 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3890	033617	201 10 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3891	033620	136 10 0 00 000006 		IDPB	AC,<AC-2>&17	;IDPB SHOULD PLACE 230702,,103700 INTO
  3892									;BYTE WORD AND INCREMENT POINTER
  3893	033621	312 06 0 00 000005 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTED
  3894	033622	012 06 0 00 012713 		ER12	AC-2,12713	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3895	033623	321 12 0 00 033610 		JUMPL	AC+2,G12710	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 52
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0109

  3896					;MSCL BYTE TESTS - IDPB
  3897					;VERIFY THAT IDPB WORKS WHEN BYTE IS IN AN AC AND
  3898					;POINTER IS IN CORE MEMORY
  3899
  3900			000007			AC=7
  3901						SAVEAC	(1,1)^
  3902	033624	201 11 0 00 033624 		MOVEI	AC+2,.		;SAVE TEST PC
  3903	033625	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  3904	033626	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3905	033627	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3906
  3907	033630	254 02 1 00 040775 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3908
  3909	033631	205 05 0 00 250600 	G12720:	MOVSI	AC-2,250600
  3910	033632	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17
  3911	033633	202 05 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3912	033634	505 05 0 00 170600 		HRLI	AC-2,170600	;POINTER FOR COMPARISON
  3913	033635	200 03 0 00 040766 		MOVE	AC-4,[230703,,603700]	;SETUP BYTE WORD
  3914	033636	200 06 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3915	033637	201 07 0 00 654321 		MOVEI	AC,654321	;;SETUP AC
  3916	033640	136 07 0 00 040136 		IDPB	AC,BYTBLK	;IDPB SHOULD PLACE 230702,,103700 INTO
  3917									;BYTE WORD AND INCREMENT POINTER
  3918	033641	200 04 0 00 040136 		MOVE	AC-3,BYTBLK
  3919	033642	312 05 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY
  3920	033643	005 04 0 00 012721 		ER5	AC-3,12721	;FAILURE - POINTER WAS NOT INCREMENTED CORRECTLY
  3921	033644	302 07 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED?
  3922	033645	003 07 0 00 012722 		ER3	AC,12722	;FAILURE - AC WAS MODIFIED
  3923	033646	312 03 0 00 000006 		CAME	AC-4,<AC-1>&17	;WAS BYTE DEPOSITED CORRECTLY
  3924	033647	012 03 0 00 012723 		ER12	AC-4,12723	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3925	033650	321 11 0 00 033631 		JUMPL	AC+2,G12720	;LOOP ON ERROR SWITCH
  3926
  3927					;MSCL BYTE TESTS - IDPB
  3928					;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  3929
  3930			000006			AC=6
  3931						SAVEAC	(1,1)^
  3932	033651	201 10 0 00 033651 		MOVEI	AC+2,.		;SAVE TEST PC
  3933	033652	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  3934	033653	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3935	033654	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3936	033655	254 02 1 00 040776 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3937
  3938	033656	205 04 0 00 250600 	G12730:	MOVSI	AC-2,250600
  3939	033657	541 04 0 00 040141 		HRRI	AC-2,BYTBLK+3
  3940	033660	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  3941	033661	505 04 0 00 170600 		HRLI	AC-2,170600	;POINTER FOR COMPARISON
  3942	033662	200 02 0 00 040766 		MOVE	AC-4,[230703,,603700]
  3943	033663	202 02 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  3944	033664	200 05 0 00 040767 		MOVE	AC-1,[230702,,103700]	;BYTE WORD FOR COMPARISON
  3945	033665	201 06 0 00 654321 		MOVEI	AC,654321	;SETUP AC
  3946	033666	136 06 0 00 040136 		IDPB	AC,BYTBLK	;IDPB SHOULD PLACE 230702,,103700 INTO
  3947									;BYTE WORD AND INCREMENT POINTER
  3948	033667	200 02 0 00 040136 		MOVE	AC-4,BYTBLK
  3949	033670	312 04 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  3950	033671	005 02 0 00 012731 		ER5	AC-4,12731	;FAILURE - POINTER WAS MODIFIED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 52-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0110

  3951	033672	200 03 0 00 040141 		MOVE	AC-3,BYTBLK+3
  3952	033673	312 05 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE DEPOSITED CORRECTLY
  3953	033674	012 03 0 00 012732 		ER12	AC-3,12732	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  3954	033675	302 06 0 00 654321 		CAIE	AC,654321	;WAS AC MODIFIED
  3955	033676	003 06 0 00 012733 		ER3	AC,12733	;FAILURE - AC WAS MODIFIED
  3956	033677	321 10 0 00 033656 		JUMPL	AC+2,G12730	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 53
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0111

  3957					;MSCL BYTE TESTS - LDB
  3958					;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE
  3959					;ARE IN AC'S
  3960
  3961			000005			AC=5
  3962						SAVEAC	(1,1)^
  3963	033700	201 07 0 00 033700 		MOVEI	AC+2,.		;SAVE TEST PC
  3964	033701	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  3965	033702	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3966	033703	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3967	033704	254 02 1 00 040777 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3968
  3969	033705	205 03 0 00 170600 	G13000:	MOVSI	AC-2,170600	;SETUP POINTER
  3970	033706	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17
  3971	033707	200 02 0 00 000003 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3972	033710	200 01 0 00 040766 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  3973	033711	400 05 0 00 000000 		SETZ	AC,		;SETUP AC
  3974	033712	200 04 0 00 000001 		MOVE	AC-1,<AC-4>&17	;BYTE WORD FOR COMPARISON
  3975	033713	135 05 0 00 000003 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,36 INTO THE AC
  3976	033714	312 03 0 00 000002 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  3977	033715	005 03 0 00 013001 		ER5	AC-2,13001	;FAILURE - POINTER WAS MODIFIED
  3978	033716	302 05 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  3979	033717	003 05 0 00 013002 		ER3	AC,13002	;FAILURE - BYTE NOT LOADED CORRECTLY.
  3980	033720	312 01 0 00 000004 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED
  3981	033721	012 01 0 00 013003 		ER12	AC-4,13003	;FAILURE - BYTE WORD WAS MODIFIED
  3982	033722	321 07 0 00 033705 		JUMPL	AC+2,G13000	;LOOP ON ERROR SWITCH
  3983
  3984					;MSCL BYTE TESTS - LDB
  3985					;VERIFY THAT LDB WORKS WHEN POINTER IS IN AN AC AND
  3986					;BYTE IS IN CORE MEMORY
  3987
  3988			000014			AC=14
  3989						SAVEAC	(1,1)^
  3990	033723	201 16 0 00 033723 		MOVEI	AC+2,.		;SAVE TEST PC
  3991	033724	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  3992	033725	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3993	033726	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3994	033727	254 02 1 00 041000 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  3995
  3996	033730	205 12 0 00 170600 	G13010:	MOVSI	AC-2,170600	;SETUP POINTER
  3997	033731	541 12 0 00 040136 		HRRI	AC-2,BYTBLK
  3998	033732	200 11 0 00 000012 		MOVE	AC-3,<AC-2>&17	;POINTER FOR COMPARISON
  3999	033733	200 13 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4000	033734	202 13 0 00 040136 		MOVEM	AC-1,BYTBLK	;SETUP BYTE WORD
  4001	033735	400 14 0 00 000000 		SETZ	AC,		;SETUP AC
  4002	033736	135 14 0 00 000012 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,36 INTO THE AC
  4003	033737	312 12 0 00 000011 		CAME	AC-2,<AC-3>&17	;WAS POINTER MODIFIED?
  4004	033740	005 12 0 00 013011 		ER5	AC-2,13011	;FAILURE - POINTER WAS MODIFIED
  4005	033741	302 14 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4006	033742	003 14 0 00 013012 		ER3	AC,13012	;FAILURE - BYTE NOT LOADED CORRECTLY
  4007	033743	200 07 0 00 040136 		MOVE	AC-5,BYTBLK
  4008	033744	312 13 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE WORD MODIFIED?
  4009	033745	012 07 0 00 013013 		ER12	AC-5,13013	;FAILURE - BYTE WORD WAS MODIFIED
  4010	033746	321 16 0 00 033730 		JUMPL	AC+2,G13010	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 54
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0112

  4011					;MSCL BYTE TESTS - LDB
  4012					;VERIFY THAT LDB WORKS WHEN BYTE IS IN AN AC AND
  4013					;POINTER IS IN CORE MEMORY.
  4014
  4015			000013			AC=13
  4016						SAVEAC	(1,1)^
  4017	033747	201 15 0 00 033747 		MOVEI	AC+2,.		;SAVE TEST PC
  4018	033750	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4019	033751	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4020	033752	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4021	033753	254 02 1 00 041001 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4022
  4023	033754	205 11 0 00 170600 	G13020:	MOVSI	AC-2,170600
  4024	033755	541 11 0 00 000007 		HRRI	AC-2,<AC-4>&17	;POINTER FOR COMPARISON
  4025	033756	202 11 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4026	033757	200 07 0 00 040766 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4027	033760	200 12 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4028	033761	400 13 0 00 000000 		SETZ	AC,		;SETUP AC
  4029	033762	135 13 0 00 040136 		LDB	AC,BYTBLK	;LDB SHOULD PLACE 20,,36 INTO THE AC
  4030	033763	200 10 0 00 040136 		MOVE	AC-3,BYTBLK
  4031	033764	312 11 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  4032	033765	005 10 0 00 013021 		ER5	AC-3,13021	;FAILURE - POINTER WAS MODIFIED
  4033	033766	302 13 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4034	033767	003 13 0 00 013022 		ER3	AC,13022	;FAILURE - BYTE NOT LOADED CORRECTLY
  4035	033770	312 07 0 00 000012 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4036	033771	012 07 0 00 013023 		ER12	AC-4,13023	;FAILURE - BYTE WORD WAS MODIFIED
  4037	033772	321 15 0 00 033754 		JUMPL	AC+2,G13020	;LOOP ON ERROR SWITCH
  4038
  4039					;MSCL BYTE TESTS - LDB
  4040					;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY.
  4041
  4042			000012			AC=12
  4043						SAVEAC	(1,1)^
  4044	033773	201 14 0 00 033773 		MOVEI	AC+2,.		;SAVE TEST PC
  4045	033774	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4046	033775	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4047	033776	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4048	033777	254 02 1 00 041002 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4049
  4050	034000	205 10 0 00 170600 	G13030:	MOVSI	AC-2,170600
  4051	034001	541 10 0 00 040141 		HRRI	AC-2,BYTBLK+3	;POINTER FOR COMPARISON
  4052	034002	202 10 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4053	034003	200 06 0 00 040766 		MOVE	AC-4,[230703,,603700]
  4054	034004	202 06 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  4055	034005	200 11 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4056	034006	400 12 0 00 000000 		SETZ	AC,		;SETUP AC
  4057	034007	135 12 0 00 040136 		LDB	AC,BYTBLK	;LDB SHOULD PLACE 20,,36 INTO THE AC
  4058	034010	200 06 0 00 040136 		MOVE	AC-4,BYTBLK
  4059	034011	312 10 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER MODIFIED?
  4060	034012	005 06 0 00 013031 		ER5	AC-4,13031	;FAILURE - POINTER WAS MODIFIED
  4061	034013	200 07 0 00 040141 		MOVE	AC-3,BYTBLK+3
  4062	034014	312 11 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE WORD MODIFIED?
  4063	034015	012 07 0 00 013032 		ER12	AC-3,13032	;FAILURE - BYTE WORD WAS MODIFIED
  4064	034016	302 12 0 00 000036 		CAIE	AC,36		;WAS BYTE LOADED CORRECTLY?
  4065	034017	003 12 0 00 013033 		ER3	AC,13033	;FAILURE - BYTE NOT LOADED CORRECTLY
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 54-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0113

  4066	034020	321 14 0 00 034000 		JUMPL	AC+2,G13030	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 55
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0114

  4067					;MSCL BYTE TESTS - ILDB
  4068					;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE
  4069					;ARE IN AC'S.
  4070
  4071			000011			AC=11
  4072						SAVEAC	(1,1)^
  4073	034021	201 13 0 00 034021 		MOVEI	AC+2,.		;SAVE TEST PC
  4074	034022	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  4075	034023	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4076	034024	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4077	034025	254 02 1 00 041003 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4078
  4079	034026	205 07 0 00 170600 	G13100:	MOVSI	AC-2,170600	;SETUP POINTER
  4080	034027	541 07 0 00 000005 		HRRI	AC-2,<AC-4>&17
  4081	034030	200 06 0 00 000007 		MOVE	AC-3,<AC-2>&17
  4082	034031	505 06 0 00 110600 		HRLI	AC-3,110600	;POINTER FOR COMPARISON
  4083	034032	200 05 0 00 040766 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4084	034033	400 11 0 00 000000 		SETZ	AC,		;SETUP AC
  4085	034034	200 10 0 00 000005 		MOVE	AC-1,<AC-4>&17	;BYTE WORD FOR COMPARISON
  4086	034035	134 11 0 00 000007 		ILDB	AC,<AC-2>&17	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4087									;AND INCREMENT POINTER
  4088	034036	312 07 0 00 000006 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY?
  4089	034037	005 07 0 00 003101 		ER5	AC-2,3101	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4090	034040	302 11 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4091	034041	003 11 0 00 013102 		ER3	AC,13102	;FAILURE - BYTE NOT LOADED CORRECTLY
  4092	034042	312 05 0 00 000010 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4093	034043	012 05 0 00 013103 		ER12	AC-4,13103	;FAILURE - BYTE WORD WAS MODIFIED
  4094	034044	321 13 0 00 034026 		JUMPL	AC+2,G13100	;LOOP ON ERROR SWITCH
  4095
  4096					;MSCL BYTE TESTS - ILDB
  4097					;VERIFY THAT ILDB WORKS WHEN POINTER IS IN AN AC AND
  4098					;BYTE IS IN CORE MEMORY
  4099
  4100			000010			AC=10
  4101						SAVEAC	(1,1)^
  4102	034045	201 12 0 00 034045 		MOVEI	AC+2,.		;SAVE TEST PC
  4103	034046	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  4104	034047	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4105	034050	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4106	034051	254 02 1 00 041004 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4107
  4108	034052	205 06 0 00 170600 	G13110:	MOVSI	AC-2,170600	;SETUP POINTER
  4109	034053	541 06 0 00 040136 		HRRI	AC-2,BYTBLK
  4110	034054	200 05 0 00 000006 		MOVE	AC-3,<AC-2>&17
  4111	034055	505 05 0 00 110600 		HRLI	AC-3,110600	;POINTER FOR COMPARISON
  4112	034056	200 07 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTEWORD FOR COMPARISON
  4113	034057	202 10 0 00 040136 		MOVEM	AC,BYTBLK	;SETUP BYTE WORD
  4114	034060	400 10 0 00 000000 		SETZ	AC,		;SETUP AC
  4115	034061	134 10 0 00 000006 		ILDB	AC,<AC-2>&17	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4116									;AND INCREMENT POINTER
  4117	034062	312 06 0 00 000005 		CAME	AC-2,<AC-3>&17	;WAS POINTER INCREMENTED CORRECTLY?
  4118	034063	005 06 0 00 013111 		ER5	AC-2,13111	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4119	034064	302 10 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4120	034065	003 10 0 00 013012 		ER3	AC,13012	;FAILURE - BYTE NOT LOADED CORRECTLY
  4121	034066	200 03 0 00 040136 		MOVE	AC-5,BYTBLK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 55-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0115

  4122	034067	312 07 0 00 040136 		CAME	AC-1,BYTBLK	;WAS BYTE WORD MODIFIED?
  4123	034070	012 03 0 00 013113 		ER12	AC-5,13113	;FAILURE - BYTE WORD WAS MODIFIED
  4124	034071	321 12 0 00 034052 		JUMPL	AC+2,G13110	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 56
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0116

  4125					;MSCL BYTE TESTS - ILDB
  4126					;VERIFY THAT ILDB WORKS WHEN BYTE IS IN AN AC AND
  4127					;POINTER IS IN CORE MEMORY
  4128
  4129			000007			AC=7
  4130						SAVEAC	(1,1)^
  4131	034072	201 11 0 00 034072 		MOVEI	AC+2,.		;SAVE TEST PC
  4132	034073	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4133	034074	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4134	034075	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4135	034076	254 02 1 00 041005 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4136
  4137	034077	205 05 0 00 170600 	G13120:	MOVSI	AC-2,170600
  4138	034100	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17
  4139	034101	202 05 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4140	034102	505 05 0 00 110600 		HRLI	AC-2,110600	;POINTER FOR COMPARISON
  4141	034103	200 03 0 00 040766 		MOVE	AC-4,[230703,,603700] ;SETUP BYTE WORD
  4142	034104	200 06 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4143	034105	400 00 0 00 000007 		SETZ	AC		;SETUP AC
  4144	034106	134 07 0 00 040136 		ILDB	AC,BYTBLK	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4145									;AND INCREMENT POINTER
  4146	034107	200 04 0 00 040136 		MOVE	AC-3,BYTBLK
  4147	034110	312 05 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY?
  4148	034111	005 04 0 00 013121 		ER5	AC-3,13121	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
  4149	034112	302 07 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4150	034113	003 07 0 00 013122 		ER3	AC,13122	;FAILURE - BYTE NOT LOADED CORRECTLY
  4151	034114	312 03 0 00 000006 		CAME	AC-4,<AC-1>&17	;WAS BYTE WORD MODIFIED?
  4152	034115	012 03 0 00 013123 		ER12	AC-4,13123	;FAILURE - BYTE WORD WAS MODIFIED
  4153	034116	321 11 0 00 034077 		JUMPL	AC+2,G13120	;LOOP ON ERROR SWITCH
  4154
  4155					;MSCL BYTE TESTS - ILDB
  4156					;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
  4157
  4158			000006			AC=6
  4159						SAVEAC	(1,1)^
  4160	034117	201 10 0 00 034117 		MOVEI	AC+2,.		;SAVE TEST PC
  4161	034120	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  4162	034121	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4163	034122	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4164	034123	254 02 1 00 041006 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4165
  4166	034124	205 04 0 00 170600 	G13130:	MOVSI	AC-2,170600
  4167	034125	541 04 0 00 040141 		HRRI	AC-2,BYTBLK+3
  4168
  4169	034126	202 04 0 00 040136 		MOVEM	AC-2,BYTBLK	;SETUP POINTER
  4170	034127	505 04 0 00 110600 		HRLI	AC-2,110600	;POINTER FOR COMPARISON
  4171	034130	200 02 0 00 040766 		MOVE	AC-4,[230703,,603700]
  4172	034131	202 02 0 00 040141 		MOVEM	AC-4,BYTBLK+3	;SETUP BYTE WORD
  4173	034132	200 05 0 00 040766 		MOVE	AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
  4174	034133	400 06 0 00 000000 		SETZ	AC,		;SETUP AC
  4175	034134	134 06 0 00 040136 		ILDB	AC,BYTBLK	;ILDB SHOULD PLACE 0,,3 INTO THE AC
  4176									;AND INCREMENT THE POINTER
  4177	034135	200 02 0 00 040136 		MOVE	AC-4,BYTBLK
  4178	034136	312 04 0 00 040136 		CAME	AC-2,BYTBLK	;WAS POINTER INCREMENTED CORRECTLY?
  4179	034137	005 02 0 00 013131 		ER5	AC-4,13131	;FAILURE - POINTER NOT INCREMENTED CORRECTLY
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 56-1
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0117

  4180	034140	200 03 0 00 040141 		MOVE	AC-3,BYTBLK+3
  4181	034141	312 05 0 00 040141 		CAME	AC-1,BYTBLK+3	;WAS BYTE WORD MODIFIED?
  4182	034142	012 03 0 00 013132 		ER12	AC-3,13132	;FAILURE - BYTE WORD WAS MODIFIED
  4183	034143	302 06 0 00 000003 		CAIE	AC,3		;WAS BYTE LOADED CORRECTLY?
  4184	034144	003 06 0 00 013133 		ER3	AC,13133	;FAILURE - BYTE NOT LOADED CORRECTLY
  4185	034145	321 10 0 00 034124 		JUMPL	AC+2,G13130	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 57
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0118

  4186					;TEST LDB WHEN SIZE OF BYTE IS ZERO BITS
  4187					;THE AC SHOULD BE CLEARED
  4188
  4189			000005			AC=5
  4190						SAVEAC	(1,1)^
  4191	034146	201 07 0 00 034146 		MOVEI	AC+2,.		;SAVE TEST PC
  4192	034147	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  4193	034150	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4194	034151	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4195	034152	254 02 1 00 041007 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4196
  4197	034153	201 03 0 00 000001 	G13200:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4198	034154	474 05 0 00 000000 		SETO	AC,		;SETUP AC
  4199	034155	551 01 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4200	034156	135 05 0 00 000001 		LDB	AC,<AC-4>&17	;LDB SHOULD CLEAR THE AC
  4201	034157	302 05 0 00 000000 		CAIE	AC,0		;WAS AC CLEARED?
  4202	034160	003 05 0 00 013201 		ER3	AC,13201	;FAILURE - AC WAS NOT CLEARED
  4203	034161	302 03 0 00 000001 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED?
  4204	034162	005 03 0 00 013202 		ER5	AC-2,13202	;FAILURE - POINTER WAS MODIFIED
  4205	034163	302 01 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4206	034164	012 01 0 00 013203 		ER12	AC-4,13203	;FAILURE - BYTE WORD WAS MODIFIED
  4207	034165	321 07 0 00 034153 		JUMPL	AC+2,G13200	;LOOP ON ERROR SWITCH
  4208
  4209					;TEST ILDB WHEN SIZE OF BYTE IS ZERO BITS
  4210					;THE AC SHOULD BE CLEARED
  4211
  4212			000014			AC=14
  4213						SAVEAC	(1,1)^
  4214	034166	201 16 0 00 034166 		MOVEI	AC+2,.		;SAVE TEST PC
  4215	034167	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4216	034170	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4217	034171	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4218	034172	254 02 1 00 041010 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4219
  4220	034173	201 12 0 00 000010 	G13210:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4221	034174	474 14 0 00 000000 		SETO	AC,		;SETUP AC
  4222	034175	551 10 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4223	034176	134 14 0 00 000010 		ILDB	AC,<AC-4>&17	;ILDB SHOULD CLEAR THE AC
  4224	034177	302 14 0 00 000000 		CAIE	AC,0		;WAS AC CLEARED
  4225	034200	003 14 0 00 013211 		ER3	AC,13211	;FAILURE - AC WAS NOT CLEARED
  4226	034201	302 12 0 00 000010 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED
  4227	034202	005 12 0 00 013212 		ER5	AC-2,13212	;FAILURE - POINTER WAS MODIFIED
  4228	034203	302 10 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED?
  4229	034204	012 10 0 00 013213 		ER12	AC-4,13213	;FAILURE - BYTE WORD WAS MODIFIED
  4230	034205	321 16 0 00 034173 		JUMPL	AC+2,G13210	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 58
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0119

  4231					;TEST DPB WHEN SIZE OF BYTE IS ZERO BITS
  4232					;THE AC SHOULD NOT BE AFFECTED
  4233
  4234			000013			AC=13
  4235						SAVEAC	(1,1)^
  4236	034206	201 15 0 00 034206 		MOVEI	AC+2,.		;SAVE TEST PC
  4237	034207	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4238	034210	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4239	034211	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4240	034212	254 02 1 00 041011 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4241
  4242	034213	201 11 0 00 000007 	G13220:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4243	034214	474 13 0 00 000000 		SETO	AC,		;SETUP AC
  4244	034215	551 07 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4245	034216	137 13 0 00 000007 		DPB	AC,<AC-4>&17	;DPB SHOULD NOT MODIFY ANYTHING
  4246	034217	312 13 0 00 040750 		CAME	AC,[-1]		;WAS AC MODIFIED?
  4247	034220	003 13 0 00 013221 		ER3	AC,13221	;FAILURE - AC WAS MODIFIED
  4248	034221	302 11 0 00 000007 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED?
  4249	034222	005 11 0 00 013222 		ER5	AC-2,13222	;FAILURE - POINTER WAS MODIFIED
  4250	034223	302 07 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED?
  4251	034224	012 07 0 00 013223 		ER12	AC-4,13223	;FAILURE - BYTE WORD WAS MODIFIED
  4252	034225	321 15 0 00 034213 		JUMPL	AC+2,G13220	;LOOP ON ERROR SWITCH
  4253
  4254					;TEST IDPB WHEN SIZE OF BYTE IS ZERO BITS
  4255					;TITE AC SHOULD NOT BE AFFECTED
  4256
  4257			000012			AC=12
  4258						SAVEAC	(1,1)^
  4259	034226	201 14 0 00 034226 		MOVEI	AC+2,.		;SAVE TEST PC
  4260	034227	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4261	034230	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4262	034231	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4263	034232	254 02 1 00 041012 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4264
  4265	034233	201 10 0 00 000006 	G13230:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4266	034234	474 12 0 00 000000 		SETO	AC,		;SETUP AC
  4267	034235	551 06 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4268	034236	136 12 0 00 000006 		IDPB	AC,<AC-4>&17	;IDPB SHOULD NOT MODIFY ANYTHING
  4269	034237	312 12 0 00 040750 		CAME	AC,[-1]	;WAS AC MODIFIED?
  4270	034240	003 12 0 00 013231 		ER3	AC,13231	;FAILURE - AC WAS MODIFIED
  4271	034241	302 10 0 00 000006 		CAIE	AC-2,<AC-4>&17	;WAS POINTER MODIFIED
  4272	034242	005 10 0 00 013232 		ER5	AC-2,13232	;FAILURE - POINTER WAS MODIFIED
  4273	034243	302 06 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4274	034244	012 06 0 00 013233 		ER12	AC-4,13233	;FAILURE - BYTE WORD WAS MODIFIED
  4275	034245	321 14 0 00 034233 		JUMPL	AC+2,G13230	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 59
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0120

  4276					;TEST IBP WHEN SIZE OF BYTE IS ZERO BITS
  4277					;THE AC SHOULD NOT BE AFFECTED
  4278
  4279			000011			AC=11
  4280						SAVEAC	(1,1)^
  4281	034246	201 13 0 00 034246 		MOVEI	AC+2,.		;SAVE TEST PC
  4282	034247	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  4283	034250	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4284	034251	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4285	034252	254 02 1 00 041013 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4286
  4287	034253	201 07 0 00 000005 	G13240:	MOVEI	AC-2,<AC-4>&17	;SETUP POINTER
  4288	034254	474 11 0 00 000000 		SETO	AC,		;SETUP AC
  4289	034255	551 05 0 00 000010 		HRRZI	AC-4,10		;SETUP BYTE WORD
  4290	034256	336 00 0 00 030041 		SKIPN	KLFLG
  4291	034257	133 11 0 00 000005 		IBP	AC,<AC-4>&17	;IBP SHOULD NOT MODIFY ANYTHING
  4292	034260	332 00 0 00 030041 		SKIPE	KLFLG
  4293	034261	133 00 0 00 000005 		IBP	0,<AC-4>&17	;KL10, DON'T DO ADJBP !
  4294	034262	312 11 0 00 040750 		CAME	AC,[-1]		;WAS AC MODIFIED?
  4295	034263	003 11 0 00 013241 		ER3	AC,13241	;FAILURE - AC WAS MODIFIED
  4296	034264	302 07 0 00 000005 		CAIE	AC-2,<AC-4>&17	;WASPOINTER MODIFIED?
  4297	034265	005 07 0 00 013242 		ER5	AC-2,13242	;FAILURE - POINTER WAS MODIFIED
  4298	034266	302 05 0 00 000010 		CAIE	AC-4,10		;WAS BYTE WORD MODIFIED
  4299	034267	012 05 0 00 013243 		ER12	AC-4,13243	;FAILURE - BYTE WORD WAS MODIFIED
  4300	034270	321 13 0 00 034253 		JUMPL	AC+2,G13240	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 60
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0121

  4301					;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
  4302
  4303			000010			AC=10
  4304						SAVEAC	(1,1)^
  4305	034271	201 12 0 00 034271 		MOVEI	AC+2,.		;SAVE TEST PC
  4306	034272	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  4307	034273	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4308	034274	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4309	034275	254 02 1 00 041014 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4310
  4311	034276	205 06 0 00 430100 	G13300:	MOVSI	AC-2,430100
  4312	034277	541 06 0 00 000004 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4313	034300	200 07 0 00 000006 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4314	034301	561 10 0 00 000000 		HRROI	AC,0		;SETUP AC
  4315	034302	515 04 0 00 777777 		HRLZI	AC-4,-1		;SETUP BYTE WORD
  4316	034303	200 05 0 00 000004 		MOVE	AC-3,<AC-4>&17	;BYTE OWRD FOR COMPARISON
  4317	034304	135 10 0 00 000006 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,1 INTO THE AC
  4318	034305	302 10 0 00 000001 		CAIE	AC,1		;LOOP ON ERROR SWITCH
  4319	034306	003 10 0 00 013301 		ER3	AC,13301	;FAILURE - BYTE NOT LOADED CORRECTLY
  4320	034307	312 06 0 00 000007 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED?
  4321	034310	005 06 0 00 013302 		ER5	AC-2,13302	;FAILURE POINTER WAS MODIFIED
  4322	034311	312 04 0 00 000005 		CAME	AC-4,<AC-3>&17	;WAS BYTE WORD MODIFIED?
  4323	034312	012 04 0 00 013303 		ER12	AC-4,13303	;FAILURE - BYTE OWRD WAS MODIFIED
  4324	034313	321 12 0 00 034276 		JUMPL	AC+2,G13300	;LOOP ON ERROR SWITCH
  4325
  4326					;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
  4327
  4328			000007			AC=7
  4329						SAVEAC	(1,1)^
  4330	034314	201 11 0 00 034314 		MOVEI	AC+2,.		;SAVE TEST PC
  4331	034315	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4332	034316	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4333	034317	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4334	034320	254 02 1 00 041015 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4335
  4336	034321	205 05 0 00 000100 	G13310:	MOVSI	AC-2,100
  4337	034322	541 05 0 00 000003 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4338	034323	200 06 0 00 000005 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4339	034324	561 07 0 00 000000 		HRROI	AC,0		;SETUP AC
  4340	034325	525 03 0 00 000000 		HRLOI	AC-4,0		;SETUP BYTE WORD
  4341	034326	200 04 0 00 000003 		MOVE	AC-3,<AC-4>&17	;BYTE WORD FOR COMPARISON
  4342	034327	135 07 0 00 000005 		LDB	AC,<AC-2>&17	;LDB SHOULD PLACE 0,,1 INTO THE AC
  4343	034330	302 07 0 00 000001 		CAIE	AC,1		;LOOP ON ERROR SWITCH
  4344	034331	003 07 0 00 013311 		ER3	AC,13311	;FAILURE - BYTE NOT LOADED CORRECTLY
  4345	034332	312 05 0 00 000006 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4346	034333	005 05 0 00 013312 		ER5	AC-2,13312	;FAILURE - POINTER WAS MODIFIED
  4347	034334	312 03 0 00 000004 		CAME	AC-4,<AC-3>&17	;WAS BYTE WORD MODIFIED
  4348	034335	012 03 0 00 013313 		ER12	AC-4,13313	;FAILURE - BYTE WORD WAS MODIFIED
  4349	034336	321 11 0 00 034321 		JUMPL	AC+2,G13310	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 61
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0122

  4350					;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
  4351
  4352			000006			AC=6
  4353						SAVEAC	(1,1)^
  4354	034337	201 10 0 00 034337 		MOVEI	AC+2,.		;SAVE TEST PC
  4355	034340	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  4356	034341	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4357	034342	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4358	034343	254 02 1 00 041016 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4359
  4360	034344	205 04 0 00 430100 	G13320:	MOVSI	AC-2,430100
  4361	034345	541 04 0 00 000002 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4362	034346	200 05 0 00 000004 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4363	034347	561 06 0 00 000076 		HRROI	AC,76		;SETUP AC
  4364	034350	202 06 0 00 000001 		MOVEM	AC,<AC-5>&17	;AC FOR COMPARISON
  4365	034351	474 02 0 00 000000 		SETO	AC-4,		;SETUP BYTE WORD
  4366	034352	200 03 0 00 041017 		MOVE	AC-3,[377777,,-1]	;BYTE WORD FOR COMPARISON
  4367	034353	137 06 0 00 000004 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE 377777,,-1 INTO BYTE WORD
  4368	034354	312 06 0 00 000001 		CAME	AC,<AC-5>&17	;WAS AC MODIFIED?
  4369	034355	003 06 0 00 013321 		ER3	AC,13321	;FAILURE - AC WAS MODIFIED
  4370	034356	312 04 0 00 000005 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4371	034357	005 04 0 00 013322 		ER5	AC-2,13322	;FAILURE - POINTER WAS MODIFIED
  4372	034360	312 02 0 00 000003 		CAME	AC-4,<AC-3>&17	;WAS BYTE DEPOSITED CORRECTLY
  4373	034361	012 02 0 00 013323 		ER12	AC-4,13323	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  4374	034362	321 10 0 00 034344 		JUMPL	AC+2,G13320	;LOOP ON ERROR SWITCH
  4375
  4376					;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
  4377
  4378			000005			AC=5
  4379						SAVEAC	(1,1)^
  4380	034363	201 07 0 00 034363 		MOVEI	AC+2,.		;SAVE TEST PC
  4381	034364	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  4382	034365	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4383	034366	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4384	034367	254 02 1 00 041020 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4385
  4386	034370	205 03 0 00 000100 	G13330:	MOVSI	AC-2,100
  4387	034371	541 03 0 00 000001 		HRRI	AC-2,<AC-4>&17	;SETUP POINTER
  4388	034372	200 04 0 00 000003 		MOVE	AC-1,<AC-2>&17	;POINTER FOR COMPARISON
  4389	034373	561 05 0 00 000076 		HRROI	AC,76		;SETUP AC
  4390	034374	202 05 0 00 000000 		MOVEM	AC,<AC-5>&17	;AC FOR COMPARISON
  4391	034375	474 01 0 00 000000 		SETO	AC-4,		;SETUP BYTE WORD
  4392	034376	200 02 0 00 041021 		MOVE	AC-3,[-2]	;BYTE WORD FOR COMPARISON
  4393	034377	137 05 0 00 000003 		DPB	AC,<AC-2>&17	;DPB SHOULD PLACE -1,,-2 INTO BYTE WORD
  4394	034400	312 05 0 00 000000 		CAME	AC,<AC-5>&17	;WAS AC MODIFIED
  4395	034401	003 05 0 00 013331 		ER3	AC,13331	;FAILURE - AC WAS MODIFIED
  4396	034402	312 03 0 00 000004 		CAME	AC-2,<AC-1>&17	;WAS POINTER MODIFIED
  4397	034403	005 03 0 00 013332 		ER5	AC-2,13332	;FAILURE - POINTER WAS MODIFIED
  4398	034404	312 01 0 00 000002 		CAME	AC-4,<AC-3>&17	;WAS BYTE DEPOSITED CORRECTLY
  4399	034405	012 01 0 00 013333 		ER12	AC-4,13333	;FAILURE - BYTE NOT DEPOSITED CORRECTLY
  4400	034406	321 07 0 00 034370 		JUMPL	AC+2,G13330	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 62
DBKAMM	MAC	16-JUN-76 14:38		PART IB-GENERAL BYTE TEST                                                          SEQ 0123

  4401					;TEST IBP WHEN S IS GREATER THAN P AND THE ADDRESS FIELD OF THE POINTER IS 777777
  4402					;IBP SHOULD CAUSE THE ADDRESS FIELD TO CLEAR AND P SHOULD BECOME 44-S
  4403
  4404			000004			AC=4
  4405						SAVEAC	(1,1)^
  4406	034407	201 06 0 00 034407 		MOVEI	AC+2,.		;SAVE TEST PC
  4407	034410	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  4408	034411	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4409	034412	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4410	034413	254 02 1 00 041022 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4411
  4412	034414	525 02 0 00 000100 	G13400:	HRLOI	AC-2,000100	;SETUP POINTER
  4413	034415	515 01 0 00 430100 		HRLZI	AC-3,430100	;RESULT FOR COMPARISON 
  4414	034416	133 00 0 00 000002 		IBP	<AC-2>&17	;IBP SHOULD PLACE 430100,,0 INTO PTR
  4415	034417	312 02 0 00 000001 		CAME	AC-2,<AC-3>&17	;PASS IF POINTER UPATED CORRECTLY
  4416	034420	005 02 0 00 013400 		ER5	AC-2,13400	;POINTER NOT UPDATED CORRECTLY
  4417	034421	321 06 0 00 034414 		JUMPL	AC+2,G13400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 63
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0124

  4418					SUBTTL	PART II - GENERAL  BLOCK TRANSFER TEST
  4419
  4420	034422	201 00 0 00 041023 		MOVEI	[ASCIZ/BLT FAILED/]
  4421	034423	202 00 0 00 040654 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTOR
  4422
  4423					;VERFIY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
  4424					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4425					;AND WITHIN THE AC ADDRESS RANGE.
  4426			000007			AC=7
  4427						SAVEAC	(1,1)^
  4428	034424	201 11 0 00 034424 		MOVEI	AC+2,.		;SAVE TEST PC
  4429	034425	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  4430	034426	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4431	034427	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4432			022100		SN=22100
  4433			000001			SRCE=<AC-6>&17		;SOURCE BLOCK=AC-6
  4434			000001			DEST=<AC-6>&17		;DESTINATION BLOCK=AC-6
  4435			000001			SIZ=1			;BLOCK SIZE = 1 OWRD
  4436
  4437	034430	200 07 0 00 041026 	G22100:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4438	034431	477 00 0 00 000002 		SETOB	SRCE-1,SRCE+1	;PRELOAD SRCE-1 AND SRCE+1 WITH ONES
  4439	034432	402 00 0 00 000001 		SETZM	SRCE		;LOAD SRCE WITH ZEROS
  4440	034433	251 07 0 00 000001 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD CLEAR DEST BLOCK
  4441			022101		SN=SN+1
  4442	034434	312 00 0 00 040750 		CAME	DEST-1,[-1]	;WAS DEST-1 CLOBBERRED?
  4443	034435	002 00 0 00 022101 		ER2	DEST-1,SN	;DEST -1 WAS CLOBBERRED
  4444			022102		SN=SN+1
  4445	034436	332 00 0 00 000001 		SKIPE	DEST		;DID BLT LOAD DEST FROM SRCE?
  4446	034437	002 01 0 00 022102 		ER2	DEST,SN		;FAIL IF C(DEST) NON-ZERO
  4447			022103		SN=SN+1
  4448	034440	312 02 0 00 040750 		CAME	DEST+1,[-1]	;WAS DEST+1 CLOBBERRED?
  4449	034441	002 02 0 00 022103 		ER2	DEST+1,SN	;DEST +1 WAS CLOBBERRED
  4450	034442	321 11 0 00 034430 		JUMPL	AC+2,G22100	;LOOP ON ERROR SWITCH
  4451					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 63-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0125

  4452					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
  4453					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4454					;AND WITHIN THE AC ADDRESS RANGE.
  4455			000014			AC=14
  4456						SAVEAC	(1,1)^
  4457	034443	201 16 0 00 034443 		MOVEI	AC+2,.		;SAVE TEST PC
  4458	034444	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4459	034445	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4460	034446	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4461			022200		SN=22200
  4462			000006			SRCE=<AC-6>&17		;SOURCE BLOCK = AC-6
  4463			000006			DEST=<AC-6>&17		;DESTINATION BLOCK = AC-6
  4464			000001			SIZ=1			;BLOCK = 1 WORD
  4465
  4466	034447	200 14 0 00 041027 	G22200:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4467	034450	403 05 0 00 000007 		SETZB	SRCE-1,SRCE+1	;PRELOAD SRCE-1 AND SRCE+1 WITH ZEROS
  4468	034451	476 00 0 00 000006 		SETOM	SRCE		;LOAD SRCE WITH ONES
  4469	034452	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DEST WITH ONES
  4470			022201		SN=SN+1
  4471	034453	332 00 0 00 000005 		SKIPE	DEST-1		;WAS DEST-1 CLOBBERRED?
  4472	034454	002 05 0 00 022201 		ER2	DEST-1,SN	;DEST-1 WAS CLOBBERRED
  4473			022202		SN=SN+1
  4474	034455	312 06 0 00 040750 		CAME	DEST,[-1]	;DID BLT LOAD DEST FROM SRCE?
  4475	034456	002 06 0 00 022202 		ER2	DEST,SN		;FAIL IF C(DEST) NOT ALL ONES
  4476			022203		SN=SN+1
  4477	034457	332 00 0 00 000007 		SKIPE	DEST+1		;WAS DEST+1 CLOBBERRED?
  4478	034460	002 07 0 00 022203 		ER2	DEST+1,SN	;DEST+1 WAS CLOBBERRED
  4479	034461	321 16 0 00 034447 		JUMPL	AC+2,G22200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 64
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0126

  4480					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
  4481					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4482					;AND WITHIN THE AC ADDRESS RANGE.
  4483
  4484			000014			AC=14
  4485						SAVEAC	(1,1)^
  4486	034462	201 16 0 00 034462 		MOVEI	AC+2,.		;SAVE TEST PC
  4487	034463	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4488	034464	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4489	034465	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4490			022300		SN=22300
  4491			000006			SRCE=<AC-6>&17		;SOURCE BLOCK = AC-6
  4492			000006			DEST=<AC-6>&17		;DESTINATION BLOCK = AC-6
  4493			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4494
  4495	034466	200 14 0 00 041027 	G22300:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF ARCE AND DEST
  4496	034467	403 05 0 00 000007 		SETZB	SRCE-1,SRCE+1	;CLEAR SRCE-1 AND SRCE+1
  4497	034470	200 06 0 00 040766 		MOVE	SRCE,[230703,,603700]	;PRELOAD SOURCE BLOCK
  4498	034471	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD PLACE C(SRCE) INTO DEST
  4499			022301		SN=SN+1
  4500	034472	332 00 0 00 000005 		SKIPE	DEST-1		;WAS DEST-1 CLOBBERRED?
  4501	034473	002 05 0 00 022301 		ER2	DEST-1,SN	;DEST-1 WAS CLOBBERRED
  4502			022302		SN=SN+1
  4503	034474	312 06 0 00 040766 		CAME	DEST,[230703,,603700]	;DID BLT LOAD DEST FROM SRCE
  4504	034475	002 06 0 00 022302 		ER2	DEST,SN		;FAIL IF C(DEST) NOT 230703,,603700
  4505			022303		SN=SN+1
  4506	034476	332 00 0 00 000007 		SKIPE	DEST+1		;WAS DEST+1 CLOBBERRED?
  4507	034477	002 07 0 00 022303 		ER2	DEST+1,SN	;DEST+1 WAS CLOBBERRED
  4508	034500	321 16 0 00 034466 		JUMPL	AC+2,G22300	;LOOP ON ERROR SWITCH
  4509					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 64-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0127

  4510					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
  4511					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4512					;AND BEYOND THE AC ADDRESS RANGE.
  4513			000014			AC=14
  4514						SAVEAC	(1,1)^
  4515	034501	201 16 0 00 034501 		MOVEI	AC+2,.		;SAVE TEST PC
  4516	034502	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4517	034503	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4518	034504	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4519			022400		SN=22400
  4520			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4521			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4522			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4523
  4524	034505	200 14 0 00 041030 	G22400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4525	034506	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD SRCE-1 WITH ONES
  4526	034507	402 00 0 00 040221 		SETZM	SRCE		;LOAD SRCE WITH ZEROS
  4527	034510	476 00 0 00 040222 		SETOM	SRCE+1		;PRELOAD SRCE+1 WITH ONES
  4528	034511	251 14 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD CLEAR DEST BLOCK
  4529			022401		SN=SN+1
  4530	034512	200 13 0 00 040220 		MOVE	AC-1,DEST-1
  4531	034513	312 13 0 00 040750 		CAME	AC-1,[-1]	;WAS DEST-1 CLOBBERRED?
  4532	034514	002 13 0 00 022401 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4533			022402		SN=SN+1
  4534	034515	200 13 0 00 040221 		MOVE	AC-1,DEST
  4535	034516	332 00 0 00 000013 		SKIPE	AC-1		;DID BLT LOAD DEST FROM SRCE?
  4536	034517	002 13 0 00 022402 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT ZERO
  4537			022403		SN=SN+1
  4538	034520	200 13 0 00 040222 		MOVE	AC-1,DEST+1
  4539	034521	312 13 0 00 040750 		CAME	AC-1,[-1]	;WAS DEST+1 CLOBBERRED?
  4540	034522	002 13 0 00 022403 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4541	034523	321 15 0 00 034505 		JUMPL	AC+1,G22400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 65
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0128

  4542					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
  4543					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4544					;AND BEYOND THE AC ADDRESS RANGE.
  4545
  4546			000013			AC=13
  4547						SAVEAC	(1,1)^
  4548	034524	201 15 0 00 034524 		MOVEI	AC+2,.		;SAVE TEST PC
  4549	034525	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4550	034526	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4551	034527	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4552			022500		SN=22500
  4553			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4554			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4555			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4556
  4557	034530	200 13 0 00 041030 	G22500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4558	034531	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD SRCE-1 WITH ZEROS
  4559	034532	476 00 0 00 040221 		SETOM	SRCE		;LOAD SRCE WITH ONES
  4560	034533	402 00 0 00 040222 		SETZM	SRCE+1		;PRELOAD SRCE+1 WITH ZEROS
  4561	034534	251 13 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DEST BLOCK WITH ONES
  4562			022501		SN=SN+1
  4563	034535	200 12 0 00 040220 		MOVE	AC-1,DEST-1
  4564	034536	332 00 0 00 000012 		SKIPE	AC-1		;WAS DEST-1 CLOBBERRED?
  4565	034537	002 12 0 00 022501 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4566			022502		SN=SN+1
  4567	034540	200 12 0 00 040221 		MOVE	AC-1,DEST
  4568	034541	312 12 0 00 040750 		CAME	AC-1,[-1]	;DID BLT LOAD DEST FROM SRCE?
  4569	034542	002 12 0 00 022502 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT ALL ONES
  4570			022503		SN=SN+1
  4571	034543	200 12 0 00 040222 		MOVE	AC-1,DEST+1
  4572	034544	332 00 0 00 000012 		SKIPE	AC-1		;WAS DEST+1 CLOBBERRED?
  4573	034545	002 12 0 00 022503 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4574	034546	321 15 0 00 034530 		JUMPL	AC+2,G22500	;LOOP ON ERROR SWITCH
  4575					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 65-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0129

  4576					;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
  4577					;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
  4578					;AND BEYOND THE AC ADDRESS RANGE.
  4579
  4580			000012			AC=12
  4581						SAVEAC	(1,1)^
  4582	034547	201 14 0 00 034547 		MOVEI	AC+2,.		;SAVE TEST PC
  4583	034550	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4584	034551	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4585	034552	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4586			022600		SN=22600
  4587			040221			SRCE=BLTBLK+1		;SOURCE BLOCK = BLTBLK+1
  4588			040221			DEST=BLTBLK+1		;DEST BLOCK = BLTBLK+1
  4589			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4590
  4591	034553	200 12 0 00 041030 	G22600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH ADR OF SRCE AND DEST
  4592	034554	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD SRCE-1 WITH ZEROS
  4593	034555	200 13 0 00 040766 		MOVE	AC+1,[230703,,603700]	;LOAD SRCE BLOCK
  4594	034556	202 13 0 00 040221 		MOVEM	AC+1,SRCE
  4595	034557	402 00 0 00 040222 		SETZM	SRCE+1		;PRELOAD SRCE+1 WITH ZEROS
  4596	034560	251 12 0 00 040221 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD PLACE C(SRCE) INTO DEST
  4597			022601		SN=SN+1
  4598	034561	200 11 0 00 040220 		MOVE	AC-1,DEST-1
  4599	034562	332 00 0 00 000011 		SKIPE	AC-1		;WAS DEST-1 CLOBBERRED?
  4600	034563	002 11 0 00 022601 		ER2	AC-1,SN		;DEST-1 WAS CLOBBERRED
  4601			022602		SN=SN+1
  4602	034564	200 11 0 00 040221 		MOVE	AC-1,DEST
  4603	034565	312 11 0 00 040766 		CAME	AC-1,[230703,,603700]	;DID BLT LOAD DEST FROM SRCE?
  4604	034566	002 11 0 00 022602 		ER2	AC-1,SN		;FAIL IF C(DEST) NOT 230703,,603700
  4605			022603		SN=SN+1
  4606	034567	200 11 0 00 040222 		MOVE	AC-1,DEST+1
  4607	034570	332 00 0 00 000011 		SKIPE	AC-1		;WAS DEST+1 CLOBBERRED?
  4608	034571	002 11 0 00 022603 		ER2	AC-1,SN		;DEST+1 WAS CLOBBERRED
  4609	034572	321 13 0 00 034553 		JUMPL	AC+1,G22600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0130

  4610					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4611
  4612						BLTM1	(22700,14,<<AC-6>&17>,<<AC-3>&17>,0)^
  4613					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4614					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4615					;SOURCE DATA = 0
  4616
  4617			000014			AC=14
  4618						SAVEAC	(1,1)^
  4619	034573	201 16 0 00 034573 		MOVEI	AC+2,.		;SAVE TEST PC
  4620	034574	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  4621	034575	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4622	034576	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4623			022700		SN=22700
  4624			000006			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4625			000011			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4626			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4627
  4628	034577	200 14 0 00 041031 	G22700:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4629						GMOV	(SRCE-1,<252525252525>)^
  4630						IFLE	<SRCE-1-20>,<
  4631	034600	200 05 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4632						IFG	<SRCE-1-20>,<
  4633						MOVE	AC+1,[252525252525]
  4634						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4635						GMOV	(SRCE,<0>)^
  4636						IFLE	<SRCE-20>,<
  4637	034601	200 06 0 00 041025 		MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  4638						IFG	<SRCE-20>,<
  4639						MOVE	AC+1,[0]
  4640						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  4641						GMOV	(SRCE+1,<770077007700>)^
  4642						IFLE	<SRCE+1-20>,<
  4643	034602	200 07 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4644						IFG	<SRCE+1-20>,<
  4645						MOVE	AC+1,[770077007700]
  4646						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4647						GMOV	(DEST-1,<070707070707>)^
  4648						IFLE	<DEST-1-20>,<
  4649	034603	200 10 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4650						IFG	<DEST-1-20>,<
  4651						MOVE	AC+1,[070707070707]
  4652						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4653						GMOV	(DEST,<123456765432>)^
  4654						IFLE	<DEST-20>,<
  4655	034604	200 11 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4656						IFG	<DEST-20>,<
  4657						MOVE	AC+1,[123456765432]
  4658						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4659						GMOV	(DEST+1,<552255225522>)^
  4660						IFLE	<DEST+1-20>,<
  4661	034605	200 12 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4662						IFG	<DEST+1-20>,<
  4663						MOVE	AC+1,[552255225522]
  4664						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0131

  4665	034606	251 14 0 00 000011 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  4666						GCAM	(SRCE-1,<252525252525>)^
  4667			022701		SN=SN+1
  4668						IFG	<SRCE-1-20>,<
  4669						MOVE	AC-1,SRCE-1
  4670						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4671						IFIDN	<DEST>,<SRCE-1>,<
  4672						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4673						IFDIF	<DEST>,<SRCE-1>,<
  4674						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  4675						IFLE	<SRCE-1-20>,<
  4676	034607	312 05 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4677						IFIDN	<DEST>,<SRCE-1>,<
  4678						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  4679						IFDIF	<DEST>,<SRCE-1>,<
  4680	034610	002 05 0 00 022701 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  4681						GCAM	(SRCE,<0>)^
  4682			022702		SN=SN+1
  4683						IFG	<SRCE-20>,<
  4684						MOVE	AC-1,SRCE
  4685						CAME	AC-1,[0]	;IS C(SRCE) = 0
  4686						IFIDN	<DEST>,<SRCE>,<
  4687						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4688						IFDIF	<DEST>,<SRCE>,<
  4689						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  4690						IFLE	<SRCE-20>,<
  4691	034611	312 06 0 00 041025 		CAME	SRCE,[0]	;IS C(SRCE) = 0
  4692						IFIDN	<DEST>,<SRCE>,<
  4693						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  4694						IFDIF	<DEST>,<SRCE>,<
  4695	034612	002 06 0 00 022702 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  4696						GCAM	(SRCE+1,<770077007700>)^
  4697			022703		SN=SN+1
  4698						IFG	<SRCE+1-20>,<
  4699						MOVE	AC-1,SRCE+1
  4700						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4701						IFIDN	<DEST>,<SRCE+1>,<
  4702						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4703						IFDIF	<DEST>,<SRCE+1>,<
  4704						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  4705						IFLE	<SRCE+1-20>,<
  4706	034613	312 07 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4707						IFIDN	<DEST>,<SRCE+1>,<
  4708						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  4709						IFDIF	<DEST>,<SRCE+1>,<
  4710	034614	002 07 0 00 022703 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  4711						GCAM	(DEST-1,<070707070707>)^
  4712			022704		SN=SN+1
  4713						IFG	<DEST-1-20>,<
  4714						MOVE	AC-1,DEST-1
  4715						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4716						IFIDN	<DEST>,<DEST-1>,<
  4717						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4718						IFDIF	<DEST>,<DEST-1>,<
  4719						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-2
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0132

  4720						IFLE	<DEST-1-20>,<
  4721	034615	312 10 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4722						IFIDN	<DEST>,<DEST-1>,<
  4723						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  4724						IFDIF	<DEST>,<DEST-1>,<
  4725	034616	002 10 0 00 022704 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  4726						GCAM	(DEST,<0>)^
  4727			022705		SN=SN+1
  4728						IFG	<DEST-20>,<
  4729						MOVE	AC-1,DEST
  4730						CAME	AC-1,[0]	;IS C(DEST) = 0
  4731						IFIDN	<DEST>,<DEST>,<
  4732						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4733						IFDIF	<DEST>,<DEST>,<
  4734						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  4735						IFLE	<DEST-20>,<
  4736	034617	312 11 0 00 041025 		CAME	DEST,[0]	;IS C(DEST) = 0
  4737						IFIDN	<DEST>,<DEST>,<
  4738	034620	002 11 0 00 022705 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  4739						IFDIF	<DEST>,<DEST>,<
  4740						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  4741						GCAM	(DEST+1,<552255225522>)^
  4742			022706		SN=SN+1
  4743						IFG	<DEST+1-20>,<
  4744						MOVE	AC-1,DEST+1
  4745						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  4746						IFIDN	<DEST>,<DEST+1>,<
  4747						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4748						IFDIF	<DEST>,<DEST+1>,<
  4749						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  4750						IFLE	<DEST+1-20>,<
  4751	034621	312 12 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  4752						IFIDN	<DEST>,<DEST+1>,<
  4753						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  4754						IFDIF	<DEST>,<DEST+1>,<
  4755	034622	002 12 0 00 022706 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  4756	034623	321 16 0 00 034577 		JUMPL	AC+2,G22700		;LOOP ON ERROR^
  4757					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-3
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0133

  4758					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4759
  4760						BLTM1	(23000,13,<<AC-6>&17>,<<AC-3>&17>,-1)^
  4761					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4762					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4763					;SOURCE DATA = -1
  4764
  4765			000013			AC=13
  4766						SAVEAC	(1,1)^
  4767	034624	201 15 0 00 034624 		MOVEI	AC+2,.		;SAVE TEST PC
  4768	034625	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  4769	034626	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4770	034627	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4771			023000		SN=23000
  4772			000005			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4773			000010			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4774			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4775
  4776	034630	200 13 0 00 041037 	G23000:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4777						GMOV	(SRCE-1,<252525252525>)^
  4778						IFLE	<SRCE-1-20>,<
  4779	034631	200 04 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4780						IFG	<SRCE-1-20>,<
  4781						MOVE	AC+1,[252525252525]
  4782						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4783						GMOV	(SRCE,<-1>)^
  4784						IFLE	<SRCE-20>,<
  4785	034632	200 05 0 00 040750 		MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  4786						IFG	<SRCE-20>,<
  4787						MOVE	AC+1,[-1]
  4788						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  4789						GMOV	(SRCE+1,<770077007700>)^
  4790						IFLE	<SRCE+1-20>,<
  4791	034633	200 06 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4792						IFG	<SRCE+1-20>,<
  4793						MOVE	AC+1,[770077007700]
  4794						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4795						GMOV	(DEST-1,<070707070707>)^
  4796						IFLE	<DEST-1-20>,<
  4797	034634	200 07 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4798						IFG	<DEST-1-20>,<
  4799						MOVE	AC+1,[070707070707]
  4800						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4801						GMOV	(DEST,<123456765432>)^
  4802						IFLE	<DEST-20>,<
  4803	034635	200 10 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4804						IFG	<DEST-20>,<
  4805						MOVE	AC+1,[123456765432]
  4806						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4807						GMOV	(DEST+1,<552255225522>)^
  4808						IFLE	<DEST+1-20>,<
  4809	034636	200 11 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4810						IFG	<DEST+1-20>,<
  4811						MOVE	AC+1,[552255225522]
  4812						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-4
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0134

  4813	034637	251 13 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  4814						GCAM	(SRCE-1,<252525252525>)^
  4815			023001		SN=SN+1
  4816						IFG	<SRCE-1-20>,<
  4817						MOVE	AC-1,SRCE-1
  4818						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4819						IFIDN	<DEST>,<SRCE-1>,<
  4820						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4821						IFDIF	<DEST>,<SRCE-1>,<
  4822						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  4823						IFLE	<SRCE-1-20>,<
  4824	034640	312 04 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4825						IFIDN	<DEST>,<SRCE-1>,<
  4826						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  4827						IFDIF	<DEST>,<SRCE-1>,<
  4828	034641	002 04 0 00 023001 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  4829						GCAM	(SRCE,<-1>)^
  4830			023002		SN=SN+1
  4831						IFG	<SRCE-20>,<
  4832						MOVE	AC-1,SRCE
  4833						CAME	AC-1,[-1]	;IS C(SRCE) = -1
  4834						IFIDN	<DEST>,<SRCE>,<
  4835						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4836						IFDIF	<DEST>,<SRCE>,<
  4837						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  4838						IFLE	<SRCE-20>,<
  4839	034642	312 05 0 00 040750 		CAME	SRCE,[-1]	;IS C(SRCE) = -1
  4840						IFIDN	<DEST>,<SRCE>,<
  4841						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  4842						IFDIF	<DEST>,<SRCE>,<
  4843	034643	002 05 0 00 023002 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  4844						GCAM	(SRCE+1,<770077007700>)^
  4845			023003		SN=SN+1
  4846						IFG	<SRCE+1-20>,<
  4847						MOVE	AC-1,SRCE+1
  4848						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4849						IFIDN	<DEST>,<SRCE+1>,<
  4850						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4851						IFDIF	<DEST>,<SRCE+1>,<
  4852						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  4853						IFLE	<SRCE+1-20>,<
  4854	034644	312 06 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4855						IFIDN	<DEST>,<SRCE+1>,<
  4856						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  4857						IFDIF	<DEST>,<SRCE+1>,<
  4858	034645	002 06 0 00 023003 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  4859						GCAM	(DEST-1,<070707070707>)^
  4860			023004		SN=SN+1
  4861						IFG	<DEST-1-20>,<
  4862						MOVE	AC-1,DEST-1
  4863						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4864						IFIDN	<DEST>,<DEST-1>,<
  4865						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4866						IFDIF	<DEST>,<DEST-1>,<
  4867						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-5
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0135

  4868						IFLE	<DEST-1-20>,<
  4869	034646	312 07 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  4870						IFIDN	<DEST>,<DEST-1>,<
  4871						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  4872						IFDIF	<DEST>,<DEST-1>,<
  4873	034647	002 07 0 00 023004 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  4874						GCAM	(DEST,<-1>)^
  4875			023005		SN=SN+1
  4876						IFG	<DEST-20>,<
  4877						MOVE	AC-1,DEST
  4878						CAME	AC-1,[-1]	;IS C(DEST) = -1
  4879						IFIDN	<DEST>,<DEST>,<
  4880						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4881						IFDIF	<DEST>,<DEST>,<
  4882						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  4883						IFLE	<DEST-20>,<
  4884	034650	312 10 0 00 040750 		CAME	DEST,[-1]	;IS C(DEST) = -1
  4885						IFIDN	<DEST>,<DEST>,<
  4886	034651	002 10 0 00 023005 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  4887						IFDIF	<DEST>,<DEST>,<
  4888						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  4889						GCAM	(DEST+1,<552255225522>)^
  4890			023006		SN=SN+1
  4891						IFG	<DEST+1-20>,<
  4892						MOVE	AC-1,DEST+1
  4893						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  4894						IFIDN	<DEST>,<DEST+1>,<
  4895						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4896						IFDIF	<DEST>,<DEST+1>,<
  4897						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  4898						IFLE	<DEST+1-20>,<
  4899	034652	312 11 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  4900						IFIDN	<DEST>,<DEST+1>,<
  4901						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  4902						IFDIF	<DEST>,<DEST+1>,<
  4903	034653	002 11 0 00 023006 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  4904	034654	321 15 0 00 034630 		JUMPL	AC+2,G23000		;LOOP ON ERROR^
  4905					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-6
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0136

  4906					;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
  4907
  4908						BLTM1	(23100,12,<<AC-6>&17>,<<AC-3>&17>,<230703,,603700>)^
  4909					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  4910					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  4911					;SOURCE DATA = 230703,,603700
  4912
  4913			000012			AC=12
  4914						SAVEAC	(1,1)^
  4915	034655	201 14 0 00 034655 		MOVEI	AC+2,.		;SAVE TEST PC
  4916	034656	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  4917	034657	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4918	034660	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4919			023100		SN=23100
  4920			000004			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  4921			000007			DEST=<AC-3>&17			;1ST LOC OF DESTINATION = <AC-3>&17
  4922			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  4923
  4924	034661	200 12 0 00 041040 	G23100:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  4925						GMOV	(SRCE-1,<252525252525>)^
  4926						IFLE	<SRCE-1-20>,<
  4927	034662	200 03 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  4928						IFG	<SRCE-1-20>,<
  4929						MOVE	AC+1,[252525252525]
  4930						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  4931						GMOV	(SRCE,<230703,,603700>)^
  4932						IFLE	<SRCE-20>,<
  4933	034663	200 04 0 00 040766 		MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  4934						IFG	<SRCE-20>,<
  4935						MOVE	AC+1,[230703,,603700]
  4936						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  4937						GMOV	(SRCE+1,<770077007700>)^
  4938						IFLE	<SRCE+1-20>,<
  4939	034664	200 05 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  4940						IFG	<SRCE+1-20>,<
  4941						MOVE	AC+1,[770077007700]
  4942						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  4943						GMOV	(DEST-1,<070707070707>)^
  4944						IFLE	<DEST-1-20>,<
  4945	034665	200 06 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  4946						IFG	<DEST-1-20>,<
  4947						MOVE	AC+1,[070707070707]
  4948						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  4949						GMOV	(DEST,<123456765432>)^
  4950						IFLE	<DEST-20>,<
  4951	034666	200 07 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  4952						IFG	<DEST-20>,<
  4953						MOVE	AC+1,[123456765432]
  4954						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  4955						GMOV	(DEST+1,<552255225522>)^
  4956						IFLE	<DEST+1-20>,<
  4957	034667	200 10 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  4958						IFG	<DEST+1-20>,<
  4959						MOVE	AC+1,[552255225522]
  4960						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-7
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0137

  4961	034670	251 12 0 00 000007 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  4962						GCAM	(SRCE-1,<252525252525>)^
  4963			023101		SN=SN+1
  4964						IFG	<SRCE-1-20>,<
  4965						MOVE	AC-1,SRCE-1
  4966						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4967						IFIDN	<DEST>,<SRCE-1>,<
  4968						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4969						IFDIF	<DEST>,<SRCE-1>,<
  4970						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  4971						IFLE	<SRCE-1-20>,<
  4972	034671	312 03 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  4973						IFIDN	<DEST>,<SRCE-1>,<
  4974						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  4975						IFDIF	<DEST>,<SRCE-1>,<
  4976	034672	002 03 0 00 023101 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  4977						GCAM	(SRCE,<230703,,603700>)^
  4978			023102		SN=SN+1
  4979						IFG	<SRCE-20>,<
  4980						MOVE	AC-1,SRCE
  4981						CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  4982						IFIDN	<DEST>,<SRCE>,<
  4983						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4984						IFDIF	<DEST>,<SRCE>,<
  4985						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  4986						IFLE	<SRCE-20>,<
  4987	034673	312 04 0 00 040766 		CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  4988						IFIDN	<DEST>,<SRCE>,<
  4989						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  4990						IFDIF	<DEST>,<SRCE>,<
  4991	034674	002 04 0 00 023102 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  4992						GCAM	(SRCE+1,<770077007700>)^
  4993			023103		SN=SN+1
  4994						IFG	<SRCE+1-20>,<
  4995						MOVE	AC-1,SRCE+1
  4996						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  4997						IFIDN	<DEST>,<SRCE+1>,<
  4998						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  4999						IFDIF	<DEST>,<SRCE+1>,<
  5000						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5001						IFLE	<SRCE+1-20>,<
  5002	034675	312 05 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5003						IFIDN	<DEST>,<SRCE+1>,<
  5004						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5005						IFDIF	<DEST>,<SRCE+1>,<
  5006	034676	002 05 0 00 023103 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5007						GCAM	(DEST-1,<070707070707>)^
  5008			023104		SN=SN+1
  5009						IFG	<DEST-1-20>,<
  5010						MOVE	AC-1,DEST-1
  5011						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5012						IFIDN	<DEST>,<DEST-1>,<
  5013						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5014						IFDIF	<DEST>,<DEST-1>,<
  5015						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-8
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0138

  5016						IFLE	<DEST-1-20>,<
  5017	034677	312 06 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5018						IFIDN	<DEST>,<DEST-1>,<
  5019						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5020						IFDIF	<DEST>,<DEST-1>,<
  5021	034700	002 06 0 00 023104 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5022						GCAM	(DEST,<230703,,603700>)^
  5023			023105		SN=SN+1
  5024						IFG	<DEST-20>,<
  5025						MOVE	AC-1,DEST
  5026						CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5027						IFIDN	<DEST>,<DEST>,<
  5028						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5029						IFDIF	<DEST>,<DEST>,<
  5030						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5031						IFLE	<DEST-20>,<
  5032	034701	312 07 0 00 040766 		CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5033						IFIDN	<DEST>,<DEST>,<
  5034	034702	002 07 0 00 023105 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5035						IFDIF	<DEST>,<DEST>,<
  5036						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5037						GCAM	(DEST+1,<552255225522>)^
  5038			023106		SN=SN+1
  5039						IFG	<DEST+1-20>,<
  5040						MOVE	AC-1,DEST+1
  5041						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5042						IFIDN	<DEST>,<DEST+1>,<
  5043						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5044						IFDIF	<DEST>,<DEST+1>,<
  5045						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5046						IFLE	<DEST+1-20>,<
  5047	034703	312 10 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5048						IFIDN	<DEST>,<DEST+1>,<
  5049						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5050						IFDIF	<DEST>,<DEST+1>,<
  5051	034704	002 10 0 00 023106 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5052	034705	321 14 0 00 034661 		JUMPL	AC+2,G23100		;LOOP ON ERROR^
  5053					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-9
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0139

  5054					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5055
  5056						BLTM1	(23200,14,<<AC-6>&17>,<BLTBLK+4>,0)^
  5057					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5058					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5059					;SOURCE DATA = 0
  5060
  5061			000014			AC=14
  5062						SAVEAC	(1,1)^
  5063	034706	201 16 0 00 034706 		MOVEI	AC+2,.		;SAVE TEST PC
  5064	034707	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  5065	034710	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5066	034711	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5067			023200		SN=23200
  5068			000006			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5069			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5070			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5071
  5072	034712	200 14 0 00 041041 	G23200:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5073						GMOV	(SRCE-1,<252525252525>)^
  5074						IFLE	<SRCE-1-20>,<
  5075	034713	200 05 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5076						IFG	<SRCE-1-20>,<
  5077						MOVE	AC+1,[252525252525]
  5078						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5079						GMOV	(SRCE,<0>)^
  5080						IFLE	<SRCE-20>,<
  5081	034714	200 06 0 00 041025 		MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  5082						IFG	<SRCE-20>,<
  5083						MOVE	AC+1,[0]
  5084						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  5085						GMOV	(SRCE+1,<770077007700>)^
  5086						IFLE	<SRCE+1-20>,<
  5087	034715	200 07 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5088						IFG	<SRCE+1-20>,<
  5089						MOVE	AC+1,[770077007700]
  5090						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5091						GMOV	(DEST-1,<070707070707>)^
  5092						IFLE	<DEST-1-20>,<
  5093						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5094						IFG	<DEST-1-20>,<
  5095	034716	200 15 0 00 041034 		MOVE	AC+1,[070707070707]
  5096	034717	202 15 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5097						GMOV	(DEST,<123456765432>)^
  5098						IFLE	<DEST-20>,<
  5099						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5100						IFG	<DEST-20>,<
  5101	034720	200 15 0 00 041035 		MOVE	AC+1,[123456765432]
  5102	034721	202 15 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5103						GMOV	(DEST+1,<552255225522>)^
  5104						IFLE	<DEST+1-20>,<
  5105						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5106						IFG	<DEST+1-20>,<
  5107	034722	200 15 0 00 041036 		MOVE	AC+1,[552255225522]
  5108	034723	202 15 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-10
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0140

  5109	034724	251 14 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5110						GCAM	(SRCE-1,<252525252525>)^
  5111			023201		SN=SN+1
  5112						IFG	<SRCE-1-20>,<
  5113						MOVE	AC-1,SRCE-1
  5114						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5115						IFIDN	<DEST>,<SRCE-1>,<
  5116						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5117						IFDIF	<DEST>,<SRCE-1>,<
  5118						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5119						IFLE	<SRCE-1-20>,<
  5120	034725	312 05 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5121						IFIDN	<DEST>,<SRCE-1>,<
  5122						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5123						IFDIF	<DEST>,<SRCE-1>,<
  5124	034726	002 05 0 00 023201 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5125						GCAM	(SRCE,<0>)^
  5126			023202		SN=SN+1
  5127						IFG	<SRCE-20>,<
  5128						MOVE	AC-1,SRCE
  5129						CAME	AC-1,[0]	;IS C(SRCE) = 0
  5130						IFIDN	<DEST>,<SRCE>,<
  5131						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5132						IFDIF	<DEST>,<SRCE>,<
  5133						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5134						IFLE	<SRCE-20>,<
  5135	034727	312 06 0 00 041025 		CAME	SRCE,[0]	;IS C(SRCE) = 0
  5136						IFIDN	<DEST>,<SRCE>,<
  5137						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5138						IFDIF	<DEST>,<SRCE>,<
  5139	034730	002 06 0 00 023202 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5140						GCAM	(SRCE+1,<770077007700>)^
  5141			023203		SN=SN+1
  5142						IFG	<SRCE+1-20>,<
  5143						MOVE	AC-1,SRCE+1
  5144						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5145						IFIDN	<DEST>,<SRCE+1>,<
  5146						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5147						IFDIF	<DEST>,<SRCE+1>,<
  5148						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5149						IFLE	<SRCE+1-20>,<
  5150	034731	312 07 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5151						IFIDN	<DEST>,<SRCE+1>,<
  5152						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5153						IFDIF	<DEST>,<SRCE+1>,<
  5154	034732	002 07 0 00 023203 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5155						GCAM	(DEST-1,<070707070707>)^
  5156			023204		SN=SN+1
  5157						IFG	<DEST-1-20>,<
  5158	034733	200 13 0 00 040223 		MOVE	AC-1,DEST-1
  5159	034734	312 13 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5160						IFIDN	<DEST>,<DEST-1>,<
  5161						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5162						IFDIF	<DEST>,<DEST-1>,<
  5163	034735	002 13 0 00 023204 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-11
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0141

  5164						IFLE	<DEST-1-20>,<
  5165						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5166						IFIDN	<DEST>,<DEST-1>,<
  5167						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5168						IFDIF	<DEST>,<DEST-1>,<
  5169						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5170						GCAM	(DEST,<0>)^
  5171			023205		SN=SN+1
  5172						IFG	<DEST-20>,<
  5173	034736	200 13 0 00 040224 		MOVE	AC-1,DEST
  5174	034737	312 13 0 00 041025 		CAME	AC-1,[0]	;IS C(DEST) = 0
  5175						IFIDN	<DEST>,<DEST>,<
  5176	034740	002 13 0 00 023205 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5177						IFDIF	<DEST>,<DEST>,<
  5178						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5179						IFLE	<DEST-20>,<
  5180						CAME	DEST,[0]	;IS C(DEST) = 0
  5181						IFIDN	<DEST>,<DEST>,<
  5182						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5183						IFDIF	<DEST>,<DEST>,<
  5184						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5185						GCAM	(DEST+1,<552255225522>)^
  5186			023206		SN=SN+1
  5187						IFG	<DEST+1-20>,<
  5188	034741	200 13 0 00 040225 		MOVE	AC-1,DEST+1
  5189	034742	312 13 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5190						IFIDN	<DEST>,<DEST+1>,<
  5191						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5192						IFDIF	<DEST>,<DEST+1>,<
  5193	034743	002 13 0 00 023206 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5194						IFLE	<DEST+1-20>,<
  5195						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5196						IFIDN	<DEST>,<DEST+1>,<
  5197						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5198						IFDIF	<DEST>,<DEST+1>,<
  5199						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5200	034744	321 16 0 00 034712 		JUMPL	AC+2,G23200		;LOOP ON ERROR^
  5201					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-12
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0142

  5202					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5203
  5204						BLTM1	(23300,13,<<AC-6>&17>,<BLTBLK+4>,-1)^
  5205					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5206					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5207					;SOURCE DATA = -1
  5208
  5209			000013			AC=13
  5210						SAVEAC	(1,1)^
  5211	034745	201 15 0 00 034745 		MOVEI	AC+2,.		;SAVE TEST PC
  5212	034746	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  5213	034747	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5214	034750	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5215			023300		SN=23300
  5216			000005			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5217			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5218			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5219
  5220	034751	200 13 0 00 041042 	G23300:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5221						GMOV	(SRCE-1,<252525252525>)^
  5222						IFLE	<SRCE-1-20>,<
  5223	034752	200 04 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5224						IFG	<SRCE-1-20>,<
  5225						MOVE	AC+1,[252525252525]
  5226						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5227						GMOV	(SRCE,<-1>)^
  5228						IFLE	<SRCE-20>,<
  5229	034753	200 05 0 00 040750 		MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  5230						IFG	<SRCE-20>,<
  5231						MOVE	AC+1,[-1]
  5232						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  5233						GMOV	(SRCE+1,<770077007700>)^
  5234						IFLE	<SRCE+1-20>,<
  5235	034754	200 06 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5236						IFG	<SRCE+1-20>,<
  5237						MOVE	AC+1,[770077007700]
  5238						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5239						GMOV	(DEST-1,<070707070707>)^
  5240						IFLE	<DEST-1-20>,<
  5241						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5242						IFG	<DEST-1-20>,<
  5243	034755	200 14 0 00 041034 		MOVE	AC+1,[070707070707]
  5244	034756	202 14 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5245						GMOV	(DEST,<123456765432>)^
  5246						IFLE	<DEST-20>,<
  5247						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5248						IFG	<DEST-20>,<
  5249	034757	200 14 0 00 041035 		MOVE	AC+1,[123456765432]
  5250	034760	202 14 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5251						GMOV	(DEST+1,<552255225522>)^
  5252						IFLE	<DEST+1-20>,<
  5253						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5254						IFG	<DEST+1-20>,<
  5255	034761	200 14 0 00 041036 		MOVE	AC+1,[552255225522]
  5256	034762	202 14 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-13
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0143

  5257	034763	251 13 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5258						GCAM	(SRCE-1,<252525252525>)^
  5259			023301		SN=SN+1
  5260						IFG	<SRCE-1-20>,<
  5261						MOVE	AC-1,SRCE-1
  5262						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5263						IFIDN	<DEST>,<SRCE-1>,<
  5264						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5265						IFDIF	<DEST>,<SRCE-1>,<
  5266						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5267						IFLE	<SRCE-1-20>,<
  5268	034764	312 04 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5269						IFIDN	<DEST>,<SRCE-1>,<
  5270						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5271						IFDIF	<DEST>,<SRCE-1>,<
  5272	034765	002 04 0 00 023301 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5273						GCAM	(SRCE,<-1>)^
  5274			023302		SN=SN+1
  5275						IFG	<SRCE-20>,<
  5276						MOVE	AC-1,SRCE
  5277						CAME	AC-1,[-1]	;IS C(SRCE) = -1
  5278						IFIDN	<DEST>,<SRCE>,<
  5279						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5280						IFDIF	<DEST>,<SRCE>,<
  5281						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5282						IFLE	<SRCE-20>,<
  5283	034766	312 05 0 00 040750 		CAME	SRCE,[-1]	;IS C(SRCE) = -1
  5284						IFIDN	<DEST>,<SRCE>,<
  5285						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5286						IFDIF	<DEST>,<SRCE>,<
  5287	034767	002 05 0 00 023302 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5288						GCAM	(SRCE+1,<770077007700>)^
  5289			023303		SN=SN+1
  5290						IFG	<SRCE+1-20>,<
  5291						MOVE	AC-1,SRCE+1
  5292						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5293						IFIDN	<DEST>,<SRCE+1>,<
  5294						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5295						IFDIF	<DEST>,<SRCE+1>,<
  5296						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5297						IFLE	<SRCE+1-20>,<
  5298	034770	312 06 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5299						IFIDN	<DEST>,<SRCE+1>,<
  5300						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5301						IFDIF	<DEST>,<SRCE+1>,<
  5302	034771	002 06 0 00 023303 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5303						GCAM	(DEST-1,<070707070707>)^
  5304			023304		SN=SN+1
  5305						IFG	<DEST-1-20>,<
  5306	034772	200 12 0 00 040223 		MOVE	AC-1,DEST-1
  5307	034773	312 12 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5308						IFIDN	<DEST>,<DEST-1>,<
  5309						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5310						IFDIF	<DEST>,<DEST-1>,<
  5311	034774	002 12 0 00 023304 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-14
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0144

  5312						IFLE	<DEST-1-20>,<
  5313						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5314						IFIDN	<DEST>,<DEST-1>,<
  5315						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5316						IFDIF	<DEST>,<DEST-1>,<
  5317						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5318						GCAM	(DEST,<-1>)^
  5319			023305		SN=SN+1
  5320						IFG	<DEST-20>,<
  5321	034775	200 12 0 00 040224 		MOVE	AC-1,DEST
  5322	034776	312 12 0 00 040750 		CAME	AC-1,[-1]	;IS C(DEST) = -1
  5323						IFIDN	<DEST>,<DEST>,<
  5324	034777	002 12 0 00 023305 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5325						IFDIF	<DEST>,<DEST>,<
  5326						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5327						IFLE	<DEST-20>,<
  5328						CAME	DEST,[-1]	;IS C(DEST) = -1
  5329						IFIDN	<DEST>,<DEST>,<
  5330						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5331						IFDIF	<DEST>,<DEST>,<
  5332						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5333						GCAM	(DEST+1,<552255225522>)^
  5334			023306		SN=SN+1
  5335						IFG	<DEST+1-20>,<
  5336	035000	200 12 0 00 040225 		MOVE	AC-1,DEST+1
  5337	035001	312 12 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5338						IFIDN	<DEST>,<DEST+1>,<
  5339						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5340						IFDIF	<DEST>,<DEST+1>,<
  5341	035002	002 12 0 00 023306 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5342						IFLE	<DEST+1-20>,<
  5343						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5344						IFIDN	<DEST>,<DEST+1>,<
  5345						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5346						IFDIF	<DEST>,<DEST+1>,<
  5347						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5348	035003	321 15 0 00 034751 		JUMPL	AC+2,G23300		;LOOP ON ERROR^
  5349					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-15
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0145

  5350					;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
  5351
  5352						BLTM1	(23400,12,<<AC-6>&17>,<BLTBLK+4>,<230703,,603700>)^
  5353					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5354					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5355					;SOURCE DATA = 230703,,603700
  5356
  5357			000012			AC=12
  5358						SAVEAC	(1,1)^
  5359	035004	201 14 0 00 035004 		MOVEI	AC+2,.		;SAVE TEST PC
  5360	035005	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  5361	035006	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5362	035007	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5363			023400		SN=23400
  5364			000004			SRCE=<AC-6>&17			;1ST LOC OF SOURCE = <AC-6>&17
  5365			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5366			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5367
  5368	035010	200 12 0 00 041043 	G23400:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5369						GMOV	(SRCE-1,<252525252525>)^
  5370						IFLE	<SRCE-1-20>,<
  5371	035011	200 03 0 00 041032 		MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5372						IFG	<SRCE-1-20>,<
  5373						MOVE	AC+1,[252525252525]
  5374						MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5375						GMOV	(SRCE,<230703,,603700>)^
  5376						IFLE	<SRCE-20>,<
  5377	035012	200 04 0 00 040766 		MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  5378						IFG	<SRCE-20>,<
  5379						MOVE	AC+1,[230703,,603700]
  5380						MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  5381						GMOV	(SRCE+1,<770077007700>)^
  5382						IFLE	<SRCE+1-20>,<
  5383	035013	200 05 0 00 041033 		MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5384						IFG	<SRCE+1-20>,<
  5385						MOVE	AC+1,[770077007700]
  5386						MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5387						GMOV	(DEST-1,<070707070707>)^
  5388						IFLE	<DEST-1-20>,<
  5389						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5390						IFG	<DEST-1-20>,<
  5391	035014	200 13 0 00 041034 		MOVE	AC+1,[070707070707]
  5392	035015	202 13 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5393						GMOV	(DEST,<123456765432>)^
  5394						IFLE	<DEST-20>,<
  5395						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5396						IFG	<DEST-20>,<
  5397	035016	200 13 0 00 041035 		MOVE	AC+1,[123456765432]
  5398	035017	202 13 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5399						GMOV	(DEST+1,<552255225522>)^
  5400						IFLE	<DEST+1-20>,<
  5401						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5402						IFG	<DEST+1-20>,<
  5403	035020	200 13 0 00 041036 		MOVE	AC+1,[552255225522]
  5404	035021	202 13 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-16
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0146

  5405	035022	251 12 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5406						GCAM	(SRCE-1,<252525252525>)^
  5407			023401		SN=SN+1
  5408						IFG	<SRCE-1-20>,<
  5409						MOVE	AC-1,SRCE-1
  5410						CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5411						IFIDN	<DEST>,<SRCE-1>,<
  5412						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5413						IFDIF	<DEST>,<SRCE-1>,<
  5414						ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5415						IFLE	<SRCE-1-20>,<
  5416	035023	312 03 0 00 041032 		CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5417						IFIDN	<DEST>,<SRCE-1>,<
  5418						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5419						IFDIF	<DEST>,<SRCE-1>,<
  5420	035024	002 03 0 00 023401 		ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5421						GCAM	(SRCE,<230703,,603700>)^
  5422			023402		SN=SN+1
  5423						IFG	<SRCE-20>,<
  5424						MOVE	AC-1,SRCE
  5425						CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5426						IFIDN	<DEST>,<SRCE>,<
  5427						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5428						IFDIF	<DEST>,<SRCE>,<
  5429						ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5430						IFLE	<SRCE-20>,<
  5431	035025	312 04 0 00 040766 		CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5432						IFIDN	<DEST>,<SRCE>,<
  5433						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5434						IFDIF	<DEST>,<SRCE>,<
  5435	035026	002 04 0 00 023402 		ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5436						GCAM	(SRCE+1,<770077007700>)^
  5437			023403		SN=SN+1
  5438						IFG	<SRCE+1-20>,<
  5439						MOVE	AC-1,SRCE+1
  5440						CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5441						IFIDN	<DEST>,<SRCE+1>,<
  5442						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5443						IFDIF	<DEST>,<SRCE+1>,<
  5444						ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5445						IFLE	<SRCE+1-20>,<
  5446	035027	312 05 0 00 041033 		CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5447						IFIDN	<DEST>,<SRCE+1>,<
  5448						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5449						IFDIF	<DEST>,<SRCE+1>,<
  5450	035030	002 05 0 00 023403 		ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5451						GCAM	(DEST-1,<070707070707>)^
  5452			023404		SN=SN+1
  5453						IFG	<DEST-1-20>,<
  5454	035031	200 11 0 00 040223 		MOVE	AC-1,DEST-1
  5455	035032	312 11 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5456						IFIDN	<DEST>,<DEST-1>,<
  5457						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5458						IFDIF	<DEST>,<DEST-1>,<
  5459	035033	002 11 0 00 023404 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-17
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0147

  5460						IFLE	<DEST-1-20>,<
  5461						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5462						IFIDN	<DEST>,<DEST-1>,<
  5463						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5464						IFDIF	<DEST>,<DEST-1>,<
  5465						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5466						GCAM	(DEST,<230703,,603700>)^
  5467			023405		SN=SN+1
  5468						IFG	<DEST-20>,<
  5469	035034	200 11 0 00 040224 		MOVE	AC-1,DEST
  5470	035035	312 11 0 00 040766 		CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5471						IFIDN	<DEST>,<DEST>,<
  5472	035036	002 11 0 00 023405 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5473						IFDIF	<DEST>,<DEST>,<
  5474						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5475						IFLE	<DEST-20>,<
  5476						CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5477						IFIDN	<DEST>,<DEST>,<
  5478						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5479						IFDIF	<DEST>,<DEST>,<
  5480						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5481						GCAM	(DEST+1,<552255225522>)^
  5482			023406		SN=SN+1
  5483						IFG	<DEST+1-20>,<
  5484	035037	200 11 0 00 040225 		MOVE	AC-1,DEST+1
  5485	035040	312 11 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5486						IFIDN	<DEST>,<DEST+1>,<
  5487						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5488						IFDIF	<DEST>,<DEST+1>,<
  5489	035041	002 11 0 00 023406 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5490						IFLE	<DEST+1-20>,<
  5491						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5492						IFIDN	<DEST>,<DEST+1>,<
  5493						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5494						IFDIF	<DEST>,<DEST+1>,<
  5495						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5496	035042	321 14 0 00 035010 		JUMPL	AC+2,G23400		;LOOP ON ERROR^
  5497					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-18
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0148

  5498					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5499
  5500						BLTM1	(23500,11,<BLTBLK+1>,<BLTBLK+4>,0)^
  5501					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5502					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5503					;SOURCE DATA = 0
  5504
  5505			000011			AC=11
  5506						SAVEAC	(1,1)^
  5507	035043	201 13 0 00 035043 		MOVEI	AC+2,.		;SAVE TEST PC
  5508	035044	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  5509	035045	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5510	035046	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5511			023500		SN=23500
  5512			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5513			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5514			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5515
  5516	035047	200 11 0 00 041044 	G23500:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5517						GMOV	(SRCE-1,<252525252525>)^
  5518						IFLE	<SRCE-1-20>,<
  5519						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5520						IFG	<SRCE-1-20>,<
  5521	035050	200 12 0 00 041032 		MOVE	AC+1,[252525252525]
  5522	035051	202 12 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5523						GMOV	(SRCE,<0>)^
  5524						IFLE	<SRCE-20>,<
  5525						MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  5526						IFG	<SRCE-20>,<
  5527	035052	200 12 0 00 041025 		MOVE	AC+1,[0]
  5528	035053	202 12 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  5529						GMOV	(SRCE+1,<770077007700>)^
  5530						IFLE	<SRCE+1-20>,<
  5531						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5532						IFG	<SRCE+1-20>,<
  5533	035054	200 12 0 00 041033 		MOVE	AC+1,[770077007700]
  5534	035055	202 12 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5535						GMOV	(DEST-1,<070707070707>)^
  5536						IFLE	<DEST-1-20>,<
  5537						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5538						IFG	<DEST-1-20>,<
  5539	035056	200 12 0 00 041034 		MOVE	AC+1,[070707070707]
  5540	035057	202 12 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5541						GMOV	(DEST,<123456765432>)^
  5542						IFLE	<DEST-20>,<
  5543						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5544						IFG	<DEST-20>,<
  5545	035060	200 12 0 00 041035 		MOVE	AC+1,[123456765432]
  5546	035061	202 12 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5547						GMOV	(DEST+1,<552255225522>)^
  5548						IFLE	<DEST+1-20>,<
  5549						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5550						IFG	<DEST+1-20>,<
  5551	035062	200 12 0 00 041036 		MOVE	AC+1,[552255225522]
  5552	035063	202 12 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-19
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0149

  5553	035064	251 11 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5554						GCAM	(SRCE-1,<252525252525>)^
  5555			023501		SN=SN+1
  5556						IFG	<SRCE-1-20>,<
  5557	035065	200 10 0 00 040220 		MOVE	AC-1,SRCE-1
  5558	035066	312 10 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5559						IFIDN	<DEST>,<SRCE-1>,<
  5560						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5561						IFDIF	<DEST>,<SRCE-1>,<
  5562	035067	002 10 0 00 023501 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5563						IFLE	<SRCE-1-20>,<
  5564						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5565						IFIDN	<DEST>,<SRCE-1>,<
  5566						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5567						IFDIF	<DEST>,<SRCE-1>,<
  5568						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5569						GCAM	(SRCE,<0>)^
  5570			023502		SN=SN+1
  5571						IFG	<SRCE-20>,<
  5572	035070	200 10 0 00 040221 		MOVE	AC-1,SRCE
  5573	035071	312 10 0 00 041025 		CAME	AC-1,[0]	;IS C(SRCE) = 0
  5574						IFIDN	<DEST>,<SRCE>,<
  5575						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5576						IFDIF	<DEST>,<SRCE>,<
  5577	035072	002 10 0 00 023502 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5578						IFLE	<SRCE-20>,<
  5579						CAME	SRCE,[0]	;IS C(SRCE) = 0
  5580						IFIDN	<DEST>,<SRCE>,<
  5581						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5582						IFDIF	<DEST>,<SRCE>,<
  5583						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5584						GCAM	(SRCE+1,<770077007700>)^
  5585			023503		SN=SN+1
  5586						IFG	<SRCE+1-20>,<
  5587	035073	200 10 0 00 040222 		MOVE	AC-1,SRCE+1
  5588	035074	312 10 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5589						IFIDN	<DEST>,<SRCE+1>,<
  5590						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5591						IFDIF	<DEST>,<SRCE+1>,<
  5592	035075	002 10 0 00 023503 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5593						IFLE	<SRCE+1-20>,<
  5594						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5595						IFIDN	<DEST>,<SRCE+1>,<
  5596						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5597						IFDIF	<DEST>,<SRCE+1>,<
  5598						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5599						GCAM	(DEST-1,<070707070707>)^
  5600			023504		SN=SN+1
  5601						IFG	<DEST-1-20>,<
  5602	035076	200 10 0 00 040223 		MOVE	AC-1,DEST-1
  5603	035077	312 10 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5604						IFIDN	<DEST>,<DEST-1>,<
  5605						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5606						IFDIF	<DEST>,<DEST-1>,<
  5607	035100	002 10 0 00 023504 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-20
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0150

  5608						IFLE	<DEST-1-20>,<
  5609						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5610						IFIDN	<DEST>,<DEST-1>,<
  5611						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5612						IFDIF	<DEST>,<DEST-1>,<
  5613						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5614						GCAM	(DEST,<0>)^
  5615			023505		SN=SN+1
  5616						IFG	<DEST-20>,<
  5617	035101	200 10 0 00 040224 		MOVE	AC-1,DEST
  5618	035102	312 10 0 00 041025 		CAME	AC-1,[0]	;IS C(DEST) = 0
  5619						IFIDN	<DEST>,<DEST>,<
  5620	035103	002 10 0 00 023505 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5621						IFDIF	<DEST>,<DEST>,<
  5622						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5623						IFLE	<DEST-20>,<
  5624						CAME	DEST,[0]	;IS C(DEST) = 0
  5625						IFIDN	<DEST>,<DEST>,<
  5626						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5627						IFDIF	<DEST>,<DEST>,<
  5628						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5629						GCAM	(DEST+1,<552255225522>)^
  5630			023506		SN=SN+1
  5631						IFG	<DEST+1-20>,<
  5632	035104	200 10 0 00 040225 		MOVE	AC-1,DEST+1
  5633	035105	312 10 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5634						IFIDN	<DEST>,<DEST+1>,<
  5635						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5636						IFDIF	<DEST>,<DEST+1>,<
  5637	035106	002 10 0 00 023506 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5638						IFLE	<DEST+1-20>,<
  5639						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5640						IFIDN	<DEST>,<DEST+1>,<
  5641						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5642						IFDIF	<DEST>,<DEST+1>,<
  5643						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5644	035107	321 13 0 00 035047 		JUMPL	AC+2,G23500		;LOOP ON ERROR^
  5645					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-21
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0151

  5646					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5647
  5648						BLTM1	(23600,10,<BLTBLK+1>,<BLTBLK+4>,-1)^
  5649					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5650					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5651					;SOURCE DATA = -1
  5652
  5653			000010			AC=10
  5654						SAVEAC	(1,1)^
  5655	035110	201 12 0 00 035110 		MOVEI	AC+2,.		;SAVE TEST PC
  5656	035111	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  5657	035112	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5658	035113	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5659			023600		SN=23600
  5660			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5661			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5662			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5663
  5664	035114	200 10 0 00 041044 	G23600:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5665						GMOV	(SRCE-1,<252525252525>)^
  5666						IFLE	<SRCE-1-20>,<
  5667						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5668						IFG	<SRCE-1-20>,<
  5669	035115	200 11 0 00 041032 		MOVE	AC+1,[252525252525]
  5670	035116	202 11 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5671						GMOV	(SRCE,<-1>)^
  5672						IFLE	<SRCE-20>,<
  5673						MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  5674						IFG	<SRCE-20>,<
  5675	035117	200 11 0 00 040750 		MOVE	AC+1,[-1]
  5676	035120	202 11 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  5677						GMOV	(SRCE+1,<770077007700>)^
  5678						IFLE	<SRCE+1-20>,<
  5679						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5680						IFG	<SRCE+1-20>,<
  5681	035121	200 11 0 00 041033 		MOVE	AC+1,[770077007700]
  5682	035122	202 11 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5683						GMOV	(DEST-1,<070707070707>)^
  5684						IFLE	<DEST-1-20>,<
  5685						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5686						IFG	<DEST-1-20>,<
  5687	035123	200 11 0 00 041034 		MOVE	AC+1,[070707070707]
  5688	035124	202 11 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5689						GMOV	(DEST,<123456765432>)^
  5690						IFLE	<DEST-20>,<
  5691						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5692						IFG	<DEST-20>,<
  5693	035125	200 11 0 00 041035 		MOVE	AC+1,[123456765432]
  5694	035126	202 11 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5695						GMOV	(DEST+1,<552255225522>)^
  5696						IFLE	<DEST+1-20>,<
  5697						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5698						IFG	<DEST+1-20>,<
  5699	035127	200 11 0 00 041036 		MOVE	AC+1,[552255225522]
  5700	035130	202 11 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-22
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0152

  5701	035131	251 10 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5702						GCAM	(SRCE-1,<252525252525>)^
  5703			023601		SN=SN+1
  5704						IFG	<SRCE-1-20>,<
  5705	035132	200 07 0 00 040220 		MOVE	AC-1,SRCE-1
  5706	035133	312 07 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5707						IFIDN	<DEST>,<SRCE-1>,<
  5708						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5709						IFDIF	<DEST>,<SRCE-1>,<
  5710	035134	002 07 0 00 023601 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5711						IFLE	<SRCE-1-20>,<
  5712						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5713						IFIDN	<DEST>,<SRCE-1>,<
  5714						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5715						IFDIF	<DEST>,<SRCE-1>,<
  5716						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5717						GCAM	(SRCE,<-1>)^
  5718			023602		SN=SN+1
  5719						IFG	<SRCE-20>,<
  5720	035135	200 07 0 00 040221 		MOVE	AC-1,SRCE
  5721	035136	312 07 0 00 040750 		CAME	AC-1,[-1]	;IS C(SRCE) = -1
  5722						IFIDN	<DEST>,<SRCE>,<
  5723						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5724						IFDIF	<DEST>,<SRCE>,<
  5725	035137	002 07 0 00 023602 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5726						IFLE	<SRCE-20>,<
  5727						CAME	SRCE,[-1]	;IS C(SRCE) = -1
  5728						IFIDN	<DEST>,<SRCE>,<
  5729						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5730						IFDIF	<DEST>,<SRCE>,<
  5731						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5732						GCAM	(SRCE+1,<770077007700>)^
  5733			023603		SN=SN+1
  5734						IFG	<SRCE+1-20>,<
  5735	035140	200 07 0 00 040222 		MOVE	AC-1,SRCE+1
  5736	035141	312 07 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5737						IFIDN	<DEST>,<SRCE+1>,<
  5738						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5739						IFDIF	<DEST>,<SRCE+1>,<
  5740	035142	002 07 0 00 023603 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5741						IFLE	<SRCE+1-20>,<
  5742						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5743						IFIDN	<DEST>,<SRCE+1>,<
  5744						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5745						IFDIF	<DEST>,<SRCE+1>,<
  5746						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5747						GCAM	(DEST-1,<070707070707>)^
  5748			023604		SN=SN+1
  5749						IFG	<DEST-1-20>,<
  5750	035143	200 07 0 00 040223 		MOVE	AC-1,DEST-1
  5751	035144	312 07 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5752						IFIDN	<DEST>,<DEST-1>,<
  5753						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5754						IFDIF	<DEST>,<DEST-1>,<
  5755	035145	002 07 0 00 023604 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-23
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0153

  5756						IFLE	<DEST-1-20>,<
  5757						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5758						IFIDN	<DEST>,<DEST-1>,<
  5759						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5760						IFDIF	<DEST>,<DEST-1>,<
  5761						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5762						GCAM	(DEST,<-1>)^
  5763			023605		SN=SN+1
  5764						IFG	<DEST-20>,<
  5765	035146	200 07 0 00 040224 		MOVE	AC-1,DEST
  5766	035147	312 07 0 00 040750 		CAME	AC-1,[-1]	;IS C(DEST) = -1
  5767						IFIDN	<DEST>,<DEST>,<
  5768	035150	002 07 0 00 023605 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5769						IFDIF	<DEST>,<DEST>,<
  5770						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5771						IFLE	<DEST-20>,<
  5772						CAME	DEST,[-1]	;IS C(DEST) = -1
  5773						IFIDN	<DEST>,<DEST>,<
  5774						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5775						IFDIF	<DEST>,<DEST>,<
  5776						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5777						GCAM	(DEST+1,<552255225522>)^
  5778			023606		SN=SN+1
  5779						IFG	<DEST+1-20>,<
  5780	035151	200 07 0 00 040225 		MOVE	AC-1,DEST+1
  5781	035152	312 07 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5782						IFIDN	<DEST>,<DEST+1>,<
  5783						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5784						IFDIF	<DEST>,<DEST+1>,<
  5785	035153	002 07 0 00 023606 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5786						IFLE	<DEST+1-20>,<
  5787						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5788						IFIDN	<DEST>,<DEST+1>,<
  5789						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5790						IFDIF	<DEST>,<DEST+1>,<
  5791						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5792	035154	321 12 0 00 035114 		JUMPL	AC+2,G23600		;LOOP ON ERROR^
  5793					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-24
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0154

  5794					;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
  5795
  5796						BLTM1	(23700,7,<BLTBLK+1>,<BLTBLK+4>,<230703,,603700>)^
  5797					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5798					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5799					;SOURCE DATA = 230703,,603700
  5800
  5801			000007			AC=7
  5802						SAVEAC	(1,1)^
  5803	035155	201 11 0 00 035155 		MOVEI	AC+2,.		;SAVE TEST PC
  5804	035156	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  5805	035157	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5806	035160	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5807			023700		SN=23700
  5808			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5809			040224			DEST=BLTBLK+4			;1ST LOC OF DESTINATION = BLTBLK+4
  5810			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5811
  5812	035161	200 07 0 00 041044 	G23700:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5813						GMOV	(SRCE-1,<252525252525>)^
  5814						IFLE	<SRCE-1-20>,<
  5815						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5816						IFG	<SRCE-1-20>,<
  5817	035162	200 10 0 00 041032 		MOVE	AC+1,[252525252525]
  5818	035163	202 10 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5819						GMOV	(SRCE,<230703,,603700>)^
  5820						IFLE	<SRCE-20>,<
  5821						MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  5822						IFG	<SRCE-20>,<
  5823	035164	200 10 0 00 040766 		MOVE	AC+1,[230703,,603700]
  5824	035165	202 10 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  5825						GMOV	(SRCE+1,<770077007700>)^
  5826						IFLE	<SRCE+1-20>,<
  5827						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5828						IFG	<SRCE+1-20>,<
  5829	035166	200 10 0 00 041033 		MOVE	AC+1,[770077007700]
  5830	035167	202 10 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5831						GMOV	(DEST-1,<070707070707>)^
  5832						IFLE	<DEST-1-20>,<
  5833						MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5834						IFG	<DEST-1-20>,<
  5835	035170	200 10 0 00 041034 		MOVE	AC+1,[070707070707]
  5836	035171	202 10 0 00 040223 		MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5837						GMOV	(DEST,<123456765432>)^
  5838						IFLE	<DEST-20>,<
  5839						MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5840						IFG	<DEST-20>,<
  5841	035172	200 10 0 00 041035 		MOVE	AC+1,[123456765432]
  5842	035173	202 10 0 00 040224 		MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5843						GMOV	(DEST+1,<552255225522>)^
  5844						IFLE	<DEST+1-20>,<
  5845						MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5846						IFG	<DEST+1-20>,<
  5847	035174	200 10 0 00 041036 		MOVE	AC+1,[552255225522]
  5848	035175	202 10 0 00 040225 		MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-25
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0155

  5849	035176	251 07 0 00 040224 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5850						GCAM	(SRCE-1,<252525252525>)^
  5851			023701		SN=SN+1
  5852						IFG	<SRCE-1-20>,<
  5853	035177	200 06 0 00 040220 		MOVE	AC-1,SRCE-1
  5854	035200	312 06 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5855						IFIDN	<DEST>,<SRCE-1>,<
  5856						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5857						IFDIF	<DEST>,<SRCE-1>,<
  5858	035201	002 06 0 00 023701 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  5859						IFLE	<SRCE-1-20>,<
  5860						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  5861						IFIDN	<DEST>,<SRCE-1>,<
  5862						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  5863						IFDIF	<DEST>,<SRCE-1>,<
  5864						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  5865						GCAM	(SRCE,<230703,,603700>)^
  5866			023702		SN=SN+1
  5867						IFG	<SRCE-20>,<
  5868	035202	200 06 0 00 040221 		MOVE	AC-1,SRCE
  5869	035203	312 06 0 00 040766 		CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5870						IFIDN	<DEST>,<SRCE>,<
  5871						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5872						IFDIF	<DEST>,<SRCE>,<
  5873	035204	002 06 0 00 023702 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  5874						IFLE	<SRCE-20>,<
  5875						CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  5876						IFIDN	<DEST>,<SRCE>,<
  5877						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  5878						IFDIF	<DEST>,<SRCE>,<
  5879						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  5880						GCAM	(SRCE+1,<770077007700>)^
  5881			023703		SN=SN+1
  5882						IFG	<SRCE+1-20>,<
  5883	035205	200 06 0 00 040222 		MOVE	AC-1,SRCE+1
  5884	035206	312 06 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5885						IFIDN	<DEST>,<SRCE+1>,<
  5886						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5887						IFDIF	<DEST>,<SRCE+1>,<
  5888	035207	002 06 0 00 023703 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  5889						IFLE	<SRCE+1-20>,<
  5890						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  5891						IFIDN	<DEST>,<SRCE+1>,<
  5892						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  5893						IFDIF	<DEST>,<SRCE+1>,<
  5894						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  5895						GCAM	(DEST-1,<070707070707>)^
  5896			023704		SN=SN+1
  5897						IFG	<DEST-1-20>,<
  5898	035210	200 06 0 00 040223 		MOVE	AC-1,DEST-1
  5899	035211	312 06 0 00 041034 		CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5900						IFIDN	<DEST>,<DEST-1>,<
  5901						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5902						IFDIF	<DEST>,<DEST-1>,<
  5903	035212	002 06 0 00 023704 		ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-26
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0156

  5904						IFLE	<DEST-1-20>,<
  5905						CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  5906						IFIDN	<DEST>,<DEST-1>,<
  5907						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  5908						IFDIF	<DEST>,<DEST-1>,<
  5909						ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  5910						GCAM	(DEST,<230703,,603700>)^
  5911			023705		SN=SN+1
  5912						IFG	<DEST-20>,<
  5913	035213	200 06 0 00 040224 		MOVE	AC-1,DEST
  5914	035214	312 06 0 00 040766 		CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5915						IFIDN	<DEST>,<DEST>,<
  5916	035215	002 06 0 00 023705 		ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5917						IFDIF	<DEST>,<DEST>,<
  5918						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  5919						IFLE	<DEST-20>,<
  5920						CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  5921						IFIDN	<DEST>,<DEST>,<
  5922						ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  5923						IFDIF	<DEST>,<DEST>,<
  5924						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  5925						GCAM	(DEST+1,<552255225522>)^
  5926			023706		SN=SN+1
  5927						IFG	<DEST+1-20>,<
  5928	035216	200 06 0 00 040225 		MOVE	AC-1,DEST+1
  5929	035217	312 06 0 00 041036 		CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  5930						IFIDN	<DEST>,<DEST+1>,<
  5931						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  5932						IFDIF	<DEST>,<DEST+1>,<
  5933	035220	002 06 0 00 023706 		ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  5934						IFLE	<DEST+1-20>,<
  5935						CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  5936						IFIDN	<DEST>,<DEST+1>,<
  5937						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  5938						IFDIF	<DEST>,<DEST+1>,<
  5939						ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  5940	035221	321 11 0 00 035161 		JUMPL	AC+2,G23700		;LOOP ON ERROR^
  5941					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-27
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0157

  5942					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  5943
  5944						BLTM1	(24000,14,<BLTBLK+1>,<<AC-6>&17>,0)^
  5945					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  5946					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  5947					;SOURCE DATA = 0
  5948
  5949			000014			AC=14
  5950						SAVEAC	(1,1)^
  5951	035222	201 16 0 00 035222 		MOVEI	AC+2,.		;SAVE TEST PC
  5952	035223	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  5953	035224	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5954	035225	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5955			024000		SN=24000
  5956			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  5957			000006			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  5958			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  5959
  5960	035226	200 14 0 00 041045 	G24000:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  5961						GMOV	(SRCE-1,<252525252525>)^
  5962						IFLE	<SRCE-1-20>,<
  5963						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  5964						IFG	<SRCE-1-20>,<
  5965	035227	200 15 0 00 041032 		MOVE	AC+1,[252525252525]
  5966	035230	202 15 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  5967						GMOV	(SRCE,<0>)^
  5968						IFLE	<SRCE-20>,<
  5969						MOVE	SRCE,[0]	;PRELOAD SRCE WITH 0>
  5970						IFG	<SRCE-20>,<
  5971	035231	200 15 0 00 041025 		MOVE	AC+1,[0]
  5972	035232	202 15 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 0>^
  5973						GMOV	(SRCE+1,<770077007700>)^
  5974						IFLE	<SRCE+1-20>,<
  5975						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  5976						IFG	<SRCE+1-20>,<
  5977	035233	200 15 0 00 041033 		MOVE	AC+1,[770077007700]
  5978	035234	202 15 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  5979						GMOV	(DEST-1,<070707070707>)^
  5980						IFLE	<DEST-1-20>,<
  5981	035235	200 05 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  5982						IFG	<DEST-1-20>,<
  5983						MOVE	AC+1,[070707070707]
  5984						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  5985						GMOV	(DEST,<123456765432>)^
  5986						IFLE	<DEST-20>,<
  5987	035236	200 06 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  5988						IFG	<DEST-20>,<
  5989						MOVE	AC+1,[123456765432]
  5990						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  5991						GMOV	(DEST+1,<552255225522>)^
  5992						IFLE	<DEST+1-20>,<
  5993	035237	200 07 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  5994						IFG	<DEST+1-20>,<
  5995						MOVE	AC+1,[552255225522]
  5996						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-28
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0158

  5997	035240	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  5998						GCAM	(SRCE-1,<252525252525>)^
  5999			024001		SN=SN+1
  6000						IFG	<SRCE-1-20>,<
  6001	035241	200 13 0 00 040220 		MOVE	AC-1,SRCE-1
  6002	035242	312 13 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6003						IFIDN	<DEST>,<SRCE-1>,<
  6004						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6005						IFDIF	<DEST>,<SRCE-1>,<
  6006	035243	002 13 0 00 024001 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6007						IFLE	<SRCE-1-20>,<
  6008						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6009						IFIDN	<DEST>,<SRCE-1>,<
  6010						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6011						IFDIF	<DEST>,<SRCE-1>,<
  6012						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6013						GCAM	(SRCE,<0>)^
  6014			024002		SN=SN+1
  6015						IFG	<SRCE-20>,<
  6016	035244	200 13 0 00 040221 		MOVE	AC-1,SRCE
  6017	035245	312 13 0 00 041025 		CAME	AC-1,[0]	;IS C(SRCE) = 0
  6018						IFIDN	<DEST>,<SRCE>,<
  6019						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6020						IFDIF	<DEST>,<SRCE>,<
  6021	035246	002 13 0 00 024002 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6022						IFLE	<SRCE-20>,<
  6023						CAME	SRCE,[0]	;IS C(SRCE) = 0
  6024						IFIDN	<DEST>,<SRCE>,<
  6025						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6026						IFDIF	<DEST>,<SRCE>,<
  6027						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6028						GCAM	(SRCE+1,<770077007700>)^
  6029			024003		SN=SN+1
  6030						IFG	<SRCE+1-20>,<
  6031	035247	200 13 0 00 040222 		MOVE	AC-1,SRCE+1
  6032	035250	312 13 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6033						IFIDN	<DEST>,<SRCE+1>,<
  6034						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6035						IFDIF	<DEST>,<SRCE+1>,<
  6036	035251	002 13 0 00 024003 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6037						IFLE	<SRCE+1-20>,<
  6038						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6039						IFIDN	<DEST>,<SRCE+1>,<
  6040						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6041						IFDIF	<DEST>,<SRCE+1>,<
  6042						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6043						GCAM	(DEST-1,<070707070707>)^
  6044			024004		SN=SN+1
  6045						IFG	<DEST-1-20>,<
  6046						MOVE	AC-1,DEST-1
  6047						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6048						IFIDN	<DEST>,<DEST-1>,<
  6049						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6050						IFDIF	<DEST>,<DEST-1>,<
  6051						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-29
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0159

  6052						IFLE	<DEST-1-20>,<
  6053	035252	312 05 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6054						IFIDN	<DEST>,<DEST-1>,<
  6055						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6056						IFDIF	<DEST>,<DEST-1>,<
  6057	035253	002 05 0 00 024004 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6058						GCAM	(DEST,<0>)^
  6059			024005		SN=SN+1
  6060						IFG	<DEST-20>,<
  6061						MOVE	AC-1,DEST
  6062						CAME	AC-1,[0]	;IS C(DEST) = 0
  6063						IFIDN	<DEST>,<DEST>,<
  6064						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6065						IFDIF	<DEST>,<DEST>,<
  6066						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6067						IFLE	<DEST-20>,<
  6068	035254	312 06 0 00 041025 		CAME	DEST,[0]	;IS C(DEST) = 0
  6069						IFIDN	<DEST>,<DEST>,<
  6070	035255	002 06 0 00 024005 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6071						IFDIF	<DEST>,<DEST>,<
  6072						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6073						GCAM	(DEST+1,<552255225522>)^
  6074			024006		SN=SN+1
  6075						IFG	<DEST+1-20>,<
  6076						MOVE	AC-1,DEST+1
  6077						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6078						IFIDN	<DEST>,<DEST+1>,<
  6079						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6080						IFDIF	<DEST>,<DEST+1>,<
  6081						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6082						IFLE	<DEST+1-20>,<
  6083	035256	312 07 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6084						IFIDN	<DEST>,<DEST+1>,<
  6085						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6086						IFDIF	<DEST>,<DEST+1>,<
  6087	035257	002 07 0 00 024006 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6088	035260	321 16 0 00 035226 		JUMPL	AC+2,G24000		;LOOP ON ERROR^
  6089					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-30
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0160

  6090					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  6091
  6092						BLTM1	(24100,13,<BLTBLK+1>,<<AC-6>&17>,-1)^
  6093					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  6094					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  6095					;SOURCE DATA = -1
  6096
  6097			000013			AC=13
  6098						SAVEAC	(1,1)^
  6099	035261	201 15 0 00 035261 		MOVEI	AC+2,.		;SAVE TEST PC
  6100	035262	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  6101	035263	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6102	035264	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6103			024100		SN=24100
  6104			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  6105			000005			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  6106			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  6107
  6108	035265	200 13 0 00 041046 	G24100:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  6109						GMOV	(SRCE-1,<252525252525>)^
  6110						IFLE	<SRCE-1-20>,<
  6111						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  6112						IFG	<SRCE-1-20>,<
  6113	035266	200 14 0 00 041032 		MOVE	AC+1,[252525252525]
  6114	035267	202 14 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  6115						GMOV	(SRCE,<-1>)^
  6116						IFLE	<SRCE-20>,<
  6117						MOVE	SRCE,[-1]	;PRELOAD SRCE WITH -1>
  6118						IFG	<SRCE-20>,<
  6119	035270	200 14 0 00 040750 		MOVE	AC+1,[-1]
  6120	035271	202 14 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH -1>^
  6121						GMOV	(SRCE+1,<770077007700>)^
  6122						IFLE	<SRCE+1-20>,<
  6123						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  6124						IFG	<SRCE+1-20>,<
  6125	035272	200 14 0 00 041033 		MOVE	AC+1,[770077007700]
  6126	035273	202 14 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  6127						GMOV	(DEST-1,<070707070707>)^
  6128						IFLE	<DEST-1-20>,<
  6129	035274	200 04 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  6130						IFG	<DEST-1-20>,<
  6131						MOVE	AC+1,[070707070707]
  6132						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  6133						GMOV	(DEST,<123456765432>)^
  6134						IFLE	<DEST-20>,<
  6135	035275	200 05 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  6136						IFG	<DEST-20>,<
  6137						MOVE	AC+1,[123456765432]
  6138						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  6139						GMOV	(DEST+1,<552255225522>)^
  6140						IFLE	<DEST+1-20>,<
  6141	035276	200 06 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  6142						IFG	<DEST+1-20>,<
  6143						MOVE	AC+1,[552255225522]
  6144						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-31
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0161

  6145	035277	251 13 0 00 000005 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  6146						GCAM	(SRCE-1,<252525252525>)^
  6147			024101		SN=SN+1
  6148						IFG	<SRCE-1-20>,<
  6149	035300	200 12 0 00 040220 		MOVE	AC-1,SRCE-1
  6150	035301	312 12 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6151						IFIDN	<DEST>,<SRCE-1>,<
  6152						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6153						IFDIF	<DEST>,<SRCE-1>,<
  6154	035302	002 12 0 00 024101 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6155						IFLE	<SRCE-1-20>,<
  6156						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6157						IFIDN	<DEST>,<SRCE-1>,<
  6158						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6159						IFDIF	<DEST>,<SRCE-1>,<
  6160						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6161						GCAM	(SRCE,<-1>)^
  6162			024102		SN=SN+1
  6163						IFG	<SRCE-20>,<
  6164	035303	200 12 0 00 040221 		MOVE	AC-1,SRCE
  6165	035304	312 12 0 00 040750 		CAME	AC-1,[-1]	;IS C(SRCE) = -1
  6166						IFIDN	<DEST>,<SRCE>,<
  6167						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6168						IFDIF	<DEST>,<SRCE>,<
  6169	035305	002 12 0 00 024102 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6170						IFLE	<SRCE-20>,<
  6171						CAME	SRCE,[-1]	;IS C(SRCE) = -1
  6172						IFIDN	<DEST>,<SRCE>,<
  6173						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6174						IFDIF	<DEST>,<SRCE>,<
  6175						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6176						GCAM	(SRCE+1,<770077007700>)^
  6177			024103		SN=SN+1
  6178						IFG	<SRCE+1-20>,<
  6179	035306	200 12 0 00 040222 		MOVE	AC-1,SRCE+1
  6180	035307	312 12 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6181						IFIDN	<DEST>,<SRCE+1>,<
  6182						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6183						IFDIF	<DEST>,<SRCE+1>,<
  6184	035310	002 12 0 00 024103 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6185						IFLE	<SRCE+1-20>,<
  6186						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6187						IFIDN	<DEST>,<SRCE+1>,<
  6188						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6189						IFDIF	<DEST>,<SRCE+1>,<
  6190						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6191						GCAM	(DEST-1,<070707070707>)^
  6192			024104		SN=SN+1
  6193						IFG	<DEST-1-20>,<
  6194						MOVE	AC-1,DEST-1
  6195						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6196						IFIDN	<DEST>,<DEST-1>,<
  6197						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6198						IFDIF	<DEST>,<DEST-1>,<
  6199						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-32
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0162

  6200						IFLE	<DEST-1-20>,<
  6201	035311	312 04 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6202						IFIDN	<DEST>,<DEST-1>,<
  6203						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6204						IFDIF	<DEST>,<DEST-1>,<
  6205	035312	002 04 0 00 024104 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6206						GCAM	(DEST,<-1>)^
  6207			024105		SN=SN+1
  6208						IFG	<DEST-20>,<
  6209						MOVE	AC-1,DEST
  6210						CAME	AC-1,[-1]	;IS C(DEST) = -1
  6211						IFIDN	<DEST>,<DEST>,<
  6212						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6213						IFDIF	<DEST>,<DEST>,<
  6214						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6215						IFLE	<DEST-20>,<
  6216	035313	312 05 0 00 040750 		CAME	DEST,[-1]	;IS C(DEST) = -1
  6217						IFIDN	<DEST>,<DEST>,<
  6218	035314	002 05 0 00 024105 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6219						IFDIF	<DEST>,<DEST>,<
  6220						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6221						GCAM	(DEST+1,<552255225522>)^
  6222			024106		SN=SN+1
  6223						IFG	<DEST+1-20>,<
  6224						MOVE	AC-1,DEST+1
  6225						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6226						IFIDN	<DEST>,<DEST+1>,<
  6227						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6228						IFDIF	<DEST>,<DEST+1>,<
  6229						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6230						IFLE	<DEST+1-20>,<
  6231	035315	312 06 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6232						IFIDN	<DEST>,<DEST+1>,<
  6233						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6234						IFDIF	<DEST>,<DEST+1>,<
  6235	035316	002 06 0 00 024106 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6236	035317	321 15 0 00 035265 		JUMPL	AC+2,G24100		;LOOP ON ERROR^
  6237					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-33
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0163

  6238					;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
  6239
  6240						BLTM1	(24200,12,<BLTBLK+1>,<<AC-6>&17>,<230703,,603700>)^
  6241					;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
  6242					;WHERE SOURCE AND DESTINATION ARE DIFFERENT
  6243					;SOURCE DATA = 230703,,603700
  6244
  6245			000012			AC=12
  6246						SAVEAC	(1,1)^
  6247	035320	201 14 0 00 035320 		MOVEI	AC+2,.		;SAVE TEST PC
  6248	035321	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  6249	035322	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6250	035323	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6251			024200		SN=24200
  6252			040221			SRCE=BLTBLK+1			;1ST LOC OF SOURCE = BLTBLK+1
  6253			000004			DEST=<AC-6>&17			;1ST LOC OF DESTINATION = <AC-6>&17
  6254			000001			SIZ=1			;BLOCK SIZE = 1 WORD
  6255
  6256	035324	200 12 0 00 041047 	G24200:	MOVE	AC,[SRCE,,DEST]	;LOAD BLT AC
  6257						GMOV	(SRCE-1,<252525252525>)^
  6258						IFLE	<SRCE-1-20>,<
  6259						MOVE	SRCE-1,[252525252525]	;PRELOAD SRCE-1 WITH 252525252525>
  6260						IFG	<SRCE-1-20>,<
  6261	035325	200 13 0 00 041032 		MOVE	AC+1,[252525252525]
  6262	035326	202 13 0 00 040220 		MOVEM	AC+1,SRCE-1		;PRELOAD SRCE-1 WITH 252525252525>^
  6263						GMOV	(SRCE,<230703,,603700>)^
  6264						IFLE	<SRCE-20>,<
  6265						MOVE	SRCE,[230703,,603700]	;PRELOAD SRCE WITH 230703,,603700>
  6266						IFG	<SRCE-20>,<
  6267	035327	200 13 0 00 040766 		MOVE	AC+1,[230703,,603700]
  6268	035330	202 13 0 00 040221 		MOVEM	AC+1,SRCE		;PRELOAD SRCE WITH 230703,,603700>^
  6269						GMOV	(SRCE+1,<770077007700>)^
  6270						IFLE	<SRCE+1-20>,<
  6271						MOVE	SRCE+1,[770077007700]	;PRELOAD SRCE+1 WITH 770077007700>
  6272						IFG	<SRCE+1-20>,<
  6273	035331	200 13 0 00 041033 		MOVE	AC+1,[770077007700]
  6274	035332	202 13 0 00 040222 		MOVEM	AC+1,SRCE+1		;PRELOAD SRCE+1 WITH 770077007700>^
  6275						GMOV	(DEST-1,<070707070707>)^
  6276						IFLE	<DEST-1-20>,<
  6277	035333	200 03 0 00 041034 		MOVE	DEST-1,[070707070707]	;PRELOAD DEST-1 WITH 070707070707>
  6278						IFG	<DEST-1-20>,<
  6279						MOVE	AC+1,[070707070707]
  6280						MOVEM	AC+1,DEST-1		;PRELOAD DEST-1 WITH 070707070707>^
  6281						GMOV	(DEST,<123456765432>)^
  6282						IFLE	<DEST-20>,<
  6283	035334	200 04 0 00 041035 		MOVE	DEST,[123456765432]	;PRELOAD DEST WITH 123456765432>
  6284						IFG	<DEST-20>,<
  6285						MOVE	AC+1,[123456765432]
  6286						MOVEM	AC+1,DEST		;PRELOAD DEST WITH 123456765432>^
  6287						GMOV	(DEST+1,<552255225522>)^
  6288						IFLE	<DEST+1-20>,<
  6289	035335	200 05 0 00 041036 		MOVE	DEST+1,[552255225522]	;PRELOAD DEST+1 WITH 552255225522>
  6290						IFG	<DEST+1-20>,<
  6291						MOVE	AC+1,[552255225522]
  6292						MOVEM	AC+1,DEST+1		;PRELOAD DEST+1 WITH 552255225522>^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-34
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0164

  6293	035336	251 12 0 00 000004 		BLT	AC,DEST+SIZ-1	;*BLOCK TRANSFER
  6294						GCAM	(SRCE-1,<252525252525>)^
  6295			024201		SN=SN+1
  6296						IFG	<SRCE-1-20>,<
  6297	035337	200 11 0 00 040220 		MOVE	AC-1,SRCE-1
  6298	035340	312 11 0 00 041032 		CAME	AC-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6299						IFIDN	<DEST>,<SRCE-1>,<
  6300						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6301						IFDIF	<DEST>,<SRCE-1>,<
  6302	035341	002 11 0 00 024201 		ER2	AC-1,SN		;C(SRCE-1) WAS CLOBBERED>>
  6303						IFLE	<SRCE-1-20>,<
  6304						CAME	SRCE-1,[252525252525]	;IS C(SRCE-1) = 252525252525
  6305						IFIDN	<DEST>,<SRCE-1>,<
  6306						ER2	SRCE-1,SN		;DEST NOT LOADED CORRECTLY>
  6307						IFDIF	<DEST>,<SRCE-1>,<
  6308						ER2	SRCE-1,SN		;C(SRCE-1) WAS CLOBBERED>>^
  6309						GCAM	(SRCE,<230703,,603700>)^
  6310			024202		SN=SN+1
  6311						IFG	<SRCE-20>,<
  6312	035342	200 11 0 00 040221 		MOVE	AC-1,SRCE
  6313	035343	312 11 0 00 040766 		CAME	AC-1,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  6314						IFIDN	<DEST>,<SRCE>,<
  6315						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6316						IFDIF	<DEST>,<SRCE>,<
  6317	035344	002 11 0 00 024202 		ER2	AC-1,SN		;C(SRCE) WAS CLOBBERED>>
  6318						IFLE	<SRCE-20>,<
  6319						CAME	SRCE,[230703,,603700]	;IS C(SRCE) = 230703,,603700
  6320						IFIDN	<DEST>,<SRCE>,<
  6321						ER2	SRCE,SN		;DEST NOT LOADED CORRECTLY>
  6322						IFDIF	<DEST>,<SRCE>,<
  6323						ER2	SRCE,SN		;C(SRCE) WAS CLOBBERED>>^
  6324						GCAM	(SRCE+1,<770077007700>)^
  6325			024203		SN=SN+1
  6326						IFG	<SRCE+1-20>,<
  6327	035345	200 11 0 00 040222 		MOVE	AC-1,SRCE+1
  6328	035346	312 11 0 00 041033 		CAME	AC-1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6329						IFIDN	<DEST>,<SRCE+1>,<
  6330						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6331						IFDIF	<DEST>,<SRCE+1>,<
  6332	035347	002 11 0 00 024203 		ER2	AC-1,SN		;C(SRCE+1) WAS CLOBBERED>>
  6333						IFLE	<SRCE+1-20>,<
  6334						CAME	SRCE+1,[770077007700]	;IS C(SRCE+1) = 770077007700
  6335						IFIDN	<DEST>,<SRCE+1>,<
  6336						ER2	SRCE+1,SN		;DEST NOT LOADED CORRECTLY>
  6337						IFDIF	<DEST>,<SRCE+1>,<
  6338						ER2	SRCE+1,SN		;C(SRCE+1) WAS CLOBBERED>>^
  6339						GCAM	(DEST-1,<070707070707>)^
  6340			024204		SN=SN+1
  6341						IFG	<DEST-1-20>,<
  6342						MOVE	AC-1,DEST-1
  6343						CAME	AC-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6344						IFIDN	<DEST>,<DEST-1>,<
  6345						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6346						IFDIF	<DEST>,<DEST-1>,<
  6347						ER2	AC-1,SN		;C(DEST-1) WAS CLOBBERED>>
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 66-35
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0165

  6348						IFLE	<DEST-1-20>,<
  6349	035350	312 03 0 00 041034 		CAME	DEST-1,[070707070707]	;IS C(DEST-1) = 070707070707
  6350						IFIDN	<DEST>,<DEST-1>,<
  6351						ER2	DEST-1,SN		;DEST NOT LOADED CORRECTLY>
  6352						IFDIF	<DEST>,<DEST-1>,<
  6353	035351	002 03 0 00 024204 		ER2	DEST-1,SN		;C(DEST-1) WAS CLOBBERED>>^
  6354						GCAM	(DEST,<230703,,603700>)^
  6355			024205		SN=SN+1
  6356						IFG	<DEST-20>,<
  6357						MOVE	AC-1,DEST
  6358						CAME	AC-1,[230703,,603700]	;IS C(DEST) = 230703,,603700
  6359						IFIDN	<DEST>,<DEST>,<
  6360						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6361						IFDIF	<DEST>,<DEST>,<
  6362						ER2	AC-1,SN		;C(DEST) WAS CLOBBERED>>
  6363						IFLE	<DEST-20>,<
  6364	035352	312 04 0 00 040766 		CAME	DEST,[230703,,603700]	;IS C(DEST) = 230703,,603700
  6365						IFIDN	<DEST>,<DEST>,<
  6366	035353	002 04 0 00 024205 		ER2	DEST,SN		;DEST NOT LOADED CORRECTLY>
  6367						IFDIF	<DEST>,<DEST>,<
  6368						ER2	DEST,SN		;C(DEST) WAS CLOBBERED>>^
  6369						GCAM	(DEST+1,<552255225522>)^
  6370			024206		SN=SN+1
  6371						IFG	<DEST+1-20>,<
  6372						MOVE	AC-1,DEST+1
  6373						CAME	AC-1,[552255225522]	;IS C(DEST+1) = 552255225522
  6374						IFIDN	<DEST>,<DEST+1>,<
  6375						ER2	AC-1,SN		;DEST NOT LOADED CORRECTLY>
  6376						IFDIF	<DEST>,<DEST+1>,<
  6377						ER2	AC-1,SN		;C(DEST+1) WAS CLOBBERED>>
  6378						IFLE	<DEST+1-20>,<
  6379	035354	312 05 0 00 041036 		CAME	DEST+1,[552255225522]	;IS C(DEST+1) = 552255225522
  6380						IFIDN	<DEST>,<DEST+1>,<
  6381						ER2	DEST+1,SN		;DEST NOT LOADED CORRECTLY>
  6382						IFDIF	<DEST>,<DEST+1>,<
  6383	035355	002 05 0 00 024206 		ER2	DEST+1,SN		;C(DEST+1) WAS CLOBBERED>>^
  6384	035356	321 14 0 00 035324 		JUMPL	AC+2,G24200		;LOOP ON ERROR^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 67
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0166

  6385					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6386					;- AC RANGE - ZEROS
  6387
  6388			000014			AC=14
  6389						SAVEAC	(1,1)^
  6390	035357	201 16 0 00 035357 		MOVEI	AC+2,.		;SAVE TEST PC
  6391	035360	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6392	035361	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6393	035362	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6394
  6395			020100		SN=20100
  6396			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6397			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6398			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6399
  6400	035363	200 14 0 00 041050 	G20100:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
  6401									;AND DESTINATION BLOCKS
  6402	035364	477 03 0 00 000011 		SETOB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF
  6403									;SOURCE BLOCK +1 WITH ONES
  6404	035365	403 04 0 00 000005 		SETZB	SRCE,SRCE+1	;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ZEROS
  6405	035366	403 06 0 00 000007 		SETZB	SRCE+2,SRCE+3
  6406	035367	402 00 0 00 000010 		SETZM	SRCE+4
  6407	035370	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6408			020101		SN=SN+1
  6409	035371	312 03 0 00 040750 		CAME	DEST-1,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6410									;CLOBBERED?
  6411	035372	002 03 0 00 020101 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6412									;BLOCK WAS CLOBBERED?
  6413			020102		SN=SN+1
  6414	035373	332 00 0 00 000004 		SKIPE	DEST		;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6415									;CORRECTLY FROM SOURCE?
  6416	035374	002 04 0 00 020102 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6417									;CORRECTLY FROM SOURCE
  6418			020103		SN=SN+1
  6419	035375	332 00 0 00 000005 		SKIPE	DEST+1		;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6420									;FROM SOURCE?
  6421	035376	002 05 0 00 020103 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6422									;CORRECTLY FROM SOURCE
  6423			020104		SN=SN+1
  6424	035377	332 00 0 00 000006 		SKIPE	DEST+2		;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6425									;FROM SOURCE?
  6426	035400	002 06 0 00 020104 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6427									;CORRECTLY FROM SOURCE
  6428			020105		SN=SN+1
  6429	035401	332 00 0 00 000007 		SKIPE	DEST+3		;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6430									;FROM SOURCE?
  6431	035402	002 07 0 00 020105 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6432									;CORRECTLY FROM SOURCE
  6433			020106		SN=SN+1
  6434	035403	332 00 0 00 000010 		SKIPE	DEST+4		;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6435									;FROM SOURCE?
  6436	035404	002 10 0 00 020106 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6437									;CORRECTLY FROM SOURCE
  6438			020107		SN=SN+1
  6439	035405	312 11 0 00 040750 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 67-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0167

  6440									;CLOBBERED?
  6441	035406	002 11 0 00 020107 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6442									;BLOCK WAS CLOBBERED
  6443	035407	321 16 0 00 035363 		JUMPL	AC+2,G20100	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 68
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0168

  6444					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6445					;- AC RANGE - ONES
  6446
  6447			000014			AC=14
  6448						SAVEAC	(1,1)^
  6449	035410	201 16 0 00 035410 		MOVEI	AC+2,.		;SAVE TEST PC
  6450	035411	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6451	035412	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6452	035413	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6453
  6454			020200		SN=20200
  6455			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6456			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6457			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6458
  6459	035414	200 14 0 00 041050 	G20200:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
  6460									;AND DESTINATION BLOCKS
  6461	035415	403 03 0 00 000011 		SETZB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
  6462									;BLOCK +1 WITH ZEROS
  6463	035416	477 04 0 00 000005 		SETOB	SRCE,SRCE+1	;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ONES
  6464	035417	477 06 0 00 000007 		SETOB	SRCE+2,SRCE+3
  6465	035420	476 00 0 00 000010 		SETOM	SRCE+4
  6466	035421	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6467			020201		SN=SN+1
  6468	035422	332 00 0 00 000003 		SKIPE	DEST-1		;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6469									;CLOBBERED?
  6470	035423	002 03 0 00 020201 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6471									;BLOCK WAS CLOBBERED?
  6472			020202		SN=SN+1
  6473	035424	312 04 0 00 040750 		CAME	DEST,[-1,,-1]	;WAS FIRST WORD OF DESTINATION BLOCK LOAED CORRECTLY
  6474									;FROM SOURCE?
  6475	035425	002 04 0 00 020202 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6476									;CORRECTLY FROM SOURCE
  6477			020203		SN=SN+1
  6478	035426	312 05 0 00 040750 		CAME	DEST+1,[-1,,-1]	;WAS SECOND WORD OF DESTINATION BLOCK LOADED
  6479									;CORRECTLY FROM SOURCE?
  6480	035427	002 05 0 00 020203 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6481									;CORRECTLY FROM SOURCE
  6482			020204		SN=SN+1
  6483	035430	312 06 0 00 040750 		CAME	DEST+2,[-1,,-1]	;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6484									;CORRECTLY FROM SOURCE?
  6485	035431	002 06 0 00 020204 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6486									;CORRECTLY FROM SOURCE
  6487			020205		SN=SN+1
  6488	035432	312 07 0 00 040750 		CAME	DEST+3,[-1,,-1]	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED
  6489									;CORRECTLY FROM SOURCE?
  6490	035433	002 07 0 00 020205 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6491									;CORRECTLY FROM SOURCE
  6492			020206		SN=SN+1
  6493	035434	312 10 0 00 040750 		CAME	DEST+4,[-1,,-1]	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6494									;CORRECTLY FROM SOURCE?
  6495	035435	002 10 0 00 020206 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6496									;CORRECTLY FROM SOURCE
  6497			020207		SN=SN+1
  6498	035436	332 00 0 00 000011 		SKIPE	DEST+SIZ	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 68-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0169

  6499									;CLOBBERED?
  6500	035437	002 11 0 00 020207 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6501									;BLOCK WAS CLOBBERED
  6502	035440	321 16 0 00 035414 		JUMPL	AC+2,G20200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 69
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0170

  6503					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6504					;- AC RANGE - SINGLE PATTERN
  6505
  6506			000014			AC=14
  6507						SAVEAC	(1,1)^
  6508	035441	201 16 0 00 035441 		MOVEI	AC+2,.		;SAVE TEST PC
  6509	035442	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6510	035443	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6511	035444	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6512
  6513			020300		SN=20300
  6514			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6515			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6516			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6517
  6518	035445	200 14 0 00 041050 	G20300:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6519									;SOURCE AND DESTINATION BLOCKS
  6520	035446	477 03 0 00 000011 		SETOB	SRCE-1,SRCE+SIZ	;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
  6521									;BLOCK +1 WITH ONES
  6522	035447	200 04 0 00 040766 		MOVE	SRCE,[230703,,603700] ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH
  6523									;230703,,603700
  6524	035450	200 05 0 00 040766 		MOVE	SRCE+1,[230703,,603700]
  6525	035451	200 06 0 00 040766 		MOVE	SRCE+2,[230703,,603700]
  6526	035452	200 07 0 00 040766 		MOVE	SRCE+3,[230703,,603700]
  6527	035453	200 10 0 00 040766 		MOVE	SRCE+4,[230703,,603700]
  6528	035454	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6529			020301		SN=SN+1
  6530	035455	312 03 0 00 040750 		CAME	DEST-1,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6531									;BLOCK CLOBBERED?
  6532	035456	002 03 0 00 020301 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6533									;BLOCK WAS CLOBBERED?
  6534			020302		SN=SN+1
  6535	035457	312 04 0 00 040766 		CAME	DEST,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6536									;CORRECTLY FROM SOURCE?
  6537	035460	002 04 0 00 020302 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6538									;CORRECTLY FROM SOURCE
  6539			020303		SN=SN+1
  6540	035461	312 05 0 00 040766 		CAME	DEST+1,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
  6541									;LOADED CORRECTLY FROM SOURCE?
  6542	035462	002 05 0 00 020303 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6543									;CORRECTLY FROM SOURCE
  6544			020304		SN=SN+1
  6545	035463	312 06 0 00 040766 		CAME	DEST+2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK
  6546									;LOADED CORRECTLY FROM SOURCE?
  6547	035464	002 06 0 00 020304 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6548									;CORRECTLY FROM SOURCE
  6549			020305		SN=SN+1
  6550	035465	312 07 0 00 040766 		CAME	DEST+3,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6551									;LOADED CORRECTLY FROM SOURCE?
  6552	035466	002 07 0 00 020305 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6553									;CORRECTLY FROM SOURCE
  6554			020306		SN=SN+1
  6555	035467	312 10 0 00 040766 		CAME	DEST+4,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK
  6556									;NOT LOADED CORRECTLY FROM SOURCE
  6557	035470	002 10 0 00 020306 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 69-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0171

  6558									;CORRECTLY FROM SOURCE
  6559			020307		SN=SN+1
  6560	035471	312 11 0 00 040750 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6561									;BLOCK CLOBBERED?
  6562	035472	002 11 0 00 020307 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6563									;BLOCK WAS CLOBBERED
  6564	035473	321 16 0 00 035445 		JUMPL	AC+2,G20300	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 70
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0172

  6565					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6566					;- AC RANGE - MULTIPLE PATTERN
  6567
  6568			000014			AC=14
  6569						SAVEAC	(1,1)^
  6570	035474	201 16 0 00 035474 		MOVEI	AC+2,.		;SAVE TEST PC
  6571	035475	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6572	035476	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6573	035477	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6574
  6575			020400		SN=20400
  6576			000004			SRCE=<AC-10>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
  6577			000004			DEST=<AC-10>&17		;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
  6578			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6579
  6580	035500	200 14 0 00 041050 	G20400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6581									;SOURCE AND DESTINATION BLOCKS
  6582	035501	200 03 0 00 040766 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  6583									;OF SOURCE BLOCK WITH 230703,,603700
  6584	035502	200 04 0 00 041032 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  6585									;252525,,252525
  6586	035503	200 05 0 00 041051 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  6587									;WITH 146314,,631463
  6588	035504	200 06 0 00 041034 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  6589									;WITH 070707,,070707
  6590	035505	200 07 0 00 041052 		MOVE	SRCE+3,[036074,,170360] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6591									;WITH 036074,,170360
  6592	035506	200 10 0 00 041053 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  6593									;WITH 017407,,603701
  6594	035507	200 11 0 00 041054 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  6595									;OF SOURCE BLOCK WITH 007603,,607062
  6596	035510	251 14 0 00 000010 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6597			020401		SN=SN+1
  6598	035511	312 03 0 00 040766 		CAME	DEST-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6599									;BLOCK CLOBBERED?
  6600	035512	002 03 0 00 020401 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6601									;BLOCK WAS CLOBBERED?
  6602			020402		SN=SN+1
  6603	035513	312 04 0 00 041032 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6604									;CORRECTLY FROM SOURCE?
  6605	035514	002 04 0 00 020402 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6606									;CORRECTLY FROM SOURCE
  6607			020403		SN=SN+1
  6608	035515	312 05 0 00 041051 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  6609									;LOADED CORRECTLY FROM SOURCE?
  6610	035516	002 05 0 00 020403 		ER2	DEST+1,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6611									;CORRECTLY FROM SOURCE
  6612			020404		SN=SN+1
  6613	035517	312 06 0 00 041034 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  6614									;LOADED CORRECTLY FROM SOURCE?
  6615	035520	002 06 0 00 020404 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6616									;CORRECTLY FROM SOURCE
  6617			020405		SN=SN+1
  6618	035521	312 07 0 00 041052 		CAME	DEST+3,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6619									;LOADED CORRECTLY FROM SOURCE?
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 70-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0173

  6620	035522	002 07 0 00 020405 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6621									;CORRECTLY FROM SOURCE
  6622			020406		SN=SN+1
  6623	035523	312 10 0 00 041053 		CAME	DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  6624									;LOADED CORRECTLY FROM SOURCE?
  6625	035524	002 10 0 00 020406 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6626									;CORRECTLY FROM SOURCE
  6627			020407		SN=SN+1
  6628	035525	312 11 0 00 041054 		CAME	DEST+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6629									;BLOCK CLOBBERED?
  6630	035526	002 11 0 00 020407 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6631									;BLOCK WAS CLOBBERED
  6632	035527	321 16 0 00 035500 		JUMPL	AC+2,G20400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 71
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0174

  6633					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6634									;- NON-AC RANGE - ZEROS
  6635
  6636			000013			AC=13
  6637						SAVEAC	(1,1)^
  6638	035530	201 15 0 00 035530 		MOVEI	AC+2,.		;SAVE TEST PC
  6639	035531	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  6640	035532	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6641	035533	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6642
  6643			020500		SN=20500
  6644			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6645			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6646			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6647
  6648	035534	200 13 0 00 041030 	G20500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6649									;SOURCE AND DESTINATION BLOCKS
  6650	035535	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6651									;WITH ONES
  6652	035536	402 00 0 00 040221 		SETZM	SRCE		;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
  6653									;ZEROS
  6654	035537	402 00 0 00 040222 		SETZM	SRCE+1
  6655	035540	402 00 0 00 040223 		SETZM	SRCE+2
  6656	035541	402 00 0 00 040224 		SETZM	SRCE+3
  6657	035542	402 00 0 00 040225 		SETZM	SRCE+4
  6658	035543	476 00 0 00 040226 		SETOM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6659									;WITH ONES
  6660	035544	251 13 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6661			020501		SN=SN+1
  6662	035545	200 11 0 00 040220 		MOVE	AC-2,DEST-1
  6663	035546	312 11 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6664									;BLOCK CLOBBERED?
  6665	035547	002 11 0 00 020501 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6666									;BLOCK WAS CLOBBERED?
  6667			020502		SN=SN+1
  6668	035550	200 11 0 00 040221 		MOVE	AC-2,DEST
  6669	035551	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6670									;FROM SOURCE?
  6671	035552	002 11 0 00 020502 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6672									;CORRECTLY FROM SOURCE
  6673			020503		SN=SN+1
  6674	035553	200 11 0 00 040222 		MOVE	AC-2,DEST+1
  6675	035554	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6676									;FROM SOURCE?
  6677	035555	002 11 0 00 020503 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6678									;CORRECTLY FROM SOURCE
  6679			020504		SN=SN+1
  6680	035556	200 11 0 00 040223 		MOVE	AC-2,DEST+2
  6681	035557	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6682									;FROM SOURCE?
  6683	035560	002 11 0 00 020504 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6684									;CORRECTLY FROM SOURCE
  6685			020505		SN=SN+1
  6686	035561	200 11 0 00 040224 		MOVE	AC-2,DEST+3
  6687	035562	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 71-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0175

  6688									;FROM SOURCE?
  6689	035563	002 11 0 00 020505 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6690									;CORRECTLY FROM SOURCE
  6691			020506		SN=SN+1
  6692	035564	200 11 0 00 040225 		MOVE	AC-2,DEST+4
  6693	035565	332 00 0 00 000011 		SKIPE	<AC-2>&17	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6694									;FROM SOURCE?
  6695	035566	002 11 0 00 020506 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6696									;CORRECTLY FROM SOURCE
  6697			020507		SN=SN+1
  6698	035567	200 11 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6699	035570	312 11 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6700									;CLOBBERED?
  6701	035571	002 11 0 00 020507 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6702									;WAS CLOBBERED
  6703	035572	321 15 0 00 035534 		JUMPL	AC+2,G20500	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 72
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0176

  6704					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6705					;- NON-AC RANGE - ONES
  6706
  6707			000012			AC=12
  6708						SAVEAC	(1,1)^
  6709	035573	201 14 0 00 035573 		MOVEI	AC+2,.		;SAVE TEST PC
  6710	035574	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  6711	035575	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6712	035576	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6713
  6714			020600		SN=20600
  6715			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6716			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6717			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6718
  6719	035577	200 12 0 00 041030 	G20600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  6720									;SOURCE AND DESTINATION BLOCKS
  6721	035600	402 00 0 00 040220 		SETZM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6722									;WITH ZEROS
  6723	035601	476 00 0 00 040221 		SETOM	SRCE		;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
  6724									;ONES
  6725	035602	476 00 0 00 040222 		SETOM	SRCE+1
  6726	035603	476 00 0 00 040223 		SETOM	SRCE+2
  6727	035604	476 00 0 00 040224 		SETOM	SRCE+3
  6728	035605	476 00 0 00 040225 		SETOM	SRCE+4
  6729	035606	402 00 0 00 040226 		SETZM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6730									;WITH ZEROS
  6731	035607	251 12 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6732			020601		SN=SN+1
  6733	035610	200 10 0 00 040220 		MOVE	AC-2,DEST-1
  6734	035611	332 00 0 00 000010 		SKIPE	<AC-2>&17	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
  6735									;CLOBBERED?
  6736	035612	002 10 0 00 020601 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6737									;BLOCK WAS CLOBBERED?
  6738			020602		SN=SN+1
  6739	035613	200 10 0 00 040221 		MOVE	AC-2,DEST
  6740	035614	312 10 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6741									;FROM SOURCE?
  6742	035615	002 10 0 00 020602 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6743									;CORRECTLY FROM SOURCE
  6744			020603		SN=SN+1
  6745	035616	200 10 0 00 040222 		MOVE	AC-2,DEST+1
  6746	035617	312 10 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6747									;FROM SOURCE?
  6748	035620	002 10 0 00 020603 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6749									;CORRECTLY FROM SOURCE
  6750			020604		SN=SN+1
  6751	035621	200 10 0 00 040223 		MOVE	AC-2,DEST+2
  6752	035622	312 10 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6753									;FROM SOURCE?
  6754	035623	002 10 0 00 020604 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6755									;CORRECTLY FROM SOURCE
  6756			020605		SN=SN+1
  6757	035624	200 10 0 00 040224 		MOVE	AC-2,DEST+3
  6758	035625	312 10 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 72-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0177

  6759									;FROM SOURCE?
  6760	035626	002 10 0 00 020605 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6761									;CORRECTLY FROM SOURCE
  6762			020606		SN=SN+1
  6763	035627	200 10 0 00 040225 		MOVE	AC-2,DEST+4
  6764	035630	312 10 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
  6765									;FROM SOURCE?
  6766	035631	002 10 0 00 020606 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6767									;CORRECTLY FROM SOURCE
  6768			020607		SN=SN+1
  6769	035632	200 10 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6770	035633	332 00 0 00 000010 		SKIPE	<AC-2>&17	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6771									;CLOBBERED?
  6772	035634	002 10 0 00 020607 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6773									;WAS CLOBBERED
  6774	035635	321 14 0 00 035577 		JUMPL	AC+2,G20600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 73
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0178

  6775					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6776					;- NON-AC RANGE - SINGLE PATTERN
  6777
  6778			000011			AC=11
  6779						SAVEAC	(1,1)^
  6780	035636	201 13 0 00 035636 		MOVEI	AC+2,.		;SAVE TEST PC
  6781	035637	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  6782	035640	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6783	035641	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6784
  6785			020700		SN=20700
  6786			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6787			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6788			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6789
  6790	035642	200 11 0 00 041030 	G20700:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6791									;SOURCE AND DESTINATION BLOCKS
  6792	035643	476 00 0 00 040220 		SETOM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6793									;WITH ONES
  6794	035644	200 00 0 00 040766 		MOVE	[230703,,603700]
  6795	035645	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD ALL WORDS OF SOURCE BLOCK WITH 230703,,603700
  6796	035646	202 00 0 00 040222 		MOVEM	SRCE+1
  6797	035647	202 00 0 00 040223 		MOVEM	SRCE+2
  6798	035650	202 00 0 00 040224 		MOVEM	SRCE+3
  6799	035651	202 00 0 00 040225 		MOVEM	SRCE+4
  6800	035652	476 00 0 00 040226 		SETOM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6801									;WITH ONES
  6802	035653	251 11 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6803			020701		SN=SN+1
  6804	035654	200 07 0 00 040220 		MOVE	AC-2,DEST-1
  6805	035655	312 07 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6806									;BLOCK CLOBBERED?
  6807	035656	002 07 0 00 020701 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6808									;BLOCK WAS CLOBBERED?
  6809			020702		SN=SN+1
  6810	035657	200 07 0 00 040221 		MOVE	AC-2,DEST
  6811	035660	312 07 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6812									;CORRECTLY FROM SOURCE?
  6813	035661	002 07 0 00 020702 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6814									;CORRECTLY FROM SOURCE
  6815			020703		SN=SN+1
  6816	035662	200 07 0 00 040222 		MOVE	AC-2,DEST+1
  6817	035663	312 07 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
  6818									;LOADED CORRECTLY FROM SOURCE?
  6819	035664	002 07 0 00 020703 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6820									;CORRECTLY FROM SOURCE
  6821			020704		SN=SN+1
  6822	035665	200 07 0 00 040223 		MOVE	AC-2,DEST+2
  6823	035666	312 07 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6824									;CORRECTLY FROM SOURCE?
  6825	035667	002 07 0 00 020704 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6826									;CORRECTLY FROM SOURCE
  6827			020705		SN=SN+1
  6828	035670	200 07 0 00 040224 		MOVE	AC-2,DEST+3
  6829	035671	312 07 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 73-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0179

  6830									;LOADED CORRECTLY FROM SOURCE?
  6831	035672	002 07 0 00 020705 		ER2	AC-2,SN		;FOURTH WORD OF DESTINATION BLOCK NOT LOADED CORRECTLY
  6832									;FROM SOURCE
  6833			020706		SN=SN+1
  6834	035673	200 07 0 00 040225 		MOVE	AC-2,DEST+4
  6835	035674	312 07 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6836									;CORRECTLY FROM SOURCE?
  6837	035675	002 07 0 00 020706 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6838									;CORRECTLY FROM SOURCE
  6839			020707		SN=SN+1
  6840	035676	200 07 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6841	035677	312 07 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6842									;CLOBBERED?
  6843	035700	002 13 0 00 020707 		ER2	AC+2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6844									;WAS CLOBBERED
  6845	035701	321 13 0 00 035642 		JUMPL	AC+2,G20700	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 74
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0180

  6846					;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
  6847					;- NON-AC RANGE - MULTIPLE PATTERN
  6848
  6849			000010			AC=10
  6850						SAVEAC	(1,1)^
  6851	035702	201 12 0 00 035702 		MOVEI	AC+2,.		;SAVE TEST PC
  6852	035703	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  6853	035704	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6854	035705	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6855
  6856			021000		SN=21000
  6857			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
  6858			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  6859			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6860
  6861	035706	200 10 0 00 041030 	G21000:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6862									;SOURCE AND DESTINATION BLOCKS
  6863	035707	200 00 0 00 040766 		MOVE	[230703,,603700]
  6864	035710	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  6865									;WITH 230703,,603700
  6866	035711	200 00 0 00 041032 		MOVE	[252525,,252525]
  6867	035712	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  6868	035713	200 00 0 00 041051 		MOVE	[146314,,631463]
  6869	035714	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  6870									;WITH 146314,,631463
  6871	035715	200 00 0 00 041034 		MOVE	[070707,,070707]
  6872	035716	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  6873	035717	200 00 0 00 041052 		MOVE	[036074,,170360]
  6874	035720	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6875									;WITH 036074,,170360
  6876	035721	200 00 0 00 041053 		MOVE	[017407,,603701]
  6877	035722	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  6878	035723	200 00 0 00 041054 		MOVE	[007603,,607062]
  6879	035724	202 00 0 00 040226 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6880									;WITH 007603,,607062
  6881	035725	251 10 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6882			021001		SN=SN+1
  6883	035726	200 06 0 00 040220 		MOVE	AC-2,DEST-1
  6884	035727	312 06 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6885									;BLOCK CLOBBERED?
  6886	035730	002 06 0 00 021001 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6887									;BLOCK WAS CLOBBERED?
  6888			021002		SN=SN+1
  6889	035731	200 06 0 00 040221 		MOVE	AC-2,DEST
  6890	035732	312 06 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6891									;CORRECTLY FROM SOURCE?
  6892	035733	002 06 0 00 021002 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6893									;CORRECTLY FROM SOURCE
  6894			021003		SN=SN+1
  6895	035734	200 06 0 00 040222 		MOVE	AC-2,DEST+1
  6896	035735	312 06 0 00 041051 		CAME	AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  6897									;LOADED CORRECTLY FROM SOURCE?
  6898	035736	002 06 0 00 021003 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6899									;CORRECTLY FROM SOURCE
  6900			021004		SN=SN+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 74-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0181

  6901	035737	200 06 0 00 040223 		MOVE	AC-2,DEST+2
  6902	035740	312 06 0 00 041034 		CAME	AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  6903									;CORRECTLY FROM SOURCE?
  6904	035741	002 06 0 00 021004 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6905									;CORRECTLY FROM SOURCE
  6906			021005		SN=SN+1
  6907	035742	200 06 0 00 040224 		MOVE	AC-2,DEST+3
  6908	035743	312 06 0 00 041052 		CAME	AC-2,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
  6909									;LOADED CORRECTLY FROM SOURCE?
  6910	035744	002 06 0 00 021005 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6911									;CORRECTLY FROM SOURCE
  6912			021006		SN=SN+1
  6913	035745	200 06 0 00 040225 		MOVE	AC-2,DEST+4
  6914	035746	312 06 0 00 041053 		CAME	AC-2,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
  6915									;CORRECTLY FROM SOURCE?
  6916	035747	002 06 0 00 021006 		ER2	AC-2,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  6917									;CORRECTLY FROM SOURCE
  6918			021007		SN=SN+1
  6919	035750	200 06 0 00 040226 		MOVE	AC-2,DEST+SIZ
  6920	035751	312 06 0 00 041054 		CAME	AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6921									;BLOCK CLOBBERED?
  6922	035752	002 06 0 00 021007 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  6923									;WAS CLOBBERED
  6924	035753	321 12 0 00 035706 		JUMPL	AC+2,G21000	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 75
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0182

  6925					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  6926					;ADDRESS MINUS ONE - AC RANGE - MULTIPLE PATTERN
  6927
  6928			000014			AC=14
  6929						SAVEAC	(1,1)^
  6930	035754	201 16 0 00 035754 		MOVEI	AC+2,.		;SAVE TEST PC
  6931	035755	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  6932	035756	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6933	035757	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6934
  6935			021100		SN=21100
  6936			000002			SRCE=<AC-12>&17		;SOURCE BLOCK STARTING ADDRESS= <AC-12>&17
  6937			000001			DEST=<AC-13>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
  6938			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  6939
  6940	035760	200 14 0 00 041055 	G21100:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  6941									;SOURCE AND DESTINATION BLOCKS
  6942	035761	476 00 0 00 000000 		SETOM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  6943									;BLOCK WITH ONES
  6944	035762	200 01 0 00 040766 		MOVE	DEST,[230703,,603700] ;PRELOAD FIRST WORD OF DESTINATION BLOCK
  6945									;WITH 230703,,603700
  6946	035763	200 02 0 00 041032 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  6947									;252525,,252525
  6948	035764	200 03 0 00 041051 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  6949									;WITH 146314,,631463
  6950	035765	200 04 0 00 041034 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  6951									;WITH 070707,,070707
  6952	035766	200 05 0 00 041056 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  6953									;WITH 036074,,170630
  6954	035767	200 06 0 00 041053 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  6955									;WITH 017407,,603701
  6956	035770	200 07 0 00 041054 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  6957									;OF SOURCE BLOCK WITH 007603,,607062
  6958	035771	251 14 0 00 000005 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  6959			021101		SN=SN+1
  6960	035772	312 00 0 00 040750 		CAME	DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  6961									;BLOCK CLOBBERED?
  6962	035773	002 00 0 00 021101 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  6963									;BLOCK WAS CLOBBERED?
  6964			021102		SN=SN+1
  6965	035774	312 01 0 00 041032 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  6966									;CORRECTLY FROM SOURCE?
  6967	035775	002 01 0 00 021102 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  6968									;CORRECTLY FROM SOURCE
  6969			021103		SN=SN+1
  6970	035776	312 02 0 00 041051 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  6971									;LOADED CORRECTLY FROM SOURCE?
  6972	035777	002 02 0 00 021103 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  6973									;CORRECTLY FROM SOURCE
  6974			021104		SN=SN+1
  6975	036000	312 03 0 00 041034 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  6976									;LOADED CORRECTLY FROM SOURCE?
  6977	036001	002 03 0 00 021104 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  6978									;CORRECTLY FROM SOURCE
  6979
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 75-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0183

  6980			021105		SN=SN+1
  6981	036002	312 04 0 00 041056 		CAME	DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION
  6982									;BLOCK LOADED CORRECTLY FROM SOURCE?
  6983	036003	002 04 0 00 021105 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  6984									;CORRECTLY FROM SOURCE
  6985			021106		SN=SN+1
  6986	036004	312 05 0 00 041053 		CAME	DEST+4,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK
  6987									;LOADED CORRECTLY FROM SOURCE?
  6988	036005	002 05 0 00 021106 		ER2	DEST+4,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  6989									;CORRECTLY FROM SOURCE
  6990			021107		SN=SN+1
  6991	036006	312 06 0 00 041053 		CAME	DEST+SIZ,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  6992									;BLOCK CLOBBERED?
  6993	036007	002 06 0 00 021107 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  6994									;BLOCK WAS CLOBBERED
  6995			021110		SN=SN+1
  6996	036010	312 07 0 00 041054 		CAME	SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  6997									;BLOCK CLOBBERED?
  6998	036011	002 07 0 00 021110 		ER2	SRCE+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  6999									;WAS CLOBBERED
  7000	036012	321 16 0 00 035760 		JUMPL	AC+2,G21100	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 76
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0184

  7001					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7002					;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN
  7003
  7004			000006			AC=6
  7005						SAVEAC	(1,1)^
  7006	036013	201 10 0 00 036013 		MOVEI	AC+2,.		;SAVE TEST PC
  7007	036014	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  7008	036015	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7009	036016	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7010
  7011			021200		SN=21200
  7012			040222			SRCE=BLTBLK+2	;SOURCE BLOCK STARTING ADDRESS= BLTBLK+2
  7013			040221			DEST=BLTBLK+1	;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+1
  7014			000005			SIZ=5		;BLOCK SIZE=5 WORDS
  7015
  7016	036017	200 06 0 00 041057 	G21200:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  7017									;SOURCE AND DESTINATION BLOCKS
  7018	036020	476 00 0 00 040220 		SETOM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7019									;BLOCK WITH ONES
  7020	036021	200 00 0 00 040766 		MOVE	[230703,,603700]
  7021	036022	202 00 0 00 040221 		MOVEM	DEST		;PRELOAD FIRST WORD OF DESTINATION BLOCK
  7022									;WITH 230703,,603700
  7023	036023	200 00 0 00 041032 		MOVE	[252525,,252525]
  7024	036024	202 00 0 00 040222 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7025	036025	200 00 0 00 041051 		MOVE	[146314,,631463]
  7026	036026	202 00 0 00 040223 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7027									;WITH 146314,,631463
  7028	036027	200 00 0 00 041034 		MOVE	[070707,,070707]
  7029	036030	202 00 0 00 040224 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7030	036031	200 00 0 00 041056 		MOVE	[036074,,170630]
  7031	036032	202 00 0 00 040225 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7032									;WITH 036074,,170630
  7033	036033	200 00 0 00 041053 		MOVE	[017407,,603701]
  7034	036034	202 00 0 00 040226 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7035	036035	200 00 0 00 041054 		MOVE	[007603,,607062]
  7036	036036	202 00 0 00 040227 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7037									;WITH 007603,,607062
  7038	036037	251 06 0 00 040225 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 77
DBKAMM	MAC	16-JUN-76 14:38		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 (CONTINUED)
  7041
  7042			021201		SN=SN+1
  7043	036040	200 04 0 00 040220 		MOVE	AC-2,DEST-1
  7044	036041	312 04 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7045									;BLOCK CLOBBERED?
  7046	036042	002 04 0 00 021201 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7047									;BLOCK WAS CLOBBERED?
  7048			021202		SN=SN+1
  7049	036043	200 04 0 00 040221 		MOVE	AC-2,DEST
  7050	036044	312 04 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7051									;CORRECTLY FROM SOURCE?
  7052	036045	002 04 0 00 021202 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7053									;CORRECTLY FROM SOURCE
  7054			021203		SN=SN+1
  7055	036046	200 04 0 00 040222 		MOVE	AC-2,DEST+1
  7056	036047	312 04 0 00 041051 		CAME	AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7057									;LOADED CORRECTLY FROM SOURCE?
  7058	036050	002 04 0 00 021203 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7059									;CORRECTLY FROM SOURCE
  7060			021204		SN=SN+1
  7061	036051	200 04 0 00 040223 		MOVE	AC-2,DEST+2
  7062	036052	312 04 0 00 041034 		CAME	AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7063									;CORRECTLY FROM SOURCE?
  7064	036053	002 04 0 00 021204 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7065									;CORRECTLY FROM SOURCE
  7066			021205		SN=SN+1
  7067	036054	200 04 0 00 040224 		MOVE	AC-2,DEST+3
  7068	036055	312 04 0 00 041056 		CAME	AC-2,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7069									;LOADED CORRECTLY FROM SOURCE?
  7070	036056	002 04 0 00 021205 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7071									;CORRECTLY FROM SOURCE
  7072			021206		SN=SN+1
  7073	036057	200 04 0 00 040225 		MOVE	AC-2,DEST+4
  7074	036060	312 04 0 00 041053 		CAME	AC-2,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7075									;CORRECTLY FROM SOURCE?
  7076	036061	002 04 0 00 021206 		ER2	AC-2,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7077									;CORRECTLY FROM SOURCE
  7078			021207		SN=SN+1
  7079	036062	200 04 0 00 040226 		MOVE	AC-2,DEST+SIZ
  7080	036063	312 04 0 00 041053 		CAME	AC-2,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7081									;BLOCK CLOBBERED?
  7082	036064	002 04 0 00 021207 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7083									;WAS CLOBBERED
  7084			021210		SN=SN+1
  7085	036065	200 04 0 00 040227 		MOVE	AC-2,SRCE+SIZ
  7086	036066	312 04 0 00 041054 		CAME	AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7087									;BLOCK CLOBBERED?
  7088	036067	002 04 0 00 021210 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
  7089									;CLOBBERED
  7090	036070	321 10 0 00 036017 		JUMPL	AC+2,G21200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 78
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0186

  7091					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7092					;ADDRESS PLUS ONE - AC RANGE - MULTIPLE PATTERN
  7093
  7094			000014			AC=14
  7095						SAVEAC	(1,1)^
  7096	036071	201 16 0 00 036071 		MOVEI	AC+2,.		;SAVE TEST PC
  7097	036072	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7098	036073	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7099	036074	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7100
  7101			021300		SN=21300
  7102			000001			SRCE=<AC-13>&17		;SOURCE BLOCK STARTING ADDRESS= <AC-13>&17
  7103			000002			DEST=<AC-12>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-12>&17
  7104			000005			SIZ=5		;BLOCK SIZE=5 WORDS
  7105
  7106	036075	200 14 0 00 041060 	G21300:	MOVE	AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
  7107									;SOURCE AND DESTINATION BLOCKS
  7108	036076	200 00 0 00 040766 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  7109									;OF SOURCE BLOCK WITH 230703,,603700
  7110	036077	200 01 0 00 041032 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  7111									;252525,,252525
  7112	036100	200 02 0 00 041051 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  7113									;WITH 146314,,631463
  7114	036101	200 03 0 00 041034 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  7115									;WITH 070707,,070707
  7116	036102	200 04 0 00 041056 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7117									;WITH 036074,,170630
  7118	036103	200 05 0 00 041053 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  7119									;WITH 017407,,603701
  7120	036104	200 06 0 00 041054 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  7121									;OF SOURCE BLOCK WITH 007603,,607062
  7122	036105	476 00 0 00 000007 		SETOM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7123									;WITH ONES
  7124	036106	251 14 0 00 000006 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
  7125			021301		SN=SN+1
  7126	036107	312 00 0 00 040766 		CAME	SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7127									;BLOCK CLOBBERED?
  7128	036110	002 00 0 00 021301 		ER2	SRCE-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7129									;WAS CLOBBERED
  7130			021302		SN=SN+1
  7131	036111	312 01 0 00 041032 		CAME	SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7132	036112	002 01 0 00 021302 		ER2	SRCE,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7133			021303		SN=SN+1
  7134	036113	312 02 0 00 041032 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7135									;CORRECTLY FROM SOURCE?
  7136	036114	002 02 0 00 021303 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7137									;CORRECTLY FROM SOURCE
  7138			021304		SN=SN+1
  7139	036115	312 03 0 00 041032 		CAME	DEST+1,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
  7140									;LOADED CORRECTLY FROM SOURCE?
  7141	036116	002 03 0 00 021304 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7142									;CORRECTLY FROM SOURCE
  7143			021305		SN=SN+1
  7144	036117	312 04 0 00 041032 		CAME	DEST+2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK
  7145									;LOADED CORRECTLY FROM SOURCE?
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 78-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0187

  7146	036120	002 04 0 00 021305 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7147									;CORRECTLY FROM SOURCE
  7148			021306		SN=SN+1
  7149	036121	312 05 0 00 041032 		CAME	DEST+3,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7150									;LOADED CORRECTLY FROM SOURCE?
  7151	036122	002 05 0 00 021306 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7152									;CORRECTLY FROM SOURCE
  7153			021307		SN=SN+1
  7154	036123	312 06 0 00 041032 		CAME	DEST+4,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK
  7155									;LOADED CORRECTLY FROM SOURCE?
  7156	036124	002 06 0 00 021307 		ER2	DEST+4,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7157									;CORRECTLY FROM SOURCE
  7158			021310		SN=SN+1
  7159	036125	312 07 0 00 040750 		CAME	DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7160									;BLOCK CLOBBERED?
  7161	036126	002 07 0 00 021310 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  7162									;BLOCK WAS CLOBBERED
  7163	036127	321 16 0 00 036075 		JUMPL	AC+2,G21300	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 79
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0188

  7164					;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
  7165					;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN
  7166
  7167			000004			AC=4
  7168						SAVEAC	(1,1)^
  7169	036130	201 06 0 00 036130 		MOVEI	AC+2,.		;SAVE TEST PC
  7170	036131	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  7171	036132	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7172	036133	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7173
  7174			021400		SN=21400
  7175			040221			SRCE=BLTBLK+1	;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
  7176			040222			DEST=BLTBLK+2	;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+2
  7177			000005			SIZ=5			;BLOCK SIZE=5 WORDS
  7178
  7179	036134	200 04 0 00 041061 	G21400:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7180									;SOURCE AND DESTINATION BLOCKS
  7181	036135	200 00 0 00 040766 		MOVE	[230703,,603700]
  7182	036136	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7183									;WITH 23703,,603700
  7184	036137	200 00 0 00 041032 		MOVE	[252525,,252525]
  7185	036140	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7186	036141	200 00 0 00 041062 		MOVE	[146314,,146314]
  7187	036142	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7188									;WITH 146314,,631463
  7189	036143	200 00 0 00 041034 		MOVE	[070707,,070707]
  7190	036144	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7191	036145	200 00 0 00 041056 		MOVE	[036074,,170630]
  7192	036146	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7193									;WITH 036074,,170630
  7194	036147	200 00 0 00 041053 		MOVE	[017407,,603701]
  7195	036150	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7196	036151	200 00 0 00 041054 		MOVE	[007603,,607062]
  7197	036152	202 00 0 00 040226 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7198									;WITH 007603,,607062
  7199	036153	476 00 0 00 040227 		SETOM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7200									;WITH ONES
  7201	036154	251 04 0 00 040226 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 80
DBKAMM	MAC	16-JUN-76 14:38		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 (CONTINUED)
  7204
  7205			021401		SN=SN+1
  7206	036155	200 02 0 00 040220 		MOVE	AC-2,SRCE-1
  7207	036156	312 02 0 00 040766 		CAME	AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7208									;BLOCK CLOBBERED?
  7209	036157	002 02 0 00 021401 		ER2	AC-2,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7210									;WAS CLOBBERED
  7211			021402		SN=SN+1
  7212	036160	200 02 0 00 040221 		MOVE	AC-2,SRCE
  7213	036161	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7214	036162	002 02 0 00 021402 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7215			021403		SN=SN+1
  7216	036163	200 02 0 00 040222 		MOVE	AC-2,DEST
  7217	036164	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7218									;CORRECTLY FROM SOURCE?
  7219	036165	002 02 0 00 021403 		ER2	AC-2,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7220									;CORRECTLY FROM SOURCE
  7221			021404		SN=SN+1
  7222	036166	200 02 0 00 040223 		MOVE	AC-2,DEST+1
  7223	036167	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
  7224									;LOADED CORRECTLY FROM SOURCE?
  7225	036170	002 02 0 00 021404 		ER2	AC-2,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7226									;CORRECTLY FROM SOURCE
  7227			021405		SN=SN+1
  7228	036171	200 02 0 00 040224 		MOVE	AC-2,DEST+2
  7229	036172	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7230									;CORRECTLY FROM SOURCE?
  7231	036173	002 02 0 00 021405 		ER2	AC-2,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7232									;CORRECTLY FROM SOURCE
  7233			021406		SN=SN+1
  7234	036174	200 02 0 00 040225 		MOVE	AC-2,DEST+3
  7235	036175	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7236									;LOADED CORRECTLY FROM SOURCE?
  7237	036176	002 02 0 00 021406 		ER2	AC-2,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7238									;CORRECTLY FROM SOURCE
  7239			021407		SN=SN+1
  7240	036177	200 02 0 00 040226 		MOVE	AC-2,DEST+4
  7241	036200	312 02 0 00 041032 		CAME	AC-2,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7242									;CORRECTLY FROM SOURCE?
  7243	036201	002 02 0 00 021407 		ER2	AC-2,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7244									;CORRECTLY FROM SOURCE
  7245			021410		SN=SN+1
  7246	036202	200 02 0 00 040227 		MOVE	AC-2,DEST+SIZ
  7247	036203	312 02 0 00 040750 		CAME	AC-2,[-1,,-1]	;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7248									;CLOBBERED?
  7249	036204	002 02 0 00 021410 		ER2	AC-2,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7250									;WAS CLOBBERED
  7251	036205	321 06 0 00 036134 		JUMPL	AC+2,G21400	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 81
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0190

  7252					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7253					;HAS NON-AC ADDRESS- MULTIPLE PATTERN
  7254
  7255			000014			AC=14
  7256						SAVEAC	(1,1)^
  7257	036206	201 16 0 00 036206 		MOVEI	AC+2,.		;SAVE TEST PC
  7258	036207	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7259	036210	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7260	036211	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7261
  7262			021500		SN=21500
  7263			000001			SRCE=<AC-13>&17		;SOURCE BLOCK STARTING ADDRESS=<AC-13>&17
  7264			040221			DEST=BLTBLK+1		;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
  7265			000012			SIZ=^D10		;BLOCK SIZE=10 WORDS
  7266
  7267	036212	200 14 0 00 041063 	G21500:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7268									;SOURCE AND DESTINATION BLOCKS
  7269	036213	200 00 0 00 040766 		MOVE	SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
  7270									;OF SOURCE BLOCK WITH 230703,,603700
  7271	036214	200 01 0 00 041032 		MOVE	SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
  7272									;252525,,252525
  7273	036215	200 02 0 00 041051 		MOVE	SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
  7274									;WITH 146314,,631463
  7275	036216	200 03 0 00 041034 		MOVE	SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
  7276									;WITH 070707,,070707
  7277	036217	200 04 0 00 041056 		MOVE	SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7278									;WITH 036074,,170630
  7279	036220	200 05 0 00 041053 		MOVE	SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
  7280									;WITH 017407,,603701
  7281	036221	200 06 0 00 041064 		MOVE	SRCE+5,[007700,,770077] ;PRELOAD SIXTH WORD OF SOURCE BLOCK
  7282									;WITH 007700,,770077
  7283	036222	200 07 0 00 041065 		MOVE	SRCE+6,[003760,,077401] ;PRELOAD SEVENTH WORD OF SOURCE BLOCK
  7284									;WITH 003760,,077401
  7285	036223	200 10 0 00 041066 		MOVE	SRCE+7,[001774,,007760] ;PRELOAD EIGHTH WORD OF SOURCE BLOCK
  7286									;WITH 001774,,007760
  7287	036224	200 11 0 00 041067 		MOVE	SRCE+^D8,[000777,,000777] ;PRELOAD NINTH WORD OF SOURCE BLOCK
  7288									;WITH 000777,,000777
  7289	036225	200 12 0 00 041070 		MOVE	SRCE+^D9,[000377,,600077] ;PRELOAD TENTH WORD OF SOURCE BLOCK
  7290									;WITH 000377,,600077
  7291	036226	200 13 0 00 041054 		MOVE	SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
  7292									;OF SOURCE BLOCK WITH 007603,,607062
  7293	036227	202 00 0 00 041227 		MOVEM	GSVAC0#
  7294	036230	561 00 0 00 040220 		HRROI	DEST-1
  7295	036231	202 00 0 00 040220 		MOVEM	DEST-1		;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7296									;BLOCK WITH DEST-1
  7297	036232	561 00 0 00 040221 		HRROI	DEST
  7298	036233	202 00 0 00 040221 		MOVEM	DEST		;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
  7299	036234	561 00 0 00 040222 		HRROI	DEST+1
  7300	036235	202 00 0 00 040222 		MOVEM	DEST+1		;PRELOAD SECOND WORD OF DESTINATION BLOCK WITH DEST+1
  7301	036236	561 00 0 00 040223 		HRROI	DEST+2
  7302	036237	202 00 0 00 040223 		MOVEM	DEST+2		;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
  7303	036240	561 00 0 00 040224 		HRROI	DEST+3
  7304	036241	202 00 0 00 040224 		MOVEM	DEST+3		;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
  7305	036242	561 00 0 00 040225 		HRROI	DEST+4
  7306	036243	202 00 0 00 040225 		MOVEM	DEST+4		;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 81-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0191

  7307	036244	561 00 0 00 040226 		HRROI	DEST+5
  7308	036245	202 00 0 00 040226 		MOVEM	DEST+5		;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
  7309	036246	561 00 0 00 040227 		HRROI	DEST+6
  7310	036247	202 00 0 00 040227 		MOVEM	DEST+6		;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
  7311	036250	561 00 0 00 040230 		HRROI	DEST+7
  7312	036251	202 00 0 00 040230 		MOVEM	DEST+7		;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
  7313	036252	561 00 0 00 040231 		HRROI	DEST+^D8
  7314	036253	202 00 0 00 040231 		MOVEM	DEST+^D8	;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
  7315	036254	561 00 0 00 040232 		HRROI	DEST+^D9
  7316	036255	202 00 0 00 040232 		MOVEM	DEST+^D9	;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
  7317	036256	561 00 0 00 040233 		HRROI	DEST+SIZ
  7318	036257	202 00 0 00 040233 		MOVEM	DEST+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7319									;WITH DEST+SIZ
  7320	036260	200 00 0 00 041227 		MOVE	GSVAC0
  7321
  7322	036261	251 14 0 00 040232 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 82
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0192

  7323					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7324					;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
  7325
  7326			021501		SN=SN+1
  7327	036262	312 00 0 00 040766 		CAME	SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7328									;BLOCK CLOBBERED?
  7329	036263	002 00 0 00 021501 		ER2	SRCE-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7330									;WAS CLOBBERED
  7331			021502		SN=SN+1
  7332	036264	312 01 0 00 041032 		CAME	SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7333	036265	002 01 0 00 021502 		ER2	SRCE,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7334			021503		SN=SN+1
  7335	036266	312 02 0 00 041051 		CAME	SRCE+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
  7336	036267	002 02 0 00 021503 		ER2	SRCE+1,SN	;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
  7337			021504		SN=SN+1
  7338	036270	312 03 0 00 041034 		CAME	SRCE+2,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
  7339	036271	002 03 0 00 021504 		ER2	SRCE+2,SN	;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
  7340			021505		SN=SN+1
  7341	036272	312 04 0 00 041056 		CAME	SRCE+3,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
  7342	036273	002 04 0 00 021505 		ER2	SRCE+3,SN	;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7343			021506		SN=SN+1
  7344	036274	312 05 0 00 041053 		CAME	SRCE+4,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
  7345	036275	002 05 0 00 021506 		ER2	SRCE+4,SN	;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7346			021507		SN=SN+1
  7347	036276	312 06 0 00 041064 		CAME	SRCE+5,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
  7348	036277	002 06 0 00 021507 		ER2	SRCE+5,SN	;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7349			021510		SN=SN+1
  7350	036300	312 07 0 00 041065 		CAME	SRCE+6,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
  7351	036301	002 07 0 00 021510 		ER2	SRCE+6,SN	;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7352			021511		SN=SN+1
  7353	036302	312 10 0 00 041066 		CAME	SRCE+7,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
  7354	036303	002 10 0 00 021511 		ER2	SRCE+7,SN	;FAIL IF EIGHTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7355			021512		SN=SN+1
  7356	036304	312 11 0 00 041067 		CAME	SRCE+^D8,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
  7357	036305	002 11 0 00 021512 		ER2	SRCE+^D8,SN	;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7358			021513		SN=SN+1
  7359	036306	312 12 0 00 041070 		CAME	SRCE+^D9,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
  7360	036307	002 12 0 00 021513 		ER2	SRCE+^D9,SN	;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
  7361			021514		SN=SN+1
  7362	036310	312 13 0 00 041054 		CAME	SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7363									;BLOCK CLOBBERED?
  7364	036311	002 13 0 00 021514 		ER2	SRCE+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7365									;WAS CLOBBERED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 83
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0193

  7366					;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
  7367					;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
  7368
  7369			021515		SN=SN+1
  7370	036312	200 15 0 00 040220 		MOVE	AC+1,DEST-1
  7371	036313	312 15 0 00 041071 		CAME	AC+1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7372									;BLOCK CLOBBERED?
  7373	036314	002 15 0 00 021515 		ER2	AC+1,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7374									;BLOCK WAS CLOBBERED?
  7375			021516		SN=SN+1
  7376	036315	200 15 0 00 040221 		MOVE	AC+1,DEST
  7377	036316	312 15 0 00 041032 		CAME	AC+1,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7378									;CORRECTLY FROM SOURCE?
  7379	036317	002 15 0 00 021516 		ER2	AC+1,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7380									;CORRECTLY FROM SOURCE
  7381			021517		SN=SN+1
  7382	036320	200 15 0 00 040222 		MOVE	AC+1,DEST+1
  7383	036321	312 15 0 00 041051 		CAME	AC+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7384									;LOADED CORRECTLY FROM SOURCE?
  7385	036322	002 15 0 00 021517 		ER2	AC+1,SN		;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7386									;CORRECTLY FROM SOURCE
  7387			021520		SN=SN+1
  7388	036323	200 15 0 00 040223 		MOVE	AC+1,DEST+2
  7389	036324	312 15 0 00 041034 		CAME	AC+1,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
  7390									;CORRECTLY FROM SOURCE?
  7391	036325	002 15 0 00 021520 		ER2	AC+1,SN		;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7392									;CORRECTLY FROM SOURCE
  7393			021521		SN=SN+1
  7394	036326	200 15 0 00 040224 		MOVE	AC+1,DEST+3
  7395	036327	312 15 0 00 041056 		CAME	AC+1,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7396									;LOADED CORRECTLY FROM SOURCE?
  7397	036330	002 15 0 00 021521 		ER2	AC+1,SN		;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7398									;CORRECTLY FROM SOURCE
  7399			021522		SN=SN+1
  7400	036331	200 15 0 00 040225 		MOVE	AC+1,DEST+4
  7401	036332	312 15 0 00 041053 		CAME	AC+1,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  7402									;LOADED CORRECTLY FROM SOURCE?
  7403	036333	002 15 0 00 021522 		ER2	AC+1,SN		;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  7404									;CORRECTLY FROM SOURCE
  7405			021523		SN=SN+1
  7406	036334	200 15 0 00 040226 		MOVE	AC+1,DEST+5
  7407	036335	312 15 0 00 041064 		CAME	AC+1,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK LOADED
  7408									;CORRECTLY FROM SOURCE?
  7409	036336	002 15 0 00 021523 		ER2	AC+1,SN		;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
  7410									;CORRECTLY FROM SOURCE
  7411			021524		SN=SN+1
  7412	036337	200 15 0 00 040227 		MOVE	AC+1,DEST+6
  7413	036340	312 15 0 00 041065 		CAME	AC+1,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
  7414									;LOADED CORRECTLY FROM SOURCE?
  7415	036341	002 15 0 00 021524 		ER2	AC+1,SN		;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
  7416									;CORRECTLY FROM SOURCE
  7417			021525		SN=SN+1
  7418	036342	200 15 0 00 040230 		MOVE	AC+1,DEST+7
  7419	036343	312 15 0 00 041066 		CAME	AC+1,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
  7420									;LOADED CORRECTLY FROM SOURCE?
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 83-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0194

  7421	036344	002 15 0 00 021525 		ER2	AC+1,SN		;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
  7422									;CORRECTLY FROM SOURCE
  7423			021526		SN=SN+1
  7424	036345	200 15 0 00 040231 		MOVE	AC+1,DEST+^D8
  7425	036346	312 15 0 00 041067 		CAME	AC+1,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK LOADED
  7426									;CORRECTLY FROM SOURCE?
  7427	036347	002 15 0 00 021526 		ER2	AC+1,SN		;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
  7428									;CORRECTLY FROM SOURCE
  7429			021527		SN=SN+1
  7430	036350	200 15 0 00 040232 		MOVE	AC+1,DEST+^D9
  7431	036351	312 15 0 00 041070 		CAME	AC+1,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
  7432									;CORRECTLY FROM SOURCE?
  7433	036352	002 15 0 00 021527 		ER2	AC+1,SN		;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7434									;CORRECTLY FROM SOURCE
  7435			021530		SN=SN+1
  7436	036353	200 15 0 00 040233 		MOVE	AC+1,DEST+SIZ
  7437	036354	312 15 0 00 041072 		CAME	AC+1,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7438									;BLOCK CLOBBERED?
  7439	036355	002 15 0 00 021530 		ER2	AC+1,SN		;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
  7440									;WAS CLOBBERED
  7441	036356	321 16 0 00 036212 		JUMPL	AC+2,G21500	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 84
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0195

  7442					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7443					;HAS AC ADDRESS - MULTIPLE PATTERN
  7444
  7445			000014			AC=14
  7446						SAVEAC	(1,1)^
  7447	036357	201 16 0 00 036357 		MOVEI	AC+2,.		;SAVE TEST PC
  7448	036360	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7449	036361	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7450	036362	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7451
  7452			021600		SN=21600
  7453			040221			SRCE=BLTBLK+1		;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
  7454			000001			DEST=<AC-13>&17		;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
  7455			000012			SIZ=^D10		;BLOCK SIZE=10 WORDS
  7456
  7457	036363	200 14 0 00 041073 	G21600:	MOVE	AC,[SRCE,,DEST]	;PRELOAD AC WITH STARTING ADDRESSES OF
  7458									;SOURCE AND DESTINATION BLOCKS
  7459	036364	200 00 0 00 040766 		MOVE	[230703,,603700]
  7460	036365	202 00 0 00 040220 		MOVEM	SRCE-1		;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7461									;WITH 230703,,603700
  7462	036366	200 00 0 00 041032 		MOVE	[252525,,252525]
  7463	036367	202 00 0 00 040221 		MOVEM	SRCE		;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
  7464	036370	200 00 0 00 041051 		MOVE	[146314,,631463]
  7465	036371	202 00 0 00 040222 		MOVEM	SRCE+1		;PRELOAD SECOND WORD OF SOURCE BLOCK
  7466									;WITH 146314,,631463
  7467	036372	200 00 0 00 041034 		MOVE	[070707,,070707]
  7468	036373	202 00 0 00 040223 		MOVEM	SRCE+2		;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
  7469	036374	200 00 0 00 041056 		MOVE	[036074,,170630]
  7470	036375	202 00 0 00 040224 		MOVEM	SRCE+3		;PRELOAD FOURTH WORD OF SOURCE BLOCK
  7471									;WITH 036074,,170630
  7472	036376	200 00 0 00 041053 		MOVE	[017407,,603701]
  7473	036377	202 00 0 00 040225 		MOVEM	SRCE+4		;PRELOAD
  7474									;FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
  7475	036400	200 00 0 00 041064 		MOVE	[007700,,770077]
  7476	036401	202 00 0 00 040226 		MOVEM	SRCE+5		;PRELOAD SIXTH WORD OF SOURCE BLOCK WITH 007700,,770077
  7477	036402	200 00 0 00 041065 		MOVE	[003760,,077401]
  7478	036403	202 00 0 00 040227 		MOVEM	SRCE+6		;PRELOAD SEVENTH WORD OF SOURCE BLOCK
  7479									;WITH 003760,,077401
  7480	036404	200 00 0 00 041066 		MOVE	[001774,,007760]
  7481	036405	202 00 0 00 040230 		MOVEM	SRCE+7		;PRELOAD EIGHTH WORD OF SOURCE BLOCK
  7482									;WITH 001774,,007760
  7483	036406	200 00 0 00 041067 		MOVE	[000777,,000777]
  7484	036407	202 00 0 00 040231 		MOVEM	SRCE+^D8	;PRELOAD NINTH WORD OF SOURCE BLOCK WITH 000777,,000777
  7485	036410	200 00 0 00 041070 		MOVE	[000377,,600077]
  7486	036411	202 00 0 00 040232 		MOVEM	SRCE+^D9	;PRELOAD TENTH WORD OF SOURCE BLOCK WITH 000377,,600077
  7487	036412	200 00 0 00 041054 		MOVE	[007603,,607062]
  7488	036413	202 00 0 00 040233 		MOVEM	SRCE+SIZ	;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
  7489									;WITH 007603,,607062
  7490	036414	561 00 0 00 000000 		HRROI	DEST-1,DEST-1	;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
  7491									;BLOCK WITH DEST-1
  7492	036415	561 01 0 00 000001 		HRROI	DEST,DEST	;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
  7493	036416	561 02 0 00 000002 		HRROI	DEST+1,DEST+1	;PRELOAD SECOND WORD OF DESTINATION BLOCK
  7494									;WITH DEST+1,DEST+1
  7495	036417	561 03 0 00 000003 		HRROI	DEST+2,DEST+2	;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
  7496	036420	561 04 0 00 000004 		HRROI	DEST+3,DEST+3	;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 84-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0196

  7497	036421	561 05 0 00 000005 		HRROI	DEST+4,DEST+4	;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
  7498	036422	561 06 0 00 000006 		HRROI	DEST+5,DEST+5	;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
  7499	036423	561 07 0 00 000007 		HRROI	DEST+6,DEST+6	;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
  7500	036424	561 10 0 00 000010 		HRROI	DEST+7,DEST+7	;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
  7501	036425	561 11 0 00 000011 		HRROI	DEST+^D8,DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
  7502	036426	561 12 0 00 000012 		HRROI	DEST+^D9,DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
  7503	036427	561 13 0 00 000013 		HRROI	DEST+SIZ,DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION
  7504									;BLOCK WITH DEST+SIZ
  7505	036430	251 14 0 00 000012 		BLT	AC,DEST+SIZ-1	;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 85
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0197

  7506					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7507					;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
  7508
  7509			021601		SN=SN+1
  7510	036431	200 15 0 00 040220 		MOVE	AC+1,SRCE-1
  7511	036432	312 15 0 00 040766 		CAME	AC+1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
  7512									;BLOCK CLOBBERED?
  7513	036433	002 15 0 00 021601 		ER2	AC+1,SN		;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
  7514									;WAS CLOBBERED
  7515			021602		SN=SN+1
  7516	036434	200 15 0 00 040221 		MOVE	AC+1,SRCE
  7517	036435	312 15 0 00 041032 		CAME	AC+1,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
  7518	036436	002 15 0 00 021602 		ER2	AC+1,SN		;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
  7519			021603		SN=SN+1
  7520	036437	200 15 0 00 040222 		MOVE	AC+1,SRCE+1
  7521	036440	312 15 0 00 041051 		CAME	AC+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
  7522	036441	002 15 0 00 021603 		ER2	AC+1,SN		;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
  7523			021604		SN=SN+1
  7524	036442	200 15 0 00 040223 		MOVE	AC+1,SRCE+2
  7525	036443	312 15 0 00 041034 		CAME	AC+1,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
  7526	036444	002 15 0 00 021604 		ER2	AC+1,SN		;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
  7527			021605		SN=SN+1
  7528	036445	200 15 0 00 040224 		MOVE	AC+1,SRCE+3
  7529	036446	312 15 0 00 041056 		CAME	AC+1,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
  7530	036447	002 15 0 00 021605 		ER2	AC+1,SN		;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7531			021606		SN=SN+1
  7532	036450	200 15 0 00 040225 		MOVE	AC+1,SRCE+4
  7533	036451	312 15 0 00 041053 		CAME	AC+1,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
  7534	036452	002 15 0 00 021606 		ER2	AC+1,SN		;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7535			021607		SN=SN+1
  7536	036453	200 15 0 00 040226 		MOVE	AC+1,SRCE+5
  7537	036454	312 15 0 00 041064 		CAME	AC+1,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
  7538	036455	002 15 0 00 021607 		ER2	AC+1,SN		;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7539			021610		SN=SN+1
  7540	036456	200 15 0 00 040227 		MOVE	AC+1,SRCE+6
  7541	036457	312 15 0 00 041065 		CAME	AC+1,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
  7542	036460	002 15 0 00 021610 		ER2	AC+1,SN		;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7543			021611		SN=SN+1
  7544	036461	200 15 0 00 040230 		MOVE	AC+1,SRCE+7
  7545	036462	312 15 0 00 041066 		CAME	AC+1,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
  7546	036463	002 15 0 00 021611 		ER2	AC+1,SN		;FAIL IF EIGTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7547			021612		SN=SN+1
  7548	036464	200 15 0 00 040231 		MOVE	AC+1,SRCE+^D8
  7549	036465	312 15 0 00 041067 		CAME	AC+1,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
  7550	036466	002 15 0 00 021612 		ER2	AC+1,SN		;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
  7551			021613		SN=SN+1
  7552	036467	200 15 0 00 040232 		MOVE	AC+1,SRCE+^D9
  7553	036470	312 15 0 00 041070 		CAME	AC+1,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
  7554	036471	002 15 0 00 021613 		ER2	AC+1,SN		;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
  7555			021614		SN=SN+1
  7556	036472	200 15 0 00 040233 		MOVE	AC+1,SRCE+SIZ
  7557	036473	312 15 0 00 041054 		CAME	AC+1,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
  7558									;BLOCK CLOBBERED?
  7559	036474	002 15 0 00 021614 		ER2	AC+1,SN		;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
  7560									;CLOBBERED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 86
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0198

  7561					;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
  7562					;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
  7563
  7564			021615		SN=SN+1
  7565	036475	312 00 0 00 041074 		CAME	DEST-1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
  7566									;BLOCK CLOBBERED?
  7567	036476	002 00 0 00 021615 		ER2	DEST-1,SN	;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
  7568									;BLOCK WAS CLOBBERED?
  7569			021616		SN=SN+1
  7570	036477	312 01 0 00 041032 		CAME	DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
  7571									;CORRECTLY FROM SOURCE?
  7572	036500	002 01 0 00 021616 		ER2	DEST,SN		;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
  7573									;CORRECTLY FROM SOURCE
  7574			021617		SN=SN+1
  7575	036501	312 02 0 00 041051 		CAME	DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
  7576									;LOADED CORRECTLY FROM SOURCE?
  7577	036502	002 02 0 00 021617 		ER2	DEST+1,SN	;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
  7578									;CORRECTLY FROM SOURCE
  7579			021620		SN=SN+1
  7580	036503	312 03 0 00 041034 		CAME	DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
  7581									;LOADED CORRECTLY FROM SOURCE?
  7582	036504	002 03 0 00 021620 		ER2	DEST+2,SN	;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
  7583									;CORRECTLY FROM SOURCE
  7584			021621		SN=SN+1
  7585	036505	312 04 0 00 041056 		CAME	DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
  7586									;LOADED CORRECTLY FROM SOURCE?
  7587	036506	002 04 0 00 021621 		ER2	DEST+3,SN	;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
  7588									;CORRECTLY FROM SOURCE
  7589			021622		SN=SN+1
  7590	036507	312 05 0 00 041053 		CAME	DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
  7591									;LOADED CORRECTLY FROM SOURCE?
  7592	036510	002 05 0 00 021622 		ER2	DEST+4,SN	;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
  7593									;CORRECTLY FROM SOURCE
  7594			021623		SN=SN+1
  7595	036511	312 06 0 00 041064 		CAME	DEST+5,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK
  7596									;LOADED CORRECTLY FROM SOURCE?
  7597	036512	002 06 0 00 021623 		ER2	DEST+5,SN	;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
  7598									;CORRECTLY FROM SOURCE
  7599			021624		SN=SN+1
  7600	036513	312 07 0 00 041065 		CAME	DEST+6,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
  7601									;LOADED CORRECTLY FROM SOURCE?
  7602	036514	002 07 0 00 021624 		ER2	DEST+6,SN	;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
  7603									;CORRECTLY FROM SOURCE
  7604			021625		SN=SN+1
  7605	036515	312 10 0 00 041066 		CAME	DEST+7,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
  7606									;LOADED CORRECTLY FROM SOURCE?
  7607	036516	002 10 0 00 021625 		ER2	DEST+7,SN	;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
  7608									;CORRECTLY FROM SOURCE
  7609			021626		SN=SN+1
  7610	036517	312 11 0 00 041067 		CAME	DEST+^D8,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK
  7611									;LOADED CORRECTLY FROM SOURCE?
  7612	036520	002 11 0 00 021626 		ER2	DEST+^D8,SN	;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
  7613									;CORRECTLY FROM SOURCE
  7614			021627		SN=SN+1
  7615	036521	312 12 0 00 041070 		CAME	DEST+^D9,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 86-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0199

  7616									;LOADED CORRECTLY FROM SOURCE?
  7617	036522	002 12 0 00 021627 		ER2	DEST+^D9,SN	;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
  7618									;CORRECTLY FROM SOURCE
  7619			021630		SN=SN+1
  7620	036523	312 13 0 00 041075 		CAME	DEST+SIZ,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
  7621									;BLOCK CLOBBERED?
  7622	036524	002 13 0 00 021630 		ER2	DEST+SIZ,SN	;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
  7623									;BLOCK WAS CLOBBERED
  7624	036525	321 16 0 00 036363 		JUMPL	AC+2,G21600	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 87
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0200

  7625					;TEST BLT WITH 'E' LESS THAN RH(AC)
  7626					;SUCH THAT THE BLT INSTR. TRANSFERS ONLY ONE WORD, THEN STOPS.
  7627
  7628			000010			AC=10
  7629						SAVEAC	(1,1)^
  7630	036526	201 12 0 00 036526 		MOVEI	AC+2,.		;SAVE TEST PC
  7631	036527	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  7632	036530	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7633	036531	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7634			021700			SN=21700
  7635
  7636			041241			BLTSRC=END+2
  7637			041245			BLTDST=END+6
  7638
  7639	036532	200 10 0 00 041032 	G21700:	MOVE	AC,[252525,,252525]	; PRELOAD FOR SRC-1
  7640	036533	202 10 0 00 041240 		MOVEM	AC,BLTSRC-1
  7641	036534	200 10 0 00 040742 		MOVE	AC,[707070,,707070]	; PRELOAD FOR SRC
  7642	036535	202 10 0 00 041241 		MOVEM	AC,BLTSRC
  7643	036536	200 10 0 00 041076 		MOVE	AC,[525252,,525252]	;PRELOAD FOR SRC+1
  7644	036537	202 10 0 00 041242 		MOVEM	AC,BLTSRC+1
  7645	036540	200 10 0 00 041077 		MOVE	AC,[123456,,654321]	;PRELOAD FOR DST-1
  7646	036541	202 10 0 00 041244 		MOVEM	AC,BLTDST-1
  7647	036542	200 10 0 00 041034 		MOVE	AC,[070707,,070707]	;PRELOAD FOR DST
  7648	036543	202 10 0 00 041245 		MOVEM	AC,BLTDST
  7649	036544	200 10 0 00 040757 		MOVE	AC,[112233,,445566]	;PRELOAD FOR DST+1
  7650	036545	202 10 0 00 041246 		MOVEM	AC,BLTDST+1
  7651
  7652	036546	200 10 0 00 041100 		MOVE	AC,[BLTSRC,,BLTDST]	;SETUP BLT PTR=FROM,,TO
  7653	036547	251 10 0 00 041244 		BLT	AC,BLTDST-1		;*BLT SHOULD XFER ONE WORD AND STOP
  7654
  7655			021701		SN=SN+1
  7656	036550	312 10 0 00 041100 		CAME	AC,[BLTSRC,,BLTDST]	;SEE IF PTR CHANGED
  7657	036551	002 10 0 00 021701 		ER2	AC,SN			;YES, REPORT
  7658			021702		SN=SN+1
  7659	036552	200 10 0 00 041032 		MOVE	AC,[252525,,252525]	;GET PRELOAD FOR SRC-1
  7660	036553	312 10 0 00 041240 		CAME	AC,BLTSRC-1		;SEE IF OK
  7661	036554	002 10 0 00 021702 		ER2	AC,SN			;REPORT ERROR
  7662			021703		SN=SN+1
  7663	036555	200 10 0 00 040742 		MOVE	AC,[707070,,707070]	;GET PRELOAD FOR SRC
  7664	036556	312 10 0 00 041241 		CAME	AC,BLTSRC		;SEE IF SRC OK
  7665	036557	002 10 0 00 021703 		ER2	AC,SN			; REPORT ERR
  7666			021704		SN=SN+1
  7667	036560	200 10 0 00 041076 		MOVE	AC,[525252,,525252]	;GET PRELOAD FOR SRC+1
  7668	036561	312 10 0 00 041242 		CAME	AC,BLTSRC+1		;SEE IF OK
  7669	036562	002 10 0 00 021704 		ER2	AC,SN			;REPORT ER
  7670			021705		SN=SN+1
  7671	036563	200 10 0 00 041077 		MOVE	AC,[123456,,654321]	;GET PRELOAD FOR DST-1
  7672	036564	312 10 0 00 041244 		CAME	AC,BLTDST-1		;SEE IF OK
  7673	036565	002 10 0 00 021705 		ER2	AC,SN			;REPORT ERR
  7674			021706		SN=SN+1
  7675	036566	200 10 0 00 040742 		MOVE	AC,[707070,,707070]	;GET PRELOAD FOR SRC***
  7676	036567	312 10 0 00 041245 		CAME	AC,BLTDST		;SEE IF IT XFERED A WORD
  7677	036570	002 10 0 00 021706 		ER2	AC,SN			;REPORT ER
  7678			021707		SN=SN+1
  7679	036571	200 10 0 00 040757 		MOVE	AC,[112233,,445566]	;GET PRELOAD FOR DST+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 87-1
DBKAMM	MAC	16-JUN-76 14:38		PART II - GENERAL  BLOCK TRANSFER TEST                                             SEQ 0201

  7680	036572	312 10 0 00 041246 		CAME	AC,BLTDST+1		;SEE IF XFERED ONLY ONE WORD
  7681	036573	002 10 0 00 021707 		ER2	AC,SN			;REPORT ERR
  7682
  7683	036574	321 12 0 00 036532 		JUMPL	AC+2,G21700		;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0202

  7684					SUBTTL	PART III - GENERAL JFFO TEST
  7685
  7686					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0
  7687
  7688			030100		G30000:	SN=30100
  7689		777777	777777			AC=-1
  7690
  7691	036575	201 00 0 00 041101 		MOVEI	[ASCIZ/JFFO NO-JUMP FAILED/]
  7692	036576	202 00 0 00 040654 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTOR
  7693
  7694					G30100:	REPEAT	^D13,<
  7695					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7696					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7697					
  7698					SN=SN+1
  7699						AC=<AC+1>&17
  7700						SAVEAC	(1,1)
  7701					
  7702						SETZM	AC		;CLEAR AC
  7703						SETOM	<AC+1>&17	;INITIALIZE AC+1
  7704						JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7705						JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7706						ER2	AC,SN		;ERROR IF JFFO JUMPED
  7707						SKIPE	AC		;EXAMINE AC
  7708						ER3	AC,SN		;C(AC) WAS CLOBBERED
  7709						SKIPE	<AC+1>&17	;EXAMINE AC+1
  7710						ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7711						JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7712					>
  7713
  7714					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7715					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7716
  7717			030101		SN=SN+1
  7718			000000			AC=<AC+1>&17
  7719						SAVEAC	(1,1)^
  7720	036577	201 02 0 00 036577 		MOVEI	AC+2,.		;SAVE TEST PC
  7721	036600	202 02 0 00 030051 		MOVEM	AC+2,TESTPC
  7722	036601	201 02 0 00 000002 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7723	036602	202 02 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7724
  7725	036603	402 00 0 00 000000 		SETZM	AC		;CLEAR AC
  7726	036604	476 00 0 00 000001 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7727	036605	243 00 0 00 036607 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7728	036606	254 00 0 00 036610 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7729	036607	002 00 0 00 030101 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7730	036610	332 00 0 00 000000 		SKIPE	AC		;EXAMINE AC
  7731	036611	003 00 0 00 030101 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7732	036612	332 00 0 00 000001 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7733	036613	004 01 0 00 030101 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7734	036614	321 02 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7735
  7736
  7737					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7738					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-1
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0203

  7739
  7740			030102		SN=SN+1
  7741			000001			AC=<AC+1>&17
  7742						SAVEAC	(1,1)^
  7743	036615	201 03 0 00 036615 		MOVEI	AC+2,.		;SAVE TEST PC
  7744	036616	202 03 0 00 030051 		MOVEM	AC+2,TESTPC
  7745	036617	201 03 0 00 000003 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7746	036620	202 03 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7747
  7748	036621	402 00 0 00 000001 		SETZM	AC		;CLEAR AC
  7749	036622	476 00 0 00 000002 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7750	036623	243 01 0 00 036625 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7751	036624	254 00 0 00 036626 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7752	036625	002 01 0 00 030102 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7753	036626	332 00 0 00 000001 		SKIPE	AC		;EXAMINE AC
  7754	036627	003 01 0 00 030102 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7755	036630	332 00 0 00 000002 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7756	036631	004 02 0 00 030102 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7757	036632	321 03 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7758
  7759
  7760					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7761					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7762
  7763			030103		SN=SN+1
  7764			000002			AC=<AC+1>&17
  7765						SAVEAC	(1,1)^
  7766	036633	201 04 0 00 036633 		MOVEI	AC+2,.		;SAVE TEST PC
  7767	036634	202 04 0 00 030051 		MOVEM	AC+2,TESTPC
  7768	036635	201 04 0 00 000004 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7769	036636	202 04 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7770
  7771	036637	402 00 0 00 000002 		SETZM	AC		;CLEAR AC
  7772	036640	476 00 0 00 000003 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7773	036641	243 02 0 00 036643 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7774	036642	254 00 0 00 036644 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7775	036643	002 02 0 00 030103 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7776	036644	332 00 0 00 000002 		SKIPE	AC		;EXAMINE AC
  7777	036645	003 02 0 00 030103 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7778	036646	332 00 0 00 000003 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7779	036647	004 03 0 00 030103 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7780	036650	321 04 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7781
  7782
  7783					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7784					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7785
  7786			030104		SN=SN+1
  7787			000003			AC=<AC+1>&17
  7788						SAVEAC	(1,1)^
  7789	036651	201 05 0 00 036651 		MOVEI	AC+2,.		;SAVE TEST PC
  7790	036652	202 05 0 00 030051 		MOVEM	AC+2,TESTPC
  7791	036653	201 05 0 00 000005 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7792	036654	202 05 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7793
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-2
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0204

  7794	036655	402 00 0 00 000003 		SETZM	AC		;CLEAR AC
  7795	036656	476 00 0 00 000004 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7796	036657	243 03 0 00 036661 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7797	036660	254 00 0 00 036662 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7798	036661	002 03 0 00 030104 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7799	036662	332 00 0 00 000003 		SKIPE	AC		;EXAMINE AC
  7800	036663	003 03 0 00 030104 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7801	036664	332 00 0 00 000004 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7802	036665	004 04 0 00 030104 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7803	036666	321 05 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7804
  7805
  7806					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7807					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7808
  7809			030105		SN=SN+1
  7810			000004			AC=<AC+1>&17
  7811						SAVEAC	(1,1)^
  7812	036667	201 06 0 00 036667 		MOVEI	AC+2,.		;SAVE TEST PC
  7813	036670	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  7814	036671	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7815	036672	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7816
  7817	036673	402 00 0 00 000004 		SETZM	AC		;CLEAR AC
  7818	036674	476 00 0 00 000005 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7819	036675	243 04 0 00 036677 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7820	036676	254 00 0 00 036700 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7821	036677	002 04 0 00 030105 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7822	036700	332 00 0 00 000004 		SKIPE	AC		;EXAMINE AC
  7823	036701	003 04 0 00 030105 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7824	036702	332 00 0 00 000005 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7825	036703	004 05 0 00 030105 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7826	036704	321 06 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7827
  7828
  7829					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7830					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7831
  7832			030106		SN=SN+1
  7833			000005			AC=<AC+1>&17
  7834						SAVEAC	(1,1)^
  7835	036705	201 07 0 00 036705 		MOVEI	AC+2,.		;SAVE TEST PC
  7836	036706	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  7837	036707	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7838	036710	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7839
  7840	036711	402 00 0 00 000005 		SETZM	AC		;CLEAR AC
  7841	036712	476 00 0 00 000006 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7842	036713	243 05 0 00 036715 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7843	036714	254 00 0 00 036716 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7844	036715	002 05 0 00 030106 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7845	036716	332 00 0 00 000005 		SKIPE	AC		;EXAMINE AC
  7846	036717	003 05 0 00 030106 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7847	036720	332 00 0 00 000006 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7848	036721	004 06 0 00 030106 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-3
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0205

  7849	036722	321 07 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7850
  7851
  7852					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7853					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7854
  7855			030107		SN=SN+1
  7856			000006			AC=<AC+1>&17
  7857						SAVEAC	(1,1)^
  7858	036723	201 10 0 00 036723 		MOVEI	AC+2,.		;SAVE TEST PC
  7859	036724	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  7860	036725	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7861	036726	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7862
  7863	036727	402 00 0 00 000006 		SETZM	AC		;CLEAR AC
  7864	036730	476 00 0 00 000007 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7865	036731	243 06 0 00 036733 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7866	036732	254 00 0 00 036734 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7867	036733	002 06 0 00 030107 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7868	036734	332 00 0 00 000006 		SKIPE	AC		;EXAMINE AC
  7869	036735	003 06 0 00 030107 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7870	036736	332 00 0 00 000007 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7871	036737	004 07 0 00 030107 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7872	036740	321 10 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7873
  7874
  7875					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7876					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7877
  7878			030110		SN=SN+1
  7879			000007			AC=<AC+1>&17
  7880						SAVEAC	(1,1)^
  7881	036741	201 11 0 00 036741 		MOVEI	AC+2,.		;SAVE TEST PC
  7882	036742	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  7883	036743	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7884	036744	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7885
  7886	036745	402 00 0 00 000007 		SETZM	AC		;CLEAR AC
  7887	036746	476 00 0 00 000010 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7888	036747	243 07 0 00 036751 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7889	036750	254 00 0 00 036752 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7890	036751	002 07 0 00 030110 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7891	036752	332 00 0 00 000007 		SKIPE	AC		;EXAMINE AC
  7892	036753	003 07 0 00 030110 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7893	036754	332 00 0 00 000010 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7894	036755	004 10 0 00 030110 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7895	036756	321 11 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7896
  7897
  7898					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7899					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7900
  7901			030111		SN=SN+1
  7902			000010			AC=<AC+1>&17
  7903						SAVEAC	(1,1)^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-4
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0206

  7904	036757	201 12 0 00 036757 		MOVEI	AC+2,.		;SAVE TEST PC
  7905	036760	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  7906	036761	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7907	036762	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7908
  7909	036763	402 00 0 00 000010 		SETZM	AC		;CLEAR AC
  7910	036764	476 00 0 00 000011 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7911	036765	243 10 0 00 036767 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7912	036766	254 00 0 00 036770 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7913	036767	002 10 0 00 030111 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7914	036770	332 00 0 00 000010 		SKIPE	AC		;EXAMINE AC
  7915	036771	003 10 0 00 030111 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7916	036772	332 00 0 00 000011 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7917	036773	004 11 0 00 030111 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7918	036774	321 12 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7919
  7920
  7921					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7922					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7923
  7924			030112		SN=SN+1
  7925			000011			AC=<AC+1>&17
  7926						SAVEAC	(1,1)^
  7927	036775	201 13 0 00 036775 		MOVEI	AC+2,.		;SAVE TEST PC
  7928	036776	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  7929	036777	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7930	037000	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7931
  7932	037001	402 00 0 00 000011 		SETZM	AC		;CLEAR AC
  7933	037002	476 00 0 00 000012 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7934	037003	243 11 0 00 037005 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7935	037004	254 00 0 00 037006 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7936	037005	002 11 0 00 030112 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7937	037006	332 00 0 00 000011 		SKIPE	AC		;EXAMINE AC
  7938	037007	003 11 0 00 030112 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7939	037010	332 00 0 00 000012 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7940	037011	004 12 0 00 030112 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7941	037012	321 13 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7942
  7943
  7944					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7945					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7946
  7947			030113		SN=SN+1
  7948			000012			AC=<AC+1>&17
  7949						SAVEAC	(1,1)^
  7950	037013	201 14 0 00 037013 		MOVEI	AC+2,.		;SAVE TEST PC
  7951	037014	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  7952	037015	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7953	037016	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7954
  7955	037017	402 00 0 00 000012 		SETZM	AC		;CLEAR AC
  7956	037020	476 00 0 00 000013 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7957	037021	243 12 0 00 037023 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7958	037022	254 00 0 00 037024 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-5
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0207

  7959	037023	002 12 0 00 030113 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7960	037024	332 00 0 00 000012 		SKIPE	AC		;EXAMINE AC
  7961	037025	003 12 0 00 030113 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7962	037026	332 00 0 00 000013 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7963	037027	004 13 0 00 030113 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7964	037030	321 14 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7965
  7966
  7967					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7968					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7969
  7970			030114		SN=SN+1
  7971			000013			AC=<AC+1>&17
  7972						SAVEAC	(1,1)^
  7973	037031	201 15 0 00 037031 		MOVEI	AC+2,.		;SAVE TEST PC
  7974	037032	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  7975	037033	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7976	037034	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7977
  7978	037035	402 00 0 00 000013 		SETZM	AC		;CLEAR AC
  7979	037036	476 00 0 00 000014 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  7980	037037	243 13 0 00 037041 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  7981	037040	254 00 0 00 037042 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  7982	037041	002 13 0 00 030114 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  7983	037042	332 00 0 00 000013 		SKIPE	AC		;EXAMINE AC
  7984	037043	003 13 0 00 030114 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  7985	037044	332 00 0 00 000014 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  7986	037045	004 14 0 00 030114 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  7987	037046	321 15 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  7988
  7989
  7990					;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
  7991					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  7992
  7993			030115		SN=SN+1
  7994			000014			AC=<AC+1>&17
  7995						SAVEAC	(1,1)^
  7996	037047	201 16 0 00 037047 		MOVEI	AC+2,.		;SAVE TEST PC
  7997	037050	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  7998	037051	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7999	037052	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8000
  8001	037053	402 00 0 00 000014 		SETZM	AC		;CLEAR AC
  8002	037054	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8003	037055	243 14 0 00 037057 		JFFO	AC,.+2		;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
  8004	037056	254 00 0 00 037060 		JRST	.+2		;PASS IF JFFO DOES NOT JUMP
  8005	037057	002 14 0 00 030115 		ER2	AC,SN		;ERROR IF JFFO JUMPED
  8006	037060	332 00 0 00 000014 		SKIPE	AC		;EXAMINE AC
  8007	037061	003 14 0 00 030115 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8008	037062	332 00 0 00 000015 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8009	037063	004 15 0 00 030115 		ER4	AC+1,SN		;AC+1 WAS NOT CLEARED
  8010	037064	321 16 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8011
  8012					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 88-6
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0208

  8013					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8014					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8015
  8016	037065	201 00 0 00 041105 		MOVEI	[ASCIZ/JFFO JUMP FAILED/]
  8017	037066	202 00 0 00 040654 		MOVEM	SPDES		;INITIALIZE SPECIAL FAILURE DESCRIPTER
  8018
  8019	037067	477 14 0 00 000015 	G30200:	SETOB	AC,<AC+1>&17	;INITIALIZE AC AND AC+1
  8020	037070	243 14 0 00 037072 		JFFO	AC,.+2
  8021	037071	002 14 0 00 030201 		ER2	AC,30201	;ERROR IF JFFO DID NOT JUMP
  8022	037072	312 14 0 00 040750 		CAME	AC,[-1,,-1]	;EXAMINE AC
  8023	037073	003 14 0 00 030201 		ER3	AC,30201	;C(AC) WAS CLOBBERED
  8024	037074	332 00 0 00 000015 		SKIPE	<AC+1>&17	;EXAMINE AC+1
  8025	037075	004 15 0 00 030201 		ER4	AC+1,30201	;C(AC+1) NOT = TO NO OF LEADING ZEROS IN AC
  8026	037076	321 16 0 00 037067 		JUMPL	AC+2,G30200	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0209

  8027					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8028					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8029					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8030
  8031			030300		SN=30300
  8032		000001	000000			XX=1000000
  8033		777777	777777			ZZ=-1
  8034
  8035					G30300:	REPEAT	^D18,<
  8036					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8037					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8038					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8039					
  8040					SN=SN+1
  8041						XX=XX/2
  8042						ZZ=ZZ+1
  8043						MOVSI	AC,XX		;INITIALIZE AC
  8044						MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8045						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8046						JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8047						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8048						CAME	AC,<AC-2>&17	;EXAMINE AC
  8049						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8050						CAIE	AC+1,ZZ		;EXAMINE AC+1
  8051						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8052						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8053					>
  8054
  8055					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8056					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8057					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8058
  8059			030301		SN=SN+1
  8060			400000			XX=XX/2
  8061			000000			ZZ=ZZ+1
  8062	037077	205 14 0 00 400000 		MOVSI	AC,XX		;INITIALIZE AC
  8063	037100	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8064	037101	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8065	037102	243 14 0 00 037104 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8066	037103	002 14 0 00 030301 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8067	037104	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8068	037105	003 14 0 00 030301 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8069	037106	302 15 0 00 000000 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8070	037107	004 15 0 00 030301 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8071	037110	321 16 0 00 037077 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8072
  8073
  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			030302		SN=SN+1
  8079			200000			XX=XX/2
  8080			000001			ZZ=ZZ+1
  8081	037111	205 14 0 00 200000 		MOVSI	AC,XX		;INITIALIZE AC
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-1
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0210

  8082	037112	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8083	037113	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8084	037114	243 14 0 00 037116 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8085	037115	002 14 0 00 030302 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8086	037116	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8087	037117	003 14 0 00 030302 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8088	037120	302 15 0 00 000001 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8089	037121	004 15 0 00 030302 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8090	037122	321 16 0 00 037111 		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			030303		SN=SN+1
  8098			100000			XX=XX/2
  8099			000002			ZZ=ZZ+1
  8100	037123	205 14 0 00 100000 		MOVSI	AC,XX		;INITIALIZE AC
  8101	037124	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8102	037125	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8103	037126	243 14 0 00 037130 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8104	037127	002 14 0 00 030303 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8105	037130	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8106	037131	003 14 0 00 030303 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8107	037132	302 15 0 00 000002 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8108	037133	004 15 0 00 030303 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8109	037134	321 16 0 00 037123 		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			030304		SN=SN+1
  8117			040000			XX=XX/2
  8118			000003			ZZ=ZZ+1
  8119	037135	205 14 0 00 040000 		MOVSI	AC,XX		;INITIALIZE AC
  8120	037136	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8121	037137	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8122	037140	243 14 0 00 037142 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8123	037141	002 14 0 00 030304 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8124	037142	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8125	037143	003 14 0 00 030304 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8126	037144	302 15 0 00 000003 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8127	037145	004 15 0 00 030304 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8128	037146	321 16 0 00 037135 		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			030305		SN=SN+1
  8136			020000			XX=XX/2
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-2
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0211

  8137			000004			ZZ=ZZ+1
  8138	037147	205 14 0 00 020000 		MOVSI	AC,XX		;INITIALIZE AC
  8139	037150	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8140	037151	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8141	037152	243 14 0 00 037154 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8142	037153	002 14 0 00 030305 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8143	037154	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8144	037155	003 14 0 00 030305 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8145	037156	302 15 0 00 000004 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8146	037157	004 15 0 00 030305 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8147	037160	321 16 0 00 037147 		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			030306		SN=SN+1
  8155			010000			XX=XX/2
  8156			000005			ZZ=ZZ+1
  8157	037161	205 14 0 00 010000 		MOVSI	AC,XX		;INITIALIZE AC
  8158	037162	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8159	037163	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8160	037164	243 14 0 00 037166 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8161	037165	002 14 0 00 030306 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8162	037166	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8163	037167	003 14 0 00 030306 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8164	037170	302 15 0 00 000005 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8165	037171	004 15 0 00 030306 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8166	037172	321 16 0 00 037161 		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			030307		SN=SN+1
  8174			004000			XX=XX/2
  8175			000006			ZZ=ZZ+1
  8176	037173	205 14 0 00 004000 		MOVSI	AC,XX		;INITIALIZE AC
  8177	037174	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8178	037175	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8179	037176	243 14 0 00 037200 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8180	037177	002 14 0 00 030307 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8181	037200	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8182	037201	003 14 0 00 030307 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8183	037202	302 15 0 00 000006 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8184	037203	004 15 0 00 030307 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8185	037204	321 16 0 00 037173 		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
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-3
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0212

  8192			030310		SN=SN+1
  8193			002000			XX=XX/2
  8194			000007			ZZ=ZZ+1
  8195	037205	205 14 0 00 002000 		MOVSI	AC,XX		;INITIALIZE AC
  8196	037206	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8197	037207	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8198	037210	243 14 0 00 037212 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8199	037211	002 14 0 00 030310 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8200	037212	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8201	037213	003 14 0 00 030310 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8202	037214	302 15 0 00 000007 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8203	037215	004 15 0 00 030310 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8204	037216	321 16 0 00 037205 		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			030311		SN=SN+1
  8212			001000			XX=XX/2
  8213			000010			ZZ=ZZ+1
  8214	037217	205 14 0 00 001000 		MOVSI	AC,XX		;INITIALIZE AC
  8215	037220	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8216	037221	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8217	037222	243 14 0 00 037224 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8218	037223	002 14 0 00 030311 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8219	037224	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8220	037225	003 14 0 00 030311 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8221	037226	302 15 0 00 000010 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8222	037227	004 15 0 00 030311 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8223	037230	321 16 0 00 037217 		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
  8230			030312		SN=SN+1
  8231			000400			XX=XX/2
  8232			000011			ZZ=ZZ+1
  8233	037231	205 14 0 00 000400 		MOVSI	AC,XX		;INITIALIZE AC
  8234	037232	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8235	037233	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8236	037234	243 14 0 00 037236 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8237	037235	002 14 0 00 030312 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8238	037236	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8239	037237	003 14 0 00 030312 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8240	037240	302 15 0 00 000011 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8241	037241	004 15 0 00 030312 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8242	037242	321 16 0 00 037231 		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
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-4
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0213

  8247					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8248
  8249			030313		SN=SN+1
  8250			000200			XX=XX/2
  8251			000012			ZZ=ZZ+1
  8252	037243	205 14 0 00 000200 		MOVSI	AC,XX		;INITIALIZE AC
  8253	037244	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8254	037245	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8255	037246	243 14 0 00 037250 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8256	037247	002 14 0 00 030313 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8257	037250	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8258	037251	003 14 0 00 030313 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8259	037252	302 15 0 00 000012 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8260	037253	004 15 0 00 030313 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8261	037254	321 16 0 00 037243 		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			030314		SN=SN+1
  8269			000100			XX=XX/2
  8270			000013			ZZ=ZZ+1
  8271	037255	205 14 0 00 000100 		MOVSI	AC,XX		;INITIALIZE AC
  8272	037256	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8273	037257	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8274	037260	243 14 0 00 037262 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8275	037261	002 14 0 00 030314 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8276	037262	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8277	037263	003 14 0 00 030314 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8278	037264	302 15 0 00 000013 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8279	037265	004 15 0 00 030314 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8280	037266	321 16 0 00 037255 		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
  8285					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8286
  8287			030315		SN=SN+1
  8288			000040			XX=XX/2
  8289			000014			ZZ=ZZ+1
  8290	037267	205 14 0 00 000040 		MOVSI	AC,XX		;INITIALIZE AC
  8291	037270	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8292	037271	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8293	037272	243 14 0 00 037274 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8294	037273	002 14 0 00 030315 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8295	037274	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8296	037275	003 14 0 00 030315 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8297	037276	302 15 0 00 000014 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8298	037277	004 15 0 00 030315 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8299	037300	321 16 0 00 037267 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8300
  8301
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-5
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0214

  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			030316		SN=SN+1
  8307			000020			XX=XX/2
  8308			000015			ZZ=ZZ+1
  8309	037301	205 14 0 00 000020 		MOVSI	AC,XX		;INITIALIZE AC
  8310	037302	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8311	037303	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8312	037304	243 14 0 00 037306 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8313	037305	002 14 0 00 030316 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8314	037306	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8315	037307	003 14 0 00 030316 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8316	037310	302 15 0 00 000015 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8317	037311	004 15 0 00 030316 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8318	037312	321 16 0 00 037301 		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			030317		SN=SN+1
  8326			000010			XX=XX/2
  8327			000016			ZZ=ZZ+1
  8328	037313	205 14 0 00 000010 		MOVSI	AC,XX		;INITIALIZE AC
  8329	037314	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8330	037315	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8331	037316	243 14 0 00 037320 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8332	037317	002 14 0 00 030317 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8333	037320	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8334	037321	003 14 0 00 030317 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8335	037322	302 15 0 00 000016 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8336	037323	004 15 0 00 030317 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8337	037324	321 16 0 00 037313 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8338
  8339
  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			030320		SN=SN+1
  8345			000004			XX=XX/2
  8346			000017			ZZ=ZZ+1
  8347	037325	205 14 0 00 000004 		MOVSI	AC,XX		;INITIALIZE AC
  8348	037326	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8349	037327	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8350	037330	243 14 0 00 037332 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8351	037331	002 14 0 00 030320 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8352	037332	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8353	037333	003 14 0 00 030320 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8354	037334	302 15 0 00 000017 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8355	037335	004 15 0 00 030320 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8356	037336	321 16 0 00 037325 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-6
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0215

  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			030321		SN=SN+1
  8364			000002			XX=XX/2
  8365			000020			ZZ=ZZ+1
  8366	037337	205 14 0 00 000002 		MOVSI	AC,XX		;INITIALIZE AC
  8367	037340	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8368	037341	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8369	037342	243 14 0 00 037344 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8370	037343	002 14 0 00 030321 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8371	037344	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8372	037345	003 14 0 00 030321 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8373	037346	302 15 0 00 000020 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8374	037347	004 15 0 00 030321 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8375	037350	321 16 0 00 037337 		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			030322		SN=SN+1
  8383			000001			XX=XX/2
  8384			000021			ZZ=ZZ+1
  8385	037351	205 14 0 00 000001 		MOVSI	AC,XX		;INITIALIZE AC
  8386	037352	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR COMPARISON
  8387	037353	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8388	037354	243 14 0 00 037356 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8389	037355	002 14 0 00 030322 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8390	037356	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8391	037357	003 14 0 00 030322 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8392	037360	302 15 0 00 000021 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8393	037361	004 15 0 00 030322 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8394	037362	321 16 0 00 037351 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8395
  8396					PAGE
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-7
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0216

  8397			030400		SN=30400
  8398		000001	000000			XX=1000000
  8399
  8400					G30400:	REPEAT	^D18,<
  8401					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8402					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8403					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8404					
  8405					SN=SN+1
  8406						XX=XX/2
  8407						ZZ=ZZ+1
  8408						MOVEI	AC,XX		;INITIALIZE AC
  8409						MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8410						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8411						JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8412						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8413						CAME	AC,<AC-2>&17	;EXAMINE AC
  8414						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8415						CAIE	AC+1,ZZ		;EXAMINE AC+1
  8416						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8417						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8418					>
  8419
  8420					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8421					;ZEROS IN AC WHEN C(AC) IS NON-ZERO
  8422					;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
  8423
  8424			030401		SN=SN+1
  8425			400000			XX=XX/2
  8426			000022			ZZ=ZZ+1
  8427	037363	201 14 0 00 400000 		MOVEI	AC,XX		;INITIALIZE AC
  8428	037364	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8429	037365	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8430	037366	243 14 0 00 037370 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8431	037367	002 14 0 00 030401 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8432	037370	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8433	037371	003 14 0 00 030401 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8434	037372	302 15 0 00 000022 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8435	037373	004 15 0 00 030401 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8436	037374	321 16 0 00 037363 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8437
  8438
  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			030402		SN=SN+1
  8444			200000			XX=XX/2
  8445			000023			ZZ=ZZ+1
  8446	037375	201 14 0 00 200000 		MOVEI	AC,XX		;INITIALIZE AC
  8447	037376	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8448	037377	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8449	037400	243 14 0 00 037402 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8450	037401	002 14 0 00 030402 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8451	037402	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-8
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0217

  8452	037403	003 14 0 00 030402 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8453	037404	302 15 0 00 000023 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8454	037405	004 15 0 00 030402 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8455	037406	321 16 0 00 037375 		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			030403		SN=SN+1
  8463			100000			XX=XX/2
  8464			000024			ZZ=ZZ+1
  8465	037407	201 14 0 00 100000 		MOVEI	AC,XX		;INITIALIZE AC
  8466	037410	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8467	037411	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8468	037412	243 14 0 00 037414 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8469	037413	002 14 0 00 030403 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8470	037414	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8471	037415	003 14 0 00 030403 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8472	037416	302 15 0 00 000024 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8473	037417	004 15 0 00 030403 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8474	037420	321 16 0 00 037407 		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			030404		SN=SN+1
  8482			040000			XX=XX/2
  8483			000025			ZZ=ZZ+1
  8484	037421	201 14 0 00 040000 		MOVEI	AC,XX		;INITIALIZE AC
  8485	037422	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8486	037423	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8487	037424	243 14 0 00 037426 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8488	037425	002 14 0 00 030404 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8489	037426	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8490	037427	003 14 0 00 030404 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8491	037430	302 15 0 00 000025 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8492	037431	004 15 0 00 030404 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8493	037432	321 16 0 00 037421 		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			030405		SN=SN+1
  8501			020000			XX=XX/2
  8502			000026			ZZ=ZZ+1
  8503	037433	201 14 0 00 020000 		MOVEI	AC,XX		;INITIALIZE AC
  8504	037434	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8505	037435	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8506	037436	243 14 0 00 037440 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-9
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0218

  8507	037437	002 14 0 00 030405 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8508	037440	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8509	037441	003 14 0 00 030405 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8510	037442	302 15 0 00 000026 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8511	037443	004 15 0 00 030405 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8512	037444	321 16 0 00 037433 		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			030406		SN=SN+1
  8520			010000			XX=XX/2
  8521			000027			ZZ=ZZ+1
  8522	037445	201 14 0 00 010000 		MOVEI	AC,XX		;INITIALIZE AC
  8523	037446	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8524	037447	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8525	037450	243 14 0 00 037452 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8526	037451	002 14 0 00 030406 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8527	037452	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8528	037453	003 14 0 00 030406 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8529	037454	302 15 0 00 000027 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8530	037455	004 15 0 00 030406 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8531	037456	321 16 0 00 037445 		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			030407		SN=SN+1
  8539			004000			XX=XX/2
  8540			000030			ZZ=ZZ+1
  8541	037457	201 14 0 00 004000 		MOVEI	AC,XX		;INITIALIZE AC
  8542	037460	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8543	037461	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8544	037462	243 14 0 00 037464 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8545	037463	002 14 0 00 030407 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8546	037464	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8547	037465	003 14 0 00 030407 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8548	037466	302 15 0 00 000030 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8549	037467	004 15 0 00 030407 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8550	037470	321 16 0 00 037457 		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			030410		SN=SN+1
  8558			002000			XX=XX/2
  8559			000031			ZZ=ZZ+1
  8560	037471	201 14 0 00 002000 		MOVEI	AC,XX		;INITIALIZE AC
  8561	037472	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-10
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0219

  8562	037473	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8563	037474	243 14 0 00 037476 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8564	037475	002 14 0 00 030410 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8565	037476	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8566	037477	003 14 0 00 030410 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8567	037500	302 15 0 00 000031 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8568	037501	004 15 0 00 030410 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8569	037502	321 16 0 00 037471 		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			030411		SN=SN+1
  8577			001000			XX=XX/2
  8578			000032			ZZ=ZZ+1
  8579	037503	201 14 0 00 001000 		MOVEI	AC,XX		;INITIALIZE AC
  8580	037504	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8581	037505	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8582	037506	243 14 0 00 037510 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8583	037507	002 14 0 00 030411 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8584	037510	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8585	037511	003 14 0 00 030411 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8586	037512	302 15 0 00 000032 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8587	037513	004 15 0 00 030411 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8588	037514	321 16 0 00 037503 		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			030412		SN=SN+1
  8596			000400			XX=XX/2
  8597			000033			ZZ=ZZ+1
  8598	037515	201 14 0 00 000400 		MOVEI	AC,XX		;INITIALIZE AC
  8599	037516	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8600	037517	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8601	037520	243 14 0 00 037522 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8602	037521	002 14 0 00 030412 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8603	037522	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8604	037523	003 14 0 00 030412 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8605	037524	302 15 0 00 000033 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8606	037525	004 15 0 00 030412 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8607	037526	321 16 0 00 037515 		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			030413		SN=SN+1
  8615			000200			XX=XX/2
  8616			000034			ZZ=ZZ+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-11
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0220

  8617	037527	201 14 0 00 000200 		MOVEI	AC,XX		;INITIALIZE AC
  8618	037530	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8619	037531	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8620	037532	243 14 0 00 037534 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8621	037533	002 14 0 00 030413 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8622	037534	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8623	037535	003 14 0 00 030413 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8624	037536	302 15 0 00 000034 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8625	037537	004 15 0 00 030413 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8626	037540	321 16 0 00 037527 		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			030414		SN=SN+1
  8634			000100			XX=XX/2
  8635			000035			ZZ=ZZ+1
  8636	037541	201 14 0 00 000100 		MOVEI	AC,XX		;INITIALIZE AC
  8637	037542	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8638	037543	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8639	037544	243 14 0 00 037546 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8640	037545	002 14 0 00 030414 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8641	037546	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8642	037547	003 14 0 00 030414 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8643	037550	302 15 0 00 000035 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8644	037551	004 15 0 00 030414 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8645	037552	321 16 0 00 037541 		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			030415		SN=SN+1
  8653			000040			XX=XX/2
  8654			000036			ZZ=ZZ+1
  8655	037553	201 14 0 00 000040 		MOVEI	AC,XX		;INITIALIZE AC
  8656	037554	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8657	037555	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8658	037556	243 14 0 00 037560 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8659	037557	002 14 0 00 030415 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8660	037560	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8661	037561	003 14 0 00 030415 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8662	037562	302 15 0 00 000036 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8663	037563	004 15 0 00 030415 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8664	037564	321 16 0 00 037553 		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			030416		SN=SN+1
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-12
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0221

  8672			000020			XX=XX/2
  8673			000037			ZZ=ZZ+1
  8674	037565	201 14 0 00 000020 		MOVEI	AC,XX		;INITIALIZE AC
  8675	037566	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8676	037567	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8677	037570	243 14 0 00 037572 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8678	037571	002 14 0 00 030416 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8679	037572	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8680	037573	003 14 0 00 030416 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8681	037574	302 15 0 00 000037 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8682	037575	004 15 0 00 030416 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8683	037576	321 16 0 00 037565 		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			030417		SN=SN+1
  8691			000010			XX=XX/2
  8692			000040			ZZ=ZZ+1
  8693	037577	201 14 0 00 000010 		MOVEI	AC,XX		;INITIALIZE AC
  8694	037600	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8695	037601	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8696	037602	243 14 0 00 037604 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8697	037603	002 14 0 00 030417 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8698	037604	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8699	037605	003 14 0 00 030417 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8700	037606	302 15 0 00 000040 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8701	037607	004 15 0 00 030417 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8702	037610	321 16 0 00 037577 		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			030420		SN=SN+1
  8710			000004			XX=XX/2
  8711			000041			ZZ=ZZ+1
  8712	037611	201 14 0 00 000004 		MOVEI	AC,XX		;INITIALIZE AC
  8713	037612	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8714	037613	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8715	037614	243 14 0 00 037616 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8716	037615	002 14 0 00 030420 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8717	037616	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8718	037617	003 14 0 00 030420 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8719	037620	302 15 0 00 000041 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8720	037621	004 15 0 00 030420 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8721	037622	321 16 0 00 037611 		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
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 89-13
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0222

  8727
  8728			030421		SN=SN+1
  8729			000002			XX=XX/2
  8730			000042			ZZ=ZZ+1
  8731	037623	201 14 0 00 000002 		MOVEI	AC,XX		;INITIALIZE AC
  8732	037624	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8733	037625	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8734	037626	243 14 0 00 037630 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8735	037627	002 14 0 00 030421 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8736	037630	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8737	037631	003 14 0 00 030421 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8738	037632	302 15 0 00 000042 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8739	037633	004 15 0 00 030421 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8740	037634	321 16 0 00 037623 		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			030422		SN=SN+1
  8748			000001			XX=XX/2
  8749			000043			ZZ=ZZ+1
  8750	037635	201 14 0 00 000001 		MOVEI	AC,XX		;INITIALIZE AC
  8751	037636	200 12 0 00 000014 		MOVE	AC-2,AC		;INITIALIZE AC-2 FOR LATER COMPARISON
  8752	037637	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8753	037640	243 14 0 00 037642 		JFFO	AC,.+2		;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
  8754	037641	002 14 0 00 030422 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8755	037642	312 14 0 00 000012 		CAME	AC,<AC-2>&17	;EXAMINE AC
  8756	037643	003 14 0 00 030422 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8757	037644	302 15 0 00 000043 		CAIE	AC+1,ZZ		;EXAMINE AC+1
  8758	037645	004 15 0 00 030422 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
  8759	037646	321 16 0 00 037635 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  8760
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0223

  8761					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8762					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8763					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8764
  8765			030500		SN=30500
  8766		777777	777777			AC=-1
  8767
  8768					G30500:	REPEAT	^D13,<
  8769					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8770					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8771					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8772					
  8773					SN=SN+1
  8774						AC=<AC+1>&17
  8775						SAVEAC	(1,1)
  8776					
  8777						MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8778						MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8779						SETOM	<AC+1>&17	;INITIALIZE AC+1
  8780						JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8781						ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8782						CAME	AC,GSVAC	;EXAMINE AC
  8783						ER3	AC,SN		;C(AC) WAS CLOBBERED
  8784						CAIE	AC+1,AC		;EXAMINE AC+1
  8785						ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8786						JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8787					>
  8788
  8789					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8790					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8791					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8792
  8793			030501		SN=SN+1
  8794			000000			AC=<AC+1>&17
  8795						SAVEAC	(1,1)^
  8796	037647	201 02 0 00 037647 		MOVEI	AC+2,.		;SAVE TEST PC
  8797	037650	202 02 0 00 030051 		MOVEM	AC+2,TESTPC
  8798	037651	201 02 0 00 000002 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8799	037652	202 02 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8800
  8801	037653	205 00 0 00 400000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8802	037654	202 00 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8803	037655	476 00 0 00 000001 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8804	037656	243 00 0 00 037660 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8805	037657	002 00 0 00 030501 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8806	037660	312 00 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8807	037661	003 00 0 00 030501 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8808	037662	302 01 0 00 000000 		CAIE	AC+1,AC		;EXAMINE AC+1
  8809	037663	004 01 0 00 030501 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8810	037664	321 02 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8811
  8812
  8813					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8814					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8815					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-1
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0224

  8816
  8817			030502		SN=SN+1
  8818			000001			AC=<AC+1>&17
  8819						SAVEAC	(1,1)^
  8820	037665	201 03 0 00 037665 		MOVEI	AC+2,.		;SAVE TEST PC
  8821	037666	202 03 0 00 030051 		MOVEM	AC+2,TESTPC
  8822	037667	201 03 0 00 000003 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8823	037670	202 03 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8824
  8825	037671	205 01 0 00 200000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8826	037672	202 01 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8827	037673	476 00 0 00 000002 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8828	037674	243 01 0 00 037676 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8829	037675	002 01 0 00 030502 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8830	037676	312 01 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8831	037677	003 01 0 00 030502 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8832	037700	302 02 0 00 000001 		CAIE	AC+1,AC		;EXAMINE AC+1
  8833	037701	004 02 0 00 030502 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8834	037702	321 03 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8835
  8836
  8837					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8838					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8839					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8840
  8841			030503		SN=SN+1
  8842			000002			AC=<AC+1>&17
  8843						SAVEAC	(1,1)^
  8844	037703	201 04 0 00 037703 		MOVEI	AC+2,.		;SAVE TEST PC
  8845	037704	202 04 0 00 030051 		MOVEM	AC+2,TESTPC
  8846	037705	201 04 0 00 000004 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8847	037706	202 04 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8848
  8849	037707	205 02 0 00 100000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8850	037710	202 02 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8851	037711	476 00 0 00 000003 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8852	037712	243 02 0 00 037714 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8853	037713	002 02 0 00 030503 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8854	037714	312 02 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8855	037715	003 02 0 00 030503 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8856	037716	302 03 0 00 000002 		CAIE	AC+1,AC		;EXAMINE AC+1
  8857	037717	004 03 0 00 030503 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8858	037720	321 04 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8859
  8860
  8861					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8862					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8863					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8864
  8865			030504		SN=SN+1
  8866			000003			AC=<AC+1>&17
  8867						SAVEAC	(1,1)^
  8868	037721	201 05 0 00 037721 		MOVEI	AC+2,.		;SAVE TEST PC
  8869	037722	202 05 0 00 030051 		MOVEM	AC+2,TESTPC
  8870	037723	201 05 0 00 000005 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-2
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0225

  8871	037724	202 05 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8872
  8873	037725	205 03 0 00 040000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8874	037726	202 03 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8875	037727	476 00 0 00 000004 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8876	037730	243 03 0 00 037732 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8877	037731	002 03 0 00 030504 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8878	037732	312 03 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8879	037733	003 03 0 00 030504 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8880	037734	302 04 0 00 000003 		CAIE	AC+1,AC		;EXAMINE AC+1
  8881	037735	004 04 0 00 030504 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8882	037736	321 05 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8883
  8884
  8885					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8886					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8887					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8888
  8889			030505		SN=SN+1
  8890			000004			AC=<AC+1>&17
  8891						SAVEAC	(1,1)^
  8892	037737	201 06 0 00 037737 		MOVEI	AC+2,.		;SAVE TEST PC
  8893	037740	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  8894	037741	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8895	037742	202 06 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8896
  8897	037743	205 04 0 00 020000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8898	037744	202 04 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8899	037745	476 00 0 00 000005 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8900	037746	243 04 0 00 037750 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8901	037747	002 04 0 00 030505 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8902	037750	312 04 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8903	037751	003 04 0 00 030505 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8904	037752	302 05 0 00 000004 		CAIE	AC+1,AC		;EXAMINE AC+1
  8905	037753	004 05 0 00 030505 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8906	037754	321 06 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8907
  8908
  8909					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8910					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8911					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8912
  8913			030506		SN=SN+1
  8914			000005			AC=<AC+1>&17
  8915						SAVEAC	(1,1)^
  8916	037755	201 07 0 00 037755 		MOVEI	AC+2,.		;SAVE TEST PC
  8917	037756	202 07 0 00 030051 		MOVEM	AC+2,TESTPC
  8918	037757	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8919	037760	202 07 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8920
  8921	037761	205 05 0 00 010000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8922	037762	202 05 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8923	037763	476 00 0 00 000006 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8924	037764	243 05 0 00 037766 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8925	037765	002 05 0 00 030506 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-3
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0226

  8926	037766	312 05 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8927	037767	003 05 0 00 030506 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8928	037770	302 06 0 00 000005 		CAIE	AC+1,AC		;EXAMINE AC+1
  8929	037771	004 06 0 00 030506 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8930	037772	321 07 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8931
  8932
  8933					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8934					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8935					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8936
  8937			030507		SN=SN+1
  8938			000006			AC=<AC+1>&17
  8939						SAVEAC	(1,1)^
  8940	037773	201 10 0 00 037773 		MOVEI	AC+2,.		;SAVE TEST PC
  8941	037774	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
  8942	037775	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8943	037776	202 10 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8944
  8945	037777	205 06 0 00 004000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8946	040000	202 06 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8947	040001	476 00 0 00 000007 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8948	040002	243 06 0 00 040004 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8949	040003	002 06 0 00 030507 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8950	040004	312 06 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8951	040005	003 06 0 00 030507 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8952	040006	302 07 0 00 000006 		CAIE	AC+1,AC		;EXAMINE AC+1
  8953	040007	004 07 0 00 030507 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8954	040010	321 10 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8955
  8956
  8957					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8958					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8959					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8960
  8961			030510		SN=SN+1
  8962			000007			AC=<AC+1>&17
  8963						SAVEAC	(1,1)^
  8964	040011	201 11 0 00 040011 		MOVEI	AC+2,.		;SAVE TEST PC
  8965	040012	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  8966	040013	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8967	040014	202 11 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8968
  8969	040015	205 07 0 00 002000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8970	040016	202 07 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8971	040017	476 00 0 00 000010 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8972	040020	243 07 0 00 040022 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8973	040021	002 07 0 00 030510 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8974	040022	312 07 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8975	040023	003 07 0 00 030510 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  8976	040024	302 10 0 00 000007 		CAIE	AC+1,AC		;EXAMINE AC+1
  8977	040025	004 10 0 00 030510 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  8978	040026	321 11 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  8979
  8980
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-4
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0227

  8981					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  8982					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  8983					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  8984
  8985			030511		SN=SN+1
  8986			000010			AC=<AC+1>&17
  8987						SAVEAC	(1,1)^
  8988	040027	201 12 0 00 040027 		MOVEI	AC+2,.		;SAVE TEST PC
  8989	040030	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  8990	040031	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  8991	040032	202 12 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  8992
  8993	040033	205 10 0 00 001000 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  8994	040034	202 10 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  8995	040035	476 00 0 00 000011 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  8996	040036	243 10 0 00 040040 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  8997	040037	002 10 0 00 030511 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  8998	040040	312 10 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  8999	040041	003 10 0 00 030511 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9000	040042	302 11 0 00 000010 		CAIE	AC+1,AC		;EXAMINE AC+1
  9001	040043	004 11 0 00 030511 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9002	040044	321 12 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9003
  9004
  9005					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9006					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9007					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9008
  9009			030512		SN=SN+1
  9010			000011			AC=<AC+1>&17
  9011						SAVEAC	(1,1)^
  9012	040045	201 13 0 00 040045 		MOVEI	AC+2,.		;SAVE TEST PC
  9013	040046	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  9014	040047	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9015	040050	202 13 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9016
  9017	040051	205 11 0 00 000400 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9018	040052	202 11 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9019	040053	476 00 0 00 000012 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9020	040054	243 11 0 00 040056 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9021	040055	002 11 0 00 030512 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9022	040056	312 11 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  9023	040057	003 11 0 00 030512 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9024	040060	302 12 0 00 000011 		CAIE	AC+1,AC		;EXAMINE AC+1
  9025	040061	004 12 0 00 030512 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9026	040062	321 13 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9027
  9028
  9029					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9030					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9031					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9032
  9033			030513		SN=SN+1
  9034			000012			AC=<AC+1>&17
  9035						SAVEAC	(1,1)^
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-5
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0228

  9036	040063	201 14 0 00 040063 		MOVEI	AC+2,.		;SAVE TEST PC
  9037	040064	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
  9038	040065	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9039	040066	202 14 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9040
  9041	040067	205 12 0 00 000200 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9042	040070	202 12 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9043	040071	476 00 0 00 000013 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9044	040072	243 12 0 00 040074 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9045	040073	002 12 0 00 030513 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9046	040074	312 12 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  9047	040075	003 12 0 00 030513 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9048	040076	302 13 0 00 000012 		CAIE	AC+1,AC		;EXAMINE AC+1
  9049	040077	004 13 0 00 030513 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9050	040100	321 14 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9051
  9052
  9053					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9054					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9055					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9056
  9057			030514		SN=SN+1
  9058			000013			AC=<AC+1>&17
  9059						SAVEAC	(1,1)^
  9060	040101	201 15 0 00 040101 		MOVEI	AC+2,.		;SAVE TEST PC
  9061	040102	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
  9062	040103	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9063	040104	202 15 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9064
  9065	040105	205 13 0 00 000100 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9066	040106	202 13 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
  9067	040107	476 00 0 00 000014 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9068	040110	243 13 0 00 040112 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9069	040111	002 13 0 00 030514 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9070	040112	312 13 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  9071	040113	003 13 0 00 030514 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9072	040114	302 14 0 00 000013 		CAIE	AC+1,AC		;EXAMINE AC+1
  9073	040115	004 14 0 00 030514 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9074	040116	321 15 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9075
  9076
  9077					;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
  9078					;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
  9079					;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
  9080
  9081			030515		SN=SN+1
  9082			000014			AC=<AC+1>&17
  9083						SAVEAC	(1,1)^
  9084	040117	201 16 0 00 040117 		MOVEI	AC+2,.		;SAVE TEST PC
  9085	040120	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
  9086	040121	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9087	040122	202 16 0 00 041225 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9088
  9089	040123	205 14 0 00 000040 		MOVSI	AC,(1B<^O<AC>>)	;INITIALIZE AC
  9090	040124	202 14 0 00 041226 		MOVEM	AC,GSVAC#	;INITIALIZE FOR LATER COMPARISON
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 90-6
DBKAMM	MAC	16-JUN-76 14:38		PART III - GENERAL JFFO TEST                                                       SEQ 0229

  9091	040125	476 00 0 00 000015 		SETOM	<AC+1>&17	;INITIALIZE AC+1
  9092	040126	243 14 0 00 040130 		JFFO	AC,.+2		;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
  9093	040127	002 14 0 00 030515 		ER2	AC,SN		;ERROR IF JFFO DID NOT JUMP
  9094	040130	312 14 0 00 041226 		CAME	AC,GSVAC	;EXAMINE AC
  9095	040131	003 14 0 00 030515 		ER3	AC,SN		;C(AC) WAS CLOBBERED
  9096	040132	302 15 0 00 000014 		CAIE	AC+1,AC		;EXAMINE AC+1
  9097	040133	004 15 0 00 030515 		ER4	AC+1,SN		;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
  9098	040134	321 16 0 00 777767 		JUMPL	AC+2,-^D9	;LOOP ON ERROR SWITCH
  9099
  9100
  9101	040135	254 00 0 00 030057 	LAST1:	JRST	BEGEND		;REPEAT DIAGNOSTIC
  9102
  9103						IF1,<PURGE BYTBLK>
  9104	040136				BYTBLK:	BLOCK	^D50
  9105
  9106						IF1,<PURGE BLTBLK>
  9107	040220				BLTBLK:	BLOCK	^D200
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1
UUOERR	KLM	22-APR-75		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0230

  9108					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
  9109
  9110					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  9111
  9112	040530	202 00 0 00 041233 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  9113						IFDEF	EXCASB,<IFDEF	KI10,<
  9114	040531	336 00 0 00 030040 		SKIPN	KAIFLG
  9115	040532	254 00 0 00 040537 		JRST	.+5
  9116	040533	332 00 0 00 030037 		SKIPE	USER		;USER MODE ?
  9117	040534	254 00 0 00 040537 		JRST	.+3
  9118	040535	332 00 0 00 030055 		SKIPE	MARGIN
  9119	040536	7 000 14 0 00 041111 		DATAO	APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
  9120	040537	202 01 0 00 041234 		MOVEM	1,%ERAC1#	;SAVE AC1
  9121	040540	202 02 0 00 041235 		MOVEM	2,%ERAC2#	;SAVE AC2
  9122	040541	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  9123	040542	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  9124	040543	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  9125	040544	350 00 0 00 041230 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  9126	040545	200 00 0 00 041230 		MOVE	0,MICNT
  9127	040546	504 00 0 00 030114 		HRL	0,$SVUPC
  9128	040547	336 00 0 00 030041 		SKIPN	KLFLG		;NOT KL10
  9129	040550	332 00 0 00 030037 		SKIPE	USER		;AND NOT USER?
  9130	040551	254 00 0 00 040553 		JRST	.+2
  9131	040552	7 004 14 0 00 000000 		DATAO	PI,0		;YES, DISPLAY ERROR PC,ERROR COUNT
  9132	040553	402 00 0 00 041231 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  9133	040554	037 10 0 00 000002 		SWITCH
  9134	040555	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  9135	040556	254 00 0 00 040671 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  9136	040557	200 01 0 00 030113 		MOVE	1,$SVUUO
  9137	040560	242 01 0 00 777745 		LSH	1,-^D27
  9138	040561	202 01 0 00 041232 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  9139	040562	200 00 0 00 041233 		MOVE	0,%ERAC0
  9140	040563	200 01 0 00 041234 		MOVE	1,%ERAC1
  9141	040564	335 00 1 00 041225 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  9142	040565	254 00 0 00 040731 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  9143	040566	402 00 0 00 041230 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  9144	040567	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  9145	040570	254 00 0 00 040574 		JRST	.+4		;NO, DON'T NEED TITLE
  9146	040571	336 00 0 00 041236 		SKIPN	%ERFST#		;FIRST ERROR ?
  9147	040572	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  9148	040573	476 00 0 00 041236 		SETOM	%ERFST
  9149	040574	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  9150	040575	254 00 0 00 040601 		JRST	.+4		;YES
  9151						PMSG	<^TEST PASS COUNT = >^
  9152	040576	037 02 0 00 041112 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  9153	040577	200 00 0 00 030047 		MOVE	PASCNT
  9154	040600	037 15 0 00 000000 		PNTDEC
  9155						PMSG	<^PC =   >^
  9156	040601	037 02 0 00 041116 		PSIXM	[SIXBIT\^PC =   _\]^
  9157	040602	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  9158	040603	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  9159	040604	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  9160						XLIST
  9161						IFDEF	ERDIAG,<LIST
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 2
UUOERR	KLM	22-APR-75		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0231

  9162					;DIAGNOSTIC FORMAT ERROR PRINTER
  9163
  9164					;PRINT RESULT
  9165
  9166	040605				%ERMS2:	PMSG	<^RESULT  = >^
  9167	040605	037 02 0 00 041120 		PSIXM	[SIXBIT\^RESULT  = _\]^
  9168	040606	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
  9169	040607	242 01 0 00 777751 		LSH	1,-27
  9170	040610	405 01 0 00 000017 		ANDI	1,17
  9171	040611	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  9172	040612	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
  9173	040613	200 00 0 01 041233 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  9174	040614	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
  9175
  9176	040615	200 00 0 00 030046 		MOVE	CONSW
  9177	040616	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
  9178	040617	254 00 0 00 040666 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
  9179
  9180					;PRINT FAILURE DESCRIPTOR
  9181
  9182	040620	200 01 0 00 041232 		MOVE	1,%ACS1A	;GET UUO NUMBER
  9183	040621	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
  9184	040622	254 00 0 00 040626 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
  9185	040623	037 00 0 00 030242 		PCRL
  9186	040624	200 00 0 01 040652 		MOVE	%FLTTB(1)
  9187	040625	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
  9188
  9189					;PRINT FAULT NUMBER
  9190
  9191	040626				%ERMS3:	PMSG	<^FAULT NUMBER = >^
  9192	040626	037 02 0 00 041122 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
  9193	040627	201 00 0 00 040651 		MOVEI	TLET
  9194	040630	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 3
UUOERR	KLM	22-APR-75		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0232

  9195
  9196	040631	550 00 0 00 030113 		HRRZ	$SVUUO
  9197	040632	602 00 0 00 700000 		TRNE	700000
  9198	040633	254 00 0 00 040647 		JRST	%ER6X
  9199	040634	602 00 0 00 070000 		TRNE	070000
  9200	040635	254 00 0 00 040645 		JRST	%ER5X
  9201	040636	602 00 0 00 007000 		TRNE	007000
  9202	040637	254 00 0 00 040643 		JRST	%ER4X
  9203	040640	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
  9204	040641	037 00 0 00 030242 	%ER7X:	PCRL
  9205	040642	254 00 0 00 040666 		JRST	%ERMORE
  9206
  9207	040643	037 04 0 00 000000 	%ER4X:	PNT4
  9208	040644	254 00 0 00 040641 		JRST	%ER7X
  9209	040645	037 05 0 00 000000 	%ER5X:	PNT5
  9210	040646	254 00 0 00 040641 		JRST	%ER7X
  9211	040647	037 06 0 00 000000 	%ER6X:	PNT6
  9212	040650	254 00 0 00 040641 		JRST	%ER7X
  9213
  9214					;FAILURE DESCRIPTORS
  9215
  9216	040651	000000	000000		TLET:	0			;TEST LETTER
  9217	040652	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
  9218	040653	000000	041025		%NODES:	[0]			;NO DESCRIPTOR
  9219	040654	000000	041025		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
  9220	040655	000000	041125		$ACF:	[ASCIZ/C(AC) FAILED/]
  9221	040656	000000	041130		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
  9222	040657	000000	041133		%EF:	[ASCIZ/C(E) FAILED/]
  9223	040660	000000	041136		%E1F:	[ASCIZ/C(E+1) FAILED/]
  9224	040661	000000	041141		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
  9225	040662	000000	041145		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
  9226	040663	000000	041151		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
  9227	040664	000000	041155		%EEF:	[ASCIZ/C(C(E)) FAILED/]
  9228	040665	000000	041160		%FF:	[ASCIZ/FLAG FAILED/]
  9229					>
  9230						XLIST
  9231						LIST
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 8
UUOERR	KLM	22-APR-75		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0233

  9232					;RESTORE AC'S AND RETURN OR HALT
  9233
  9234	040666	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  9235	040667	037 16 0 00 000002 		PNTMGN			;PRINT MARGINS	
  9236	040670	037 10 0 00 000002 		SWITCH
  9237
  9238	040671	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  9239	040672	254 00 0 00 040676 		JRST	.+4		;NONE
  9240	040673	201 00 0 00 040676 		MOVEI	.+3		;SAVE CONT ADDRESS
  9241	040674	202 00 0 00 000130 		MOVEM	JOBOPC
  9242	040675	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  9243	040676	200 00 0 00 030046 		MOVE	CONSW
  9244	040677	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  9245	040700	037 14 0 00 000004 		ERRHLT			;YES
  9246	040701	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  9247	040702	476 00 0 00 041231 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  9248	040703	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  9249	040704	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  9250
  9251	040705	200 02 0 00 041235 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  9252	040706	200 01 0 00 041234 		MOVE	1,%ERAC1
  9253	040707	476 00 1 00 041225 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  9254	040710	336 00 0 00 041231 		SKIPN	PROCED		;LOOP ON ERROR ?
  9255	040711	254 00 0 00 040721 		JRST	%ERRS5		;YES
  9256	040712	350 00 1 00 041225 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  9257	040713	350 00 1 00 041225 		AOS	@ERRLOP		;SO IT ='S 1
  9258	040714	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  9259	040715	254 00 0 00 040721 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  9260	040716	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  9261	040717	301 00 0 00 000005 		CAIL	0,5		;PRINTED ALLOWED ERRORS ?
  9262	040720	254 00 0 00 030061 		JRST	$BEND2
  9263
  9264	040721	200 00 0 00 041233 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  9265						IFDEF	EXCASB,<IFDEF KI10,<
  9266	040722	336 00 0 00 030040 		SKIPN	KAIFLG
  9267	040723	254 00 0 00 040730 		JRST	.+5
  9268	040724	332 00 0 00 030037 		SKIPE	USER
  9269	040725	254 00 0 00 040730 		JRST	.+3
  9270	040726	332 00 0 00 030055 		SKIPE	MARGIN
  9271	040727	7 000 14 0 00 030055 		DATAO	APR,MARGIN	;RESET MARGIN SYSTEM >>
  9272	040730	254 00 0 00 030065 		JRST	UUOEXT
  9273
  9274	040731	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  9275	040732	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  9276	040733	254 00 0 00 040671 		JRST	%ERRS1		;NO
  9277	040734	254 00 0 00 040566 		JRST	%ERMS1		;YES
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0234

  9278					SUBTTL	*STOR* RESERVED STORAGE, JAN 5,1976
  9279
  9280					;PROGRAM LITERALS
  9281
  9282						XLIST
  9283					IFNDEF	$LPAPER,<LIST>
  9284	040735					LIT
  9285	040735	101 115 000 000 000 
  9286	040736	525252	525377
  9287	040737	076000	000001
  9288	040740	002525	252525
  9289	040741	074000	000001
  9290	040742	707070	707070
  9291	040743	323232	232323
  9292	040744	103 050 103 050 105 
  9293	040745	051 055 061 051 040 
  9294	040746	106 101 111 114 105 
  9295	040747	104 000 000 000 000 
  9296	040750	777777	777777
  9297	040751	646446	464670
  9298	040752	103 050 103 050 105 
  9299	040753	051 053 061 051 040 
  9300	040754	106 101 111 114 105 
  9301	040755	104 000 000 000 000 
  9302	040756	220600	000012
  9303	040757	112233	445566
  9304	040760	020000	033356
  9305	040761	020000	033373
  9306	040762	112270	445566
  9307	040763	000000	033411
  9308	040764	000000	033424
  9309	040765	000000	033442
  9310	040766	230703	603700
  9311	040767	230702	103700
  9312	040770	000000	033465
  9313	040771	000000	033512
  9314	040772	000000	033536
  9315	040773	000000	033564
  9316	040774	000000	033610
  9317	040775	000000	033631
  9318	040776	000000	033656
  9319	040777	000000	033705
  9320	041000	000000	033730
  9321	041001	000000	033754
  9322	041002	000000	034000
  9323	041003	000000	034026
  9324	041004	000000	034052
  9325	041005	000000	034077
  9326	041006	000000	034124
  9327	041007	000000	034153
  9328	041010	000000	034173
  9329	041011	000000	034213
  9330	041012	000000	034233
  9331	041013	000000	034253
  9332	041014	000000	034276
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1-1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0235

  9333	041015	000000	034321
  9334	041016	000000	034344
  9335	041017	377777	777777
  9336	041020	000000	034370
  9337	041021	777777	777776
  9338	041022	000000	034414
  9339	041023	102 114 124 040 106 
  9340	041024	101 111 114 105 104 
  9341	041025	000 000 000 000 000 
  9342	041026	000001	000001
  9343	041027	000006	000006
  9344	041030	040221	040221
  9345	041031	000006	000011
  9346	041032	252525	252525
  9347	041033	770077	007700
  9348	041034	070707	070707
  9349	041035	123456	765432
  9350	041036	552255	225522
  9351	041037	000005	000010
  9352	041040	000004	000007
  9353	041041	000006	040224
  9354	041042	000005	040224
  9355	041043	000004	040224
  9356	041044	040221	040224
  9357	041045	040221	000006
  9358	041046	040221	000005
  9359	041047	040221	000004
  9360	041050	000004	000004
  9361	041051	146314	631463
  9362	041052	036074	170360
  9363	041053	017407	603701
  9364	041054	007603	607062
  9365	041055	000002	000001
  9366	041056	036074	170630
  9367	041057	040222	040221
  9368	041060	000001	000002
  9369	041061	040221	040222
  9370	041062	146314	146314
  9371	041063	000001	040221
  9372	041064	007700	770077
  9373	041065	003760	077401
  9374	041066	001774	007760
  9375	041067	000777	000777
  9376	041070	000377	600077
  9377	041071	777777	040220
  9378	041072	777777	040233
  9379	041073	040221	000001
  9380	041074	777777	000000
  9381	041075	777777	000013
  9382	041076	525252	525252
  9383	041077	123456	654321
  9384	041100	041241	041245
  9385	041101	112 106 106 117 040 
  9386	041102	116 117 055 112 125 
  9387	041103	115 120 040 106 101 
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1-2
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0236

  9388	041104	111 114 105 104 000 
  9389	041105	112 106 106 117 040 
  9390	041106	112 125 115 120 040 
  9391	041107	106 101 111 114 105 
  9392	041110	104 000 000 000 000 
  9393	041111	002000	010000
  9394	041112	76 64 45 63 64 00 
  9395	041113	60 41 63 63 00 43 
  9396	041114	57 65 56 64 00 35 
  9397	041115	00 77 00 00 00 00 
  9398	041116	76 60 43 00 35 00 
  9399	041117	00 00 77 00 00 00 
  9400	041120	76 62 45 63 65 54 
  9401	041121	64 00 00 35 00 77 
  9402	041122	76 46 41 65 54 64 
  9403	041123	00 56 65 55 42 45 
  9404	041124	62 00 35 00 77 00 
  9405	041125	103 050 101 103 051 
  9406	041126	040 106 101 111 114 
  9407	041127	105 104 000 000 000 
  9408	041130	103 050 101 103 053 
  9409	041131	061 051 040 106 101 
  9410	041132	111 114 105 104 000 
  9411	041133	103 050 105 051 040 
  9412	041134	106 101 111 114 105 
  9413	041135	104 000 000 000 000 
  9414	041136	103 050 105 053 061 
  9415	041137	051 040 106 101 111 
  9416	041140	114 105 104 000 000 
  9417	041141	103 050 103 050 101 
  9418	041142	103 122 051 051 040 
  9419	041143	106 101 111 114 105 
  9420	041144	104 000 000 000 000 
  9421	041145	103 050 103 050 101 
  9422	041146	103 122 053 061 051 
  9423	041147	051 040 106 101 111 
  9424	041150	114 105 104 000 000 
  9425	041151	103 050 103 050 101 
  9426	041152	103 114 051 051 040 
  9427	041153	106 101 111 114 105 
  9428	041154	104 000 000 000 000 
  9429	041155	103 050 103 050 105 
  9430	041156	051 051 040 106 101 
  9431	041157	111 114 105 104 000 
  9432	041160	106 114 101 107 040 
  9433	041161	106 101 111 114 105 
  9434	041162	104 000 000 000 000 
  9435						LIST
  9436	041164	000000	000000		ENDSLD:	0
  9437
  9438					IFDEF	DEBUG,<
  9439	041165				PATCH:	BLOCK DEBUG		;PATCHING AREA
  9440					>
  9441
  9442					;PROGRAM VARIABLES
DBKAM PDP-10  KI10 BASIC INSTRUCTION DIAGNOSTIC (13) 0,2	MACRO %50A(432) 09:50  6-AUG-76 PAGE 1-3
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0237

  9443	041225					VAR
  9444
  9445					IFDEF	PGMEND,<
  9446	041237	000000	000000		END:	0
  9447			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 041240
CPU TIME USED 00:27.476

6K CORE USED

ABORT	   164#
AC	   761#	   763	   764	   765	   766	   768	   770	   771	   772	   773	   774	   785#	   787	   788     SEQ 0238
	   789	   790	   792	   793	   795	   796	   798	   804#	   806	   807	   808	   809	   811	   812
	   813	   814	   815	   816	   822#	   824	   825	   826	   827	   829	   830	   831	   832	   833
	   834	   845#	   847	   848	   849	   850	   871	   872	   873	   874	   875	   876	   882	   883
	   884	   885	   886	   887	   893	   894	   895	   896	   897	   898	   904	   905	   906	   907
	   908	   909	   915	   916	   917	   918	   919	   920	   926	   927	   928	   929	   930	   931
	   933#	   935	   936	   937	   938	   941	   942	   943	   944	   945	   946	   949	   950	   951
	   952	   953	   954	   956	   957	   958	   959	   960	   961	   964	   965	   966	   967	   968
	   969	   972	   973	   974	   975	   976	   977	   982#	   984	   985	   986	   987	   989	   990
	   991	   992	   993	   994	   995	  1004#	  1006	  1007	  1008	  1009	  1011	  1012	  1013	  1014
	  1015	  1016	  1017	  1025#	  1027	  1028	  1029	  1030	  1032	  1033	  1034	  1035	  1036	  1037
	  1038	  1041	  1042	  1043	  1044	  1045	  1046	  1047	  1050	  1051	  1052	  1053	  1054	  1055
	  1056	  1059	  1060	  1061	  1062	  1063	  1064	  1065	  1068	  1069	  1070	  1071	  1072	  1073
	  1074	  1076	  1077	  1078	  1079	  1080	  1081	  1082	  1094#	  1096	  1097	  1098	  1099	  1101
	  1102	  1103	  1104	  1105	  1106	  1107	  1118#	  1120	  1121	  1122	  1123	  1126	  1127	  1128
	  1129	  1130	  1131	  1132	  1135	  1136	  1137	  1138	  1139	  1140	  1141	  1144	  1145	  1146
	  1147	  1148	  1149	  1150	  1153	  1154	  1155	  1156	  1157	  1158	  1159	  1167#	  1169	  1170
	  1171	  1172	  1174	  1175	  1176	  1177	  1178	  1179	  1180	  1188#	  1190	  1191	  1192	  1193
	  1195	  1196	  1197	  1198	  1199	  1200	  1201	  1202	  1212#	  1214	  1215	  1216	  1217	  1219
	  1220	  1222	  1223	  1224	  1225	  1226	  1233#	  1235	  1236	  1237	  1238	  1240	  1241	  1243
	  1244	  1245	  1246	  1252#	  1254	  1255	  1256	  1257	  1259	  1261	  1262	  1263	  1264	  1274#
	  1276	  1277	  1278	  1279	  1281	  1282	  1284	  1285	  1286	  1287	  1290	  1291	  1293	  1294
	  1295	  1296	  1299	  1300	  1302	  1303	  1304	  1305	  1308	  1309	  1311	  1312	  1313	  1314
	  1316	  1317	  1319	  1320	  1321	  1322	  1325	  1326	  1328	  1329	  1330	  1331	  1337#	  1339
	  1340	  1341	  1342	  1344	  1345	  1347	  1348	  1349	  1350	  1356#	  1358	  1359	  1360	  1361
	  1363	  1364	  1366	  1367	  1368	  1369	  1379#	  1381	  1382	  1383	  1384	  1386	  1388	  1390
	  1391	  1400#	  1402	  1403	  1404	  1405	  1407	  1409	  1410	  1411	  1412	  1413	  1427#	  1429
	  1430	  1431	  1432	  1434	  1437	  1438	  1439	  1440	  1441	  1454#	  1456	  1457	  1458	  1459
	  1461	  1462	  1464	  1465	  1466	  1467	  1468	  1478#	  1480	  1481	  1482	  1483	  1485	  1486
	  1490	  1491	  1492	  1493	  1502#	  1504	  1505	  1506	  1507	  1509	  1510	  1511	  1514	  1515
	  1516	  1517	  1526#	  1528	  1529	  1530	  1531	  1533	  1534	  1539	  1540	  1541	  1542	  1549#
	  1551	  1552	  1553	  1554	  1556	  1557	  1562	  1563	  1564	  1565	  1576#	  1578	  1579	  1580
	  1581	  1583	  1584	  1585	  1586	  1587	  1588	  1599#	  1601	  1602	  1603	  1604	  1606	  1607
	  1609	  1610	  1612	  1613	  1614	  1623#	  1625	  1626	  1627	  1628	  1630	  1631	  1633	  1634
	  1635	  1636	  1637	  1638	  1648#	  1650	  1651	  1652	  1653	  1655	  1656	  1657	  1659	  1660
	  1662	  1673#	  1675	  1676	  1677	  1678	  1680	  1681	  1682	  1684	  1685	  1687	  1697#	  1699
	  1700	  1701	  1702	  1704	  1705	  1706	  1707	  1709	  1710	  1712	  1722#	  1724	  1725	  1726
	  1727	  1729	  1730	  1731	  1733	  1734	  1736	  1746#	  1748	  1749	  1750	  1751	  1753	  1754
	  1755	  1757	  1758	  1760	  1769#	  1771	  1772	  1773	  1774	  1776	  1777	  1778	  1780	  1781
	  1783	  1793#	  1795	  1796	  1797	  1798	  1800	  1801	  1803	  1804	  1805	  1806	  1807	  1825#
	  1827	  1828	  1829	  1830	  1832	  1833	  1834	  1836	  1837	  1838	  1841	  1854#	  1856	  1857
	  1858	  1859	  1881	  1882	  1883	  1884	  1885	  1886	  1892	  1893	  1894	  1895	  1896	  1897
	  1903	  1904	  1905	  1906	  1907	  1908	  1914	  1915	  1916	  1917	  1918	  1919	  1925	  1926
	  1927	  1928	  1929	  1930	  1941#	  1943	  1944	  1945	  1946	  1971	  1972	  1973	  1974	  1975
	  1976	  1983	  1984	  1985	  1986	  1987	  1988	  1995	  1996	  1997	  1998	  1999	  2000	  2007
	  2008	  2009	  2010	  2011	  2012	  2019	  2020	  2021	  2022	  2023	  2024	  2036#	  2038	  2039
	  2040	  2041	  2064	  2065	  2066	  2067	  2068	  2069	  2070	  2076	  2077	  2078	  2079	  2080
	  2081	  2082	  2088	  2089	  2090	  2091	  2092	  2093	  2094	  2100	  2101	  2102	  2103	  2104
	  2105	  2106	  2112	  2113	  2114	  2115	  2116	  2117	  2118	  2130#	  2132	  2133	  2134	  2135
	  2157	  2159	  2160	  2161	  2162	  2168	  2170	  2171	  2172	  2173	  2179	  2181	  2182	  2183
	  2184	  2190	  2192	  2193	  2194	  2195	  2201	  2203	  2204	  2205	  2206	  2219#	  2221	  2222
	  2223	  2224	  2247	  2250	  2251	  2252	  2253	  2259	  2262	  2263	  2264	  2265	  2271	  2274
	  2275	  2276	  2277	  2283	  2286	  2287	  2288	  2289	  2295	  2298	  2299	  2300	  2301	  2313#
	  2315	  2316	  2317	  2318	  2338	  2339	  2341	  2342	  2343	  2344	  2349	  2350	  2352	  2353     SEQ 0239
	  2354	  2355	  2360	  2361	  2363	  2364	  2365	  2366	  2371	  2372	  2374	  2375	  2376	  2377
	  2382	  2383	  2385	  2386	  2387	  2388	  2400#	  2402	  2403	  2404	  2405	  2428	  2429	  2430
	  2431	  2439	  2440	  2441	  2442	  2450	  2451	  2452	  2453	  2461	  2462	  2463	  2464	  2472
	  2473	  2474	  2475	  2487#	  2489	  2490	  2491	  2492	  2514	  2515	  2519	  2520	  2521	  2522
	  2527	  2528	  2532	  2533	  2534	  2535	  2540	  2541	  2545	  2546	  2547	  2548	  2553	  2554
	  2558	  2559	  2560	  2561	  2566	  2567	  2571	  2572	  2573	  2574	  2585#	  2587	  2588	  2589
	  2590	  2624	  2625	  2626	  2627	  2639	  2640	  2641	  2642	  2654	  2655	  2656	  2657	  2669#
	  2671	  2672	  2673	  2674	  2694	  2695	  2697	  2698	  2699	  2700	  2705	  2706	  2708	  2709
	  2710	  2711	  2716	  2717	  2719	  2720	  2721	  2722	  2727	  2728	  2730	  2731	  2732	  2733
	  2738	  2739	  2741	  2742	  2743	  2744	  2755#	  2757	  2758	  2759	  2760	  2780	  2783	  2784
	  2785	  2786	  2791	  2794	  2795	  2796	  2797	  2802	  2805	  2806	  2807	  2808	  2813	  2816
	  2817	  2818	  2819	  2824	  2827	  2828	  2829	  2830	  2842#	  2844	  2845	  2846	  2847	  2871
	  2872	  2875	  2876	  2877	  2878	  2884	  2885	  2888	  2889	  2890	  2891	  2897	  2898	  2901
	  2902	  2903	  2904	  2915#	  2917	  2918	  2919	  2920	  2943	  2946	  2947	  2948	  2949	  2955
	  2958	  2959	  2960	  2961	  2967	  2970	  2971	  2972	  2973	  2979	  2982	  2983	  2984	  2985
	  2991	  2994	  2995	  2996	  2997	  3009#	  3011	  3012	  3013	  3014	  3037	  3040	  3041	  3042
	  3043	  3049	  3052	  3053	  3054	  3055	  3061	  3064	  3065	  3066	  3067	  3073	  3076	  3077
	  3078	  3079	  3085	  3088	  3089	  3090	  3091	  3103	  3105	  3106	  3107	  3108	  3109	  3119#
	  3121	  3122	  3123	  3124	  3149	  3150	  3151	  3153	  3154	  3155	  3157	  3163	  3164	  3165
	  3167	  3168	  3169	  3171	  3177	  3178	  3179	  3181	  3182	  3183	  3185	  3191	  3192	  3193
	  3195	  3196	  3197	  3199	  3205	  3206	  3207	  3209	  3210	  3211	  3213	  3224#	  3226	  3227
	  3228	  3229	  3256	  3257	  3258	  3259	  3261	  3262	  3264	  3271	  3272	  3273	  3274	  3276
	  3277	  3279	  3286	  3287	  3288	  3289	  3291	  3292	  3294	  3301	  3302	  3303	  3304	  3306
	  3307	  3309	  3316	  3317	  3318	  3319	  3321	  3322	  3324	  3336#	  3338	  3339	  3340	  3341
	  3366	  3367	  3368	  3369	  3371	  3372	  3374	  3380	  3381	  3382	  3383	  3385	  3386	  3388
	  3394	  3395	  3396	  3397	  3399	  3400	  3402	  3408	  3409	  3410	  3411	  3413	  3414	  3416
	  3422	  3423	  3424	  3425	  3427	  3428	  3430	  3440#	  3442	  3443	  3444	  3445	  3450	  3468
	  3469	  3470	  3471	  3473	  3474	  3476	  3481	  3482	  3483	  3484	  3486	  3487	  3489	  3494
	  3495	  3496	  3497	  3499	  3500	  3502	  3507	  3508	  3509	  3510	  3512	  3513	  3515	  3520
	  3521	  3522	  3523	  3525	  3526	  3528	  3535#	  3537	  3538	  3539	  3540	  3565	  3566	  3567
	  3568	  3569	  3570	  3571	  3572	  3579	  3580	  3581	  3582	  3583	  3584	  3585	  3586	  3623
	  3624	  3625	  3626	  3627	  3632	  3633	  3636	  3643	  3644	  3645	  3646	  3647	  3652	  3653
	  3656	  3661#	  3663	  3664	  3665	  3666	  3668	  3669	  3670	  3672	  3673	  3674	  3675	  3676
	  3677	  3678	  3679	  3680	  3682	  3683	  3684	  3686	  3687	  3688	  3689	  3690	  3691	  3692
	  3693	  3694	  3698#	  3700	  3701	  3702	  3703	  3706	  3707	  3708	  3709	  3710	  3711	  3716#
	  3718	  3719	  3720	  3721	  3724	  3725	  3726	  3727	  3729	  3730	  3731	  3732	  3737#	  3739
	  3740	  3741	  3742	  3745	  3746	  3747	  3748	  3749	  3750	  3751	  3752	  3753	  3754	  3755
	  3756	  3757	  3758	  3763#	  3765	  3766	  3767	  3768	  3771	  3772	  3773	  3774	  3775	  3776
	  3777	  3778	  3779	  3780	  3781	  3782	  3783	  3784	  3785	  3786	  3791#	  3793	  3794	  3795
	  3796	  3799	  3800	  3801	  3802	  3803	  3804	  3805	  3806	  3807	  3808	  3809	  3810	  3811
	  3812	  3813	  3818#	  3820	  3821	  3822	  3823	  3826	  3827	  3828	  3829	  3830	  3831	  3832
	  3833	  3834	  3835	  3836	  3837	  3838	  3839	  3840	  3841	  3842	  3847#	  3849	  3850	  3851
	  3852	  3855	  3856	  3857	  3858	  3859	  3860	  3861	  3862	  3863	  3864	  3865	  3866	  3867
	  3868	  3869	  3875#	  3877	  3878	  3879	  3880	  3883	  3884	  3885	  3886	  3887	  3888	  3889
	  3890	  3891	  3893	  3894	  3895	  3900#	  3902	  3903	  3904	  3905	  3909	  3910	  3911	  3912
	  3913	  3914	  3915	  3916	  3918	  3919	  3920	  3921	  3922	  3923	  3924	  3925	  3930#	  3932
	  3933	  3934	  3935	  3938	  3939	  3940	  3941	  3942	  3943	  3944	  3945	  3946	  3948	  3949
	  3950	  3951	  3952	  3953	  3954	  3955	  3956	  3961#	  3963	  3964	  3965	  3966	  3969	  3970
	  3971	  3972	  3973	  3974	  3975	  3976	  3977	  3978	  3979	  3980	  3981	  3982	  3988#	  3990
	  3991	  3992	  3993	  3996	  3997	  3998	  3999	  4000	  4001	  4002	  4003	  4004	  4005	  4006
	  4007	  4008	  4009	  4010	  4015#	  4017	  4018	  4019	  4020	  4023	  4024	  4025	  4026	  4027
	  4028	  4029	  4030	  4031	  4032	  4033	  4034	  4035	  4036	  4037	  4042#	  4044	  4045	  4046
	  4047	  4050	  4051	  4052	  4053	  4054	  4055	  4056	  4057	  4058	  4059	  4060	  4061	  4062     SEQ 0240
	  4063	  4064	  4065	  4066	  4071#	  4073	  4074	  4075	  4076	  4079	  4080	  4081	  4082	  4083
	  4084	  4085	  4086	  4088	  4089	  4090	  4091	  4092	  4093	  4094	  4100#	  4102	  4103	  4104
	  4105	  4108	  4109	  4110	  4111	  4112	  4113	  4114	  4115	  4117	  4118	  4119	  4120	  4121
	  4122	  4123	  4124	  4129#	  4131	  4132	  4133	  4134	  4137	  4138	  4139	  4140	  4141	  4142
	  4143	  4144	  4146	  4147	  4148	  4149	  4150	  4151	  4152	  4153	  4158#	  4160	  4161	  4162
	  4163	  4166	  4167	  4169	  4170	  4171	  4172	  4173	  4174	  4175	  4177	  4178	  4179	  4180
	  4181	  4182	  4183	  4184	  4185	  4189#	  4191	  4192	  4193	  4194	  4197	  4198	  4199	  4200
	  4201	  4202	  4203	  4204	  4205	  4206	  4207	  4212#	  4214	  4215	  4216	  4217	  4220	  4221
	  4222	  4223	  4224	  4225	  4226	  4227	  4228	  4229	  4230	  4234#	  4236	  4237	  4238	  4239
	  4242	  4243	  4244	  4245	  4246	  4247	  4248	  4249	  4250	  4251	  4252	  4257#	  4259	  4260
	  4261	  4262	  4265	  4266	  4267	  4268	  4269	  4270	  4271	  4272	  4273	  4274	  4275	  4279#
	  4281	  4282	  4283	  4284	  4287	  4288	  4289	  4291	  4293	  4294	  4295	  4296	  4297	  4298
	  4299	  4300	  4303#	  4305	  4306	  4307	  4308	  4311	  4312	  4313	  4314	  4315	  4316	  4317
	  4318	  4319	  4320	  4321	  4322	  4323	  4324	  4328#	  4330	  4331	  4332	  4333	  4336	  4337
	  4338	  4339	  4340	  4341	  4342	  4343	  4344	  4345	  4346	  4347	  4348	  4349	  4352#	  4354
	  4355	  4356	  4357	  4360	  4361	  4362	  4363	  4364	  4365	  4366	  4367	  4368	  4369	  4370
	  4371	  4372	  4373	  4374	  4378#	  4380	  4381	  4382	  4383	  4386	  4387	  4388	  4389	  4390
	  4391	  4392	  4393	  4394	  4395	  4396	  4397	  4398	  4399	  4400	  4404#	  4406	  4407	  4408
	  4409	  4412	  4413	  4414	  4415	  4416	  4417	  4426#	  4428	  4429	  4430	  4431	  4433	  4434
	  4437	  4440	  4450	  4455#	  4457	  4458	  4459	  4460	  4462	  4463	  4466	  4469	  4479	  4484#
	  4486	  4487	  4488	  4489	  4491	  4492	  4495	  4498	  4508	  4513#	  4515	  4516	  4517	  4518
	  4524	  4528	  4530	  4531	  4532	  4534	  4535	  4536	  4538	  4539	  4540	  4541	  4546#	  4548
	  4549	  4550	  4551	  4557	  4561	  4563	  4564	  4565	  4567	  4568	  4569	  4571	  4572	  4573
	  4574	  4580#	  4582	  4583	  4584	  4585	  4591	  4593	  4594	  4596	  4598	  4599	  4600	  4602
	  4603	  4604	  4606	  4607	  4608	  4609	  4617#	  4619	  4620	  4621	  4622	  4624	  4625	  4628
	  4665	  4756	  4765#	  4767	  4768	  4769	  4770	  4772	  4773	  4776	  4813	  4904	  4913#	  4915
	  4916	  4917	  4918	  4920	  4921	  4924	  4961	  5052	  5061#	  5063	  5064	  5065	  5066	  5068
	  5072	  5095	  5096	  5101	  5102	  5107	  5108	  5109	  5158	  5159	  5163	  5173	  5174	  5176
	  5188	  5189	  5193	  5200	  5209#	  5211	  5212	  5213	  5214	  5216	  5220	  5243	  5244	  5249
	  5250	  5255	  5256	  5257	  5306	  5307	  5311	  5321	  5322	  5324	  5336	  5337	  5341	  5348
	  5357#	  5359	  5360	  5361	  5362	  5364	  5368	  5391	  5392	  5397	  5398	  5403	  5404	  5405
	  5454	  5455	  5459	  5469	  5470	  5472	  5484	  5485	  5489	  5496	  5505#	  5507	  5508	  5509
	  5510	  5516	  5521	  5522	  5527	  5528	  5533	  5534	  5539	  5540	  5545	  5546	  5551	  5552
	  5553	  5557	  5558	  5562	  5572	  5573	  5577	  5587	  5588	  5592	  5602	  5603	  5607	  5617
	  5618	  5620	  5632	  5633	  5637	  5644	  5653#	  5655	  5656	  5657	  5658	  5664	  5669	  5670
	  5675	  5676	  5681	  5682	  5687	  5688	  5693	  5694	  5699	  5700	  5701	  5705	  5706	  5710
	  5720	  5721	  5725	  5735	  5736	  5740	  5750	  5751	  5755	  5765	  5766	  5768	  5780	  5781
	  5785	  5792	  5801#	  5803	  5804	  5805	  5806	  5812	  5817	  5818	  5823	  5824	  5829	  5830
	  5835	  5836	  5841	  5842	  5847	  5848	  5849	  5853	  5854	  5858	  5868	  5869	  5873	  5883
	  5884	  5888	  5898	  5899	  5903	  5913	  5914	  5916	  5928	  5929	  5933	  5940	  5949#	  5951
	  5952	  5953	  5954	  5957	  5960	  5965	  5966	  5971	  5972	  5977	  5978	  5997	  6001	  6002
	  6006	  6016	  6017	  6021	  6031	  6032	  6036	  6088	  6097#	  6099	  6100	  6101	  6102	  6105
	  6108	  6113	  6114	  6119	  6120	  6125	  6126	  6145	  6149	  6150	  6154	  6164	  6165	  6169
	  6179	  6180	  6184	  6236	  6245#	  6247	  6248	  6249	  6250	  6253	  6256	  6261	  6262	  6267
	  6268	  6273	  6274	  6293	  6297	  6298	  6302	  6312	  6313	  6317	  6327	  6328	  6332	  6384
	  6388#	  6390	  6391	  6392	  6393	  6396	  6397	  6400	  6407	  6443	  6447#	  6449	  6450	  6451
	  6452	  6455	  6456	  6459	  6466	  6502	  6506#	  6508	  6509	  6510	  6511	  6514	  6515	  6518
	  6528	  6564	  6568#	  6570	  6571	  6572	  6573	  6576	  6577	  6580	  6596	  6632	  6636#	  6638
	  6639	  6640	  6641	  6648	  6660	  6662	  6663	  6665	  6668	  6669	  6671	  6674	  6675	  6677
	  6680	  6681	  6683	  6686	  6687	  6689	  6692	  6693	  6695	  6698	  6699	  6701	  6703	  6707#
	  6709	  6710	  6711	  6712	  6719	  6731	  6733	  6734	  6736	  6739	  6740	  6742	  6745	  6746
	  6748	  6751	  6752	  6754	  6757	  6758	  6760	  6763	  6764	  6766	  6769	  6770	  6772	  6774
	  6778#	  6780	  6781	  6782	  6783	  6790	  6802	  6804	  6805	  6807	  6810	  6811	  6813	  6816     SEQ 0241
	  6817	  6819	  6822	  6823	  6825	  6828	  6829	  6831	  6834	  6835	  6837	  6840	  6841	  6843
	  6845	  6849#	  6851	  6852	  6853	  6854	  6861	  6881	  6883	  6884	  6886	  6889	  6890	  6892
	  6895	  6896	  6898	  6901	  6902	  6904	  6907	  6908	  6910	  6913	  6914	  6916	  6919	  6920
	  6922	  6924	  6928#	  6930	  6931	  6932	  6933	  6936	  6937	  6940	  6958	  7000	  7004#	  7006
	  7007	  7008	  7009	  7016	  7038	  7043	  7044	  7046	  7049	  7050	  7052	  7055	  7056	  7058
	  7061	  7062	  7064	  7067	  7068	  7070	  7073	  7074	  7076	  7079	  7080	  7082	  7085	  7086
	  7088	  7090	  7094#	  7096	  7097	  7098	  7099	  7102	  7103	  7106	  7124	  7163	  7167#	  7169
	  7170	  7171	  7172	  7179	  7201	  7206	  7207	  7209	  7212	  7213	  7214	  7216	  7217	  7219
	  7222	  7223	  7225	  7228	  7229	  7231	  7234	  7235	  7237	  7240	  7241	  7243	  7246	  7247
	  7249	  7251	  7255#	  7257	  7258	  7259	  7260	  7263	  7267	  7322	  7370	  7371	  7373	  7376
	  7377	  7379	  7382	  7383	  7385	  7388	  7389	  7391	  7394	  7395	  7397	  7400	  7401	  7403
	  7406	  7407	  7409	  7412	  7413	  7415	  7418	  7419	  7421	  7424	  7425	  7427	  7430	  7431
	  7433	  7436	  7437	  7439	  7441	  7445#	  7447	  7448	  7449	  7450	  7454	  7457	  7505	  7510
	  7511	  7513	  7516	  7517	  7518	  7520	  7521	  7522	  7524	  7525	  7526	  7528	  7529	  7530
	  7532	  7533	  7534	  7536	  7537	  7538	  7540	  7541	  7542	  7544	  7545	  7546	  7548	  7549
	  7550	  7552	  7553	  7554	  7556	  7557	  7559	  7624	  7628#	  7630	  7631	  7632	  7633	  7639
	  7640	  7641	  7642	  7643	  7644	  7645	  7646	  7647	  7648	  7649	  7650	  7652	  7653	  7656
	  7657	  7659	  7660	  7661	  7663	  7664	  7665	  7667	  7668	  7669	  7671	  7672	  7673	  7675
	  7676	  7677	  7679	  7680	  7681	  7683	  7689#	  7718	  7718#	  7720	  7721	  7722	  7723	  7725
	  7726	  7727	  7729	  7730	  7731	  7732	  7733	  7734	  7741	  7741#	  7743	  7744	  7745	  7746
	  7748	  7749	  7750	  7752	  7753	  7754	  7755	  7756	  7757	  7764	  7764#	  7766	  7767	  7768
	  7769	  7771	  7772	  7773	  7775	  7776	  7777	  7778	  7779	  7780	  7787	  7787#	  7789	  7790
	  7791	  7792	  7794	  7795	  7796	  7798	  7799	  7800	  7801	  7802	  7803	  7810	  7810#	  7812
	  7813	  7814	  7815	  7817	  7818	  7819	  7821	  7822	  7823	  7824	  7825	  7826	  7833	  7833#
	  7835	  7836	  7837	  7838	  7840	  7841	  7842	  7844	  7845	  7846	  7847	  7848	  7849	  7856
	  7856#	  7858	  7859	  7860	  7861	  7863	  7864	  7865	  7867	  7868	  7869	  7870	  7871	  7872
	  7879	  7879#	  7881	  7882	  7883	  7884	  7886	  7887	  7888	  7890	  7891	  7892	  7893	  7894
	  7895	  7902	  7902#	  7904	  7905	  7906	  7907	  7909	  7910	  7911	  7913	  7914	  7915	  7916
	  7917	  7918	  7925	  7925#	  7927	  7928	  7929	  7930	  7932	  7933	  7934	  7936	  7937	  7938
	  7939	  7940	  7941	  7948	  7948#	  7950	  7951	  7952	  7953	  7955	  7956	  7957	  7959	  7960
	  7961	  7962	  7963	  7964	  7971	  7971#	  7973	  7974	  7975	  7976	  7978	  7979	  7980	  7982
	  7983	  7984	  7985	  7986	  7987	  7994	  7994#	  7996	  7997	  7998	  7999	  8001	  8002	  8003
	  8005	  8006	  8007	  8008	  8009	  8010	  8019	  8020	  8021	  8022	  8023	  8024	  8025	  8026
	  8062	  8063	  8064	  8065	  8066	  8067	  8068	  8069	  8070	  8071	  8081	  8082	  8083	  8084
	  8085	  8086	  8087	  8088	  8089	  8090	  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	  8427	  8428
	  8429	  8430	  8431	  8432	  8433	  8434	  8435	  8436	  8446	  8447	  8448	  8449	  8450	  8451
	  8452	  8453	  8454	  8455	  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	  8568	  8569	  8579	  8580	  8581	  8582	  8583	  8584
	  8585	  8586	  8587	  8588	  8598	  8599	  8600	  8601	  8602	  8603	  8604	  8605	  8606	  8607     SEQ 0242
	  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	  8766#	  8794	  8794#	  8796
	  8797	  8798	  8799	  8801	  8802	  8803	  8804	  8805	  8806	  8807	  8808	  8809	  8810	  8818
	  8818#	  8820	  8821	  8822	  8823	  8825	  8826	  8827	  8828	  8829	  8830	  8831	  8832	  8833
	  8834	  8842	  8842#	  8844	  8845	  8846	  8847	  8849	  8850	  8851	  8852	  8853	  8854	  8855
	  8856	  8857	  8858	  8866	  8866#	  8868	  8869	  8870	  8871	  8873	  8874	  8875	  8876	  8877
	  8878	  8879	  8880	  8881	  8882	  8890	  8890#	  8892	  8893	  8894	  8895	  8897	  8898	  8899
	  8900	  8901	  8902	  8903	  8904	  8905	  8906	  8914	  8914#	  8916	  8917	  8918	  8919	  8921
	  8922	  8923	  8924	  8925	  8926	  8927	  8928	  8929	  8930	  8938	  8938#	  8940	  8941	  8942
	  8943	  8945	  8946	  8947	  8948	  8949	  8950	  8951	  8952	  8953	  8954	  8962	  8962#	  8964
	  8965	  8966	  8967	  8969	  8970	  8971	  8972	  8973	  8974	  8975	  8976	  8977	  8978	  8986
	  8986#	  8988	  8989	  8990	  8991	  8993	  8994	  8995	  8996	  8997	  8998	  8999	  9000	  9001
	  9002	  9010	  9010#	  9012	  9013	  9014	  9015	  9017	  9018	  9019	  9020	  9021	  9022	  9023
	  9024	  9025	  9026	  9034	  9034#	  9036	  9037	  9038	  9039	  9041	  9042	  9043	  9044	  9045
	  9046	  9047	  9048	  9049	  9050	  9058	  9058#	  9060	  9061	  9062	  9063	  9065	  9066	  9067
	  9068	  9069	  9070	  9071	  9072	  9073	  9074	  9082	  9082#	  9084	  9085	  9086	  9087	  9089
	  9090	  9091	  9092	  9093	  9094	  9095	  9096	  9097	  9098
ALTMGO	   479#	  9242
AMCLRB	   393#
ANXM	   393#
APR	  9119	  9271
AROV	   393#
AROVTP	   393#
AROVU	   393#
AST	   594#
ATSIN	   595#
BEGEND	   475#	  9101
BEGIN	    68	    69	    70	    71	    72	    73	    74	    75	    76	    77	    78	   378	   379	   406#
	  9447
BEGIN1	   422#	   476
BELL	   598#
BIS	   393#	  3671	  3678	  3685	  3692
BLTBLK	  4520	  4521	  4553	  4554	  4587	  4588	  5069	  5217	  5365	  5512	  5513	  5660	  5661	  5808
	  5809	  5956	  6104	  6252	  6644	  6645	  6715	  6716	  6786	  6787	  6857	  6858	  7012	  7013
	  7175	  7176	  7264	  7453	  9107#
BLTDST	  7637#	  7646	  7648	  7650	  7652	  7653	  7656	  7672	  7676	  7680
BLTSRC	  7636#	  7640	  7642	  7644	  7652	  7656	  7660	  7664	  7668
BYTBLK	  3725	  3728	  3729	  3772	  3775	  3783	  3784	  3801	  3805	  3806	  3807	  3827	  3828	  3830
	  3833	  3834	  3835	  3837	  3838	  3884	  3888	  3911	  3916	  3918	  3919	  3939	  3940	  3943
	  3946	  3948	  3949	  3951	  3952	  3997	  4000	  4007	  4008	  4025	  4029	  4030	  4031	  4051
	  4052	  4054	  4057	  4058	  4059	  4061	  4062	  4109	  4113	  4121	  4122	  4139	  4144	  4146
	  4147	  4167	  4169	  4172	  4175	  4177	  4178	  4180	  4181	  9104#
CCA	   393#
CHAIN	   184#
CHNOFF	   393#
CHNON	   393#
CLK	   393#
CLKCLR	   393#
CLKDIS	   393#                                                                                                            SEQ 0243
CLKENB	   393#
CLKU	   393#
CLOCKF	   461#
CNTLC	   478#
CNTRP	   393#
COMMA	   587#
CONSW	   462#	  9176	  9243	  9274
CPOPJ	   482#
CPOPJ1	   480#
CRLF	   313	   314	   582#
CRLF2	   317	   318	   584#
CRY0	   393#
CRY1	   393#
CSHFLG	   641#
CSHMEM	   642#
CTRP	   393#
CYCL60	   635#
DCK	   393#
DDTLNK	   198#	   420
DDTSRT	   420#
DEBUG	    57#	  9438	  9439
DECVER	     4#	    11	    25	   441
DEST	  4434#	  4437	  4440	  4442	  4443	  4445	  4446	  4448	  4449	  4463#	  4466	  4469	  4471	  4472
	  4474	  4475	  4477	  4478	  4492#	  4495	  4498	  4500	  4501	  4503	  4504	  4506	  4507	  4521#
	  4524	  4528	  4530	  4534	  4538	  4554#	  4557	  4561	  4563	  4567	  4571	  4588#	  4591	  4596
	  4598	  4602	  4606	  4625#	  4628	  4648	  4649	  4650	  4654	  4655	  4656	  4660	  4661	  4662
	  4665	  4713	  4720	  4721	  4725	  4728	  4735	  4736	  4738	  4743	  4750	  4751	  4755	  4773#
	  4776	  4796	  4797	  4798	  4802	  4803	  4804	  4808	  4809	  4810	  4813	  4861	  4868	  4869
	  4873	  4876	  4883	  4884	  4886	  4891	  4898	  4899	  4903	  4921#	  4924	  4944	  4945	  4946
	  4950	  4951	  4952	  4956	  4957	  4958	  4961	  5009	  5016	  5017	  5021	  5024	  5031	  5032
	  5034	  5039	  5046	  5047	  5051	  5069#	  5072	  5092	  5094	  5096	  5098	  5100	  5102	  5104
	  5106	  5108	  5109	  5157	  5158	  5164	  5172	  5173	  5179	  5187	  5188	  5194	  5217#	  5220
	  5240	  5242	  5244	  5246	  5248	  5250	  5252	  5254	  5256	  5257	  5305	  5306	  5312	  5320
	  5321	  5327	  5335	  5336	  5342	  5365#	  5368	  5388	  5390	  5392	  5394	  5396	  5398	  5400
	  5402	  5404	  5405	  5453	  5454	  5460	  5468	  5469	  5475	  5483	  5484	  5490	  5513#	  5516
	  5536	  5538	  5540	  5542	  5544	  5546	  5548	  5550	  5552	  5553	  5601	  5602	  5608	  5616
	  5617	  5623	  5631	  5632	  5638	  5661#	  5664	  5684	  5686	  5688	  5690	  5692	  5694	  5696
	  5698	  5700	  5701	  5749	  5750	  5756	  5764	  5765	  5771	  5779	  5780	  5786	  5809#	  5812
	  5832	  5834	  5836	  5838	  5840	  5842	  5844	  5846	  5848	  5849	  5897	  5898	  5904	  5912
	  5913	  5919	  5927	  5928	  5934	  5957#	  5960	  5980	  5981	  5982	  5986	  5987	  5988	  5992
	  5993	  5994	  5997	  6045	  6052	  6053	  6057	  6060	  6067	  6068	  6070	  6075	  6082	  6083
	  6087	  6105#	  6108	  6128	  6129	  6130	  6134	  6135	  6136	  6140	  6141	  6142	  6145	  6193
	  6200	  6201	  6205	  6208	  6215	  6216	  6218	  6223	  6230	  6231	  6235	  6253#	  6256	  6276
	  6277	  6278	  6282	  6283	  6284	  6288	  6289	  6290	  6293	  6341	  6348	  6349	  6353	  6356
	  6363	  6364	  6366	  6371	  6378	  6379	  6383	  6397#	  6400	  6407	  6409	  6411	  6414	  6416
	  6419	  6421	  6424	  6426	  6429	  6431	  6434	  6436	  6439	  6441	  6456#	  6459	  6466	  6468
	  6470	  6473	  6475	  6478	  6480	  6483	  6485	  6488	  6490	  6493	  6495	  6498	  6500	  6515#
	  6518	  6528	  6530	  6532	  6535	  6537	  6540	  6542	  6545	  6547	  6550	  6552	  6555	  6557
	  6560	  6562	  6577#	  6580	  6596	  6598	  6600	  6603	  6605	  6608	  6610	  6613	  6615	  6618
	  6620	  6623	  6625	  6628	  6630	  6645#	  6648	  6660	  6662	  6668	  6674	  6680	  6686	  6692
	  6698	  6716#	  6719	  6731	  6733	  6739	  6745	  6751	  6757	  6763	  6769	  6787#	  6790	  6802
	  6804	  6810	  6816	  6822	  6828	  6834	  6840	  6858#	  6861	  6881	  6883	  6889	  6895	  6901
	  6907	  6913	  6919	  6937#	  6940	  6942	  6944	  6958	  6960	  6962	  6965	  6967	  6970	  6972     SEQ 0244
	  6975	  6977	  6981	  6983	  6986	  6988	  6991	  6993	  7013#	  7016	  7018	  7021	  7038	  7043
	  7049	  7055	  7061	  7067	  7073	  7079	  7103#	  7106	  7122	  7124	  7134	  7136	  7139	  7141
	  7144	  7146	  7149	  7151	  7154	  7156	  7159	  7161	  7176#	  7179	  7199	  7201	  7216	  7222
	  7228	  7234	  7240	  7246	  7264#	  7267	  7294	  7295	  7297	  7298	  7299	  7300	  7301	  7302
	  7303	  7304	  7305	  7306	  7307	  7308	  7309	  7310	  7311	  7312	  7313	  7314	  7315	  7316
	  7317	  7318	  7322	  7370	  7371	  7376	  7382	  7388	  7394	  7400	  7406	  7412	  7418	  7424
	  7430	  7436	  7437	  7454#	  7457	  7490	  7492	  7493	  7495	  7496	  7497	  7498	  7499	  7500
	  7501	  7502	  7503	  7505	  7565	  7567	  7570	  7572	  7575	  7577	  7580	  7582	  7585	  7587
	  7590	  7592	  7595	  7597	  7600	  7602	  7605	  7607	  7610	  7612	  7615	  7617	  7620	  7622
DF22F	   546#
DIAGMN	   409#
DING	   170#	  9248
DOLLAR	   601#
DSKUPD	   446
END	  7636	  7637	  9446#
ENDFIX	   715#
ENDSLD	  9436#
ERDIAG	    64#	  9161
ERMORE	   495#	  9234
ERRELB	  9231
ERRLOP	   766#	   766	   790#	   790	   809#	   809	   827#	   827	   850#	   850	   938#	   938	   987#	   987
	  1009#	  1009	  1030#	  1030	  1099#	  1099	  1123#	  1123	  1172#	  1172	  1193#	  1193	  1217#	  1217
	  1238#	  1238	  1257#	  1257	  1279#	  1279	  1342#	  1342	  1361#	  1361	  1384#	  1384	  1405#	  1405
	  1432#	  1432	  1459#	  1459	  1483#	  1483	  1507#	  1507	  1531#	  1531	  1554#	  1554	  1581#	  1581
	  1604#	  1604	  1628#	  1628	  1653#	  1653	  1678#	  1678	  1702#	  1702	  1727#	  1727	  1751#	  1751
	  1774#	  1774	  1798#	  1798	  1830#	  1830	  1859#	  1859	  1946#	  1946	  2041#	  2041	  2135#	  2135
	  2224#	  2224	  2318#	  2318	  2405#	  2405	  2492#	  2492	  2590#	  2590	  2674#	  2674	  2760#	  2760
	  2847#	  2847	  2920#	  2920	  3014#	  3014	  3124#	  3124	  3229#	  3229	  3341#	  3341	  3445#	  3445
	  3540#	  3540	  3666#	  3666	  3703#	  3703	  3721#	  3721	  3742#	  3742	  3768#	  3768	  3796#	  3796
	  3823#	  3823	  3852#	  3852	  3880#	  3880	  3905#	  3905	  3935#	  3935	  3966#	  3966	  3993#	  3993
	  4020#	  4020	  4047#	  4047	  4076#	  4076	  4105#	  4105	  4134#	  4134	  4163#	  4163	  4194#	  4194
	  4217#	  4217	  4239#	  4239	  4262#	  4262	  4284#	  4284	  4308#	  4308	  4333#	  4333	  4357#	  4357
	  4383#	  4383	  4409#	  4409	  4431#	  4431	  4460#	  4460	  4489#	  4489	  4518#	  4518	  4551#	  4551
	  4585#	  4585	  4622#	  4622	  4770#	  4770	  4918#	  4918	  5066#	  5066	  5214#	  5214	  5362#	  5362
	  5510#	  5510	  5658#	  5658	  5806#	  5806	  5954#	  5954	  6102#	  6102	  6250#	  6250	  6393#	  6393
	  6452#	  6452	  6511#	  6511	  6573#	  6573	  6641#	  6641	  6712#	  6712	  6783#	  6783	  6854#	  6854
	  6933#	  6933	  7009#	  7009	  7099#	  7099	  7172#	  7172	  7260#	  7260	  7450#	  7450	  7633#	  7633
	  7723#	  7723	  7746#	  7746	  7769#	  7769	  7792#	  7792	  7815#	  7815	  7838#	  7838	  7861#	  7861
	  7884#	  7884	  7907#	  7907	  7930#	  7930	  7953#	  7953	  7976#	  7976	  7999#	  7999	  8799#	  8799
	  8823#	  8823	  8847#	  8847	  8871#	  8871	  8895#	  8895	  8919#	  8919	  8943#	  8943	  8967#	  8967
	  8991#	  8991	  9015#	  9015	  9039#	  9039	  9063#	  9063	  9087#	  9087	  9141	  9253	  9256	  9257
ERRMES	    44	    45	    46	    47	    48	    49	    50	    51	    52	    53	    54	  9112#
ERRPC	   466#	  9124	  9158
ERRTLS	   467#	  9122	  9260
ERSTOP	   173#	  9244
EXCASB	    58#	   444	  9113	  9265
EXCMEM	   393#
EXCPFW	   393#
EXIOT	   393#
EXIT	   718#	   719
FOV	   393#
FOVU	   393#
FRDLNK	   196#                                                                                                            SEQ 0245
FSELNK	   195#
FXU	   393#
G00	   741	   761#
G100	   768#	   774
G1000	   949#	   954
G10000	  1866#
G10100	  1954#
G10200	  2048#
G10300	  2142#
G10400	  2231#
G10500	  2324#
G10600	  2411#
G10700	  2498#
G1100	   956#	   961
G11000	  2599#
G11100	  2680#
G11200	  2766#
G11300	  2854#
G11400	  2927#
G11500	  3021#
G11600	  3103#	  3109
G11700	  3131#
G1200	   964#	   969
G12000	  3236#
G12100	  3348#
G12200	  3450#
G12210	  3546#
G12220	  3598#
G12300	  3668#	  3680
G12400	  3682#	  3694
G12500	  3706#	  3711
G12510	  3724#	  3732
G12600	  3745#	  3758
G12610	  3771#	  3786
G12620	  3799#	  3813
G12630	  3826#	  3842
G12700	  3855#	  3869
G12710	  3883#	  3895
G12720	  3909#	  3925
G12730	  3938#	  3956
G1300	   972#	   977
G13000	  3969#	  3982
G13010	  3996#	  4010
G13020	  4023#	  4037
G13030	  4050#	  4066
G13100	  4079#	  4094
G13110	  4108#	  4124
G13120	  4137#	  4153
G13130	  4166#	  4185
G13200	  4197#	  4207
G13210	  4220#	  4230
G13220	  4242#	  4252
G13230	  4265#	  4275                                                                                                     SEQ 0246
G13240	  4287#	  4300
G13300	  4311#	  4324
G13310	  4336#	  4349
G13320	  4360#	  4374
G13330	  4386#	  4400
G13400	  4412#	  4417
G1400	   989#	   995
G1500	  1011#	  1017
G1600	  1032#	  1038
G1700	  1041#	  1047
G200	   792#	   798
G2000	  1050#	  1056
G20100	  6400#	  6443
G20200	  6459#	  6502
G20300	  6518#	  6564
G20400	  6580#	  6632
G20500	  6648#	  6703
G20600	  6719#	  6774
G20700	  6790#	  6845
G2100	  1059#	  1065
G21000	  6861#	  6924
G21100	  6940#	  7000
G21200	  7016#	  7090
G21300	  7106#	  7163
G21400	  7179#	  7251
G21500	  7267#	  7441
G21600	  7457#	  7624
G21700	  7639#	  7683
G2200	  1068#	  1074
G22100	  4437#	  4450
G22200	  4466#	  4479
G22300	  4495#	  4508
G22400	  4524#	  4541
G22500	  4557#	  4574
G22600	  4591#	  4609
G22700	  4628#	  4756
G2300	  1076#	  1082
G23000	  4776#	  4904
G23100	  4924#	  5052
G23200	  5072#	  5200
G23300	  5220#	  5348
G23400	  5368#	  5496
G23500	  5516#	  5644
G23600	  5664#	  5792
G23700	  5812#	  5940
G2400	  1101#	  1107
G24000	  5960#	  6088
G24100	  6108#	  6236
G24200	  6256#	  6384
G2600	  1126#	  1132
G2700	  1135#	  1141
G300	   811#	   816
G3000	  1144#	  1150                                                                                                     SEQ 0247
G30000	  7688#
G30100	  7694#
G30200	  8019#	  8026
G30300	  8035#
G30400	  8400#
G30500	  8768#
G3100	  1153#	  1159
G3200	  1174#	  1180
G3300	  1195#	  1202
G3400	  1219#	  1226
G3500	  1240#	  1246
G3600	  1259#	  1264
G3700	  1281#	  1287
G400	   829#	   834
G4000	  1290#	  1296
G4100	  1299#	  1305
G4200	  1308#	  1314
G4300	  1316#	  1322
G4400	  1325#	  1331
G4600	  1344#	  1350
G4700	  1363#	  1369
G5000	  1386#	  1391
G5100	  1407#	  1413
G5200	  1434#	  1441
G5300	  1461#	  1468
G5400	  1485#	  1493
G5500	  1509#	  1517
G5600	  1533#	  1542
G5700	  1556#	  1565
G600	   856#
G6000	  1583#	  1588
G6100	  1606#	  1614
G6200	  1630#	  1638
G6300	  1655#	  1662
G6400	  1680#	  1687
G700	   941#	   946
G7000	  1704#	  1712
G7100	  1729#	  1736
G7200	  1753#	  1760
G7400	  1776#	  1783
G7600	  1800#	  1807
G7700	  1832#	  1841
GSVAC	  8802#	  8802	  8806	  8826#	  8826	  8830	  8850#	  8850	  8854	  8874#	  8874	  8878	  8898#	  8898
	  8902	  8922#	  8922	  8926	  8946#	  8946	  8950	  8970#	  8970	  8974	  8994#	  8994	  8998	  9018#
	  9018	  9022	  9042#	  9042	  9046	  9066#	  9066	  9070	  9090#	  9090	  9094
GSVAC0	  7293#	  7293	  7320
HYPEN	   592#
IADBRK	   393#
IADEXC	   393#
IADSTP	   393#
IADUSR	   393#
IAPRC1	   393#
IAPRE1	   393#                                                                                                            SEQ 0248
IASRTC	   393#
IASRTE	   393#
IASRTS	   393#
ICNSLL	   393#
ICNSLR	   393#
IDATAF	   393#
IEVNPR	   393#
IFMMAN	   393#
IINSTF	   393#
IIOPFC	   393#
IIOPFL	   393#
IMAINT	   393#
IMGINM	   393#
IMGNLO	   393#
IMGNOF	   393#	  9119
IMGNON	   393#
IMIPGD	   393#
IMLAPD	   393#
INHCSH	   181#
INHPAG	   178#
INXCLR	   393#
INXM	   393#
INXSTP	   393#
IOCLR	   393#
IP50HZ	   393#
IPAREN	   393#
IPARER	   393#
IPRSTP	   393#
IPWRFL	   393#
IPWRLO	   393#
IRQCLR	   393#
ISPDOF	   393#	  9119
ISPDON	   393#
ITERAT	    89#	   439
ITMDIS	   393#
ITMENB	   393#
ITMOEN	   393#
ITMOUT	   393#
ITMSET	   393#
ITRCH1	   499#
ITRCNT	   439#
IWRITE	   393#
JOB41	   393#
JOBAPR	   393#
JOBCNI	   393#
JOBDDT	   393#
JOBFF	   393#
JOBOPC	   393#	  9241
JOBREL	   393#
JOBREN	   393#
JOBSA	   393#
JOBSYM	   393#
JOBTPC	   393#                                                                                                            SEQ 0249
JOBUSY	   393#
JOBUUO	   393#
JOBVER	   393#
KA10	   393
KAHZ50	   186#
KAIFLG	   456#	  9114	  9266
KI10	    60#	    62#	   393	  9113	  9265
KL10	   393
KLFLG	   457#	  4290	  4292	  9128
KLOLD	    61#	   393
KLTYP	   673#
KNTRP	   393#
KTRP	   393#
LAST1	  9101#
LDEXCB	   393#
LDLNK	   197#	   409	   411
LDUSRB	   393#
LFP	   596#
LIP	   393#
LOOPER	   172#	  9246
LUUO	   393#
LUUO1	    44#	   526	   527
LUUO10	    51#	   526	   531
LUUO11	    52#	   526	   531
LUUO12	    53#	   526	   532
LUUO13	    54#	   526	   532
LUUO14	   526	   533
LUUO15	   526	   533
LUUO16	   526	   534
LUUO17	   526	   534
LUUO2	    45#	   526	   528
LUUO20	   526	   535
LUUO21	   526	   535
LUUO22	   526	   536
LUUO23	   526	   536
LUUO24	   526	   537
LUUO25	   526	   537
LUUO26	   526	   538
LUUO27	   526	   538
LUUO3	    46#	   526	   528
LUUO30	   526	   539
LUUO31	   526	   539
LUUO32	   526	   540
LUUO33	   526	   540
LUUO4	    47#	   526	   529
LUUO5	    48#	   526	   529
LUUO6	    49#	   526	   530
LUUO7	    50#	   526	   530
LUUOI	   393#
MAPNEW	   547#
MARGIN	   469#	  9118	  9270	  9271
MCNVER	     3#	    11	    25	   441
MEMLOW	   549#                                                                                                            SEQ 0250
MEMMAP	   447
MEMSIZ	   550#
MEMTOT	   548#
MICNT	  9125#	  9125	  9126	  9143
MINUS	   591#
MODDVC	   180#
MODDVL	   378	   378#	   442
MODDVU	   379	   379#	   443
MODLNK	   199#	   406
MONCTL	   459#	  9144	  9258
MONFLG	   458#
MONTEN	   460#
MPVU	   393#
MUUO	   393#
MUUOPC	   393#
NOPNT	   168#	  9134
NXMU	   393#
OPRSEL	   182#
OPTIME	   561#
P	   225	   226	   227	   228	   393#	   481
PAG	   393#
PALERS	   174#	  9275
PARCLR	   393#
PARDIS	   393#
PAREA0	    82#
PAREA1	    83#	   437
PAREA2	    84#	   438
PAREA3	    85#	   435
PAREA4	    86#	   436
PAREA5	    87#	   448
PAREA6	    88#	   449
PAREA7	   448#
PAREA8	   449#
PARENB	   393#
PARU	   393#
PASCNT	   463#	  9149	  9153
PATCH	  9439#
PDISF	   558#
PDLOVU	   393#
PDOVTP	   393#
PERIOD	   588#
PFSTRT	   415#
PGFTRP	   393#
PGMEND	    63#	  9445
PGMNAM	   440	   721#
PI	  9131
PICHN1	   393#
PICHN2	   393#
PICHN3	   393#
PICHN4	   393#
PICHN5	   393#
PICHN6	   393#
PICHN7	   393#                                                                                                            SEQ 0251
PICHNA	   393#
PICLR	   393#
PIOFF	   393#
PION	   393#
PLIST	   627#	   627
PLISTE	   627	   629#	   713
PLISTS	   628#
PLUS	   593#
PNTENB	   557#
PNTEXT	   436#
PNTFLG	   556#
PNTINH	   559#
PNTLPT	   169#
PNTNAM	   435#
PNTRP	   393#
PNTSPC	   560#
PROCED	  9132#	  9132	  9247	  9254
PTRP	   393#
PVPAGI	   654#
PWFCLR	   393#
QUEST	   599#
RADIX	   602#
RADLSC	   604#
RADLSP	   603#
RANDBS	   437#
REENTR	   417#
RELIAB	   176#
REPT	   393#
REPT1	   393#
REPTU	   515#
REQSET	   393#
RESRT1	   492#
RESRT2	   493#
RETURN	   424#
RSTART	   165#
RTP	   597#
RUNFLG	   464#
SADR1	    68#	   413
SADR10	    77#	   429
SADR11	    78#	   430
SADR2	    69#	   415
SADR3	    70#	   417
SADR4	    71#
SADR5	    72#	   478
SADR6	    73#	   479
SADR7	    74#	   426
SADR8	    75#	   427
SADR9	    76#	   428
SBINIT	   238	   423#
SCOPE	   516#
SENSE1	   393#
SENSE2	   393#
SENSE3	   393#                                                                                                            SEQ 0252
SENSE4	   393#
SENSE5	   393#
SENSE6	   393#
SFSTRT	   413#
SIZ	  4435#	  4440	  4464#	  4469	  4493#	  4498	  4522#	  4528	  4555#	  4561	  4589#	  4596	  4626#	  4665
	  4774#	  4813	  4922#	  4961	  5070#	  5109	  5218#	  5257	  5366#	  5405	  5514#	  5553	  5662#	  5701
	  5810#	  5849	  5958#	  5997	  6106#	  6145	  6254#	  6293	  6398#	  6402	  6407	  6439	  6441	  6457#
	  6461	  6466	  6498	  6500	  6516#	  6520	  6528	  6560	  6562	  6578#	  6594	  6596	  6628	  6630
	  6646#	  6658	  6660	  6698	  6717#	  6729	  6731	  6769	  6788#	  6800	  6802	  6840	  6859#	  6879
	  6881	  6919	  6938#	  6956	  6958	  6991	  6993	  6996	  6998	  7014#	  7036	  7038	  7079	  7085
	  7104#	  7120	  7122	  7124	  7159	  7161	  7177#	  7197	  7199	  7201	  7246	  7265#	  7291	  7317
	  7318	  7322	  7362	  7364	  7436	  7437	  7455#	  7488	  7503	  7505	  7556	  7620	  7622
SLASH	   600#
SMLUSR	   393#
SN	   852#	   868	   868#	   875	   879	   879#	   886	   890	   890#	   897	   901	   901#	   908	   912
	   912#	   919	   923	   923#	   930	  1861#	  1878	  1878#	  1885	  1889	  1889#	  1896	  1900	  1900#
	  1907	  1911	  1911#	  1918	  1922	  1922#	  1929	  1948#	  1967	  1967#	  1975	  1979	  1979#	  1987
	  1991	  1991#	  1999	  2003	  2003#	  2011	  2015	  2015#	  2023	  2043#	  2061	  2061#	  2069	  2073
	  2073#	  2081	  2085	  2085#	  2093	  2097	  2097#	  2105	  2109	  2109#	  2117	  2137#	  2154	  2154#
	  2161	  2165	  2165#	  2172	  2176	  2176#	  2183	  2187	  2187#	  2194	  2198	  2198#	  2205	  2226#
	  2244	  2244#	  2252	  2256	  2256#	  2264	  2268	  2268#	  2276	  2280	  2280#	  2288	  2292	  2292#
	  2300	  2320#	  2336	  2336#	  2343	  2347	  2347#	  2354	  2358	  2358#	  2365	  2369	  2369#	  2376
	  2380	  2380#	  2387	  2407#	  2423	  2423#	  2430	  2434	  2434#	  2441	  2445	  2445#	  2452	  2456
	  2456#	  2463	  2467	  2467#	  2474	  2494#	  2512	  2512#	  2521	  2525	  2525#	  2534	  2538	  2538#
	  2547	  2551	  2551#	  2560	  2564	  2564#	  2573	  2592#	  2615	  2615#	  2626	  2630	  2630#	  2641
	  2645	  2645#	  2656	  2676#	  2692	  2692#	  2699	  2703	  2703#	  2710	  2714	  2714#	  2721	  2725
	  2725#	  2732	  2736	  2736#	  2743	  2762#	  2778	  2778#	  2785	  2789	  2789#	  2796	  2800	  2800#
	  2807	  2811	  2811#	  2818	  2822	  2822#	  2829	  2849#	  2868	  2868#	  2877	  2881	  2881#	  2890
	  2894	  2894#	  2903	  2922#	  2940	  2940#	  2948	  2952	  2952#	  2960	  2964	  2964#	  2972	  2976
	  2976#	  2984	  2988	  2988#	  2996	  3016#	  3034	  3034#	  3042	  3046	  3046#	  3054	  3058	  3058#
	  3066	  3070	  3070#	  3078	  3082	  3082#	  3090	  3126#	  3146	  3146#	  3156	  3160	  3160#	  3170
	  3174	  3174#	  3184	  3188	  3188#	  3198	  3202	  3202#	  3212	  3231#	  3252	  3252#	  3263	  3267
	  3267#	  3278	  3282	  3282#	  3293	  3297	  3297#	  3308	  3312	  3312#	  3323	  3343#	  3363	  3363#
	  3373	  3377	  3377#	  3387	  3391	  3391#	  3401	  3405	  3405#	  3415	  3419	  3419#	  3429	  3447#
	  3466	  3466#	  3475	  3479	  3479#	  3488	  3492	  3492#	  3501	  3505	  3505#	  3514	  3518	  3518#
	  3527	  3542#	  3561	  3561#	  3569	  3571	  3575	  3575#	  3583	  3585	  3594#	  3619	  3619#	  3629
	  3631	  3635	  3639	  3639#	  3649	  3651	  3655	  4432#	  4441	  4441#	  4443	  4444	  4444#	  4446
	  4447	  4447#	  4449	  4461#	  4470	  4470#	  4472	  4473	  4473#	  4475	  4476	  4476#	  4478	  4490#
	  4499	  4499#	  4501	  4502	  4502#	  4504	  4505	  4505#	  4507	  4519#	  4529	  4529#	  4532	  4533
	  4533#	  4536	  4537	  4537#	  4540	  4552#	  4562	  4562#	  4565	  4566	  4566#	  4569	  4570	  4570#
	  4573	  4586#	  4597	  4597#	  4600	  4601	  4601#	  4604	  4605	  4605#	  4608	  4623#	  4667	  4667#
	  4680	  4682	  4682#	  4695	  4697	  4697#	  4710	  4712	  4712#	  4725	  4727	  4727#	  4738	  4742
	  4742#	  4755	  4771#	  4815	  4815#	  4828	  4830	  4830#	  4843	  4845	  4845#	  4858	  4860	  4860#
	  4873	  4875	  4875#	  4886	  4890	  4890#	  4903	  4919#	  4963	  4963#	  4976	  4978	  4978#	  4991
	  4993	  4993#	  5006	  5008	  5008#	  5021	  5023	  5023#	  5034	  5038	  5038#	  5051	  5067#	  5111
	  5111#	  5124	  5126	  5126#	  5139	  5141	  5141#	  5154	  5156	  5156#	  5163	  5171	  5171#	  5176
	  5186	  5186#	  5193	  5215#	  5259	  5259#	  5272	  5274	  5274#	  5287	  5289	  5289#	  5302	  5304
	  5304#	  5311	  5319	  5319#	  5324	  5334	  5334#	  5341	  5363#	  5407	  5407#	  5420	  5422	  5422#
	  5435	  5437	  5437#	  5450	  5452	  5452#	  5459	  5467	  5467#	  5472	  5482	  5482#	  5489	  5511#
	  5555	  5555#	  5562	  5570	  5570#	  5577	  5585	  5585#	  5592	  5600	  5600#	  5607	  5615	  5615#
	  5620	  5630	  5630#	  5637	  5659#	  5703	  5703#	  5710	  5718	  5718#	  5725	  5733	  5733#	  5740
	  5748	  5748#	  5755	  5763	  5763#	  5768	  5778	  5778#	  5785	  5807#	  5851	  5851#	  5858	  5866
	  5866#	  5873	  5881	  5881#	  5888	  5896	  5896#	  5903	  5911	  5911#	  5916	  5926	  5926#	  5933     SEQ 0253
	  5955#	  5999	  5999#	  6006	  6014	  6014#	  6021	  6029	  6029#	  6036	  6044	  6044#	  6057	  6059
	  6059#	  6070	  6074	  6074#	  6087	  6103#	  6147	  6147#	  6154	  6162	  6162#	  6169	  6177	  6177#
	  6184	  6192	  6192#	  6205	  6207	  6207#	  6218	  6222	  6222#	  6235	  6251#	  6295	  6295#	  6302
	  6310	  6310#	  6317	  6325	  6325#	  6332	  6340	  6340#	  6353	  6355	  6355#	  6366	  6370	  6370#
	  6383	  6395#	  6408	  6408#	  6411	  6413	  6413#	  6416	  6418	  6418#	  6421	  6423	  6423#	  6426
	  6428	  6428#	  6431	  6433	  6433#	  6436	  6438	  6438#	  6441	  6454#	  6467	  6467#	  6470	  6472
	  6472#	  6475	  6477	  6477#	  6480	  6482	  6482#	  6485	  6487	  6487#	  6490	  6492	  6492#	  6495
	  6497	  6497#	  6500	  6513#	  6529	  6529#	  6532	  6534	  6534#	  6537	  6539	  6539#	  6542	  6544
	  6544#	  6547	  6549	  6549#	  6552	  6554	  6554#	  6557	  6559	  6559#	  6562	  6575#	  6597	  6597#
	  6600	  6602	  6602#	  6605	  6607	  6607#	  6610	  6612	  6612#	  6615	  6617	  6617#	  6620	  6622
	  6622#	  6625	  6627	  6627#	  6630	  6643#	  6661	  6661#	  6665	  6667	  6667#	  6671	  6673	  6673#
	  6677	  6679	  6679#	  6683	  6685	  6685#	  6689	  6691	  6691#	  6695	  6697	  6697#	  6701	  6714#
	  6732	  6732#	  6736	  6738	  6738#	  6742	  6744	  6744#	  6748	  6750	  6750#	  6754	  6756	  6756#
	  6760	  6762	  6762#	  6766	  6768	  6768#	  6772	  6785#	  6803	  6803#	  6807	  6809	  6809#	  6813
	  6815	  6815#	  6819	  6821	  6821#	  6825	  6827	  6827#	  6831	  6833	  6833#	  6837	  6839	  6839#
	  6843	  6856#	  6882	  6882#	  6886	  6888	  6888#	  6892	  6894	  6894#	  6898	  6900	  6900#	  6904
	  6906	  6906#	  6910	  6912	  6912#	  6916	  6918	  6918#	  6922	  6935#	  6959	  6959#	  6962	  6964
	  6964#	  6967	  6969	  6969#	  6972	  6974	  6974#	  6977	  6980	  6980#	  6983	  6985	  6985#	  6988
	  6990	  6990#	  6993	  6995	  6995#	  6998	  7011#	  7042	  7042#	  7046	  7048	  7048#	  7052	  7054
	  7054#	  7058	  7060	  7060#	  7064	  7066	  7066#	  7070	  7072	  7072#	  7076	  7078	  7078#	  7082
	  7084	  7084#	  7088	  7101#	  7125	  7125#	  7128	  7130	  7130#	  7132	  7133	  7133#	  7136	  7138
	  7138#	  7141	  7143	  7143#	  7146	  7148	  7148#	  7151	  7153	  7153#	  7156	  7158	  7158#	  7161
	  7174#	  7205	  7205#	  7209	  7211	  7211#	  7214	  7215	  7215#	  7219	  7221	  7221#	  7225	  7227
	  7227#	  7231	  7233	  7233#	  7237	  7239	  7239#	  7243	  7245	  7245#	  7249	  7262#	  7326	  7326#
	  7329	  7331	  7331#	  7333	  7334	  7334#	  7336	  7337	  7337#	  7339	  7340	  7340#	  7342	  7343
	  7343#	  7345	  7346	  7346#	  7348	  7349	  7349#	  7351	  7352	  7352#	  7354	  7355	  7355#	  7357
	  7358	  7358#	  7360	  7361	  7361#	  7364	  7369	  7369#	  7373	  7375	  7375#	  7379	  7381	  7381#
	  7385	  7387	  7387#	  7391	  7393	  7393#	  7397	  7399	  7399#	  7403	  7405	  7405#	  7409	  7411
	  7411#	  7415	  7417	  7417#	  7421	  7423	  7423#	  7427	  7429	  7429#	  7433	  7435	  7435#	  7439
	  7452#	  7509	  7509#	  7513	  7515	  7515#	  7518	  7519	  7519#	  7522	  7523	  7523#	  7526	  7527
	  7527#	  7530	  7531	  7531#	  7534	  7535	  7535#	  7538	  7539	  7539#	  7542	  7543	  7543#	  7546
	  7547	  7547#	  7550	  7551	  7551#	  7554	  7555	  7555#	  7559	  7564	  7564#	  7567	  7569	  7569#
	  7572	  7574	  7574#	  7577	  7579	  7579#	  7582	  7584	  7584#	  7587	  7589	  7589#	  7592	  7594
	  7594#	  7597	  7599	  7599#	  7602	  7604	  7604#	  7607	  7609	  7609#	  7612	  7614	  7614#	  7617
	  7619	  7619#	  7622	  7634#	  7655	  7655#	  7657	  7658	  7658#	  7661	  7662	  7662#	  7665	  7666
	  7666#	  7669	  7670	  7670#	  7673	  7674	  7674#	  7677	  7678	  7678#	  7681	  7688#	  7717	  7717#
	  7729	  7731	  7733	  7740	  7740#	  7752	  7754	  7756	  7763	  7763#	  7775	  7777	  7779	  7786
	  7786#	  7798	  7800	  7802	  7809	  7809#	  7821	  7823	  7825	  7832	  7832#	  7844	  7846	  7848
	  7855	  7855#	  7867	  7869	  7871	  7878	  7878#	  7890	  7892	  7894	  7901	  7901#	  7913	  7915
	  7917	  7924	  7924#	  7936	  7938	  7940	  7947	  7947#	  7959	  7961	  7963	  7970	  7970#	  7982
	  7984	  7986	  7993	  7993#	  8005	  8007	  8009	  8031#	  8059	  8059#	  8066	  8068	  8070	  8078
	  8078#	  8085	  8087	  8089	  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#	  8332	  8334	  8336	  8344
	  8344#	  8351	  8353	  8355	  8363	  8363#	  8370	  8372	  8374	  8382	  8382#	  8389	  8391	  8393
	  8397#	  8424	  8424#	  8431	  8433	  8435	  8443	  8443#	  8450	  8452	  8454	  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     SEQ 0254
	  8737	  8739	  8747	  8747#	  8754	  8756	  8758	  8765#	  8793	  8793#	  8805	  8807	  8809	  8817
	  8817#	  8829	  8831	  8833	  8841	  8841#	  8853	  8855	  8857	  8865	  8865#	  8877	  8879	  8881
	  8889	  8889#	  8901	  8903	  8905	  8913	  8913#	  8925	  8927	  8929	  8937	  8937#	  8949	  8951
	  8953	  8961	  8961#	  8973	  8975	  8977	  8985	  8985#	  8997	  8999	  9001	  9009	  9009#	  9021
	  9023	  9025	  9033	  9033#	  9045	  9047	  9049	  9057	  9057#	  9069	  9071	  9073	  9081	  9081#
	  9093	  9095	  9097
SNTRP	   393#
SPACE	   589#
SPDES	  3627	  3633	  3647	  3653	  4421	  7692	  8017	  9219#
SRCE	  4433#	  4437	  4438	  4439	  4462#	  4466	  4467	  4468	  4491#	  4495	  4496	  4497	  4520#	  4524
	  4525	  4526	  4527	  4553#	  4557	  4558	  4559	  4560	  4587#	  4591	  4592	  4594	  4595	  4624#
	  4628	  4630	  4631	  4632	  4636	  4637	  4638	  4642	  4643	  4644	  4668	  4675	  4676	  4680
	  4683	  4690	  4691	  4695	  4698	  4705	  4706	  4710	  4772#	  4776	  4778	  4779	  4780	  4784
	  4785	  4786	  4790	  4791	  4792	  4816	  4823	  4824	  4828	  4831	  4838	  4839	  4843	  4846
	  4853	  4854	  4858	  4920#	  4924	  4926	  4927	  4928	  4932	  4933	  4934	  4938	  4939	  4940
	  4964	  4971	  4972	  4976	  4979	  4986	  4987	  4991	  4994	  5001	  5002	  5006	  5068#	  5072
	  5074	  5075	  5076	  5080	  5081	  5082	  5086	  5087	  5088	  5112	  5119	  5120	  5124	  5127
	  5134	  5135	  5139	  5142	  5149	  5150	  5154	  5216#	  5220	  5222	  5223	  5224	  5228	  5229
	  5230	  5234	  5235	  5236	  5260	  5267	  5268	  5272	  5275	  5282	  5283	  5287	  5290	  5297
	  5298	  5302	  5364#	  5368	  5370	  5371	  5372	  5376	  5377	  5378	  5382	  5383	  5384	  5408
	  5415	  5416	  5420	  5423	  5430	  5431	  5435	  5438	  5445	  5446	  5450	  5512#	  5516	  5518
	  5520	  5522	  5524	  5526	  5528	  5530	  5532	  5534	  5556	  5557	  5563	  5571	  5572	  5578
	  5586	  5587	  5593	  5660#	  5664	  5666	  5668	  5670	  5672	  5674	  5676	  5678	  5680	  5682
	  5704	  5705	  5711	  5719	  5720	  5726	  5734	  5735	  5741	  5808#	  5812	  5814	  5816	  5818
	  5820	  5822	  5824	  5826	  5828	  5830	  5852	  5853	  5859	  5867	  5868	  5874	  5882	  5883
	  5889	  5956#	  5960	  5962	  5964	  5966	  5968	  5970	  5972	  5974	  5976	  5978	  6000	  6001
	  6007	  6015	  6016	  6022	  6030	  6031	  6037	  6104#	  6108	  6110	  6112	  6114	  6116	  6118
	  6120	  6122	  6124	  6126	  6148	  6149	  6155	  6163	  6164	  6170	  6178	  6179	  6185	  6252#
	  6256	  6258	  6260	  6262	  6264	  6266	  6268	  6270	  6272	  6274	  6296	  6297	  6303	  6311
	  6312	  6318	  6326	  6327	  6333	  6396#	  6400	  6402	  6404	  6405	  6406	  6455#	  6459	  6461
	  6463	  6464	  6465	  6514#	  6518	  6520	  6522	  6524	  6525	  6526	  6527	  6576#	  6580	  6582
	  6584	  6586	  6588	  6590	  6592	  6594	  6644#	  6648	  6650	  6652	  6654	  6655	  6656	  6657
	  6658	  6715#	  6719	  6721	  6723	  6725	  6726	  6727	  6728	  6729	  6786#	  6790	  6792	  6795
	  6796	  6797	  6798	  6799	  6800	  6857#	  6861	  6864	  6867	  6869	  6872	  6874	  6877	  6879
	  6936#	  6940	  6946	  6948	  6950	  6952	  6954	  6956	  6996	  6998	  7012#	  7016	  7024	  7026
	  7029	  7031	  7034	  7036	  7085	  7102#	  7106	  7108	  7110	  7112	  7114	  7116	  7118	  7120
	  7126	  7128	  7131	  7132	  7175#	  7179	  7182	  7185	  7187	  7190	  7192	  7195	  7197	  7206
	  7212	  7263#	  7267	  7269	  7271	  7273	  7275	  7277	  7279	  7281	  7283	  7285	  7287	  7289
	  7291	  7327	  7329	  7332	  7333	  7335	  7336	  7338	  7339	  7341	  7342	  7344	  7345	  7347
	  7348	  7350	  7351	  7353	  7354	  7356	  7357	  7359	  7360	  7362	  7364	  7453#	  7457	  7460
	  7463	  7465	  7468	  7470	  7473	  7476	  7478	  7481	  7484	  7486	  7488	  7510	  7516	  7520
	  7524	  7528	  7532	  7536	  7540	  7544	  7548	  7552	  7556
SRTDDT	   419#
START	   407	   737#
START1	   426#
START2	   427#
START3	   428#
START4	   429#
START5	   430#
STARTA	   422	   741#
STRP	   393#
SUBLNK	   200#	   423
SWTEXR	   438#                                                                                                            SEQ 0255
SYSEXR	   411#
TAB	   590#
TESTPC	   465#	   764	   788	   807	   825	   848	   936	   985	  1007	  1028	  1097	  1121	  1170	  1191
	  1215	  1236	  1255	  1277	  1340	  1359	  1382	  1403	  1430	  1457	  1481	  1505	  1529	  1552
	  1579	  1602	  1626	  1651	  1676	  1700	  1725	  1749	  1772	  1796	  1828	  1857	  1944	  2039
	  2133	  2222	  2316	  2403	  2490	  2588	  2672	  2758	  2845	  2918	  3012	  3122	  3227	  3339
	  3443	  3538	  3664	  3701	  3719	  3740	  3766	  3794	  3821	  3850	  3878	  3903	  3933	  3964
	  3991	  4018	  4045	  4074	  4103	  4132	  4161	  4192	  4215	  4237	  4260	  4282	  4306	  4331
	  4355	  4381	  4407	  4429	  4458	  4487	  4516	  4549	  4583	  4620	  4768	  4916	  5064	  5212
	  5360	  5508	  5656	  5804	  5952	  6100	  6248	  6391	  6450	  6509	  6571	  6639	  6710	  6781
	  6852	  6931	  7007	  7097	  7170	  7258	  7448	  7631	  7721	  7744	  7767	  7790	  7813	  7836
	  7859	  7882	  7905	  7928	  7951	  7974	  7997	  8797	  8821	  8845	  8869	  8893	  8917	  8941
	  8965	  8989	  9013	  9037	  9061	  9085
TICKS	   468#
TLET	   739	  9193	  9216#
TN0	   393#
TN1	   393#
TOTALS	   166#
TRP3TP	   393#
TRPENB	   393#
TTNBRF	   648#
TTYFIL	   564#
TTYSPD	   565#
TXTINH	   177#	  9177
UOLIP	   393#
UOUSR	   393#
USER	   455#	  9116	  9129	  9268
USERF	   393#
USRASB	    59#	   445
USRCMP	   393#
USRCRF	   574#
USRLFF	   573#
USRPFW	   393#
UUODIS	   527#
UUOEXT	   483#	  9272
UUORTN	   484#
UUOSKP	   481#
VV	  2593#	  2616	  2616#	  2620	  2631	  2631#	  2635	  2646	  2646#	  2650
WW	  1950#	  1969	  1969#	  1971	  1981	  1981#	  1983	  1993	  1993#	  1995	  2005	  2005#	  2007	  2017
	  2017#	  2019	  2594#	  2617	  2617#	  2620	  2621	  2632	  2632#	  2635	  2636	  2647	  2647#	  2650
	  2651
XX	  1862#	  1879	  1879#	  1881	  1890	  1890#	  1892	  1901	  1901#	  1903	  1912	  1912#	  1914	  1923
	  1923#	  1925	  1949#	  1968	  1968#	  1971	  1980	  1980#	  1983	  1992	  1992#	  1995	  2004	  2004#
	  2007	  2016	  2016#	  2019	  2044#	  2062	  2062#	  2064	  2074	  2074#	  2076	  2086	  2086#	  2088
	  2098	  2098#	  2100	  2110	  2110#	  2112	  2138#	  2155	  2155#	  2157	  2166	  2166#	  2168	  2177
	  2177#	  2179	  2188	  2188#	  2190	  2199	  2199#	  2201	  2227#	  2245	  2245#	  2249	  2257	  2257#
	  2261	  2269	  2269#	  2273	  2281	  2281#	  2285	  2293	  2293#	  2297	  2595#	  2618	  2618#	  2621
	  2622	  2623	  2625	  2633	  2633#	  2636	  2637	  2638	  2640	  2648	  2648#	  2651	  2652	  2653
	  2655	  2850#	  2869	  2869#	  2873	  2874	  2876	  2882	  2882#	  2886	  2887	  2889	  2895	  2895#
	  2899	  2900	  2902	  2923#	  2941	  2941#	  2943	  2953	  2953#	  2955	  2965	  2965#	  2967	  2977
	  2977#	  2979	  2989	  2989#	  2991	  3017#	  3035	  3035#	  3037	  3047	  3047#	  3049	  3059	  3059#
	  3061	  3071	  3071#	  3073	  3083	  3083#	  3085	  3101#	  3103	  3127#	  3147	  3147#	  3150	  3161
	  3161#	  3164	  3175	  3175#	  3178	  3189	  3189#	  3192	  3203	  3203#	  3206	  3232#	  3253	  3253#    SEQ 0256
	  3257	  3268	  3268#	  3272	  3283	  3283#	  3287	  3298	  3298#	  3302	  3313	  3313#	  3317	  3344#
	  3364	  3364#	  3367	  3378	  3378#	  3381	  3392	  3392#	  3395	  3406	  3406#	  3409	  3420	  3420#
	  3423	  3543#	  3562	  3562#	  3566	  3570	  3576	  3576#	  3580	  3584	  3595#	  3620	  3620#	  3624
	  3640	  3640#	  3644	  8032#	  8060	  8060#	  8062	  8079	  8079#	  8081	  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	  8398#	  8425	  8425#	  8427	  8444	  8444#	  8446	  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
YY	   854#	   870	   870#	   871	   881	   881#	   882	   892	   892#	   893	   903	   903#	   904	   914
	   914#	   915	   925	   925#	   926
ZZ	   853#	   869	   869#	   871	   872	   880	   880#	   882	   883	   891	   891#	   893	   894	   902
	   902#	   904	   905	   913	   913#	   915	   916	   924	   924#	   926	   927	  1863#	  1880	  1880#
	  1882	  1891	  1891#	  1893	  1902	  1902#	  1904	  1913	  1913#	  1915	  1924	  1924#	  1926	  1951#
	  1970	  1970#	  1972	  1982	  1982#	  1984	  1994	  1994#	  1996	  2006	  2006#	  2008	  2018	  2018#
	  2020	  2045#	  2063	  2063#	  2064	  2066	  2075	  2075#	  2076	  2078	  2087	  2087#	  2088	  2090
	  2099	  2099#	  2100	  2102	  2111	  2111#	  2112	  2114	  2139#	  2156	  2156#	  2160	  2167	  2167#
	  2171	  2178	  2178#	  2182	  2189	  2189#	  2193	  2200	  2200#	  2204	  2228#	  2246	  2246#	  2247
	  2258	  2258#	  2259	  2270	  2270#	  2271	  2282	  2282#	  2283	  2294	  2294#	  2295	  2321#	  2337
	  2337#	  2339	  2340	  2342	  2348	  2348#	  2350	  2351	  2353	  2359	  2359#	  2361	  2362	  2364
	  2370	  2370#	  2372	  2373	  2375	  2381	  2381#	  2383	  2384	  2386	  2408#	  2424	  2424#	  2426
	  2427	  2428	  2429	  2435	  2435#	  2437	  2438	  2439	  2440	  2446	  2446#	  2448	  2449	  2450
	  2451	  2457	  2457#	  2459	  2460	  2461	  2462	  2468	  2468#	  2470	  2471	  2472	  2473	  2495#
	  2513	  2513#	  2515	  2516	  2517	  2520	  2526	  2526#	  2528	  2529	  2530	  2533	  2539	  2539#
	  2541	  2542	  2543	  2546	  2552	  2552#	  2554	  2555	  2556	  2559	  2565	  2565#	  2567	  2568
	  2569	  2572	  2596#	  2619	  2619#	  2624	  2634	  2634#	  2639	  2649	  2649#	  2654	  2677#	  2693
	  2693#	  2695	  2696	  2698	  2704	  2704#	  2706	  2707	  2709	  2715	  2715#	  2717	  2718	  2720
	  2726	  2726#	  2728	  2729	  2731	  2737	  2737#	  2739	  2740	  2742	  2763#	  2779	  2779#	  2781
	  2782	  2784	  2790	  2790#	  2792	  2793	  2795	  2801	  2801#	  2803	  2804	  2806	  2812	  2812#
	  2814	  2815	  2817	  2823	  2823#	  2825	  2826	  2828	  2851#	  2870	  2870#	  2872	  2873	  2883
	  2883#	  2885	  2886	  2896	  2896#	  2898	  2899	  2924#	  2942	  2942#	  2945	  2954	  2954#	  2957
	  2966	  2966#	  2969	  2978	  2978#	  2981	  2990	  2990#	  2993	  3018#	  3036	  3036#	  3039	  3048
	  3048#	  3051	  3060	  3060#	  3063	  3072	  3072#	  3075	  3084	  3084#	  3087	  3128#	  3148	  3148#
	  3151	  3162	  3162#	  3165	  3176	  3176#	  3179	  3190	  3190#	  3193	  3204	  3204#	  3207	  3233#
	  3254	  3254#	  3255	  3255#	  3258	  3269	  3269#	  3270	  3273	  3284	  3284#	  3285	  3288	  3299
	  3299#	  3300	  3303	  3314	  3314#	  3315	  3318	  3345#	  3365	  3365#	  3368	  3379	  3379#	  3382
	  3393	  3393#	  3396	  3407	  3407#	  3410	  3421	  3421#	  3424	  3448#	  3467	  3467#	  3470	  3480
	  3480#	  3483	  3493	  3493#	  3496	  3506	  3506#	  3509	  3519	  3519#	  3522	  8033#	  8061	  8061#
	  8069	  8080	  8080#	  8088	  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	  8426	  8426#	  8434	  8445
	  8445#	  8453	  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
$$MUUO	   679#
$$OUTE	   685#
$$TAX1	   697#
$$TAX2	   698#                                                                                                            SEQ 0257
$$TOGG	   691#
$$UUO	   668#
$ACC0	   506#
$ACF	  9220#
$BEND1	   476#
$BEND2	   477#	  9262
$CHRIN	   567#
$CRLF	   569#
$DEVCH	   393#
$DSKUP	   446#
$DVCH1	   393#
$DVOFF	   563#
$EMODE	   444#
$ENDFX	   713#	   714
$FFF	   571#
$IBUF	   619#
$INEXT	   621#
$INNM	   620#
$ITRHL	   487#
$ITRX1	   488#
$LPAPE	  9283
$MMAP	   447#
$MODVL	   442#
$MODVU	   443#
$OBUF	   610#
$ONETM	   470#
$OUTEX	   612#
$OUTNM	   611#
$PAPER	   393
$PARER	   494#
$PNAME	   440#
$PSHER	   498#
$PVER	   441#
$RSRTX	   490#
$RSRTY	   491#
$SPAG1	   510#
$START	   407#
$SVAPR	   508#
$SVPAG	   509#
$SVPI	   507#
$SVUPC	   513#	  9123	  9127	  9157
$SVUUO	   512#	  9136	  9168	  9196
$TABF	   570#
$TTCHR	   566#
$TWCNT	   562#
$TYPNB	   568#
$UMODE	   445#
$UORTX	   485#
$USRHL	   489#
$UUOER	   486#	   527
$VTF	   572#
%AC1F	  9221#
%ACS1A	  9138#	  9138	  9182                                                                                             SEQ 0258
%ACTFL	   519#
%ACTUL	   520#
%ALF	  9226#
%AR1F	  9225#
%ARF	  9224#
%COREC	   518#
%CORFL	   517#
%DISCR	   521#
%E1F	  9223#
%EEF	  9227#
%EF	  9222#
%ER4X	  9202	  9207#
%ER5X	  9200	  9209#
%ER6X	  9198	  9211#
%ER7X	  9204#	  9208	  9210	  9212
%ERAC0	  9112#	  9112	  9139	  9173	  9264
%ERAC1	  9120#	  9120	  9140	  9252
%ERAC2	  9121#	  9121	  9251
%ERFST	  9146#	  9146	  9148
%ERHI1	   660#
%ERHI2	   661#
%ERHI3	   662#
%ERMOR	  9178	  9205	  9234#
%ERMS1	  9143#	  9277
%ERMS2	  9166#
%ERMS3	  9184	  9191#
%ERRS1	  9135	  9238#	  9276
%ERRS2	  9251#
%ERRS4	  9142	  9274#
%ERRS5	  9255	  9259	  9264#
%FF	  9228#
%FLTTB	  9186	  9217#
%NODES	  9218#
.JB41	   393#
.JBAPR	   393#
.JBCNI	   393#
.JBDDT	   393#
.JBFF	   393#
.JBOPC	   393#
.JBREL	   393#
.JBREN	   393#
.JBSA	   393#
.JBSYM	   393#
.JBTPC	   393#
.JBUSY	   393#
.JBUUO	   393#
.JBVER	   393#

BLTM1	   127#	  4612	  4760	  4908	  5056	  5204	  5352	  5500	  5648	  5796	  5944	  6092	  6240
CFLUSH	   349#                                                                                                            SEQ 0259
CINVAL	   348#
CLOKOP	   343#
CWRTBI	   350#
DROPDV	   310#	   718
ENDUUO	   356#	   475
EOPUUO	   357#	   477
ER1	    32#
ER10	    39#
ER11	    40#
ER12	    41#	   797	  1611	  1661	  1686	  1711	  1735	  1759	  1782	  1840	  3156	  3170	  3184	  3198
	  3212	  3263	  3278	  3293	  3308	  3323	  3373	  3387	  3401	  3415	  3429	  3475	  3488	  3501
	  3514	  3527	  3631	  3651	  3691	  3757	  3785	  3812	  3839	  3868	  3894	  3924	  3953	  3981
	  4009	  4036	  4063	  4093	  4123	  4152	  4182	  4206	  4229	  4251	  4274	  4299	  4323	  4348
	  4373	  4399
ER13	    42#	  1806	  3679	  3693
ER2	    33#	  3629	  3635	  3649	  3655	  4443	  4446	  4449	  4472	  4475	  4478	  4501	  4504	  4507
	  4532	  4536	  4540	  4565	  4569	  4573	  4600	  4604	  4608	  4680	  4695	  4710	  4725	  4738
	  4755	  4828	  4843	  4858	  4873	  4886	  4903	  4976	  4991	  5006	  5021	  5034	  5051	  5124
	  5139	  5154	  5163	  5176	  5193	  5272	  5287	  5302	  5311	  5324	  5341	  5420	  5435	  5450
	  5459	  5472	  5489	  5562	  5577	  5592	  5607	  5620	  5637	  5710	  5725	  5740	  5755	  5768
	  5785	  5858	  5873	  5888	  5903	  5916	  5933	  6006	  6021	  6036	  6057	  6070	  6087	  6154
	  6169	  6184	  6205	  6218	  6235	  6302	  6317	  6332	  6353	  6366	  6383	  6411	  6416	  6421
	  6426	  6431	  6436	  6441	  6470	  6475	  6480	  6485	  6490	  6495	  6500	  6532	  6537	  6542
	  6547	  6552	  6557	  6562	  6600	  6605	  6610	  6615	  6620	  6625	  6630	  6665	  6671	  6677
	  6683	  6689	  6695	  6701	  6736	  6742	  6748	  6754	  6760	  6766	  6772	  6807	  6813	  6819
	  6825	  6831	  6837	  6843	  6886	  6892	  6898	  6904	  6910	  6916	  6922	  6962	  6967	  6972
	  6977	  6983	  6988	  6993	  6998	  7046	  7052	  7058	  7064	  7070	  7076	  7082	  7088	  7128
	  7132	  7136	  7141	  7146	  7151	  7156	  7161	  7209	  7214	  7219	  7225	  7231	  7237	  7243
	  7249	  7329	  7333	  7336	  7339	  7342	  7345	  7348	  7351	  7354	  7357	  7360	  7364	  7373
	  7379	  7385	  7391	  7397	  7403	  7409	  7415	  7421	  7427	  7433	  7439	  7513	  7518	  7522
	  7526	  7530	  7534	  7538	  7542	  7546	  7550	  7554	  7559	  7567	  7572	  7577	  7582	  7587
	  7592	  7597	  7602	  7607	  7612	  7617	  7622	  7657	  7661	  7665	  7669	  7673	  7677	  7681
	  7729	  7752	  7775	  7798	  7821	  7844	  7867	  7890	  7913	  7936	  7959	  7982	  8005	  8021
	  8066	  8085	  8104	  8123	  8142	  8161	  8180	  8199	  8218	  8237	  8256	  8275	  8294	  8313
	  8332	  8351	  8370	  8389	  8431	  8450	  8469	  8488	  8507	  8526	  8545	  8564	  8583	  8602
	  8621	  8640	  8659	  8678	  8697	  8716	  8735	  8754	  8805	  8829	  8853	  8877	  8901	  8925
	  8949	  8973	  8997	  9021	  9045	  9069	  9093
ER3	    34#	   773	  1225	  1245	  1263	  1286	  1295	  1304	  1313	  1321	  1330	  1349	  1368	  1390
	  1412	  1440	  1467	  1492	  1516	  1541	  1564	  1635	  2161	  2172	  2183	  2194	  2205	  2252
	  2264	  2276	  2288	  2300	  2343	  2354	  2365	  2376	  2387	  2430	  2441	  2452	  2463	  2474
	  2521	  2534	  2547	  2560	  2573	  2626	  2641	  2656	  2699	  2710	  2721	  2732	  2743	  2785
	  2796	  2807	  2818	  2829	  2877	  2890	  2903	  2948	  2960	  2972	  2984	  2996	  3042	  3054
	  3066	  3078	  3090	  3108	  3569	  3583	  3675	  3755	  3782	  3810	  3841	  3866	  3922	  3955
	  3979	  4006	  4034	  4065	  4091	  4120	  4150	  4184	  4202	  4225	  4247	  4270	  4295	  4319
	  4344	  4369	  4395	  7731	  7754	  7777	  7800	  7823	  7846	  7869	  7892	  7915	  7938	  7961
	  7984	  8007	  8023	  8068	  8087	  8106	  8125	  8144	  8163	  8182	  8201	  8220	  8239	  8258
	  8277	  8296	  8315	  8334	  8353	  8372	  8391	  8433	  8452	  8471	  8490	  8509	  8528	  8547
	  8566	  8585	  8604	  8623	  8642	  8661	  8680	  8699	  8718	  8737	  8756	  8807	  8831	  8855
	  8879	  8903	  8927	  8951	  8975	  8999	  9023	  9047	  9071	  9095
ER4	    35#	  1587	  3571	  3585	  3677	  3689	  7733	  7756	  7779	  7802	  7825	  7848	  7871	  7894
	  7917	  7940	  7963	  7986	  8009	  8025	  8070	  8089	  8108	  8127	  8146	  8165	  8184	  8203
	  8222	  8241	  8260	  8279	  8298	  8317	  8336	  8355	  8374	  8393	  8435	  8454	  8473	  8492
	  8511	  8530	  8549	  8568	  8587	  8606	  8625	  8644	  8663	  8682	  8701	  8720	  8739	  8758     SEQ 0260
	  8809	  8833	  8857	  8881	  8905	  8929	  8953	  8977	  9001	  9025	  9049	  9073	  9097
ER5	    36#	   815	   833	   875	   886	   897	   908	   919	   930	   945	   953	   960	   968	   976
	   994	  1016	  1037	  1046	  1055	  1064	  1073	  1081	  1106	  1131	  1140	  1149	  1158	  1179
	  1201	  1613	  1637	  1838	  1885	  1896	  1907	  1918	  1929	  1975	  1987	  1999	  2011	  2023
	  2069	  2081	  2093	  2105	  2117	  3710	  3731	  3753	  3780	  3808	  3836	  3864	  3920	  3950
	  3977	  4004	  4032	  4060	  4089	  4118	  4148	  4179	  4204	  4227	  4249	  4272	  4297	  4321
	  4346	  4371	  4397	  4416
ER6	    37#
ER7	    38#
ERRHLT	   245#	  9245
FATAL	   244#
FRD36	   385#
FRD8	   386#
FREAD	   384#
FSELEC	   383#
GCAM	   112#	  4666	  4681	  4696	  4711	  4726	  4741	  4814	  4829	  4844	  4859	  4874	  4889	  4962
	  4977	  4992	  5007	  5022	  5037	  5110	  5125	  5140	  5155	  5170	  5185	  5258	  5273	  5288
	  5303	  5318	  5333	  5406	  5421	  5436	  5451	  5466	  5481	  5554	  5569	  5584	  5599	  5614
	  5629	  5702	  5717	  5732	  5747	  5762	  5777	  5850	  5865	  5880	  5895	  5910	  5925	  5998
	  6013	  6028	  6043	  6058	  6073	  6146	  6161	  6176	  6191	  6206	  6221	  6294	  6309	  6324
	  6339	  6354	  6369
GET	   228#
GMOV	   105#	  4629	  4635	  4641	  4647	  4653	  4659	  4777	  4783	  4789	  4795	  4801	  4807	  4925
	  4931	  4937	  4943	  4949	  4955	  5073	  5079	  5085	  5091	  5097	  5103	  5221	  5227	  5233
	  5239	  5245	  5251	  5369	  5375	  5381	  5387	  5393	  5399	  5517	  5523	  5529	  5535	  5541
	  5547	  5665	  5671	  5677	  5683	  5689	  5695	  5813	  5819	  5825	  5831	  5837	  5843	  5961
	  5967	  5973	  5979	  5985	  5991	  6109	  6115	  6121	  6127	  6133	  6139	  6257	  6263	  6269
	  6275	  6281	  6287
GO	   225#
HALT	   230#	   496
JEN	   232#
JRSTF	   231#	  3671	  3685	  3704	  3722	  3743	  3769	  3797	  3824	  3853	  3881	  3907	  3936	  3967
	  3994	  4021	  4048	  4077	  4106	  4135	  4164	  4195	  4218	  4240	  4263	  4285	  4309	  4334
	  4358	  4384	  4410
MAPADR	   366#
MAPCNK	   367#
MAPMEM	   363#
MAPPNT	   369#
MAPSET	   368#
MEMSEG	   365#
MEMZRO	   364#
MODPCP	   376#
MODPCU	   375#
MTROP	   344#
NAME	     8#	    11
PBELL	   319#	  9249
PCRL	   313#	  9185	  9204
PCRL2	   317#
PCRL2F	   318#
PCRLF	   314#
PFORCE	   321#
PGMINT	   238#	   737
PJRST	   229#                                                                                                            SEQ 0261
PMSG	   323#	  9151	  9155	  9166	  9191
PMSGF	   326#
PNT1	   279#
PNT11	   293#
PNT11F	   294#
PNT1F	   280#
PNT2	   281#
PNT2F	   282#
PNT3	   283#	  9203
PNT3F	   284#
PNT4	   285#	  9207
PNT4F	   286#
PNT5	   287#	  9209
PNT5F	   288#
PNT6	   289#	  9159	  9211
PNT6F	   290#
PNT7	   291#
PNT7F	   292#
PNTA	   265#	  9194
PNTADF	   296#
PNTADR	   295#
PNTAF	   266#
PNTAL	   267#	  9187
PNTALF	   268#
PNTCHF	   278#
PNTCHR	   277#
PNTCI	   275#
PNTCIF	   276#
PNTCW	   311#
PNTCWF	   312#
PNTDCF	   304#
PNTDEC	   303#	  9154
PNTDS	   305#
PNTDSF	   306#
PNTHW	   299#	  9174
PNTHWF	   300#
PNTMGN	   390#	  9235
PNTMSF	   272#
PNTMSG	   271#
PNTNM	   307#	  9147
PNTOCF	   302#
PNTOCS	   301#
PNTOCT	   297#
PNTOTF	   298#
PNTSIX	   308#
PNTSXF	   309#
PSIXL	   269#
PSIXLF	   270#
PSIXM	   273#	  9152	  9156	  9167	  9192
PSIXMF	   274#
PSP	   315#
PSPF	   316#
PUT	   227#                                                                                                            SEQ 0262
RTN	   226#	   483
S	   156#	   158	   162	   191	   193	   202	   205	   220	   221	   223	   234	   236	   240	   242
	   247	   251	   393	   398	   404	   431	   433	   451	   453	   471	   473	   502	   504	   522
	   524	   542	   544	   552	   554	   575	   580	   606	   608	   615	   617	   623	   625	   631
	   633	   637	   639	   644	   646	   650	   652	   656	   658	   664	   666	   669	   671	   675
	   677	   681	   683	   687	   689	   693	   695	   700	   705	   709	   711
SAVEAC	    93#	   762	   786	   805	   823	   846	   934	   983	  1005	  1026	  1095	  1119	  1168	  1189
	  1213	  1234	  1253	  1275	  1338	  1357	  1380	  1401	  1428	  1455	  1479	  1503	  1527	  1550
	  1577	  1600	  1624	  1649	  1674	  1698	  1723	  1747	  1770	  1794	  1826	  1855	  1942	  2037
	  2131	  2220	  2314	  2401	  2488	  2586	  2670	  2756	  2843	  2916	  3010	  3120	  3225	  3337
	  3441	  3536	  3662	  3699	  3717	  3738	  3764	  3792	  3819	  3848	  3876	  3901	  3931	  3962
	  3989	  4016	  4043	  4072	  4101	  4130	  4159	  4190	  4213	  4235	  4258	  4280	  4304	  4329
	  4353	  4379	  4405	  4427	  4456	  4485	  4514	  4547	  4581	  4618	  4766	  4914	  5062	  5210
	  5358	  5506	  5654	  5802	  5950	  6098	  6246	  6389	  6448	  6507	  6569	  6637	  6708	  6779
	  6850	  6929	  7005	  7095	  7168	  7256	  7446	  7629	  7719	  7742	  7765	  7788	  7811	  7834
	  7857	  7880	  7903	  7926	  7949	  7972	  7995	  8795	  8819	  8843	  8867	  8891	  8915	  8939
	  8963	  8987	  9011	  9035	  9059	  9083
SIXBTZ	   332#
SWITCH	   338#	  9133	  9236
TTALTM	   260#	  9238
TTICHR	   253#
TTICNV	   258#
TTIDEC	   257#
TTINO	   255#
TTIOCT	   256#
TTIYES	   254#
TTLOOK	   259#
TTSIXB	   261#
TTYINP	   262#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0263
DBKAM	000000 000000  770000 000000  130000 000000  000000  777777 

*030631  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030631 030631 030631 133000000006 777777777777 0                0            254000030622 0            0   0   777 
IT1	*      *      000006 *            133000000006 0                000000777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 030632 *            777777777777 140600000000     *            *            0            0   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            0   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 060600000000     *            *            000000000077 006 0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	030632 030632 *      332000000005 *            *                000000777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =140600 000000 
FINAL
C(E) =060600 000000 
----------

*030644  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030644 030644 030644 133000000015 777777777777 777777777777     777777777777 000000030626 0            006 0   777 
IT1	*      *      000015 *            133000000015 *                *            *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 030645 *            777777777777 140600000000     *            *            0            *   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            *   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 060600000000     *            *            000000000077 *   0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	030645 030645 *      312000000012 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =140600 000000 
FINAL
C(E) =060600 000000 
----------

*030656  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030656 030656 030656 133000000014 777777777777 140600000000     140600000000 000000030641 0            006 0   777 
IT1	*      *      000014 *            133000000014 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            *   0   *   
FT6	*      000014 030657 *            777777777777 140600000000     *            *            0            *   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            *   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 060600000000     *            *            000000000077 *   0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	030657 030657 *      312600000011 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =140600 000000 
FINAL
C(E) =060600 000000                                                                                                        SEQ 0264
----------

*030670  IBP	0,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030670 030670 030670 133000000013 777777777777 160600000000     160600000000 000000030654 0            006 0   777 
IT1	*      *      000013 *            133000000013 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            *   0   *   
FT6	*      000013 030671 *            777777777777 160600000000     *            *            0            *   0   *   
ET0	*      *      *      *            160600000001 *                *            *            0            *   0   010 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 100600000000     *            *            000000000077 010 0   777 
ST2	*      *      *      100600000000 *            *                160600000000 *            *            *   0   *   
ST5	030671 030671 *      312540000010 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =160600 000000 
FINAL
C(E) =100600 000000 
----------

*030702  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030702 030702 030702 133000000011 777777777777 770100000000     770100000000 000000030666 0            010 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030703 *            777777777777 770100000000     *            *            0            *   0   *   
ET0	*      *      *      *            770100000001 *                *            *            0            *   0   076 
ET2	*      *      *      *            000000000001 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 760100000000     *            *            000000000001 076 0   777 
ST2	*      *      *      760100000000 *            *                770100000000 *            *            *   0   *   
ST5	030703 030703 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =770100 000000 
FINAL
C(E) =760100 000000 
----------

*030710  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030710 030710 030710 133000000011 777777777777 770200000000     770200000000 000000030700 0            076 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030711 *            777777777777 770200000000     *            *            0            *   0   *   
ET0	*      *      *      *            770200000001 *                *            *            0            *   0   075 
ET2	*      *      *      *            000000000003 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 750200000000     *            *            000000000003 075 0   777 
ST2	*      *      *      750200000000 *            *                770200000000 *            *            *   0   *   
ST5	030711 030711 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =770200 000000 
FINAL
C(E) =750200 000000                                                                                                        SEQ 0265
----------

*030716  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030716 030716 030716 133000000011 777777777777 770400000000     770400000000 000000030706 0            075 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030717 *            777777777777 770400000000     *            *            0            *   0   *   
ET0	*      *      *      *            770400000001 *                *            *            0            *   0   073 
ET2	*      *      *      *            000000000017 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 730400000000     *            *            000000000017 073 0   777 
ST2	*      *      *      730400000000 *            *                770400000000 *            *            *   0   *   
ST5	030717 030717 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =770400 000000 
FINAL
C(E) =730400 000000 
----------

*030724  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030724 030724 030724 133000000011 777777777777 771000000000     771000000000 000000030714 0            073 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030725 *            777777777777 771000000000     *            *            0            *   0   *   
ET0	*      *      *      *            771000000001 *                *            *            0            *   0   067 
ET2	*      *      *      *            000000000377 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 671000000000     *            *            000000000377 067 0   777 
ST2	*      *      *      671000000000 *            *                771000000000 *            *            *   0   *   
ST5	030725 030725 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =771000 000000 
FINAL
C(E) =671000 000000 
----------

*030732  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030732 030732 030732 133000000011 777777777777 772000000000     772000000000 000000030722 0            067 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030733 *            777777777777 772000000000     *            *            0            *   0   *   
ET0	*      *      *      *            772000000001 *                *            *            0            *   0   057 
ET2	*      *      *      *            000000177777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 572000000000     *            *            000000177777 057 0   777 
ST2	*      *      *      572000000000 *            *                772000000000 *            *            *   0   *   
ST5	030733 030733 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =772000 000000 
FINAL
C(E) =572000 000000                                                                                                        SEQ 0266
----------

*030740  IBP	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030740 030740 030740 133000000011 777777777777 774000000000     774000000000 000000030730 0            057 0   777 
IT1	*      *      000011 *            133000000011 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            *   0   *   
FT6	*      000011 030741 *            777777777777 774000000000     *            *            0            *   0   *   
ET0	*      *      *      *            774000000001 *                *            *            0            *   0   037 
ET2	*      *      *      *            037777777777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 374000000000     *            *            037777777777 037 0   777 
ST2	*      *      *      374000000000 *            *                774000000000 *            *            *   0   *   
ST5	030741 030741 *      312440000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =774000 000000 
FINAL
C(E) =374000 000000 
----------

*030752  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030752 030752 030752 133000000012 777777777777 402000000000     402000000000 000000030736 0            037 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 030753 *            777777777777 402000000000     *            *            0            *   0   *   
ET0	*      *      *      *            402000000001 *                *            *            0            *   0   020 
ET2	*      *      *      *            000000177777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 202000000000     *            *            000000177777 020 0   777 
ST2	*      *      *      202000000000 *            *                402000000000 *            *            *   0   *   
ST5	030753 030753 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =402000 000000 
FINAL
C(E) =202000 000000 
----------

*030760  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030760 030760 030760 133000000012 777777777777 603000000000     603000000000 000000030750 0            020 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 030761 *            777777777777 603000000000     *            *            0            *   0   *   
ET0	*      *      *      *            603000000001 *                *            *            0            *   0   030 
ET2	*      *      *      *            000077777777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 303000000000     *            *            000077777777 030 0   777 
ST2	*      *      *      303000000000 *            *                603000000000 *            *            *   0   *   
ST5	030761 030761 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =603000 000000 
FINAL
C(E) =303000 000000                                                                                                        SEQ 0267
----------

*030766  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 133000000012 777777777777 301400000000     301400000000 000000030756 0            030 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 030767 *            777777777777 301400000000     *            *            0            *   0   *   
ET0	*      *      *      *            301400000001 *                *            *            0            *   0   014 
ET2	*      *      *      *            000000007777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 141400000000     *            *            000000007777 014 0   777 
ST2	*      *      *      141400000000 *            *                301400000000 *            *            *   0   *   
ST5	030767 030767 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =301400 000000 
FINAL
C(E) =141400 000000 
----------

*030774  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030774 030774 030774 133000000012 777777777777 140600000000     140600000000 000000030764 0            014 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 030775 *            777777777777 140600000000     *            *            0            *   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            *   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 060600000000     *            *            000000000077 006 0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	030775 030775 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =140600 000000 
FINAL
C(E) =060600 000000 
----------

*031002  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031002 031002 031002 133000000012 777777777777 060300000000     060300000000 000000030772 0            006 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031003 *            777777777777 060300000000     *            *            0            *   0   *   
ET0	*      *      *      *            060300000001 *                *            *            0            *   0   003 
ET2	*      *      *      *            000000000007 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 030300000000     *            *            000000000007 003 0   777 
ST2	*      *      *      030300000000 *            *                060300000000 *            *            *   0   *   
ST5	031003 031003 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =060300 000000 
FINAL
C(E) =030300 000000                                                                                                        SEQ 0268
----------

*031014  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031014 031014 031014 133000000006 777777777777 051000000000     051000000000 000000031000 0            003 0   777 
IT1	*      *      000006 *            133000000006 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031015 *            777777777777 051000000000     *            *            0            *   0   *   
ET0	*      *      *      *            051000000001 *                *            *            0            *   0   775 
ET2	*      *      *      *            000000000377 051000000001     *            *            0            *   0   034 
ST1	*      *      *      *            777777777777 341000000001     *            *            000000000377 034 0   777 
ST2	*      *      *      341000000001 *            *                051000000000 *            *            *   0   *   
ST5	031015 031015 *      620300000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =051000 000000 
FINAL
C(E) =341000 000001 
----------

*031027  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 133000000006 777777777777 160600000000     160600000000 000000031012 0            034 0   777 
IT1	*      *      000006 *            133000000006 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031030 *            777777777777 160600000000     *            *            0            *   0   *   
ET0	*      *      *      *            160600000001 *                *            *            0            *   0   010 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 100600000000     *            *            000000000077 010 0   777 
ST2	*      *      *      100600000000 *            *                160600000000 *            *            *   0   *   
ST5	031030 031030 *      620300000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =160600 000000 
FINAL
C(E) =100600 000000 
----------

*031042  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031042 031042 031042 133000000015 777777777777 010100000000     010100000000 000000031025 0            010 0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 031043 *            777777777777 010100000000     *            *            0            *   0   *   
ET0	*      *      *      *            010100000001 *                *            *            0            *   0   000 
ET2	*      *      *      *            000000000001 *                *            *            0            *   0   0   
ST1	*      *      *      *            777777777777 000100000000     *            *            000000000001 000 0   777 
ST2	*      *      *      000100000000 *            *                010100000000 *            *            0   0   *   
ST5	031043 031043 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =010100 000000 
FINAL
C(E) =000100 000000                                                                                                        SEQ 0269
----------

*031051  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031051 031051 031051 133000000015 777777777777 020200000000     020200000000 000000031040 0            0   0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031052 *            777777777777 020200000000     *            *            0            0   0   *   
ET0	*      *      *      *            020200000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            000000000003 *                *            *            0            0   0   0   
ST1	*      *      *      *            777777777777 000200000000     *            *            000000000003 0   0   777 
ST2	*      *      *      000200000000 *            *                020200000000 *            *            0   0   *   
ST5	031052 031052 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =020200 000000 
FINAL
C(E) =000200 000000 
----------

*031060  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031060 031060 031060 133000000015 777777777777 040400000000     040400000000 000000031047 0            0   0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031061 *            777777777777 040400000000     *            *            0            0   0   *   
ET0	*      *      *      *            040400000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            000000000017 *                *            *            0            0   0   0   
ST1	*      *      *      *            777777777777 000400000000     *            *            000000000017 0   0   777 
ST2	*      *      *      000400000000 *            *                040400000000 *            *            0   0   *   
ST5	031061 031061 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =040400 000000 
FINAL
C(E) =000400 000000 
----------

*031067  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 133000000015 777777777777 101000000000     101000000000 000000031056 0            0   0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031070 *            777777777777 101000000000     *            *            0            0   0   *   
ET0	*      *      *      *            101000000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            000000000377 *                *            *            0            0   0   0   
ST1	*      *      *      *            777777777777 001000000000     *            *            000000000377 0   0   777 
ST2	*      *      *      001000000000 *            *                101000000000 *            *            0   0   *   
ST5	031070 031070 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =101000 000000 
FINAL
C(E) =001000 000000                                                                                                        SEQ 0270
----------

*031076  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031076 031076 031076 133000000015 777777777777 202000000000     202000000000 000000031065 0            0   0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031077 *            777777777777 202000000000     *            *            0            0   0   *   
ET0	*      *      *      *            202000000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            000000177777 *                *            *            0            0   0   0   
ST1	*      *      *      *            777777777777 002000000000     *            *            000000177777 0   0   777 
ST2	*      *      *      002000000000 *            *                202000000000 *            *            0   0   *   
ST5	031077 031077 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =202000 000000 
FINAL
C(E) =002000 000000 
----------

*031105  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 133000000015 777777777777 404000000000     404000000000 000000031074 0            0   0   777 
IT1	*      *      000015 *            133000000015 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031106 *            777777777777 404000000000     *            *            0            0   0   *   
ET0	*      *      *      *            404000000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            037777777777 *                *            *            0            0   0   0   
ST1	*      *      *      *            777777777777 004000000000     *            *            037777777777 0   0   777 
ST2	*      *      *      004000000000 *            *                404000000000 *            *            0   0   *   
ST5	031106 031106 *      620640000001 *            *                777777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =404000 000000 
FINAL
C(E) =004000 000000 
----------

*031120  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031120 031120 031120 133000000014 777777777777 061000000000     061000000000 000000031103 0            0   0   777 
IT1	*      *      000014 *            133000000014 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 031121 *            777777777777 061000000000     *            *            0            0   0   *   
ET0	*      *      *      *            061000000001 *                *            *            0            0   0   776 
ET2	*      *      *      *            000000000377 061000000001     *            *            0            0   0   034 
ST1	*      *      *      *            777777777777 341000000001     *            *            000000000377 034 0   777 
ST2	*      *      *      341000000001 *            *                061000000000 *            *            *   0   *   
ST5	031121 031121 *      620600000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =061000 000000 
FINAL
C(E) =341000 000001                                                                                                        SEQ 0271
----------

*031133  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031133 031133 031133 133000000012 777777777777 202100000000     202100000000 000000031116 0            034 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031134 *            777777777777 202100000000     *            *            0            *   0   *   
ET0	*      *      *      *            202100000001 *                *            *            0            *   0   *   
ET2	*      *      *      *            000000377777 202100000001     *            *            0            *   0   023 
ST1	*      *      *      *            777777777777 232100000001     *            *            000000377777 023 0   777 
ST2	*      *      *      232100000001 *            *                202100000000 *            *            *   0   *   
ST5	031134 031134 *      620500000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =202100 000000 
FINAL
C(E) =232100 000001 
----------

*031142  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031142 031142 031142 133000000012 777777777777 101100000000     101100000000 000000031131 0            023 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031143 *            777777777777 101100000000     *            *            0            *   0   *   
ET0	*      *      *      *            101100000001 *                *            *            0            *   0   *   
ET2	*      *      *      *            000000000777 101100000001     *            *            0            *   0   033 
ST1	*      *      *      *            777777777777 331100000001     *            *            000000000777 033 0   777 
ST2	*      *      *      331100000001 *            *                101100000000 *            *            *   0   *   
ST5	031143 031143 *      620500000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =101100 000000 
FINAL
C(E) =331100 000001 
----------

*031151  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031151 031151 031151 133000000012 777777777777 020300000000     020300000000 000000031140 0            033 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031152 *            777777777777 020300000000     *            *            0            *   0   *   
ET0	*      *      *      *            020300000001 *                *            *            0            *   0   *   
ET2	*      *      *      *            000000000007 020300000001     *            *            0            *   0   041 
ST1	*      *      *      *            777777777777 410300000001     *            *            000000000007 041 0   777 
ST2	*      *      *      410300000001 *            *                020300000000 *            *            *   0   *   
ST5	031152 031152 *      620500000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =020300 000000 
FINAL
C(E) =410300 000001                                                                                                        SEQ 0272
----------

*031160  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031160 031160 031160 133000000012 777777777777 010200000000     010200000000 000000031147 0            041 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031161 *            777777777777 010200000000     *            *            0            *   0   *   
ET0	*      *      *      *            010200000001 *                *            *            0            *   0   *   
ET2	*      *      *      *            000000000003 010200000001     *            *            0            *   0   042 
ST1	*      *      *      *            777777777777 420200000001     *            *            000000000003 042 0   777 
ST2	*      *      *      420200000001 *            *                010200000000 *            *            *   0   *   
ST5	031161 031161 *      620500000001 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =010200 000000 
FINAL
C(E) =420200 000001 
----------

*031174  IBP	0,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031174 031174 031174 133000000013 777777777777 061000000000     061000000000 000000031173 0            042 0   777 
IT1	*      *      000013 *            133000000013 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            *   0   *   
FT6	*      000013 031175 *            777777777777 061000000000     *            *            0            *   0   *   
ET0	*      *      *      *            061000000001 *                *            *            0            *   0   776 
ET2	*      *      *      *            000000000377 061000000001     *            *            0            *   0   034 
ST1	*      *      *      *            777777777777 341000000001     *            *            000000000377 034 0   777 
ST2	*      *      *      341000000001 *            *                061000000000 *            *            *   0   *   
ST5	031175 031175 *      312540000010 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =061000 000000 
FINAL
C(E) =341000 000001 
----------

*031210  IBP	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031210 031210 031210 133000000012 777777777777 061000000011     061000000011 000000031171 0            034 0   777 
IT1	*      *      000012 *            133000000012 *                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            *   0   *   
FT6	*      000012 031211 *            777777777777 061000000011     *            *            0            *   0   *   
ET0	*      *      *      *            061000000012 *                *            *            0            *   0   776 
ET2	*      *      *      *            000000000377 061000000012     *            *            0            *   0   034 
ST1	*      *      *      *            777777777777 341000000012     *            *            000000000377 *   0   777 
ST2	*      *      *      341000000012 *            *                061000000011 *            *            *   0   *   
ST5	031211 031211 *      312500000007 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =061000 000011 
FINAL
C(E) =341000 000012                                                                                                        SEQ 0273
----------

*031224  LDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031224 031224 031224 135600000015 777777777777 0                0            000000031204 0            034 0   777 
IT1	*      *      000015 *            135600000015 0                0            *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     0            *            0            *   0   *   
FT6	*      000015 *      *            777777777777 000600000005     0            *            0            *   0   *   
ET2	*      *      *      *            000000000077 *                0            *            0            *   0   000 
IT0	031224 *      *      000600000005 777777777777 *                0            *            000000000077 000 0   777 
IT1	*      *      000005 *            000600000005 *                0            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000005     0            *            *            0   0   *   
FT6	031225 031225 031225 302600000077 777777777777 000000777777     0            *            *            0   0   *   
ET0	*      *      *      *            *            *                0            *            *            0   0   000 
ET1	*      *      *      *            *            *                0            *            *            0   0   777 
ET2	*      *      *      *            000000000077 000000000077     0            000000777777 *            0   0   *   
ST1	031225 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031237  LDB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031237 031237 031237 135440000012 777777777777 777777777777     777777777777 000000031220 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                341000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031237 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031240 031240 031240 312440000007 777777777777 777777777777     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            *            *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            177777777777 177777777777     *            *            *            773 0   *   
SCT2	*      *      *      *            037777777777 037777777777     *            *            *            774 0   *   
SCT2	*      *      *      *            007777777777 007777777777     *            *            *            775 0   *   
SCT2	*      *      *      *            001777777777 001777777777     *            *            *            776 0   *   
SCT2	*      *      *      *            000377777777 000377777777     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000077777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000000077     *            000077777777 *            0   0   *   
ST1	031240 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031251  LDB	6,000007
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0274
IT0	031251 031251 031251 135300000007 777777777777 000000777777     000000777777 000000031234 0            0   0   777 
IT1	*      *      000007 *            135300000007 *                100600000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031251 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031252 031252 031252 302300000077 777777777777 000000777777     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            000000777777 *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            000000177777 000000177777     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037777 000000037777     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007777 000000007777     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001777 000000001777     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000377 000000000377     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	031252 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031264  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031264 031264 031264 135240000006 777777777777 777777777777     777777777777 000000031247 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                000000777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 004000000000     *            *            0            0   0   *   
ET2	*      *      *      *            037777777777 *                *            *            0            0   0   000 
IT0	031264 *      *      004000000000 777777777777 *                *            *            037777777777 0   0   777 
IT1	*      *      000000 *            004000000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031265 031265 031265 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            037777777777 037777777777     *            777777777777 *            0   0   *   
ST1	031265 *      *      *            777777777777 *                037777777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031273  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031273 031273 031273 135240000006 777777777777 777777777777     777777777777 000000031261 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                037777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 002000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000177777 *                *            *            0            0   0   00  SEQ 0275
IT0	031273 *      *      002000000000 777777777777 *                *            *            000000177777 0   0   777 
IT1	*      *      000000 *            002000000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031274 031274 031274 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000177777 000000177777     *            777777777777 *            0   0   *   
ST1	031274 *      *      *            777777777777 *                000000177777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031302  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031302 031302 031302 135240000006 777777777777 777777777777     777777777777 000000031270 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                000000177777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 001000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000377 *                *            *            0            0   0   000 
IT0	031302 *      *      001000000000 777777777777 *                *            *            000000000377 0   0   777 
IT1	*      *      000000 *            001000000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031303 031303 031303 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000377 000000000377     *            777777777777 *            0   0   *   
ST1	031303 *      *      *            777777777777 *                000000000377 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031311  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031311 031311 031311 135240000006 777777777777 777777777777     777777777777 000000031277 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                000000000377 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 000400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000017 *                *            *            0            0   0   000 
IT0	031311 *      *      000400000000 777777777777 *                *            *            000000000017 0   0   777 
IT1	*      *      000000 *            000400000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031312 031312 031312 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000017 000000000017     *            777777777777 *            0   0   *   
ST1	031312 *      *      *            777777777777 *                000000000017 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000377 C(E) =000400 000000 C(C(E))=777777 777777                                                              SEQ 0276
FINAL
C(AC)=000000 000017 C(E) =000400 000000 C(C(E))=777777 777777 
----------

*031320  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031320 031320 031320 135240000006 777777777777 777777777777     777777777777 000000031306 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                000000000017 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 000200000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000003 *                *            *            0            0   0   000 
IT0	031320 *      *      000200000000 777777777777 *                *            *            000000000003 0   0   777 
IT1	*      *      000000 *            000200000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031321 031321 031321 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000003 000000000003     *            777777777777 *            0   0   *   
ST1	031321 *      *      *            777777777777 *                000000000003 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031327  LDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031327 031327 031327 135240000006 777777777777 777777777777     777777777777 000000031315 0            0   0   777 
IT1	*      *      000006 *            135240000006 *                000000000003 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 000100000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            0   0   000 
IT0	031327 *      *      000100000000 777777777777 *                *            *            000000000001 0   0   777 
IT1	*      *      000000 *            000100000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031330 031330 031330 312240000003 777777777777 777777777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000001 000000000001     *            777777777777 *            0   0   *   
ST1	031330 *      *      *            777777777777 *                000000000001 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031342  LDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031342 031342 031342 135600000015 777777777777 000000007700     000000007700 000000031324 0            0   0   777 
IT1	*      *      000015 *            135600000015 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 061400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000007777 *                *            *            0            0   0   00  SEQ 0277
IT0	031342 *      *      061400000000 777777777777 *                *            *            000000007777 006 0   777 
IT1	*      *      000000 *            061400000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031343 031343 031343 312600000012 777777777777 000000007700     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   772 
SCT1	*      *      *      *            000000007700 *                *            *            *            772 0   777 
SCT2	*      *      *      *            *            *                *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000007777     *            000000000077 *            0   0   *   
ST1	031343 *      *      *            777777777777 000000000077     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031355  LDB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031355 031355 031355 135540000014 777777777777 777777777777     777777777777 000000031337 0            0   0   777 
IT1	*      *      000014 *            135540000014 *                000000000013 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 060600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   006 
IT0	031355 *      *      060600000000 777777777777 *                *            *            000000000077 006 0   777 
IT1	*      *      000000 *            060600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031356 031356 031356 312540000011 777777777777 777777777777     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   772 
SCT1	*      *      *      *            *            *                *            *            *            772 0   777 
SCT2	*      *      *      *            *            *                *            *            *            775 0   *   
SCT2	*      *      *      *            177777777777 177777777777     *            *            *            776 0   *   
SCT2	*      *      *      *            037777777777 037777777777     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 007777777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000000077     *            007777777777 *            0   0   *   
ST1	031356 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031367  LDB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031367 031367 031367 135400000011 777777777777 777777777777     777777777777 000000031352 0            0   0   777 
IT1	*      *      000011 *            135400000011 *                000000000010 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031367 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031370 031370 031370 254000031372 777777777777 777777777777     *            *            *            *   0   *   SEQ 0278
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            *            *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            177777777777 177777777777     *            *            *            773 0   *   
SCT2	*      *      *      *            037777777777 037777777777     *            *            *            774 0   *   
SCT2	*      *      *      *            007777777777 007777777777     *            *            *            775 0   *   
SCT2	*      *      *      *            001777777777 001777777777     *            *            *            776 0   *   
SCT2	*      *      *      *            000377777777 000377777777     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000077777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000000077     *            000077777777 *            0   0   *   
ST1	031370 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031401  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031401 031401 031401 135340000010 777777777777 777777777777     777777777777 000000031365 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031401 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031402 031402 031402 265340031403 777777777777 777777777777     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            *            *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            177777777777 177777777777     *            *            *            773 0   *   
SCT2	*      *      *      *            037777777777 037777777777     *            *            *            774 0   *   
SCT2	*      *      *      *            007777777777 007777777777     *            *            *            775 0   *   
SCT2	*      *      *      *            001777777777 001777777777     *            *            *            776 0   *   
SCT2	*      *      *      *            000377777777 000377777777     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000077777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000000077     *            000077777777 *            0   0   *   
ST1	031402 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031416  LDB	6,@000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 135320000007 777777777777 000000000044     000000000044 000000031377 0            0   0   777 
IT1	*      *      000007 *            135320000007 *                000600000014 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
IT0	*      000007 *      000600000000 777777777777 *                *            *            0            0   0   *   
IT1	*      *      000000 *            000600000000 *                000100000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000600000014     *            *            0            0   0   *   SEQ 0279
ET2	*      0      0      *            000000000077 *                *            *            0            0   0   000 
IT0	031416 0      0      000600000014 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      0      000014 *            000600000014 *                *            *            *            0   0   *   
MEMST	*      0      *      *            *            000000000014     *            *            *            0   0   *   
FT6	031417 031417 031417 302300000044 777777777777 000000000044     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000044 000000000077     *            000000000044 *            0   0   *   
ST1	031417 *      *      *            777777777777 000000000044     000000000044 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000100 000000 C(E) =000600 000014 C(C(E))=000000 000044 
FINAL
C(AC)=000000 000044 C(E) =000600 000014 C(C(E))=000000 000044 
----------

*031432  LDB	7,000010(7)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031432 031432 031432 135347000010 777777777777 000000555555     000000555555 000000031412 0            0   0   777 
IT1	*      *      000014 *            000000000014 *                000000000004 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 061400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000007777 *                *            *            0            0   0   006 
IT0	031432 *      *      061400000000 777777777777 *                *            *            000000007777 006 0   777 
IT1	*      *      000000 *            061400000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031433 031433 031433 302340002222 777777777777 000000222222     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   772 
SCT1	*      *      *      *            000000222222 *                *            *            *            772 0   777 
SCT2	*      *      *      *            *            *                *            *            *            775 0   *   
SCT2	*      *      *      *            000000044444 000000044444     *            *            *            776 0   *   
SCT2	*      *      *      *            000000011111 000000011111     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000002222     *            *            *            000 0   *   
ET2	*      *      *      *            000000002222 000000007777     *            000000002222 *            0   0   *   
ST1	031433 *      *      *            777777777777 000000002222     000000002222 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =061400 000000 C(C(E))=000000 222222 
FINAL
C(AC)=000000 002222 C(E) =061400 000000 C(C(E))=000000 222222 
----------

*031447  LDB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 135400000011 777777777777 000000000077     000000000077 000000031426 0            0   0   777 
IT1	*      *      000011 *            135400000011 *                000000000010 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 000607000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	031447 *      *      000607000005 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000015 *            000000000015 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            *            0   0   *   
FT6	031450 031450 031450 302400000077 777777777777 000000000077     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   SEQ 0280
ST1	031450 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 C(E) =000607 000005 C(C(E))=000000 000077 
FINAL
C(AC)=000000 000077 C(E) =000607 000005 C(C(E))=000000 000077 
----------

*031464  LDB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031464 031464 031464 135400000011 777777777777 000000000077     000000000077 000000031442 0            0   0   777 
IT1	*      *      000011 *            135400000011 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     0            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 000607000005     0            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                0            *            0            0   0   000 
IT0	031464 *      *      000607000005 777777777777 *                0            *            000000000077 0   0   777 
IT1	*      *      000015 *            000000000015 *                000000000010 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            *            0   0   *   
FT6	031465 031465 031465 302400000077 777777777777 000000000077     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000000 *            *            0   0   000 
ET1	*      *      *      *            *            *                0            *            *            0   0   777 
ET2	*      *      *      *            000000000077 *                0            000000000077 *            0   0   *   
ST1	031465 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000607 000005 C(C(E))=000000 000077 
FINAL
C(AC)=000000 000077 C(E) =000607 000005 C(C(E))=000000 000077 
----------

*031502  LDB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031502 031502 031502 135400000011 777777777777 000000000014     000000000014 000000031457 0            0   0   777 
IT1	*      *      000011 *            135400000011 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 000607000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	031502 *      *      000607000005 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000015 *            000000000015 *                000000000010 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            *            0   0   *   
FT6	031503 031503 031503 302400000015 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000077 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000015 000000000077     *            000000000015 *            0   0   *   
ST1	031503 *      *      *            777777777777 000000000015     000000000015 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =000607 000005 C(C(E))=000000 000015 
FINAL
C(AC)=000000 000015 C(E) =000607 000005 C(C(E))=000000 000015 
----------

*031520  LDB	10,000011
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0281
IT0	031520 031520 031520 135400000011 777777777777 000000000033     000000000033 000000031474 0            0   0   777 
IT1	*      *      000011 *            135400000011 *                000000000015 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 000607000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	031520 *      *      000607000005 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000015 *            000000000015 *                000000000010 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            *            0   0   *   
FT6	031521 031521 031521 302400000015 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000015 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000015 000000000077     *            000000000015 *            0   0   *   
ST1	031521 *      *      *            777777777777 000000000015     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000015 C(E) =000607 000005 C(C(E))=000000 000015 
FINAL
C(AC)=000000 000015 C(E) =000607 000005 C(C(E))=000000 000015 
----------

*031532  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031532 031532 031532 134240000006 777777777777 160600000000     160600000000 000000031512 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     0            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 160600000000     0            *            0            0   0   *   
ET0	*      *      *      *            160600000001 *                0            *            0            0   0   010 
ET2	*      *      *      *            000000000077 *                0            *            0            0   0   *   
ST1	*      *      *      160600000000 777777777777 100600000000     0            *            000000000077 010 0   777 
ST2	*      *      *      100600000000 *            *                160600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000000 *            *            *   0   *   
IT0	031532 *      *      *            *            *                0            *            *            *   0   *   
IT1	*      *      000000 *            100600000000 *                0            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            *            *   0   *   
FT6	031533 031533 031533 312300000003 777777777777 000000000007     0            *            *            *   0   *   
ET0	*      *      *      *            *            *                0            *            *            *   0   770 
SCT1	*      *      *      *            000000000007 *                0            *            *            770 0   777 
SCT2	*      *      *      *            *            *                0            *            *            774 0   *   
SCT2	*      *      *      *            000000000001 000000000001     0            *            *            775 0   *   
SCT2	*      *      *      *            000000000000 000000000000     0            *            *            776 0   *   
SCT2	*      *      *      *            0            0                0            *            *            777 0   *   
ET1	*      *      *      *            777777777777 0                0            *            *            000 0   *   
ET2	*      *      *      *            000000000000 000000000077     0            000000000000 *            0   0   *   
ST1	031533 *      *      *            777777777777 000000000000     0            0            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031545  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031545 031545 031545 134600000015 777777777777 000000777777     000000777777 000000031530 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                000000000033 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   SEQ 0282
FT6	*      000015 *      *            777777777777 222200000000     *            *            0            0   0   *   
ET0	*      *      *      *            222200000001 *                *            *            0            0   0   000 
ET2	*      *      *      *            000000777777 *                *            *            0            0   0   0   
ST1	*      *      *      222200000000 777777777777 002200000000     *            *            000000777777 0   0   777 
ST2	*      *      *      002200000000 *            *                222200000000 *            *            0   0   *   
ST5	*      *      *      *            *            *                000000000033 *            *            0   0   *   
IT0	031545 *      *      *            *            *                *            *            *            0   0   *   
IT1	*      *      000000 *            002200000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	031546 031546 031546 312000000014 777777777777 000000777777     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000777777 *                *            000000777777 *            0   0   *   
ST1	031546 *      *      *            777777777777 *                000000777777 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031562  ILDB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031562 031562 031562 134540000014 777777777777 000000770000     000000770000 000000031542 0            0   0   777 
IT1	*      *      000014 *            134540000014 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            0   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      220600000000 777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	031562 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	031563 031563 031563 302540000077 777777777777 000000770000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            000000770000 *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	031563 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*031600  DPB	12,000013
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0283
IT0	031600 031600 031600 137500000013 777777777777 0                0            000000031557 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031600 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031601 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000077 0                *            *            *            *   0   764 
SCT2	*      0      *      *            *            000000000077     *            000000000000 *            764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000176 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000374 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000770 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001760 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000003740 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000007700 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000017600 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000037400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000077000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000176000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000374000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000770000 000 0   *   
ET2	*      0      *      *            000000770000 *                *            000000770000 000000000000 0   0   *   
ST1	031600 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000770000 *            *                000000000000 *            0            0   0   *   
ST5	031601 031601 *      312000000010 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 770000 
----------

*031614  DPB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031614 031614 031614 137340000010 777777777777 777777777777     777777777777 000000031574 0            0   0   777 
IT1	*      *      000010 *            137340000010 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031614 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031615 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000000013200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000000055000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            *            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000000264000 777 0   *   SEQ 0284
ET1	*      0      *      *            777777007777 000000770000     *            *            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 777777007777 0   0   *   
ST1	031614 0      *      *            777777777777 777777557777     *            *            *            0   0   *   
ST2	*      0      *      777777557777 *            *                777777777777 *            *            0   0   *   
ST5	031615 031615 *      312000000005 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 557777 
----------

*031631  DPB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031631 031631 031631 137240000006 777777777777 0                0            000000031610 0            0   0   777 
IT1	*      *      000006 *            137240000006 0                000000005555 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031631 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031632 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000005555 0                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000005555 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000013332 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000026664 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000055550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000133320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000266640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000555500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000001333200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000002666400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000005555000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000013332000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000026664000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000055550000 000 0   *   
ET2	*      0      *      *            000000550000 000055550000     *            000000770000 000000000000 0   0   *   
ST1	031631 0      *      *            777777777777 000000550000     *            *            0            0   0   *   
ST2	*      0      *      000000550000 *            *                000000000000 *            0            0   0   *   
ST5	031632 031632 *      312000000003 *            *                000000005555 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 550000 
----------

*031645  DPB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031645 031645 031645 137600000015 777777777777 777777777777     777777777777 000000031624 0            0   0   777 
IT1	*      *      000015 *            137600000015 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 061400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000007777 *                *            *            0            0   0   006 
IT0	031645 *      *      061400000000 777777777777 *                *            *            000000007777 006 0   77  SEQ 0285
IT1	*      *      000000 *            061400000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031646 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   772 
SCT2	*      0      *      *            000000007777 000000007777     *            777777777777 000000000055 772 0   777 
SCT2	*      0      *      *            000000017776 000000017776     *            *            000000000132 773 0   *   
SCT2	*      0      *      *            000000037774 000000037774     *            *            000000000264 774 0   *   
SCT2	*      0      *      *            000000077770 000000077770     *            *            000000000550 775 0   *   
SCT2	*      0      *      *            000000177760 000000177760     *            *            000000001320 776 0   *   
SCT2	*      0      *      *            000000377740 000000377740     *            *            000000002640 777 0   *   
ET1	*      0      *      *            777777000077 000000777700     *            *            000000005500 000 0   *   
ET2	*      0      *      *            000000005500 000000005500     *            000000777700 777777000077 0   0   *   
ST1	031645 0      *      *            777777777777 777777005577     *            *            *            0   0   *   
ST2	*      0      *      777777005577 *            *                777777777777 *            *            0   0   *   
ST5	031646 031646 *      312000000012 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 005577 
----------

*031661  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031661 031661 031661 137540000014 777777777777 0                0            000000031641 0            0   0   777 
IT1	*      *      000014 *            137540000014 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031661 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031662 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 000000000000 0   0   *   
ST1	031661 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000550000 *            *                000000000000 *            0            0   0   *   
ST5	031662 031662 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 550000 
----------                                                                                                                 SEQ 0286

*031675  DPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031675 031675 031675 137440000012 777777777777 777777777777     777777777777 000000031655 0            0   0   777 
IT1	*      *      000012 *            137440000012 *                000000005555 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   022 
IT0	031675 *      *      220600000000 777777777777 *                *            *            000000000077 022 0   777 
IT1	*      *      000000 *            220600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031676 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000005555 *                *            *            *            *   0   756 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000005555 756 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000013332 757 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000026664 760 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000055550 761 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000133320 762 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000266640 763 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000555500 764 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000001333200 765 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000002666400 766 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000005555000 767 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            *            000013332000 770 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000026664000 771 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            *            000055550000 772 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            *            000133320000 773 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            *            000266640000 774 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            *            000555500000 775 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            *            001333200000 776 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            *            002666400000 777 0   *   
ET1	*      0      *      *            777700777777 000077000000     *            *            005555000000 000 0   *   
ET2	*      0      *      *            000055000000 005555000000     *            000077000000 777700777777 0   0   *   
ST1	031675 0      *      *            777777777777 777755777777     *            *            *            0   0   *   
ST2	*      0      *      777755777777 *            *                777777777777 *            *            0   0   *   
ST5	031676 031676 *      312000000007 *            *                000000005555 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=777755 777777 
----------

*031710  DPB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031710 031710 031710 137340000010 777777777777 0                0            000000031671 0            0   0   777 
IT1	*      *      000010 *            137340000010 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	031710 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031711 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 765 0   *   SEQ 0287
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 000000000000 0   0   *   
ST1	031710 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000550000 *            *                000000000000 *            0            0   0   *   
ST5	031711 031711 *      265340031712 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 550000 
----------

*031725  IDPB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031725 031725 031725 136240000006 777777777777 0                0            000000031705 0            0   0   777 
IT1	*      *      000006 *            136240000006 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            0   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      220600000000 777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	031725 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 031726 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000077 0                *            *            *            *   0   764 
SCT2	*      0      *      *            *            000000000077     *            000000000000 *            764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000176 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000374 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000770 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001760 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000003740 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000007700 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000017600 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000037400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000077000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000176000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000374000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000770000 000 0   *   
ET2	*      0      *      *            000000770000 *                *            000000770000 000000000000 0   0   *   
ST1	031725 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000770000 *            *                000000000000 *            0            0   0   *   
ST5	031726 031726 *      312300000003 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0288
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 770000 
----------

*031741  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031741 031741 031741 133000000006 777777777777 220600000000     220600000000 000000031721 0            0   0   777 
IT1	*      *      000006 *            133000000006 *                000000770000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 031742 *            777777777777 220600000000     *            *            0            0   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            0   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   
ST5	031742 031742 *      312300000003 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =220600 000000 
FINAL
C(E) =140600 000000 
----------

*031747  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031747 031747 031747 133000000006 777777777777 200600000000     200600000000 000000031737 0            014 0   777 
IT1	*      *      000006 *            133000000006 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031750 *            777777777777 200600000000     *            *            0            *   0   *   
ET0	*      *      *      *            200600000001 *                *            *            0            *   0   012 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 120600000000     *            *            000000000077 012 0   777 
ST2	*      *      *      120600000000 *            *                200600000000 *            *            *   0   *   
ST5	031750 031750 *      312300000003 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =200600 000000 
FINAL
C(E) =120600 000000 
----------

*031755  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031755 031755 031755 133000000006 777777777777 160600000000     160600000000 000000031745 0            012 0   777 
IT1	*      *      000006 *            133000000006 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031756 *            777777777777 160600000000     *            *            0            *   0   *   
ET0	*      *      *      *            160600000001 *                *            *            0            *   0   010 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 100600000000     *            *            000000000077 010 0   777 
ST2	*      *      *      100600000000 *            *                160600000000 *            *            *   0   *   
ST5	031756 031756 *      312300000003 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0289
C(E) =160600 000000 
FINAL
C(E) =100600 000000 
----------

*031763  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031763 031763 031763 133000000006 777777777777 140600000000     140600000000 000000031753 0            010 0   777 
IT1	*      *      000006 *            133000000006 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031764 *            777777777777 140600000000     *            *            0            *   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            *   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 060600000000     *            *            000000000077 006 0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	031764 031764 *      312300000003 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =140600 000000 
FINAL
C(E) =060600 000000 
----------

*031771  IBP	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031771 031771 031771 133000000006 777777777777 120600000000     120600000000 000000031761 0            006 0   777 
IT1	*      *      000006 *            133000000006 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            *   0   *   
FT6	*      000006 031772 *            777777777777 120600000000     *            *            0            *   0   *   
ET0	*      *      *      *            120600000001 *                *            *            0            *   0   004 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 040600000000     *            *            000000000077 004 0   777 
ST2	*      *      *      040600000000 *            *                120600000000 *            *            *   0   *   
ST5	031772 031772 *      312300000003 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =120600 000000 
FINAL
C(E) =040600 000000 
----------

*032003  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032003 032003 032003 133000000015 777777777777 221400000000     221400000000 000000031767 0            004 0   777 
IT1	*      *      000015 *            133000000015 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 032004 *            777777777777 221400000000     *            *            0            *   0   *   
ET0	*      *      *      *            221400000001 *                *            *            0            *   0   006 
ET2	*      *      *      *            000000007777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 061400000000     *            *            000000007777 006 0   777 
ST2	*      *      *      061400000000 *            *                221400000000 *            *            *   0   *   
ST5	032004 032004 *      312640000012 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0290
C(E) =221400 000000 
FINAL
C(E) =061400 000000 
----------

*032011  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032011 032011 032011 133000000015 777777777777 221200000000     221200000000 000000032001 0            006 0   777 
IT1	*      *      000015 *            133000000015 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 032012 *            777777777777 221200000000     *            *            0            *   0   *   
ET0	*      *      *      *            221200000001 *                *            *            0            *   0   010 
ET2	*      *      *      *            000000001777 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 101200000000     *            *            000000001777 010 0   777 
ST2	*      *      *      101200000000 *            *                221200000000 *            *            *   0   *   
ST5	032012 032012 *      312640000012 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =221200 000000 
FINAL
C(E) =101200 000000 
----------

*032017  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032017 032017 032017 133000000015 777777777777 221000000000     221000000000 000000032007 0            010 0   777 
IT1	*      *      000015 *            133000000015 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 032020 *            777777777777 221000000000     *            *            0            *   0   *   
ET0	*      *      *      *            221000000001 *                *            *            0            *   0   012 
ET2	*      *      *      *            000000000377 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 121000000000     *            *            000000000377 012 0   777 
ST2	*      *      *      121000000000 *            *                221000000000 *            *            *   0   *   
ST5	032020 032020 *      312640000012 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =221000 000000 
FINAL
C(E) =121000 000000 
----------

*032025  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032025 032025 032025 133000000015 777777777777 220600000000     220600000000 000000032015 0            012 0   777 
IT1	*      *      000015 *            133000000015 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 032026 *            777777777777 220600000000     *            *            0            *   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            *   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   
ST5	032026 032026 *      312640000012 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0291
C(E) =220600 000000 
FINAL
C(E) =140600 000000 
----------

*032033  IBP	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032033 032033 032033 133000000015 777777777777 220400000000     220400000000 000000032023 0            014 0   777 
IT1	*      *      000015 *            133000000015 *                000000770000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            *   0   *   
FT6	*      000015 032034 *            777777777777 220400000000     *            *            0            *   0   *   
ET0	*      *      *      *            220400000001 *                *            *            0            *   0   016 
ET2	*      *      *      *            000000000017 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 160400000000     *            *            000000000017 016 0   777 
ST2	*      *      *      160400000000 *            *                220400000000 *            *            *   0   *   
ST5	032034 032034 *      312640000012 *            *                000000770000 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =220400 000000 
FINAL
C(E) =160400 000000 
----------

*032046  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032046 032046 032046 133000000014 777777777777 001400000000     001400000000 0            0            016 0   777 
IT1	*      *      000014 *            133000000014 *                000000770000 0            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            0            0            *   0   *   
FT6	*      000014 032047 *            777777777777 001400000000     *            0            0            *   0   *   
ET0	*      *      *      *            001400000001 *                *            0            0            *   0   764 
ET2	*      *      *      *            000000007777 001400000001     *            0            0            *   0   030 
ST1	*      *      *      *            777777777777 301400000001     *            0            000000007777 030 0   777 
ST2	*      *      *      301400000001 *            *                001400000000 0            *            *   0   *   
ST5	032047 032047 *      312600000011 *            *                000000770000 0            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =001400 000000 
FINAL
C(E) =301400 000001 
----------

*032055  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032055 032055 032055 133000000014 777777777777 001200000000     001200000000 0            0            030 0   777 
IT1	*      *      000014 *            133000000014 *                000000770000 0            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            0            0            *   0   *   
FT6	*      000014 032056 *            777777777777 001200000000     *            0            0            *   0   *   
ET0	*      *      *      *            001200000001 *                *            0            0            *   0   766 
ET2	*      *      *      *            000000001777 001200000001     *            0            0            *   0   032 
ST1	*      *      *      *            777777777777 321200000001     *            0            000000001777 032 0   777 
ST2	*      *      *      321200000001 *            *                001200000000 0            *            *   0   *   
ST5	032056 032056 *      312600000011 *            *                000000770000 0            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0292
C(E) =001200 000000 
FINAL
C(E) =321200 000001 
----------

*032064  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032064 032064 032064 133000000014 777777777777 001000000000     001000000000 0            0            032 0   777 
IT1	*      *      000014 *            133000000014 *                000000770000 0            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            0            0            *   0   *   
FT6	*      000014 032065 *            777777777777 001000000000     *            0            0            *   0   *   
ET0	*      *      *      *            001000000001 *                *            0            0            *   0   770 
ET2	*      *      *      *            000000000377 001000000001     *            0            0            *   0   034 
ST1	*      *      *      *            777777777777 341000000001     *            0            000000000377 034 0   777 
ST2	*      *      *      341000000001 *            *                001000000000 0            *            *   0   *   
ST5	032065 032065 *      312600000011 *            *                000000770000 0            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =001000 000000 
FINAL
C(E) =341000 000001 
----------

*032073  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032073 032073 032073 133000000014 777777777777 000600000000     000600000000 0            0            034 0   777 
IT1	*      *      000014 *            133000000014 *                000000770000 0            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            0            0            *   0   *   
FT6	*      000014 032074 *            777777777777 000600000000     *            0            0            *   0   *   
ET0	*      *      *      *            000600000001 *                *            0            0            *   0   772 
ET2	*      *      *      *            000000000077 000600000001     *            0            0            *   0   036 
ST1	*      *      *      *            777777777777 360600000001     *            0            000000000077 036 0   777 
ST2	*      *      *      360600000001 *            *                000600000000 0            *            *   0   *   
ST5	032074 032074 *      312600000011 *            *                000000770000 0            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =000600 000000 
FINAL
C(E) =360600 000001 
----------

*032102  IBP	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032102 032102 032102 133000000014 777777777777 000400000000     000400000000 0            0            036 0   777 
IT1	*      *      000014 *            133000000014 *                000000770000 0            0            *   0   *   
MEMST	*      *      *      *            *            000000000014     *            0            0            *   0   *   
FT6	*      000014 032103 *            777777777777 000400000000     *            0            0            *   0   *   
ET0	*      *      *      *            000400000001 *                *            0            0            *   0   774 
ET2	*      *      *      *            000000000017 000400000001     *            0            0            *   0   040 
ST1	*      *      *      *            777777777777 400400000001     *            0            000000000017 040 0   777 
ST2	*      *      *      400400000001 *            *                000400000000 0            *            *   0   *   
ST5	032103 032103 *      312600000011 *            *                000000770000 0            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0293
C(E) =000400 000000 
FINAL
C(E) =400400 000001 
----------

*032114  LDB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032114 032114 032114 135500000013 777777777777 777777000000     777777000000 000000032077 0            040 0   777 
IT1	*      *      000013 *            135500000013 *                160400000000 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            *   0   *   
FT6	*      000013 *      *            777777777777 220100000000     *            *            0            *   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            *   0   022 
IT0	032114 *      *      220100000000 777777777777 *                *            *            000000000001 022 0   777 
IT1	*      *      000000 *            220100000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032115 032115 032115 302500000001 777777777777 777777000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            777777000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            *            *            770 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            *            *            771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            *            *            772 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            *            *            773 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            *            *            774 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            *            *            775 0   *   
SCT2	*      *      *      *            000017777760 000017777760     *            *            *            776 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000001 000000000001     *            000000777777 *            0   0   *   
ST1	032115 *      *      *            777777777777 *                000000000001 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032122  LDB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032122 032122 032122 135500000013 777777777777 777777000000     777777000000 000000032112 0            0   0   777 
IT1	*      *      000013 *            135500000013 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 220200000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000003 *                *            *            0            0   0   022 
IT0	032122 *      *      220200000000 777777777777 *                *            *            000000000003 022 0   777 
IT1	*      *      000000 *            220200000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032123 032123 032123 302500000003 777777777777 777777000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            777777000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            *            *            770 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            *            *            771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            *            *            772 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            *            *            773 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            *            *            774 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            *            *            775 0   *   SEQ 0294
SCT2	*      *      *      *            000017777760 000017777760     *            *            *            776 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000003 000000000003     *            000000777777 *            0   0   *   
ST1	032123 *      *      *            777777777777 *                000000000003 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032130  LDB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032130 032130 032130 135500000013 777777777777 777777000000     777777000000 000000032120 0            0   0   777 
IT1	*      *      000013 *            135500000013 *                000000000003 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 220300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032130 *      *      220300000000 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000000 *            220300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032131 032131 032131 302500000007 777777777777 777777000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            777777000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            *            *            770 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            *            *            771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            *            *            772 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            *            *            773 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            *            *            774 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            *            *            775 0   *   
SCT2	*      *      *      *            000017777760 000017777760     *            *            *            776 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 000000000007     *            000000777777 *            0   0   *   
ST1	032131 *      *      *            777777777777 *                000000000007 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032136  LDB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032136 032136 032136 135500000013 777777777777 777777000000     777777000000 000000032126 0            0   0   777 
IT1	*      *      000013 *            135500000013 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 220400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000017 *                *            *            0            0   0   022 
IT0	032136 *      *      220400000000 777777777777 *                *            *            000000000017 022 0   777 
IT1	*      *      000000 *            220400000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032137 032137 032137 302500000017 777777777777 777777000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   75  SEQ 0295
SCT1	*      *      *      *            777777000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            *            *            770 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            *            *            771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            *            *            772 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            *            *            773 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            *            *            774 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            *            *            775 0   *   
SCT2	*      *      *      *            000017777760 000017777760     *            *            *            776 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000017 000000000017     *            000000777777 *            0   0   *   
ST1	032137 *      *      *            777777777777 *                000000000017 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032144  LDB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032144 032144 032144 135500000013 777777777777 777777000000     777777000000 000000032134 0            0   0   777 
IT1	*      *      000013 *            135500000013 *                000000000017 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 220500000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000037 *                *            *            0            0   0   022 
IT0	032144 *      *      220500000000 777777777777 *                *            *            000000000037 022 0   777 
IT1	*      *      000000 *            220500000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032145 032145 032145 302500000037 777777777777 777777000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            777777000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            *            *            770 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            *            *            771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            *            *            772 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            *            *            773 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            *            *            774 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            *            *            775 0   *   
SCT2	*      *      *      *            000017777760 000017777760     *            *            *            776 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000777777     *            *            *            000 0   *   
ET2	*      *      *      *            000000000037 000000000037     *            000000777777 *            0   0   *   
ST1	032145 *      *      *            777777777777 *                000000000037 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032157  LDB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032157 032157 032157 135440000012 777777777777 000000070000     000000070000 000000000003 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                400400000001 *            0            0   0   *   SEQ 0296
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 140300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   014 
IT0	032157 *      *      140300000000 777777777777 *                *            *            000000000007 014 0   777 
IT1	*      *      000000 *            140300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032160 032160 032160 302440000007 777777777777 000000070000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            000000070000 *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            000000016000 000000016000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003400 000000003400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000700 000000000700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000160 000000000160     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000034 000000000034     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000007     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 *                *            000000000007 *            0   0   *   
ST1	032160 *      *      *            777777777777 *                000000000007 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032166  LDB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032166 032166 032166 135440000012 777777777777 000000700000     000000700000 000000000006 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 170300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   017 
IT0	032166 *      *      170300000000 777777777777 *                *            *            000000000007 017 0   777 
IT1	*      *      000000 *            170300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032167 032167 032167 302440000007 777777777777 000000700000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   761 
SCT1	*      *      *      *            000000700000 *                *            *            *            761 0   777 
SCT2	*      *      *      *            000000340000 000000340000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000070000 000000070000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000016000 000000016000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003400 000000003400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000700 000000000700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000160 000000000160     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000034 000000000034     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000007     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 *                *            000000000007 *            0   0   *   
ST1	032167 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032175  LDB	11,000012
                                                                                                                           SEQ 0297
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032175 032175 032175 135440000012 777777777777 000007000000     000007000000 000000000011 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 220300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032175 *      *      220300000000 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000000 *            220300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032176 032176 032176 302440000007 777777777777 000007000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000007000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000001600000 000001600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000340000 000000340000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000070000 000000070000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000016000 000000016000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003400 000000003400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000700 000000000700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000160 000000000160     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000034 000000000034     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000007     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 *                *            000000000007 *            0   0   *   
ST1	032176 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032204  LDB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032204 032204 032204 135440000012 777777777777 000070000000     000070000000 000000000014 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 250300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   025 
IT0	032204 *      *      250300000000 777777777777 *                *            *            000000000007 025 0   777 
IT1	*      *      000000 *            250300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032205 032205 032205 302440000007 777777777777 000070000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   753 
SCT1	*      *      *      *            000070000000 *                *            *            *            753 0   777 
SCT2	*      *      *      *            000034000000 000034000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000007000000 000007000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000001600000 000001600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000340000 000000340000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000070000 000000070000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000016000 000000016000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003400 000000003400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000700 000000000700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000160 000000000160     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000034 000000000034     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000007     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 *                *            000000000007 *            0   0   *   
ST1	032205 *      *      *            777777777777 *                *            *            *            0   0   *   
                                                                                                                           SEQ 0298
FLAGS - INT/FINAL   000000 000000 
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 
----------

*032213  LDB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032213 032213 032213 135440000012 777777777777 000700000000     000700000000 000000000017 0            0   0   777 
IT1	*      *      000012 *            135440000012 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 300300000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   030 
IT0	032213 *      *      300300000000 777777777777 *                *            *            000000000007 030 0   777 
IT1	*      *      000000 *            300300000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032214 032214 032214 302440000007 777777777777 000700000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   750 
SCT1	*      *      *      *            000700000000 *                *            *            *            750 0   777 
SCT2	*      *      *      *            *            *                *            *            *            764 0   *   
SCT2	*      *      *      *            000160000000 000160000000     *            *            *            765 0   *   
SCT2	*      *      *      *            000034000000 000034000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000007000000 000007000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000001600000 000001600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000340000 000000340000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000070000 000000070000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000016000 000000016000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003400 000000003400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000700 000000000700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000160 000000000160     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000034 000000000034     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000007     *            *            *            000 0   *   
ET2	*      *      *      *            000000000007 *                *            000000000007 *            0   0   *   
ST1	032214 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032226  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032226 032226 032226 135340000010 777777777777 000006000000     000006000000 000000032210 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 220300000006     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032226 *      *      220300000006 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000006 *            220300000006 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            *            *   0   *   
FT6	032227 032227 032227 302340000006 777777777777 000006000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000006000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000001400000 000001400000     *            *            *            770 0   *   SEQ 0299
SCT2	*      *      *      *            000000300000 000000300000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000060000 000000060000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000014000 000000014000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000003000 000000003000     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000600 000000000600     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000140 000000000140     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000030 000000000030     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000006     *            *            *            000 0   *   
ET2	*      *      *      *            000000000006 000000000007     *            000000000006 *            0   0   *   
ST1	032227 *      *      *            777777777777 000000000006     000000000006 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032235  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032235 032235 032235 135340000010 777777777777 000005000000     000005000000 000000032223 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000006 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 220300000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032235 *      *      220300000005 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000005 *            220300000005 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            *            *   0   *   
FT6	032236 032236 032236 302340000005 777777777777 000005000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000005000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000001200000 000001200000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000240000 000000240000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000050000 000000050000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000012000 000000012000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000002400 000000002400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000500 000000000500     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000120 000000000120     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000024 000000000024     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000005     *            *            *            000 0   *   
ET2	*      *      *      *            000000000005 000000000007     *            000000000005 *            0   0   *   
ST1	032236 *      *      *            777777777777 000000000005     000000000005 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032244  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032244 032244 032244 135340000010 777777777777 000004000000     000004000000 000000032232 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000005 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 220300000004     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   02  SEQ 0300
IT0	032244 *      *      220300000004 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000004 *            220300000004 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            *            *   0   *   
FT6	032245 032245 032245 302340000004 777777777777 000004000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000004000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000001000000 000001000000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000200000 000000200000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000040000 000000040000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000010000 000000010000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000002000 000000002000     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000400 000000000400     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000100 000000000100     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000020 000000000020     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000004     *            *            *            000 0   *   
ET2	*      *      *      *            000000000004 000000000007     *            000000000004 *            0   0   *   
ST1	032245 *      *      *            777777777777 000000000004     000000000004 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032253  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032253 032253 032253 135340000010 777777777777 000003000000     000003000000 000000032241 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000004 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 220300000003     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032253 *      *      220300000003 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000003 *            220300000003 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            *            *   0   *   
FT6	032254 032254 032254 302340000003 777777777777 000003000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000003000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000000600000 000000600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000140000 000000140000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000030000 000000030000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000006000 000000006000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000001400 000000001400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000300 000000000300     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000060 000000000060     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000014 000000000014     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000003     *            *            *            000 0   *   
ET2	*      *      *      *            000000000003 000000000007     *            000000000003 *            0   0   *   
ST1	032254 *      *      *            777777777777 000000000003     000000000003 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------
                                                                                                                           SEQ 0301
*032262  LDB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032262 032262 032262 135340000010 777777777777 000002000000     000002000000 000000032250 0            0   0   777 
IT1	*      *      000010 *            135340000010 *                000000000003 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 220300000002     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   022 
IT0	032262 *      *      220300000002 777777777777 *                *            *            000000000007 022 0   777 
IT1	*      *      000002 *            220300000002 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            *            *   0   *   
FT6	032263 032263 032263 302340000002 777777777777 000002000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000002000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000000400000 000000400000     *            *            *            770 0   *   
SCT2	*      *      *      *            000000100000 000000100000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000020000 000000020000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000004000 000000004000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000001000 000000001000     *            *            *            774 0   *   
SCT2	*      *      *      *            000000000200 000000000200     *            *            *            775 0   *   
SCT2	*      *      *      *            000000000040 000000000040     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000010 000000000010     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000002     *            *            *            000 0   *   
ET2	*      *      *      *            000000000002 000000000007     *            000000000002 *            0   0   *   
ST1	032263 *      *      *            777777777777 000000000002     000000000002 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032275  LDB	10,000000(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032275 032275 032275 135401000000 777777777777 000300000001     000300000001 000000032257 0            0   0   777 
IT1	*      *      000001 *            000300000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000300000001     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                220300000002 *            0            0   0   000 
IT0	032275 *      *      000300000001 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000001 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            0   0   *   
FT6	032276 032276 032276 302400000001 777777777777 000300000001     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000001 000000000007     *            000300000001 *            0   0   *   
ST1	032276 *      *      *            777777777777 000000000001     000000000001 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=220300 000002 C(E) =000300 000001 C(C(E))=000300 000001 
FINAL
C(AC)=000000 000001 C(E) =000300 000001 C(C(E))=000300 000001 
----------

*032304  LDB	10,000000(2)
                                                                                                                           SEQ 0302
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032304 032304 032304 135402000000 777777777777 000300000002     000300000002 000000032272 0            0   0   777 
IT1	*      *      000002 *            000300000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000300000002     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                000000000001 *            0            0   0   000 
IT0	032304 *      *      000300000002 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000002 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            *            0   0   *   
FT6	032305 032305 032305 302400000002 777777777777 000300000002     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000002 000000000007     *            000300000002 *            0   0   *   
ST1	032305 *      *      *            777777777777 000000000002     000000000002 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =000300 000002 C(C(E))=000300 000002 
FINAL
C(AC)=000000 000002 C(E) =000300 000002 C(C(E))=000300 000002 
----------

*032313  LDB	10,000000(3)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032313 032313 032313 135403000000 777777777777 000300000003     000300000003 000000032301 0            0   0   777 
IT1	*      *      000003 *            000300000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 000300000003     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                000000000002 *            0            0   0   000 
IT0	032313 *      *      000300000003 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000003 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            *            0   0   *   
FT6	032314 032314 032314 302400000003 777777777777 000300000003     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000003 000000000007     *            000300000003 *            0   0   *   
ST1	032314 *      *      *            777777777777 000000000003     000000000003 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000300 000003 C(C(E))=000300 000003 
FINAL
C(AC)=000000 000003 C(E) =000300 000003 C(C(E))=000300 000003 
----------

*032322  LDB	10,000000(4)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032322 032322 032322 135404000000 777777777777 000300000004     000300000004 000000032310 0            0   0   777 
IT1	*      *      000004 *            000300000004 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 000300000004     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                000000000003 *            0            0   0   000 
IT0	032322 *      *      000300000004 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000004 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            *            0   0   *   
FT6	032323 032323 032323 302400000004 777777777777 000300000004     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   77  SEQ 0303
ET2	*      *      *      *            000000000004 000000000007     *            000300000004 *            0   0   *   
ST1	032323 *      *      *            777777777777 000000000004     000000000004 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000003 C(E) =000300 000004 C(C(E))=000300 000004 
FINAL
C(AC)=000000 000004 C(E) =000300 000004 C(C(E))=000300 000004 
----------

*032331  LDB	10,000000(5)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032331 032331 032331 135405000000 777777777777 000300000005     000300000005 000000032317 0            0   0   777 
IT1	*      *      000005 *            000300000005 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000300000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                000000000004 *            0            0   0   000 
IT0	032331 *      *      000300000005 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000005 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            *            0   0   *   
FT6	032332 032332 032332 302400000005 777777777777 000300000005     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000005 000000000007     *            000300000005 *            0   0   *   
ST1	032332 *      *      *            777777777777 000000000005     000000000005 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =000300 000005 C(C(E))=000300 000005 
FINAL
C(AC)=000000 000005 C(E) =000300 000005 C(C(E))=000300 000005 
----------

*032346  LDB	7,@000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032346 032346 032346 135360000010 777777777777 0                0            000000032326 0            0   0   777 
IT1	*      *      000010 *            135360000010 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
IT0	*      000010 *      440300000001 777777777777 *                0            *            0            0   0   *   
IT1	*      *      000001 *            440300000001 *                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000300000001     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   000 
IT0	032346 *      *      000300000001 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000001 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            0   0   *   
FT6	032347 032347 032347 302340000001 777777777777 000300000001     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000001 000000000007     *            000300000001 *            0   0   *   
ST1	032347 *      *      *            777777777777 000000000001     000000000001 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000300 000001 C(C(E))=000300 000001 
FINAL
C(AC)=000000 000001 C(E) =000300 000001 C(C(E))=000300 000001 
----------                                                                                                                 SEQ 0304

*032357  LDB	7,@000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032357 032357 032357 135360000010 777777777777 0                0            000000032341 0            0   0   777 
IT1	*      *      000010 *            135360000010 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
IT0	*      000010 *      440300000002 777777777777 *                0            *            0            0   0   *   
IT1	*      *      000002 *            440300000002 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000300000002     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   000 
IT0	032357 *      *      000300000002 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000002 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            *            0   0   *   
FT6	032360 032360 032360 302340000002 777777777777 000300000002     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000002 000000000007     *            000300000002 *            0   0   *   
ST1	032360 *      *      *            777777777777 000000000002     000000000002 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =000300 000002 C(C(E))=000300 000002 
FINAL
C(AC)=000000 000002 C(E) =000300 000002 C(C(E))=000300 000002 
----------

*032370  LDB	7,@000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032370 032370 032370 135360000010 777777777777 0                0            000000032352 0            0   0   777 
IT1	*      *      000010 *            135360000010 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
IT0	*      000010 *      440300000003 777777777777 *                0            *            0            0   0   *   
IT1	*      *      000003 *            440300000003 *                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 000300000003     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   000 
IT0	032370 *      *      000300000003 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000003 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            *            0   0   *   
FT6	032371 032371 032371 302340000003 777777777777 000300000003     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000003 000000000007     *            000300000003 *            0   0   *   
ST1	032371 *      *      *            777777777777 000000000003     000000000003 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000300 000003 C(C(E))=000300 000003 
FINAL
C(AC)=000000 000003 C(E) =000300 000003 C(C(E))=000300 000003 
----------

*032401  LDB	7,@000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032401 032401 032401 135360000010 777777777777 0                0            000000032363 0            0   0   777 
IT1	*      *      000010 *            135360000010 0                0            *            0            0   0   *   SEQ 0305
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
IT0	*      000010 *      440300000004 777777777777 *                0            *            0            0   0   *   
IT1	*      *      000004 *            440300000004 *                000000000003 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 000300000004     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   000 
IT0	032401 *      *      000300000004 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000004 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            *            0   0   *   
FT6	032402 032402 032402 302340000004 777777777777 000300000004     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000004 000000000007     *            000300000004 *            0   0   *   
ST1	032402 *      *      *            777777777777 000000000004     000000000004 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000003 C(E) =000300 000004 C(C(E))=000300 000004 
FINAL
C(AC)=000000 000004 C(E) =000300 000004 C(C(E))=000300 000004 
----------

*032412  LDB	7,@000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032412 032412 032412 135360000010 777777777777 0                0            000000032374 0            0   0   777 
IT1	*      *      000010 *            135360000010 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
IT0	*      000010 *      440300000005 777777777777 *                0            *            0            0   0   *   
IT1	*      *      000005 *            440300000005 *                000000000004 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000300000005     *            *            0            0   0   *   
ET2	*      *      *      *            000000000007 *                *            *            0            0   0   000 
IT0	032412 *      *      000300000005 777777777777 *                *            *            000000000007 0   0   777 
IT1	*      *      *      *            000300000005 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            *            0   0   *   
FT6	032413 032413 032413 302340000005 777777777777 000300000005     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000005 000000000007     *            000300000005 *            0   0   *   
ST1	032413 *      *      *            777777777777 000000000005     000000000005 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =000300 000005 C(C(E))=000300 000005 
FINAL
C(AC)=000000 000005 C(E) =000300 000005 C(C(E))=000300 000005 
----------

*032426  LDB	10,@000000(4)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032426 032426 032426 135424000000 777777777777 000600000012     000600000012 000000032405 0            0   0   777 
IT1	*      *      000007 *            000000000007 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
IT0	*      000007 *      000000000012 777777777777 *                000000000000 *            0            0   0   *   
IT1	*      *      000012 *            000000000012 *                440300000005 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 000600000012     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   00  SEQ 0306
IT0	032426 *      *      000600000012 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      *      *            000600000012 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            *            0   0   *   
FT6	032427 032427 032427 302400000012 777777777777 000600000012     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000012 000000000077     *            000600000012 *            0   0   *   
ST1	032427 *      *      *            777777777777 000000000012     000000000012 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=440300 000005 C(E) =000600 000012 C(C(E))=000600 000012 
FINAL
C(AC)=000000 000012 C(E) =000600 000012 C(C(E))=000600 000012 
----------

*032436  LDB	10,@000000(5)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032436 032436 032436 135425000000 777777777777 000600000013     000600000013 000000000010 0            0   0   777 
IT1	*      *      000010 *            000000000010 *                000000000010 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
IT0	*      000010 *      000000000013 777777777777 *                000000000000 *            0            0   0   *   
IT1	*      *      000013 *            000000000013 *                000000000013 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 000600000013     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032436 *      *      000600000013 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      *      *            000600000013 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            *            0   0   *   
FT6	032437 032437 032437 302400000013 777777777777 000600000013     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000013 000000000077     *            000600000013 *            0   0   *   
ST1	032437 *      *      *            777777777777 000000000013     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000013 C(E) =000600 000013 C(C(E))=000600 000013 
FINAL
C(AC)=000000 000013 C(E) =000600 000013 C(C(E))=000600 000013 
----------

*032446  LDB	10,@000000(6)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032446 032446 032446 135426000000 777777777777 000600000014     000600000014 000000000010 0            0   0   777 
IT1	*      *      000011 *            000000000011 *                000000000011 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
IT0	*      000011 *      000000000014 777777777777 *                000000000000 *            0            0   0   *   
IT1	*      *      000014 *            000000000014 *                000000000013 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 000600000014     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032446 *      *      000600000014 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      *      *            000600000014 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            *            0   0   *   
FT6	032447 032447 032447 302400000014 777777777777 000600000014     *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   77  SEQ 0307
ET2	*      *      *      *            000000000014 000000000077     *            000600000014 *            0   0   *   
ST1	032447 *      *      *            777777777777 000000000014     000000000014 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000013 C(E) =000600 000014 C(C(E))=000600 000014 
FINAL
C(AC)=000000 000014 C(E) =000600 000014 C(C(E))=000600 000014 
----------

*032461  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032461 032461 032461 135200000005 777777777777 000000000007     000000000007 000000000010 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000607000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032461 *      *      000607000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000007 *            000000000007 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            *            0   0   *   
FT6	032462 032462 032462 302200000007 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000007 000000000077     *            000000000007 *            0   0   *   
ST1	032462 *      *      *            777777777777 000000000007     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000007 C(E) =000607 000000 C(C(E))=000000 000007 
FINAL
C(AC)=000000 000007 C(E) =000607 000000 C(C(E))=000000 000007 
----------

*032470  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032470 032470 032470 135200000005 777777777777 000000000010     000000000010 000000032456 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000607000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032470 *      *      000607000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000010 *            000000000010 *                000000000010 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            *            0   0   *   
FT6	032471 032471 032471 302200000010 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000007 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000010 000000000077     *            000000000010 *            0   0   *   
ST1	032471 *      *      *            777777777777 000000000010     000000000010 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000007 C(E) =000607 000000 C(C(E))=000000 000010 
FINAL
C(AC)=000000 000010 C(E) =000607 000000 C(C(E))=000000 000010 
----------

*032477  LDB	4,000005
                                                                                                                           SEQ 0308
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032477 032477 032477 135200000005 777777777777 000000000011     000000000011 000000032465 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000010 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000607000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032477 *      *      000607000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000011 *            000000000011 *                000000000011 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            *            0   0   *   
FT6	032500 032500 032500 302200000011 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000010 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000011 000000000077     *            000000000011 *            0   0   *   
ST1	032500 *      *      *            777777777777 000000000011     000000000011 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 C(E) =000607 000000 C(C(E))=000000 000011 
FINAL
C(AC)=000000 000011 C(E) =000607 000000 C(C(E))=000000 000011 
----------

*032506  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032506 032506 032506 135200000005 777777777777 000000000012     000000000012 000000032474 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000011 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000607000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032506 *      *      000607000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000012 *            000000000012 *                000000000012 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            *            0   0   *   
FT6	032507 032507 032507 302200000012 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000011 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000012 000000000077     *            000000000012 *            0   0   *   
ST1	032507 *      *      *            777777777777 000000000012     000000000012 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000011 C(E) =000607 000000 C(C(E))=000000 000012 
FINAL
C(AC)=000000 000012 C(E) =000607 000000 C(C(E))=000000 000012 
----------

*032515  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032515 032515 032515 135200000005 777777777777 000000000013     000000000013 000000032503 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000012 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000607000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032515 *      *      000607000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000013 *            000000000013 *                000000000013 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            *            0   0   *   
FT6	032516 032516 032516 302200000013 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                000000000012 *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   77  SEQ 0309
ET2	*      *      *      *            000000000013 000000000077     *            000000000013 *            0   0   *   
ST1	032516 *      *      *            777777777777 000000000013     000000000013 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000012 C(E) =000607 000000 C(C(E))=000000 000013 
FINAL
C(AC)=000000 000013 C(E) =000607 000000 C(C(E))=000000 000013 
----------

*032530  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032530 032530 032530 135200000005 777777777777 000000000007     000000000007 000000032512 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000013 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000620000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032530 *      *      000620000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000620000000 *                000000000007 *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
IT0	*      000000 0      000000000007 777777777777 0                *            *            *            0   0   *   
IT1	*      0      000007 *            000000000007 0                000000000013 *            *            0   0   *   
MEMST	*      0      *      *            *            000000000007     *            *            *            0   0   *   
FT6	032531 032531 032531 302200000007 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000007 000000000077     *            000000000007 *            0   0   *   
ST1	032531 *      *      *            777777777777 000000000007     000000000007 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032537  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032537 032537 032537 135200000005 777777777777 000000000010     000000000010 000000032525 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000007 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000620000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032537 *      *      000620000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000620000000 *                000000000010 *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
IT0	*      000000 0      000000000010 777777777777 0                *            *            *            0   0   *   
IT1	*      0      000010 *            000000000010 0                000000000007 *            *            0   0   *   
MEMST	*      0      *      *            *            000000000010     *            *            *            0   0   *   
FT6	032540 032540 032540 302200000010 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000010 000000000077     *            000000000010 *            0   0   *   
ST1	032540 *      *      *            777777777777 000000000010     000000000010 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000007 C(E) =000620 000000 C(C(E))=000000 000010                                                              SEQ 0310
FINAL
C(AC)=000000 000010 C(E) =000620 000000 C(C(E))=000000 000010 
----------

*032546  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032546 032546 032546 135200000005 777777777777 000000000011     000000000011 000000032534 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000010 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000620000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032546 *      *      000620000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000620000000 *                000000000011 *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
IT0	*      000000 0      000000000011 777777777777 0                *            *            *            0   0   *   
IT1	*      0      000011 *            000000000011 0                000000000010 *            *            0   0   *   
MEMST	*      0      *      *            *            000000000011     *            *            *            0   0   *   
FT6	032547 032547 032547 302200000011 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000011 000000000077     *            000000000011 *            0   0   *   
ST1	032547 *      *      *            777777777777 000000000011     000000000011 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032555  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032555 032555 032555 135200000005 777777777777 000000000012     000000000012 000000032543 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000011 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000620000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032555 *      *      000620000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000620000000 *                000000000012 *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
IT0	*      000000 0      000000000012 777777777777 0                *            *            *            0   0   *   
IT1	*      0      000012 *            000000000012 0                000000000011 *            *            0   0   *   
MEMST	*      0      *      *            *            000000000012     *            *            *            0   0   *   
FT6	032556 032556 032556 302200000012 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000012 000000000077     *            000000000012 *            0   0   *   
ST1	032556 *      *      *            777777777777 000000000012     000000000012 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032564  LDB	4,000005
                                                                                                                           SEQ 0311
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032564 032564 032564 135200000005 777777777777 000000000013     000000000013 000000032552 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000012 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000620000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032564 *      *      000620000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000620000000 *                000000000013 *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
IT0	*      000000 0      000000000013 777777777777 0                *            *            *            0   0   *   
IT1	*      0      000013 *            000000000013 0                000000000012 *            *            0   0   *   
MEMST	*      0      *      *            *            000000000013     *            *            *            0   0   *   
FT6	032565 032565 032565 302200000013 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000013 000000000077     *            000000000013 *            0   0   *   
ST1	032565 *      *      *            777777777777 000000000013     000000000013 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032600  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032600 032600 032600 135200000005 777777777777 000000000013     000000000013 000000032561 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000627000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032600 *      *      000627000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000010 *            000000000010 *                000000000010 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            *            0   0   *   
IT0	*      000010 *      000000000013 777777777777 *                000000000013 *            *            0   0   *   
IT1	*      *      000013 *            000000000013 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            *            0   0   *   
FT6	032601 032601 032601 302200000013 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000013 000000000077     *            000000000013 *            0   0   *   
ST1	032601 *      *      *            777777777777 000000000013     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032610  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032610 032610 032610 135200000005 777777777777 000000000014     000000000014 000000032574 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000013 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000627000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   00  SEQ 0312
IT0	032610 *      *      000627000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000011 *            000000000011 *                000000000011 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            *            0   0   *   
IT0	*      000011 *      000000000014 777777777777 *                000000000013 *            *            0   0   *   
IT1	*      *      000014 *            000000000014 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            *            0   0   *   
FT6	032611 032611 032611 302200000014 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000014 000000000077     *            000000000014 *            0   0   *   
ST1	032611 *      *      *            777777777777 000000000014     000000000014 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000013 C(E) =000627 000000 C(C(E))=000000 000014 
FINAL
C(AC)=000000 000014 C(E) =000627 000000 C(C(E))=000000 000014 
----------

*032620  LDB	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032620 032620 032620 135200000005 777777777777 000000000015     000000000015 000000032604 0            0   0   777 
IT1	*      *      000005 *            135200000005 *                000000000014 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000627000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	032620 *      *      000627000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000012 *            000000000012 *                000000000012 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            *            0   0   *   
IT0	*      000012 *      000000000015 777777777777 *                000000000013 *            *            0   0   *   
IT1	*      *      000015 *            000000000015 *                000000000014 *            *            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            *            0   0   *   
FT6	032621 032621 032621 302200000015 777777777777 *                *            *            *            0   0   *   
ET0	*      *      *      *            *            *                *            *            *            0   0   000 
ET1	*      *      *      *            *            *                *            *            *            0   0   777 
ET2	*      *      *      *            000000000015 000000000077     *            000000000015 *            0   0   *   
ST1	032621 *      *      *            777777777777 000000000015     000000000015 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000014 C(E) =000627 000000 C(C(E))=000000 000015 
FINAL
C(AC)=000000 000015 C(E) =000627 000000 C(C(E))=000000 000015 
----------

*032633  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032633 032633 032633 134240000006 777777777777 770000000000     770000000000 000000777772 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000627000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 440600000000     *            *            0            0   0   *   
ET0	*      *      *      *            440600000001 *                *            *            0            0   0   036 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      440600000000 777777777777 360600000000     *            *            000000000077 036 0   777 
ST2	*      *      *      360600000000 *            *                440600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000627000000 *            *            *   0   *   
IT0	032633 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            360600000000 *                *            *            *            *   0   *   SEQ 0313
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032634 032634 032634 302240000077 777777777777 770000000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   742 
SCT1	*      *      *      *            770000000000 *                *            *            *            742 0   777 
SCT2	*      *      *      *            *            *                *            *            *            761 0   *   
SCT2	*      *      *      *            176000000000 176000000000     *            *            *            762 0   *   
SCT2	*      *      *      *            037400000000 037400000000     *            *            *            763 0   *   
SCT2	*      *      *      *            007700000000 007700000000     *            *            *            764 0   *   
SCT2	*      *      *      *            001760000000 001760000000     *            *            *            765 0   *   
SCT2	*      *      *      *            000374000000 000374000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000077000000 000077000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032634 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032642  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032642 032642 032642 134240000006 777777777777 007700000000     007700000000 000000777764 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 360600000000     *            *            0            0   0   *   
ET0	*      *      *      *            360600000001 *                *            *            0            0   0   030 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      360600000000 777777777777 300600000000     *            *            000000000077 030 0   777 
ST2	*      *      *      300600000000 *            *                360600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032642 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            300600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032643 032643 032643 302240000077 777777777777 007700000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   750 
SCT1	*      *      *      *            007700000000 *                *            *            *            750 0   777 
SCT2	*      *      *      *            *            *                *            *            *            764 0   *   
SCT2	*      *      *      *            001760000000 001760000000     *            *            *            765 0   *   
SCT2	*      *      *      *            000374000000 000374000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000077000000 000077000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   SEQ 0314
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032643 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032651  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032651 032651 032651 134240000006 777777777777 000077000000     000077000000 000000777756 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 300600000000     *            *            0            0   0   *   
ET0	*      *      *      *            300600000001 *                *            *            0            0   0   022 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      300600000000 777777777777 220600000000     *            *            000000000077 022 0   777 
ST2	*      *      *      220600000000 *            *                300600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032651 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            220600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032652 032652 032652 302240000077 777777777777 000077000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000077000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032652 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032660  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032660 032660 032660 134240000006 777777777777 000000770000     000000770000 000000777750 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            0   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      220600000000 777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   SEQ 0315
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032660 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032661 032661 032661 302240000077 777777777777 000000770000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            000000770000 *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032661 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032667  ILDB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032667 032667 032667 134240000006 777777777777 000000007700     000000007700 000000777742 0            0   0   777 
IT1	*      *      000006 *            134240000006 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            0   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      140600000000 777777777777 060600000000     *            *            000000000077 006 0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032667 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            060600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	032670 032670 032670 302240000077 777777777777 000000007700     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   772 
SCT1	*      *      *      *            000000007700 *                *            *            *            772 0   777 
SCT2	*      *      *      *            *            *                *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032670 *      *      *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------

*032702  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032702 032702 032702 134600000015 777777777777 770000000000     770000000000 000000777772 0            0   0   77  SEQ 0316
IT1	*      *      000015 *            134600000015 *                000000000014 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 000600000000     *            *            0            0   0   *   
ET0	*      *      *      *            000600000001 *                *            *            0            0   0   772 
ET2	*      *      *      *            000000000077 000600000001     *            *            0            0   0   036 
ST1	*      *      *      000600000001 777777777777 360600000001     *            *            000000000077 036 0   777 
ST2	*      *      *      360600000001 *            *                000600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000014 *            *            *   0   *   
IT0	032702 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            360600000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032703 032703 032703 302600000077 777777777777 770000000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   742 
SCT1	*      *      *      *            770000000000 *                *            *            *            742 0   777 
SCT2	*      *      *      *            *            *                *            *            *            761 0   *   
SCT2	*      *      *      *            176000000000 176000000000     *            *            *            762 0   *   
SCT2	*      *      *      *            037400000000 037400000000     *            *            *            763 0   *   
SCT2	*      *      *      *            007700000000 007700000000     *            *            *            764 0   *   
SCT2	*      *      *      *            001760000000 001760000000     *            *            *            765 0   *   
SCT2	*      *      *      *            000374000000 000374000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000077000000 000077000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 *                *            000000000077 *            0   0   *   
ST1	032703 *      *      *            777777777777 *                000000000077 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000014 C(E) =000600 000000 C(C(E))=770000 000000 
FINAL
C(AC)=000000 000077 C(E) =360600 000001 C(C(E))=770000 000000 
----------

*032711  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032711 032711 032711 134600000015 777777777777 007700000000     007700000000 000000777764 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 001400000000     *            *            0            0   0   *   
ET0	*      *      *      *            001400000001 *                *            *            0            0   0   764 
ET2	*      *      *      *            000000007777 001400000001     *            *            0            0   0   030 
ST1	*      *      *      001400000001 777777777777 301400000001     *            *            000000007777 030 0   777 
ST2	*      *      *      301400000001 *            *                001400000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032711 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            301400000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032712 032712 032712 302600000077 777777777777 007700000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   750 
SCT1	*      *      *      *            007700000000 *                *            *            *            750 0   777 
SCT2	*      *      *      *            *            *                *            *            *            764 0   *   
SCT2	*      *      *      *            001760000000 001760000000     *            *            *            765 0   *   SEQ 0317
SCT2	*      *      *      *            000374000000 000374000000     *            *            *            766 0   *   
SCT2	*      *      *      *            000077000000 000077000000     *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000007777     *            000000000077 *            0   0   *   
ST1	032712 *      *      *            777777777777 000000000077     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =001400 000000 C(C(E))=007700 000000 
FINAL
C(AC)=000000 000077 C(E) =301400 000001 C(C(E))=007700 000000 
----------

*032720  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032720 032720 032720 134600000015 777777777777 000077000000     000077000000 000000777756 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 002200000000     *            *            0            0   0   *   
ET0	*      *      *      *            002200000001 *                *            *            0            0   0   756 
ET2	*      *      *      *            000000777777 002200000001     *            *            0            0   0   022 
ST1	*      *      *      002200000001 777777777777 222200000001     *            *            000000777777 022 0   777 
ST2	*      *      *      222200000001 *            *                002200000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032720 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            222200000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032721 032721 032721 302600000077 777777777777 000077000000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            000077000000 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            *            770 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            *            771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000000777777     *            000000000077 *            0   0   *   
ST1	032721 *      *      *            777777777777 000000000077     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =002200 000000 C(C(E))=000077 000000 
FINAL
C(AC)=000000 000077 C(E) =222200 000001 C(C(E))=000077 000000 
----------
*032727  ILDB	14,000015                                                                                                  SEQ 0318

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032727 032727 032727 134600000015 777777777777 000000770000     000000770000 000000777750 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 003000000000     *            *            0            0   0   *   
ET0	*      *      *      *            003000000001 *                *            *            0            0   0   750 
ET2	*      *      *      *            000077777777 003000000001     *            *            0            0   0   014 
ST1	*      *      *      003000000001 777777777777 143000000001     *            *            000077777777 014 0   777 
ST2	*      *      *      143000000001 *            *                003000000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032727 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            143000000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032730 032730 032730 302600000077 777777777777 000000770000     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   764 
SCT1	*      *      *      *            000000770000 *                *            *            *            764 0   777 
SCT2	*      *      *      *            *            *                *            *            *            772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            *            773 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            *            774 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 000077777777     *            000000000077 *            0   0   *   
ST1	032730 *      *      *            777777777777 000000000077     *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =003000 000000 C(C(E))=000000 770000 
FINAL
C(AC)=000000 000077 C(E) =143000 000001 C(C(E))=000000 770000 
----------

*032736  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032736 032736 032736 134600000015 777777777777 000000007700     000000007700 000000777742 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 003600000000     *            *            0            0   0   *   
ET0	*      *      *      *            003600000001 *                *            *            0            0   0   742 
ET2	*      *      *      *            007777777777 003600000001     *            *            0            0   0   006 
ST1	*      *      *      003600000001 777777777777 063600000001     *            *            007777777777 006 0   777 
ST2	*      *      *      063600000001 *            *                003600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	032736 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            063600000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032737 032737 032737 302600000077 777777777777 000000007700     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   772 
SCT1	*      *      *      *            000000007700 *                *            *            *            772 0   777 
SCT2	*      *      *      *            *            *                *            *            *            775 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            *            776 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000000077     *            *            *            000 0   *   
ET2	*      *      *      *            000000000077 007777777777     *            000000000077 *            0   0   *   
ST1	032737 *      *      *            777777777777 000000000077     *            *            *            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0319
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 
----------

*032745  ILDB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032745 032745 032745 134600000015 777777777777 777777777777     777777777777 000000032733 0            0   0   777 
IT1	*      *      000015 *            134600000015 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 206000000000     *            *            0            0   0   *   
ET0	*      *      *      *            206000000001 *                *            *            0            0   0   740 
ET2	*      *      *      *            777777777777 206000000001     *            *            0            0   0   764 
ST1	*      *      *      206000000001 *            646000000001     *            *            777777777777 764 0   777 
ST2	*      *      *      646000000001 *            *                206000000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                777777777777 *            *            *   0   *   
IT0	032745 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            646000000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	032746 032746 032746 332000000014 777777777777 777777777777     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   714 
SCT1	*      *      *      *            *            *                *            *            *            714 0   777 
SCT2	*      *      *      *            *            *                *            *            *            746 0   *   
SCT2	*      *      *      *            177777777777 177777777777     *            *            *            747 0   *   
SCT2	*      *      *      *            037777777777 037777777777     *            *            *            750 0   *   
SCT2	*      *      *      *            007777777777 007777777777     *            *            *            751 0   *   
SCT2	*      *      *      *            001777777777 001777777777     *            *            *            752 0   *   
SCT2	*      *      *      *            000377777777 000377777777     *            *            *            753 0   *   
SCT2	*      *      *      *            000077777777 000077777777     *            *            *            754 0   *   
SCT2	*      *      *      *            000017777777 000017777777     *            *            *            755 0   *   
SCT2	*      *      *      *            000003777777 000003777777     *            *            *            756 0   *   
SCT2	*      *      *      *            000000777777 000000777777     *            *            *            757 0   *   
SCT2	*      *      *      *            000000177777 000000177777     *            *            *            760 0   *   
SCT2	*      *      *      *            000000037777 000000037777     *            *            *            761 0   *   
SCT2	*      *      *      *            000000007777 000000007777     *            *            *            762 0   *   
SCT2	*      *      *      *            000000001777 000000001777     *            *            *            763 0   *   
SCT2	*      *      *      *            000000000377 000000000377     *            *            *            764 0   *   
SCT2	*      *      *      *            000000000077 000000000077     *            *            *            765 0   *   
SCT2	*      *      *      *            000000000017 000000000017     *            *            *            766 0   *   
SCT2	*      *      *      *            000000000003 000000000003     *            *            *            767 0   *   
SCT2	*      *      *      *            000000000000 000000000000     *            *            *            770 0   *   
SCT2	*      *      *      *            0            0                *            *            *            771 0   *   
SCT2	*      *      *      *            0            0                *            *            *            772 0   *   
SCT2	*      *      *      *            0            0                *            *            *            773 0   *   
SCT2	*      *      *      *            0            0                *            *            *            774 0   *   
SCT2	*      *      *      *            0            0                *            *            *            775 0   *   
SCT2	*      *      *      *            0            0                *            *            *            776 0   *   
SCT2	*      *      *      *            0            0                *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 0                *            *            *            000 0   *   
ET2	*      *      *      *            000000000000 777777777777     *            000000000000 *            0   0   *   
ST1	032746 *      *      *            777777777777 000000000000     000000000000 0            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 
----------                                                                                                                 SEQ 0320

*032762  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032762 032762 032762 137540000014 777777777777 000000000055     000000000055 000000000006 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 060600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   006 
IT0	032762 *      *      060600000000 777777777777 *                *            *            000000000077 006 0   777 
IT1	*      *      000000 *            060600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 032763 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   772 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 772 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 773 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 774 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 775 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 776 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 777 0   *   
ET1	*      0      *      *            000000000000 000000007700     *            0            000000005500 000 0   *   
ET2	*      0      *      *            000000005500 000000005500     *            000000007700 000000000000 0   0   *   
ST1	032762 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000005500 *            *                000000000000 *            0            0   0   *   
ST5	032763 032763 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 005500 
----------

*032773  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032773 032773 032773 137540000014 777777777777 000000000055     000000000055 000000000014 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	032773 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 032774 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 000000000000 0   0   *   SEQ 0321
ST1	032773 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000550000 *            *                000000000000 *            0            0   0   *   
ST5	032774 032774 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 550000 
----------

*033004  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033004 033004 033004 137540000014 777777777777 000000000055     000000000055 000000000022 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   022 
IT0	033004 *      *      220600000000 777777777777 *                *            *            000000000077 022 0   777 
IT1	*      *      000000 *            220600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033005 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   756 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 756 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 757 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 760 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 761 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 762 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 763 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 764 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 765 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 766 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 767 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 770 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 771 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            0            000000550000 772 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            0            000001320000 773 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            0            000002640000 774 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            0            000005500000 775 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            0            000013200000 776 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            0            000026400000 777 0   *   
ET1	*      0      *      *            000000000000 000077000000     *            0            000055000000 000 0   *   
ET2	*      0      *      *            000055000000 000055000000     *            000077000000 000000000000 0   0   *   
ST1	033004 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000055000000 *            *                000000000000 *            0            0   0   *   
ST5	033005 033005 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=000055 000000 
----------

*033015  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033015 033015 033015 137540000014 777777777777 000000000055     000000000055 000000000030 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                *            *            0            0   0   *   SEQ 0322
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 300600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   030 
IT0	033015 *      *      300600000000 777777777777 *                *            *            000000000077 030 0   777 
IT1	*      *      000000 *            300600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033016 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   750 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 750 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 751 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 752 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 753 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 754 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 755 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 756 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 757 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 760 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 761 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 762 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 763 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            0            000000550000 764 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            0            000001320000 765 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            0            000002640000 766 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            0            000005500000 767 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            0            000013200000 770 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            0            000026400000 771 0   *   
SCT2	*      0      *      *            000077000000 000077000000     *            0            000055000000 772 0   *   
SCT2	*      0      *      *            000176000000 000176000000     *            0            000132000000 773 0   *   
SCT2	*      0      *      *            000374000000 000374000000     *            0            000264000000 774 0   *   
SCT2	*      0      *      *            000770000000 000770000000     *            0            000550000000 775 0   *   
SCT2	*      0      *      *            001760000000 001760000000     *            0            001320000000 776 0   *   
SCT2	*      0      *      *            003740000000 003740000000     *            0            002640000000 777 0   *   
ET1	*      0      *      *            000000000000 007700000000     *            0            005500000000 000 0   *   
ET2	*      0      *      *            005500000000 005500000000     *            007700000000 000000000000 0   0   *   
ST1	033015 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      005500000000 *            *                000000000000 *            0            0   0   *   
ST5	033016 033016 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=005500 000000 
----------

*033026  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033026 033026 033026 137540000014 777777777777 000000000055     000000000055 000000000036 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 360600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   036 
IT0	033026 *      *      360600000000 777777777777 *                *            *            000000000077 036 0   777 
IT1	*      *      000000 *            360600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033027 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   742 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 742 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 743 0   *   SEQ 0323
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 744 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 745 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 746 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 747 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 750 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 751 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 752 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 753 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 754 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 755 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            0            000000550000 756 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            0            000001320000 757 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            0            000002640000 760 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            0            000005500000 761 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            0            000013200000 762 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            0            000026400000 763 0   *   
SCT2	*      0      *      *            000077000000 000077000000     *            0            000055000000 764 0   *   
SCT2	*      0      *      *            000176000000 000176000000     *            0            000132000000 765 0   *   
SCT2	*      0      *      *            000374000000 000374000000     *            0            000264000000 766 0   *   
SCT2	*      0      *      *            000770000000 000770000000     *            0            000550000000 767 0   *   
SCT2	*      0      *      *            001760000000 001760000000     *            0            001320000000 770 0   *   
SCT2	*      0      *      *            003740000000 003740000000     *            0            002640000000 771 0   *   
SCT2	*      0      *      *            007700000000 007700000000     *            0            005500000000 772 0   *   
SCT2	*      0      *      *            017600000000 017600000000     *            0            013200000000 773 0   *   
SCT2	*      0      *      *            037400000000 037400000000     *            0            026400000000 774 0   *   
SCT2	*      0      *      *            077000000000 077000000000     *            0            055000000000 775 0   *   
SCT2	*      0      *      *            176000000000 176000000000     *            0            132000000000 776 0   *   
SCT2	*      0      *      *            374000000000 374000000000     *            0            264000000000 777 0   *   
ET1	*      0      *      *            000000000000 770000000000     *            0            550000000000 000 0   *   
ET2	*      0      *      *            550000000000 550000000000     *            770000000000 000000000000 0   0   *   
ST1	033026 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      550000000000 *            *                000000000000 *            0            0   0   *   
ST5	033027 033027 *      312000000011 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=550000 000000 
----------

*033043  DPB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033043 033043 033043 137500000013 777777777777 0                0            000000000006 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 000600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   000 
IT0	033043 *      *      000600000000 777777777777 *                *            *            000000000077 0   0   777 
IT1	*      *      000000 *            000600000000 *                *            *            *            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            0   0   *   
FT6	*      000000 033044 *            777777777777 0                *            *            *            0   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            0   0   000 
ET1	*      0      *      *            000000000000 000000000077     *            000000000000 000000000055 0   0   777 
ET2	*      0      *      *            000000000055 000000000055     *            000000000077 000000000000 0   0   *   
ST1	033043 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000000055 *            *                000000000000 *            0            0   0   *   
ST5	033044 033044 *      312000000010 *            *                000000000055 *            0            0   0   *   
                                                                                                                           SEQ 0324
FLAGS - INT/FINAL   000000 000000 
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 000055 
----------

*033054  DPB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033054 033054 033054 137500000013 777777777777 0                0            000000000014 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 060600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   006 
IT0	033054 *      *      060600000000 777777777777 *                *            *            000000000077 006 0   777 
IT1	*      *      000000 *            060600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033055 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   772 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 772 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 773 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 774 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 775 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 776 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 777 0   *   
ET1	*      0      *      *            000000000000 000000007700     *            0            000000005500 000 0   *   
ET2	*      0      *      *            000000005500 000000005500     *            000000007700 000000000000 0   0   *   
ST1	033054 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000005500 *            *                000000000000 *            0            0   0   *   
ST5	033055 033055 *      312000000010 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 005500 
----------

*033065  DPB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033065 033065 033065 137500000013 777777777777 0                0            000000000022 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   014 
IT0	033065 *      *      140600000000 777777777777 *                *            *            000000000077 014 0   777 
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033066 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 773 0   *   SEQ 0325
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 775 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 777 0   *   
ET1	*      0      *      *            000000000000 000000770000     *            0            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 000000000000 0   0   *   
ST1	033065 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000000550000 *            *                000000000000 *            0            0   0   *   
ST5	033066 033066 *      312000000010 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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 550000 
----------

*033076  DPB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033076 033076 033076 137500000013 777777777777 0                0            000000000030 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   022 
IT0	033076 *      *      220600000000 777777777777 *                *            *            000000000077 022 0   777 
IT1	*      *      000000 *            220600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033077 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   756 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 756 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 757 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 760 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 761 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 762 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 763 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 764 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 765 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 766 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 767 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 770 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 771 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            0            000000550000 772 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            0            000001320000 773 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            0            000002640000 774 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            0            000005500000 775 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            0            000013200000 776 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            0            000026400000 777 0   *   
ET1	*      0      *      *            000000000000 000077000000     *            0            000055000000 000 0   *   
ET2	*      0      *      *            000055000000 000055000000     *            000077000000 000000000000 0   0   *   
ST1	033076 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      000055000000 *            *                000000000000 *            0            0   0   *   
ST5	033077 033077 *      312000000010 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=000055 000000 
----------                                                                                                                 SEQ 0326

*033107  DPB	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033107 033107 033107 137500000013 777777777777 0                0            000000000036 0            0   0   777 
IT1	*      *      000013 *            137500000013 0                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 300600000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   030 
IT0	033107 *      *      300600000000 777777777777 *                *            *            000000000077 030 0   777 
IT1	*      *      000000 *            300600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033110 *            777777777777 0                *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 0                *            *            *            *   0   750 
SCT2	*      0      *      *            000000000077 000000000077     *            000000000000 000000000055 750 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            0            000000000132 751 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            0            000000000264 752 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            0            000000000550 753 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            0            000000001320 754 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            0            000000002640 755 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            0            000000005500 756 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            0            000000013200 757 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            0            000000026400 760 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            0            000000055000 761 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            0            000000132000 762 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            0            000000264000 763 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            0            000000550000 764 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            0            000001320000 765 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            0            000002640000 766 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            0            000005500000 767 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            0            000013200000 770 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            0            000026400000 771 0   *   
SCT2	*      0      *      *            000077000000 000077000000     *            0            000055000000 772 0   *   
SCT2	*      0      *      *            000176000000 000176000000     *            0            000132000000 773 0   *   
SCT2	*      0      *      *            000374000000 000374000000     *            0            000264000000 774 0   *   
SCT2	*      0      *      *            000770000000 000770000000     *            0            000550000000 775 0   *   
SCT2	*      0      *      *            001760000000 001760000000     *            0            001320000000 776 0   *   
SCT2	*      0      *      *            003740000000 003740000000     *            0            002640000000 777 0   *   
ET1	*      0      *      *            000000000000 007700000000     *            0            005500000000 000 0   *   
ET2	*      0      *      *            005500000000 005500000000     *            007700000000 000000000000 0   0   *   
ST1	033107 0      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      0      *      005500000000 *            *                000000000000 *            0            0   0   *   
ST5	033110 033110 *      312000000010 *            *                000000000055 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=005500 000000 
----------

*033124  IDPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033124 033124 033124 136440000012 777777777777 0                0            000000777772 0            0   0   777 
IT1	*      *      000012 *            136440000012 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 000600000000     *            *            0            0   0   *   
ET0	*      *      *      *            000600000001 *                *            *            0            0   0   772 
ET2	*      *      *      *            000000000077 000600000001     *            *            0            0   0   03  SEQ 0327
ST1	*      *      *      000600000001 777777777777 360600000001     *            *            000000000077 036 0   777 
ST2	*      *      *      360600000001 *            *                000600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	033124 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            360600000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033125 *            777777777777 000000000000     *            *            *            *   0   *   
ET0	*      *      *      *            000000000077 0                *            *            *            *   0   742 
SCT2	*      *      *      *            *            000000000077     *            000000000000 *            742 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            0            000000000176 743 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            0            000000000374 744 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            0            000000000770 745 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            0            000000001760 746 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            0            000000003740 747 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            0            000000007700 750 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            0            000000017600 751 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            0            000000037400 752 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            0            000000077000 753 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            0            000000176000 754 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            0            000000374000 755 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            0            000000770000 756 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            0            000001760000 757 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            0            000003740000 760 0   *   
SCT2	*      *      *      *            000007700000 000007700000     *            0            000007700000 761 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            0            000017600000 762 0   *   
SCT2	*      *      *      *            000037400000 000037400000     *            0            000037400000 763 0   *   
SCT2	*      *      *      *            000077000000 000077000000     *            0            000077000000 764 0   *   
SCT2	*      *      *      *            000176000000 000176000000     *            0            000176000000 765 0   *   
SCT2	*      *      *      *            000374000000 000374000000     *            0            000374000000 766 0   *   
SCT2	*      *      *      *            000770000000 000770000000     *            0            000770000000 767 0   *   
SCT2	*      *      *      *            001760000000 001760000000     *            0            001760000000 770 0   *   
SCT2	*      *      *      *            003740000000 003740000000     *            0            003740000000 771 0   *   
SCT2	*      *      *      *            007700000000 007700000000     *            0            007700000000 772 0   *   
SCT2	*      *      *      *            017600000000 017600000000     *            0            017600000000 773 0   *   
SCT2	*      *      *      *            037400000000 037400000000     *            0            037400000000 774 0   *   
SCT2	*      *      *      *            077000000000 077000000000     *            0            077000000000 775 0   *   
SCT2	*      *      *      *            176000000000 176000000000     *            0            176000000000 776 0   *   
SCT2	*      *      *      *            374000000000 374000000000     *            0            374000000000 777 0   *   
ET1	*      *      *      *            000000000000 770000000000     *            0            770000000000 000 0   *   
ET2	*      *      *      *            770000000000 *                *            770000000000 000000000000 0   0   *   
ST1	033124 *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      770000000000 *            *                000000000000 *            0            0   0   *   
ST5	033125 033125 *      312040000007 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =000600 000000 C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 C(E) =360600 000001 C(C(E))=770000 000000 
----------

*033135  IDPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033135 033135 033135 136440000012 777777777777 0                0            000000777764 0            0   0   777 
IT1	*      *      000012 *            136440000012 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 001400000000     *            *            0            0   0   *   
ET0	*      *      *      *            001400000001 *                *            *            0            0   0   764 
ET2	*      *      *      *            000000007777 001400000001     *            *            0            0   0   03  SEQ 0328
ST1	*      *      *      001400000001 777777777777 301400000001     *            *            000000007777 030 0   777 
ST2	*      *      *      301400000001 *            *                001400000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	033135 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            301400000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033136 *            777777777777 000000000000     *            *            *            *   0   *   
ET0	*      *      *      *            000000000077 0                *            *            *            *   0   750 
SCT2	*      *      *      *            000000007777 000000007777     *            000000000000 000000000077 750 0   777 
SCT2	*      *      *      *            000000017776 000000017776     *            0            000000000176 751 0   *   
SCT2	*      *      *      *            000000037774 000000037774     *            0            000000000374 752 0   *   
SCT2	*      *      *      *            000000077770 000000077770     *            0            000000000770 753 0   *   
SCT2	*      *      *      *            000000177760 000000177760     *            0            000000001760 754 0   *   
SCT2	*      *      *      *            000000377740 000000377740     *            0            000000003740 755 0   *   
SCT2	*      *      *      *            000000777700 000000777700     *            0            000000007700 756 0   *   
SCT2	*      *      *      *            000001777600 000001777600     *            0            000000017600 757 0   *   
SCT2	*      *      *      *            000003777400 000003777400     *            0            000000037400 760 0   *   
SCT2	*      *      *      *            000007777000 000007777000     *            0            000000077000 761 0   *   
SCT2	*      *      *      *            000017776000 000017776000     *            0            000000176000 762 0   *   
SCT2	*      *      *      *            000037774000 000037774000     *            0            000000374000 763 0   *   
SCT2	*      *      *      *            000077770000 000077770000     *            0            000000770000 764 0   *   
SCT2	*      *      *      *            000177760000 000177760000     *            0            000001760000 765 0   *   
SCT2	*      *      *      *            000377740000 000377740000     *            0            000003740000 766 0   *   
SCT2	*      *      *      *            000777700000 000777700000     *            0            000007700000 767 0   *   
SCT2	*      *      *      *            001777600000 001777600000     *            0            000017600000 770 0   *   
SCT2	*      *      *      *            003777400000 003777400000     *            0            000037400000 771 0   *   
SCT2	*      *      *      *            007777000000 007777000000     *            0            000077000000 772 0   *   
SCT2	*      *      *      *            017776000000 017776000000     *            0            000176000000 773 0   *   
SCT2	*      *      *      *            037774000000 037774000000     *            0            000374000000 774 0   *   
SCT2	*      *      *      *            077770000000 077770000000     *            0            000770000000 775 0   *   
SCT2	*      *      *      *            177760000000 177760000000     *            0            001760000000 776 0   *   
SCT2	*      *      *      *            377740000000 377740000000     *            0            003740000000 777 0   *   
ET1	*      *      *      *            000000000000 777700000000     *            0            007700000000 000 0   *   
ET2	*      *      *      *            007700000000 007700000000     *            777700000000 000000000000 0   0   *   
ST1	033135 *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      007700000000 *            *                000000000000 *            0            0   0   *   
ST5	033136 033136 *      312040000007 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =001400 000000 C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 C(E) =301400 000001 C(C(E))=007700 000000 
----------

*033146  IDPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033146 033146 033146 136440000012 777777777777 0                0            000000777756 0            0   0   777 
IT1	*      *      000012 *            136440000012 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 002200000000     *            *            0            0   0   *   
ET0	*      *      *      *            002200000001 *                *            *            0            0   0   756 
ET2	*      *      *      *            000000777777 002200000001     *            *            0            0   0   022 
ST1	*      *      *      002200000001 777777777777 222200000001     *            *            000000777777 022 0   777 
ST2	*      *      *      222200000001 *            *                002200000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	033146 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            222200000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   SEQ 0329
FT6	*      000001 033147 *            777777777777 000000000000     *            *            *            *   0   *   
ET0	*      *      *      *            000000000077 0                *            *            *            *   0   756 
SCT2	*      *      *      *            000000777777 000000777777     *            000000000000 000000000077 756 0   777 
SCT2	*      *      *      *            000001777776 000001777776     *            0            000000000176 757 0   *   
SCT2	*      *      *      *            000003777774 000003777774     *            0            000000000374 760 0   *   
SCT2	*      *      *      *            000007777770 000007777770     *            0            000000000770 761 0   *   
SCT2	*      *      *      *            000017777760 000017777760     *            0            000000001760 762 0   *   
SCT2	*      *      *      *            000037777740 000037777740     *            0            000000003740 763 0   *   
SCT2	*      *      *      *            000077777700 000077777700     *            0            000000007700 764 0   *   
SCT2	*      *      *      *            000177777600 000177777600     *            0            000000017600 765 0   *   
SCT2	*      *      *      *            000377777400 000377777400     *            0            000000037400 766 0   *   
SCT2	*      *      *      *            000777777000 000777777000     *            0            000000077000 767 0   *   
SCT2	*      *      *      *            001777776000 001777776000     *            0            000000176000 770 0   *   
SCT2	*      *      *      *            003777774000 003777774000     *            0            000000374000 771 0   *   
SCT2	*      *      *      *            007777770000 007777770000     *            0            000000770000 772 0   *   
SCT2	*      *      *      *            017777760000 017777760000     *            0            000001760000 773 0   *   
SCT2	*      *      *      *            037777740000 037777740000     *            0            000003740000 774 0   *   
SCT2	*      *      *      *            077777700000 077777700000     *            0            000007700000 775 0   *   
SCT2	*      *      *      *            177777600000 177777600000     *            0            000017600000 776 0   *   
SCT2	*      *      *      *            377777400000 377777400000     *            0            000037400000 777 0   *   
ET1	*      *      *      *            000000000000 777777000000     *            0            000077000000 000 0   *   
ET2	*      *      *      *            000077000000 000077000000     *            777777000000 000000000000 0   0   *   
ST1	033146 *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      000077000000 *            *                000000000000 *            0            0   0   *   
ST5	033147 033147 *      312040000007 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =002200 000000 C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 C(E) =222200 000001 C(C(E))=000077 000000 
----------

*033157  IDPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033157 033157 033157 136440000012 777777777777 0                0            000000777750 0            0   0   777 
IT1	*      *      000012 *            136440000012 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 003000000000     *            *            0            0   0   *   
ET0	*      *      *      *            003000000001 *                *            *            0            0   0   750 
ET2	*      *      *      *            000077777777 003000000001     *            *            0            0   0   014 
ST1	*      *      *      003000000001 777777777777 143000000001     *            *            000077777777 014 0   777 
ST2	*      *      *      143000000001 *            *                003000000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	033157 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            143000000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033160 *            777777777777 000000000000     *            *            *            *   0   *   
ET0	*      *      *      *            000000000077 0                *            *            *            *   0   764 
SCT2	*      *      *      *            000077777777 000077777777     *            000000000000 000000000077 764 0   777 
SCT2	*      *      *      *            000177777776 000177777776     *            0            000000000176 765 0   *   
SCT2	*      *      *      *            000377777774 000377777774     *            0            000000000374 766 0   *   
SCT2	*      *      *      *            000777777770 000777777770     *            0            000000000770 767 0   *   
SCT2	*      *      *      *            001777777760 001777777760     *            0            000000001760 770 0   *   
SCT2	*      *      *      *            003777777740 003777777740     *            0            000000003740 771 0   *   
SCT2	*      *      *      *            007777777700 007777777700     *            0            000000007700 772 0   *   
SCT2	*      *      *      *            017777777600 017777777600     *            0            000000017600 773 0   *   
SCT2	*      *      *      *            037777777400 037777777400     *            0            000000037400 774 0   *   
SCT2	*      *      *      *            077777777000 077777777000     *            0            000000077000 775 0   *   SEQ 0330
SCT2	*      *      *      *            177777776000 177777776000     *            0            000000176000 776 0   *   
SCT2	*      *      *      *            377777774000 377777774000     *            0            000000374000 777 0   *   
ET1	*      *      *      *            000000000000 777777770000     *            0            000000770000 000 0   *   
ET2	*      *      *      *            000000770000 000000770000     *            777777770000 000000000000 0   0   *   
ST1	033157 *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      000000770000 *            *                000000000000 *            0            0   0   *   
ST5	033160 033160 *      312040000007 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =003000 000000 C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 C(E) =143000 000001 C(C(E))=000000 770000 
----------

*033170  IDPB	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033170 033170 033170 136440000012 777777777777 0                0            000000777742 0            0   0   777 
IT1	*      *      000012 *            136440000012 0                000000000077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 003600000000     *            *            0            0   0   *   
ET0	*      *      *      *            003600000001 *                *            *            0            0   0   742 
ET2	*      *      *      *            007777777777 003600000001     *            *            0            0   0   006 
ST1	*      *      *      003600000001 777777777777 063600000001     *            *            007777777777 006 0   777 
ST2	*      *      *      063600000001 *            *                003600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000077 *            *            *   0   *   
IT0	033170 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000001 *            063600000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033171 *            777777777777 000000000000     *            *            *            *   0   *   
ET0	*      *      *      *            000000000077 0                *            *            *            *   0   772 
SCT2	*      *      *      *            007777777777 007777777777     *            000000000000 000000000077 772 0   777 
SCT2	*      *      *      *            017777777776 017777777776     *            0            000000000176 773 0   *   
SCT2	*      *      *      *            037777777774 037777777774     *            0            000000000374 774 0   *   
SCT2	*      *      *      *            077777777770 077777777770     *            0            000000000770 775 0   *   
SCT2	*      *      *      *            177777777760 177777777760     *            0            000000001760 776 0   *   
SCT2	*      *      *      *            377777777740 377777777740     *            0            000000003740 777 0   *   
ET1	*      *      *      *            000000000000 777777777700     *            0            000000007700 000 0   *   
ET2	*      *      *      *            000000007700 000000007700     *            777777777700 000000000000 0   0   *   
ST1	033170 *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      000000007700 *            *                000000000000 *            0            0   0   *   
ST5	033171 033171 *      312040000007 *            *                000000000077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000077 C(E) =003600 000000 C(C(E))=000000 000000 
FINAL
C(AC)=000000 000077 C(E) =063600 000001 C(C(E))=000000 007700 
----------

*033206  IDPB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033206 033206 033206 136400000011 777777777777 777777777777     777777777777 000000777772 0            0   0   777 
IT1	*      *      000011 *            136400000011 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 440600000000     *            *            0            0   0   *   
ET0	*      *      *      *            440600000001 *                *            *            0            0   0   036 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   SEQ 0331
ST1	*      *      *      440600000000 777777777777 360600000000     *            *            000000000077 036 0   777 
ST2	*      *      *      360600000000 *            *                440600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000055 *            *            *   0   *   
IT0	033206 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            360600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033207 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   742 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 742 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 743 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 744 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 745 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 746 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 747 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000005500 750 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000000013200 751 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000000026400 752 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000000055000 753 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            *            000000132000 754 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000000264000 755 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            *            000000550000 756 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            *            000001320000 757 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            *            000002640000 760 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            *            000005500000 761 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            *            000013200000 762 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            *            000026400000 763 0   *   
SCT2	*      0      *      *            000077000000 000077000000     *            *            000055000000 764 0   *   
SCT2	*      0      *      *            000176000000 000176000000     *            *            000132000000 765 0   *   
SCT2	*      0      *      *            000374000000 000374000000     *            *            000264000000 766 0   *   
SCT2	*      0      *      *            000770000000 000770000000     *            *            000550000000 767 0   *   
SCT2	*      0      *      *            001760000000 001760000000     *            *            001320000000 770 0   *   
SCT2	*      0      *      *            003740000000 003740000000     *            *            002640000000 771 0   *   
SCT2	*      0      *      *            007700000000 007700000000     *            *            005500000000 772 0   *   
SCT2	*      0      *      *            017600000000 017600000000     *            *            013200000000 773 0   *   
SCT2	*      0      *      *            037400000000 037400000000     *            *            026400000000 774 0   *   
SCT2	*      0      *      *            077000000000 077000000000     *            *            055000000000 775 0   *   
SCT2	*      0      *      *            176000000000 176000000000     *            *            132000000000 776 0   *   
SCT2	*      0      *      *            374000000000 374000000000     *            *            264000000000 777 0   *   
ET1	*      0      *      *            007777777777 770000000000     *            *            550000000000 000 0   *   
ET2	*      0      *      *            550000000000 550000000000     *            770000000000 007777777777 0   0   *   
ST1	033206 0      *      *            777777777777 557777777777     *            *            *            0   0   *   
ST2	*      0      *      557777777777 *            *                777777777777 *            *            0   0   *   
ST5	033207 033207 *      312000000006 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=557777 777777 
----------

*033217  IDPB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033217 033217 033217 136400000011 777777777777 777777777777     777777777777 000000777764 0            0   0   777 
IT1	*      *      000011 *            136400000011 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 360600000000     *            *            0            0   0   *   
ET0	*      *      *      *            360600000001 *                *            *            0            0   0   030 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   SEQ 0332
ST1	*      *      *      360600000000 777777777777 300600000000     *            *            000000000077 030 0   777 
ST2	*      *      *      300600000000 *            *                360600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000055 *            *            *   0   *   
IT0	033217 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            300600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033220 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   750 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 750 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 751 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 752 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 753 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 754 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 755 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000005500 756 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000000013200 757 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000000026400 760 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000000055000 761 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            *            000000132000 762 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000000264000 763 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            *            000000550000 764 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            *            000001320000 765 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            *            000002640000 766 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            *            000005500000 767 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            *            000013200000 770 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            *            000026400000 771 0   *   
SCT2	*      0      *      *            000077000000 000077000000     *            *            000055000000 772 0   *   
SCT2	*      0      *      *            000176000000 000176000000     *            *            000132000000 773 0   *   
SCT2	*      0      *      *            000374000000 000374000000     *            *            000264000000 774 0   *   
SCT2	*      0      *      *            000770000000 000770000000     *            *            000550000000 775 0   *   
SCT2	*      0      *      *            001760000000 001760000000     *            *            001320000000 776 0   *   
SCT2	*      0      *      *            003740000000 003740000000     *            *            002640000000 777 0   *   
ET1	*      0      *      *            770077777777 007700000000     *            *            005500000000 000 0   *   
ET2	*      0      *      *            005500000000 005500000000     *            007700000000 770077777777 0   0   *   
ST1	033217 0      *      *            777777777777 775577777777     *            *            *            0   0   *   
ST2	*      0      *      775577777777 *            *                777777777777 *            *            0   0   *   
ST5	033220 033220 *      312000000006 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=775577 777777 
----------

*033230  IDPB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033230 033230 033230 136400000011 777777777777 777777777777     777777777777 000000777756 0            0   0   777 
IT1	*      *      000011 *            136400000011 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 300600000000     *            *            0            0   0   *   
ET0	*      *      *      *            300600000001 *                *            *            0            0   0   022 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      300600000000 777777777777 220600000000     *            *            000000000077 022 0   777 
ST2	*      *      *      220600000000 *            *                300600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000055 *            *            *   0   *   
IT0	033230 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            220600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   SEQ 0333
FT6	*      000000 033231 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   756 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 756 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 757 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 760 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 761 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 762 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 763 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000005500 764 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000000013200 765 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000000026400 766 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000000055000 767 0   *   
SCT2	*      0      *      *            000000176000 000000176000     *            *            000000132000 770 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000000264000 771 0   *   
SCT2	*      0      *      *            000000770000 000000770000     *            *            000000550000 772 0   *   
SCT2	*      0      *      *            000001760000 000001760000     *            *            000001320000 773 0   *   
SCT2	*      0      *      *            000003740000 000003740000     *            *            000002640000 774 0   *   
SCT2	*      0      *      *            000007700000 000007700000     *            *            000005500000 775 0   *   
SCT2	*      0      *      *            000017600000 000017600000     *            *            000013200000 776 0   *   
SCT2	*      0      *      *            000037400000 000037400000     *            *            000026400000 777 0   *   
ET1	*      0      *      *            777700777777 000077000000     *            *            000055000000 000 0   *   
ET2	*      0      *      *            000055000000 000055000000     *            000077000000 777700777777 0   0   *   
ST1	033230 0      *      *            777777777777 777755777777     *            *            *            0   0   *   
ST2	*      0      *      777755777777 *            *                777777777777 *            *            0   0   *   
ST5	033231 033231 *      312000000006 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
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))=777755 777777 
----------

*033241  IDPB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033241 033241 033241 136400000011 777777777777 777777777777     777777777777 000000777750 0            0   0   777 
IT1	*      *      000011 *            136400000011 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 220600000000     *            *            0            0   0   *   
ET0	*      *      *      *            220600000001 *                *            *            0            0   0   014 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      220600000000 777777777777 140600000000     *            *            000000000077 014 0   777 
ST2	*      *      *      140600000000 *            *                220600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000055 *            *            *   0   *   
IT0	033241 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            140600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033242 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   764 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 764 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 765 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 766 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 767 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 770 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 771 0   *   
SCT2	*      0      *      *            000000007700 000000007700     *            *            000000005500 772 0   *   
SCT2	*      0      *      *            000000017600 000000017600     *            *            000000013200 773 0   *   
SCT2	*      0      *      *            000000037400 000000037400     *            *            000000026400 774 0   *   
SCT2	*      0      *      *            000000077000 000000077000     *            *            000000055000 775 0   *   SEQ 0334
SCT2	*      0      *      *            000000176000 000000176000     *            *            000000132000 776 0   *   
SCT2	*      0      *      *            000000374000 000000374000     *            *            000000264000 777 0   *   
ET1	*      0      *      *            777777007777 000000770000     *            *            000000550000 000 0   *   
ET2	*      0      *      *            000000550000 000000550000     *            000000770000 777777007777 0   0   *   
ST1	033241 0      *      *            777777777777 777777557777     *            *            *            0   0   *   
ST2	*      0      *      777777557777 *            *                777777777777 *            *            0   0   *   
ST5	033242 033242 *      312000000006 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000055 C(E) =220600 000000 C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 C(E) =140600 000000 C(C(E))=777777 557777 
----------

*033252  IDPB	10,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033252 033252 033252 136400000011 777777777777 777777777777     777777777777 000000777742 0            0   0   777 
IT1	*      *      000011 *            136400000011 *                000000000055 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 140600000000     *            *            0            0   0   *   
ET0	*      *      *      *            140600000001 *                *            *            0            0   0   006 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      140600000000 777777777777 060600000000     *            *            000000000077 006 0   777 
ST2	*      *      *      060600000000 *            *                140600000000 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000000055 *            *            *   0   *   
IT0	033252 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000000 *            060600000000 *                *            *            *            *   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            *            *   0   *   
FT6	*      000000 033253 *            777777777777 777777777777     *            *            *            *   0   *   
ET0	*      0      *      *            000000000055 *                *            *            *            *   0   772 
SCT2	*      0      *      *            000000000077 000000000077     *            777777777777 000000000055 772 0   777 
SCT2	*      0      *      *            000000000176 000000000176     *            *            000000000132 773 0   *   
SCT2	*      0      *      *            000000000374 000000000374     *            *            000000000264 774 0   *   
SCT2	*      0      *      *            000000000770 000000000770     *            *            000000000550 775 0   *   
SCT2	*      0      *      *            000000001760 000000001760     *            *            000000001320 776 0   *   
SCT2	*      0      *      *            000000003740 000000003740     *            *            000000002640 777 0   *   
ET1	*      0      *      *            777777770077 000000007700     *            *            000000005500 000 0   *   
ET2	*      0      *      *            000000005500 000000005500     *            000000007700 777777770077 0   0   *   
ST1	033252 0      *      *            777777777777 777777775577     *            *            *            0   0   *   
ST2	*      0      *      777777775577 *            *                777777777777 *            *            0   0   *   
ST5	033253 033253 *      312000000006 *            *                000000000055 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000055 C(E) =140600 000000 C(C(E))=777777 777777 
FINAL
C(AC)=000000 000055 C(E) =060600 000000 C(C(E))=777777 775577 
----------

*033266  LDB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033266 033266 033266 135540000014 777777777777 076000000001     076000000001 000000033245 0            0   0   777 
IT1	*      *      000014 *            135540000014 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     0            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 076000000001     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   007 
IT0	033266 *      *      076000000001 *            *                0            *            777777777777 007 0   77  SEQ 0335
IT1	*      *      000001 *            076000000001 *                0            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            *            *   0   *   
FT6	033267 033267 033267 312540040740 777777777777 525252525377     0            *            *            *   0   *   
ET0	*      *      *      *            *            *                0            *            *            *   0   771 
SCT1	*      *      *      *            525252525377 *                0            *            *            771 0   777 
SCT2	*      *      *      *            252525252577 252525252577     0            *            *            775 0   *   
SCT2	*      *      *      *            052525252537 052525252537     0            *            *            776 0   *   
SCT2	*      *      *      *            012525252527 012525252527     0            *            *            777 0   *   
ET1	*      *      *      *            777777777777 002525252525     0            *            *            000 0   *   
ET2	*      *      *      *            002525252525 777777777777     0            002525252525 *            0   0   *   
ST1	033267 *      *      *            777777777777 002525252525     002525252525 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =076000 000001 C(C(E))=525252 525377 
FINAL
C(AC)=002525 252525 C(E) =076000 000001 C(C(E))=525252 525377 
----------

*033300  LDB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033300 033300 033300 135540000014 777777777777 074000000001     074000000001 000000033262 0            0   0   777 
IT1	*      *      000014 *            135540000014 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     0            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 074000000001     0            *            0            0   0   *   
ET2	*      *      *      *            037777777777 *                0            *            0            0   0   007 
IT0	033300 *      *      074000000001 777777777777 *                0            *            037777777777 007 0   777 
IT1	*      *      000001 *            074000000001 *                0            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            *            *   0   *   
FT6	033301 033301 033301 312540040740 777777777777 525252525377     0            *            *            *   0   *   
ET0	*      *      *      *            *            *                0            *            *            *   0   771 
SCT1	*      *      *      *            525252525377 *                0            *            *            771 0   777 
SCT2	*      *      *      *            252525252577 252525252577     0            *            *            775 0   *   
SCT2	*      *      *      *            052525252537 052525252537     0            *            *            776 0   *   
SCT2	*      *      *      *            012525252527 012525252527     0            *            *            777 0   *   
ET1	*      *      *      *            777777777777 002525252525     0            *            *            000 0   *   
ET2	*      *      *      *            002525252525 037777777777     0            002525252525 *            0   0   *   
ST1	033301 *      *      *            777777777777 002525252525     002525252525 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =074000 000001 C(C(E))=525252 525377 
FINAL
C(AC)=002525 252525 C(E) =074000 000001 C(C(E))=525252 525377 
----------

*033312  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033312 033312 033312 137540000014 777777777777 076000000001     076000000001 000000033274 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                323232232323 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 076000000001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   007 
IT0	033312 *      *      076000000001 *            *                *            *            777777777777 007 0   777 
IT1	*      *      000001 *            076000000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033313 *            777777777777 707070707070     *            *            *            *   0   *   
ET0	*      *      *      *            323232232323 *                *            *            *            *   0   77  SEQ 0336
SCT2	*      *      *      *            777777777777 777777777777     *            707070707070 323232232323 771 0   777 
SCT2	*      *      *      *            777777777776 777777777776     *            *            646464464646 772 0   *   
SCT2	*      *      *      *            777777777774 777777777774     *            *            515151151514 773 0   *   
SCT2	*      *      *      *            777777777770 777777777770     *            *            232322323230 774 0   *   
SCT2	*      *      *      *            777777777760 777777777760     *            *            464644646460 775 0   *   
SCT2	*      *      *      *            777777777740 777777777740     *            *            151511515140 776 0   *   
SCT2	*      *      *      *            777777777700 777777777700     *            *            323223232300 777 0   *   
ET1	*      *      *      *            000000000070 777777777600     *            *            646446464600 000 0   *   
ET2	*      *      *      *            646446464600 646446464600     *            777777777600 000000000070 0   0   *   
ST1	033312 *      *      *            777777777777 646446464670     *            *            *            0   0   *   
ST2	*      *      *      646446464670 *            *                707070707070 *            *            0   0   *   
ST5	033313 033313 *      201440040744 *            *                323232232323 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=323232 232323 C(E) =076000 000001 C(C(E))=707070 707070 
FINAL
C(AC)=323232 232323 C(E) =076000 000001 C(C(E))=646446 464670 
----------

*033332  DPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033332 033332 033332 137540000014 777777777777 074000000001     074000000001 000000033306 0            0   0   777 
IT1	*      *      000014 *            137540000014 *                323232232323 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 074000000001     *            *            0            0   0   *   
ET2	*      *      *      *            037777777777 *                *            *            0            0   0   007 
IT0	033332 *      *      074000000001 777777777777 *                *            *            037777777777 007 0   777 
IT1	*      *      000001 *            074000000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033333 *            777777777777 707070707070     *            *            *            *   0   *   
ET0	*      *      *      *            323232232323 *                *            *            *            *   0   771 
SCT2	*      *      *      *            037777777777 037777777777     *            707070707070 323232232323 771 0   777 
SCT2	*      *      *      *            077777777776 077777777776     *            *            646464464646 772 0   *   
SCT2	*      *      *      *            177777777774 177777777774     *            *            515151151514 773 0   *   
SCT2	*      *      *      *            377777777770 377777777770     *            *            232322323230 774 0   *   
SCT2	*      *      *      *            777777777760 777777777760     *            *            464644646460 775 0   *   
SCT2	*      *      *      *            777777777740 777777777740     *            *            151511515140 776 0   *   
SCT2	*      *      *      *            777777777700 777777777700     *            *            323223232300 777 0   *   
ET1	*      *      *      *            000000000070 777777777600     *            *            646446464600 000 0   *   
ET2	*      *      *      *            646446464600 646446464600     *            777777777600 000000000070 0   0   *   
ST1	033332 *      *      *            777777777777 646446464670     *            *            *            0   0   *   
ST2	*      *      *      646446464670 *            *                707070707070 *            *            0   0   *   
ST5	033333 033333 *      201440040744 *            *                323232232323 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=323232 232323 C(E) =074000 000001 C(C(E))=707070 707070 
FINAL
C(AC)=323232 232323 C(E) =074000 000001 C(C(E))=646446 464670 
----------

*033356  ILDB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033356 033356 033356 134540000014 777777777777 000000033356     777777777777 020000033356 0            0   0   777 
IT1	*      *      000014 *            134540000014 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 220600000012     *            *            0            0   0   *   SEQ 0337
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   022 
IT0	*      *      *      220600000012 777777777777 *                *            *            000000000077 022 0   777 
IT1	*      *      000012 *            220600000012 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            *            *   0   *   
FT6	033357 033357 033357 265440033360 777777777777 112233445566     *            *            *            *   0   *   
ET0	*      *      *      *            *            *                *            *            *            *   0   756 
SCT1	*      *      *      *            112233445566 *                *            *            *            756 0   777 
SCT2	*      *      *      *            *            *                *            *            *            767 0   *   
SCT2	*      *      *      *            022446711335 022446711335     *            *            *            770 0   *   
SCT2	*      *      *      *            004511562267 004511562267     *            *            *            771 0   *   
SCT2	*      *      *      *            001122334455 001122334455     *            *            *            772 0   *   
SCT2	*      *      *      *            000224467113 000224467113     *            *            *            773 0   *   
SCT2	*      *      *      *            000045115622 000045115622     *            *            *            774 0   *   
SCT2	*      *      *      *            000011223344 000011223344     *            *            *            775 0   *   
SCT2	*      *      *      *            000002244671 000002244671     *            *            *            776 0   *   
SCT2	*      *      *      *            000000451156 000000451156     *            *            *            777 0   *   
ET1	*      *      *      *            777777777777 000000112233     *            *            *            000 0   *   
ET2	*      *      *      *            000000000033 000000000077     *            000000112233 *            0   0   *   
ST1	033357 *      *      *            777777777777 000000000033     000000000033 *            *            0   0   *   

FLAGS - INT/FINAL   020000 000000 
INITIAL
C(AC)=707070 707070 C(E) =220600 000012 C(C(E))=112233 445566 
FINAL
C(AC)=000000 000033 C(E) =220600 000012 C(C(E))=112233 445566 
----------

*033373  IDPB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033373 033373 033373 136540000014 777777777777 000000033373     777777777777 020000033373 0            0   0   777 
IT1	*      *      000014 *            136540000014 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 220600000012     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   022 
IT0	*      *      *      220600000012 777777777777 *                *            *            000000000077 022 0   777 
IT1	*      *      000012 *            220600000012 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            *            *   0   *   
FT6	*      000012 033374 *            777777777777 112233445566     *            *            *            *   0   *   
ET0	*      *      *      *            707070707070 *                *            *            *            *   0   756 
SCT2	*      *      *      *            000000000077 000000000077     *            112233445566 707070707070 756 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            616161616160 757 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            434343434340 760 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            070707070700 761 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            161616161600 762 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            *            343434343400 763 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            707070707000 764 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            *            616161616000 765 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            434343434000 766 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            *            070707070000 767 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            161616160000 770 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            *            343434340000 771 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            707070700000 772 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            *            616161600000 773 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            434343400000 774 0   *   
SCT2	*      *      *      *            000007700000 000007700000     *            *            070707000000 775 0   *   
SCT2	*      *      *      *            000017600000 000017600000     *            *            161616000000 776 0   *   
SCT2	*      *      *      *            000037400000 000037400000     *            *            343434000000 777 0   *   
ET1	*      *      *      *            112200445566 000077000000     *            *            707070000000 000 0   *   
ET2	*      *      *      *            000070000000 707070000000     *            000077000000 112200445566 0   0   *   SEQ 0338
ST1	033373 *      *      *            777777777777 112270445566     *            *            *            0   0   *   
ST2	*      *      *      112270445566 *            *                112233445566 *            *            0   0   *   
ST5	033374 033374 *      265440033375 *            *                707070707070 *            *            0   0   *   

FLAGS - INT/FINAL   020000 000000 
INITIAL
C(AC)=707070 707070 C(E) =220600 000012 C(C(E))=112233 445566 
FINAL
C(AC)=707070 707070 C(E) =220600 000012 C(C(E))=112270 445566 
----------

*033413  IBP	0,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033413 033413 033413 133000000005 777777777777 110600000000     110600000000 000000033411 0            0   0   777 
IT1	*      *      000005 *            133000000005 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 033414 *            777777777777 170600000000     *            *            0            0   0   *   
ET0	*      *      *      *            170600000001 *                *            *            0            0   0   011 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 110600000000     *            *            000000000077 011 0   777 
ST2	*      *      *      110600000000 *            *                170600000000 *            *            *   0   *   
ST5	033414 033414 *      312240000006 *            *                777777777777 *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =170600 000000 
FINAL
C(E) =110600 000000 
----------

*033430  IBP	0,040136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033430 033430 033430 133000040136 777777777777 0                0            000000033424 0            011 0   777 
IT1	*      *      040136 *            133000040136 0                777777777777 *            0            *   0   *   
MEMST	*      *      *      *            *            000000040136     *            *            0            *   0   *   
FT6	*      040136 *      170600000000 777777777777 170600000000     *            *            0            *   0   *   
ET0	*      *      *      *            170600000001 *                *            *            0            *   0   011 
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   *   
ST1	*      *      *      *            777777777777 110600000000     *            *            000000000077 *   0   777 
ST2	*      *      *      110600000000 *            *                *            *            *            *   0   *   
ST5	033431 033431 033431 200240040136 *            *                *            *            *            *   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(E) =170600 000000 
FINAL
C(E) =110600 000000 
----------

*033450  DPB	5,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033450 033450 033450 137240000003 777777777777 230702103700     230702103700 000000033442 0            011 0   777 
IT1	*      *      000003 *            137240000003 *                000000654321 *            0            *   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            *   0   *   
FT6	*      000003 *      *            777777777777 170600000001     *            *            0            *   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            *   0   017 
IT0	033450 *      *      170600000001 777777777777 *                *            *            000000000077 017 0   77  SEQ 0339
IT1	*      *      000001 *            170600000001 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            *            *   0   *   
FT6	*      000001 033451 *            777777777777 230703603700     *            *            *            *   0   *   
ET0	*      *      *      *            000000654321 *                *            *            *            *   0   761 
SCT2	*      *      *      *            000000000077 000000000077     *            230703603700 000000654321 761 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            000001530642 762 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            000003261504 763 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            000006543210 764 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            000015306420 765 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            *            000032615040 766 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            000065432100 767 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            *            000153064200 770 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            000326150400 771 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            *            000654321000 772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            001530642000 773 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            *            003261504000 774 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            006543210000 775 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            *            015306420000 776 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            032615040000 777 0   *   
ET1	*      *      *      *            230700003700 000007700000     *            *            065432100000 000 0   *   
ET2	*      *      *      *            000002100000 065432100000     *            000007700000 230700003700 0   0   *   
ST1	033450 *      *      *            777777777777 230702103700     *            *            *            0   0   *   
ST2	*      *      *      230702103700 *            *                230703603700 *            *            0   0   *   
ST5	033451 033451 *      312140000002 *            *                000000654321 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 654321 C(E) =170600 000001 C(C(E))=230703 603700 
FINAL
C(AC)=000000 654321 C(E) =170600 000001 C(C(E))=230702 103700 
----------

*033474  DPB	14,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033474 033474 033474 137600000012 777777777777 000000654321     000000654321 000000033465 0            0   0   777 
IT1	*      *      000012 *            137600000012 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 170600040136     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   017 
IT0	033474 *      *      170600040136 777777777777 *                *            *            000000000077 017 0   777 
IT1	*      *      040136 *            170600040136 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000040136     *            *            *            *   0   *   
FT6	*      040136 *      230703603700 777777777777 230703603700     *            *            *            *   0   *   
ET0	*      *      *      *            000000654321 *                *            *            *            *   0   761 
SCT2	*      *      *      *            000000000077 000000000077     *            230703603700 000000654321 761 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            000001530642 762 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            000003261504 763 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            000006543210 764 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            000015306420 765 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            *            000032615040 766 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            000065432100 767 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            *            000153064200 770 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            000326150400 771 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            *            000654321000 772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            001530642000 773 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            *            003261504000 774 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            006543210000 775 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            *            015306420000 776 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            032615040000 777 0   *   SEQ 0340
ET1	*      *      *      *            230700003700 000007700000     *            *            065432100000 000 0   *   
ET2	*      *      *      *            000002100000 065432100000     *            000007700000 230700003700 0   0   *   
ST1	033474 *      *      *            777777777777 230702103700     *            *            *            0   0   *   
ST2	*      *      *      230702103700 *            *                *            *            *            0   0   *   
ST5	*      033475 033475 312500000011 *            *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 654321 C(E) =170600 040136 C(C(E))=230703 603700 
FINAL
C(AC)=000000 654321 C(E) =170600 040136 C(C(E))=230702 103700 
----------

*033520  DPB	13,040136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033520 033520 033520 137540040136 777777777777 000000654321     000000654321 000000033512 0            0   0   777 
IT1	*      *      040136 *            137540040136 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000040136     *            *            0            0   0   *   
FT6	*      040136 *      170600000007 777777777777 170600000007     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   017 
IT0	033520 *      *      *            777777777777 *                *            *            000000000077 017 0   777 
IT1	*      *      000007 *            170600000007 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            *            *   0   *   
FT6	*      000007 033521 *            777777777777 230703603700     *            *            *            *   0   *   
ET0	*      *      *      *            000000654321 *                *            *            *            *   0   761 
SCT2	*      *      *      *            000000000077 000000000077     *            230703603700 000000654321 761 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            000001530642 762 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            000003261504 763 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            000006543210 764 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            000015306420 765 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            *            000032615040 766 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            000065432100 767 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            *            000153064200 770 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            000326150400 771 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            *            000654321000 772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            001530642000 773 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            *            003261504000 774 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            006543210000 775 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            *            015306420000 776 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            032615040000 777 0   *   
ET1	*      *      *      *            230700003700 000007700000     *            *            065432100000 000 0   *   
ET2	*      *      *      *            000002100000 065432100000     *            000007700000 230700003700 0   0   *   
ST1	033520 *      *      *            777777777777 230702103700     *            *            *            0   0   *   
ST2	*      *      *      230702103700 *            *                230703603700 *            *            0   0   *   
ST5	033521 033521 *      200400040136 *            *                000000654321 *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 654321 C(E) =170600 000007 C(C(E))=230703 603700 
FINAL
C(AC)=000000 654321 C(E) =170600 000007 C(C(E))=230702 103700 
----------

*033545  DPB	12,040136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033545 033545 033545 137500040136 777777777777 000000654321     000000654321 000000033536 0            0   0   777 
IT1	*      *      040136 *            137500040136 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000040136     *            *            0            0   0   *   SEQ 0341
FT6	*      040136 *      170600040141 777777777777 170600040141     *            *            0            0   0   *   
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   017 
IT0	033545 *      *      *            777777777777 *                *            *            000000000077 017 0   777 
IT1	*      *      040141 *            170600040141 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000040141     *            *            *            *   0   *   
FT6	*      040141 *      230703603700 777777777777 230703603700     *            *            *            *   0   *   
ET0	*      *      *      *            000000654321 *                *            *            *            *   0   761 
SCT2	*      *      *      *            000000000077 000000000077     *            230703603700 000000654321 761 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            000001530642 762 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            000003261504 763 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            000006543210 764 0   *   
SCT2	*      *      *      *            000000001760 000000001760     *            *            000015306420 765 0   *   
SCT2	*      *      *      *            000000003740 000000003740     *            *            000032615040 766 0   *   
SCT2	*      *      *      *            000000007700 000000007700     *            *            000065432100 767 0   *   
SCT2	*      *      *      *            000000017600 000000017600     *            *            000153064200 770 0   *   
SCT2	*      *      *      *            000000037400 000000037400     *            *            000326150400 771 0   *   
SCT2	*      *      *      *            000000077000 000000077000     *            *            000654321000 772 0   *   
SCT2	*      *      *      *            000000176000 000000176000     *            *            001530642000 773 0   *   
SCT2	*      *      *      *            000000374000 000000374000     *            *            003261504000 774 0   *   
SCT2	*      *      *      *            000000770000 000000770000     *            *            006543210000 775 0   *   
SCT2	*      *      *      *            000001760000 000001760000     *            *            015306420000 776 0   *   
SCT2	*      *      *      *            000003740000 000003740000     *            *            032615040000 777 0   *   
ET1	*      *      *      *            230700003700 000007700000     *            *            065432100000 000 0   *   
ET2	*      *      *      *            000002100000 065432100000     *            000007700000 230700003700 0   0   *   
ST1	033545 *      *      *            777777777777 230702103700     *            *            *            0   0   *   
ST2	*      *      *      230702103700 *            *                *            *            *            0   0   *   
ST5	*      033546 033546 200300040136 *            *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 654321 C(E) =170600 040141 C(C(E))=230703 603700 
FINAL
C(AC)=000000 654321 C(E) =170600 040141 C(C(E))=230702 103700 
----------

*033573  IDPB	11,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	033573 033573 033573 136440000007 777777777777 230702103700     230702103700 000000033564 0            0   0   777 
IT1	*      *      000007 *            136440000007 *                000000654321 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 250600000005     *            *            0            0   0   *   
ET0	*      *      *      *            250600000006 *                *            *            0            0   0   017 
ET2	*      *      *      *            000000000077 *                *            *            0            0   0   *   
ST1	*      *      *      250600000005 777777777777 170600000005     *            *            000000000077 017 0   777 
ST2	*      *      *      170600000005 *            *                250600000005 *            *            *   0   *   
ST5	*      *      *      *            *            *                000000654321 *            *            *   0   *   
IT0	033573 *      *      *            *            *                *            *            *            *   0   *   
IT1	*      *      000005 *            170600000005 *                *            *            *            *   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            *            *   0   *   
FT6	*      000005 033574 *            777777777777 230703603700     *            *            *            *   0   *   
ET0	*      *      *      *            000000654321 *                *            *            *            *   0   761 
SCT2	*      *      *      *            000000000077 000000000077     *            230703603700 000000654321 761 0   777 
SCT2	*      *      *      *            000000000176 000000000176     *            *            000001530642 762 0   *   
SCT2	*      *      *      *            000000000374 000000000374     *            *            000003261504 763 0   *   
SCT2	*      *      *      *            000000000770 000000000770     *            *            000006543210 764 0   *   
SCT2	*      *      *      *