Google
 

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






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

	PRODUCT CODE:		AH-F468A-DD

	DIAGNOSTIC CODE:	DFKCB

	PRODUCT NAME:		DFKCBA0 DECSYSTEM10 KL10 ADVANCED
				INSTRUCTION DIAGNOSTIC #2
				(DOUBLE PRECISION)

	VERSION:		0.1

	DATE RELEASED:		SEPTEMBER 1979

	MAINTAINED BY:		DIAGNOSTIC ENGINEERING

	AUTHOR:			JOHN R. KIRCHOFF

		        COPYRIGHT (C) 1979

	        DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

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

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

1.0	ABSTRACT

	THIS DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
	SECOND IN  A  SERIES  OF DECSYSTEM KL10 ADVANCED PROCESSOR
	DIAGNOSTICS.

	THE DIAGNOSTIC PERFORMS  LOGIC  TESTING  OF THE PROCESSOR
	AND MICRO-CODE DOUBLE PRECISION FIXED POINT INSTRUCTIONS:
	DADD, DSUB, DMUL, DDIV.


2.0	REQUIREMENTS

2.1	EQUIPMENT

	A DECSYSTEM KL10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY

	CONSOLE PROCESSOR
	CONSOLE TELETYPE
	LOAD DEVICE

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

	****** NOTE ******
	THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM KL10 SUBROUTINE
	PROGRAM BE RESIDENT IN THE DECSYSTEM KL10.

	FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
							MAINDEC-10-DFKCB.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".
	    THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE
	    OPERATIONAL SWITCHES:

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

		    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-DSKCE.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-DFKCB.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	0	ALLOW CACHE USE
			1	INHIBIT CACHE
							MAINDEC-10-DFKCB.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.

	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 PRINTED BY THE CONSOLE PROCESSOR.

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-DFKCB.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 'DFKCB.LPT'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

	    IN USER MODE THE PROGRAM WILL MAKE 10(8) PASSES AND THEN
	    RETURN TO SMMON COMMAND MODE.
							MAINDEC-10-DFKCB.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
		HISTORY FILE FOR DFKCB
                                                                                                                           SEQ 0010
---------------------------------------------------------------

CODE:		MAINDEC-10-DFKCB

TITLE:		DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2
		DOUBLE PRECISION

VERSION:	0.1

DATE:		SEPTEMBER 1979

AUTHOR:		JOHN R. KIRCHOFF

REASON:		INITIAL RELEASE FOR THE KL10.
---------------------------------------------------------------
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 1             
                                                                                                                           SEQ 0011




















				   DOCUMENT
				**************
       DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1
				**************

















		    COPYRIGHT 1979
		    DIGITAL EQUIPMENT CORPORATION
		    MAYNARD, MASS. 01754

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 2             
                                                                                                                           SEQ 0012

				 TABLE OF CONTENTS
				*******************


	28	ASSEMBLY TIME PARAMETERS

	73	MACROS

	285	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979

	320	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979

	526	ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979

	564	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979

	892	INITIALIZATION SECTION

	931	DADD - TEST A

	1121	DADD - TEST B

	1627	DADD - TEST C

	1680	DADD - TEST D

	1739	DADD - TEST E

	2083	DADD - TEST F

	3761	DADD - TEST G

	4240	DSUB - TEST A

	4404	DSUB - TEST B

	4554	DSUB - TEST C

	5632	DSUB - TEST D

	6121	DMUL - TEST A

	6384	DMUL - TEST B

	6624	DMUL - TEST C

	7191	DMUL - TEST D
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 3             
                                                                                                                           SEQ 0013

				 TABLE OF CONTENTS
				*******************


	7762	DMUL - TEST E (OVERFLOW)

	7813	DMUL - TEST F - TEST NEGATIVE OPERANDS

	7934	DMUL - TEST G

	8594	DDIV - TEST A

	8646	DDIV - TEST B

	8696	DDIV - TEST C

	9190	DDIV - TEST D

	9534	DDIV - TEST E

	9997	DDIV - TEST F

	10245	DDIV - TEST G

	11287	TESTING SUBROUTINES

	11462	ADDL ERROR PRINT ROUTINES

	11634	*STOR* RESERVED STORAGE, SEPT 18,1979
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 4             
                                                                                                                           SEQ 0014
		1	MAINDEC-10-DFKCB

		18	COPYRIGHT 1979
			DIGITAL EQUIPMENT CORPORATION
			MARLBORO, MASS.

		22	JOHN R. KIRCHOFF

		*****************************************************************
	28	ASSEMBLY TIME PARAMETERS
		*****************************************************************

		31	ACCUMULATOR DEFINITIONS

		45	BEGIN PARAMETERS

		*****************************************************************
	73	MACROS
		*****************************************************************

		76	PCSAVE - GET AND SAVE PC

		86	TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB

		101	MULT - PERFORM DMUL AND TEST RESULTS

		118	MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS

		139	PDIV - PERFORM DDIV AND TEST RESULTS

		157	PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS

		179	ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS
			       (HANDLES OVERFLOW/NO DIVIDE CONDITIONS)

		205	CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING
				 (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)

		225	CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
				 (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)

		246	CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING
				 (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)

		266	CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
				 (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 5             
                                                                                                                           SEQ 0015
		*****************************************************************
	285	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
		*****************************************************************

		290	DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
			LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
			AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS

		*****************************************************************
	320	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
		*****************************************************************

		323	SPECIAL SUBPROGRAM LINKAGES

		334	SPECIAL SUBROUTINE FATAL HALTS
			USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE

		*****************************************************************
	526	ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
		*****************************************************************

		*****************************************************************
	564	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
		*****************************************************************

		*****************************************************************
	892	INITIALIZATION SECTION
		*****************************************************************

		*****************************************************************
	931	DADD - TEST A
		*****************************************************************

		936	DADD - TEST A
			
				0,# + 0,0 = 0,#		SIMPLE TESTS TO SEE IF DADD
				#,0 + 0,0 = #,0		WORKS AT ALL.
				#,# + 0,0 = #,#
				0,0 + 0,# = 0,#
				0,0 + #,0 = #,0
				0,0 + #,# = #,#
				0,0 + 0,0 = 0,0

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 6             
                                                                                                                           SEQ 0016
		*****************************************************************
	1121	DADD - TEST B
		*****************************************************************

		1125	
				FLOATING 1 + 0 = FLOATING 1	THESE TESTS ARE DONE FOR A 1 OR
				0 + FLOATING 1 = FLOATING 1	A 0 IN BITS 0,34,36,70 OF THE
				FLOATING 0 + 0 = FLOATING 0	DOUBLEWORD ADDEND OR AUGEND.
				0 + FLOATING 0 = FLOATING 0	THIS WILL TEST THE WORD BOUND- 
								ARY INTEGRITY OF THE DADD
								INSTRUCTION.

		1135		REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST
				OF TEST CASES.  THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE
				FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT
				A 0 ACROSS IN BITS 0,34,36,70.  THE RESULT SHOULD BE ACS WITH
				CONTENTS EQUAL TO THE FLOATING 1/0.

		*****************************************************************
	1627	DADD - TEST C
		*****************************************************************

		1631	
				FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT
				A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST
				SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS
				TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY
				PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT.

		*****************************************************************
	1680	DADD - TEST D
		*****************************************************************

		1683	DADD - TEST D
			
				0,-1 + 0,1 = 1,0		ADDITIONAL TEST TO SEE THAT A
				0,1 + 0,-1 = 1,0		CARRY IS PROPAGATED ACROSS WORD
								BOUNDARIES.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 7             
                                                                                                                           SEQ 0017
		*****************************************************************
	1739	DADD - TEST E
		*****************************************************************

		1742	DADD - TEST E
			
				FLOATING 0 + 1 = 11111000..	
				1 + FLOATING 0 = 11111000..	

		1749		THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED
				  DOWN A WORD.   A 1 IS ADDED TO A  FLOATING 0  CAUSING THE
				  CARRY TO RIPPLE DOWN THE WORD.  THE RESULT IS VERIFIED AS
				  1111..110000....  THE FLOATING 0 IS LOCATED IN BITS 34,36,
				  71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE
				  NUMBERS.  CARRY FLAGS ARE VERIFIED IN ADDITION.

		*****************************************************************
	2083	DADD - TEST F
		*****************************************************************

		2086	DADD - TEST F
			
				THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES
				  THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
				  HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT.  THE
				  TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE
				  ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT
				  ARE CORRECT.
			
				THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N
							  (2) N + N = N
							  (3) P + P = P
							  (4) N + P = N
							  (5) N + P = P
							WHERE N-NEGATIVE NUMBER
							      P-POSITIVE NUMBER

		*****************************************************************
	3761	DADD - TEST G
		*****************************************************************

		3764	DADD - TEST G
			
				2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET)
				(2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET)
				-2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET)
				(-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET)
			
				THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV &
				CARRY 0 FLAGS.  CHECKED FOR BITS 0,34,36,70.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 8             
                                                                                                                           SEQ 0018
		3776		THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES.  THE FIRST
				  4 TESTS FLOAT A 1 ACROSS A  DOUBLEWORD  IN BITS 0,35,36,71.
				  THIS NUMBER IS THEN ADDED TO THE SMALLEST  POSITIVE INTEGER
				  WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD
				  OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET.
				  THE NEXT 4 TESTS FLOAT A 0 ACROSS A  DOUBLEWORD  IN BITS 1,
				  35,36,71 (A NEGATIVE NUMBER).   THIS NUMBER IS ADDED TO THE
				  SMALLEST  NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW -
				  THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT -
				  WITH OVERFLOW AND CARRY 0 SET.
				  THE DOUBLEWORDS  USED IN THIS  TEST ARE LOCATED IN THE LIST
				  'CONST2'.

		*****************************************************************
	4240	DSUB - TEST A
		*****************************************************************

		4245	DSUB - TEST A
			
				0,# - 0,0 = 0,#			GENERAL TESTING TO SEE THAT
				#,0 - 0,0 = #,0			DSUB CAN HANDLE DOUBLEWORDS
				#,# - 0,0 = #,#
				0,0 - 0,# = -(0,#)
				0,0 - #,0 = -(#,0)
				0,0 - #,# = -(#,#)

		*****************************************************************
	4404	DSUB - TEST B
		*****************************************************************

		4407	DSUB - TEST B
			
				TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND
				SUBTRAHEND -- TEST:
				0,0 - 0,0	0,1 - 0,0	0,-1 - 0,0	....
				0,0 - 0,1	0,1 - 0,1	0,-1 - 0,1	....
				0,0 - 0,-1	0,1 - 0,-1	0,-1 - 0,-1	....
				0,0 - 1,0	  ....		   ....		....
				0,0 - 1,1	  ....		   ....		....
				0,0 - 1,-1	  ....		   ....		....
				0,0 - -1,0	  ....		   ....		....
				0,0 - -1,1	  ....		   ....		....
				0,0 - -1,-1	  ....		   ....		....

		4423	     THESE  COMBINATIONS TEST THE ABILITY OF THE  DSUB  TO HANDLE
				BORROWS FROM THE NEXT WORD AND SIGNS CHANGING.  THE RESULT
				IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY
				ARE SET PROPERLY.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 9             
                                                                                                                           SEQ 0019
		4430	PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND
				     (2) LOOP ON MINUEND
				     (3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND
				     (4) LOOP ON SUBTRAHEND
				     (5) CALCULATE THE EXPECTED RESULT OF THE DSUB
				     (6) DO DSUB
				     (7) COMPARE RESULTS - ACTUAL VS. EXPECTED
				     (8) TEST FLAGS
				     (9) CONTINUE AT (4)

		*****************************************************************
	4554	DSUB - TEST C
		*****************************************************************

		4557	DSUB - TEST C
			
				THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES
				  THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
				  HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT.  THE
				  TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT  SIGNS
				  IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF
				  THE RESULT ARE CORRECT.
			
				THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P
							  (2) N - N = P/N
							  (3) P - P = N/P
							  (4) N - P = N/P
							  (5) N - P = N/P
							WHERE N-NEGATIVE NUMBER
							      P-POSITIVE NUMBER

		*****************************************************************
	5632	DSUB - TEST D
		*****************************************************************

		5635	DSUB - TEST D
			
				2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET)
				(-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET)
				-2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET)
				(2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET)

		5644		THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES.  THE FIRST
				  4 TESTS FLOAT A 1 ACROSS A  DOUBLEWORD  IN BITS 1,35,37,71.
				  FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE)
				  NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT
				  IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW
				  & CARRY 1 SET.  THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE-
				  WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS
				  SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE
				  AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN
				  THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET.
				  THE DOUBLEWORDS  USED IN THIS  TEST ARE LOCATED IN THE LIST
				  'SCOND'.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 10            
                                                                                                                           SEQ 0020
		*****************************************************************
	6121	DMUL - TEST A
		*****************************************************************

		6126	DMUL - TEST A
			
				0,# * 0 = 0	0 * 0,# = 0	THESE ARE GENERAL TESTS TO
				#,0 * 0 = 0	0 * #,0 = 0	ASCERTAIN THAT THE DMUL CAN
				#,# * 0 = 0	0 * #,# = 0	HANDLE DOUBLEWORDS.  THE ACS
			      -1,-# * 0 = 0	0 * -1,-# = 0	WILL CONTAIN THE RESULT ARE
			      -#,0 * 0 = 0	0 * -#,0 = 0	FILLED WITH GARBAGE AND THE
			      -#,-# * 0 = 0	0 * -#,-# = 0	RESULT IS CHECKED TO SEE THAT
				0,0 * 0 = 0			DMUL PRODUCES A 4-WORD LONG
								RESULT IN THE ACS.

		*****************************************************************
	6384	DMUL - TEST B
		*****************************************************************

		6387	DMUL - TEST B
			
				0,# * 1 = 0,#		THESE TEST THE DMUL ON A SLIGHTLY
				#,0 * 1 = #,0		STEEPER GRADIENT.  THIS WILL VERIFY
				#,# * 1 = #,#		THAT THE DMUL HANDLES DOUBLEWORDS AND
				-1,-# * 1 = -1,-#	A NON-ZERO MULTIPLIER.  THESE TESTS ARE
				-#,-1 * 1 = -#,-1	REPEATED WITH THE MULTIPLICAND AND THE
				-#,-# * 1 = -#,-#	MULTIPLIER REVERSED.

		*****************************************************************
	6624	DMUL - TEST C
		*****************************************************************

		6627	DMUL - TEST C
			
				0,1777.. * 2		THESE TESTS VERIFY THAT BITS ARE
				0,3777.. * 2		SHIFTED ACROSS WORD BOUNDARIES. A WORD
				1777..,3777.. * 2	OF ONES IS MULTIPLIED BY A FLOATING 1
				3777..,3777.. * 2	WHICH WILL CAUSE A SHIFT ACROSS WORD
				0,3777.. * 1,0		BOUNDARIES OR NOT. THE TEST VERIFIES
				1,3777.. * 1,0		THAT THE SHIFT IS DONE PROPERLY FOR
				3777..,3777.. * 1,0	BOUNDARY CONDITIONS.
				0,1777.. * 2,0		IN EACH TEST THE PC FLAGS ARE TESTED
				0,3777.. * 2,0		SINCE THERE ARE NO OVERFLOW CONDITIONS
				3777..,3777.. * 2,0	THE LEFTMOST BIT OF THE PC SHOULD BE
							0 (NO AROV).
							THESE TESTS ARE REPEATED WITH MULT-
							PLICAND AND MULTIPLIER REVERSED.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 11            
                                                                                                                           SEQ 0021
		*****************************************************************
	7191	DMUL - TEST D
		*****************************************************************

		7194	DMUL - TEST D
			
				7777..,6000.. * 2	THESE TESTS VERIFY THAT BITS ARE
				7777..,4000.. * 2	SHIFTED ACROSS WORD BOUNDARIES. A WORD
				6000..,4000.. * 2	OF ONES IS MULTIPLIED BY A FLOATING 1
				4000..,4000.. * 2	WHICH WILL CAUSE A SHIFT ACROSS WORD
				777..,400.. * 1,0	BOUNDARIES OR NOT. THE TEST VERIFIES
				..776,400.. * 1,0	THAT THE SHIFT IS DONE PROPERLY FOR
				400..,400.. * 1,0	BOUNDARY CONDITIONS.
				777..,600.. * 2,0	IN EACH TEST THE PC FLAGS ARE TESTED
				777..,400.. * 2,0	SINCE THERE ARE NO OVERFLOW CONDITIONS
				400..,400.. * 2,0	THE LEFTMOST BIT OF THE PC SHOULD BE
							0 (NO AROV).
							THESE TESTS ARE REPEATED WITH MULT-
							PLICAND AND MULTIPLIER REVERSED.

		*****************************************************************
	7762	DMUL - TEST E (OVERFLOW)
		*****************************************************************

		7765	DMUL - TEST E
			
			  -2^70 * -2^70	THIS IS THE ONLY CASE THAT CAN SET
						THE AROV FLAG.  THIS TEST VERIFIES THE
						RESULT AND CHECKS THE SETTING OF THE
						AROV FLAG.
			
			 ------- MULTIPLICAND = (4000...,4000...)
			 ------- MULTIPLIER === (4000...,4000...)
			 ------- RESULT ======= (4000...,4000...,4000...,4000...)

		*****************************************************************
	7813	DMUL - TEST F - TEST NEGATIVE OPERANDS
		*****************************************************************

		7816	DMUL - TEST F
			
			       -2 * -3		THESE TESTS VERIFY THAT THE DMUL HANDLES
			       -2,0 * -3		THE SIGNS PROPERLY WHEN MULTIPLYING 
			       -2 * -3,0		OPERANDS WHICH ARE BOTH NEGATIVE.  TESTS
			       -2,0 * -3,0		B,C,D TESTED THE COMBINATIONS POS*POS,
							POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE
							AROV FLAG IS ALSO TESTED TO ASCERTAIN 
							THAT IT WAS NOT SET.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 12            
                                                                                                                           SEQ 0022
		*****************************************************************
	7934	DMUL - TEST G
		*****************************************************************

		7937	DMUL - TEST G
			
				2 * 3	  2,0 * 3,0	THESE TESTS MULTIPLY NUMBERS WHICH HAVE
				2 * -3	  2,0 * -3,0	INCONSISTENT SIGNS AMONGST THE WORDS OF
			      -2 * 3	 -2,-1 * 3,0	EACH OPERAND.  THE FLAGS IS ALSO TESTED
			      -2 * -3	 -2,-1 * -3,0	TO VERIFY THAT IT IS NOT SET.

		*****************************************************************
	8594	DDIV - TEST A
		*****************************************************************

		8599	DDIV - TEST A
			
				(0,0,0,#) / 1		THESE BASIC TESTS VERIFY THAT THE DDIV
				(0,0,#,0) / 1		HANDLES A QUADRUPLE WORD DIVIDEND. FOR
							EACH TEST ALL PERMUTATIONS OF POSITIVE
							AND NEGATIVE OPERANDS ARE TESTED.

		*****************************************************************
	8646	DDIV - TEST B
		*****************************************************************

		8649	DDIV - TEST B
			
				(0,0,0,#) / #		THESE TESTS PERFORM SOME CASES MORE
				(0,0,#,0) / (#,0)	DIFFICULT THAN (A).  PERMUTATIONS OF
							POSITIVE AND NEGATIVE OPERANDS ARE
							TESTED.

		*****************************************************************
	8696	DDIV - TEST C
		*****************************************************************

		8699	DDIV - TEST C
			
				(0,0,0,1)  (0,0,1,0)  (0,0,1,0)  (0,1,0,0)  (0,1,0,0)  (1,0,0,0)
				 -------    -------    -------    -------    -------    -------
				    2	       2	 2,0	     2	       2,0	  2,0
			
				THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE
				THE DIVIDEND ACROSS WORD BOUNDARIES.
				THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF
				POSITIVE AND NEGATIVE OPERANDS.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 13            
                                                                                                                           SEQ 0023
		*****************************************************************
	9190	DDIV - TEST D
		*****************************************************************

		9193	DDIV - TEST D
			
				MISCELLANEOUS TESTING.  THESE TESTS DIVIDE 2 NUMBERS AND JUST
				CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS.

		*****************************************************************
	9534	DDIV - TEST E
		*****************************************************************

		9537	DDIV - TEST E
			
				-4/-2		-4/2		4/-2		4/2
				(-3,0,0,0)/(-6,0)   (-3,0,0,0)/(6,0)	3/-6	3/6
			
				THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS
				OPERANDS PROPERLY.  THE SIGN BITS OF THE LOW ORDER WORDS ARE
				INITIALLY DIFFERENT FROM THE HIGH ORDER WORD.  THE SIGN SHOULD
				BE FORMED CORRECTLY IN SPITE OF THAT.

		*****************************************************************
	9997	DDIV - TEST F
		*****************************************************************

		10000	DDIV - TEST F
			
				 1,0,0,0     -1,0,0,0     0,-1,-1,-1     -1,0,0,1
				 -------     --------     ----------     --------
				   1,1          1,1           1,0           1,0
			
				 1,0,0,0     -1,0,0,0     0,-1,-1,-1     -1,0,0,1
				 -------     --------     ----------     --------
				  -2,-1        -2,-1         -1,0          -1,0
			
				THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN
				OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS
				JUST LARGE ENOUGH TO NOT CAUSE ONE.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 14            
                                                                                                                           SEQ 0024
		*****************************************************************
	10245	DDIV - TEST G
		*****************************************************************

		10248	DDIV - TEST G
			
				   1     1,0     1,0,0     1,0,0,0     -1
				   -     ---     -----     -------      -
				   0      0        0          0         0
			
				   1,0,0     1,0,0     1,0,0,0     1,0,0,0
				   -----     -----     -------     -------
				     1        -1          1           -1
			
				   -1,0,0     -1,0,0     -1,0,0,0     -1,0,0,0
				   ------     ------     --------     --------
				      1         -1           1           -1
			
				   1,0,0,0     1,0,0,0     -1,0,0,0     -1,0,0,0
				   -------     -------     --------     --------
				     1,0         -1,0         1,0         -1,0
			
				   0,-1,-1,-1     0,-1,-1,-1     -1,0,0,1     -1,0,0,1
				   ----------     ----------     --------     --------
				      0,-1           -1,1          0,-1         -1,1
			
				   1,0,-1,-1     1,0,-1,-1     -2,-1,0,1     -2,-1,0,1
				   ---------     ---------     ---------     ---------
				     0,-1          -1,1           0,-1         -1,1
			
				   -2^140     2^140-1     2^140-1     -2^70+1,-2^70
				   ------     -------     -------     -------------
				    -2^70      2^70-1     -2^70+1        2^70-1
			
				THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT
				SHOULD RESULT IN OVERFLOW.  THE SETTING OF AROV AND NO
				DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO
				SEE THAT IT DID NOT CHANGE.
			
				ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST
				SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE
				SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION.

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 15            
                                                                                                                           SEQ 0025
		*****************************************************************
	11287	TESTING SUBROUTINES
		*****************************************************************

		11290	MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS
			
				ARGUMENTS:	MCAND - CONTAINS MULTIPLICAND
						MPLIER - CONTAINS MULTIPLIER
						MRES - CONTAINS THE EXPECTED RESULT

		11338	PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
			
				ARGUMENTS:	PDEND - CONTAINS DIVIDEND
						PISOR - CONTAINS DIVISOR
						PRES - CONTAINS THE EXPECTED RESULT

		11386	OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
			
				ARGUMENTS:	ODEND - CONTAINS DIVIDEND
						OISOR - CONTAINS DIVISOR
			
				NOTE:	WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR
					ENSURES THAT THE OPERANDS DO  NOT  CHANGE.  THE KL10 ENSURES
					THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE.
					THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF  EITHER  WORD
					DOES NOT CHANGE - HOWEVER, IT ONLY  PROTECTS THE SIGN BIT OF
					THE MOST SIGNIFICANT WORD.  THE SIGN BIT OF THE  OTHER  WORD
					IS INDETERMINATE.  THIS TEST CHECKS TO FIND OUT WHAT TYPE OF
					PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10.
			
					THE ABOVE WAS NOTICED WHEN RUNNING THE  DIAGNOSTIC ON THE KS10
					AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS
					DONE TO SAVE SPACE IN THE KS10 MICROCODE.

		*****************************************************************
	11462	ADDL ERROR PRINT ROUTINES
		*****************************************************************

		11465	APRINT - ADDITION ERROR PRINTER

		11502	SPRINT - SUBTRACTION ERROR PRINTER

		11539	MPRINT - MULTIPLICATION ERROR PRINTER

		11582	DPRINT - DIVIDE ERROR PRINTER

DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1        DECDOC VER  00.24   26-SEP-79 16:47:50   PAGE 16            
                                                                                                                           SEQ 0026
		*****************************************************************
	11634	*STOR* RESERVED STORAGE, SEPT 18,1979
		*****************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1
DFKCBT	MAC	26-Sep-79 16:23		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979                              SEQ 0027

     1					;*MAINDEC-10-DFKCB
     2
     3			000000		MCNVER=0
     4			000001		DECVER=1
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1
    13					^
    14
    15	000137					LOC	137
    16	000137	000000	000001		MCNVER,,DECVER
    17
    18					;*COPYRIGHT 1979
    19					;*DIGITAL EQUIPMENT CORPORATION
    20					;*MARLBORO, MASS.
    21
    22					;*JOHN R. KIRCHOFF
    23
    24						SEARCH	MONSYM
    25						NOSYM
    26
    27					IF2,<PRINTX	[STARTING PASS 2]>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2
DFKCBT	MAC	26-Sep-79 16:23		ASSEMBLY TIME PARAMETERS                                                           SEQ 0028

    28					SUBTTL	ASSEMBLY TIME PARAMETERS
    29
    30					; **********************************************************************
    31					;*ACCUMULATOR DEFINITIONS
    32					; **********************************************************************
    33
    34			000001		AC1=1				;AC,AC+1,AC+2,AC+3 - CONTAIN OPERANDS USED
    35									;  BY DADD,DSUB,DMUL,DDIV
    36
    37			000011		CNT=11				;COUNT AC
    38
    39			000012		SCR0=12				;SCRATCH ACS USED IN THE ADDL ERROR PRINT
    40			000013		SCR1=SCR0+1			;  ROUTINE
    41			000014		SCR2=SCR0+2
    42			000015		SCR3=SCR0+3
    43
    44					; **********************************************************************
    45					;*BEGIN PARAMETERS
    46					; **********************************************************************
    47
    48			030624		SADR1=STARTA
    49			030624		SADR2=STARTA
    50			030623		SADR3=START
    51			030007		SADR4=SRTDDT
    52			030624		SADR5=STARTA
    53			040724		SADR6=PHALT
    54		254200	030000		SADR7=HALT BEGIN
    55		254200	030000		SADR8=HALT BEGIN
    56		254200	030000		SADR9=HALT BEGIN
    57		254200	030000		SADR10=HALT BEGIN
    58		254200	030000		SADR11=HALT BEGIN
    59			000010		ITERAT=10
    60			000000		PAREA1=0
    61			000000		PAREA2=0
    62		444653	434200		PAREA3=SIXBIT/DFKCB/
    63		546364	000000		PAREA4=SIXBIT/LST/
    64			000000		PAREA5=0
    65			000000		PAREA6=0
    66
    67			000001		KL10==1
    68			000001		KL10P0==1
    69			000001		PGMEND==1
    70			000001		EXCASB==1
    71			000001		USRASB==1
    72			000030		DEBUG==30
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3
DFKCBT	MAC	26-Sep-79 16:23		MACROS                                                                             SEQ 0029

    73					SUBTTL	MACROS
    74
    75					; **********************************************************************
    76					;*PCSAVE - GET AND SAVE PC
    77					; **********************************************************************
    78
    79					DEFINE	PCSAVE<
    80						JSR	.+1		;STORE PC
    81					FLAGL=.				;LOCATION OF PC
    82						0			;PC
    83					>
    84
    85					; **********************************************************************
    86					;*TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB
    87					; **********************************************************************
    88
    89					DEFINE	TFLAG (FLGGS,TT,ADDR<APRINT>,LOC<LOC>)<
    90					
    91						MOVE	SCR1,FLAGL	;GET FLAGS
    92						MOVE	SCR2,FLGGS 	;SCR2 - CORRECT FLAGS
    93						SKIPN	USER		;EXEC MODE ?
    94						TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
    95						XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
    96						TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
    97						ERROR	(LOC,13,SCR2,FLAGL,,^_
    98					TEST 'TT' - PC FLAGS INCORRECT (LEFT 4 BITS),ADDR)
    99					>
   100					; **********************************************************************
   101					;*MULT - PERFORM DMUL AND TEST RESULTS
   102					; **********************************************************************
   103
   104					DEFINE	MULT (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)<
   105					
   106					; --- MULTIPLICAND = (A1,A2)
   107					; --- MULTIPLIER === (E1,E2)
   108					; --- RESULT ======= (R1,R2,R3,R4)
   109					
   110					%BEGIN:	MOVE	AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND]
   111						BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
   112						GO	MSUBR		;GO DO TEST
   113						ERROR	(%BEGIN,14,SCR1,SCR2,,^_
   114					TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT)
   115					>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 4
DFKCBT	MAC	26-Sep-79 16:23		MACROS                                                                             SEQ 0030

   116
   117					; **********************************************************************
   118					;*MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS
   119					; **********************************************************************
   120
   121					DEFINE	MULTF (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)<
   122					
   123					; --- MULTIPLICAND = (A1,A2)
   124					; --- MULTIPLIER === (E1,E2)
   125					; --- RESULT ======= (R1,R2,R3,R4)
   126					
   127					%BEGIN:	MOVE	AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND]
   128						BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
   129						GO	MSUBR		;GO DO TEST
   130						ERROR	(%BEGIN,14,SCR1,SCR2,,^_
   131					TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT)
   132					
   133					%TSTPC:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
   134						TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
   135						ERROR	(%BEGIN,13,SCR2,MFLOC,,^_
   136					TEST 'T' - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)
   137					>
   138					; **********************************************************************
   139					;*PDIV - PERFORM DDIV AND TEST RESULTS
   140					; **********************************************************************
   141
   142					DEFINE	PDIV (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)<
   143					
   144					; --- DIVIDEND == (A1,A2,A3,A4)
   145					; --- DIVISOR === (E1,E2)
   146					; --- QUOTIENT == (R1,R2)
   147					; --- REMAINDER = (R3,R4)
   148					
   149					%BEGIN:	MOVE	AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND]
   150						BLT	AC1,PRES+3	;SET UP OPERANDS
   151						GO	PSUBR		;GO DO TEST
   152						ERROR	(%BEGIN,14,SCR1,SCR2,,^_
   153					TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT)
   154					>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 5
DFKCBT	MAC	26-Sep-79 16:23		MACROS                                                                             SEQ 0031

   155
   156					; **********************************************************************
   157					;*PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS
   158					; **********************************************************************
   159
   160					DEFINE	PDIVF (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)<
   161					
   162					; --- DIVIDEND == (A1,A2,A3,A4)
   163					; --- DIVISOR === (E1,E2)
   164					; --- QUOTIENT == (R1,R2)
   165					; --- REMAINDER = (R3,R4)
   166					
   167					%BEGIN:	MOVE	AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND]
   168						BLT	AC1,PRES+3	;SET UP OPERANDS
   169						GO	PSUBR		;GO DO TEST
   170						ERROR	(%BEGIN,14,SCR1,SCR2,,^_
   171					TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT)
   172					
   173					%TSTPC:	MOVE	SCR2,PFLOC	;GET PC
   174						TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
   175						ERROR	(%BEGIN,13,SCR2,PFLOC,,^_
   176					TEST 'T' - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)
   177					>
   178					; **********************************************************************
   179					;*ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS
   180					;*       (HANDLES OVERFLOW/NO DIVIDE CONDITIONS)
   181					; **********************************************************************
   182
   183					DEFINE	ODIV (A1,A2,A3,A4,E1,E2,%BEGIN,%TSTPC)<
   184					
   185					; --- DIVIDEND == (A1,A2,A3,A4)
   186					; --- DIVISOR === (E1,E2)
   187					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
   188					
   189					%BEGIN:	MOVE	AC1,[[EXP A1,A2,A3,A4,E1,E2],,ODEND]
   190						BLT	AC1,ORES-1	;SET UP OPERANDS
   191						GO	OSUBR		;GO DO TEST
   192						ERROR	(%BEGIN,14,SCR1,SCR2,,^_
   193					TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)
   194					
   195					%TSTPC:	MOVE	SCR2,OFLOC	;GET PC
   196						IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
   197						SKIPN	USER		;EXEC MODE ?
   198						TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
   199						CAME	SCR2,OFLOC	;PC CORRECT?
   200						ERROR	(%BEGIN,13,SCR2,OFLOC,,^_
   201					TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)
   202					>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6
DFKCBT	MAC	26-Sep-79 16:23		MACROS                                                                             SEQ 0032

   203
   204					; **********************************************************************
   205					;*CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING
   206					;*	 (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
   207					; **********************************************************************
   208
   209					DEFINE	CHECKA (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)<
   210					
   211						SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   212						CAME	AC1,[R1]	;IS LEFT HALF OF RESULT CORRECT?
   213						JRST	%ERROR		;NO - GO TO ERROR HANDLING
   214						MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   215						CAMN	AC1+1,[R2]	;IS RIGHT HALF CORRECT?
   216						JRST	%END+1  	;YES - DONT DO ERROR HANDLING
   217									; EXCEPT FOR ERLOOP
   218					
   219					%ERROR:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   220						MOVE	SCR1,[EXP R1,R2](SCR1)	;GET CORRECT RESULT
   221					%END:	ERROR	(LOC,14,SCR1,SCR2,,^_
   222					TEST 'T' - RESULT IS INCORRECT,APRINT)
   223					>
   224					; **********************************************************************
   225					;*CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
   226					;*	 (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
   227					; **********************************************************************
   228
   229					DEFINE	CHECKS (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)<
   230					
   231						SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   232						CAME	AC1,[R1]	;IS LEFT HALF OF RESULT CORRECT?
   233						JRST	%ERROR		;NO - GO TO ERROR HANDLING
   234						MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   235						CAMN	AC1+1,[R2]	;IS RIGHT HALF CORRECT?
   236						JRST	%END+1  	;YES - DONT DO ERROR HANDLING
   237									;	EXCEPT FOR ERLOOP
   238					
   239					%ERROR:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   240						MOVE	SCR1,[EXP R1,R2](SCR1)	;GET CORRECT RESULT
   241					%END:	ERROR	(LOC,14,SCR1,SCR2,,^_
   242					TEST 'T' - RESULT IS INCORRECT,SPRINT)
   243					>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 7
DFKCBT	MAC	26-Sep-79 16:23		MACROS                                                                             SEQ 0033

   244
   245					; **********************************************************************
   246					;*CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING
   247					;*	 (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
   248					; **********************************************************************
   249
   250					DEFINE	CHECKB (LOC,T,R1,%ERROR,%END)<
   251					
   252						SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   253						CAME	AC1,R1		;IS LEFT HALF OF RESULT CORRECT?
   254						JRST	%ERROR		;NO - GO TO ERROR HANDLING
   255						MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   256						CAMN	AC1+1,R1+1	;IS RIGHT HALF CORRECT?
   257						JRST	%END+1  	;YES - DONT DO ERROR HANDLING
   258									;	EXCEPT FOR ERLOOP
   259					
   260					%ERROR:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   261						MOVE	SCR1,R1(SCR1)	;GET CORRECT WORD OF RESULT
   262					%END:	ERROR	(LOC,14,SCR1,SCR2,,^_
   263					TEST 'T' - RESULT IS INCORRECT,APRINT)
   264					>
   265					; **********************************************************************
   266					;*CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
   267					;*	 (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
   268					; **********************************************************************
   269
   270					DEFINE	CHECKT (LOC,T,R1,%ERROR,%END)<
   271					
   272						SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   273						CAME	AC1,R1  	;IS LEFT HALF OF RESULT CORRECT?
   274						JRST	%ERROR		;NO - GO TO ERROR HANDLING
   275						MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   276						CAMN	AC1+1,R1+1      	;IS RIGHT HALF CORRECT?
   277						JRST	%END+1  	;YES - DONT DO ERROR HANDLING
   278									;	EXCEPT FOR ERLOOP
   279					
   280					%ERROR:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   281						MOVE	SCR1,R1(SCR1)	;GET CORRECT WORD OF RESULT
   282					%END:	ERROR	(LOC,14,SCR1,SCR2,,^_
   283					TEST 'T' - RESULT IS INCORRECT,SPRINT)
   284					>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1
PARAM	KLM	18-Sep-79 17:16		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979                              SEQ 0034

   285					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
   286
   287					DEFINE	S,<; *********************************************************************>
   288
   289					; **********************************************************************
   290					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   291					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   292					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   293					; **********************************************************************
   294
   295			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   296			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   297			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   298
   299			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   300			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   301			010000		DING==	010000			;RING BELL ON ERROR
   302
   303			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   304			002000		ERSTOP==002000			;HALT ON TEST ERROR
   305			001000		PALERS==001000			;PRINT ALL ERRORS
   306
   307			000400		RELIAB==000400			;RELIABILITY MODE
   308			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   309			000100		INHPAG==000100			;INHIBIT PAGING
   310
   311			000040		MODDVC==000040			;MODIFY DEVICE CODE
   312			000020		INHCSH==000020			;INHIBIT CACHE
   313			000010		OPRSEL==000010			;OPERATOR SELECTION
   314
   315			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   316
   317			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   318
   319									;SWITCH 17 RESERVED !!!
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0035

   320					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
   321
   322					; **********************************************************************
   323					;*SPECIAL SUBPROGRAM LINKAGES
   324					; **********************************************************************
   325
   326			027772		FSELNK=	27772	;FILE SELECT LINK
   327			027773		FRDLNK=	27773	;FILE READ LINK
   328			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   329			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   330			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   331			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   332
   333					; **********************************************************************
   334					;*SPECIAL SUBROUTINE FATAL HALTS
   335					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   336					; **********************************************************************
   337
   338					;ADDRESS   TAG	REASON
   339					;---------------------
   340
   341					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   342					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   343					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   344					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   345					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   346					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   347					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   348					; 1017  EOPERR	;END OF PROGRAM ERROR
   349					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   350
   351					; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0036

   352					; **********************************************************************
   353					;OPERATOR DEFINITIONS (NON-UUO'S)
   354					; **********************************************************************
   355
   356		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   357		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   358		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   359		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   360		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   361		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   362		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   363		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   364
   365					; **********************************************************************
   366					;SUBROUTINE INITIALIZATION CALL
   367					; **********************************************************************
   368
   369		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   370
   371					; **********************************************************************
   372					;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   373					; **********************************************************************
   374
   375		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   376		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   377
   378					; **********************************************************************
   379					;TERMINAL INPUT UUO'S
   380					;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   381					;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   382					; **********************************************************************
   383
   384		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   385		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   386		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   387		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   388		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   389		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   390		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   391		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   392		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   393		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
   394		037500	000003		OPDEF	TTICLR	[37B8!12B12!3]	;TTY, CLEAR INPUT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 4
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0037

   395					;TERMINAL OUTPUT UUO'S.
   396
   397		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   398		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   399		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   400		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   401		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   402		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   403		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   404		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   405		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   406		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   407		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   408		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   409		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   410		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   411		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   412		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   413		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   414		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   415		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   416		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   417		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   418		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   419		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   420		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   421		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   422		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   423		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   424		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   425		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   426		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   427		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   428		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   429		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   430		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   431		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   432		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   433		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   434		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   435		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   436		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   437		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   438		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 5
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0038

   439		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   440		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   441		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   442		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   443		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   444		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   445		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   446		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   447		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   448		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   449		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   450		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   451		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   452
   453		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   454
   455					DEFINE	PMSG	(ARG),<
   456						PSIXM	[SIXBIT\ARG'_\]>
   457
   458					DEFINE	PMSGF	(ARG),<
   459						PSIXMF	[SIXBIT\ARG'_\]>
   460
   461					;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   462					;	CONSERVES CORE OVER ASCIZ
   463
   464					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   465
   466					;CONSOLE SWITCH INPUT UUO.
   467					;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   468					; USER MODE.
   469
   470		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   471
   472					;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   473					;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   474
   475		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   476		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   477
   478					;KL10 ONLY CACHE OPERATION UUO'S
   479
   480		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   481		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   482		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0039

   483					;END OF PASS/PROGRAM UUOS
   484
   485					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   486					;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   487
   488		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   489		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   490
   491					;MEMORY MANAGEMENT UUO'S
   492					;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   493					;ADDRESS CONVERSION, ETC...
   494
   495		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   496		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   497		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   498		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   499		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   500		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   501		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   502
   503					;DEVICE CODE MODIFICATION UUO
   504					;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   505					;IOT'S TO A DIFFERENT DEVICE CODE.
   506
   507		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   508		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   509
   510			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   511			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   512
   513					;"DIAMON" FILE SELECTION AND READ UUOS
   514
   515		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   516		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   517		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   518		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   519
   520					;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   521
   522		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   523
   524						XLIST
   525					IFNDEF	KLOLD,<LIST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 7
PARAM	KLM	18-Sep-79 17:16		ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979                                       SEQ 0040

   526					SUBTTL	ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
   527
   528					; **********************************************************************
   529					;ERROR HANDLER PARAMETERS
   530					; **********************************************************************
   531
   532		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   533		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   534		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   535		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   536		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   537
   538					;THE ERROR HANDLER MACROS
   539
   540					;A MACRO TO REPORT AN ERROR AND LOOP
   541
   542						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   543												SALL
   544						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   545							   CORECT,,ACTUAL
   546							   [SIXBIT\D'_\],,ERR]
   547												XALL
   548						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   549					>
   550
   551					;A MACRO TO REPORT AN ERROR AND NOT LOOP
   552
   553						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   554												SALL
   555						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   556							   CORECT,,ACTUAL
   557							   [SIXBIT\D'_\],,ERR]
   558												XALL>
   559
   560					>;END OF KLOLD CONDITIONAL
   561
   562						XLIST
   563						LIST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0041

   564					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
   565
   566	030000					LOC	30000
   567
   568					; **********************************************************************
   569					;PROGRAM STARTING ADDRESSES
   570					;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   571					;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   572					;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   573					;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   574					; **********************************************************************
   575
   576	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   577	030001	254 00 0 00 030623 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   578
   579	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   580
   581	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   582
   583	030004	254 00 0 00 030624 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   584
   585	030005	254 00 0 00 030624 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   586
   587	030006	254 00 0 00 030623 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   588
   589	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   590	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   591
   592	030010	254 00 0 00 030624 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   593	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   594	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   595
   596	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   597	030014	254200	030000		START2:	SADR8			; "
   598	030015	254200	030000		START3:	SADR9			; "
   599	030016	254200	030000		START4:	SADR10			; "
   600	030017	254200	030000		START5:	SADR11			; "
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0042

   601					; **********************************************************************
   602					;PROGRAM FIXED PARAMETER AREA
   603					; **********************************************************************
   604
   605	030020	444653	434200		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   606	030021	546364	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   607	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   608	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   609	030024	000000	000010		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   610	030025	000000	030600		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   611	030026	000000	000001		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   612	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   613	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   614	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   615	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   616	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   617	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   618	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   619	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   620
   621					; **********************************************************************
   622					;PROGRAM VARIABLE PARAMETER AREA
   623					; **********************************************************************
   624
   625	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   626	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   627	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   628	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   629	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   630	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   631	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   632	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   633	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   634	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   635	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   636	030052	000000	000000		ERRPC:	0		;ERROR PC
   637	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   638	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   639	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   640	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0043

   641					; **********************************************************************
   642					;SPECIAL PROGRAM DISPATCH ADDRESSES
   643					; **********************************************************************
   644
   645	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   646	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   647	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   648	030062	000000	030624		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   649	030063	000000	040724		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   650	030064				CPOPJ1:			;SKIP RETURN
   651	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   652	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   653	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   654	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   655	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   656	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   657	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   658	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   659	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   660	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   661	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   662	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   663	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   664	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   665	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   666	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   667
   668	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   669	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   670	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   671
   672					; **********************************************************************
   673					;PROCESSOR CONTROL STORAGE
   674					; **********************************************************************
   675
   676	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   677	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   678	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   679	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   680	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   681
   682	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   683	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   684
   685	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   686	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   687	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   688	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   689	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   690	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   691	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 4
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0044

   692					; **********************************************************************
   693					;UUO DISPATCH TABLE
   694					; **********************************************************************
   695						XLIST
   696						LIST
   697	030124	030070	030070		UUODIS:	LUUO1,,$UUOER
   698	030125	030070	030070			LUUO3,,LUUO2
   699	030126	030070	030070			LUUO5,,LUUO4
   700	030127	030070	030070			LUUO7,,LUUO6
   701	030130	030070	030070			LUUO11,,LUUO10
   702	030131	030070	030070			LUUO13,,LUUO12
   703	030132	030070	030070			LUUO15,,LUUO14
   704	030133	030070	030070			LUUO17,,LUUO16
   705	030134	030070	030070			LUUO21,,LUUO20
   706	030135	030070	030070			LUUO23,,LUUO22
   707	030136	030070	030070			LUUO25,,LUUO24
   708	030137	030070	030070			LUUO27,,LUUO26
   709	030140	030070	030070			LUUO31,,LUUO30
   710	030141	030070	030070			LUUO33,,LUUO32
   711
   712					; **********************************************************************
   713					;MEMORY MANAGMENT STORAGE
   714					; **********************************************************************
   715
   716	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   717	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   718	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   719	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   720	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   721
   722					; **********************************************************************
   723					;PRINT CONTROL STORAGE
   724					; **********************************************************************
   725
   726	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   727	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   728	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   729	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   730	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   731	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   732	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   733	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   734	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   735	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   736	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   737	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   738	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   739	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   740	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   741	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   742	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   743	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   744	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 5
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0045

   745					; **********************************************************************
   746					;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   747					;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   748					;	MOVEI	NAME
   749					;	PNTA		;OR PNTAF
   750					; **********************************************************************
   751
   752	030242				CRLF:	ASCII/
   753	030242	015 012 000 000 000 	/
   754	030243				CRLF2:	ASCII/
   755
   756	030243	015 012 015 012 000 	/
   757	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   758	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   759	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   760	030247	011 000 000 000 000 	TAB:	ASCII/	/
   761	030250				MINUS:
   762	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   763	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   764	030252	052 000 000 000 000 	AST:	ASCII/*/
   765	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   766	030254	050 000 000 000 000 	LFP:	ASCII/(/
   767	030255	051 000 000 000 000 	RTP:	ASCII/)/
   768	030256	007 0000000000 		BELL:	BYTE (7) 007
   769	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   770	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   771	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   772	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   773	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   774	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   775
   776					; **********************************************************************
   777					;USER MODE OUTPUT FILE INFORMATION
   778					; **********************************************************************
   779
   780	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   781	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   782	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   783	030272					BLOCK	2
   784
   785					; **********************************************************************
   786					;DISK UPDATE MODE FILE INFORMATION
   787					; **********************************************************************
   788
   789	030274				$IBUF:	BLOCK	3
   790	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   791	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   792	030301					BLOCK	2
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0046

   793					; **********************************************************************
   794					;PUSHDOWN LIST CONTROL INFORMATION
   795					; **********************************************************************
   796
   797	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   798	030304				PLISTS:	BLOCK	200
   799	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   800
   801					; **********************************************************************
   802					;POWER LINE CLOCK FREQUENCY FLAG
   803					; **********************************************************************
   804
   805	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   806
   807					; **********************************************************************
   808					;KL10 CACHE CONTROL FLAGS
   809					; **********************************************************************
   810
   811	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   812	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   813
   814					; **********************************************************************
   815					;NUMBER INPUT DIGIT FLAG
   816					; **********************************************************************
   817
   818	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   819
   820					; **********************************************************************
   821					;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   822					; **********************************************************************
   823
   824	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   825
   826					; **********************************************************************
   827					;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   828					; **********************************************************************
   829
   830	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   831	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   832	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   833
   834					; **********************************************************************
   835					;SPECIAL USERS UUO INTERCEPT INSTRUCTION
   836					; **********************************************************************
   837
   838	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 7
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0047

   839					; **********************************************************************
   840					;USER MODE MONITOR TYPE FLAG
   841					; **********************************************************************
   842
   843	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
   844
   845					; **********************************************************************
   846					;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   847					; **********************************************************************
   848
   849	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   850
   851					; **********************************************************************
   852					;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   853					; **********************************************************************
   854
   855	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   856
   857					; **********************************************************************
   858					;"SWITCH" CALL USAGE CONTROL
   859					; **********************************************************************
   860
   861	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   862
   863					; **********************************************************************
   864					;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   865					; **********************************************************************
   866
   867	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   868	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   869
   870					; **********************************************************************
   871					;SM10 (KS-10) PROCESSOR TYPE FLAG
   872					; **********************************************************************
   873
   874	030524	000000	000000		SM10:	0	;IF -1 THIS IS A KS-10
   875
   876					; **********************************************************************
   877					;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
   878					; **********************************************************************
   879
   880	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
   881
   882					; **********************************************************************
   883					;SPECIAL FUTURE EXPANSION ROOM
   884					; **********************************************************************
   885
   886					; **********************************************************************
   887					;END OF FIXED STORAGE
   888					; **********************************************************************
   889
   890	030577					LOC	30577
   891	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1
DFKCBM	MAC	26-Sep-79 16:11		INITIALIZATION SECTION                                                             SEQ 0048

   892					SUBTTL	INITIALIZATION SECTION
   893
   894					LALL					;EXPAND MACROS
   895
   896	030600				PGMNAM:	ASCIZ/
   897	030600	015 012 104 105 103 	DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2 [DFKCB]
   898	030601	123 131 123 124 105 
   899	030602	115 040 113 114 061 
   900	030603	060 040 101 104 126 
   901	030604	101 116 103 105 104 
   902	030605	040 111 116 123 124 
   903	030606	122 125 103 124 111 
   904	030607	117 116 040 104 111 
   905	030610	101 107 116 117 123 
   906	030611	124 111 103 040 043 
   907	030612	062 040 133 104 106 
   908	030613	113 103 102 135 015 
   909	030614	012 104 117 125 102 	DOUBLE PRECISION INSTRUCTIONS
   910	030615	114 105 040 120 122 
   911	030616	105 103 111 123 111 
   912	030617	117 116 040 111 116 
   913	030620	123 124 122 125 103 
   914	030621	124 111 117 116 123 
   915	030622	015 012 000 000 000 	/
   916		123456	765432			NUM=123456765432
   917
   918					; A MACRO TO REPORT AN ERROR AND LOOP
   919					;	THIS IS REDEFINED HERE TO CHANGE THE LISTING CONTROL STATEMENTS
   920
   921					DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<SALL
   922						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   923							   CORECT,,ACTUAL
   924							   [SIXBIT\D'_\],,ERR]
   925														LALL
   926						ERLOOP	ADR			;IF ERROR, LOOP TO ADR
   927					>
   928
   929	030623	265 00 0 00 030011 	START:	PGMINT				;INITIALIZE PROGRAM
   930	030624				STARTA:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST A                                                                      SEQ 0049

   931					SUBTTL	DADD - TEST A
   932														SALL
   933			041272		T=SIXBTZ<DADD TEST>
   934														LALL
   935					; **********************************************************************
   936					;*DADD - TEST A
   937					;*
   938					;*	0,# + 0,0 = 0,#		SIMPLE TESTS TO SEE IF DADD
   939					;*	#,0 + 0,0 = #,0		WORKS AT ALL.
   940					;*	#,# + 0,0 = #,#
   941					;*	0,0 + 0,# = 0,#
   942					;*	0,0 + #,0 = #,0
   943					;*	0,0 + #,# = #,#
   944					;*	0,0 + 0,0 = 0,0
   945					; **********************************************************************
   946
   947					; **********************************************************************
   948					; ----------  DADD (0,#) + (0,0) = (0,#)  ----------
   949					; **********************************************************************
   950
   951	030624	200 15 0 00 041300 	ATEST1:	MOVE	SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR APRINT
   952	030625	120 01 0 00 041274 		DMOVE	AC1,[EXP 0,NUM]		;INIT AUGEND TO (0,#)
   953	030626	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD (0,#)+(0,0)
   954						CHECKA	(ATEST1,A1,0,NUM)^
   955
   956	030627	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   957	030630	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
   958	030631	254 00 0 00 030635 		JRST	..0001		;NO - GO TO ERROR HANDLING
   959	030632	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   960	030633	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
   961	030634	254 00 0 00 030640 		JRST	..0002+1  	;YES - DONT DO ERROR HANDLING
   962									; EXCEPT FOR ERLOOP
   963
   964	030635	200 14 0 13 000001 	..0001:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   965	030636	200 13 0 13 041274 		MOVE	SCR1,[EXP 0,NUM](SCR1)	;GET CORRECT RESULT
   966	030637				..0002:	ERROR	(ATEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,APRINT)^SALL
   967	030637	036 14 0 00 041307 
   968	030640	035 00 0 00 030624 		ERLOOP	ATEST1			;IF ERROR, LOOP TO ATEST1
   969					^
   970					^
   971
   972					; **********************************************************************
   973					; ----------  DADD (#,0) + (0,0) = (#,0)  ----------
   974					; **********************************************************************
   975
   976	030641	200 15 0 00 041312 	ATEST2:	MOVE	SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR APRINT
   977	030642	120 01 0 00 041275 		DMOVE	AC1,[EXP NUM,0]		;INIT AUGEND TO (#,0)
   978	030643	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD (#,0)+(0,0)
   979						CHECKA	(ATEST2,A2,NUM,0)^
   980
   981	030644	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
   982	030645	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
   983	030646	254 00 0 00 030652 		JRST	..0003		;NO - GO TO ERROR HANDLING
   984	030647	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
   985	030650	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST A                                                                      SEQ 0050

   986	030651	254 00 0 00 030655 		JRST	..0004+1  	;YES - DONT DO ERROR HANDLING
   987									; EXCEPT FOR ERLOOP
   988
   989	030652	200 14 0 13 000001 	..0003:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
   990	030653	200 13 0 13 041275 		MOVE	SCR1,[EXP NUM,0](SCR1)	;GET CORRECT RESULT
   991	030654				..0004:	ERROR	(ATEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,APRINT)^SALL
   992	030654	036 14 0 00 041320 
   993	030655	035 00 0 00 030641 		ERLOOP	ATEST2			;IF ERROR, LOOP TO ATEST2
   994					^
   995					^
   996
   997					; **********************************************************************
   998					; ----------  DADD (#,#) + (0,0) = (#,#)  ----------
   999					; **********************************************************************
  1000
  1001	030656	200 15 0 00 041325 	ATEST3:	MOVE	SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR APRINT
  1002	030657	120 01 0 00 041323 		DMOVE	AC1,[EXP NUM,NUM]	;INIT AUGEND TO (#,#)
  1003	030660	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD (#,#)+(0,0)
  1004						CHECKA	(ATEST3,A3,NUM,NUM)^
  1005
  1006	030661	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1007	030662	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
  1008	030663	254 00 0 00 030667 		JRST	..0005		;NO - GO TO ERROR HANDLING
  1009	030664	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1010	030665	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
  1011	030666	254 00 0 00 030672 		JRST	..0006+1  	;YES - DONT DO ERROR HANDLING
  1012									; EXCEPT FOR ERLOOP
  1013
  1014	030667	200 14 0 13 000001 	..0005:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1015	030670	200 13 0 13 041323 		MOVE	SCR1,[EXP NUM,NUM](SCR1)	;GET CORRECT RESULT
  1016	030671				..0006:	ERROR	(ATEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,APRINT)^SALL
  1017	030671	036 14 0 00 041333 
  1018	030672	035 00 0 00 030656 		ERLOOP	ATEST3			;IF ERROR, LOOP TO ATEST3
  1019					^
  1020					^
  1021
  1022					; **********************************************************************
  1023					; ----------  DADD (0,0) + (0,#) = (0,#)  ----------
  1024					; **********************************************************************
  1025
  1026	030673	200 15 0 00 041336 	ATEST4:	MOVE	SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR APRINT
  1027	030674	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1028	030675	114 01 0 00 041274 		DADD	AC1,[EXP 0,NUM]		;ADD (0,0) + (0,#)
  1029						CHECKA	(ATEST4,A4,0,NUM)^
  1030
  1031	030676	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1032	030677	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  1033	030700	254 00 0 00 030704 		JRST	..0007		;NO - GO TO ERROR HANDLING
  1034	030701	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1035	030702	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
  1036	030703	254 00 0 00 030707 		JRST	..0010+1  	;YES - DONT DO ERROR HANDLING
  1037									; EXCEPT FOR ERLOOP
  1038
  1039	030704	200 14 0 13 000001 	..0007:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1040	030705	200 13 0 13 041274 		MOVE	SCR1,[EXP 0,NUM](SCR1)	;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2-2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST A                                                                      SEQ 0051

  1041	030706				..0010:	ERROR	(ATEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,APRINT)^SALL
  1042	030706	036 14 0 00 041344 
  1043	030707	035 00 0 00 030673 		ERLOOP	ATEST4			;IF ERROR, LOOP TO ATEST4
  1044					^
  1045					^
  1046
  1047					; **********************************************************************
  1048					; ----------  DADD (0,0) + (#,0) = (#,0)  ----------
  1049					; **********************************************************************
  1050
  1051	030710	200 15 0 00 041347 	ATEST5:	MOVE	SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR APRINT
  1052	030711	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1053	030712	114 01 0 00 041275 		DADD	AC1,[EXP NUM,0]		;ADD (0,0) + (#,0)
  1054						CHECKA	(ATEST5,A5,NUM,0)^
  1055
  1056	030713	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1057	030714	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
  1058	030715	254 00 0 00 030721 		JRST	..0011		;NO - GO TO ERROR HANDLING
  1059	030716	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1060	030717	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
  1061	030720	254 00 0 00 030724 		JRST	..0012+1  	;YES - DONT DO ERROR HANDLING
  1062									; EXCEPT FOR ERLOOP
  1063
  1064	030721	200 14 0 13 000001 	..0011:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1065	030722	200 13 0 13 041275 		MOVE	SCR1,[EXP NUM,0](SCR1)	;GET CORRECT RESULT
  1066	030723				..0012:	ERROR	(ATEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,APRINT)^SALL
  1067	030723	036 14 0 00 041355 
  1068	030724	035 00 0 00 030710 		ERLOOP	ATEST5			;IF ERROR, LOOP TO ATEST5
  1069					^
  1070					^
  1071
  1072					; **********************************************************************
  1073					; ----------  DADD (0,0) + (#,#) = (#,#)  ----------
  1074					; **********************************************************************
  1075
  1076	030725	200 15 0 00 041360 	ATEST6:	MOVE	SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR APRINT
  1077	030726	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1078	030727	114 01 0 00 041323 		DADD	AC1,[EXP NUM,NUM]	;ADD (0,0)+(#,#)
  1079						CHECKA	(ATEST6,A6,NUM,NUM)^
  1080
  1081	030730	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1082	030731	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
  1083	030732	254 00 0 00 030736 		JRST	..0013		;NO - GO TO ERROR HANDLING
  1084	030733	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1085	030734	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
  1086	030735	254 00 0 00 030741 		JRST	..0014+1  	;YES - DONT DO ERROR HANDLING
  1087									; EXCEPT FOR ERLOOP
  1088
  1089	030736	200 14 0 13 000001 	..0013:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1090	030737	200 13 0 13 041323 		MOVE	SCR1,[EXP NUM,NUM](SCR1)	;GET CORRECT RESULT
  1091	030740				..0014:	ERROR	(ATEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,APRINT)^SALL
  1092	030740	036 14 0 00 041366 
  1093	030741	035 00 0 00 030725 		ERLOOP	ATEST6			;IF ERROR, LOOP TO ATEST6
  1094					^
  1095					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 2-3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST A                                                                      SEQ 0052

  1096
  1097					; **********************************************************************
  1098					; ----------  DADD (0,0) + (0,0) = (0,0)  ----------
  1099					; **********************************************************************
  1100
  1101	030742	200 15 0 00 041371 	ATEST7:	MOVE	SCR3,[[EXP 0,0],,[EXP 0,0]] ;ADDR FOR APRINT
  1102	030743	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1103	030744	114 01 0 00 000001 		DADD	AC1,AC1			;ADD (0,0) + (0,0)
  1104						CHECKA	(ATEST7,A7,0,0)^
  1105
  1106	030745	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1107	030746	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  1108	030747	254 00 0 00 030753 		JRST	..0015		;NO - GO TO ERROR HANDLING
  1109	030750	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1110	030751	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
  1111	030752	254 00 0 00 030756 		JRST	..0016+1  	;YES - DONT DO ERROR HANDLING
  1112									; EXCEPT FOR ERLOOP
  1113
  1114	030753	200 14 0 13 000001 	..0015:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1115	030754	200 13 0 13 041276 		MOVE	SCR1,[EXP 0,0](SCR1)	;GET CORRECT RESULT
  1116	030755				..0016:	ERROR	(ATEST7,14,SCR1,SCR2,,TEST A7 - RESULT IS INCORRECT,APRINT)^SALL
  1117	030755	036 14 0 00 041377 
  1118	030756	035 00 0 00 030742 		ERLOOP	ATEST7			;IF ERROR, LOOP TO ATEST7
  1119					^
  1120					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0053

  1121					SUBTTL	DADD - TEST B
  1122
  1123					; **********************************************************************
  1124					;DADD - TEST B
  1125					;*
  1126					;*	FLOATING 1 + 0 = FLOATING 1	THESE TESTS ARE DONE FOR A 1 OR
  1127					;*	0 + FLOATING 1 = FLOATING 1	A 0 IN BITS 0,34,36,70 OF THE
  1128					;*	FLOATING 0 + 0 = FLOATING 0	DOUBLEWORD ADDEND OR AUGEND.
  1129					;*	0 + FLOATING 0 = FLOATING 0	THIS WILL TEST THE WORD BOUND- 
  1130					;*					ARY INTEGRITY OF THE DADD
  1131					;*					INSTRUCTION.
  1132					; **********************************************************************
  1133
  1134					; **********************************************************************
  1135					;*	REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST
  1136					;*	OF TEST CASES.  THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE
  1137					;*	FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT
  1138					;*	A 0 ACROSS IN BITS 0,34,36,70.  THE RESULT SHOULD BE ACS WITH
  1139					;*	CONTENTS EQUAL TO THE FLOATING 1/0.
  1140					; **********************************************************************
  1141
  1142			000000			REP=0
  1143			000000			REPP=0
  1144
  1145						REPEAT	^D8,<
  1146					;   ************************************************
  1147					
  1148						REP=REP+1
  1149						LOC=.				;ERROR LOOP RETURN ADDRESS
  1150						ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1151						ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1152						IFE	REPP-1,<ALEFT=^-ALEFT
  1153								ARIGHT=^-ARIGHT>
  1154					
  1155						MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1156						DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1157						DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1158						CHECKA	(LOC,B1,ALEFT,ARIGHT)
  1159					
  1160						LOC=.				;ERROR LOOP RETURN ADDRESS
  1161						SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1162						MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1163						DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1164						CHECKA	(LOC,B2,ALEFT,ARIGHT)
  1165					
  1166						IFE	REP-4,<REPP=1
  1167							       REP=0>
  1168					;   ************************************************
  1169					>
  1170
  1171					;   ************************************************
  1172
  1173			000001			REP=REP+1
  1174			030757			LOC=.				;ERROR LOOP RETURN ADDRESS
  1175			000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0054

  1176			000001			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1177						IFE	REPP-1,<ALEFT=^-ALEFT
  1178								ARIGHT=^-ARIGHT>
  1179
  1180	030757	200 15 0 00 041404 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1181	030760	120 01 0 00 041402 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1182	030761	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1183						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1184
  1185	030762	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1186	030763	312 01 0 00 041274 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1187	030764	254 00 0 00 030770 		JRST	..0017		;NO - GO TO ERROR HANDLING
  1188	030765	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1189	030766	316 02 0 00 041403 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1190	030767	254 00 0 00 030773 		JRST	..0020+1  	;YES - DONT DO ERROR HANDLING
  1191									; EXCEPT FOR ERLOOP
  1192
  1193	030770	200 14 0 13 000001 	..0017:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1194	030771	200 13 0 13 041402 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1195	030772				..0020:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1196	030772	036 14 0 00 041412 
  1197	030773	035 00 0 00 030757 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1198					^
  1199					^
  1200
  1201			030774			LOC=.				;ERROR LOOP RETURN ADDRESS
  1202	030774	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1203	030775	200 15 0 00 041415 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1204	030776	114 01 0 00 041402 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1205						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1206
  1207	030777	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1208	031000	312 01 0 00 041274 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1209	031001	254 00 0 00 031005 		JRST	..0021		;NO - GO TO ERROR HANDLING
  1210	031002	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1211	031003	316 02 0 00 041403 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1212	031004	254 00 0 00 031010 		JRST	..0022+1  	;YES - DONT DO ERROR HANDLING
  1213									; EXCEPT FOR ERLOOP
  1214
  1215	031005	200 14 0 13 000001 	..0021:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1216	031006	200 13 0 13 041402 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1217	031007				..0022:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1218	031007	036 14 0 00 041423 
  1219	031010	035 00 0 00 030774 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1220					^
  1221					^
  1222
  1223						IFE	REP-4,<REPP=1
  1224							       REP=0>
  1225					;   ************************************************
  1226
  1227
  1228					;   ************************************************
  1229
  1230			000002			REP=REP+1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0055

  1231			031011			LOC=.				;ERROR LOOP RETURN ADDRESS
  1232			000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1233		200000	000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1234						IFE	REPP-1,<ALEFT=^-ALEFT
  1235								ARIGHT=^-ARIGHT>
  1236
  1237	031011	200 15 0 00 041430 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1238	031012	120 01 0 00 041426 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1239	031013	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1240						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1241
  1242	031014	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1243	031015	312 01 0 00 041274 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1244	031016	254 00 0 00 031022 		JRST	..0023		;NO - GO TO ERROR HANDLING
  1245	031017	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1246	031020	316 02 0 00 041427 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1247	031021	254 00 0 00 031025 		JRST	..0024+1  	;YES - DONT DO ERROR HANDLING
  1248									; EXCEPT FOR ERLOOP
  1249
  1250	031022	200 14 0 13 000001 	..0023:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1251	031023	200 13 0 13 041426 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1252	031024				..0024:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1253	031024	036 14 0 00 041412 
  1254	031025	035 00 0 00 031011 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1255					^
  1256					^
  1257
  1258			031026			LOC=.				;ERROR LOOP RETURN ADDRESS
  1259	031026	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1260	031027	200 15 0 00 041431 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1261	031030	114 01 0 00 041426 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1262						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1263
  1264	031031	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1265	031032	312 01 0 00 041274 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1266	031033	254 00 0 00 031037 		JRST	..0025		;NO - GO TO ERROR HANDLING
  1267	031034	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1268	031035	316 02 0 00 041427 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1269	031036	254 00 0 00 031042 		JRST	..0026+1  	;YES - DONT DO ERROR HANDLING
  1270									; EXCEPT FOR ERLOOP
  1271
  1272	031037	200 14 0 13 000001 	..0025:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1273	031040	200 13 0 13 041426 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1274	031041				..0026:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1275	031041	036 14 0 00 041423 
  1276	031042	035 00 0 00 031026 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1277					^
  1278					^
  1279
  1280						IFE	REP-4,<REPP=1
  1281							       REP=0>
  1282					;   ************************************************
  1283
  1284
  1285					;   ************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0056

  1286
  1287			000003			REP=REP+1
  1288			031043			LOC=.				;ERROR LOOP RETURN ADDRESS
  1289			000001			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1290			000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1291						IFE	REPP-1,<ALEFT=^-ALEFT
  1292								ARIGHT=^-ARIGHT>
  1293
  1294	031043	200 15 0 00 041434 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1295	031044	120 01 0 00 041432 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1296	031045	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1297						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1298
  1299	031046	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1300	031047	312 01 0 00 041403 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1301	031050	254 00 0 00 031054 		JRST	..0027		;NO - GO TO ERROR HANDLING
  1302	031051	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1303	031052	316 02 0 00 041274 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1304	031053	254 00 0 00 031057 		JRST	..0030+1  	;YES - DONT DO ERROR HANDLING
  1305									; EXCEPT FOR ERLOOP
  1306
  1307	031054	200 14 0 13 000001 	..0027:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1308	031055	200 13 0 13 041432 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1309	031056				..0030:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1310	031056	036 14 0 00 041412 
  1311	031057	035 00 0 00 031043 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1312					^
  1313					^
  1314
  1315			031060			LOC=.				;ERROR LOOP RETURN ADDRESS
  1316	031060	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1317	031061	200 15 0 00 041435 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1318	031062	114 01 0 00 041432 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1319						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1320
  1321	031063	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1322	031064	312 01 0 00 041403 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1323	031065	254 00 0 00 031071 		JRST	..0031		;NO - GO TO ERROR HANDLING
  1324	031066	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1325	031067	316 02 0 00 041274 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1326	031070	254 00 0 00 031074 		JRST	..0032+1  	;YES - DONT DO ERROR HANDLING
  1327									; EXCEPT FOR ERLOOP
  1328
  1329	031071	200 14 0 13 000001 	..0031:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1330	031072	200 13 0 13 041432 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1331	031073				..0032:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1332	031073	036 14 0 00 041423 
  1333	031074	035 00 0 00 031060 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1334					^
  1335					^
  1336
  1337						IFE	REP-4,<REPP=1
  1338							       REP=0>
  1339					;   ************************************************
  1340
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-4
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0057

  1341
  1342					;   ************************************************
  1343
  1344			000004			REP=REP+1
  1345			031075			LOC=.				;ERROR LOOP RETURN ADDRESS
  1346		200000	000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1347			000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1348						IFE	REPP-1,<ALEFT=^-ALEFT
  1349								ARIGHT=^-ARIGHT>
  1350
  1351	031075	200 15 0 00 041440 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1352	031076	120 01 0 00 041436 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1353	031077	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1354						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1355
  1356	031100	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1357	031101	312 01 0 00 041427 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1358	031102	254 00 0 00 031106 		JRST	..0033		;NO - GO TO ERROR HANDLING
  1359	031103	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1360	031104	316 02 0 00 041274 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1361	031105	254 00 0 00 031111 		JRST	..0034+1  	;YES - DONT DO ERROR HANDLING
  1362									; EXCEPT FOR ERLOOP
  1363
  1364	031106	200 14 0 13 000001 	..0033:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1365	031107	200 13 0 13 041436 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1366	031110				..0034:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1367	031110	036 14 0 00 041412 
  1368	031111	035 00 0 00 031075 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1369					^
  1370					^
  1371
  1372			031112			LOC=.				;ERROR LOOP RETURN ADDRESS
  1373	031112	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1374	031113	200 15 0 00 041441 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1375	031114	114 01 0 00 041436 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1376						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1377
  1378	031115	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1379	031116	312 01 0 00 041427 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1380	031117	254 00 0 00 031123 		JRST	..0035		;NO - GO TO ERROR HANDLING
  1381	031120	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1382	031121	316 02 0 00 041274 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1383	031122	254 00 0 00 031126 		JRST	..0036+1  	;YES - DONT DO ERROR HANDLING
  1384									; EXCEPT FOR ERLOOP
  1385
  1386	031123	200 14 0 13 000001 	..0035:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1387	031124	200 13 0 13 041436 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1388	031125				..0036:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1389	031125	036 14 0 00 041423 
  1390	031126	035 00 0 00 031112 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1391					^
  1392					^
  1393
  1394			000001			IFE	REP-4,<REPP=1
  1395			000000				       REP=0>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-5
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0058

  1396					;   ************************************************
  1397
  1398
  1399					;   ************************************************
  1400
  1401			000001			REP=REP+1
  1402			031127			LOC=.				;ERROR LOOP RETURN ADDRESS
  1403			000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1404			000001			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1405		777777	777777			IFE	REPP-1,<ALEFT=^-ALEFT
  1406		777777	777776					ARIGHT=^-ARIGHT>
  1407
  1408	031127	200 15 0 00 041444 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1409	031130	120 01 0 00 041442 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1410	031131	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1411						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1412
  1413	031132	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1414	031133	312 01 0 00 041442 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1415	031134	254 00 0 00 031140 		JRST	..0037		;NO - GO TO ERROR HANDLING
  1416	031135	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1417	031136	316 02 0 00 041443 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1418	031137	254 00 0 00 031143 		JRST	..0040+1  	;YES - DONT DO ERROR HANDLING
  1419									; EXCEPT FOR ERLOOP
  1420
  1421	031140	200 14 0 13 000001 	..0037:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1422	031141	200 13 0 13 041442 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1423	031142				..0040:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1424	031142	036 14 0 00 041412 
  1425	031143	035 00 0 00 031127 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1426					^
  1427					^
  1428
  1429			031144			LOC=.				;ERROR LOOP RETURN ADDRESS
  1430	031144	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1431	031145	200 15 0 00 041445 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1432	031146	114 01 0 00 041442 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1433						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1434
  1435	031147	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1436	031150	312 01 0 00 041442 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1437	031151	254 00 0 00 031155 		JRST	..0041		;NO - GO TO ERROR HANDLING
  1438	031152	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1439	031153	316 02 0 00 041443 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1440	031154	254 00 0 00 031160 		JRST	..0042+1  	;YES - DONT DO ERROR HANDLING
  1441									; EXCEPT FOR ERLOOP
  1442
  1443	031155	200 14 0 13 000001 	..0041:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1444	031156	200 13 0 13 041442 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1445	031157				..0042:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1446	031157	036 14 0 00 041423 
  1447	031160	035 00 0 00 031144 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1448					^
  1449					^
  1450
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-6
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0059

  1451						IFE	REP-4,<REPP=1
  1452							       REP=0>
  1453					;   ************************************************
  1454
  1455
  1456					;   ************************************************
  1457
  1458			000002			REP=REP+1
  1459			031161			LOC=.				;ERROR LOOP RETURN ADDRESS
  1460			000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1461		200000	000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1462		777777	777777			IFE	REPP-1,<ALEFT=^-ALEFT
  1463		577777	777777					ARIGHT=^-ARIGHT>
  1464
  1465	031161	200 15 0 00 041450 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1466	031162	120 01 0 00 041446 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1467	031163	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1468						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1469
  1470	031164	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1471	031165	312 01 0 00 041442 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1472	031166	254 00 0 00 031172 		JRST	..0043		;NO - GO TO ERROR HANDLING
  1473	031167	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1474	031170	316 02 0 00 041447 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1475	031171	254 00 0 00 031175 		JRST	..0044+1  	;YES - DONT DO ERROR HANDLING
  1476									; EXCEPT FOR ERLOOP
  1477
  1478	031172	200 14 0 13 000001 	..0043:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1479	031173	200 13 0 13 041446 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1480	031174				..0044:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1481	031174	036 14 0 00 041412 
  1482	031175	035 00 0 00 031161 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1483					^
  1484					^
  1485
  1486			031176			LOC=.				;ERROR LOOP RETURN ADDRESS
  1487	031176	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1488	031177	200 15 0 00 041451 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1489	031200	114 01 0 00 041446 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1490						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1491
  1492	031201	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1493	031202	312 01 0 00 041442 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1494	031203	254 00 0 00 031207 		JRST	..0045		;NO - GO TO ERROR HANDLING
  1495	031204	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1496	031205	316 02 0 00 041447 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1497	031206	254 00 0 00 031212 		JRST	..0046+1  	;YES - DONT DO ERROR HANDLING
  1498									; EXCEPT FOR ERLOOP
  1499
  1500	031207	200 14 0 13 000001 	..0045:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1501	031210	200 13 0 13 041446 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1502	031211				..0046:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1503	031211	036 14 0 00 041423 
  1504	031212	035 00 0 00 031176 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1505					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-7
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0060

  1506					^
  1507
  1508						IFE	REP-4,<REPP=1
  1509							       REP=0>
  1510					;   ************************************************
  1511
  1512
  1513					;   ************************************************
  1514
  1515			000003			REP=REP+1
  1516			031213			LOC=.				;ERROR LOOP RETURN ADDRESS
  1517			000001			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1518			000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1519		777777	777776			IFE	REPP-1,<ALEFT=^-ALEFT
  1520		777777	777777					ARIGHT=^-ARIGHT>
  1521
  1522	031213	200 15 0 00 041454 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1523	031214	120 01 0 00 041452 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1524	031215	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1525						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1526
  1527	031216	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1528	031217	312 01 0 00 041443 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1529	031220	254 00 0 00 031224 		JRST	..0047		;NO - GO TO ERROR HANDLING
  1530	031221	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1531	031222	316 02 0 00 041442 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1532	031223	254 00 0 00 031227 		JRST	..0050+1  	;YES - DONT DO ERROR HANDLING
  1533									; EXCEPT FOR ERLOOP
  1534
  1535	031224	200 14 0 13 000001 	..0047:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1536	031225	200 13 0 13 041452 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1537	031226				..0050:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1538	031226	036 14 0 00 041412 
  1539	031227	035 00 0 00 031213 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1540					^
  1541					^
  1542
  1543			031230			LOC=.				;ERROR LOOP RETURN ADDRESS
  1544	031230	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1545	031231	200 15 0 00 041455 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1546	031232	114 01 0 00 041452 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1547						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1548
  1549	031233	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1550	031234	312 01 0 00 041443 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1551	031235	254 00 0 00 031241 		JRST	..0051		;NO - GO TO ERROR HANDLING
  1552	031236	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1553	031237	316 02 0 00 041442 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1554	031240	254 00 0 00 031244 		JRST	..0052+1  	;YES - DONT DO ERROR HANDLING
  1555									; EXCEPT FOR ERLOOP
  1556
  1557	031241	200 14 0 13 000001 	..0051:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1558	031242	200 13 0 13 041452 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1559	031243				..0052:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1560	031243	036 14 0 00 041423 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-8
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0061

  1561	031244	035 00 0 00 031230 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1562					^
  1563					^
  1564
  1565						IFE	REP-4,<REPP=1
  1566							       REP=0>
  1567					;   ************************************************
  1568
  1569
  1570					;   ************************************************
  1571
  1572			000004			REP=REP+1
  1573			031245			LOC=.				;ERROR LOOP RETURN ADDRESS
  1574		200000	000000			ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
  1575			000000			ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
  1576		577777	777777			IFE	REPP-1,<ALEFT=^-ALEFT
  1577		777777	777777					ARIGHT=^-ARIGHT>
  1578
  1579	031245	200 15 0 00 041460 		MOVE	SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
  1580	031246	120 01 0 00 041456 		DMOVE	AC1,[EXP ALEFT,ARIGHT]	;INIT AUGEND TO FLOATING 1/0
  1581	031247	114 01 0 00 041276 		DADD	AC1,[EXP 0,0]		;ADD FLOATING 1/0 + (0,0)
  1582						CHECKA	(LOC,B1,ALEFT,ARIGHT)^
  1583
  1584	031250	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1585	031251	312 01 0 00 041447 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1586	031252	254 00 0 00 031256 		JRST	..0053		;NO - GO TO ERROR HANDLING
  1587	031253	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1588	031254	316 02 0 00 041442 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1589	031255	254 00 0 00 031261 		JRST	..0054+1  	;YES - DONT DO ERROR HANDLING
  1590									; EXCEPT FOR ERLOOP
  1591
  1592	031256	200 14 0 13 000001 	..0053:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1593	031257	200 13 0 13 041456 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
  1594	031260				..0054:	ERROR	(LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
  1595	031260	036 14 0 00 041412 
  1596	031261	035 00 0 00 031245 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1597					^
  1598					^
  1599
  1600			031262			LOC=.				;ERROR LOOP RETURN ADDRESS
  1601	031262	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT AUGEND TO (0,0)
  1602	031263	200 15 0 00 041461 		MOVE	SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
  1603	031264	114 01 0 00 041456 		DADD	AC1,[EXP ALEFT,ARIGHT]	;ADD (0,0) + FLOATING 1/0
  1604						CHECKA	(LOC,B2,ALEFT,ARIGHT)^
  1605
  1606	031265	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1607	031266	312 01 0 00 041447 		CAME	AC1,[ALEFT]	;IS LEFT HALF OF RESULT CORRECT?
  1608	031267	254 00 0 00 031273 		JRST	..0055		;NO - GO TO ERROR HANDLING
  1609	031270	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1610	031271	316 02 0 00 041442 		CAMN	AC1+1,[ARIGHT]	;IS RIGHT HALF CORRECT?
  1611	031272	254 00 0 00 031276 		JRST	..0056+1  	;YES - DONT DO ERROR HANDLING
  1612									; EXCEPT FOR ERLOOP
  1613
  1614	031273	200 14 0 13 000001 	..0055:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1615	031274	200 13 0 13 041456 		MOVE	SCR1,[EXP ALEFT,ARIGHT](SCR1)	;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 3-9
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST B                                                                      SEQ 0062

  1616	031275				..0056:	ERROR	(LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
  1617	031275	036 14 0 00 041423 
  1618	031276	035 00 0 00 031262 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1619					^
  1620					^
  1621
  1622			000001			IFE	REP-4,<REPP=1
  1623			000000				       REP=0>
  1624					;   ************************************************
  1625
  1626	031277				AENDB:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 4
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST C                                                                      SEQ 0063

  1627					SUBTTL	DADD - TEST C
  1628
  1629					; **********************************************************************
  1630					;DADD - TEST C
  1631					;*
  1632					;*	FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT
  1633					;*	A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST
  1634					;*	SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS
  1635					;*	TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY
  1636					;*	PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT.
  1637					; **********************************************************************
  1638
  1639					; **********************************************************************
  1640					;DADD FLOATING 1 + FLOATING 1 = FLOATING 1 * 2
  1641					; **********************************************************************
  1642
  1643	031277	400 11 0 00 000000 		SETZ	CNT,			;COUNT FROM 0 TO 68
  1644	031300	120 01 0 00 041402 		DMOVE	AC1,[EXP 0,1]		;SET UP OPERANDS - AUGEND,ADDEND - EACH
  1645										;  WILL BE THE DOUBLEWORD - AC1,AC1+1
  1646	031301	137 11 0 00 031333 	ALOOP:	DPB	CNT,ASHIFT		;SET UP ASHC TO CALCULATE OPERANDS
  1647	031302	256 00 0 00 031333 		XCT	ASHIFT			;DO THE SHIFT - RESULT IS A DOUBLEWORD
  1648										;  FLOATING 1 IN AC1,AC1+1
  1649	031303	124 01 0 00 031327 		DMOVEM	AC1,ADATA		;SAVE THE ARGUMENTS FOR ADDL PRINT
  1650	031304	200 15 0 00 041462 		MOVE	SCR3,[ADATA,,ADATA]	;  ROUTINE & PUT INTO SCR3
  1651	031305	244 01 0 00 000001 		ASHC	AC1,1			;CALCULATED EXPECTED RESULT
  1652	031306	124 01 0 00 031331 		DMOVEM	AC1,TEMP		;SAVE RESULTS
  1653	031307	120 01 0 00 031327 		DMOVE	AC1,ADATA		;GET BACK ORIGINAL AUGEND
  1654
  1655	031310	114 01 0 00 000001 		DADD	AC1,AC1			;ADD FLOATING 1 + FLOATING 1
  1656
  1657	031311	400 13 0 00 000000 		SETZ	SCR1,			;POINTER TO WHICH WORD IN ERROR
  1658	031312	312 01 0 00 031331 		CAME	AC1,TEMP		;RESULT - AC1 SHOULD = TEMP
  1659	031313	254 00 0 00 031317 		JRST	AERR			;NOT CORRECT - DO ERROR HANDLING
  1660	031314	201 13 0 00 000001 		MOVEI	SCR1,1			;POINTER ADJUSTED TO NEXT WORD
  1661	031315	316 02 0 00 031332 		CAMN	AC1+1,TEMP+1		;RESULT - AC1+1 SHOULD = TEMP+1
  1662	031316	254 00 0 00 031322 		JRST 	AERRC+1			;NO ERRORS - DO ERLOOP ANYWAY
  1663
  1664	031317	200 14 0 13 031331 	AERR:	MOVE	SCR2,TEMP(SCR1)		;GET CORRECT DATA
  1665	031320	200 13 0 13 000001 		MOVE	SCR1,AC1(SCR1)		;GET ACTUAL DATA
  1666	031321				AERRC:	ERROR	(LOC,14,SCR2,SCR1,,TEST C - RESULT INCORRECT,APRINT)^SALL
  1667	031321	036 14 0 00 041470 
  1668	031322	035 00 0 00 031262 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1669					^
  1670
  1671	031323	350 00 0 00 000011 		AOS	CNT			;INCREMENT SHIFT COUNT
  1672	031324	302 11 0 00 000105 		CAIE	CNT,^D69		;ARE WE DONE WITH 69 ITERATIONS?
  1673	031325	254 00 0 00 031301 		JRST	ALOOP			;  NO - REPEAT THIS TEST
  1674	031326	254 00 0 00 031335 		JRST	ADADDI+1		;  YES - GO ON TO NEXT TEST
  1675
  1676	031327				ADATA:	BLOCK 2				;DADD OPERANDS
  1677	031331				TEMP:	BLOCK	2			;TEMPORARY STORAGE FOR RESULT
  1678	031333	43 10 0 00 031334 	ASHIFT:	POINT	8,ADADDI,0		;FOR CALCULATING OPERANDS
  1679	031334	244 01 0 00 000000 	ADADDI:	ASHC	AC1,0			;CALCULATE DOUBLEWORD FLOATING 1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 5
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST D                                                                      SEQ 0064

  1680					SUBTTL	DADD - TEST D
  1681
  1682					; **********************************************************************
  1683					;*DADD - TEST D
  1684					;*
  1685					;*	0,-1 + 0,1 = 1,0		ADDITIONAL TEST TO SEE THAT A
  1686					;*	0,1 + 0,-1 = 1,0		CARRY IS PROPAGATED ACROSS WORD
  1687					;*					BOUNDARIES.
  1688					; **********************************************************************
  1689
  1690					; **********************************************************************
  1691					; ----------  DADD (0,-1) + (0,1) = (1,0)  ----------
  1692					; **********************************************************************
  1693
  1694	031335	200 15 0 00 041475 	ATSTD1:	MOVE	SCR3,[[EXP 0,-1],,[EXP 0,1]] ;ADDR FOR APRINT
  1695	031336	120 01 0 00 041473 		DMOVE	AC1,[EXP 0,-1]		;INIT AUGEND TO (0,-1)
  1696	031337	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD (0,-1) + (0,1)
  1697						CHECKA	(ATSTD1,D1,1,0)^
  1698
  1699	031340	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1700	031341	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  1701	031342	254 00 0 00 031346 		JRST	..0057		;NO - GO TO ERROR HANDLING
  1702	031343	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1703	031344	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
  1704	031345	254 00 0 00 031351 		JRST	..0060+1  	;YES - DONT DO ERROR HANDLING
  1705									; EXCEPT FOR ERLOOP
  1706
  1707	031346	200 14 0 13 000001 	..0057:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1708	031347	200 13 0 13 041432 		MOVE	SCR1,[EXP 1,0](SCR1)	;GET CORRECT RESULT
  1709	031350				..0060:	ERROR	(ATSTD1,14,SCR1,SCR2,,TEST D1 - RESULT IS INCORRECT,APRINT)^SALL
  1710	031350	036 14 0 00 041503 
  1711	031351	035 00 0 00 031335 		ERLOOP	ATSTD1			;IF ERROR, LOOP TO ATSTD1
  1712					^
  1713					^
  1714
  1715					; **********************************************************************
  1716					; ----------  DADD (0,1) + (0,-1) = (1,0)  ----------
  1717					; **********************************************************************
  1718
  1719	031352	200 15 0 00 041506 	ATSTD2:	MOVE	SCR3,[[EXP 0,1],,[EXP 0,-1]] ;ADDR FOR APRINT
  1720	031353	120 01 0 00 041402 		DMOVE	AC1,[EXP 0,1]		;INIT AUGEND TO (0,1)
  1721	031354	114 01 0 00 041473 		DADD	AC1,[EXP 0,-1]		;ADD (0,1) + (0,-1)
  1722						CHECKA	(ATSTD2,D2,1,0)^
  1723
  1724	031355	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1725	031356	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  1726	031357	254 00 0 00 031363 		JRST	..0061		;NO - GO TO ERROR HANDLING
  1727	031360	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1728	031361	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
  1729	031362	254 00 0 00 031366 		JRST	..0062+1  	;YES - DONT DO ERROR HANDLING
  1730									; EXCEPT FOR ERLOOP
  1731
  1732	031363	200 14 0 13 000001 	..0061:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1733	031364	200 13 0 13 041432 		MOVE	SCR1,[EXP 1,0](SCR1)	;GET CORRECT RESULT
  1734	031365				..0062:	ERROR	(ATSTD2,14,SCR1,SCR2,,TEST D2 - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 5-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST D                                                                      SEQ 0065

  1735	031365	036 14 0 00 041514 
  1736	031366	035 00 0 00 031352 		ERLOOP	ATSTD2			;IF ERROR, LOOP TO ATSTD2
  1737					^
  1738					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0066

  1739					SUBTTL	DADD - TEST E
  1740
  1741					; **********************************************************************
  1742					;*DADD - TEST E
  1743					;*
  1744					;*	FLOATING 0 + 1 = 11111000..	
  1745					;*	1 + FLOATING 0 = 11111000..	
  1746					; **********************************************************************
  1747
  1748					; **********************************************************************
  1749					;*	THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED
  1750					;*	  DOWN A WORD.   A 1 IS ADDED TO A  FLOATING 0  CAUSING THE
  1751					;*	  CARRY TO RIPPLE DOWN THE WORD.  THE RESULT IS VERIFIED AS
  1752					;*	  1111..110000....  THE FLOATING 0 IS LOCATED IN BITS 34,36,
  1753					;*	  71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE
  1754					;*	  NUMBERS.  CARRY FLAGS ARE VERIFIED IN ADDITION.
  1755					; **********************************************************************
  1756
  1757			031612			CNUM=ACONE-4
  1758
  1759						REPEAT	6,<
  1760					;   ************************************************
  1761					
  1762						LOC=.
  1763						CNUM=CNUM+4
  1764						DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1765						JFCL	17,.+1			;CLEAR PC FLAGS
  1766						HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1767						HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1768						DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1769						PCSAVE
  1770						CHECKB	(LOC,E,CNUM+2)
  1771						TFLAG	([0],E)
  1772					;   ************************************************
  1773					>
  1774
  1775					;   ************************************************
  1776
  1777			031367			LOC=.
  1778			031616			CNUM=CNUM+4
  1779	031367	120 01 0 00 031616 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1780	031370	255 17 0 00 031371 		JFCL	17,.+1			;CLEAR PC FLAGS
  1781	031371	505 15 0 00 031616 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1782	031372	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1783	031373	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1784						PCSAVE^
  1785	031374	264 00 0 00 031375 		JSR	.+1		;STORE PC
  1786			031375		FLAGL=.				;LOCATION OF PC
  1787	031375	000000	000000			0			;PC
  1788					^
  1789						CHECKB	(LOC,E,CNUM+2)^
  1790
  1791	031376	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1792	031377	312 01 0 00 031620 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  1793	031400	254 00 0 00 031404 		JRST	..0063		;NO - GO TO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0067

  1794	031401	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1795	031402	316 02 0 00 031621 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  1796	031403	254 00 0 00 031407 		JRST	..0064+1  	;YES - DONT DO ERROR HANDLING
  1797									;	EXCEPT FOR ERLOOP
  1798
  1799	031404	200 14 0 13 000001 	..0063:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1800	031405	200 13 0 13 031620 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  1801	031406				..0064:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
  1802	031406	036 14 0 00 041524 
  1803	031407	035 00 0 00 031367 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1804					^
  1805					^
  1806						TFLAG	([0],E)^
  1807
  1808	031410	200 13 0 00 031375 		MOVE	SCR1,FLAGL	;GET FLAGS
  1809	031411	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  1810	031412	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  1811	031413	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  1812	031414	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  1813	031415	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  1814						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  1815	031416	036 13 0 00 041536 
  1816	031417	035 00 0 00 031367 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1817					^
  1818					^
  1819					;   ************************************************
  1820
  1821
  1822					;   ************************************************
  1823
  1824			031420			LOC=.
  1825			031622			CNUM=CNUM+4
  1826	031420	120 01 0 00 031622 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1827	031421	255 17 0 00 031422 		JFCL	17,.+1			;CLEAR PC FLAGS
  1828	031422	505 15 0 00 031622 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1829	031423	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1830	031424	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1831						PCSAVE^
  1832	031425	264 00 0 00 031426 		JSR	.+1		;STORE PC
  1833			031426		FLAGL=.				;LOCATION OF PC
  1834	031426	000000	000000			0			;PC
  1835					^
  1836						CHECKB	(LOC,E,CNUM+2)^
  1837
  1838	031427	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1839	031430	312 01 0 00 031624 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  1840	031431	254 00 0 00 031435 		JRST	..0065		;NO - GO TO ERROR HANDLING
  1841	031432	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1842	031433	316 02 0 00 031625 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  1843	031434	254 00 0 00 031440 		JRST	..0066+1  	;YES - DONT DO ERROR HANDLING
  1844									;	EXCEPT FOR ERLOOP
  1845
  1846	031435	200 14 0 13 000001 	..0065:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1847	031436	200 13 0 13 031624 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  1848	031437				..0066:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6-2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0068

  1849	031437	036 14 0 00 041524 
  1850	031440	035 00 0 00 031420 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1851					^
  1852					^
  1853						TFLAG	([0],E)^
  1854
  1855	031441	200 13 0 00 031426 		MOVE	SCR1,FLAGL	;GET FLAGS
  1856	031442	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  1857	031443	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  1858	031444	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  1859	031445	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  1860	031446	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  1861						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  1862	031447	036 13 0 00 041541 
  1863	031450	035 00 0 00 031420 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1864					^
  1865					^
  1866					;   ************************************************
  1867
  1868
  1869					;   ************************************************
  1870
  1871			031451			LOC=.
  1872			031626			CNUM=CNUM+4
  1873	031451	120 01 0 00 031626 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1874	031452	255 17 0 00 031453 		JFCL	17,.+1			;CLEAR PC FLAGS
  1875	031453	505 15 0 00 031626 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1876	031454	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1877	031455	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1878						PCSAVE^
  1879	031456	264 00 0 00 031457 		JSR	.+1		;STORE PC
  1880			031457		FLAGL=.				;LOCATION OF PC
  1881	031457	000000	000000			0			;PC
  1882					^
  1883						CHECKB	(LOC,E,CNUM+2)^
  1884
  1885	031460	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1886	031461	312 01 0 00 031630 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  1887	031462	254 00 0 00 031466 		JRST	..0067		;NO - GO TO ERROR HANDLING
  1888	031463	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1889	031464	316 02 0 00 031631 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  1890	031465	254 00 0 00 031471 		JRST	..0070+1  	;YES - DONT DO ERROR HANDLING
  1891									;	EXCEPT FOR ERLOOP
  1892
  1893	031466	200 14 0 13 000001 	..0067:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1894	031467	200 13 0 13 031630 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  1895	031470				..0070:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
  1896	031470	036 14 0 00 041524 
  1897	031471	035 00 0 00 031451 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1898					^
  1899					^
  1900						TFLAG	([0],E)^
  1901
  1902	031472	200 13 0 00 031457 		MOVE	SCR1,FLAGL	;GET FLAGS
  1903	031473	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6-3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0069

  1904	031474	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  1905	031475	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  1906	031476	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  1907	031477	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  1908						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  1909	031500	036 13 0 00 041544 
  1910	031501	035 00 0 00 031451 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1911					^
  1912					^
  1913					;   ************************************************
  1914
  1915
  1916					;   ************************************************
  1917
  1918			031502			LOC=.
  1919			031632			CNUM=CNUM+4
  1920	031502	120 01 0 00 031632 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1921	031503	255 17 0 00 031504 		JFCL	17,.+1			;CLEAR PC FLAGS
  1922	031504	505 15 0 00 031632 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1923	031505	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1924	031506	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1925						PCSAVE^
  1926	031507	264 00 0 00 031510 		JSR	.+1		;STORE PC
  1927			031510		FLAGL=.				;LOCATION OF PC
  1928	031510	000000	000000			0			;PC
  1929					^
  1930						CHECKB	(LOC,E,CNUM+2)^
  1931
  1932	031511	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1933	031512	312 01 0 00 031634 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  1934	031513	254 00 0 00 031517 		JRST	..0071		;NO - GO TO ERROR HANDLING
  1935	031514	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1936	031515	316 02 0 00 031635 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  1937	031516	254 00 0 00 031522 		JRST	..0072+1  	;YES - DONT DO ERROR HANDLING
  1938									;	EXCEPT FOR ERLOOP
  1939
  1940	031517	200 14 0 13 000001 	..0071:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1941	031520	200 13 0 13 031634 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  1942	031521				..0072:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
  1943	031521	036 14 0 00 041524 
  1944	031522	035 00 0 00 031502 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1945					^
  1946					^
  1947						TFLAG	([0],E)^
  1948
  1949	031523	200 13 0 00 031510 		MOVE	SCR1,FLAGL	;GET FLAGS
  1950	031524	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  1951	031525	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  1952	031526	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  1953	031527	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  1954	031530	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  1955						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  1956	031531	036 13 0 00 041547 
  1957	031532	035 00 0 00 031502 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1958					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6-4
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0070

  1959					^
  1960					;   ************************************************
  1961
  1962
  1963					;   ************************************************
  1964
  1965			031533			LOC=.
  1966			031636			CNUM=CNUM+4
  1967	031533	120 01 0 00 031636 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  1968	031534	255 17 0 00 031535 		JFCL	17,.+1			;CLEAR PC FLAGS
  1969	031535	505 15 0 00 031636 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  1970	031536	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  1971	031537	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  1972						PCSAVE^
  1973	031540	264 00 0 00 031541 		JSR	.+1		;STORE PC
  1974			031541		FLAGL=.				;LOCATION OF PC
  1975	031541	000000	000000			0			;PC
  1976					^
  1977						CHECKB	(LOC,E,CNUM+2)^
  1978
  1979	031542	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  1980	031543	312 01 0 00 031640 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  1981	031544	254 00 0 00 031550 		JRST	..0073		;NO - GO TO ERROR HANDLING
  1982	031545	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  1983	031546	316 02 0 00 031641 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  1984	031547	254 00 0 00 031553 		JRST	..0074+1  	;YES - DONT DO ERROR HANDLING
  1985									;	EXCEPT FOR ERLOOP
  1986
  1987	031550	200 14 0 13 000001 	..0073:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  1988	031551	200 13 0 13 031640 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  1989	031552				..0074:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
  1990	031552	036 14 0 00 041524 
  1991	031553	035 00 0 00 031533 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  1992					^
  1993					^
  1994						TFLAG	([0],E)^
  1995
  1996	031554	200 13 0 00 031541 		MOVE	SCR1,FLAGL	;GET FLAGS
  1997	031555	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  1998	031556	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  1999	031557	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2000	031560	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2001	031561	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2002						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2003	031562	036 13 0 00 041552 
  2004	031563	035 00 0 00 031533 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2005					^
  2006					^
  2007					;   ************************************************
  2008
  2009
  2010					;   ************************************************
  2011
  2012			031564			LOC=.
  2013			031642			CNUM=CNUM+4
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 6-5
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0071

  2014	031564	120 01 0 00 031642 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0
  2015	031565	255 17 0 00 031566 		JFCL	17,.+1			;CLEAR PC FLAGS
  2016	031566	505 15 0 00 031642 		HRLI	SCR3,CNUM		;SCR3 - ADDRESS OF OPERANDS FOR
  2017	031567	541 15 0 00 041402 		HRRI	SCR3,[EXP 0,1]		; ADDL ERROR PRINT ROUTINE
  2018	031570	114 01 0 00 041402 		DADD	AC1,[EXP 0,1]		;ADD - FLOATING 0 + 1
  2019						PCSAVE^
  2020	031571	264 00 0 00 031572 		JSR	.+1		;STORE PC
  2021			031572		FLAGL=.				;LOCATION OF PC
  2022	031572	000000	000000			0			;PC
  2023					^
  2024						CHECKB	(LOC,E,CNUM+2)^
  2025
  2026	031573	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2027	031574	312 01 0 00 031644 		CAME	AC1,CNUM+2		;IS LEFT HALF OF RESULT CORRECT?
  2028	031575	254 00 0 00 031601 		JRST	..0075		;NO - GO TO ERROR HANDLING
  2029	031576	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2030	031577	316 02 0 00 031645 		CAMN	AC1+1,CNUM+2+1	;IS RIGHT HALF CORRECT?
  2031	031600	254 00 0 00 031604 		JRST	..0076+1  	;YES - DONT DO ERROR HANDLING
  2032									;	EXCEPT FOR ERLOOP
  2033
  2034	031601	200 14 0 13 000001 	..0075:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2035	031602	200 13 0 13 031644 		MOVE	SCR1,CNUM+2(SCR1)	;GET CORRECT WORD OF RESULT
  2036	031603				..0076:	ERROR	(LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
  2037	031603	036 14 0 00 041524 
  2038	031604	035 00 0 00 031564 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2039					^
  2040					^
  2041						TFLAG	([0],E)^
  2042
  2043	031605	200 13 0 00 031572 		MOVE	SCR1,FLAGL	;GET FLAGS
  2044	031606	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2045	031607	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2046	031610	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2047	031611	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2048	031612	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2049						ERROR	(LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2050	031613	036 13 0 00 041555 
  2051	031614	035 00 0 00 031564 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2052					^
  2053					^
  2054					;   ************************************************
  2055
  2056	031615	254 00 0 00 031646 		JRST	AENDD			;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 7
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST E                                                                      SEQ 0072

  2057
  2058	031616	777777	777777		ACONE:	EXP	-1,577777777777,-1,^B11B1
  2059	031617	577777	777777
  2060	031620	777777	777777
  2061	031621	600000	000000
  2062	031622	777777	777776			EXP	-2,-1,-1,1B0
  2063	031623	777777	777777
  2064	031624	777777	777777
  2065	031625	400000	000000
  2066	031626	577777	777777			EXP	577777777777,-1,^B11B1,1B0
  2067	031627	777777	777777
  2068	031630	600000	000000
  2069	031631	400000	000000
  2070	031632	377777	777777			EXP	377777777777,177777777777,377777777777,1B1
  2071	031633	177777	777777
  2072	031634	377777	777777
  2073	031635	200000	000000
  2074	031636	377777	777776			EXP	377777777776,377777777777,377777777777,0
  2075	031637	377777	777777
  2076	031640	377777	777777
  2077	031641	000000	000000
  2078	031642	177777	777777			EXP	177777777777,377777777777,1B1,0
  2079	031643	377777	777777
  2080	031644	200000	000000
  2081	031645	000000	000000
  2082	031646				AENDD:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0073

  2083					SUBTTL	DADD - TEST F
  2084
  2085					; **********************************************************************
  2086					;*DADD - TEST F
  2087					;*
  2088					;*	THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES
  2089					;*	  THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
  2090					;*	  HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT.  THE
  2091					;*	  TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE
  2092					;*	  ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT
  2093					;*	  ARE CORRECT.
  2094					;*
  2095					;*	THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N
  2096					;*				  (2) N + N = N
  2097					;*				  (3) P + P = P
  2098					;*				  (4) N + P = N
  2099					;*				  (5) N + P = P
  2100					;*				WHERE N-NEGATIVE NUMBER
  2101					;*				      P-POSITIVE NUMBER
  2102					; **********************************************************************
  2103
  2104					; **********************************************************************
  2105					; ----------  DADD - TEST F-1:  0 + P/N = P/N  ----------
  2106					; **********************************************************************
  2107
  2108			033163			CNUM=ACONF1-4
  2109			000000			REP=0				;RESULT FOR FIRST 3 TESTS
  2110
  2111						REPEAT	6,<
  2112					;   ************************************************
  2113					
  2114						LOC=.				;ERROR RETURN ADDRESS
  2115						REP=REP+1			;REP - REPETITION COUNT
  2116						CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2117						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2118						DMOVE	AC1,CNUM		;INIT AUGEND
  2119						JFCL	17,.+1			;CLEAR PC FLAGS
  2120						DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2121						PCSAVE
  2122						RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2123						RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2124						CHECKA	(LOC,F1,RLEFT,RRIGHT)
  2125						TFLAG	([0],F1)
  2126					;   ************************************************
  2127					>
  2128
  2129					;   ************************************************
  2130
  2131			031646			LOC=.				;ERROR RETURN ADDRESS
  2132			000001			REP=REP+1			;REP - REPETITION COUNT
  2133			033167			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2134	031646	200 15 0 00 041560 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2135	031647	120 01 0 00 033167 		DMOVE	AC1,CNUM		;INIT AUGEND
  2136	031650	255 17 0 00 031651 		JFCL	17,.+1			;CLEAR PC FLAGS
  2137	031651	114 01 0 00 033171 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0074

  2138						PCSAVE^
  2139	031652	264 00 0 00 031653 		JSR	.+1		;STORE PC
  2140			031653		FLAGL=.				;LOCATION OF PC
  2141	031653	000000	000000			0			;PC
  2142					^
  2143			000000			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2144			000001			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2145						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2146
  2147	031654	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2148	031655	312 01 0 00 041274 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2149	031656	254 00 0 00 031662 		JRST	..0077		;NO - GO TO ERROR HANDLING
  2150	031657	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2151	031660	316 02 0 00 041403 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2152	031661	254 00 0 00 031665 		JRST	..0100+1  	;YES - DONT DO ERROR HANDLING
  2153									; EXCEPT FOR ERLOOP
  2154
  2155	031662	200 14 0 13 000001 	..0077:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2156	031663	200 13 0 13 041402 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2157	031664				..0100:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
  2158	031664	036 14 0 00 041566 
  2159	031665	035 00 0 00 031646 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2160					^
  2161					^
  2162						TFLAG	([0],F1)^
  2163
  2164	031666	200 13 0 00 031653 		MOVE	SCR1,FLAGL	;GET FLAGS
  2165	031667	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2166	031670	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2167	031671	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2168	031672	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2169	031673	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2170						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2171
  2172	031674	036 13 0 00 041601 
  2173	031675	035 00 0 00 031646 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2174					^
  2175					^
  2176					;   ************************************************
  2177
  2178
  2179					;   ************************************************
  2180
  2181			031676			LOC=.				;ERROR RETURN ADDRESS
  2182			000002			REP=REP+1			;REP - REPETITION COUNT
  2183			033173			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2184	031676	200 15 0 00 041604 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2185	031677	120 01 0 00 033173 		DMOVE	AC1,CNUM		;INIT AUGEND
  2186	031700	255 17 0 00 031701 		JFCL	17,.+1			;CLEAR PC FLAGS
  2187	031701	114 01 0 00 033175 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2188						PCSAVE^
  2189	031702	264 00 0 00 031703 		JSR	.+1		;STORE PC
  2190			031703		FLAGL=.				;LOCATION OF PC
  2191	031703	000000	000000			0			;PC
  2192					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0075

  2193			000000			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2194			000001			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2195						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2196
  2197	031704	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2198	031705	312 01 0 00 041274 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2199	031706	254 00 0 00 031712 		JRST	..0101		;NO - GO TO ERROR HANDLING
  2200	031707	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2201	031710	316 02 0 00 041403 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2202	031711	254 00 0 00 031715 		JRST	..0102+1  	;YES - DONT DO ERROR HANDLING
  2203									; EXCEPT FOR ERLOOP
  2204
  2205	031712	200 14 0 13 000001 	..0101:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2206	031713	200 13 0 13 041402 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2207	031714				..0102:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
  2208	031714	036 14 0 00 041566 
  2209	031715	035 00 0 00 031676 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2210					^
  2211					^
  2212						TFLAG	([0],F1)^
  2213
  2214	031716	200 13 0 00 031703 		MOVE	SCR1,FLAGL	;GET FLAGS
  2215	031717	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2216	031720	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2217	031721	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2218	031722	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2219	031723	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2220						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2221
  2222	031724	036 13 0 00 041605 
  2223	031725	035 00 0 00 031676 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2224					^
  2225					^
  2226					;   ************************************************
  2227
  2228
  2229					;   ************************************************
  2230
  2231			031726			LOC=.				;ERROR RETURN ADDRESS
  2232			000003			REP=REP+1			;REP - REPETITION COUNT
  2233			033177			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2234	031726	200 15 0 00 041610 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2235	031727	120 01 0 00 033177 		DMOVE	AC1,CNUM		;INIT AUGEND
  2236	031730	255 17 0 00 031731 		JFCL	17,.+1			;CLEAR PC FLAGS
  2237	031731	114 01 0 00 033201 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2238						PCSAVE^
  2239	031732	264 00 0 00 031733 		JSR	.+1		;STORE PC
  2240			031733		FLAGL=.				;LOCATION OF PC
  2241	031733	000000	000000			0			;PC
  2242					^
  2243			000000			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2244			000001			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2245						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2246
  2247	031734	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0076

  2248	031735	312 01 0 00 041274 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2249	031736	254 00 0 00 031742 		JRST	..0103		;NO - GO TO ERROR HANDLING
  2250	031737	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2251	031740	316 02 0 00 041403 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2252	031741	254 00 0 00 031745 		JRST	..0104+1  	;YES - DONT DO ERROR HANDLING
  2253									; EXCEPT FOR ERLOOP
  2254
  2255	031742	200 14 0 13 000001 	..0103:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2256	031743	200 13 0 13 041402 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2257	031744				..0104:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
  2258	031744	036 14 0 00 041566 
  2259	031745	035 00 0 00 031726 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2260					^
  2261					^
  2262						TFLAG	([0],F1)^
  2263
  2264	031746	200 13 0 00 031733 		MOVE	SCR1,FLAGL	;GET FLAGS
  2265	031747	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2266	031750	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2267	031751	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2268	031752	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2269	031753	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2270						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2271
  2272	031754	036 13 0 00 041611 
  2273	031755	035 00 0 00 031726 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2274					^
  2275					^
  2276					;   ************************************************
  2277
  2278
  2279					;   ************************************************
  2280
  2281			031756			LOC=.				;ERROR RETURN ADDRESS
  2282			000004			REP=REP+1			;REP - REPETITION COUNT
  2283			033203			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2284	031756	200 15 0 00 041614 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2285	031757	120 01 0 00 033203 		DMOVE	AC1,CNUM		;INIT AUGEND
  2286	031760	255 17 0 00 031761 		JFCL	17,.+1			;CLEAR PC FLAGS
  2287	031761	114 01 0 00 033205 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2288						PCSAVE^
  2289	031762	264 00 0 00 031763 		JSR	.+1		;STORE PC
  2290			031763		FLAGL=.				;LOCATION OF PC
  2291	031763	000000	000000			0			;PC
  2292					^
  2293		777777	777777			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2294		777777	777777			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2295						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2296
  2297	031764	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2298	031765	312 01 0 00 041442 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2299	031766	254 00 0 00 031772 		JRST	..0105		;NO - GO TO ERROR HANDLING
  2300	031767	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2301	031770	316 02 0 00 041442 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2302	031771	254 00 0 00 031775 		JRST	..0106+1  	;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-4
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0077

  2303									; EXCEPT FOR ERLOOP
  2304
  2305	031772	200 14 0 13 000001 	..0105:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2306	031773	200 13 0 13 041615 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2307	031774				..0106:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
  2308	031774	036 14 0 00 041566 
  2309	031775	035 00 0 00 031756 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2310					^
  2311					^
  2312						TFLAG	([0],F1)^
  2313
  2314	031776	200 13 0 00 031763 		MOVE	SCR1,FLAGL	;GET FLAGS
  2315	031777	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2316	032000	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2317	032001	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2318	032002	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2319	032003	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2320						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2321
  2322	032004	036 13 0 00 041617 
  2323	032005	035 00 0 00 031756 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2324					^
  2325					^
  2326					;   ************************************************
  2327
  2328
  2329					;   ************************************************
  2330
  2331			032006			LOC=.				;ERROR RETURN ADDRESS
  2332			000005			REP=REP+1			;REP - REPETITION COUNT
  2333			033207			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2334	032006	200 15 0 00 041622 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2335	032007	120 01 0 00 033207 		DMOVE	AC1,CNUM		;INIT AUGEND
  2336	032010	255 17 0 00 032011 		JFCL	17,.+1			;CLEAR PC FLAGS
  2337	032011	114 01 0 00 033211 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2338						PCSAVE^
  2339	032012	264 00 0 00 032013 		JSR	.+1		;STORE PC
  2340			032013		FLAGL=.				;LOCATION OF PC
  2341	032013	000000	000000			0			;PC
  2342					^
  2343		777777	777777			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2344		777777	777777			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2345						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2346
  2347	032014	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2348	032015	312 01 0 00 041442 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2349	032016	254 00 0 00 032022 		JRST	..0107		;NO - GO TO ERROR HANDLING
  2350	032017	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2351	032020	316 02 0 00 041442 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2352	032021	254 00 0 00 032025 		JRST	..0110+1  	;YES - DONT DO ERROR HANDLING
  2353									; EXCEPT FOR ERLOOP
  2354
  2355	032022	200 14 0 13 000001 	..0107:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2356	032023	200 13 0 13 041615 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2357	032024				..0110:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-5
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0078

  2358	032024	036 14 0 00 041566 
  2359	032025	035 00 0 00 032006 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2360					^
  2361					^
  2362						TFLAG	([0],F1)^
  2363
  2364	032026	200 13 0 00 032013 		MOVE	SCR1,FLAGL	;GET FLAGS
  2365	032027	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2366	032030	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2367	032031	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2368	032032	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2369	032033	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2370						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2371
  2372	032034	036 13 0 00 041623 
  2373	032035	035 00 0 00 032006 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2374					^
  2375					^
  2376					;   ************************************************
  2377
  2378
  2379					;   ************************************************
  2380
  2381			032036			LOC=.				;ERROR RETURN ADDRESS
  2382			000006			REP=REP+1			;REP - REPETITION COUNT
  2383			033213			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2384	032036	200 15 0 00 041626 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR FOR ADDL ERROR PRINT
  2385	032037	120 01 0 00 033213 		DMOVE	AC1,CNUM		;INIT AUGEND
  2386	032040	255 17 0 00 032041 		JFCL	17,.+1			;CLEAR PC FLAGS
  2387	032041	114 01 0 00 033215 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  2388						PCSAVE^
  2389	032042	264 00 0 00 032043 		JSR	.+1		;STORE PC
  2390			032043		FLAGL=.				;LOCATION OF PC
  2391	032043	000000	000000			0			;PC
  2392					^
  2393		777777	777777			RLEFT=0-IFG REP-3,<1>		;LEFT WORD OF RESULT
  2394		777777	777777			RRIGHT=1-IFG REP-3,<2>		;RIGHT WORD OF RESULT
  2395						CHECKA	(LOC,F1,RLEFT,RRIGHT)^
  2396
  2397	032044	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2398	032045	312 01 0 00 041442 		CAME	AC1,[RLEFT]	;IS LEFT HALF OF RESULT CORRECT?
  2399	032046	254 00 0 00 032052 		JRST	..0111		;NO - GO TO ERROR HANDLING
  2400	032047	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2401	032050	316 02 0 00 041442 		CAMN	AC1+1,[RRIGHT]	;IS RIGHT HALF CORRECT?
  2402	032051	254 00 0 00 032055 		JRST	..0112+1  	;YES - DONT DO ERROR HANDLING
  2403									; EXCEPT FOR ERLOOP
  2404
  2405	032052	200 14 0 13 000001 	..0111:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2406	032053	200 13 0 13 041615 		MOVE	SCR1,[EXP RLEFT,RRIGHT](SCR1)	;GET CORRECT RESULT
  2407	032054				..0112:	ERROR	(LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
  2408	032054	036 14 0 00 041566 
  2409	032055	035 00 0 00 032036 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2410					^
  2411					^
  2412						TFLAG	([0],F1)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-6
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0079

  2413
  2414	032056	200 13 0 00 032043 		MOVE	SCR1,FLAGL	;GET FLAGS
  2415	032057	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2416	032060	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2417	032061	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2418	032062	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2419	032063	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2420						ERROR	(LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2421
  2422	032064	036 13 0 00 041627 
  2423	032065	035 00 0 00 032036 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2424					^
  2425					^
  2426					;   ************************************************
  2427
  2428					; **********************************************************************
  2429					; ----------  DADD - TEST F-2:  N + N = N  ----------
  2430					; **********************************************************************
  2431
  2432			033213			CNUM=ACONF2-4
  2433
  2434						REPEAT	6,<
  2435					;   ************************************************
  2436					
  2437						LOC=.				;ERROR RETURN ADDRESS
  2438						CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2439						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2440						DMOVE	AC1,CNUM		;INIT AUGEND
  2441						JFCL	17,.+1			;CLEAR PC FLAGS
  2442						DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2443						PCSAVE
  2444						CHECKA	(LOC,F2,777777777776,777777777776)
  2445						TFLAG	([^B0110B3],F2)
  2446					;   ************************************************
  2447					>
  2448
  2449					;   ************************************************
  2450
  2451			032066			LOC=.				;ERROR RETURN ADDRESS
  2452			033217			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2453	032066	200 15 0 00 041632 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2454	032067	120 01 0 00 033217 		DMOVE	AC1,CNUM		;INIT AUGEND
  2455	032070	255 17 0 00 032071 		JFCL	17,.+1			;CLEAR PC FLAGS
  2456	032071	114 01 0 00 033221 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2457						PCSAVE^
  2458	032072	264 00 0 00 032073 		JSR	.+1		;STORE PC
  2459			032073		FLAGL=.				;LOCATION OF PC
  2460	032073	000000	000000			0			;PC
  2461					^
  2462						CHECKA	(LOC,F2,777777777776,777777777776)^
  2463
  2464	032074	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2465	032075	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2466	032076	254 00 0 00 032102 		JRST	..0113		;NO - GO TO ERROR HANDLING
  2467	032077	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-7
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0080

  2468	032100	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2469	032101	254 00 0 00 032105 		JRST	..0114+1  	;YES - DONT DO ERROR HANDLING
  2470									; EXCEPT FOR ERLOOP
  2471
  2472	032102	200 14 0 13 000001 	..0113:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2473	032103	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2474	032104				..0114:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2475	032104	036 14 0 00 041642 
  2476	032105	035 00 0 00 032066 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2477					^
  2478					^
  2479						TFLAG	([^B0110B3],F2)^
  2480
  2481	032106	200 13 0 00 032073 		MOVE	SCR1,FLAGL	;GET FLAGS
  2482	032107	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2483	032110	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2484	032111	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2485	032112	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2486	032113	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2487						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2488
  2489	032114	036 13 0 00 041656 
  2490	032115	035 00 0 00 032066 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2491					^
  2492					^
  2493					;   ************************************************
  2494
  2495
  2496					;   ************************************************
  2497
  2498			032116			LOC=.				;ERROR RETURN ADDRESS
  2499			033223			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2500	032116	200 15 0 00 041661 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2501	032117	120 01 0 00 033223 		DMOVE	AC1,CNUM		;INIT AUGEND
  2502	032120	255 17 0 00 032121 		JFCL	17,.+1			;CLEAR PC FLAGS
  2503	032121	114 01 0 00 033225 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2504						PCSAVE^
  2505	032122	264 00 0 00 032123 		JSR	.+1		;STORE PC
  2506			032123		FLAGL=.				;LOCATION OF PC
  2507	032123	000000	000000			0			;PC
  2508					^
  2509						CHECKA	(LOC,F2,777777777776,777777777776)^
  2510
  2511	032124	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2512	032125	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2513	032126	254 00 0 00 032132 		JRST	..0115		;NO - GO TO ERROR HANDLING
  2514	032127	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2515	032130	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2516	032131	254 00 0 00 032135 		JRST	..0116+1  	;YES - DONT DO ERROR HANDLING
  2517									; EXCEPT FOR ERLOOP
  2518
  2519	032132	200 14 0 13 000001 	..0115:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2520	032133	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2521	032134				..0116:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2522	032134	036 14 0 00 041642 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-8
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0081

  2523	032135	035 00 0 00 032116 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2524					^
  2525					^
  2526						TFLAG	([^B0110B3],F2)^
  2527
  2528	032136	200 13 0 00 032123 		MOVE	SCR1,FLAGL	;GET FLAGS
  2529	032137	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2530	032140	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2531	032141	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2532	032142	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2533	032143	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2534						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2535
  2536	032144	036 13 0 00 041662 
  2537	032145	035 00 0 00 032116 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2538					^
  2539					^
  2540					;   ************************************************
  2541
  2542
  2543					;   ************************************************
  2544
  2545			032146			LOC=.				;ERROR RETURN ADDRESS
  2546			033227			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2547	032146	200 15 0 00 041665 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2548	032147	120 01 0 00 033227 		DMOVE	AC1,CNUM		;INIT AUGEND
  2549	032150	255 17 0 00 032151 		JFCL	17,.+1			;CLEAR PC FLAGS
  2550	032151	114 01 0 00 033231 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2551						PCSAVE^
  2552	032152	264 00 0 00 032153 		JSR	.+1		;STORE PC
  2553			032153		FLAGL=.				;LOCATION OF PC
  2554	032153	000000	000000			0			;PC
  2555					^
  2556						CHECKA	(LOC,F2,777777777776,777777777776)^
  2557
  2558	032154	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2559	032155	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2560	032156	254 00 0 00 032162 		JRST	..0117		;NO - GO TO ERROR HANDLING
  2561	032157	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2562	032160	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2563	032161	254 00 0 00 032165 		JRST	..0120+1  	;YES - DONT DO ERROR HANDLING
  2564									; EXCEPT FOR ERLOOP
  2565
  2566	032162	200 14 0 13 000001 	..0117:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2567	032163	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2568	032164				..0120:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2569	032164	036 14 0 00 041642 
  2570	032165	035 00 0 00 032146 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2571					^
  2572					^
  2573						TFLAG	([^B0110B3],F2)^
  2574
  2575	032166	200 13 0 00 032153 		MOVE	SCR1,FLAGL	;GET FLAGS
  2576	032167	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2577	032170	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-9
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0082

  2578	032171	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2579	032172	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2580	032173	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2581						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2582
  2583	032174	036 13 0 00 041666 
  2584	032175	035 00 0 00 032146 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2585					^
  2586					^
  2587					;   ************************************************
  2588
  2589
  2590					;   ************************************************
  2591
  2592			032176			LOC=.				;ERROR RETURN ADDRESS
  2593			033233			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2594	032176	200 15 0 00 041671 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2595	032177	120 01 0 00 033233 		DMOVE	AC1,CNUM		;INIT AUGEND
  2596	032200	255 17 0 00 032201 		JFCL	17,.+1			;CLEAR PC FLAGS
  2597	032201	114 01 0 00 033235 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2598						PCSAVE^
  2599	032202	264 00 0 00 032203 		JSR	.+1		;STORE PC
  2600			032203		FLAGL=.				;LOCATION OF PC
  2601	032203	000000	000000			0			;PC
  2602					^
  2603						CHECKA	(LOC,F2,777777777776,777777777776)^
  2604
  2605	032204	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2606	032205	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2607	032206	254 00 0 00 032212 		JRST	..0121		;NO - GO TO ERROR HANDLING
  2608	032207	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2609	032210	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2610	032211	254 00 0 00 032215 		JRST	..0122+1  	;YES - DONT DO ERROR HANDLING
  2611									; EXCEPT FOR ERLOOP
  2612
  2613	032212	200 14 0 13 000001 	..0121:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2614	032213	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2615	032214				..0122:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2616	032214	036 14 0 00 041642 
  2617	032215	035 00 0 00 032176 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2618					^
  2619					^
  2620						TFLAG	([^B0110B3],F2)^
  2621
  2622	032216	200 13 0 00 032203 		MOVE	SCR1,FLAGL	;GET FLAGS
  2623	032217	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2624	032220	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2625	032221	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2626	032222	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2627	032223	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2628						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2629
  2630	032224	036 13 0 00 041672 
  2631	032225	035 00 0 00 032176 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2632					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-10
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0083

  2633					^
  2634					;   ************************************************
  2635
  2636
  2637					;   ************************************************
  2638
  2639			032226			LOC=.				;ERROR RETURN ADDRESS
  2640			033237			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2641	032226	200 15 0 00 041675 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2642	032227	120 01 0 00 033237 		DMOVE	AC1,CNUM		;INIT AUGEND
  2643	032230	255 17 0 00 032231 		JFCL	17,.+1			;CLEAR PC FLAGS
  2644	032231	114 01 0 00 033241 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2645						PCSAVE^
  2646	032232	264 00 0 00 032233 		JSR	.+1		;STORE PC
  2647			032233		FLAGL=.				;LOCATION OF PC
  2648	032233	000000	000000			0			;PC
  2649					^
  2650						CHECKA	(LOC,F2,777777777776,777777777776)^
  2651
  2652	032234	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2653	032235	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2654	032236	254 00 0 00 032242 		JRST	..0123		;NO - GO TO ERROR HANDLING
  2655	032237	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2656	032240	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2657	032241	254 00 0 00 032245 		JRST	..0124+1  	;YES - DONT DO ERROR HANDLING
  2658									; EXCEPT FOR ERLOOP
  2659
  2660	032242	200 14 0 13 000001 	..0123:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2661	032243	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2662	032244				..0124:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2663	032244	036 14 0 00 041642 
  2664	032245	035 00 0 00 032226 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2665					^
  2666					^
  2667						TFLAG	([^B0110B3],F2)^
  2668
  2669	032246	200 13 0 00 032233 		MOVE	SCR1,FLAGL	;GET FLAGS
  2670	032247	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2671	032250	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2672	032251	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2673	032252	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2674	032253	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2675						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2676
  2677	032254	036 13 0 00 041676 
  2678	032255	035 00 0 00 032226 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2679					^
  2680					^
  2681					;   ************************************************
  2682
  2683
  2684					;   ************************************************
  2685
  2686			032256			LOC=.				;ERROR RETURN ADDRESS
  2687			033243			CNUM=CNUM+4			;ADDRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-11
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0084

  2688	032256	200 15 0 00 041701 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2689	032257	120 01 0 00 033243 		DMOVE	AC1,CNUM		;INIT AUGEND
  2690	032260	255 17 0 00 032261 		JFCL	17,.+1			;CLEAR PC FLAGS
  2691	032261	114 01 0 00 033245 		DADD	AC1,CNUM+2		;ADD N + N = 77..76,77..76
  2692						PCSAVE^
  2693	032262	264 00 0 00 032263 		JSR	.+1		;STORE PC
  2694			032263		FLAGL=.				;LOCATION OF PC
  2695	032263	000000	000000			0			;PC
  2696					^
  2697						CHECKA	(LOC,F2,777777777776,777777777776)^
  2698
  2699	032264	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2700	032265	312 01 0 00 041443 		CAME	AC1,[777777777776]	;IS LEFT HALF OF RESULT CORRECT?
  2701	032266	254 00 0 00 032272 		JRST	..0125		;NO - GO TO ERROR HANDLING
  2702	032267	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2703	032270	316 02 0 00 041443 		CAMN	AC1+1,[777777777776]	;IS RIGHT HALF CORRECT?
  2704	032271	254 00 0 00 032275 		JRST	..0126+1  	;YES - DONT DO ERROR HANDLING
  2705									; EXCEPT FOR ERLOOP
  2706
  2707	032272	200 14 0 13 000001 	..0125:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2708	032273	200 13 0 13 041633 		MOVE	SCR1,[EXP 777777777776,777777777776](SCR1)	;GET CORRECT RESULT
  2709	032274				..0126:	ERROR	(LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
  2710	032274	036 14 0 00 041642 
  2711	032275	035 00 0 00 032256 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2712					^
  2713					^
  2714						TFLAG	([^B0110B3],F2)^
  2715
  2716	032276	200 13 0 00 032263 		MOVE	SCR1,FLAGL	;GET FLAGS
  2717	032277	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  2718	032300	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2719	032301	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2720	032302	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2721	032303	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2722						ERROR	(LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2723
  2724	032304	036 13 0 00 041702 
  2725	032305	035 00 0 00 032256 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2726					^
  2727					^
  2728					;   ************************************************
  2729
  2730					; **********************************************************************
  2731					; ----------  DADD - TEST F-3:  P + P = P  ----------
  2732					; **********************************************************************
  2733
  2734			033243			CNUM=ACONF3-4
  2735
  2736						REPEAT	6,<
  2737					;   ************************************************
  2738					
  2739						LOC=.				;ERROR RETURN ADDRESS
  2740						CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2741						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2742						DMOVE	AC1,CNUM		;INIT AUGEND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-12
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0085

  2743						JFCL	17,.+1			;CLEAR PC FLAGS
  2744						DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2745						PCSAVE
  2746						CHECKA	(LOC,F3,1,1)
  2747						TFLAG	([0],F3)
  2748					;   ************************************************
  2749					>
  2750
  2751					;   ************************************************
  2752
  2753			032306			LOC=.				;ERROR RETURN ADDRESS
  2754			033247			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2755	032306	200 15 0 00 041705 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2756	032307	120 01 0 00 033247 		DMOVE	AC1,CNUM		;INIT AUGEND
  2757	032310	255 17 0 00 032311 		JFCL	17,.+1			;CLEAR PC FLAGS
  2758	032311	114 01 0 00 033251 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2759						PCSAVE^
  2760	032312	264 00 0 00 032313 		JSR	.+1		;STORE PC
  2761			032313		FLAGL=.				;LOCATION OF PC
  2762	032313	000000	000000			0			;PC
  2763					^
  2764						CHECKA	(LOC,F3,1,1)^
  2765
  2766	032314	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2767	032315	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  2768	032316	254 00 0 00 032322 		JRST	..0127		;NO - GO TO ERROR HANDLING
  2769	032317	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2770	032320	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  2771	032321	254 00 0 00 032325 		JRST	..0130+1  	;YES - DONT DO ERROR HANDLING
  2772									; EXCEPT FOR ERLOOP
  2773
  2774	032322	200 14 0 13 000001 	..0127:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2775	032323	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  2776	032324				..0130:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  2777	032324	036 14 0 00 041715 
  2778	032325	035 00 0 00 032306 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2779					^
  2780					^
  2781						TFLAG	([0],F3)^
  2782
  2783	032326	200 13 0 00 032313 		MOVE	SCR1,FLAGL	;GET FLAGS
  2784	032327	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2785	032330	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2786	032331	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2787	032332	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2788	032333	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2789						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2790
  2791	032334	036 13 0 00 041730 
  2792	032335	035 00 0 00 032306 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2793					^
  2794					^
  2795					;   ************************************************
  2796
  2797
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-13
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0086

  2798					;   ************************************************
  2799
  2800			032336			LOC=.				;ERROR RETURN ADDRESS
  2801			033253			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2802	032336	200 15 0 00 041733 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2803	032337	120 01 0 00 033253 		DMOVE	AC1,CNUM		;INIT AUGEND
  2804	032340	255 17 0 00 032341 		JFCL	17,.+1			;CLEAR PC FLAGS
  2805	032341	114 01 0 00 033255 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2806						PCSAVE^
  2807	032342	264 00 0 00 032343 		JSR	.+1		;STORE PC
  2808			032343		FLAGL=.				;LOCATION OF PC
  2809	032343	000000	000000			0			;PC
  2810					^
  2811						CHECKA	(LOC,F3,1,1)^
  2812
  2813	032344	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2814	032345	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  2815	032346	254 00 0 00 032352 		JRST	..0131		;NO - GO TO ERROR HANDLING
  2816	032347	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2817	032350	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  2818	032351	254 00 0 00 032355 		JRST	..0132+1  	;YES - DONT DO ERROR HANDLING
  2819									; EXCEPT FOR ERLOOP
  2820
  2821	032352	200 14 0 13 000001 	..0131:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2822	032353	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  2823	032354				..0132:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  2824	032354	036 14 0 00 041715 
  2825	032355	035 00 0 00 032336 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2826					^
  2827					^
  2828						TFLAG	([0],F3)^
  2829
  2830	032356	200 13 0 00 032343 		MOVE	SCR1,FLAGL	;GET FLAGS
  2831	032357	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2832	032360	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2833	032361	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2834	032362	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2835	032363	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2836						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2837
  2838	032364	036 13 0 00 041734 
  2839	032365	035 00 0 00 032336 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2840					^
  2841					^
  2842					;   ************************************************
  2843
  2844
  2845					;   ************************************************
  2846
  2847			032366			LOC=.				;ERROR RETURN ADDRESS
  2848			033257			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2849	032366	200 15 0 00 041737 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2850	032367	120 01 0 00 033257 		DMOVE	AC1,CNUM		;INIT AUGEND
  2851	032370	255 17 0 00 032371 		JFCL	17,.+1			;CLEAR PC FLAGS
  2852	032371	114 01 0 00 033261 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-14
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0087

  2853						PCSAVE^
  2854	032372	264 00 0 00 032373 		JSR	.+1		;STORE PC
  2855			032373		FLAGL=.				;LOCATION OF PC
  2856	032373	000000	000000			0			;PC
  2857					^
  2858						CHECKA	(LOC,F3,1,1)^
  2859
  2860	032374	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2861	032375	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  2862	032376	254 00 0 00 032402 		JRST	..0133		;NO - GO TO ERROR HANDLING
  2863	032377	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2864	032400	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  2865	032401	254 00 0 00 032405 		JRST	..0134+1  	;YES - DONT DO ERROR HANDLING
  2866									; EXCEPT FOR ERLOOP
  2867
  2868	032402	200 14 0 13 000001 	..0133:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2869	032403	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  2870	032404				..0134:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  2871	032404	036 14 0 00 041715 
  2872	032405	035 00 0 00 032366 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2873					^
  2874					^
  2875						TFLAG	([0],F3)^
  2876
  2877	032406	200 13 0 00 032373 		MOVE	SCR1,FLAGL	;GET FLAGS
  2878	032407	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2879	032410	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2880	032411	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2881	032412	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2882	032413	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2883						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2884
  2885	032414	036 13 0 00 041740 
  2886	032415	035 00 0 00 032366 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2887					^
  2888					^
  2889					;   ************************************************
  2890
  2891
  2892					;   ************************************************
  2893
  2894			032416			LOC=.				;ERROR RETURN ADDRESS
  2895			033263			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2896	032416	200 15 0 00 041743 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2897	032417	120 01 0 00 033263 		DMOVE	AC1,CNUM		;INIT AUGEND
  2898	032420	255 17 0 00 032421 		JFCL	17,.+1			;CLEAR PC FLAGS
  2899	032421	114 01 0 00 033265 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2900						PCSAVE^
  2901	032422	264 00 0 00 032423 		JSR	.+1		;STORE PC
  2902			032423		FLAGL=.				;LOCATION OF PC
  2903	032423	000000	000000			0			;PC
  2904					^
  2905						CHECKA	(LOC,F3,1,1)^
  2906
  2907	032424	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-15
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0088

  2908	032425	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  2909	032426	254 00 0 00 032432 		JRST	..0135		;NO - GO TO ERROR HANDLING
  2910	032427	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2911	032430	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  2912	032431	254 00 0 00 032435 		JRST	..0136+1  	;YES - DONT DO ERROR HANDLING
  2913									; EXCEPT FOR ERLOOP
  2914
  2915	032432	200 14 0 13 000001 	..0135:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  2916	032433	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  2917	032434				..0136:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  2918	032434	036 14 0 00 041715 
  2919	032435	035 00 0 00 032416 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2920					^
  2921					^
  2922						TFLAG	([0],F3)^
  2923
  2924	032436	200 13 0 00 032423 		MOVE	SCR1,FLAGL	;GET FLAGS
  2925	032437	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2926	032440	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2927	032441	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2928	032442	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2929	032443	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2930						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2931
  2932	032444	036 13 0 00 041744 
  2933	032445	035 00 0 00 032416 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2934					^
  2935					^
  2936					;   ************************************************
  2937
  2938
  2939					;   ************************************************
  2940
  2941			032446			LOC=.				;ERROR RETURN ADDRESS
  2942			033267			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2943	032446	200 15 0 00 041747 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2944	032447	120 01 0 00 033267 		DMOVE	AC1,CNUM		;INIT AUGEND
  2945	032450	255 17 0 00 032451 		JFCL	17,.+1			;CLEAR PC FLAGS
  2946	032451	114 01 0 00 033271 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2947						PCSAVE^
  2948	032452	264 00 0 00 032453 		JSR	.+1		;STORE PC
  2949			032453		FLAGL=.				;LOCATION OF PC
  2950	032453	000000	000000			0			;PC
  2951					^
  2952						CHECKA	(LOC,F3,1,1)^
  2953
  2954	032454	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  2955	032455	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  2956	032456	254 00 0 00 032462 		JRST	..0137		;NO - GO TO ERROR HANDLING
  2957	032457	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  2958	032460	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  2959	032461	254 00 0 00 032465 		JRST	..0140+1  	;YES - DONT DO ERROR HANDLING
  2960									; EXCEPT FOR ERLOOP
  2961
  2962	032462	200 14 0 13 000001 	..0137:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-16
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0089

  2963	032463	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  2964	032464				..0140:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  2965	032464	036 14 0 00 041715 
  2966	032465	035 00 0 00 032446 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2967					^
  2968					^
  2969						TFLAG	([0],F3)^
  2970
  2971	032466	200 13 0 00 032453 		MOVE	SCR1,FLAGL	;GET FLAGS
  2972	032467	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  2973	032470	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  2974	032471	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  2975	032472	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  2976	032473	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  2977						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  2978
  2979	032474	036 13 0 00 041750 
  2980	032475	035 00 0 00 032446 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  2981					^
  2982					^
  2983					;   ************************************************
  2984
  2985
  2986					;   ************************************************
  2987
  2988			032476			LOC=.				;ERROR RETURN ADDRESS
  2989			033273			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  2990	032476	200 15 0 00 041753 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  2991	032477	120 01 0 00 033273 		DMOVE	AC1,CNUM		;INIT AUGEND
  2992	032500	255 17 0 00 032501 		JFCL	17,.+1			;CLEAR PC FLAGS
  2993	032501	114 01 0 00 033275 		DADD	AC1,CNUM+2		;ADD N + P = 1,1
  2994						PCSAVE^
  2995	032502	264 00 0 00 032503 		JSR	.+1		;STORE PC
  2996			032503		FLAGL=.				;LOCATION OF PC
  2997	032503	000000	000000			0			;PC
  2998					^
  2999						CHECKA	(LOC,F3,1,1)^
  3000
  3001	032504	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3002	032505	312 01 0 00 041403 		CAME	AC1,[1]	;IS LEFT HALF OF RESULT CORRECT?
  3003	032506	254 00 0 00 032512 		JRST	..0141		;NO - GO TO ERROR HANDLING
  3004	032507	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3005	032510	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3006	032511	254 00 0 00 032515 		JRST	..0142+1  	;YES - DONT DO ERROR HANDLING
  3007									; EXCEPT FOR ERLOOP
  3008
  3009	032512	200 14 0 13 000001 	..0141:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3010	032513	200 13 0 13 041706 		MOVE	SCR1,[EXP 1,1](SCR1)	;GET CORRECT RESULT
  3011	032514				..0142:	ERROR	(LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
  3012	032514	036 14 0 00 041715 
  3013	032515	035 00 0 00 032476 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3014					^
  3015					^
  3016						TFLAG	([0],F3)^
  3017
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-17
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0090

  3018	032516	200 13 0 00 032503 		MOVE	SCR1,FLAGL	;GET FLAGS
  3019	032517	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3020	032520	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3021	032521	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3022	032522	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3023	032523	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3024						ERROR	(LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3025
  3026	032524	036 13 0 00 041754 
  3027	032525	035 00 0 00 032476 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3028					^
  3029					^
  3030					;   ************************************************
  3031
  3032					; **********************************************************************
  3033					; ----------  DADD - TEST F-4:  N + P = -1,-1  ----------
  3034					; **********************************************************************
  3035
  3036			033273			CNUM=ACONF4-4
  3037
  3038						REPEAT	6,<
  3039					;   ************************************************
  3040					
  3041						LOC=.				;ERROR RETURN ADDRESS
  3042						CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3043						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3044						DMOVE	AC1,CNUM		;INIT AUGEND
  3045						JFCL	17,.+1			;CLEAR PC FLAGS
  3046						DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3047						PCSAVE
  3048						CHECKA	(LOC,F4,-1,-1)
  3049						TFLAG	([0],F4)
  3050					;   ************************************************
  3051					>
  3052
  3053					;   ************************************************
  3054
  3055			032526			LOC=.				;ERROR RETURN ADDRESS
  3056			033277			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3057	032526	200 15 0 00 041757 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3058	032527	120 01 0 00 033277 		DMOVE	AC1,CNUM		;INIT AUGEND
  3059	032530	255 17 0 00 032531 		JFCL	17,.+1			;CLEAR PC FLAGS
  3060	032531	114 01 0 00 033301 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3061						PCSAVE^
  3062	032532	264 00 0 00 032533 		JSR	.+1		;STORE PC
  3063			032533		FLAGL=.				;LOCATION OF PC
  3064	032533	000000	000000			0			;PC
  3065					^
  3066						CHECKA	(LOC,F4,-1,-1)^
  3067
  3068	032534	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3069	032535	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3070	032536	254 00 0 00 032542 		JRST	..0143		;NO - GO TO ERROR HANDLING
  3071	032537	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3072	032540	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-18
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0091

  3073	032541	254 00 0 00 032545 		JRST	..0144+1  	;YES - DONT DO ERROR HANDLING
  3074									; EXCEPT FOR ERLOOP
  3075
  3076	032542	200 14 0 13 000001 	..0143:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3077	032543	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3078	032544				..0144:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3079	032544	036 14 0 00 041765 
  3080	032545	035 00 0 00 032526 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3081					^
  3082					^
  3083						TFLAG	([0],F4)^
  3084
  3085	032546	200 13 0 00 032533 		MOVE	SCR1,FLAGL	;GET FLAGS
  3086	032547	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3087	032550	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3088	032551	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3089	032552	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3090	032553	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3091						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3092
  3093	032554	036 13 0 00 042000 
  3094	032555	035 00 0 00 032526 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3095					^
  3096					^
  3097					;   ************************************************
  3098
  3099
  3100					;   ************************************************
  3101
  3102			032556			LOC=.				;ERROR RETURN ADDRESS
  3103			033303			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3104	032556	200 15 0 00 042003 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3105	032557	120 01 0 00 033303 		DMOVE	AC1,CNUM		;INIT AUGEND
  3106	032560	255 17 0 00 032561 		JFCL	17,.+1			;CLEAR PC FLAGS
  3107	032561	114 01 0 00 033305 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3108						PCSAVE^
  3109	032562	264 00 0 00 032563 		JSR	.+1		;STORE PC
  3110			032563		FLAGL=.				;LOCATION OF PC
  3111	032563	000000	000000			0			;PC
  3112					^
  3113						CHECKA	(LOC,F4,-1,-1)^
  3114
  3115	032564	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3116	032565	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3117	032566	254 00 0 00 032572 		JRST	..0145		;NO - GO TO ERROR HANDLING
  3118	032567	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3119	032570	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
  3120	032571	254 00 0 00 032575 		JRST	..0146+1  	;YES - DONT DO ERROR HANDLING
  3121									; EXCEPT FOR ERLOOP
  3122
  3123	032572	200 14 0 13 000001 	..0145:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3124	032573	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3125	032574				..0146:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3126	032574	036 14 0 00 041765 
  3127	032575	035 00 0 00 032556 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-19
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0092

  3128					^
  3129					^
  3130						TFLAG	([0],F4)^
  3131
  3132	032576	200 13 0 00 032563 		MOVE	SCR1,FLAGL	;GET FLAGS
  3133	032577	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3134	032600	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3135	032601	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3136	032602	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3137	032603	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3138						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3139
  3140	032604	036 13 0 00 042004 
  3141	032605	035 00 0 00 032556 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3142					^
  3143					^
  3144					;   ************************************************
  3145
  3146
  3147					;   ************************************************
  3148
  3149			032606			LOC=.				;ERROR RETURN ADDRESS
  3150			033307			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3151	032606	200 15 0 00 042007 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3152	032607	120 01 0 00 033307 		DMOVE	AC1,CNUM		;INIT AUGEND
  3153	032610	255 17 0 00 032611 		JFCL	17,.+1			;CLEAR PC FLAGS
  3154	032611	114 01 0 00 033311 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3155						PCSAVE^
  3156	032612	264 00 0 00 032613 		JSR	.+1		;STORE PC
  3157			032613		FLAGL=.				;LOCATION OF PC
  3158	032613	000000	000000			0			;PC
  3159					^
  3160						CHECKA	(LOC,F4,-1,-1)^
  3161
  3162	032614	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3163	032615	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3164	032616	254 00 0 00 032622 		JRST	..0147		;NO - GO TO ERROR HANDLING
  3165	032617	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3166	032620	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
  3167	032621	254 00 0 00 032625 		JRST	..0150+1  	;YES - DONT DO ERROR HANDLING
  3168									; EXCEPT FOR ERLOOP
  3169
  3170	032622	200 14 0 13 000001 	..0147:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3171	032623	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3172	032624				..0150:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3173	032624	036 14 0 00 041765 
  3174	032625	035 00 0 00 032606 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3175					^
  3176					^
  3177						TFLAG	([0],F4)^
  3178
  3179	032626	200 13 0 00 032613 		MOVE	SCR1,FLAGL	;GET FLAGS
  3180	032627	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3181	032630	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3182	032631	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-20
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0093

  3183	032632	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3184	032633	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3185						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3186
  3187	032634	036 13 0 00 042010 
  3188	032635	035 00 0 00 032606 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3189					^
  3190					^
  3191					;   ************************************************
  3192
  3193
  3194					;   ************************************************
  3195
  3196			032636			LOC=.				;ERROR RETURN ADDRESS
  3197			033313			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3198	032636	200 15 0 00 042013 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3199	032637	120 01 0 00 033313 		DMOVE	AC1,CNUM		;INIT AUGEND
  3200	032640	255 17 0 00 032641 		JFCL	17,.+1			;CLEAR PC FLAGS
  3201	032641	114 01 0 00 033315 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3202						PCSAVE^
  3203	032642	264 00 0 00 032643 		JSR	.+1		;STORE PC
  3204			032643		FLAGL=.				;LOCATION OF PC
  3205	032643	000000	000000			0			;PC
  3206					^
  3207						CHECKA	(LOC,F4,-1,-1)^
  3208
  3209	032644	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3210	032645	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3211	032646	254 00 0 00 032652 		JRST	..0151		;NO - GO TO ERROR HANDLING
  3212	032647	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3213	032650	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
  3214	032651	254 00 0 00 032655 		JRST	..0152+1  	;YES - DONT DO ERROR HANDLING
  3215									; EXCEPT FOR ERLOOP
  3216
  3217	032652	200 14 0 13 000001 	..0151:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3218	032653	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3219	032654				..0152:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3220	032654	036 14 0 00 041765 
  3221	032655	035 00 0 00 032636 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3222					^
  3223					^
  3224						TFLAG	([0],F4)^
  3225
  3226	032656	200 13 0 00 032643 		MOVE	SCR1,FLAGL	;GET FLAGS
  3227	032657	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3228	032660	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3229	032661	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3230	032662	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3231	032663	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3232						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3233
  3234	032664	036 13 0 00 042014 
  3235	032665	035 00 0 00 032636 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3236					^
  3237					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-21
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0094

  3238					;   ************************************************
  3239
  3240
  3241					;   ************************************************
  3242
  3243			032666			LOC=.				;ERROR RETURN ADDRESS
  3244			033317			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3245	032666	200 15 0 00 042017 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3246	032667	120 01 0 00 033317 		DMOVE	AC1,CNUM		;INIT AUGEND
  3247	032670	255 17 0 00 032671 		JFCL	17,.+1			;CLEAR PC FLAGS
  3248	032671	114 01 0 00 033321 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3249						PCSAVE^
  3250	032672	264 00 0 00 032673 		JSR	.+1		;STORE PC
  3251			032673		FLAGL=.				;LOCATION OF PC
  3252	032673	000000	000000			0			;PC
  3253					^
  3254						CHECKA	(LOC,F4,-1,-1)^
  3255
  3256	032674	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3257	032675	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3258	032676	254 00 0 00 032702 		JRST	..0153		;NO - GO TO ERROR HANDLING
  3259	032677	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3260	032700	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
  3261	032701	254 00 0 00 032705 		JRST	..0154+1  	;YES - DONT DO ERROR HANDLING
  3262									; EXCEPT FOR ERLOOP
  3263
  3264	032702	200 14 0 13 000001 	..0153:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3265	032703	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3266	032704				..0154:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3267	032704	036 14 0 00 041765 
  3268	032705	035 00 0 00 032666 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3269					^
  3270					^
  3271						TFLAG	([0],F4)^
  3272
  3273	032706	200 13 0 00 032673 		MOVE	SCR1,FLAGL	;GET FLAGS
  3274	032707	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3275	032710	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3276	032711	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3277	032712	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3278	032713	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3279						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3280
  3281	032714	036 13 0 00 042020 
  3282	032715	035 00 0 00 032666 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3283					^
  3284					^
  3285					;   ************************************************
  3286
  3287
  3288					;   ************************************************
  3289
  3290			032716			LOC=.				;ERROR RETURN ADDRESS
  3291			033323			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3292	032716	200 15 0 00 042023 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-22
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0095

  3293	032717	120 01 0 00 033323 		DMOVE	AC1,CNUM		;INIT AUGEND
  3294	032720	255 17 0 00 032721 		JFCL	17,.+1			;CLEAR PC FLAGS
  3295	032721	114 01 0 00 033325 		DADD	AC1,CNUM+2		;ADD N + P = -1,-1
  3296						PCSAVE^
  3297	032722	264 00 0 00 032723 		JSR	.+1		;STORE PC
  3298			032723		FLAGL=.				;LOCATION OF PC
  3299	032723	000000	000000			0			;PC
  3300					^
  3301						CHECKA	(LOC,F4,-1,-1)^
  3302
  3303	032724	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3304	032725	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  3305	032726	254 00 0 00 032732 		JRST	..0155		;NO - GO TO ERROR HANDLING
  3306	032727	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3307	032730	316 02 0 00 041442 		CAMN	AC1+1,[-1]	;IS RIGHT HALF CORRECT?
  3308	032731	254 00 0 00 032735 		JRST	..0156+1  	;YES - DONT DO ERROR HANDLING
  3309									; EXCEPT FOR ERLOOP
  3310
  3311	032732	200 14 0 13 000001 	..0155:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3312	032733	200 13 0 13 041615 		MOVE	SCR1,[EXP -1,-1](SCR1)	;GET CORRECT RESULT
  3313	032734				..0156:	ERROR	(LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
  3314	032734	036 14 0 00 041765 
  3315	032735	035 00 0 00 032716 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3316					^
  3317					^
  3318						TFLAG	([0],F4)^
  3319
  3320	032736	200 13 0 00 032723 		MOVE	SCR1,FLAGL	;GET FLAGS
  3321	032737	200 14 0 00 041274 		MOVE	SCR2,[0] 	;SCR2 - CORRECT FLAGS
  3322	032740	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3323	032741	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3324	032742	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3325	032743	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3326						ERROR	(LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3327
  3328	032744	036 13 0 00 042024 
  3329	032745	035 00 0 00 032716 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3330					^
  3331					^
  3332					;   ************************************************
  3333
  3334					; **********************************************************************
  3335					; ----------  DADD - TEST F-5:  N + P = 0,1  ----------
  3336					; **********************************************************************
  3337
  3338			033323			CNUM=ACONF5-4
  3339
  3340						REPEAT	6,<
  3341					;   ************************************************
  3342					
  3343						LOC=.				;ERROR RETURN ADDRESS
  3344						CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3345						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3346						DMOVE	AC1,CNUM		;INIT AUGEND
  3347						JFCL	17,.+1			;CLEAR PC FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-23
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0096

  3348						DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3349						PCSAVE
  3350						CHECKA	(LOC,F5,0,1)
  3351						TFLAG	([^B0110B3],F5)
  3352					;   ************************************************
  3353					>
  3354
  3355					;   ************************************************
  3356
  3357			032746			LOC=.				;ERROR RETURN ADDRESS
  3358			033327			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3359	032746	200 15 0 00 042027 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3360	032747	120 01 0 00 033327 		DMOVE	AC1,CNUM		;INIT AUGEND
  3361	032750	255 17 0 00 032751 		JFCL	17,.+1			;CLEAR PC FLAGS
  3362	032751	114 01 0 00 033331 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3363						PCSAVE^
  3364	032752	264 00 0 00 032753 		JSR	.+1		;STORE PC
  3365			032753		FLAGL=.				;LOCATION OF PC
  3366	032753	000000	000000			0			;PC
  3367					^
  3368						CHECKA	(LOC,F5,0,1)^
  3369
  3370	032754	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3371	032755	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  3372	032756	254 00 0 00 032762 		JRST	..0157		;NO - GO TO ERROR HANDLING
  3373	032757	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3374	032760	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3375	032761	254 00 0 00 032765 		JRST	..0160+1  	;YES - DONT DO ERROR HANDLING
  3376									; EXCEPT FOR ERLOOP
  3377
  3378	032762	200 14 0 13 000001 	..0157:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3379	032763	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
  3380	032764				..0160:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3381	032764	036 14 0 00 042035 
  3382	032765	035 00 0 00 032746 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3383					^
  3384					^
  3385						TFLAG	([^B0110B3],F5)^
  3386
  3387	032766	200 13 0 00 032753 		MOVE	SCR1,FLAGL	;GET FLAGS
  3388	032767	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3389	032770	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3390	032771	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3391	032772	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3392	032773	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3393						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3394
  3395	032774	036 13 0 00 042050 
  3396	032775	035 00 0 00 032746 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3397					^
  3398					^
  3399					;   ************************************************
  3400
  3401
  3402					;   ************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-24
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0097

  3403
  3404			032776			LOC=.				;ERROR RETURN ADDRESS
  3405			033333			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3406	032776	200 15 0 00 042053 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3407	032777	120 01 0 00 033333 		DMOVE	AC1,CNUM		;INIT AUGEND
  3408	033000	255 17 0 00 033001 		JFCL	17,.+1			;CLEAR PC FLAGS
  3409	033001	114 01 0 00 033335 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3410						PCSAVE^
  3411	033002	264 00 0 00 033003 		JSR	.+1		;STORE PC
  3412			033003		FLAGL=.				;LOCATION OF PC
  3413	033003	000000	000000			0			;PC
  3414					^
  3415						CHECKA	(LOC,F5,0,1)^
  3416
  3417	033004	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3418	033005	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  3419	033006	254 00 0 00 033012 		JRST	..0161		;NO - GO TO ERROR HANDLING
  3420	033007	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3421	033010	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3422	033011	254 00 0 00 033015 		JRST	..0162+1  	;YES - DONT DO ERROR HANDLING
  3423									; EXCEPT FOR ERLOOP
  3424
  3425	033012	200 14 0 13 000001 	..0161:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3426	033013	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
  3427	033014				..0162:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3428	033014	036 14 0 00 042035 
  3429	033015	035 00 0 00 032776 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3430					^
  3431					^
  3432						TFLAG	([^B0110B3],F5)^
  3433
  3434	033016	200 13 0 00 033003 		MOVE	SCR1,FLAGL	;GET FLAGS
  3435	033017	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3436	033020	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3437	033021	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3438	033022	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3439	033023	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3440						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3441
  3442	033024	036 13 0 00 042054 
  3443	033025	035 00 0 00 032776 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3444					^
  3445					^
  3446					;   ************************************************
  3447
  3448
  3449					;   ************************************************
  3450
  3451			033026			LOC=.				;ERROR RETURN ADDRESS
  3452			033337			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3453	033026	200 15 0 00 042057 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3454	033027	120 01 0 00 033337 		DMOVE	AC1,CNUM		;INIT AUGEND
  3455	033030	255 17 0 00 033031 		JFCL	17,.+1			;CLEAR PC FLAGS
  3456	033031	114 01 0 00 033341 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3457						PCSAVE^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-25
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0098

  3458	033032	264 00 0 00 033033 		JSR	.+1		;STORE PC
  3459			033033		FLAGL=.				;LOCATION OF PC
  3460	033033	000000	000000			0			;PC
  3461					^
  3462						CHECKA	(LOC,F5,0,1)^
  3463
  3464	033034	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3465	033035	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  3466	033036	254 00 0 00 033042 		JRST	..0163		;NO - GO TO ERROR HANDLING
  3467	033037	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3468	033040	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3469	033041	254 00 0 00 033045 		JRST	..0164+1  	;YES - DONT DO ERROR HANDLING
  3470									; EXCEPT FOR ERLOOP
  3471
  3472	033042	200 14 0 13 000001 	..0163:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3473	033043	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
  3474	033044				..0164:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3475	033044	036 14 0 00 042035 
  3476	033045	035 00 0 00 033026 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3477					^
  3478					^
  3479						TFLAG	([^B0110B3],F5)^
  3480
  3481	033046	200 13 0 00 033033 		MOVE	SCR1,FLAGL	;GET FLAGS
  3482	033047	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3483	033050	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3484	033051	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3485	033052	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3486	033053	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3487						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3488
  3489	033054	036 13 0 00 042060 
  3490	033055	035 00 0 00 033026 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3491					^
  3492					^
  3493					;   ************************************************
  3494
  3495
  3496					;   ************************************************
  3497
  3498			033056			LOC=.				;ERROR RETURN ADDRESS
  3499			033343			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3500	033056	200 15 0 00 042063 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3501	033057	120 01 0 00 033343 		DMOVE	AC1,CNUM		;INIT AUGEND
  3502	033060	255 17 0 00 033061 		JFCL	17,.+1			;CLEAR PC FLAGS
  3503	033061	114 01 0 00 033345 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3504						PCSAVE^
  3505	033062	264 00 0 00 033063 		JSR	.+1		;STORE PC
  3506			033063		FLAGL=.				;LOCATION OF PC
  3507	033063	000000	000000			0			;PC
  3508					^
  3509						CHECKA	(LOC,F5,0,1)^
  3510
  3511	033064	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3512	033065	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-26
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0099

  3513	033066	254 00 0 00 033072 		JRST	..0165		;NO - GO TO ERROR HANDLING
  3514	033067	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3515	033070	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3516	033071	254 00 0 00 033075 		JRST	..0166+1  	;YES - DONT DO ERROR HANDLING
  3517									; EXCEPT FOR ERLOOP
  3518
  3519	033072	200 14 0 13 000001 	..0165:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3520	033073	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
  3521	033074				..0166:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3522	033074	036 14 0 00 042035 
  3523	033075	035 00 0 00 033056 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3524					^
  3525					^
  3526						TFLAG	([^B0110B3],F5)^
  3527
  3528	033076	200 13 0 00 033063 		MOVE	SCR1,FLAGL	;GET FLAGS
  3529	033077	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3530	033100	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3531	033101	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3532	033102	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3533	033103	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3534						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3535
  3536	033104	036 13 0 00 042064 
  3537	033105	035 00 0 00 033056 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3538					^
  3539					^
  3540					;   ************************************************
  3541
  3542
  3543					;   ************************************************
  3544
  3545			033106			LOC=.				;ERROR RETURN ADDRESS
  3546			033347			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3547	033106	200 15 0 00 042067 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3548	033107	120 01 0 00 033347 		DMOVE	AC1,CNUM		;INIT AUGEND
  3549	033110	255 17 0 00 033111 		JFCL	17,.+1			;CLEAR PC FLAGS
  3550	033111	114 01 0 00 033351 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3551						PCSAVE^
  3552	033112	264 00 0 00 033113 		JSR	.+1		;STORE PC
  3553			033113		FLAGL=.				;LOCATION OF PC
  3554	033113	000000	000000			0			;PC
  3555					^
  3556						CHECKA	(LOC,F5,0,1)^
  3557
  3558	033114	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3559	033115	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  3560	033116	254 00 0 00 033122 		JRST	..0167		;NO - GO TO ERROR HANDLING
  3561	033117	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3562	033120	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3563	033121	254 00 0 00 033125 		JRST	..0170+1  	;YES - DONT DO ERROR HANDLING
  3564									; EXCEPT FOR ERLOOP
  3565
  3566	033122	200 14 0 13 000001 	..0167:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3567	033123	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-27
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0100

  3568	033124				..0170:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3569	033124	036 14 0 00 042035 
  3570	033125	035 00 0 00 033106 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3571					^
  3572					^
  3573						TFLAG	([^B0110B3],F5)^
  3574
  3575	033126	200 13 0 00 033113 		MOVE	SCR1,FLAGL	;GET FLAGS
  3576	033127	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3577	033130	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3578	033131	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3579	033132	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3580	033133	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3581						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3582
  3583	033134	036 13 0 00 042070 
  3584	033135	035 00 0 00 033106 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3585					^
  3586					^
  3587					;   ************************************************
  3588
  3589
  3590					;   ************************************************
  3591
  3592			033136			LOC=.				;ERROR RETURN ADDRESS
  3593			033353			CNUM=CNUM+4			;ADDRESS OF TEST DATA
  3594	033136	200 15 0 00 042073 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3595	033137	120 01 0 00 033353 		DMOVE	AC1,CNUM		;INIT AUGEND
  3596	033140	255 17 0 00 033141 		JFCL	17,.+1			;CLEAR PC FLAGS
  3597	033141	114 01 0 00 033355 		DADD	AC1,CNUM+2		;ADD N + P = 0,1
  3598						PCSAVE^
  3599	033142	264 00 0 00 033143 		JSR	.+1		;STORE PC
  3600			033143		FLAGL=.				;LOCATION OF PC
  3601	033143	000000	000000			0			;PC
  3602					^
  3603						CHECKA	(LOC,F5,0,1)^
  3604
  3605	033144	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3606	033145	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  3607	033146	254 00 0 00 033152 		JRST	..0171		;NO - GO TO ERROR HANDLING
  3608	033147	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3609	033150	316 02 0 00 041403 		CAMN	AC1+1,[1]	;IS RIGHT HALF CORRECT?
  3610	033151	254 00 0 00 033155 		JRST	..0172+1  	;YES - DONT DO ERROR HANDLING
  3611									; EXCEPT FOR ERLOOP
  3612
  3613	033152	200 14 0 13 000001 	..0171:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3614	033153	200 13 0 13 041402 		MOVE	SCR1,[EXP 0,1](SCR1)	;GET CORRECT RESULT
  3615	033154				..0172:	ERROR	(LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
  3616	033154	036 14 0 00 042035 
  3617	033155	035 00 0 00 033136 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3618					^
  3619					^
  3620						TFLAG	([^B0110B3],F5)^
  3621
  3622	033156	200 13 0 00 033143 		MOVE	SCR1,FLAGL	;GET FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 8-28
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0101

  3623	033157	200 14 0 00 041645 		MOVE	SCR2,[^B0110B3] 	;SCR2 - CORRECT FLAGS
  3624	033160	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3625	033161	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3626	033162	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3627	033163	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3628						ERROR	(LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3629
  3630	033164	036 13 0 00 042074 
  3631	033165	035 00 0 00 033136 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3632					^
  3633					^
  3634					;   ************************************************
  3635
  3636	033166	254 00 0 00 033357 		JRST	AENDF			;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 9
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0102

  3637
  3638	033167	000000	000000		ACONF1:	EXP	0,0,0,1B0+1
  3639	033170	000000	000000
  3640	033171	000000	000000
  3641	033172	400000	000001
  3642	033173	000000	000000			EXP	0,1B0,0,1
  3643	033174	400000	000000
  3644	033175	000000	000000
  3645	033176	000000	000001
  3646	033177	000000	000000			EXP	0,1B0,0,1B0+1
  3647	033200	400000	000000
  3648	033201	000000	000000
  3649	033202	400000	000001
  3650	033203	000000	000000			EXP	0,0,-1,377777777777
  3651	033204	000000	000000
  3652	033205	777777	777777
  3653	033206	377777	777777
  3654	033207	000000	000000			EXP	0,1B0,-1,377777777777
  3655	033210	400000	000000
  3656	033211	777777	777777
  3657	033212	377777	777777
  3658	033213	000000	000000			EXP	0,1B0,-1,-1
  3659	033214	400000	000000
  3660	033215	777777	777777
  3661	033216	777777	777777
  3662	033217	777777	777777		ACONF2:	EXP	-1,377777777777,-2,-1
  3663	033220	377777	777777
  3664	033221	777777	777776
  3665	033222	777777	777777
  3666	033223	777777	777777			EXP	-1,377777777777,-2,377777777777
  3667	033224	377777	777777
  3668	033225	777777	777776
  3669	033226	377777	777777
  3670	033227	777777	777777			EXP	-1,-1,-2,377777777777
  3671	033230	777777	777777
  3672	033231	777777	777776
  3673	033232	377777	777777
  3674	033233	777777	777776			EXP	-2,-1,-1,377777777777
  3675	033234	777777	777777
  3676	033235	777777	777777
  3677	033236	377777	777777
  3678	033237	777777	777776			EXP	-2,377777777777,-1,377777777777
  3679	033240	377777	777777
  3680	033241	777777	777777
  3681	033242	377777	777777
  3682	033243	777777	777776			EXP	-2,377777777777,-1,-1
  3683	033244	377777	777777
  3684	033245	777777	777777
  3685	033246	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 10
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0103

  3686
  3687	033247	000000	000000		ACONF3:	EXP	0,1B0+1,1,0
  3688	033250	400000	000001
  3689	033251	000000	000001
  3690	033252	000000	000000
  3691	033253	000000	000000			EXP	0,1B0+1,1,1B0
  3692	033254	400000	000001
  3693	033255	000000	000001
  3694	033256	400000	000000
  3695	033257	000000	000000			EXP	0,1,1,1B0
  3696	033260	000000	000001
  3697	033261	000000	000001
  3698	033262	400000	000000
  3699	033263	000000	000001			EXP	1,0,0,1B0+1
  3700	033264	000000	000000
  3701	033265	000000	000000
  3702	033266	400000	000001
  3703	033267	000000	000001			EXP	1,1B0,0,1B0+1
  3704	033270	400000	000000
  3705	033271	000000	000000
  3706	033272	400000	000001
  3707	033273	000000	000001			EXP	1,1B0,0,1
  3708	033274	400000	000000
  3709	033275	000000	000000
  3710	033276	000000	000001
  3711	033277	777777	777777		ACONF4:	EXP	-1,377777777776,0,1
  3712	033300	377777	777776
  3713	033301	000000	000000
  3714	033302	000000	000001
  3715	033303	777777	777777			EXP	-1,377777777776,0,1B0+1
  3716	033304	377777	777776
  3717	033305	000000	000000
  3718	033306	400000	000001
  3719	033307	777777	777777			EXP	-1,-2,0,1B0+1
  3720	033310	777777	777776
  3721	033311	000000	000000
  3722	033312	400000	000001
  3723	033313	000000	000000			EXP	0,1,-1,377777777776
  3724	033314	000000	000001
  3725	033315	777777	777777
  3726	033316	377777	777776
  3727	033317	000000	000000			EXP	0,1B0+1,-1,377777777776
  3728	033320	400000	000001
  3729	033321	777777	777777
  3730	033322	377777	777776
  3731	033323	000000	000000			EXP	0,1B0+1,-1,-2
  3732	033324	400000	000001
  3733	033325	777777	777777
  3734	033326	777777	777776
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 11
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST F                                                                      SEQ 0104

  3735
  3736	033327	777777	777777		ACONF5:	EXP	-1,377777777777,0,2
  3737	033330	377777	777777
  3738	033331	000000	000000
  3739	033332	000000	000002
  3740	033333	777777	777777			EXP	-1,377777777777,0,1B0+2
  3741	033334	377777	777777
  3742	033335	000000	000000
  3743	033336	400000	000002
  3744	033337	777777	777777			EXP	-1,-1,0,1B0+2
  3745	033340	777777	777777
  3746	033341	000000	000000
  3747	033342	400000	000002
  3748	033343	000000	000000			EXP	0,2,-1,377777777777
  3749	033344	000000	000002
  3750	033345	777777	777777
  3751	033346	377777	777777
  3752	033347	000000	000000			EXP	0,1B0+2,-1,377777777777
  3753	033350	400000	000002
  3754	033351	777777	777777
  3755	033352	377777	777777
  3756	033353	000000	000000			EXP	0,1B0+2,-1,-1
  3757	033354	400000	000002
  3758	033355	777777	777777
  3759	033356	777777	777777
  3760	033357				AENDF:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0105

  3761					SUBTTL	DADD - TEST G
  3762
  3763					; **********************************************************************
  3764					;*DADD - TEST G
  3765					;*
  3766					;*	2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET)
  3767					;*	(2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET)
  3768					;*	-2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET)
  3769					;*	(-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET)
  3770					;*
  3771					;*	THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV &
  3772					;*	CARRY 0 FLAGS.  CHECKED FOR BITS 0,34,36,70.
  3773					; **********************************************************************
  3774
  3775					; **********************************************************************
  3776					;*	THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES.  THE FIRST
  3777					;*	  4 TESTS FLOAT A 1 ACROSS A  DOUBLEWORD  IN BITS 0,35,36,71.
  3778					;*	  THIS NUMBER IS THEN ADDED TO THE SMALLEST  POSITIVE INTEGER
  3779					;*	  WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD
  3780					;*	  OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET.
  3781					;*	  THE NEXT 4 TESTS FLOAT A 0 ACROSS A  DOUBLEWORD  IN BITS 1,
  3782					;*	  35,36,71 (A NEGATIVE NUMBER).   THIS NUMBER IS ADDED TO THE
  3783					;*	  SMALLEST  NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW -
  3784					;*	  THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT -
  3785					;*	  WITH OVERFLOW AND CARRY 0 SET.
  3786					;*	  THE DOUBLEWORDS  USED IN THIS  TEST ARE LOCATED IN THE LIST
  3787					;*	  'CONST2'.
  3788					; **********************************************************************
  3789
  3790			033652			CNUM=ACONG-6			;POINTER TO THE DOUBLEWORDS IN
  3791										;  THE RESULT
  3792		500000	000000			FLAGS=^B1010B3			;AROV,CRY0,CRY1,FOV
  3793
  3794						REPEAT	^D8,<
  3795					;   ************************************************
  3796					
  3797						CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  3798						LOC=.				;ERROR LOOP RETURN ADDRESS
  3799						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  3800						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3801						DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  3802						JFCL	17,.+1			;CLEAR PC FLAGS
  3803						DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  3804						PCSAVE
  3805						CHECKB	(LOC,G,CNUM+4)
  3806						TFLAG	([FLAGS],G)
  3807					;   ************************************************
  3808					>
  3809
  3810					;   ************************************************
  3811
  3812			033660			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  3813			033357			LOC=.				;ERROR LOOP RETURN ADDRESS
  3814						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  3815	033357	200 15 0 00 042077 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-1
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0106

  3816	033360	120 01 0 00 033660 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  3817	033361	255 17 0 00 033362 		JFCL	17,.+1			;CLEAR PC FLAGS
  3818	033362	114 01 0 00 033662 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  3819						PCSAVE^
  3820	033363	264 00 0 00 033364 		JSR	.+1		;STORE PC
  3821			033364		FLAGL=.				;LOCATION OF PC
  3822	033364	000000	000000			0			;PC
  3823					^
  3824						CHECKB	(LOC,G,CNUM+4)^
  3825
  3826	033365	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3827	033366	312 01 0 00 033664 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  3828	033367	254 00 0 00 033373 		JRST	..0173		;NO - GO TO ERROR HANDLING
  3829	033370	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3830	033371	316 02 0 00 033665 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  3831	033372	254 00 0 00 033376 		JRST	..0174+1  	;YES - DONT DO ERROR HANDLING
  3832									;	EXCEPT FOR ERLOOP
  3833
  3834	033373	200 14 0 13 000001 	..0173:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3835	033374	200 13 0 13 033664 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  3836	033375				..0174:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  3837	033375	036 14 0 00 042105 
  3838	033376	035 00 0 00 033357 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3839					^
  3840					^
  3841						TFLAG	([FLAGS],G)^
  3842
  3843	033377	200 13 0 00 033364 		MOVE	SCR1,FLAGL	;GET FLAGS
  3844	033400	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  3845	033401	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3846	033402	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3847	033403	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3848	033404	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3849						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3850	033405	036 13 0 00 042120 
  3851	033406	035 00 0 00 033357 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3852					^
  3853					^
  3854					;   ************************************************
  3855
  3856
  3857					;   ************************************************
  3858
  3859			033666			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  3860			033407			LOC=.				;ERROR LOOP RETURN ADDRESS
  3861						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  3862	033407	200 15 0 00 042123 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3863	033410	120 01 0 00 033666 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  3864	033411	255 17 0 00 033412 		JFCL	17,.+1			;CLEAR PC FLAGS
  3865	033412	114 01 0 00 033670 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  3866						PCSAVE^
  3867	033413	264 00 0 00 033414 		JSR	.+1		;STORE PC
  3868			033414		FLAGL=.				;LOCATION OF PC
  3869	033414	000000	000000			0			;PC
  3870					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-2
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0107

  3871						CHECKB	(LOC,G,CNUM+4)^
  3872
  3873	033415	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3874	033416	312 01 0 00 033672 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  3875	033417	254 00 0 00 033423 		JRST	..0175		;NO - GO TO ERROR HANDLING
  3876	033420	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3877	033421	316 02 0 00 033673 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  3878	033422	254 00 0 00 033426 		JRST	..0176+1  	;YES - DONT DO ERROR HANDLING
  3879									;	EXCEPT FOR ERLOOP
  3880
  3881	033423	200 14 0 13 000001 	..0175:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3882	033424	200 13 0 13 033672 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  3883	033425				..0176:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  3884	033425	036 14 0 00 042105 
  3885	033426	035 00 0 00 033407 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3886					^
  3887					^
  3888						TFLAG	([FLAGS],G)^
  3889
  3890	033427	200 13 0 00 033414 		MOVE	SCR1,FLAGL	;GET FLAGS
  3891	033430	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  3892	033431	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3893	033432	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3894	033433	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3895	033434	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3896						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3897	033435	036 13 0 00 042124 
  3898	033436	035 00 0 00 033407 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3899					^
  3900					^
  3901					;   ************************************************
  3902
  3903
  3904					;   ************************************************
  3905
  3906			033674			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  3907			033437			LOC=.				;ERROR LOOP RETURN ADDRESS
  3908						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  3909	033437	200 15 0 00 042127 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3910	033440	120 01 0 00 033674 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  3911	033441	255 17 0 00 033442 		JFCL	17,.+1			;CLEAR PC FLAGS
  3912	033442	114 01 0 00 033676 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  3913						PCSAVE^
  3914	033443	264 00 0 00 033444 		JSR	.+1		;STORE PC
  3915			033444		FLAGL=.				;LOCATION OF PC
  3916	033444	000000	000000			0			;PC
  3917					^
  3918						CHECKB	(LOC,G,CNUM+4)^
  3919
  3920	033445	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3921	033446	312 01 0 00 033700 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  3922	033447	254 00 0 00 033453 		JRST	..0177		;NO - GO TO ERROR HANDLING
  3923	033450	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3924	033451	316 02 0 00 033701 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  3925	033452	254 00 0 00 033456 		JRST	..0200+1  	;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-3
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0108

  3926									;	EXCEPT FOR ERLOOP
  3927
  3928	033453	200 14 0 13 000001 	..0177:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3929	033454	200 13 0 13 033700 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  3930	033455				..0200:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  3931	033455	036 14 0 00 042105 
  3932	033456	035 00 0 00 033437 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3933					^
  3934					^
  3935						TFLAG	([FLAGS],G)^
  3936
  3937	033457	200 13 0 00 033444 		MOVE	SCR1,FLAGL	;GET FLAGS
  3938	033460	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  3939	033461	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3940	033462	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3941	033463	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3942	033464	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3943						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3944	033465	036 13 0 00 042130 
  3945	033466	035 00 0 00 033437 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3946					^
  3947					^
  3948					;   ************************************************
  3949
  3950
  3951					;   ************************************************
  3952
  3953			033702			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  3954			033467			LOC=.				;ERROR LOOP RETURN ADDRESS
  3955						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  3956	033467	200 15 0 00 042133 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  3957	033470	120 01 0 00 033702 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  3958	033471	255 17 0 00 033472 		JFCL	17,.+1			;CLEAR PC FLAGS
  3959	033472	114 01 0 00 033704 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  3960						PCSAVE^
  3961	033473	264 00 0 00 033474 		JSR	.+1		;STORE PC
  3962			033474		FLAGL=.				;LOCATION OF PC
  3963	033474	000000	000000			0			;PC
  3964					^
  3965						CHECKB	(LOC,G,CNUM+4)^
  3966
  3967	033475	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  3968	033476	312 01 0 00 033706 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  3969	033477	254 00 0 00 033503 		JRST	..0201		;NO - GO TO ERROR HANDLING
  3970	033500	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  3971	033501	316 02 0 00 033707 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  3972	033502	254 00 0 00 033506 		JRST	..0202+1  	;YES - DONT DO ERROR HANDLING
  3973									;	EXCEPT FOR ERLOOP
  3974
  3975	033503	200 14 0 13 000001 	..0201:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  3976	033504	200 13 0 13 033706 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  3977	033505				..0202:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  3978	033505	036 14 0 00 042105 
  3979	033506	035 00 0 00 033467 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3980					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-4
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0109

  3981					^
  3982						TFLAG	([FLAGS],G)^
  3983
  3984	033507	200 13 0 00 033474 		MOVE	SCR1,FLAGL	;GET FLAGS
  3985	033510	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  3986	033511	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  3987	033512	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  3988	033513	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  3989	033514	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  3990						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  3991	033515	036 13 0 00 042134 
  3992	033516	035 00 0 00 033467 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  3993					^
  3994					^
  3995					;   ************************************************
  3996
  3997
  3998					;   ************************************************
  3999
  4000			033710			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  4001			033517			LOC=.				;ERROR LOOP RETURN ADDRESS
  4002		600000	000000			IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  4003	033517	200 15 0 00 042137 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  4004	033520	120 01 0 00 033710 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  4005	033521	255 17 0 00 033522 		JFCL	17,.+1			;CLEAR PC FLAGS
  4006	033522	114 01 0 00 033712 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  4007						PCSAVE^
  4008	033523	264 00 0 00 033524 		JSR	.+1		;STORE PC
  4009			033524		FLAGL=.				;LOCATION OF PC
  4010	033524	000000	000000			0			;PC
  4011					^
  4012						CHECKB	(LOC,G,CNUM+4)^
  4013
  4014	033525	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4015	033526	312 01 0 00 033714 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  4016	033527	254 00 0 00 033533 		JRST	..0203		;NO - GO TO ERROR HANDLING
  4017	033530	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4018	033531	316 02 0 00 033715 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  4019	033532	254 00 0 00 033536 		JRST	..0204+1  	;YES - DONT DO ERROR HANDLING
  4020									;	EXCEPT FOR ERLOOP
  4021
  4022	033533	200 14 0 13 000001 	..0203:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4023	033534	200 13 0 13 033714 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4024	033535				..0204:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  4025	033535	036 14 0 00 042105 
  4026	033536	035 00 0 00 033517 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4027					^
  4028					^
  4029						TFLAG	([FLAGS],G)^
  4030
  4031	033537	200 13 0 00 033524 		MOVE	SCR1,FLAGL	;GET FLAGS
  4032	033540	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  4033	033541	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  4034	033542	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  4035	033543	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-5
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0110

  4036	033544	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  4037						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  4038	033545	036 13 0 00 042141 
  4039	033546	035 00 0 00 033517 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4040					^
  4041					^
  4042					;   ************************************************
  4043
  4044
  4045					;   ************************************************
  4046
  4047			033716			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  4048			033547			LOC=.				;ERROR LOOP RETURN ADDRESS
  4049						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  4050	033547	200 15 0 00 042144 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  4051	033550	120 01 0 00 033716 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  4052	033551	255 17 0 00 033552 		JFCL	17,.+1			;CLEAR PC FLAGS
  4053	033552	114 01 0 00 033720 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  4054						PCSAVE^
  4055	033553	264 00 0 00 033554 		JSR	.+1		;STORE PC
  4056			033554		FLAGL=.				;LOCATION OF PC
  4057	033554	000000	000000			0			;PC
  4058					^
  4059						CHECKB	(LOC,G,CNUM+4)^
  4060
  4061	033555	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4062	033556	312 01 0 00 033722 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  4063	033557	254 00 0 00 033563 		JRST	..0205		;NO - GO TO ERROR HANDLING
  4064	033560	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4065	033561	316 02 0 00 033723 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  4066	033562	254 00 0 00 033566 		JRST	..0206+1  	;YES - DONT DO ERROR HANDLING
  4067									;	EXCEPT FOR ERLOOP
  4068
  4069	033563	200 14 0 13 000001 	..0205:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4070	033564	200 13 0 13 033722 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4071	033565				..0206:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  4072	033565	036 14 0 00 042105 
  4073	033566	035 00 0 00 033547 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4074					^
  4075					^
  4076						TFLAG	([FLAGS],G)^
  4077
  4078	033567	200 13 0 00 033554 		MOVE	SCR1,FLAGL	;GET FLAGS
  4079	033570	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  4080	033571	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  4081	033572	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  4082	033573	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  4083	033574	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  4084						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  4085	033575	036 13 0 00 042145 
  4086	033576	035 00 0 00 033547 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4087					^
  4088					^
  4089					;   ************************************************
  4090
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-6
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0111

  4091
  4092					;   ************************************************
  4093
  4094			033724			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  4095			033577			LOC=.				;ERROR LOOP RETURN ADDRESS
  4096						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  4097	033577	200 15 0 00 042150 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  4098	033600	120 01 0 00 033724 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
  4099	033601	255 17 0 00 033602 		JFCL	17,.+1			;CLEAR PC FLAGS
  4100	033602	114 01 0 00 033726 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  4101						PCSAVE^
  4102	033603	264 00 0 00 033604 		JSR	.+1		;STORE PC
  4103			033604		FLAGL=.				;LOCATION OF PC
  4104	033604	000000	000000			0			;PC
  4105					^
  4106						CHECKB	(LOC,G,CNUM+4)^
  4107
  4108	033605	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4109	033606	312 01 0 00 033730 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  4110	033607	254 00 0 00 033613 		JRST	..0207		;NO - GO TO ERROR HANDLING
  4111	033610	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4112	033611	316 02 0 00 033731 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  4113	033612	254 00 0 00 033616 		JRST	..0210+1  	;YES - DONT DO ERROR HANDLING
  4114									;	EXCEPT FOR ERLOOP
  4115
  4116	033613	200 14 0 13 000001 	..0207:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4117	033614	200 13 0 13 033730 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4118	033615				..0210:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  4119	033615	036 14 0 00 042105 
  4120	033616	035 00 0 00 033577 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4121					^
  4122					^
  4123						TFLAG	([FLAGS],G)^
  4124
  4125	033617	200 13 0 00 033604 		MOVE	SCR1,FLAGL	;GET FLAGS
  4126	033620	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  4127	033621	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  4128	033622	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  4129	033623	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  4130	033624	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  4131						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  4132	033625	036 13 0 00 042151 
  4133	033626	035 00 0 00 033577 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4134					^
  4135					^
  4136					;   ************************************************
  4137
  4138
  4139					;   ************************************************
  4140
  4141			033732			CNUM=CNUM+6			;CNUM POINTS TO THE TEST DATA
  4142			033627			LOC=.				;ERROR LOOP RETURN ADDRESS
  4143						IFE	ACONG-CNUM+^D24,<FLAGS=^B1100B3>  ;FLAGS FOR SECOND 4 CASES
  4144	033627	200 15 0 00 042154 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  4145	033630	120 01 0 00 033732 		DMOVE	AC1,CNUM		;INIT AUGEND TO FLOATING 0/1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 12-7
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0112

  4146	033631	255 17 0 00 033632 		JFCL	17,.+1			;CLEAR PC FLAGS
  4147	033632	114 01 0 00 033734 		DADD	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  4148						PCSAVE^
  4149	033633	264 00 0 00 033634 		JSR	.+1		;STORE PC
  4150			033634		FLAGL=.				;LOCATION OF PC
  4151	033634	000000	000000			0			;PC
  4152					^
  4153						CHECKB	(LOC,G,CNUM+4)^
  4154
  4155	033635	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4156	033636	312 01 0 00 033736 		CAME	AC1,CNUM+4		;IS LEFT HALF OF RESULT CORRECT?
  4157	033637	254 00 0 00 033643 		JRST	..0211		;NO - GO TO ERROR HANDLING
  4158	033640	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4159	033641	316 02 0 00 033737 		CAMN	AC1+1,CNUM+4+1	;IS RIGHT HALF CORRECT?
  4160	033642	254 00 0 00 033646 		JRST	..0212+1  	;YES - DONT DO ERROR HANDLING
  4161									;	EXCEPT FOR ERLOOP
  4162
  4163	033643	200 14 0 13 000001 	..0211:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4164	033644	200 13 0 13 033736 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4165	033645				..0212:	ERROR	(LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
  4166	033645	036 14 0 00 042105 
  4167	033646	035 00 0 00 033627 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4168					^
  4169					^
  4170						TFLAG	([FLAGS],G)^
  4171
  4172	033647	200 13 0 00 033634 		MOVE	SCR1,FLAGL	;GET FLAGS
  4173	033650	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  4174	033651	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  4175	033652	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  4176	033653	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  4177	033654	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  4178						ERROR	(LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
  4179	033655	036 13 0 00 042155 
  4180	033656	035 00 0 00 033627 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4181					^
  4182					^
  4183					;   ************************************************
  4184
  4185	033657	254 00 0 00 033740 		JRST	AENDG			;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 13
DFKCBM	MAC	26-Sep-79 16:11		DADD - TEST G                                                                      SEQ 0113

  4186
  4187					; **********************************************************************
  4188					;	8 SETS OF 3 DOUBLEWORDS (AUDEND,ADDEND,RESULT)
  4189					; **********************************************************************
  4190
  4191	033660	200000	000000		ACONG:	EXP	1B1,0,1B1,0,1B0,1B0
  4192	033661	000000	000000
  4193	033662	200000	000000
  4194	033663	000000	000000
  4195	033664	400000	000000
  4196	033665	400000	000000
  4197	033666	000000	000001			EXP	1,0,377777777777,0,1B0,1B0
  4198	033667	000000	000000
  4199	033670	377777	777777
  4200	033671	000000	000000
  4201	033672	400000	000000
  4202	033673	400000	000000
  4203	033674	000000	000000			EXP	0,1B1,377777777777,1B1,1B0,1B0
  4204	033675	200000	000000
  4205	033676	377777	777777
  4206	033677	200000	000000
  4207	033700	400000	000000
  4208	033701	400000	000000
  4209	033702	000000	000000			EXP	0,1,377777777777,377777777777,1B0,1B0
  4210	033703	000000	000001
  4211	033704	377777	777777
  4212	033705	377777	777777
  4213	033706	400000	000000
  4214	033707	400000	000000
  4215	033710	400000	000000			EXP	1B0,1B0,-1,-1,377777777777,377777777777
  4216	033711	400000	000000
  4217	033712	777777	777777
  4218	033713	777777	777777
  4219	033714	377777	777777
  4220	033715	377777	777777
  4221	033716	400000	000000			EXP	1B0,-1,-1,1B0,377777777777,377777777777
  4222	033717	777777	777777
  4223	033720	777777	777777
  4224	033721	400000	000000
  4225	033722	377777	777777
  4226	033723	377777	777777
  4227	033724	400000	000001			EXP	1B0+1,1B0,-2,1B0,377777777777,0
  4228	033725	400000	000000
  4229	033726	777777	777776
  4230	033727	400000	000000
  4231	033730	377777	777777
  4232	033731	000000	000000
  4233	033732	777777	777777			EXP	-1,-1,1B0,1B0,377777777777,377777777777
  4234	033733	777777	777777
  4235	033734	400000	000000
  4236	033735	400000	000000
  4237	033736	377777	777777
  4238	033737	377777	777777
  4239	033740				AENDG:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 14
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST A                                                                      SEQ 0114

  4240					SUBTTL	DSUB - TEST A
  4241														SALL
  4242			042160			T=SIXBTZ<DSUB TEST>
  4243														LALL
  4244					; **********************************************************************
  4245					;*DSUB - TEST A
  4246					;*
  4247					;*	0,# - 0,0 = 0,#			GENERAL TESTING TO SEE THAT
  4248					;*	#,0 - 0,0 = #,0			DSUB CAN HANDLE DOUBLEWORDS
  4249					;*	#,# - 0,0 = #,#
  4250					;*	0,0 - 0,# = -(0,#)
  4251					;*	0,0 - #,0 = -(#,0)
  4252					;*	0,0 - #,# = -(#,#)
  4253					; **********************************************************************
  4254
  4255					; **********************************************************************
  4256					; ----------  DSUB (0,#) - (0,0) = (0,#)  ----------
  4257					; **********************************************************************
  4258
  4259	033740	200 15 0 00 041300 	STEST1:	MOVE	SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT
  4260	033741	120 01 0 00 041274 		DMOVE	AC1,[EXP 0,NUM]		;INIT MINUEND TO (0,#)
  4261	033742	115 01 0 00 041276 		DSUB	AC1,[EXP 0,0]		;SUB (0,#)-(0,0)
  4262						CHECKS	(STEST1,A1,0,NUM)^
  4263
  4264	033743	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4265	033744	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  4266	033745	254 00 0 00 033751 		JRST	..0213		;NO - GO TO ERROR HANDLING
  4267	033746	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4268	033747	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
  4269	033750	254 00 0 00 033754 		JRST	..0214+1  	;YES - DONT DO ERROR HANDLING
  4270									;	EXCEPT FOR ERLOOP
  4271
  4272	033751	200 14 0 13 000001 	..0213:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4273	033752	200 13 0 13 041274 		MOVE	SCR1,[EXP 0,NUM](SCR1)	;GET CORRECT RESULT
  4274	033753				..0214:	ERROR	(STEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,SPRINT)^SALL
  4275	033753	036 14 0 00 042162 
  4276	033754	035 00 0 00 033740 		ERLOOP	STEST1			;IF ERROR, LOOP TO STEST1
  4277					^
  4278					^
  4279
  4280					; **********************************************************************
  4281					; ----------  DSUB (#,0) - (0,0) = (#,0)  ----------
  4282					; **********************************************************************
  4283
  4284	033755	200 15 0 00 041312 	STEST2:	MOVE	SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR SPRINT
  4285	033756	120 01 0 00 041275 		DMOVE	AC1,[EXP NUM,0]		;INIT MINUEND TO (#,0)
  4286	033757	115 01 0 00 041276 		DSUB	AC1,[EXP 0,0]		;SUB (#,0)-(0,0)
  4287						CHECKS	(STEST2,A2,NUM,0)^
  4288
  4289	033760	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4290	033761	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
  4291	033762	254 00 0 00 033766 		JRST	..0215		;NO - GO TO ERROR HANDLING
  4292	033763	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4293	033764	316 02 0 00 041274 		CAMN	AC1+1,[0]	;IS RIGHT HALF CORRECT?
  4294	033765	254 00 0 00 033771 		JRST	..0216+1  	;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 14-1
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST A                                                                      SEQ 0115

  4295									;	EXCEPT FOR ERLOOP
  4296
  4297	033766	200 14 0 13 000001 	..0215:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4298	033767	200 13 0 13 041275 		MOVE	SCR1,[EXP NUM,0](SCR1)	;GET CORRECT RESULT
  4299	033770				..0216:	ERROR	(STEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,SPRINT)^SALL
  4300	033770	036 14 0 00 042165 
  4301	033771	035 00 0 00 033755 		ERLOOP	STEST2			;IF ERROR, LOOP TO STEST2
  4302					^
  4303					^
  4304
  4305					; **********************************************************************
  4306					; ----------  DSUB (#,#) - (0,0) = (#,#)  ----------
  4307					; **********************************************************************
  4308
  4309	033772	200 15 0 00 041325 	STEST3:	MOVE	SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT
  4310	033773	120 01 0 00 041323 		DMOVE	AC1,[EXP NUM,NUM]	;INIT MINUEND TO (#,#)
  4311	033774	115 01 0 00 041276 		DSUB	AC1,[EXP 0,0]		;SUB (#,#)-(0,0)
  4312						CHECKS	(STEST3,A3,NUM,NUM)^
  4313
  4314	033775	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4315	033776	312 01 0 00 041275 		CAME	AC1,[NUM]	;IS LEFT HALF OF RESULT CORRECT?
  4316	033777	254 00 0 00 034003 		JRST	..0217		;NO - GO TO ERROR HANDLING
  4317	034000	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4318	034001	316 02 0 00 041275 		CAMN	AC1+1,[NUM]	;IS RIGHT HALF CORRECT?
  4319	034002	254 00 0 00 034006 		JRST	..0220+1  	;YES - DONT DO ERROR HANDLING
  4320									;	EXCEPT FOR ERLOOP
  4321
  4322	034003	200 14 0 13 000001 	..0217:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4323	034004	200 13 0 13 041323 		MOVE	SCR1,[EXP NUM,NUM](SCR1)	;GET CORRECT RESULT
  4324	034005				..0220:	ERROR	(STEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,SPRINT)^SALL
  4325	034005	036 14 0 00 042170 
  4326	034006	035 00 0 00 033772 		ERLOOP	STEST3			;IF ERROR, LOOP TO STEST3
  4327					^
  4328					^
  4329
  4330					; **********************************************************************
  4331					; ----------  DSUB (0,0) - (0,#) = (-1,-#)  ----------
  4332					; **********************************************************************
  4333
  4334	034007	200 15 0 00 041336 	STEST4:	MOVE	SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR SPRINT
  4335	034010	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT MINUEND TO (0,0)
  4336	034011	115 01 0 00 041274 		DSUB	AC1,[EXP 0,NUM]		;SUB (0,0) - (0,#)
  4337						CHECKS	(STEST4,A4,-1,-NUM)^
  4338
  4339	034012	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4340	034013	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  4341	034014	254 00 0 00 034020 		JRST	..0221		;NO - GO TO ERROR HANDLING
  4342	034015	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4343	034016	316 02 0 00 042173 		CAMN	AC1+1,[-NUM]	;IS RIGHT HALF CORRECT?
  4344	034017	254 00 0 00 034023 		JRST	..0222+1  	;YES - DONT DO ERROR HANDLING
  4345									;	EXCEPT FOR ERLOOP
  4346
  4347	034020	200 14 0 13 000001 	..0221:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4348	034021	200 13 0 13 042174 		MOVE	SCR1,[EXP -1,-NUM](SCR1)	;GET CORRECT RESULT
  4349	034022				..0222:	ERROR	(STEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,SPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 14-2
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST A                                                                      SEQ 0116

  4350	034022	036 14 0 00 042176 
  4351	034023	035 00 0 00 034007 		ERLOOP	STEST4			;IF ERROR, LOOP TO STEST4
  4352					^
  4353					^
  4354
  4355					; **********************************************************************
  4356					; ----------  DSUB (0,0) - (#,0) = (-#,0)  ----------
  4357					; **********************************************************************
  4358
  4359	034024	200 15 0 00 041347 	STEST5:	MOVE	SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR SPRINT
  4360	034025	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT MINUEND TO (0,0)
  4361	034026	115 01 0 00 041275 		DSUB	AC1,[EXP NUM,0]		;SUB (0,0) - (#,0)
  4362						CHECKS	(STEST5,A5,-NUM,400000000000)^
  4363
  4364	034027	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4365	034030	312 01 0 00 042173 		CAME	AC1,[-NUM]	;IS LEFT HALF OF RESULT CORRECT?
  4366	034031	254 00 0 00 034035 		JRST	..0223		;NO - GO TO ERROR HANDLING
  4367	034032	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4368	034033	316 02 0 00 042201 		CAMN	AC1+1,[400000000000]	;IS RIGHT HALF CORRECT?
  4369	034034	254 00 0 00 034040 		JRST	..0224+1  	;YES - DONT DO ERROR HANDLING
  4370									;	EXCEPT FOR ERLOOP
  4371
  4372	034035	200 14 0 13 000001 	..0223:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4373	034036	200 13 0 13 042202 		MOVE	SCR1,[EXP -NUM,400000000000](SCR1)	;GET CORRECT RESULT
  4374	034037				..0224:	ERROR	(STEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,SPRINT)^SALL
  4375	034037	036 14 0 00 042204 
  4376	034040	035 00 0 00 034024 		ERLOOP	STEST5			;IF ERROR, LOOP TO STEST5
  4377					^
  4378					^
  4379
  4380					; **********************************************************************
  4381					; ----------  DSUB (0,0) - (#,#) = -(#,#)  ----------
  4382					; **********************************************************************
  4383
  4384	034041	200 15 0 00 041360 	STEST6:	MOVE	SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR SPRINT
  4385	034042	403 01 0 00 000002 		SETZB	AC1,AC1+1		;INIT MINUEND TO (0,0)
  4386	034043	115 01 0 00 041323 		DSUB	AC1,[EXP NUM,NUM]	;SUB (0,0)-(#,#)
  4387						CHECKS	(STEST6,A6,-NUM-1,-NUM)^
  4388
  4389	034044	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4390	034045	312 01 0 00 042207 		CAME	AC1,[-NUM-1]	;IS LEFT HALF OF RESULT CORRECT?
  4391	034046	254 00 0 00 034052 		JRST	..0225		;NO - GO TO ERROR HANDLING
  4392	034047	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4393	034050	316 02 0 00 042173 		CAMN	AC1+1,[-NUM]	;IS RIGHT HALF CORRECT?
  4394	034051	254 00 0 00 034055 		JRST	..0226+1  	;YES - DONT DO ERROR HANDLING
  4395									;	EXCEPT FOR ERLOOP
  4396
  4397	034052	200 14 0 13 000001 	..0225:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4398	034053	200 13 0 13 042207 		MOVE	SCR1,[EXP -NUM-1,-NUM](SCR1)	;GET CORRECT RESULT
  4399	034054				..0226:	ERROR	(STEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,SPRINT)^SALL
  4400	034054	036 14 0 00 042211 
  4401	034055	035 00 0 00 034041 		ERLOOP	STEST6			;IF ERROR, LOOP TO STEST6
  4402					^
  4403					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 15
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST B                                                                      SEQ 0117

  4404					SUBTTL	DSUB - TEST B
  4405
  4406					; **********************************************************************
  4407					;*DSUB - TEST B
  4408					;*
  4409					;*	TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND
  4410					;*	SUBTRAHEND -- TEST:
  4411					;*	0,0 - 0,0	0,1 - 0,0	0,-1 - 0,0	....
  4412					;*	0,0 - 0,1	0,1 - 0,1	0,-1 - 0,1	....
  4413					;*	0,0 - 0,-1	0,1 - 0,-1	0,-1 - 0,-1	....
  4414					;*	0,0 - 1,0	  ....		   ....		....
  4415					;*	0,0 - 1,1	  ....		   ....		....
  4416					;*	0,0 - 1,-1	  ....		   ....		....
  4417					;*	0,0 - -1,0	  ....		   ....		....
  4418					;*	0,0 - -1,1	  ....		   ....		....
  4419					;*	0,0 - -1,-1	  ....		   ....		....
  4420					; **********************************************************************
  4421
  4422					; **********************************************************************
  4423					;*     THESE  COMBINATIONS TEST THE ABILITY OF THE  DSUB  TO HANDLE
  4424					;*	BORROWS FROM THE NEXT WORD AND SIGNS CHANGING.  THE RESULT
  4425					;*	IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY
  4426					;*	ARE SET PROPERLY.
  4427					; **********************************************************************
  4428
  4429					; **********************************************************************
  4430					;*PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND
  4431					;*	     (2) LOOP ON MINUEND
  4432					;*	     (3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND
  4433					;*	     (4) LOOP ON SUBTRAHEND
  4434					;*	     (5) CALCULATE THE EXPECTED RESULT OF THE DSUB
  4435					;*	     (6) DO DSUB
  4436					;*	     (7) COMPARE RESULTS - ACTUAL VS. EXPECTED
  4437					;*	     (8) TEST FLAGS
  4438					;*	     (9) CONTINUE AT (4)
  4439					; **********************************************************************
  4440
  4441			000003			MINU=AC1+2			;MINU - POINTS TO MINUEND
  4442			000004			SUBTR=MINU+1			;SUBTR - POINTS TO SUBTRAHEND
  4443			000012			SCR0=SCR0			;SCR0 - SCRATCH ACS
  4444
  4445					; **********************************************************************
  4446					;INITIALIZE LOOPS - OUTERMOST ON MINUEND
  4447					;		    INNERMOST ON SUBTRAHEND
  4448					; **********************************************************************
  4449
  4450	034056	200 03 0 00 042214 		MOVE	MINU,[-^D10,,SUBT-2]	;LEFT HALF - # WORDS IN LIST + 1
  4451										;RIGHT HALF - ADDRESS OF LIST
  4452	034057	350 00 0 00 000003 	OLOOP:	AOS	MINU			;ADD 2 TO ADDRESS (DOUBLEWORD)
  4453	034060	252 03 0 00 034172 		AOBJP	MINU,BDONE		;ALL DONE WHEN COUNT = 0
  4454	034061	552 03 0 00 034170 		HRRZM	MINU,IMINU		;SET UP MINU INDIRECT ADDR
  4455	034062	200 04 0 00 042214 		MOVE	SUBTR,[-^D10,,SUBT-2]	;LEFT HALF - # WORDS IN LIST + 1
  4456										;RIGHT HALF - ADDRESS OF LIST
  4457	034063	350 00 0 00 000004 	ILOOP:	AOS	SUBTR			;ADD 2 TO ADDRESS (DOUBLEWORD)
  4458	034064	252 04 0 00 034057 		AOBJP	SUBTR,OLOOP		;DONE WITH INNER LOOP WHEN COUNT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 15-1
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST B                                                                      SEQ 0118

  4459										; REACHES 0 - BACK TO OUTER LOOP
  4460	034065	552 04 0 00 034171 		HRRZM	SUBTR,ISUBTR		;SET UP SUBTR INDIRECT ADDR
  4461	034066	514 15 0 00 000003 		HRLZ	SCR3,MINU		;SCR3 - ADDR FOR ADDL ERROR PRINT
  4462	034067	540 15 0 00 000004 		HRR	SCR3,SUBTR		;  (MINU,,SUBTR)
  4463
  4464					; **********************************************************************
  4465					;ACTUAL TEST SECTION (STEPS 1-7 OF ABOVE DESCRIPTION)
  4466					; **********************************************************************
  4467
  4468	034070	120 01 1 00 034170 	BTESTB:	DMOVE	AC1,@IMINU		;GET MINUEND
  4469	034071	120 12 1 00 034171 		DMOVE	SCR0,@ISUBTR		;GET SUBTRAHEND TO CALC EXPECTED
  4470	034072	450 12 0 00 000000 		SETCA	SCR0,			;1-S COMPLEMENT OF LEFT WORD
  4471	034073	450 13 0 00 000000 		SETCA	SCR1,			;1-S COMPLEMENT OF RIGHT WORD
  4472	034074	114 12 0 00 000001 		DADD	SCR0,AC1		;RESULT-1 (USED 1'S COMPLEMENT)
  4473	034075	114 12 0 00 041402 		DADD	SCR0,[EXP 0,1]		;GET RESULT
  4474	034076	255 17 0 00 034077 		JFCL	17,.+1			;CLEAR PC FLAGS
  4475	034077	400 14 0 00 000000 		SETZ	SCR2,			;POINTER TO INCORRECT WORD IN RESULT
  4476
  4477	034100	115 01 1 00 034171 		DSUB	AC1,@ISUBTR		;DO THE SUBTRACTION
  4478
  4479						PCSAVE^
  4480	034101	264 00 0 00 034102 		JSR	.+1		;STORE PC
  4481			034102		FLAGL=.				;LOCATION OF PC
  4482	034102	000000	000000			0			;PC
  4483					^
  4484	034103	312 01 0 00 000012 		CAME	AC1,SCR0		;LEFT WORD CORRECT?
  4485	034104	254 00 0 00 034110 		JRST	BERROR
  4486	034105	201 14 0 00 000001 		MOVEI	SCR2,1			;POINTER TO INCORRECT WORD IN RESULT
  4487	034106	316 02 0 00 000013 		CAMN	AC1+1,SCR1		;RIGHT WORD CORRECT?
  4488	034107	254 00 0 00 034114 		JRST	BFLAG			;YES - NOW TEST PC FLAGS
  4489
  4490	034110	200 12 0 14 000012 	BERROR:	MOVE	SCR0,SCR0(SCR2)		;GET CORRECT RESULT FOR ADDL PRINT
  4491	034111	200 13 0 14 000001 		MOVE	SCR1,AC1(SCR2)		;GET ACTUAL (INCORRECT) RESULT
  4492						ERROR	(BTESTB	,14,SCR0,SCR1,,TEST B - RESULT INCORRECT,SPRINT)^SALL
  4493	034112	036 14 0 00 042222 
  4494	034113	035 00 0 00 034070 		ERLOOP	BTESTB				;IF ERROR, LOOP TO BTESTB	
  4495					^
  4496
  4497	034114	550 14 0 00 034102 	BFLAG:	HRRZ	SCR2,FLAGL		;SCR2 - PC WITH 0000 FLAGS
  4498	034115	120 12 1 00 034171 		DMOVE	SCR0,@ISUBTR		;GET SUBTRAHEND
  4499	034116	444 12 1 00 034170 		EQV	SCR0,@IMINU		;LEFT BIT IS 1 IF SIGNS SAME
  4500	034117	603 12 0 00 400000 		TLNE	SCR0,400000		;IS LEFT BIT A 1? (SIGNS SAME)
  4501	034120	254 00 0 00 034125 		JRST	BSAME			;YES - GO COMPARE MINU VS. SUBTR
  4502	034121	331 00 1 00 034170 		SKIPL	@IMINU			;NO - IS MINUEND < 0
  4503	034122	254 00 0 00 034135 		JRST	BDONEI			;NO - CORRECT FLAGS ARE 0000
  4504
  4505	034123	505 14 0 00 300000 	BFSET:	HRLI	SCR2,300000		;YES - CORRECT FLAGS ARE 0110
  4506	034124	254 00 0 00 034135 		JRST	BDONEI			;CORRECT FLAGS CALC IS DONE
  4507
  4508	034125	120 12 1 00 034170 	BSAME:	DMOVE	SCR0,@IMINU		;SIGNS ARE SAME - GET MINUEND
  4509	034126	315 12 1 00 034171 		CAMGE	SCR0,@ISUBTR		;MINUEND >= SUBTRA? (LEFT WORD)
  4510	034127	254 00 0 00 034135 		JRST	BDONEI			;NO - FLAGS ARE 0000
  4511	034130	312 12 1 00 034171 		CAME	SCR0,@ISUBTR		;MINUEND = SUBTRA? (LEFT WORD)
  4512	034131	254 00 0 00 034123 		JRST	BFSET			;NO - MIN > SUBTR - FLAGS 0110
  4513	034132	350 00 0 00 034171 		AOS	ISUBTR			;1ST WORDS ARE = SO LOOK AT 2ND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 15-2
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST B                                                                      SEQ 0119

  4514	034133	311 13 1 00 034171 		CAML	SCR1,@ISUBTR		;MINUEND < SUBTRAHEND?
  4515	034134	254 00 0 00 034123 		JRST	BFSET			;NO - FLAGS ARE 0110
  4516
  4517	034135				BDONEI:	TFLAG	(SCR2,B,SPRINT,BTESTB)^
  4518
  4519	034135	200 13 0 00 034102 		MOVE	SCR1,FLAGL	;GET FLAGS
  4520	034136	200 14 0 00 000014 		MOVE	SCR2,SCR2 	;SCR2 - CORRECT FLAGS
  4521	034137	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  4522	034140	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  4523	034141	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  4524	034142	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  4525						ERROR	(BTESTB,13,SCR2,FLAGL,,TEST B - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SA
  4526					LL
  4527	034143	036 13 0 00 042234 
  4528	034144	035 00 0 00 034070 		ERLOOP	BTESTB			;IF ERROR, LOOP TO BTESTB
  4529					^
  4530					^
  4531	034145	254 00 0 00 034063 		JRST	ILOOP			;END OF TEST - GOTO NEXT ONE
  4532
  4533	034146	000000	000000		SUBT:	EXP	0,0,0,1,0,377777777777
  4534	034147	000000	000000
  4535	034150	000000	000000
  4536	034151	000000	000001
  4537	034152	000000	000000
  4538	034153	377777	777777
  4539	034154	000000	000001			EXP	1,0,1,1,1,377777777777
  4540	034155	000000	000000
  4541	034156	000000	000001
  4542	034157	000000	000001
  4543	034160	000000	000001
  4544	034161	377777	777777
  4545	034162	777777	777777			EXP	-1,1B0,-1,1B0+1,-1,-1
  4546	034163	400000	000000
  4547	034164	777777	777777
  4548	034165	400000	000001
  4549	034166	777777	777777
  4550	034167	777777	777777
  4551	034170	000000	000000		IMINU:	0
  4552	034171	000000	000000		ISUBTR:	0
  4553	034172				BDONE:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0120

  4554					SUBTTL	DSUB - TEST C
  4555
  4556					; **********************************************************************
  4557					;*DSUB - TEST C
  4558					;*
  4559					;*	THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES
  4560					;*	  THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
  4561					;*	  HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT.  THE
  4562					;*	  TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT  SIGNS
  4563					;*	  IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF
  4564					;*	  THE RESULT ARE CORRECT.
  4565					;*
  4566					;*	THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P
  4567					;*				  (2) N - N = P/N
  4568					;*				  (3) P - P = N/P
  4569					;*				  (4) N - P = N/P
  4570					;*				  (5) N - P = N/P
  4571					;*				WHERE N-NEGATIVE NUMBER
  4572					;*				      P-POSITIVE NUMBER
  4573					; **********************************************************************
  4574
  4575					; **********************************************************************
  4576					; ----------  DSUB - TEST C-1:  0 - P/N = N/P  ----------
  4577					; **********************************************************************
  4578
  4579			034773			CNUM=SCONC1-6
  4580
  4581						REPEAT	6,<
  4582					;   ************************************************
  4583					
  4584						LOC=.				;ERROR RETURN ADDRESS
  4585						CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4586						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4587						DMOVE	AC1,CNUM		;INIT MINUEND
  4588						DSUB	AC1,CNUM+2		;SUB N - P
  4589						CHECKT	(LOC,C1,CNUM+4)
  4590					;   ************************************************
  4591					>
  4592
  4593					;   ************************************************
  4594
  4595			034172			LOC=.				;ERROR RETURN ADDRESS
  4596			035001			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4597	034172	200 15 0 00 042237 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4598	034173	120 01 0 00 035001 		DMOVE	AC1,CNUM		;INIT MINUEND
  4599	034174	115 01 0 00 035003 		DSUB	AC1,CNUM+2		;SUB N - P
  4600						CHECKT	(LOC,C1,CNUM+4)^
  4601
  4602	034175	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4603	034176	312 01 0 00 035005 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4604	034177	254 00 0 00 034203 		JRST	..0227		;NO - GO TO ERROR HANDLING
  4605	034200	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4606	034201	316 02 0 00 035006 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4607	034202	254 00 0 00 034206 		JRST	..0230+1  	;YES - DONT DO ERROR HANDLING
  4608									;	EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-1
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0121

  4609
  4610	034203	200 14 0 13 000001 	..0227:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4611	034204	200 13 0 13 035005 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4612	034205				..0230:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4613	034205	036 14 0 00 042245 
  4614	034206	035 00 0 00 034172 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4615					^
  4616					^
  4617					;   ************************************************
  4618
  4619
  4620					;   ************************************************
  4621
  4622			034207			LOC=.				;ERROR RETURN ADDRESS
  4623			035007			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4624	034207	200 15 0 00 042250 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4625	034210	120 01 0 00 035007 		DMOVE	AC1,CNUM		;INIT MINUEND
  4626	034211	115 01 0 00 035011 		DSUB	AC1,CNUM+2		;SUB N - P
  4627						CHECKT	(LOC,C1,CNUM+4)^
  4628
  4629	034212	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4630	034213	312 01 0 00 035013 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4631	034214	254 00 0 00 034220 		JRST	..0231		;NO - GO TO ERROR HANDLING
  4632	034215	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4633	034216	316 02 0 00 035014 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4634	034217	254 00 0 00 034223 		JRST	..0232+1  	;YES - DONT DO ERROR HANDLING
  4635									;	EXCEPT FOR ERLOOP
  4636
  4637	034220	200 14 0 13 000001 	..0231:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4638	034221	200 13 0 13 035013 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4639	034222				..0232:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4640	034222	036 14 0 00 042245 
  4641	034223	035 00 0 00 034207 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4642					^
  4643					^
  4644					;   ************************************************
  4645
  4646
  4647					;   ************************************************
  4648
  4649			034224			LOC=.				;ERROR RETURN ADDRESS
  4650			035015			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4651	034224	200 15 0 00 042251 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4652	034225	120 01 0 00 035015 		DMOVE	AC1,CNUM		;INIT MINUEND
  4653	034226	115 01 0 00 035017 		DSUB	AC1,CNUM+2		;SUB N - P
  4654						CHECKT	(LOC,C1,CNUM+4)^
  4655
  4656	034227	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4657	034230	312 01 0 00 035021 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4658	034231	254 00 0 00 034235 		JRST	..0233		;NO - GO TO ERROR HANDLING
  4659	034232	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4660	034233	316 02 0 00 035022 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4661	034234	254 00 0 00 034240 		JRST	..0234+1  	;YES - DONT DO ERROR HANDLING
  4662									;	EXCEPT FOR ERLOOP
  4663
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-2
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0122

  4664	034235	200 14 0 13 000001 	..0233:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4665	034236	200 13 0 13 035021 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4666	034237				..0234:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4667	034237	036 14 0 00 042245 
  4668	034240	035 00 0 00 034224 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4669					^
  4670					^
  4671					;   ************************************************
  4672
  4673
  4674					;   ************************************************
  4675
  4676			034241			LOC=.				;ERROR RETURN ADDRESS
  4677			035023			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4678	034241	200 15 0 00 042252 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4679	034242	120 01 0 00 035023 		DMOVE	AC1,CNUM		;INIT MINUEND
  4680	034243	115 01 0 00 035025 		DSUB	AC1,CNUM+2		;SUB N - P
  4681						CHECKT	(LOC,C1,CNUM+4)^
  4682
  4683	034244	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4684	034245	312 01 0 00 035027 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4685	034246	254 00 0 00 034252 		JRST	..0235		;NO - GO TO ERROR HANDLING
  4686	034247	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4687	034250	316 02 0 00 035030 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4688	034251	254 00 0 00 034255 		JRST	..0236+1  	;YES - DONT DO ERROR HANDLING
  4689									;	EXCEPT FOR ERLOOP
  4690
  4691	034252	200 14 0 13 000001 	..0235:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4692	034253	200 13 0 13 035027 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4693	034254				..0236:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4694	034254	036 14 0 00 042245 
  4695	034255	035 00 0 00 034241 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4696					^
  4697					^
  4698					;   ************************************************
  4699
  4700
  4701					;   ************************************************
  4702
  4703			034256			LOC=.				;ERROR RETURN ADDRESS
  4704			035031			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4705	034256	200 15 0 00 042253 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4706	034257	120 01 0 00 035031 		DMOVE	AC1,CNUM		;INIT MINUEND
  4707	034260	115 01 0 00 035033 		DSUB	AC1,CNUM+2		;SUB N - P
  4708						CHECKT	(LOC,C1,CNUM+4)^
  4709
  4710	034261	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4711	034262	312 01 0 00 035035 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4712	034263	254 00 0 00 034267 		JRST	..0237		;NO - GO TO ERROR HANDLING
  4713	034264	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4714	034265	316 02 0 00 035036 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4715	034266	254 00 0 00 034272 		JRST	..0240+1  	;YES - DONT DO ERROR HANDLING
  4716									;	EXCEPT FOR ERLOOP
  4717
  4718	034267	200 14 0 13 000001 	..0237:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-3
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0123

  4719	034270	200 13 0 13 035035 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4720	034271				..0240:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4721	034271	036 14 0 00 042245 
  4722	034272	035 00 0 00 034256 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4723					^
  4724					^
  4725					;   ************************************************
  4726
  4727
  4728					;   ************************************************
  4729
  4730			034273			LOC=.				;ERROR RETURN ADDRESS
  4731			035037			CNUM=CNUM+6			;ADDRESS OF TEST DATA
  4732	034273	200 15 0 00 042254 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4733	034274	120 01 0 00 035037 		DMOVE	AC1,CNUM		;INIT MINUEND
  4734	034275	115 01 0 00 035041 		DSUB	AC1,CNUM+2		;SUB N - P
  4735						CHECKT	(LOC,C1,CNUM+4)^
  4736
  4737	034276	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4738	034277	312 01 0 00 035043 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4739	034300	254 00 0 00 034304 		JRST	..0241		;NO - GO TO ERROR HANDLING
  4740	034301	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4741	034302	316 02 0 00 035044 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4742	034303	254 00 0 00 034307 		JRST	..0242+1  	;YES - DONT DO ERROR HANDLING
  4743									;	EXCEPT FOR ERLOOP
  4744
  4745	034304	200 14 0 13 000001 	..0241:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4746	034305	200 13 0 13 035043 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4747	034306				..0242:	ERROR	(LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
  4748	034306	036 14 0 00 042245 
  4749	034307	035 00 0 00 034273 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4750					^
  4751					^
  4752					;   ************************************************
  4753
  4754					; **********************************************************************
  4755					; ----------  DSUB - TEST C-2:  N - N = P/N  ----------
  4756					; **********************************************************************
  4757
  4758			035037			CNUM=SCONC2-6
  4759
  4760						REPEAT	6,<
  4761					;   ************************************************
  4762					
  4763						LOC=.				;ERROR RETURN ADDRESS
  4764						CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4765						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4766						DMOVE	AC1,CNUM		;INIT MINUEND
  4767						DSUB	AC1,CNUM+2		;SUB N - N
  4768						CHECKT	(LOC,C2,CNUM+4)
  4769					;   ************************************************
  4770					>
  4771
  4772					;   ************************************************
  4773
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-4
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0124

  4774			034310			LOC=.				;ERROR RETURN ADDRESS
  4775			035045			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4776	034310	200 15 0 00 042255 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4777	034311	120 01 0 00 035045 		DMOVE	AC1,CNUM		;INIT MINUEND
  4778	034312	115 01 0 00 035047 		DSUB	AC1,CNUM+2		;SUB N - N
  4779						CHECKT	(LOC,C2,CNUM+4)^
  4780
  4781	034313	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4782	034314	312 01 0 00 035051 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4783	034315	254 00 0 00 034321 		JRST	..0243		;NO - GO TO ERROR HANDLING
  4784	034316	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4785	034317	316 02 0 00 035052 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4786	034320	254 00 0 00 034324 		JRST	..0244+1  	;YES - DONT DO ERROR HANDLING
  4787									;	EXCEPT FOR ERLOOP
  4788
  4789	034321	200 14 0 13 000001 	..0243:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4790	034322	200 13 0 13 035051 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4791	034323				..0244:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4792	034323	036 14 0 00 042263 
  4793	034324	035 00 0 00 034310 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4794					^
  4795					^
  4796					;   ************************************************
  4797
  4798
  4799					;   ************************************************
  4800
  4801			034325			LOC=.				;ERROR RETURN ADDRESS
  4802			035053			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4803	034325	200 15 0 00 042266 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4804	034326	120 01 0 00 035053 		DMOVE	AC1,CNUM		;INIT MINUEND
  4805	034327	115 01 0 00 035055 		DSUB	AC1,CNUM+2		;SUB N - N
  4806						CHECKT	(LOC,C2,CNUM+4)^
  4807
  4808	034330	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4809	034331	312 01 0 00 035057 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4810	034332	254 00 0 00 034336 		JRST	..0245		;NO - GO TO ERROR HANDLING
  4811	034333	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4812	034334	316 02 0 00 035060 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4813	034335	254 00 0 00 034341 		JRST	..0246+1  	;YES - DONT DO ERROR HANDLING
  4814									;	EXCEPT FOR ERLOOP
  4815
  4816	034336	200 14 0 13 000001 	..0245:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4817	034337	200 13 0 13 035057 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4818	034340				..0246:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4819	034340	036 14 0 00 042263 
  4820	034341	035 00 0 00 034325 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4821					^
  4822					^
  4823					;   ************************************************
  4824
  4825
  4826					;   ************************************************
  4827
  4828			034342			LOC=.				;ERROR RETURN ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-5
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0125

  4829			035061			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4830	034342	200 15 0 00 042267 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4831	034343	120 01 0 00 035061 		DMOVE	AC1,CNUM		;INIT MINUEND
  4832	034344	115 01 0 00 035063 		DSUB	AC1,CNUM+2		;SUB N - N
  4833						CHECKT	(LOC,C2,CNUM+4)^
  4834
  4835	034345	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4836	034346	312 01 0 00 035065 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4837	034347	254 00 0 00 034353 		JRST	..0247		;NO - GO TO ERROR HANDLING
  4838	034350	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4839	034351	316 02 0 00 035066 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4840	034352	254 00 0 00 034356 		JRST	..0250+1  	;YES - DONT DO ERROR HANDLING
  4841									;	EXCEPT FOR ERLOOP
  4842
  4843	034353	200 14 0 13 000001 	..0247:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4844	034354	200 13 0 13 035065 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4845	034355				..0250:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4846	034355	036 14 0 00 042263 
  4847	034356	035 00 0 00 034342 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4848					^
  4849					^
  4850					;   ************************************************
  4851
  4852
  4853					;   ************************************************
  4854
  4855			034357			LOC=.				;ERROR RETURN ADDRESS
  4856			035067			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4857	034357	200 15 0 00 042270 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4858	034360	120 01 0 00 035067 		DMOVE	AC1,CNUM		;INIT MINUEND
  4859	034361	115 01 0 00 035071 		DSUB	AC1,CNUM+2		;SUB N - N
  4860						CHECKT	(LOC,C2,CNUM+4)^
  4861
  4862	034362	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4863	034363	312 01 0 00 035073 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4864	034364	254 00 0 00 034370 		JRST	..0251		;NO - GO TO ERROR HANDLING
  4865	034365	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4866	034366	316 02 0 00 035074 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4867	034367	254 00 0 00 034373 		JRST	..0252+1  	;YES - DONT DO ERROR HANDLING
  4868									;	EXCEPT FOR ERLOOP
  4869
  4870	034370	200 14 0 13 000001 	..0251:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4871	034371	200 13 0 13 035073 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4872	034372				..0252:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4873	034372	036 14 0 00 042263 
  4874	034373	035 00 0 00 034357 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4875					^
  4876					^
  4877					;   ************************************************
  4878
  4879
  4880					;   ************************************************
  4881
  4882			034374			LOC=.				;ERROR RETURN ADDRESS
  4883			035075			CNUM=CNUM+6			;SUBRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-6
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0126

  4884	034374	200 15 0 00 042271 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4885	034375	120 01 0 00 035075 		DMOVE	AC1,CNUM		;INIT MINUEND
  4886	034376	115 01 0 00 035077 		DSUB	AC1,CNUM+2		;SUB N - N
  4887						CHECKT	(LOC,C2,CNUM+4)^
  4888
  4889	034377	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4890	034400	312 01 0 00 035101 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4891	034401	254 00 0 00 034405 		JRST	..0253		;NO - GO TO ERROR HANDLING
  4892	034402	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4893	034403	316 02 0 00 035102 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4894	034404	254 00 0 00 034410 		JRST	..0254+1  	;YES - DONT DO ERROR HANDLING
  4895									;	EXCEPT FOR ERLOOP
  4896
  4897	034405	200 14 0 13 000001 	..0253:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4898	034406	200 13 0 13 035101 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4899	034407				..0254:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4900	034407	036 14 0 00 042263 
  4901	034410	035 00 0 00 034374 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4902					^
  4903					^
  4904					;   ************************************************
  4905
  4906
  4907					;   ************************************************
  4908
  4909			034411			LOC=.				;ERROR RETURN ADDRESS
  4910			035103			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4911	034411	200 15 0 00 042272 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4912	034412	120 01 0 00 035103 		DMOVE	AC1,CNUM		;INIT MINUEND
  4913	034413	115 01 0 00 035105 		DSUB	AC1,CNUM+2		;SUB N - N
  4914						CHECKT	(LOC,C2,CNUM+4)^
  4915
  4916	034414	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4917	034415	312 01 0 00 035107 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4918	034416	254 00 0 00 034422 		JRST	..0255		;NO - GO TO ERROR HANDLING
  4919	034417	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4920	034420	316 02 0 00 035110 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4921	034421	254 00 0 00 034425 		JRST	..0256+1  	;YES - DONT DO ERROR HANDLING
  4922									;	EXCEPT FOR ERLOOP
  4923
  4924	034422	200 14 0 13 000001 	..0255:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4925	034423	200 13 0 13 035107 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4926	034424				..0256:	ERROR	(LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
  4927	034424	036 14 0 00 042263 
  4928	034425	035 00 0 00 034411 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4929					^
  4930					^
  4931					;   ************************************************
  4932
  4933					; **********************************************************************
  4934					; ----------  DSUB - TEST C-3:  P - P = N/P  ----------
  4935					; **********************************************************************
  4936
  4937			035103			CNUM=SCONC3-6
  4938
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-7
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0127

  4939						REPEAT	6,<
  4940					;   ************************************************
  4941					
  4942						LOC=.				;ERROR RETURN ADDRESS
  4943						CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4944						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4945						DMOVE	AC1,CNUM		;INIT MINUEND
  4946						DSUB	AC1,CNUM+2		;SUB N - P
  4947						CHECKT	(LOC,C3,CNUM+4)
  4948					;   ************************************************
  4949					>
  4950
  4951					;   ************************************************
  4952
  4953			034426			LOC=.				;ERROR RETURN ADDRESS
  4954			035111			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4955	034426	200 15 0 00 042273 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4956	034427	120 01 0 00 035111 		DMOVE	AC1,CNUM		;INIT MINUEND
  4957	034430	115 01 0 00 035113 		DSUB	AC1,CNUM+2		;SUB N - P
  4958						CHECKT	(LOC,C3,CNUM+4)^
  4959
  4960	034431	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4961	034432	312 01 0 00 035115 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4962	034433	254 00 0 00 034437 		JRST	..0257		;NO - GO TO ERROR HANDLING
  4963	034434	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4964	034435	316 02 0 00 035116 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4965	034436	254 00 0 00 034442 		JRST	..0260+1  	;YES - DONT DO ERROR HANDLING
  4966									;	EXCEPT FOR ERLOOP
  4967
  4968	034437	200 14 0 13 000001 	..0257:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4969	034440	200 13 0 13 035115 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4970	034441				..0260:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  4971	034441	036 14 0 00 042301 
  4972	034442	035 00 0 00 034426 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  4973					^
  4974					^
  4975					;   ************************************************
  4976
  4977
  4978					;   ************************************************
  4979
  4980			034443			LOC=.				;ERROR RETURN ADDRESS
  4981			035117			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  4982	034443	200 15 0 00 042304 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  4983	034444	120 01 0 00 035117 		DMOVE	AC1,CNUM		;INIT MINUEND
  4984	034445	115 01 0 00 035121 		DSUB	AC1,CNUM+2		;SUB N - P
  4985						CHECKT	(LOC,C3,CNUM+4)^
  4986
  4987	034446	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  4988	034447	312 01 0 00 035123 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  4989	034450	254 00 0 00 034454 		JRST	..0261		;NO - GO TO ERROR HANDLING
  4990	034451	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  4991	034452	316 02 0 00 035124 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  4992	034453	254 00 0 00 034457 		JRST	..0262+1  	;YES - DONT DO ERROR HANDLING
  4993									;	EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-8
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0128

  4994
  4995	034454	200 14 0 13 000001 	..0261:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  4996	034455	200 13 0 13 035123 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  4997	034456				..0262:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  4998	034456	036 14 0 00 042301 
  4999	034457	035 00 0 00 034443 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5000					^
  5001					^
  5002					;   ************************************************
  5003
  5004
  5005					;   ************************************************
  5006
  5007			034460			LOC=.				;ERROR RETURN ADDRESS
  5008			035125			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  5009	034460	200 15 0 00 042305 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5010	034461	120 01 0 00 035125 		DMOVE	AC1,CNUM		;INIT MINUEND
  5011	034462	115 01 0 00 035127 		DSUB	AC1,CNUM+2		;SUB N - P
  5012						CHECKT	(LOC,C3,CNUM+4)^
  5013
  5014	034463	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5015	034464	312 01 0 00 035131 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  5016	034465	254 00 0 00 034471 		JRST	..0263		;NO - GO TO ERROR HANDLING
  5017	034466	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5018	034467	316 02 0 00 035132 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  5019	034470	254 00 0 00 034474 		JRST	..0264+1  	;YES - DONT DO ERROR HANDLING
  5020									;	EXCEPT FOR ERLOOP
  5021
  5022	034471	200 14 0 13 000001 	..0263:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5023	034472	200 13 0 13 035131 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  5024	034473				..0264:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  5025	034473	036 14 0 00 042301 
  5026	034474	035 00 0 00 034460 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5027					^
  5028					^
  5029					;   ************************************************
  5030
  5031
  5032					;   ************************************************
  5033
  5034			034475			LOC=.				;ERROR RETURN ADDRESS
  5035			035133			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  5036	034475	200 15 0 00 042306 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5037	034476	120 01 0 00 035133 		DMOVE	AC1,CNUM		;INIT MINUEND
  5038	034477	115 01 0 00 035135 		DSUB	AC1,CNUM+2		;SUB N - P
  5039						CHECKT	(LOC,C3,CNUM+4)^
  5040
  5041	034500	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5042	034501	312 01 0 00 035137 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  5043	034502	254 00 0 00 034506 		JRST	..0265		;NO - GO TO ERROR HANDLING
  5044	034503	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5045	034504	316 02 0 00 035140 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  5046	034505	254 00 0 00 034511 		JRST	..0266+1  	;YES - DONT DO ERROR HANDLING
  5047									;	EXCEPT FOR ERLOOP
  5048
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-9
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0129

  5049	034506	200 14 0 13 000001 	..0265:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5050	034507	200 13 0 13 035137 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  5051	034510				..0266:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  5052	034510	036 14 0 00 042301 
  5053	034511	035 00 0 00 034475 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5054					^
  5055					^
  5056					;   ************************************************
  5057
  5058
  5059					;   ************************************************
  5060
  5061			034512			LOC=.				;ERROR RETURN ADDRESS
  5062			035141			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  5063	034512	200 15 0 00 042307 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5064	034513	120 01 0 00 035141 		DMOVE	AC1,CNUM		;INIT MINUEND
  5065	034514	115 01 0 00 035143 		DSUB	AC1,CNUM+2		;SUB N - P
  5066						CHECKT	(LOC,C3,CNUM+4)^
  5067
  5068	034515	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5069	034516	312 01 0 00 035145 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  5070	034517	254 00 0 00 034523 		JRST	..0267		;NO - GO TO ERROR HANDLING
  5071	034520	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5072	034521	316 02 0 00 035146 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  5073	034522	254 00 0 00 034526 		JRST	..0270+1  	;YES - DONT DO ERROR HANDLING
  5074									;	EXCEPT FOR ERLOOP
  5075
  5076	034523	200 14 0 13 000001 	..0267:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5077	034524	200 13 0 13 035145 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  5078	034525				..0270:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  5079	034525	036 14 0 00 042301 
  5080	034526	035 00 0 00 034512 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5081					^
  5082					^
  5083					;   ************************************************
  5084
  5085
  5086					;   ************************************************
  5087
  5088			034527			LOC=.				;ERROR RETURN ADDRESS
  5089			035147			CNUM=CNUM+6			;SUBRESS OF TEST DATA
  5090	034527	200 15 0 00 042310 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5091	034530	120 01 0 00 035147 		DMOVE	AC1,CNUM		;INIT MINUEND
  5092	034531	115 01 0 00 035151 		DSUB	AC1,CNUM+2		;SUB N - P
  5093						CHECKT	(LOC,C3,CNUM+4)^
  5094
  5095	034532	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5096	034533	312 01 0 00 035153 		CAME	AC1,CNUM+4  	;IS LEFT HALF OF RESULT CORRECT?
  5097	034534	254 00 0 00 034540 		JRST	..0271		;NO - GO TO ERROR HANDLING
  5098	034535	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5099	034536	316 02 0 00 035154 		CAMN	AC1+1,CNUM+4+1      	;IS RIGHT HALF CORRECT?
  5100	034537	254 00 0 00 034543 		JRST	..0272+1  	;YES - DONT DO ERROR HANDLING
  5101									;	EXCEPT FOR ERLOOP
  5102
  5103	034540	200 14 0 13 000001 	..0271:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-10
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0130

  5104	034541	200 13 0 13 035153 		MOVE	SCR1,CNUM+4(SCR1)	;GET CORRECT WORD OF RESULT
  5105	034542				..0272:	ERROR	(LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
  5106	034542	036 14 0 00 042301 
  5107	034543	035 00 0 00 034527 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5108					^
  5109					^
  5110					;   ************************************************
  5111
  5112					; **********************************************************************
  5113					; ----------  DSUB - TEST C-4:  N - P = -3  ----------
  5114					; **********************************************************************
  5115
  5116			035151			CNUM=SCONC4-4
  5117
  5118						REPEAT	6,<
  5119					;   ************************************************
  5120					
  5121						LOC=.				;ERROR RETURN ADDRESS
  5122						CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5123						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5124						DMOVE	AC1,CNUM		;INIT MINUEND
  5125						DSUB	AC1,CNUM+2		;SUB N - P = -3
  5126						CHECKS	(LOC,C4,-1,-3)
  5127					;   ************************************************
  5128					>
  5129
  5130					;   ************************************************
  5131
  5132			034544			LOC=.				;ERROR RETURN ADDRESS
  5133			035155			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5134	034544	200 15 0 00 042311 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5135	034545	120 01 0 00 035155 		DMOVE	AC1,CNUM		;INIT MINUEND
  5136	034546	115 01 0 00 035157 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5137						CHECKS	(LOC,C4,-1,-3)^
  5138
  5139	034547	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5140	034550	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5141	034551	254 00 0 00 034555 		JRST	..0273		;NO - GO TO ERROR HANDLING
  5142	034552	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5143	034553	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5144	034554	254 00 0 00 034560 		JRST	..0274+1  	;YES - DONT DO ERROR HANDLING
  5145									;	EXCEPT FOR ERLOOP
  5146
  5147	034555	200 14 0 13 000001 	..0273:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5148	034556	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5149	034557				..0274:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5150	034557	036 14 0 00 042322 
  5151	034560	035 00 0 00 034544 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5152					^
  5153					^
  5154					;   ************************************************
  5155
  5156
  5157					;   ************************************************
  5158
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-11
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0131

  5159			034561			LOC=.				;ERROR RETURN ADDRESS
  5160			035161			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5161	034561	200 15 0 00 042325 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5162	034562	120 01 0 00 035161 		DMOVE	AC1,CNUM		;INIT MINUEND
  5163	034563	115 01 0 00 035163 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5164						CHECKS	(LOC,C4,-1,-3)^
  5165
  5166	034564	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5167	034565	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5168	034566	254 00 0 00 034572 		JRST	..0275		;NO - GO TO ERROR HANDLING
  5169	034567	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5170	034570	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5171	034571	254 00 0 00 034575 		JRST	..0276+1  	;YES - DONT DO ERROR HANDLING
  5172									;	EXCEPT FOR ERLOOP
  5173
  5174	034572	200 14 0 13 000001 	..0275:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5175	034573	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5176	034574				..0276:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5177	034574	036 14 0 00 042322 
  5178	034575	035 00 0 00 034561 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5179					^
  5180					^
  5181					;   ************************************************
  5182
  5183
  5184					;   ************************************************
  5185
  5186			034576			LOC=.				;ERROR RETURN ADDRESS
  5187			035165			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5188	034576	200 15 0 00 042326 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5189	034577	120 01 0 00 035165 		DMOVE	AC1,CNUM		;INIT MINUEND
  5190	034600	115 01 0 00 035167 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5191						CHECKS	(LOC,C4,-1,-3)^
  5192
  5193	034601	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5194	034602	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5195	034603	254 00 0 00 034607 		JRST	..0277		;NO - GO TO ERROR HANDLING
  5196	034604	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5197	034605	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5198	034606	254 00 0 00 034612 		JRST	..0300+1  	;YES - DONT DO ERROR HANDLING
  5199									;	EXCEPT FOR ERLOOP
  5200
  5201	034607	200 14 0 13 000001 	..0277:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5202	034610	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5203	034611				..0300:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5204	034611	036 14 0 00 042322 
  5205	034612	035 00 0 00 034576 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5206					^
  5207					^
  5208					;   ************************************************
  5209
  5210
  5211					;   ************************************************
  5212
  5213			034613			LOC=.				;ERROR RETURN ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-12
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0132

  5214			035171			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5215	034613	200 15 0 00 042327 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5216	034614	120 01 0 00 035171 		DMOVE	AC1,CNUM		;INIT MINUEND
  5217	034615	115 01 0 00 035173 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5218						CHECKS	(LOC,C4,-1,-3)^
  5219
  5220	034616	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5221	034617	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5222	034620	254 00 0 00 034624 		JRST	..0301		;NO - GO TO ERROR HANDLING
  5223	034621	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5224	034622	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5225	034623	254 00 0 00 034627 		JRST	..0302+1  	;YES - DONT DO ERROR HANDLING
  5226									;	EXCEPT FOR ERLOOP
  5227
  5228	034624	200 14 0 13 000001 	..0301:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5229	034625	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5230	034626				..0302:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5231	034626	036 14 0 00 042322 
  5232	034627	035 00 0 00 034613 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5233					^
  5234					^
  5235					;   ************************************************
  5236
  5237
  5238					;   ************************************************
  5239
  5240			034630			LOC=.				;ERROR RETURN ADDRESS
  5241			035175			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5242	034630	200 15 0 00 042330 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5243	034631	120 01 0 00 035175 		DMOVE	AC1,CNUM		;INIT MINUEND
  5244	034632	115 01 0 00 035177 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5245						CHECKS	(LOC,C4,-1,-3)^
  5246
  5247	034633	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5248	034634	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5249	034635	254 00 0 00 034641 		JRST	..0303		;NO - GO TO ERROR HANDLING
  5250	034636	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5251	034637	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5252	034640	254 00 0 00 034644 		JRST	..0304+1  	;YES - DONT DO ERROR HANDLING
  5253									;	EXCEPT FOR ERLOOP
  5254
  5255	034641	200 14 0 13 000001 	..0303:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5256	034642	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5257	034643				..0304:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5258	034643	036 14 0 00 042322 
  5259	034644	035 00 0 00 034630 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5260					^
  5261					^
  5262					;   ************************************************
  5263
  5264
  5265					;   ************************************************
  5266
  5267			034645			LOC=.				;ERROR RETURN ADDRESS
  5268			035201			CNUM=CNUM+4			;SUBRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-13
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0133

  5269	034645	200 15 0 00 042331 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5270	034646	120 01 0 00 035201 		DMOVE	AC1,CNUM		;INIT MINUEND
  5271	034647	115 01 0 00 035203 		DSUB	AC1,CNUM+2		;SUB N - P = -3
  5272						CHECKS	(LOC,C4,-1,-3)^
  5273
  5274	034650	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5275	034651	312 01 0 00 041442 		CAME	AC1,[-1]	;IS LEFT HALF OF RESULT CORRECT?
  5276	034652	254 00 0 00 034656 		JRST	..0305		;NO - GO TO ERROR HANDLING
  5277	034653	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5278	034654	316 02 0 00 042312 		CAMN	AC1+1,[-3]	;IS RIGHT HALF CORRECT?
  5279	034655	254 00 0 00 034661 		JRST	..0306+1  	;YES - DONT DO ERROR HANDLING
  5280									;	EXCEPT FOR ERLOOP
  5281
  5282	034656	200 14 0 13 000001 	..0305:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5283	034657	200 13 0 13 042313 		MOVE	SCR1,[EXP -1,-3](SCR1)	;GET CORRECT RESULT
  5284	034660				..0306:	ERROR	(LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
  5285	034660	036 14 0 00 042322 
  5286	034661	035 00 0 00 034645 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5287					^
  5288					^
  5289					;   ************************************************
  5290
  5291					; **********************************************************************
  5292					; ----------  DSUB - TEST C-5:  P - N = 3  ----------
  5293					; **********************************************************************
  5294
  5295			035201			CNUM=SCONC5-4
  5296
  5297						REPEAT	6,<
  5298					;   ************************************************
  5299					
  5300						LOC=.				;ERROR RETURN ADDRESS
  5301						CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5302						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5303						DMOVE	AC1,CNUM		;INIT MINUEND
  5304						DSUB	AC1,CNUM+2		;SUB N - P = 3
  5305						CHECKS	(LOC,C5,0,3)
  5306					;   ************************************************
  5307					>
  5308
  5309					;   ************************************************
  5310
  5311			034662			LOC=.				;ERROR RETURN ADDRESS
  5312			035205			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5313	034662	200 15 0 00 042332 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5314	034663	120 01 0 00 035205 		DMOVE	AC1,CNUM		;INIT MINUEND
  5315	034664	115 01 0 00 035207 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5316						CHECKS	(LOC,C5,0,3)^
  5317
  5318	034665	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5319	034666	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5320	034667	254 00 0 00 034673 		JRST	..0307		;NO - GO TO ERROR HANDLING
  5321	034670	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5322	034671	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5323	034672	254 00 0 00 034676 		JRST	..0310+1  	;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-14
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0134

  5324									;	EXCEPT FOR ERLOOP
  5325
  5326	034673	200 14 0 13 000001 	..0307:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5327	034674	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5328	034675				..0310:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5329	034675	036 14 0 00 042343 
  5330	034676	035 00 0 00 034662 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5331					^
  5332					^
  5333					;   ************************************************
  5334
  5335
  5336					;   ************************************************
  5337
  5338			034677			LOC=.				;ERROR RETURN ADDRESS
  5339			035211			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5340	034677	200 15 0 00 042346 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5341	034700	120 01 0 00 035211 		DMOVE	AC1,CNUM		;INIT MINUEND
  5342	034701	115 01 0 00 035213 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5343						CHECKS	(LOC,C5,0,3)^
  5344
  5345	034702	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5346	034703	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5347	034704	254 00 0 00 034710 		JRST	..0311		;NO - GO TO ERROR HANDLING
  5348	034705	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5349	034706	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5350	034707	254 00 0 00 034713 		JRST	..0312+1  	;YES - DONT DO ERROR HANDLING
  5351									;	EXCEPT FOR ERLOOP
  5352
  5353	034710	200 14 0 13 000001 	..0311:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5354	034711	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5355	034712				..0312:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5356	034712	036 14 0 00 042343 
  5357	034713	035 00 0 00 034677 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5358					^
  5359					^
  5360					;   ************************************************
  5361
  5362
  5363					;   ************************************************
  5364
  5365			034714			LOC=.				;ERROR RETURN ADDRESS
  5366			035215			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5367	034714	200 15 0 00 042347 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5368	034715	120 01 0 00 035215 		DMOVE	AC1,CNUM		;INIT MINUEND
  5369	034716	115 01 0 00 035217 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5370						CHECKS	(LOC,C5,0,3)^
  5371
  5372	034717	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5373	034720	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5374	034721	254 00 0 00 034725 		JRST	..0313		;NO - GO TO ERROR HANDLING
  5375	034722	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5376	034723	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5377	034724	254 00 0 00 034730 		JRST	..0314+1  	;YES - DONT DO ERROR HANDLING
  5378									;	EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-15
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0135

  5379
  5380	034725	200 14 0 13 000001 	..0313:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5381	034726	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5382	034727				..0314:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5383	034727	036 14 0 00 042343 
  5384	034730	035 00 0 00 034714 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5385					^
  5386					^
  5387					;   ************************************************
  5388
  5389
  5390					;   ************************************************
  5391
  5392			034731			LOC=.				;ERROR RETURN ADDRESS
  5393			035221			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5394	034731	200 15 0 00 042350 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5395	034732	120 01 0 00 035221 		DMOVE	AC1,CNUM		;INIT MINUEND
  5396	034733	115 01 0 00 035223 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5397						CHECKS	(LOC,C5,0,3)^
  5398
  5399	034734	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5400	034735	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5401	034736	254 00 0 00 034742 		JRST	..0315		;NO - GO TO ERROR HANDLING
  5402	034737	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5403	034740	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5404	034741	254 00 0 00 034745 		JRST	..0316+1  	;YES - DONT DO ERROR HANDLING
  5405									;	EXCEPT FOR ERLOOP
  5406
  5407	034742	200 14 0 13 000001 	..0315:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5408	034743	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5409	034744				..0316:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5410	034744	036 14 0 00 042343 
  5411	034745	035 00 0 00 034731 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5412					^
  5413					^
  5414					;   ************************************************
  5415
  5416
  5417					;   ************************************************
  5418
  5419			034746			LOC=.				;ERROR RETURN ADDRESS
  5420			035225			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5421	034746	200 15 0 00 042351 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5422	034747	120 01 0 00 035225 		DMOVE	AC1,CNUM		;INIT MINUEND
  5423	034750	115 01 0 00 035227 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5424						CHECKS	(LOC,C5,0,3)^
  5425
  5426	034751	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5427	034752	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5428	034753	254 00 0 00 034757 		JRST	..0317		;NO - GO TO ERROR HANDLING
  5429	034754	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5430	034755	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5431	034756	254 00 0 00 034762 		JRST	..0320+1  	;YES - DONT DO ERROR HANDLING
  5432									;	EXCEPT FOR ERLOOP
  5433
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-16
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0136

  5434	034757	200 14 0 13 000001 	..0317:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5435	034760	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5436	034761				..0320:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5437	034761	036 14 0 00 042343 
  5438	034762	035 00 0 00 034746 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5439					^
  5440					^
  5441					;   ************************************************
  5442
  5443
  5444					;   ************************************************
  5445
  5446			034763			LOC=.				;ERROR RETURN ADDRESS
  5447			035231			CNUM=CNUM+4			;SUBRESS OF TEST DATA
  5448	034763	200 15 0 00 042352 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5449	034764	120 01 0 00 035231 		DMOVE	AC1,CNUM		;INIT MINUEND
  5450	034765	115 01 0 00 035233 		DSUB	AC1,CNUM+2		;SUB N - P = 3
  5451						CHECKS	(LOC,C5,0,3)^
  5452
  5453	034766	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5454	034767	312 01 0 00 041274 		CAME	AC1,[0]	;IS LEFT HALF OF RESULT CORRECT?
  5455	034770	254 00 0 00 034774 		JRST	..0321		;NO - GO TO ERROR HANDLING
  5456	034771	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5457	034772	316 02 0 00 042333 		CAMN	AC1+1,[3]	;IS RIGHT HALF CORRECT?
  5458	034773	254 00 0 00 034777 		JRST	..0322+1  	;YES - DONT DO ERROR HANDLING
  5459									;	EXCEPT FOR ERLOOP
  5460
  5461	034774	200 14 0 13 000001 	..0321:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5462	034775	200 13 0 13 042334 		MOVE	SCR1,[EXP 0,3](SCR1)	;GET CORRECT RESULT
  5463	034776				..0322:	ERROR	(LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
  5464	034776	036 14 0 00 042343 
  5465	034777	035 00 0 00 034763 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5466					^
  5467					^
  5468					;   ************************************************
  5469
  5470	035000	254 00 0 00 035235 		JRST	SENDC			;SKIP OVER DATA
  5471
  5472	035001	000000	000000		SCONC1:	EXP	0,0,0,1B0,0,0
  5473	035002	000000	000000
  5474	035003	000000	000000
  5475	035004	400000	000000
  5476	035005	000000	000000
  5477	035006	000000	000000
  5478	035007	000000	000000			EXP	0,1B0,0,1,-1,-1
  5479	035010	400000	000000
  5480	035011	000000	000000
  5481	035012	000000	000001
  5482	035013	777777	777777
  5483	035014	777777	777777
  5484	035015	000000	000000			EXP	0,1B0,0,1B0+1,-1,-1
  5485	035016	400000	000000
  5486	035017	000000	000000
  5487	035020	400000	000001
  5488	035021	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-17
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0137

  5489	035022	777777	777777
  5490	035023	000000	000000			EXP	0,0,-1,377777777777,0,1
  5491	035024	000000	000000
  5492	035025	777777	777777
  5493	035026	377777	777777
  5494	035027	000000	000000
  5495	035030	000000	000001
  5496	035031	000000	000000			EXP	0,1B0,-1,377777777777,0,1
  5497	035032	400000	000000
  5498	035033	777777	777777
  5499	035034	377777	777777
  5500	035035	000000	000000
  5501	035036	000000	000001
  5502	035037	000000	000000			EXP	0,1B0,-1,-1,0,1
  5503	035040	400000	000000
  5504	035041	777777	777777
  5505	035042	777777	777777
  5506	035043	000000	000000
  5507	035044	000000	000001
  5508
  5509	035045	777777	777777		SCONC2:	EXP	-1,377777777777,-2,-1,1,0
  5510	035046	377777	777777
  5511	035047	777777	777776
  5512	035050	777777	777777
  5513	035051	000000	000001
  5514	035052	000000	000000
  5515	035053	777777	777777			EXP	-1,377777777777,-2,377777777777,1,0
  5516	035054	377777	777777
  5517	035055	777777	777776
  5518	035056	377777	777777
  5519	035057	000000	000001
  5520	035060	000000	000000
  5521	035061	777777	777777			EXP	-1,-1,-2,377777777777,1,0
  5522	035062	777777	777777
  5523	035063	777777	777776
  5524	035064	377777	777777
  5525	035065	000000	000001
  5526	035066	000000	000000
  5527	035067	777777	777776			EXP	-2,-1,-1,377777777777,-1,1B0
  5528	035070	777777	777777
  5529	035071	777777	777777
  5530	035072	377777	777777
  5531	035073	777777	777777
  5532	035074	400000	000000
  5533	035075	777777	777776			EXP	-2,377777777777,-1,377777777777,-1,1B0
  5534	035076	377777	777777
  5535	035077	777777	777777
  5536	035100	377777	777777
  5537	035101	777777	777777
  5538	035102	400000	000000
  5539	035103	777777	777776			EXP	-2,377777777777,-1,-1,-1,1B0
  5540	035104	377777	777777
  5541	035105	777777	777777
  5542	035106	777777	777777
  5543	035107	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-18
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0138

  5544	035110	400000	000000
  5545
  5546	035111	000000	000000		SCONC3:	EXP	0,1B0+1,1,0,-1,1B0+1
  5547	035112	400000	000001
  5548	035113	000000	000001
  5549	035114	000000	000000
  5550	035115	777777	777777
  5551	035116	400000	000001
  5552	035117	000000	000000			EXP	0,1B0+1,1,1B0,-1,1B0+1
  5553	035120	400000	000001
  5554	035121	000000	000001
  5555	035122	400000	000000
  5556	035123	777777	777777
  5557	035124	400000	000001
  5558	035125	000000	000000			EXP	0,1,1,1B0,-1,1B0+1
  5559	035126	000000	000001
  5560	035127	000000	000001
  5561	035130	400000	000000
  5562	035131	777777	777777
  5563	035132	400000	000001
  5564	035133	000000	000001			EXP	1,0,0,1B0+1,0,377777777777
  5565	035134	000000	000000
  5566	035135	000000	000000
  5567	035136	400000	000001
  5568	035137	000000	000000
  5569	035140	377777	777777
  5570	035141	000000	000001			EXP	1,1B0,0,1B0+1,0,377777777777
  5571	035142	400000	000000
  5572	035143	000000	000000
  5573	035144	400000	000001
  5574	035145	000000	000000
  5575	035146	377777	777777
  5576	035147	000000	000001			EXP	1,1B0,0,1,0,377777777777
  5577	035150	400000	000000
  5578	035151	000000	000000
  5579	035152	000000	000001
  5580	035153	000000	000000
  5581	035154	377777	777777
  5582
  5583	035155	777777	777777		SCONC4:	EXP	-1,377777777776,0,1
  5584	035156	377777	777776
  5585	035157	000000	000000
  5586	035160	000000	000001
  5587	035161	777777	777777			EXP	-1,377777777776,0,1B0+1
  5588	035162	377777	777776
  5589	035163	000000	000000
  5590	035164	400000	000001
  5591	035165	777777	777777			EXP	-1,-2,0,1B0+1
  5592	035166	777777	777776
  5593	035167	000000	000000
  5594	035170	400000	000001
  5595	035171	777777	777777			EXP	-1,377777777777,0,2
  5596	035172	377777	777777
  5597	035173	000000	000000
  5598	035174	000000	000002
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 16-19
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST C                                                                      SEQ 0139

  5599	035175	777777	777777			EXP	-1,377777777777,0,1B0+2
  5600	035176	377777	777777
  5601	035177	000000	000000
  5602	035200	400000	000002
  5603	035201	777777	777777			EXP	-1,-1,0,1B0+2
  5604	035202	777777	777777
  5605	035203	000000	000000
  5606	035204	400000	000002
  5607	035205	000000	000000		SCONC5:	EXP	0,1,-1,377777777776
  5608	035206	000000	000001
  5609	035207	777777	777777
  5610	035210	377777	777776
  5611	035211	000000	000000			EXP	0,1B0+1,-1,377777777776
  5612	035212	400000	000001
  5613	035213	777777	777777
  5614	035214	377777	777776
  5615	035215	000000	000000			EXP	0,1B0+1,-1,-2
  5616	035216	400000	000001
  5617	035217	777777	777777
  5618	035220	777777	777776
  5619	035221	000000	000000			EXP	0,2,-1,377777777777
  5620	035222	000000	000002
  5621	035223	777777	777777
  5622	035224	377777	777777
  5623	035225	000000	000000			EXP	0,1B0+2,-1,377777777777
  5624	035226	400000	000002
  5625	035227	777777	777777
  5626	035230	377777	777777
  5627	035231	000000	000000			EXP	0,1B0+2,-1,-1
  5628	035232	400000	000002
  5629	035233	777777	777777
  5630	035234	777777	777777
  5631	035235				SENDC:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0140

  5632					SUBTTL	DSUB - TEST D
  5633
  5634					; **********************************************************************
  5635					;*DSUB - TEST D
  5636					;*
  5637					;*	2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET)
  5638					;*	(-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET)
  5639					;*	-2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET)
  5640					;*	(2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET)
  5641					; **********************************************************************
  5642
  5643					; **********************************************************************
  5644					;*	THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES.  THE FIRST
  5645					;*	  4 TESTS FLOAT A 1 ACROSS A  DOUBLEWORD  IN BITS 1,35,37,71.
  5646					;*	  FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE)
  5647					;*	  NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT
  5648					;*	  IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW
  5649					;*	  & CARRY 1 SET.  THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE-
  5650					;*	  WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS
  5651					;*	  SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE
  5652					;*	  AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN
  5653					;*	  THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET.
  5654					;*	  THE DOUBLEWORDS  USED IN THIS  TEST ARE LOCATED IN THE LIST
  5655					;*	  'SCOND'.
  5656					; **********************************************************************
  5657
  5658			035542			CNUM=SCOND-4			;POINTER TO THE DOUBLEWORDS TO
  5659										;  BE SUBTRACTED
  5660			000000			REP=0				;REPETITION COUNT
  5661		400000	000000			RESULT=1B0			;1B0 FOR 1ST 4 / 377.. FOR 2ND 4
  5662		500000	000000			FLAGS=^B1010B3			;AROV,CRY0,CRY1,FOV
  5663
  5664						REPEAT	^D8,<
  5665					;   ************************************************
  5666					
  5667						LOC=.				;ERROR LOOP RETURN ADDRESS
  5668						CNUM=CNUM+4			;POINT TO THE TEST CASE
  5669						REP=REP+1			;REPETITION COUNT
  5670						IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5671							RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5672						MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5673						DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5674						JFCL	17,.+1			;CLEAR PC FLAGS
  5675						DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5676						PCSAVE
  5677						CHECKS	(LOC,D,RESULT,RESULT)
  5678						MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5679						TFLAG	([FLAGS],D,SPRINT)
  5680					;   ************************************************
  5681					>
  5682
  5683					;   ************************************************
  5684
  5685			035235			LOC=.				;ERROR LOOP RETURN ADDRESS
  5686			035546			CNUM=CNUM+4			;POINT TO THE TEST CASE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-1
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0141

  5687			000001			REP=REP+1			;REPETITION COUNT
  5688						IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5689							RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5690	035235	200 15 0 00 042353 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5691	035236	120 01 0 00 035546 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5692	035237	255 17 0 00 035240 		JFCL	17,.+1			;CLEAR PC FLAGS
  5693	035240	115 01 0 00 035550 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5694						PCSAVE^
  5695	035241	264 00 0 00 035242 		JSR	.+1		;STORE PC
  5696			035242		FLAGL=.				;LOCATION OF PC
  5697	035242	000000	000000			0			;PC
  5698					^
  5699						CHECKS	(LOC,D,RESULT,RESULT)^
  5700
  5701	035243	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5702	035244	312 01 0 00 042201 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5703	035245	254 00 0 00 035251 		JRST	..0323		;NO - GO TO ERROR HANDLING
  5704	035246	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5705	035247	316 02 0 00 042201 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5706	035250	254 00 0 00 035254 		JRST	..0324+1  	;YES - DONT DO ERROR HANDLING
  5707									;	EXCEPT FOR ERLOOP
  5708
  5709	035251	200 14 0 13 000001 	..0323:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5710	035252	200 13 0 13 042354 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5711	035253				..0324:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  5712	035253	036 14 0 00 042363 
  5713	035254	035 00 0 00 035235 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5714					^
  5715					^
  5716	035255	200 15 0 00 042353 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5717						TFLAG	([FLAGS],D,SPRINT)^
  5718
  5719	035256	200 13 0 00 035242 		MOVE	SCR1,FLAGL	;GET FLAGS
  5720	035257	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5721	035260	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5722	035261	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5723	035262	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5724	035263	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5725						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5726	035264	036 13 0 00 042375 
  5727	035265	035 00 0 00 035235 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5728					^
  5729					^
  5730					;   ************************************************
  5731
  5732
  5733					;   ************************************************
  5734
  5735			035266			LOC=.				;ERROR LOOP RETURN ADDRESS
  5736			035552			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5737			000002			REP=REP+1			;REPETITION COUNT
  5738						IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5739							RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5740	035266	200 15 0 00 042400 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5741	035267	120 01 0 00 035552 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-2
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0142

  5742	035270	255 17 0 00 035271 		JFCL	17,.+1			;CLEAR PC FLAGS
  5743	035271	115 01 0 00 035554 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5744						PCSAVE^
  5745	035272	264 00 0 00 035273 		JSR	.+1		;STORE PC
  5746			035273		FLAGL=.				;LOCATION OF PC
  5747	035273	000000	000000			0			;PC
  5748					^
  5749						CHECKS	(LOC,D,RESULT,RESULT)^
  5750
  5751	035274	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5752	035275	312 01 0 00 042201 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5753	035276	254 00 0 00 035302 		JRST	..0325		;NO - GO TO ERROR HANDLING
  5754	035277	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5755	035300	316 02 0 00 042201 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5756	035301	254 00 0 00 035305 		JRST	..0326+1  	;YES - DONT DO ERROR HANDLING
  5757									;	EXCEPT FOR ERLOOP
  5758
  5759	035302	200 14 0 13 000001 	..0325:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5760	035303	200 13 0 13 042354 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5761	035304				..0326:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  5762	035304	036 14 0 00 042363 
  5763	035305	035 00 0 00 035266 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5764					^
  5765					^
  5766	035306	200 15 0 00 042400 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5767						TFLAG	([FLAGS],D,SPRINT)^
  5768
  5769	035307	200 13 0 00 035273 		MOVE	SCR1,FLAGL	;GET FLAGS
  5770	035310	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5771	035311	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5772	035312	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5773	035313	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5774	035314	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5775						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5776	035315	036 13 0 00 042401 
  5777	035316	035 00 0 00 035266 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5778					^
  5779					^
  5780					;   ************************************************
  5781
  5782
  5783					;   ************************************************
  5784
  5785			035317			LOC=.				;ERROR LOOP RETURN ADDRESS
  5786			035556			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5787			000003			REP=REP+1			;REPETITION COUNT
  5788						IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5789							RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5790	035317	200 15 0 00 042404 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5791	035320	120 01 0 00 035556 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5792	035321	255 17 0 00 035322 		JFCL	17,.+1			;CLEAR PC FLAGS
  5793	035322	115 01 0 00 035560 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5794						PCSAVE^
  5795	035323	264 00 0 00 035324 		JSR	.+1		;STORE PC
  5796			035324		FLAGL=.				;LOCATION OF PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-3
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0143

  5797	035324	000000	000000			0			;PC
  5798					^
  5799						CHECKS	(LOC,D,RESULT,RESULT)^
  5800
  5801	035325	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5802	035326	312 01 0 00 042201 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5803	035327	254 00 0 00 035333 		JRST	..0327		;NO - GO TO ERROR HANDLING
  5804	035330	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5805	035331	316 02 0 00 042201 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5806	035332	254 00 0 00 035336 		JRST	..0330+1  	;YES - DONT DO ERROR HANDLING
  5807									;	EXCEPT FOR ERLOOP
  5808
  5809	035333	200 14 0 13 000001 	..0327:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5810	035334	200 13 0 13 042354 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5811	035335				..0330:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  5812	035335	036 14 0 00 042363 
  5813	035336	035 00 0 00 035317 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5814					^
  5815					^
  5816	035337	200 15 0 00 042404 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5817						TFLAG	([FLAGS],D,SPRINT)^
  5818
  5819	035340	200 13 0 00 035324 		MOVE	SCR1,FLAGL	;GET FLAGS
  5820	035341	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5821	035342	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5822	035343	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5823	035344	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5824	035345	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5825						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5826	035346	036 13 0 00 042405 
  5827	035347	035 00 0 00 035317 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5828					^
  5829					^
  5830					;   ************************************************
  5831
  5832
  5833					;   ************************************************
  5834
  5835			035350			LOC=.				;ERROR LOOP RETURN ADDRESS
  5836			035562			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5837			000004			REP=REP+1			;REPETITION COUNT
  5838						IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5839							RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5840	035350	200 15 0 00 042410 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5841	035351	120 01 0 00 035562 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5842	035352	255 17 0 00 035353 		JFCL	17,.+1			;CLEAR PC FLAGS
  5843	035353	115 01 0 00 035564 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5844						PCSAVE^
  5845	035354	264 00 0 00 035355 		JSR	.+1		;STORE PC
  5846			035355		FLAGL=.				;LOCATION OF PC
  5847	035355	000000	000000			0			;PC
  5848					^
  5849						CHECKS	(LOC,D,RESULT,RESULT)^
  5850
  5851	035356	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-4
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0144

  5852	035357	312 01 0 00 042201 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5853	035360	254 00 0 00 035364 		JRST	..0331		;NO - GO TO ERROR HANDLING
  5854	035361	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5855	035362	316 02 0 00 042201 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5856	035363	254 00 0 00 035367 		JRST	..0332+1  	;YES - DONT DO ERROR HANDLING
  5857									;	EXCEPT FOR ERLOOP
  5858
  5859	035364	200 14 0 13 000001 	..0331:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5860	035365	200 13 0 13 042354 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5861	035366				..0332:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  5862	035366	036 14 0 00 042363 
  5863	035367	035 00 0 00 035350 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5864					^
  5865					^
  5866	035370	200 15 0 00 042410 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5867						TFLAG	([FLAGS],D,SPRINT)^
  5868
  5869	035371	200 13 0 00 035355 		MOVE	SCR1,FLAGL	;GET FLAGS
  5870	035372	200 14 0 00 042110 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5871	035373	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5872	035374	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5873	035375	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5874	035376	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5875						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5876	035377	036 13 0 00 042411 
  5877	035400	035 00 0 00 035350 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5878					^
  5879					^
  5880					;   ************************************************
  5881
  5882
  5883					;   ************************************************
  5884
  5885			035401			LOC=.				;ERROR LOOP RETURN ADDRESS
  5886			035566			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5887			000005			REP=REP+1			;REPETITION COUNT
  5888		600000	000000			IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5889		377777	777777				RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5890	035401	200 15 0 00 042414 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5891	035402	120 01 0 00 035566 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5892	035403	255 17 0 00 035404 		JFCL	17,.+1			;CLEAR PC FLAGS
  5893	035404	115 01 0 00 035570 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5894						PCSAVE^
  5895	035405	264 00 0 00 035406 		JSR	.+1		;STORE PC
  5896			035406		FLAGL=.				;LOCATION OF PC
  5897	035406	000000	000000			0			;PC
  5898					^
  5899						CHECKS	(LOC,D,RESULT,RESULT)^
  5900
  5901	035407	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5902	035410	312 01 0 00 042415 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5903	035411	254 00 0 00 035415 		JRST	..0333		;NO - GO TO ERROR HANDLING
  5904	035412	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5905	035413	316 02 0 00 042415 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5906	035414	254 00 0 00 035420 		JRST	..0334+1  	;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-5
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0145

  5907									;	EXCEPT FOR ERLOOP
  5908
  5909	035415	200 14 0 13 000001 	..0333:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5910	035416	200 13 0 13 042415 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5911	035417				..0334:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  5912	035417	036 14 0 00 042363 
  5913	035420	035 00 0 00 035401 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5914					^
  5915					^
  5916	035421	200 15 0 00 042414 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5917						TFLAG	([FLAGS],D,SPRINT)^
  5918
  5919	035422	200 13 0 00 035406 		MOVE	SCR1,FLAGL	;GET FLAGS
  5920	035423	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5921	035424	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5922	035425	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5923	035426	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5924	035427	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5925						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5926	035430	036 13 0 00 042417 
  5927	035431	035 00 0 00 035401 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5928					^
  5929					^
  5930					;   ************************************************
  5931
  5932
  5933					;   ************************************************
  5934
  5935			035432			LOC=.				;ERROR LOOP RETURN ADDRESS
  5936			035572			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5937			000006			REP=REP+1			;REPETITION COUNT
  5938		600000	000000			IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5939		377777	777777				RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5940	035432	200 15 0 00 042422 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5941	035433	120 01 0 00 035572 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5942	035434	255 17 0 00 035435 		JFCL	17,.+1			;CLEAR PC FLAGS
  5943	035435	115 01 0 00 035574 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5944						PCSAVE^
  5945	035436	264 00 0 00 035437 		JSR	.+1		;STORE PC
  5946			035437		FLAGL=.				;LOCATION OF PC
  5947	035437	000000	000000			0			;PC
  5948					^
  5949						CHECKS	(LOC,D,RESULT,RESULT)^
  5950
  5951	035440	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  5952	035441	312 01 0 00 042415 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  5953	035442	254 00 0 00 035446 		JRST	..0335		;NO - GO TO ERROR HANDLING
  5954	035443	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  5955	035444	316 02 0 00 042415 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  5956	035445	254 00 0 00 035451 		JRST	..0336+1  	;YES - DONT DO ERROR HANDLING
  5957									;	EXCEPT FOR ERLOOP
  5958
  5959	035446	200 14 0 13 000001 	..0335:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  5960	035447	200 13 0 13 042415 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  5961	035450				..0336:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-6
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0146

  5962	035450	036 14 0 00 042363 
  5963	035451	035 00 0 00 035432 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5964					^
  5965					^
  5966	035452	200 15 0 00 042422 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  5967						TFLAG	([FLAGS],D,SPRINT)^
  5968
  5969	035453	200 13 0 00 035437 		MOVE	SCR1,FLAGL	;GET FLAGS
  5970	035454	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  5971	035455	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  5972	035456	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  5973	035457	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  5974	035460	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  5975						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  5976	035461	036 13 0 00 042423 
  5977	035462	035 00 0 00 035432 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  5978					^
  5979					^
  5980					;   ************************************************
  5981
  5982
  5983					;   ************************************************
  5984
  5985			035463			LOC=.				;ERROR LOOP RETURN ADDRESS
  5986			035576			CNUM=CNUM+4			;POINT TO THE TEST CASE
  5987			000007			REP=REP+1			;REPETITION COUNT
  5988		600000	000000			IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  5989		377777	777777				RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  5990	035463	200 15 0 00 042426 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  5991	035464	120 01 0 00 035576 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  5992	035465	255 17 0 00 035466 		JFCL	17,.+1			;CLEAR PC FLAGS
  5993	035466	115 01 0 00 035600 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  5994						PCSAVE^
  5995	035467	264 00 0 00 035470 		JSR	.+1		;STORE PC
  5996			035470		FLAGL=.				;LOCATION OF PC
  5997	035470	000000	000000			0			;PC
  5998					^
  5999						CHECKS	(LOC,D,RESULT,RESULT)^
  6000
  6001	035471	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  6002	035472	312 01 0 00 042415 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  6003	035473	254 00 0 00 035477 		JRST	..0337		;NO - GO TO ERROR HANDLING
  6004	035474	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  6005	035475	316 02 0 00 042415 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  6006	035476	254 00 0 00 035502 		JRST	..0340+1  	;YES - DONT DO ERROR HANDLING
  6007									;	EXCEPT FOR ERLOOP
  6008
  6009	035477	200 14 0 13 000001 	..0337:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  6010	035500	200 13 0 13 042415 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  6011	035501				..0340:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  6012	035501	036 14 0 00 042363 
  6013	035502	035 00 0 00 035463 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  6014					^
  6015					^
  6016	035503	200 15 0 00 042426 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-7
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0147

  6017						TFLAG	([FLAGS],D,SPRINT)^
  6018
  6019	035504	200 13 0 00 035470 		MOVE	SCR1,FLAGL	;GET FLAGS
  6020	035505	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  6021	035506	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
  6022	035507	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  6023	035510	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  6024	035511	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  6025						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  6026	035512	036 13 0 00 042427 
  6027	035513	035 00 0 00 035463 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  6028					^
  6029					^
  6030					;   ************************************************
  6031
  6032
  6033					;   ************************************************
  6034
  6035			035514			LOC=.				;ERROR LOOP RETURN ADDRESS
  6036			035602			CNUM=CNUM+4			;POINT TO THE TEST CASE
  6037			000010			REP=REP+1			;REPETITION COUNT
  6038		600000	000000			IFG REP-4,<FLAGS=^B1100B3	;FLAGS FOR SECOND 4 CASES
  6039		377777	777777				RESULT=377777777777>	;LARGEST POSITIVE NUMBER
  6040	035514	200 15 0 00 042432 		MOVE	SCR3,[CNUM,,CNUM+2]	;ADDRESS OF ADDL ERROR PRINT
  6041	035515	120 01 0 00 035602 		DMOVE	AC1,CNUM		;INIT MINUEND TO FLOATING 0/1
  6042	035516	255 17 0 00 035517 		JFCL	17,.+1			;CLEAR PC FLAGS
  6043	035517	115 01 0 00 035604 		DSUB	AC1,CNUM+2		;MAKE IT OVERFLOW (POS OR NEG)
  6044						PCSAVE^
  6045	035520	264 00 0 00 035521 		JSR	.+1		;STORE PC
  6046			035521		FLAGL=.				;LOCATION OF PC
  6047	035521	000000	000000			0			;PC
  6048					^
  6049						CHECKS	(LOC,D,RESULT,RESULT)^
  6050
  6051	035522	400 13 0 00 000000 		SETZ	SCR1,		;POINTER TO WHICH WORD IN ERROR
  6052	035523	312 01 0 00 042415 		CAME	AC1,[RESULT]	;IS LEFT HALF OF RESULT CORRECT?
  6053	035524	254 00 0 00 035530 		JRST	..0341		;NO - GO TO ERROR HANDLING
  6054	035525	201 13 0 00 000001 		MOVEI	SCR1,1		;YES, POINTER TO RIGHT HALF
  6055	035526	316 02 0 00 042415 		CAMN	AC1+1,[RESULT]	;IS RIGHT HALF CORRECT?
  6056	035527	254 00 0 00 035533 		JRST	..0342+1  	;YES - DONT DO ERROR HANDLING
  6057									;	EXCEPT FOR ERLOOP
  6058
  6059	035530	200 14 0 13 000001 	..0341:	MOVE	SCR2,AC1(SCR1)	;GET ACTUAL WORD OF RESULT
  6060	035531	200 13 0 13 042415 		MOVE	SCR1,[EXP RESULT,RESULT](SCR1)	;GET CORRECT RESULT
  6061	035532				..0342:	ERROR	(LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
  6062	035532	036 14 0 00 042363 
  6063	035533	035 00 0 00 035514 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  6064					^
  6065					^
  6066	035534	200 15 0 00 042432 		MOVE	SCR3,[CNUM,,CNUM+2]	;SCR3 - ADDR OF ADDL ERROR PRINT
  6067						TFLAG	([FLAGS],D,SPRINT)^
  6068
  6069	035535	200 13 0 00 035521 		MOVE	SCR1,FLAGL	;GET FLAGS
  6070	035536	200 14 0 00 042140 		MOVE	SCR2,[FLAGS] 	;SCR2 - CORRECT FLAGS
  6071	035537	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 17-8
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0148

  6072	035540	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
  6073	035541	430 13 0 00 000014 		XOR	SCR1,SCR2	;SET ALL MATCHING BITS TO 0
  6074	035542	603 13 0 00 740000 		TLNE	SCR1,740000	;TEST IF MATCH CORRECTLY
  6075						ERROR	(LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
  6076	035543	036 13 0 00 042433 
  6077	035544	035 00 0 00 035514 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  6078					^
  6079					^
  6080					;   ************************************************
  6081
  6082	035545	254 00 0 00 035606 		JRST	SENDD			;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 18
DFKCBM	MAC	26-Sep-79 16:11		DSUB - TEST D                                                                      SEQ 0149

  6083
  6084					; **********************************************************************
  6085					;	8 SETS OF 3 DOUBLEWORDS (MINUEND,SUBTRAHEND,RESULT)
  6086					; **********************************************************************
  6087
  6088	035546	200000	000000		SCOND:	EXP	1B1,0,^B11B1,0
  6089	035547	000000	000000
  6090	035550	600000	000000
  6091	035551	000000	000000
  6092	035552	000000	000001			EXP	1,0,1B0+1,0
  6093	035553	000000	000000
  6094	035554	400000	000001
  6095	035555	000000	000000
  6096	035556	000000	000000			EXP	0,1B1,1B0,1B1
  6097	035557	200000	000000
  6098	035560	400000	000000
  6099	035561	200000	000000
  6100	035562	000000	000000			EXP	0,1,1B0,1
  6101	035563	000000	000001
  6102	035564	400000	000000
  6103	035565	000000	000001
  6104	035566	577777	777777			EXP	577777777777,-1,1B1,0
  6105	035567	777777	777777
  6106	035570	200000	000000
  6107	035571	000000	000000
  6108	035572	777777	777776			EXP	777777777776,-1,377777777777,0
  6109	035573	777777	777777
  6110	035574	377777	777777
  6111	035575	000000	000000
  6112	035576	777777	777777			EXP	-1,577777777777,377777777777,^B11B1
  6113	035577	577777	777777
  6114	035600	377777	777777
  6115	035601	600000	000000
  6116	035602	777777	777777			EXP	-1,-2,377777777777,-1
  6117	035603	777777	777776
  6118	035604	377777	777777
  6119	035605	777777	777777
  6120	035606				SENDD:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 19
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST A                                                                      SEQ 0150

  6121					SUBTTL	DMUL - TEST A
  6122														SALL
  6123			042436			T=SIXBTZ<DMUL TEST>
  6124														LALL
  6125					; **********************************************************************
  6126					;*DMUL - TEST A
  6127					;*
  6128					;*	0,# * 0 = 0	0 * 0,# = 0	THESE ARE GENERAL TESTS TO
  6129					;*	#,0 * 0 = 0	0 * #,0 = 0	ASCERTAIN THAT THE DMUL CAN
  6130					;*	#,# * 0 = 0	0 * #,# = 0	HANDLE DOUBLEWORDS.  THE ACS
  6131					;*      -1,-# * 0 = 0	0 * -1,-# = 0	WILL CONTAIN THE RESULT ARE
  6132					;*      -#,0 * 0 = 0	0 * -#,0 = 0	FILLED WITH GARBAGE AND THE
  6133					;*      -#,-# * 0 = 0	0 * -#,-# = 0	RESULT IS CHECKED TO SEE THAT
  6134					;*	0,0 * 0 = 0			DMUL PRODUCES A 4-WORD LONG
  6135					;*					RESULT IN THE ACS.
  6136					; **********************************************************************
  6137
  6138					; **********************************************************************
  6139					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6140					; **********************************************************************
  6141
  6142						MULT	(A,0,NUM)^
  6143
  6144					; --- MULTIPLICAND = (0,NUM)
  6145					; --- MULTIPLIER === (0,0)
  6146					; --- RESULT ======= (0,0,0,0)
  6147
  6148	035606	200 01 0 00 042450 	..0343:	MOVE	AC1,[[EXP 0,NUM,0,0,0,0,0,0],,MCAND]
  6149	035607	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6150	035610	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6151						ERROR	(..0343,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6152	035611	036 14 0 00 042460 
  6153	035612	035 00 0 00 035606 		ERLOOP	..0343			;IF ERROR, LOOP TO ..0343
  6154					^
  6155					^
  6156
  6157					; **********************************************************************
  6158					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6159					; **********************************************************************
  6160
  6161						MULT	(A,NUM)^
  6162
  6163					; --- MULTIPLICAND = (NUM,0)
  6164					; --- MULTIPLIER === (0,0)
  6165					; --- RESULT ======= (0,0,0,0)
  6166
  6167	035613	200 01 0 00 042473 	..0344:	MOVE	AC1,[[EXP NUM,0,0,0,0,0,0,0],,MCAND]
  6168	035614	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6169	035615	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6170						ERROR	(..0344,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6171	035616	036 14 0 00 042460 
  6172	035617	035 00 0 00 035613 		ERLOOP	..0344			;IF ERROR, LOOP TO ..0344
  6173					^
  6174					^
  6175
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 19-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST A                                                                      SEQ 0151

  6176					; **********************************************************************
  6177					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6178					; **********************************************************************
  6179
  6180						MULT	(A,NUM,NUM)^
  6181
  6182					; --- MULTIPLICAND = (NUM,NUM)
  6183					; --- MULTIPLIER === (0,0)
  6184					; --- RESULT ======= (0,0,0,0)
  6185
  6186	035620	200 01 0 00 042504 	..0345:	MOVE	AC1,[[EXP NUM,NUM,0,0,0,0,0,0],,MCAND]
  6187	035621	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6188	035622	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6189						ERROR	(..0345,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6190	035623	036 14 0 00 042460 
  6191	035624	035 00 0 00 035620 		ERLOOP	..0345			;IF ERROR, LOOP TO ..0345
  6192					^
  6193					^
  6194
  6195					; **********************************************************************
  6196					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6197					; **********************************************************************
  6198
  6199						MULT	(A,0,0,0,NUM)^
  6200
  6201					; --- MULTIPLICAND = (0,0)
  6202					; --- MULTIPLIER === (0,NUM)
  6203					; --- RESULT ======= (0,0,0,0)
  6204
  6205	035625	200 01 0 00 042515 	..0346:	MOVE	AC1,[[EXP 0,0,0,NUM,0,0,0,0],,MCAND]
  6206	035626	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6207	035627	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6208						ERROR	(..0346,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6209	035630	036 14 0 00 042460 
  6210	035631	035 00 0 00 035625 		ERLOOP	..0346			;IF ERROR, LOOP TO ..0346
  6211					^
  6212					^
  6213
  6214					; **********************************************************************
  6215					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6216					; **********************************************************************
  6217
  6218						MULT	(A,0,0,NUM)^
  6219
  6220					; --- MULTIPLICAND = (0,0)
  6221					; --- MULTIPLIER === (NUM,0)
  6222					; --- RESULT ======= (0,0,0,0)
  6223
  6224	035632	200 01 0 00 042526 	..0347:	MOVE	AC1,[[EXP 0,0,NUM,0,0,0,0,0],,MCAND]
  6225	035633	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6226	035634	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6227						ERROR	(..0347,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6228	035635	036 14 0 00 042460 
  6229	035636	035 00 0 00 035632 		ERLOOP	..0347			;IF ERROR, LOOP TO ..0347
  6230					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 19-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST A                                                                      SEQ 0152

  6231					^
  6232
  6233					; **********************************************************************
  6234					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6235					; **********************************************************************
  6236
  6237						MULT	(A,0,0,NUM,NUM)^
  6238
  6239					; --- MULTIPLICAND = (0,0)
  6240					; --- MULTIPLIER === (NUM,NUM)
  6241					; --- RESULT ======= (0,0,0,0)
  6242
  6243	035637	200 01 0 00 042537 	..0350:	MOVE	AC1,[[EXP 0,0,NUM,NUM,0,0,0,0],,MCAND]
  6244	035640	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6245	035641	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6246						ERROR	(..0350,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6247	035642	036 14 0 00 042460 
  6248	035643	035 00 0 00 035637 		ERLOOP	..0350			;IF ERROR, LOOP TO ..0350
  6249					^
  6250					^
  6251
  6252					; **********************************************************************
  6253					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6254					; **********************************************************************
  6255
  6256						MULT	(A,-1,-NUM)^
  6257
  6258					; --- MULTIPLICAND = (-1,-NUM)
  6259					; --- MULTIPLIER === (0,0)
  6260					; --- RESULT ======= (0,0,0,0)
  6261
  6262	035644	200 01 0 00 042550 	..0351:	MOVE	AC1,[[EXP -1,-NUM,0,0,0,0,0,0],,MCAND]
  6263	035645	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6264	035646	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6265						ERROR	(..0351,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6266	035647	036 14 0 00 042460 
  6267	035650	035 00 0 00 035644 		ERLOOP	..0351			;IF ERROR, LOOP TO ..0351
  6268					^
  6269					^
  6270
  6271					; **********************************************************************
  6272					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6273					; **********************************************************************
  6274
  6275						MULT	(A,-NUM,-1)^
  6276
  6277					; --- MULTIPLICAND = (-NUM,-1)
  6278					; --- MULTIPLIER === (0,0)
  6279					; --- RESULT ======= (0,0,0,0)
  6280
  6281	035651	200 01 0 00 042561 	..0352:	MOVE	AC1,[[EXP -NUM,-1,0,0,0,0,0,0],,MCAND]
  6282	035652	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6283	035653	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6284						ERROR	(..0352,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6285	035654	036 14 0 00 042460 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 19-3
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST A                                                                      SEQ 0153

  6286	035655	035 00 0 00 035651 		ERLOOP	..0352			;IF ERROR, LOOP TO ..0352
  6287					^
  6288					^
  6289
  6290					; **********************************************************************
  6291					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6292					; **********************************************************************
  6293
  6294						MULT	(A,-NUM,-NUM)^
  6295
  6296					; --- MULTIPLICAND = (-NUM,-NUM)
  6297					; --- MULTIPLIER === (0,0)
  6298					; --- RESULT ======= (0,0,0,0)
  6299
  6300	035656	200 01 0 00 042572 	..0353:	MOVE	AC1,[[EXP -NUM,-NUM,0,0,0,0,0,0],,MCAND]
  6301	035657	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6302	035660	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6303						ERROR	(..0353,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6304	035661	036 14 0 00 042460 
  6305	035662	035 00 0 00 035656 		ERLOOP	..0353			;IF ERROR, LOOP TO ..0353
  6306					^
  6307					^
  6308
  6309					; **********************************************************************
  6310					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6311					; **********************************************************************
  6312
  6313						MULT	(A,0,0,-1,-NUM)^
  6314
  6315					; --- MULTIPLICAND = (0,0)
  6316					; --- MULTIPLIER === (-1,-NUM)
  6317					; --- RESULT ======= (0,0,0,0)
  6318
  6319	035663	200 01 0 00 042603 	..0354:	MOVE	AC1,[[EXP 0,0,-1,-NUM,0,0,0,0],,MCAND]
  6320	035664	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6321	035665	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6322						ERROR	(..0354,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6323	035666	036 14 0 00 042460 
  6324	035667	035 00 0 00 035663 		ERLOOP	..0354			;IF ERROR, LOOP TO ..0354
  6325					^
  6326					^
  6327
  6328					; **********************************************************************
  6329					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6330					; **********************************************************************
  6331
  6332						MULT	(A,0,0,-NUM,-1)^
  6333
  6334					; --- MULTIPLICAND = (0,0)
  6335					; --- MULTIPLIER === (-NUM,-1)
  6336					; --- RESULT ======= (0,0,0,0)
  6337
  6338	035670	200 01 0 00 042614 	..0355:	MOVE	AC1,[[EXP 0,0,-NUM,-1,0,0,0,0],,MCAND]
  6339	035671	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6340	035672	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 19-4
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST A                                                                      SEQ 0154

  6341						ERROR	(..0355,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6342	035673	036 14 0 00 042460 
  6343	035674	035 00 0 00 035670 		ERLOOP	..0355			;IF ERROR, LOOP TO ..0355
  6344					^
  6345					^
  6346
  6347					; **********************************************************************
  6348					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6349					; **********************************************************************
  6350
  6351						MULT	(A,0,0,-NUM,-NUM)^
  6352
  6353					; --- MULTIPLICAND = (0,0)
  6354					; --- MULTIPLIER === (-NUM,-NUM)
  6355					; --- RESULT ======= (0,0,0,0)
  6356
  6357	035675	200 01 0 00 042625 	..0356:	MOVE	AC1,[[EXP 0,0,-NUM,-NUM,0,0,0,0],,MCAND]
  6358	035676	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6359	035677	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6360						ERROR	(..0356,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6361	035700	036 14 0 00 042460 
  6362	035701	035 00 0 00 035675 		ERLOOP	..0356			;IF ERROR, LOOP TO ..0356
  6363					^
  6364					^
  6365
  6366					; **********************************************************************
  6367					; ----------  DMUL - TEST A  -  # * 0 = 0  ----------
  6368					; **********************************************************************
  6369
  6370						MULT^
  6371
  6372					; --- MULTIPLICAND = (0,0)
  6373					; --- MULTIPLIER === (0,0)
  6374					; --- RESULT ======= (0,0,0,0)
  6375
  6376	035702	200 01 0 00 042636 	..0357:	MOVE	AC1,[[EXP 0,0,0,0,0,0,0,0],,MCAND]
  6377	035703	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6378	035704	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6379						ERROR	(..0357,14,SCR1,SCR2,,TEST  - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6380	035705	036 14 0 00 042646 
  6381	035706	035 00 0 00 035702 		ERLOOP	..0357			;IF ERROR, LOOP TO ..0357
  6382					^
  6383					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 20
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST B                                                                      SEQ 0155

  6384					SUBTTL	DMUL - TEST B
  6385
  6386					; **********************************************************************
  6387					;*DMUL - TEST B
  6388					;*
  6389					;*	0,# * 1 = 0,#		THESE TEST THE DMUL ON A SLIGHTLY
  6390					;*	#,0 * 1 = #,0		STEEPER GRADIENT.  THIS WILL VERIFY
  6391					;*	#,# * 1 = #,#		THAT THE DMUL HANDLES DOUBLEWORDS AND
  6392					;*	-1,-# * 1 = -1,-#	A NON-ZERO MULTIPLIER.  THESE TESTS ARE
  6393					;*	-#,-1 * 1 = -#,-1	REPEATED WITH THE MULTIPLICAND AND THE
  6394					;*	-#,-# * 1 = -#,-#	MULTIPLIER REVERSED.
  6395					; **********************************************************************
  6396
  6397					; **********************************************************************
  6398					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6399					; **********************************************************************
  6400
  6401						MULT	(B,0,NUM,0,1,0,0,0,NUM)^
  6402
  6403					; --- MULTIPLICAND = (0,NUM)
  6404					; --- MULTIPLIER === (0,1)
  6405					; --- RESULT ======= (0,0,0,NUM)
  6406
  6407	035707	200 01 0 00 042661 	..0360:	MOVE	AC1,[[EXP 0,NUM,0,1,0,0,0,NUM],,MCAND]
  6408	035710	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6409	035711	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6410						ERROR	(..0360,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6411	035712	036 14 0 00 042671 
  6412	035713	035 00 0 00 035707 		ERLOOP	..0360			;IF ERROR, LOOP TO ..0360
  6413					^
  6414					^
  6415
  6416					; **********************************************************************
  6417					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6418					; **********************************************************************
  6419
  6420						MULT	(B,NUM,0,0,1,0,0,NUM)^
  6421
  6422					; --- MULTIPLICAND = (NUM,0)
  6423					; --- MULTIPLIER === (0,1)
  6424					; --- RESULT ======= (0,0,NUM,0)
  6425
  6426	035714	200 01 0 00 042704 	..0361:	MOVE	AC1,[[EXP NUM,0,0,1,0,0,NUM,0],,MCAND]
  6427	035715	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6428	035716	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6429						ERROR	(..0361,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6430	035717	036 14 0 00 042671 
  6431	035720	035 00 0 00 035714 		ERLOOP	..0361			;IF ERROR, LOOP TO ..0361
  6432					^
  6433					^
  6434
  6435					; **********************************************************************
  6436					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6437					; **********************************************************************
  6438
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 20-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST B                                                                      SEQ 0156

  6439						MULT	(B,NUM,NUM,0,1,0,0,NUM,NUM)^
  6440
  6441					; --- MULTIPLICAND = (NUM,NUM)
  6442					; --- MULTIPLIER === (0,1)
  6443					; --- RESULT ======= (0,0,NUM,NUM)
  6444
  6445	035721	200 01 0 00 042715 	..0362:	MOVE	AC1,[[EXP NUM,NUM,0,1,0,0,NUM,NUM],,MCAND]
  6446	035722	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6447	035723	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6448						ERROR	(..0362,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6449	035724	036 14 0 00 042671 
  6450	035725	035 00 0 00 035721 		ERLOOP	..0362			;IF ERROR, LOOP TO ..0362
  6451					^
  6452					^
  6453
  6454					; **********************************************************************
  6455					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6456					; **********************************************************************
  6457
  6458						MULT	(B,0,1,0,NUM,0,0,0,NUM)^
  6459
  6460					; --- MULTIPLICAND = (0,1)
  6461					; --- MULTIPLIER === (0,NUM)
  6462					; --- RESULT ======= (0,0,0,NUM)
  6463
  6464	035726	200 01 0 00 042726 	..0363:	MOVE	AC1,[[EXP 0,1,0,NUM,0,0,0,NUM],,MCAND]
  6465	035727	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6466	035730	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6467						ERROR	(..0363,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6468	035731	036 14 0 00 042671 
  6469	035732	035 00 0 00 035726 		ERLOOP	..0363			;IF ERROR, LOOP TO ..0363
  6470					^
  6471					^
  6472
  6473					; **********************************************************************
  6474					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6475					; **********************************************************************
  6476
  6477						MULT	(B,0,1,NUM,0,0,0,NUM)^
  6478
  6479					; --- MULTIPLICAND = (0,1)
  6480					; --- MULTIPLIER === (NUM,0)
  6481					; --- RESULT ======= (0,0,NUM,0)
  6482
  6483	035733	200 01 0 00 042737 	..0364:	MOVE	AC1,[[EXP 0,1,NUM,0,0,0,NUM,0],,MCAND]
  6484	035734	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6485	035735	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6486						ERROR	(..0364,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6487	035736	036 14 0 00 042671 
  6488	035737	035 00 0 00 035733 		ERLOOP	..0364			;IF ERROR, LOOP TO ..0364
  6489					^
  6490					^
  6491
  6492					; **********************************************************************
  6493					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 20-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST B                                                                      SEQ 0157

  6494					; **********************************************************************
  6495
  6496						MULT	(B,0,1,NUM,NUM,0,0,NUM,NUM)^
  6497
  6498					; --- MULTIPLICAND = (0,1)
  6499					; --- MULTIPLIER === (NUM,NUM)
  6500					; --- RESULT ======= (0,0,NUM,NUM)
  6501
  6502	035740	200 01 0 00 042750 	..0365:	MOVE	AC1,[[EXP 0,1,NUM,NUM,0,0,NUM,NUM],,MCAND]
  6503	035741	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6504	035742	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6505						ERROR	(..0365,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6506	035743	036 14 0 00 042671 
  6507	035744	035 00 0 00 035740 		ERLOOP	..0365			;IF ERROR, LOOP TO ..0365
  6508					^
  6509					^
  6510
  6511					; **********************************************************************
  6512					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6513					; **********************************************************************
  6514
  6515						MULT	(B,-1,-NUM,0,1,-1,-1,-1,-NUM)^
  6516
  6517					; --- MULTIPLICAND = (-1,-NUM)
  6518					; --- MULTIPLIER === (0,1)
  6519					; --- RESULT ======= (-1,-1,-1,-NUM)
  6520
  6521	035745	200 01 0 00 042761 	..0366:	MOVE	AC1,[[EXP -1,-NUM,0,1,-1,-1,-1,-NUM],,MCAND]
  6522	035746	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6523	035747	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6524						ERROR	(..0366,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6525	035750	036 14 0 00 042671 
  6526	035751	035 00 0 00 035745 		ERLOOP	..0366			;IF ERROR, LOOP TO ..0366
  6527					^
  6528					^
  6529
  6530					; **********************************************************************
  6531					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6532					; **********************************************************************
  6533
  6534						MULT	(B,-NUM,-1,0,1,-1,-1,-NUM,-1)^
  6535
  6536					; --- MULTIPLICAND = (-NUM,-1)
  6537					; --- MULTIPLIER === (0,1)
  6538					; --- RESULT ======= (-1,-1,-NUM,-1)
  6539
  6540	035752	200 01 0 00 042772 	..0367:	MOVE	AC1,[[EXP -NUM,-1,0,1,-1,-1,-NUM,-1],,MCAND]
  6541	035753	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6542	035754	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6543						ERROR	(..0367,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6544	035755	036 14 0 00 042671 
  6545	035756	035 00 0 00 035752 		ERLOOP	..0367			;IF ERROR, LOOP TO ..0367
  6546					^
  6547					^
  6548
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 20-3
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST B                                                                      SEQ 0158

  6549					; **********************************************************************
  6550					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6551					; **********************************************************************
  6552
  6553						MULT	(B,-NUM,-NUM,0,1,-1,-1,-NUM,-NUM)^
  6554
  6555					; --- MULTIPLICAND = (-NUM,-NUM)
  6556					; --- MULTIPLIER === (0,1)
  6557					; --- RESULT ======= (-1,-1,-NUM,-NUM)
  6558
  6559	035757	200 01 0 00 043003 	..0370:	MOVE	AC1,[[EXP -NUM,-NUM,0,1,-1,-1,-NUM,-NUM],,MCAND]
  6560	035760	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6561	035761	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6562						ERROR	(..0370,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6563	035762	036 14 0 00 042671 
  6564	035763	035 00 0 00 035757 		ERLOOP	..0370			;IF ERROR, LOOP TO ..0370
  6565					^
  6566					^
  6567
  6568					; **********************************************************************
  6569					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6570					; **********************************************************************
  6571
  6572						MULT	(B,0,1,-1,-NUM,-1,-1,-1,-NUM)^
  6573
  6574					; --- MULTIPLICAND = (0,1)
  6575					; --- MULTIPLIER === (-1,-NUM)
  6576					; --- RESULT ======= (-1,-1,-1,-NUM)
  6577
  6578	035764	200 01 0 00 043014 	..0371:	MOVE	AC1,[[EXP 0,1,-1,-NUM,-1,-1,-1,-NUM],,MCAND]
  6579	035765	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6580	035766	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6581						ERROR	(..0371,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6582	035767	036 14 0 00 042671 
  6583	035770	035 00 0 00 035764 		ERLOOP	..0371			;IF ERROR, LOOP TO ..0371
  6584					^
  6585					^
  6586
  6587					; **********************************************************************
  6588					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6589					; **********************************************************************
  6590
  6591						MULT	(B,0,1,-NUM,-1,-1,-1,-NUM,-1)^
  6592
  6593					; --- MULTIPLICAND = (0,1)
  6594					; --- MULTIPLIER === (-NUM,-1)
  6595					; --- RESULT ======= (-1,-1,-NUM,-1)
  6596
  6597	035771	200 01 0 00 043025 	..0372:	MOVE	AC1,[[EXP 0,1,-NUM,-1,-1,-1,-NUM,-1],,MCAND]
  6598	035772	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6599	035773	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6600						ERROR	(..0372,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6601	035774	036 14 0 00 042671 
  6602	035775	035 00 0 00 035771 		ERLOOP	..0372			;IF ERROR, LOOP TO ..0372
  6603					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 20-4
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST B                                                                      SEQ 0159

  6604					^
  6605
  6606					; **********************************************************************
  6607					; ----------  DMUL - TEST B  -  # * 1 = 1  ----------
  6608					; **********************************************************************
  6609
  6610						MULT	(B,0,1,-NUM,-NUM,-1,-1,-NUM,-NUM)^
  6611
  6612					; --- MULTIPLICAND = (0,1)
  6613					; --- MULTIPLIER === (-NUM,-NUM)
  6614					; --- RESULT ======= (-1,-1,-NUM,-NUM)
  6615
  6616	035776	200 01 0 00 043036 	..0373:	MOVE	AC1,[[EXP 0,1,-NUM,-NUM,-1,-1,-NUM,-NUM],,MCAND]
  6617	035777	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6618	036000	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6619						ERROR	(..0373,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6620	036001	036 14 0 00 042671 
  6621	036002	035 00 0 00 035776 		ERLOOP	..0373			;IF ERROR, LOOP TO ..0373
  6622					^
  6623					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0160

  6624					SUBTTL	DMUL - TEST C
  6625
  6626					; **********************************************************************
  6627					;*DMUL - TEST C
  6628					;*
  6629					;*	0,1777.. * 2		THESE TESTS VERIFY THAT BITS ARE
  6630					;*	0,3777.. * 2		SHIFTED ACROSS WORD BOUNDARIES. A WORD
  6631					;*	1777..,3777.. * 2	OF ONES IS MULTIPLIED BY A FLOATING 1
  6632					;*	3777..,3777.. * 2	WHICH WILL CAUSE A SHIFT ACROSS WORD
  6633					;*	0,3777.. * 1,0		BOUNDARIES OR NOT. THE TEST VERIFIES
  6634					;*	1,3777.. * 1,0		THAT THE SHIFT IS DONE PROPERLY FOR
  6635					;*	3777..,3777.. * 1,0	BOUNDARY CONDITIONS.
  6636					;*	0,1777.. * 2,0		IN EACH TEST THE PC FLAGS ARE TESTED
  6637					;*	0,3777.. * 2,0		SINCE THERE ARE NO OVERFLOW CONDITIONS
  6638					;*	3777..,3777.. * 2,0	THE LEFTMOST BIT OF THE PC SHOULD BE
  6639					;*				0 (NO AROV).
  6640					;*				THESE TESTS ARE REPEATED WITH MULT-
  6641					;*				PLICAND AND MULTIPLIER REVERSED.
  6642					; **********************************************************************
  6643
  6644					; **********************************************************************
  6645					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6646					; **********************************************************************
  6647
  6648						MULTF	(C,0,177777777777,0,2,0,0,0,377777777776)^
  6649
  6650					; --- MULTIPLICAND = (0,177777777777)
  6651					; --- MULTIPLIER === (0,2)
  6652					; --- RESULT ======= (0,0,0,377777777776)
  6653
  6654	036003	200 01 0 00 043047 	..0374:	MOVE	AC1,[[EXP 0,177777777777,0,2,0,0,0,377777777776],,MCAND]
  6655	036004	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6656	036005	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6657						ERROR	(..0374,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6658	036006	036 14 0 00 043057 
  6659	036007	035 00 0 00 036003 		ERLOOP	..0374			;IF ERROR, LOOP TO ..0374
  6660					^
  6661
  6662	036010	200 14 0 00 040733 	..0375:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6663	036011	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6664						ERROR	(..0374,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6665					LL
  6666	036012	036 13 0 00 043071 
  6667	036013	035 00 0 00 036003 		ERLOOP	..0374			;IF ERROR, LOOP TO ..0374
  6668					^
  6669					^
  6670
  6671					; **********************************************************************
  6672					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6673					; **********************************************************************
  6674
  6675						MULTF	(C,0,377777777777,0,2,0,0,1,377777777776)^
  6676
  6677					; --- MULTIPLICAND = (0,377777777777)
  6678					; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0161

  6679					; --- RESULT ======= (0,0,1,377777777776)
  6680
  6681	036014	200 01 0 00 043104 	..0376:	MOVE	AC1,[[EXP 0,377777777777,0,2,0,0,1,377777777776],,MCAND]
  6682	036015	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6683	036016	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6684						ERROR	(..0376,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6685	036017	036 14 0 00 043057 
  6686	036020	035 00 0 00 036014 		ERLOOP	..0376			;IF ERROR, LOOP TO ..0376
  6687					^
  6688
  6689	036021	200 14 0 00 040733 	..0377:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6690	036022	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6691						ERROR	(..0376,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6692					LL
  6693	036023	036 13 0 00 043071 
  6694	036024	035 00 0 00 036014 		ERLOOP	..0376			;IF ERROR, LOOP TO ..0376
  6695					^
  6696					^
  6697
  6698					; **********************************************************************
  6699					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6700					; **********************************************************************
  6701
  6702						MULTF	(C,177777777777,377777777777,0,2,0,0,377777777777,377777777776)^
  6703
  6704					; --- MULTIPLICAND = (177777777777,377777777777)
  6705					; --- MULTIPLIER === (0,2)
  6706					; --- RESULT ======= (0,0,377777777777,377777777776)
  6707
  6708					..0400:	MOVE	AC1,[[EXP 177777777777,377777777777,0,2,0,0,377777777777,377777777776],,MCA
  6709	036025	200 01 0 00 043115 	ND]
  6710	036026	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6711	036027	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6712						ERROR	(..0400,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6713	036030	036 14 0 00 043057 
  6714	036031	035 00 0 00 036025 		ERLOOP	..0400			;IF ERROR, LOOP TO ..0400
  6715					^
  6716
  6717	036032	200 14 0 00 040733 	..0401:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6718	036033	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6719						ERROR	(..0400,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6720					LL
  6721	036034	036 13 0 00 043071 
  6722	036035	035 00 0 00 036025 		ERLOOP	..0400			;IF ERROR, LOOP TO ..0400
  6723					^
  6724					^
  6725
  6726					; **********************************************************************
  6727					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6728					; **********************************************************************
  6729
  6730						MULTF	(C,377777777777,377777777777,0,2,0,1,377777777777,377777777776)^
  6731
  6732					; --- MULTIPLICAND = (377777777777,377777777777)
  6733					; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0162

  6734					; --- RESULT ======= (0,1,377777777777,377777777776)
  6735
  6736					..0402:	MOVE	AC1,[[EXP 377777777777,377777777777,0,2,0,1,377777777777,377777777776],,MCA
  6737	036036	200 01 0 00 043126 	ND]
  6738	036037	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6739	036040	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6740						ERROR	(..0402,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6741	036041	036 14 0 00 043057 
  6742	036042	035 00 0 00 036036 		ERLOOP	..0402			;IF ERROR, LOOP TO ..0402
  6743					^
  6744
  6745	036043	200 14 0 00 040733 	..0403:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6746	036044	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6747						ERROR	(..0402,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6748					LL
  6749	036045	036 13 0 00 043071 
  6750	036046	035 00 0 00 036036 		ERLOOP	..0402			;IF ERROR, LOOP TO ..0402
  6751					^
  6752					^
  6753
  6754					; **********************************************************************
  6755					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6756					; **********************************************************************
  6757
  6758						MULTF	(C,0,377777777777,1,0,0,0,377777777777)^
  6759
  6760					; --- MULTIPLICAND = (0,377777777777)
  6761					; --- MULTIPLIER === (1,0)
  6762					; --- RESULT ======= (0,0,377777777777,0)
  6763
  6764	036047	200 01 0 00 043137 	..0404:	MOVE	AC1,[[EXP 0,377777777777,1,0,0,0,377777777777,0],,MCAND]
  6765	036050	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6766	036051	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6767						ERROR	(..0404,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6768	036052	036 14 0 00 043057 
  6769	036053	035 00 0 00 036047 		ERLOOP	..0404			;IF ERROR, LOOP TO ..0404
  6770					^
  6771
  6772	036054	200 14 0 00 040733 	..0405:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6773	036055	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6774						ERROR	(..0404,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6775					LL
  6776	036056	036 13 0 00 043071 
  6777	036057	035 00 0 00 036047 		ERLOOP	..0404			;IF ERROR, LOOP TO ..0404
  6778					^
  6779					^
  6780
  6781					; **********************************************************************
  6782					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6783					; **********************************************************************
  6784
  6785						MULTF	(C,1,377777777777,1,0,0,1,377777777777)^
  6786
  6787					; --- MULTIPLICAND = (1,377777777777)
  6788					; --- MULTIPLIER === (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-3
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0163

  6789					; --- RESULT ======= (0,1,377777777777,0)
  6790
  6791	036060	200 01 0 00 043150 	..0406:	MOVE	AC1,[[EXP 1,377777777777,1,0,0,1,377777777777,0],,MCAND]
  6792	036061	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6793	036062	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6794						ERROR	(..0406,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6795	036063	036 14 0 00 043057 
  6796	036064	035 00 0 00 036060 		ERLOOP	..0406			;IF ERROR, LOOP TO ..0406
  6797					^
  6798
  6799	036065	200 14 0 00 040733 	..0407:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6800	036066	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6801						ERROR	(..0406,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6802					LL
  6803	036067	036 13 0 00 043071 
  6804	036070	035 00 0 00 036060 		ERLOOP	..0406			;IF ERROR, LOOP TO ..0406
  6805					^
  6806					^
  6807
  6808					; **********************************************************************
  6809					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6810					; **********************************************************************
  6811
  6812						MULTF	(C,377777777777,377777777777,1,0,0,377777777777,377777777777)^
  6813
  6814					; --- MULTIPLICAND = (377777777777,377777777777)
  6815					; --- MULTIPLIER === (1,0)
  6816					; --- RESULT ======= (0,377777777777,377777777777,0)
  6817
  6818					..0410:	MOVE	AC1,[[EXP 377777777777,377777777777,1,0,0,377777777777,377777777777,0],,MCA
  6819	036071	200 01 0 00 043161 	ND]
  6820	036072	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6821	036073	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6822						ERROR	(..0410,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6823	036074	036 14 0 00 043057 
  6824	036075	035 00 0 00 036071 		ERLOOP	..0410			;IF ERROR, LOOP TO ..0410
  6825					^
  6826
  6827	036076	200 14 0 00 040733 	..0411:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6828	036077	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6829						ERROR	(..0410,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6830					LL
  6831	036100	036 13 0 00 043071 
  6832	036101	035 00 0 00 036071 		ERLOOP	..0410			;IF ERROR, LOOP TO ..0410
  6833					^
  6834					^
  6835
  6836					; **********************************************************************
  6837					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6838					; **********************************************************************
  6839
  6840						MULTF	(C,0,177777777777,2,0,0,0,377777777776)^
  6841
  6842					; --- MULTIPLICAND = (0,177777777777)
  6843					; --- MULTIPLIER === (2,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-4
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0164

  6844					; --- RESULT ======= (0,0,377777777776,0)
  6845
  6846	036102	200 01 0 00 043172 	..0412:	MOVE	AC1,[[EXP 0,177777777777,2,0,0,0,377777777776,0],,MCAND]
  6847	036103	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6848	036104	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6849						ERROR	(..0412,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6850	036105	036 14 0 00 043057 
  6851	036106	035 00 0 00 036102 		ERLOOP	..0412			;IF ERROR, LOOP TO ..0412
  6852					^
  6853
  6854	036107	200 14 0 00 040733 	..0413:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6855	036110	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6856						ERROR	(..0412,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6857					LL
  6858	036111	036 13 0 00 043071 
  6859	036112	035 00 0 00 036102 		ERLOOP	..0412			;IF ERROR, LOOP TO ..0412
  6860					^
  6861					^
  6862
  6863					; **********************************************************************
  6864					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6865					; **********************************************************************
  6866
  6867						MULTF	(C,0,377777777777,2,0,0,1,377777777776)^
  6868
  6869					; --- MULTIPLICAND = (0,377777777777)
  6870					; --- MULTIPLIER === (2,0)
  6871					; --- RESULT ======= (0,1,377777777776,0)
  6872
  6873	036113	200 01 0 00 043203 	..0414:	MOVE	AC1,[[EXP 0,377777777777,2,0,0,1,377777777776,0],,MCAND]
  6874	036114	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6875	036115	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6876						ERROR	(..0414,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6877	036116	036 14 0 00 043057 
  6878	036117	035 00 0 00 036113 		ERLOOP	..0414			;IF ERROR, LOOP TO ..0414
  6879					^
  6880
  6881	036120	200 14 0 00 040733 	..0415:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6882	036121	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6883						ERROR	(..0414,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6884					LL
  6885	036122	036 13 0 00 043071 
  6886	036123	035 00 0 00 036113 		ERLOOP	..0414			;IF ERROR, LOOP TO ..0414
  6887					^
  6888					^
  6889
  6890					; **********************************************************************
  6891					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6892					; **********************************************************************
  6893
  6894						MULTF	(C,377777777777,377777777777,2,0,1,377777777777,377777777776)^
  6895
  6896					; --- MULTIPLICAND = (377777777777,377777777777)
  6897					; --- MULTIPLIER === (2,0)
  6898					; --- RESULT ======= (1,377777777777,377777777776,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-5
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0165

  6899
  6900					..0416:	MOVE	AC1,[[EXP 377777777777,377777777777,2,0,1,377777777777,377777777776,0],,MCA
  6901	036124	200 01 0 00 043214 	ND]
  6902	036125	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6903	036126	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6904						ERROR	(..0416,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6905	036127	036 14 0 00 043057 
  6906	036130	035 00 0 00 036124 		ERLOOP	..0416			;IF ERROR, LOOP TO ..0416
  6907					^
  6908
  6909	036131	200 14 0 00 040733 	..0417:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6910	036132	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6911						ERROR	(..0416,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6912					LL
  6913	036133	036 13 0 00 043071 
  6914	036134	035 00 0 00 036124 		ERLOOP	..0416			;IF ERROR, LOOP TO ..0416
  6915					^
  6916					^
  6917
  6918					; **********************************************************************
  6919					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6920					; **********************************************************************
  6921
  6922						MULTF	(C,0,2,0,177777777777,0,0,0,377777777776)^
  6923
  6924					; --- MULTIPLICAND = (0,2)
  6925					; --- MULTIPLIER === (0,177777777777)
  6926					; --- RESULT ======= (0,0,0,377777777776)
  6927
  6928	036135	200 01 0 00 043225 	..0420:	MOVE	AC1,[[EXP 0,2,0,177777777777,0,0,0,377777777776],,MCAND]
  6929	036136	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6930	036137	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6931						ERROR	(..0420,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6932	036140	036 14 0 00 043057 
  6933	036141	035 00 0 00 036135 		ERLOOP	..0420			;IF ERROR, LOOP TO ..0420
  6934					^
  6935
  6936	036142	200 14 0 00 040733 	..0421:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6937	036143	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6938						ERROR	(..0420,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6939					LL
  6940	036144	036 13 0 00 043071 
  6941	036145	035 00 0 00 036135 		ERLOOP	..0420			;IF ERROR, LOOP TO ..0420
  6942					^
  6943					^
  6944
  6945					; **********************************************************************
  6946					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6947					; **********************************************************************
  6948
  6949						MULTF	(C,0,2,0,377777777777,0,0,1,377777777776)^
  6950
  6951					; --- MULTIPLICAND = (0,2)
  6952					; --- MULTIPLIER === (0,377777777777)
  6953					; --- RESULT ======= (0,0,1,377777777776)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-6
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0166

  6954
  6955	036146	200 01 0 00 043236 	..0422:	MOVE	AC1,[[EXP 0,2,0,377777777777,0,0,1,377777777776],,MCAND]
  6956	036147	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6957	036150	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6958						ERROR	(..0422,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6959	036151	036 14 0 00 043057 
  6960	036152	035 00 0 00 036146 		ERLOOP	..0422			;IF ERROR, LOOP TO ..0422
  6961					^
  6962
  6963	036153	200 14 0 00 040733 	..0423:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6964	036154	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6965						ERROR	(..0422,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6966					LL
  6967	036155	036 13 0 00 043071 
  6968	036156	035 00 0 00 036146 		ERLOOP	..0422			;IF ERROR, LOOP TO ..0422
  6969					^
  6970					^
  6971
  6972					; **********************************************************************
  6973					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  6974					; **********************************************************************
  6975
  6976						MULTF	(C,0,2,177777777777,377777777777,0,0,377777777777,377777777776)^
  6977
  6978					; --- MULTIPLICAND = (0,2)
  6979					; --- MULTIPLIER === (177777777777,377777777777)
  6980					; --- RESULT ======= (0,0,377777777777,377777777776)
  6981
  6982					..0424:	MOVE	AC1,[[EXP 0,2,177777777777,377777777777,0,0,377777777777,377777777776],,MCA
  6983	036157	200 01 0 00 043247 	ND]
  6984	036160	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  6985	036161	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  6986						ERROR	(..0424,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  6987	036162	036 14 0 00 043057 
  6988	036163	035 00 0 00 036157 		ERLOOP	..0424			;IF ERROR, LOOP TO ..0424
  6989					^
  6990
  6991	036164	200 14 0 00 040733 	..0425:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  6992	036165	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  6993						ERROR	(..0424,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  6994					LL
  6995	036166	036 13 0 00 043071 
  6996	036167	035 00 0 00 036157 		ERLOOP	..0424			;IF ERROR, LOOP TO ..0424
  6997					^
  6998					^
  6999
  7000					; **********************************************************************
  7001					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7002					; **********************************************************************
  7003
  7004						MULTF	(C,0,2,377777777777,377777777777,0,1,377777777777,377777777776)^
  7005
  7006					; --- MULTIPLICAND = (0,2)
  7007					; --- MULTIPLIER === (377777777777,377777777777)
  7008					; --- RESULT ======= (0,1,377777777777,377777777776)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-7
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0167

  7009
  7010					..0426:	MOVE	AC1,[[EXP 0,2,377777777777,377777777777,0,1,377777777777,377777777776],,MCA
  7011	036170	200 01 0 00 043260 	ND]
  7012	036171	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7013	036172	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7014						ERROR	(..0426,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7015	036173	036 14 0 00 043057 
  7016	036174	035 00 0 00 036170 		ERLOOP	..0426			;IF ERROR, LOOP TO ..0426
  7017					^
  7018
  7019	036175	200 14 0 00 040733 	..0427:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7020	036176	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7021						ERROR	(..0426,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7022					LL
  7023	036177	036 13 0 00 043071 
  7024	036200	035 00 0 00 036170 		ERLOOP	..0426			;IF ERROR, LOOP TO ..0426
  7025					^
  7026					^
  7027
  7028					; **********************************************************************
  7029					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7030					; **********************************************************************
  7031
  7032						MULTF	(C,1,0,0,377777777777,0,0,377777777777)^
  7033
  7034					; --- MULTIPLICAND = (1,0)
  7035					; --- MULTIPLIER === (0,377777777777)
  7036					; --- RESULT ======= (0,0,377777777777,0)
  7037
  7038	036201	200 01 0 00 043271 	..0430:	MOVE	AC1,[[EXP 1,0,0,377777777777,0,0,377777777777,0],,MCAND]
  7039	036202	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7040	036203	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7041						ERROR	(..0430,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7042	036204	036 14 0 00 043057 
  7043	036205	035 00 0 00 036201 		ERLOOP	..0430			;IF ERROR, LOOP TO ..0430
  7044					^
  7045
  7046	036206	200 14 0 00 040733 	..0431:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7047	036207	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7048						ERROR	(..0430,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7049					LL
  7050	036210	036 13 0 00 043071 
  7051	036211	035 00 0 00 036201 		ERLOOP	..0430			;IF ERROR, LOOP TO ..0430
  7052					^
  7053					^
  7054
  7055					; **********************************************************************
  7056					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7057					; **********************************************************************
  7058
  7059						MULTF	(C,1,0,1,377777777777,0,1,377777777777)^
  7060
  7061					; --- MULTIPLICAND = (1,0)
  7062					; --- MULTIPLIER === (1,377777777777)
  7063					; --- RESULT ======= (0,1,377777777777,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-8
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0168

  7064
  7065	036212	200 01 0 00 043302 	..0432:	MOVE	AC1,[[EXP 1,0,1,377777777777,0,1,377777777777,0],,MCAND]
  7066	036213	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7067	036214	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7068						ERROR	(..0432,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7069	036215	036 14 0 00 043057 
  7070	036216	035 00 0 00 036212 		ERLOOP	..0432			;IF ERROR, LOOP TO ..0432
  7071					^
  7072
  7073	036217	200 14 0 00 040733 	..0433:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7074	036220	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7075						ERROR	(..0432,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7076					LL
  7077	036221	036 13 0 00 043071 
  7078	036222	035 00 0 00 036212 		ERLOOP	..0432			;IF ERROR, LOOP TO ..0432
  7079					^
  7080					^
  7081
  7082					; **********************************************************************
  7083					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7084					; **********************************************************************
  7085
  7086						MULTF	(C,1,0,377777777777,377777777777,0,377777777777,377777777777)^
  7087
  7088					; --- MULTIPLICAND = (1,0)
  7089					; --- MULTIPLIER === (377777777777,377777777777)
  7090					; --- RESULT ======= (0,377777777777,377777777777,0)
  7091
  7092					..0434:	MOVE	AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777,377777777777,0],,MCA
  7093	036223	200 01 0 00 043313 	ND]
  7094	036224	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7095	036225	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7096						ERROR	(..0434,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7097	036226	036 14 0 00 043057 
  7098	036227	035 00 0 00 036223 		ERLOOP	..0434			;IF ERROR, LOOP TO ..0434
  7099					^
  7100
  7101	036230	200 14 0 00 040733 	..0435:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7102	036231	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7103						ERROR	(..0434,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7104					LL
  7105	036232	036 13 0 00 043071 
  7106	036233	035 00 0 00 036223 		ERLOOP	..0434			;IF ERROR, LOOP TO ..0434
  7107					^
  7108					^
  7109
  7110					; **********************************************************************
  7111					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7112					; **********************************************************************
  7113
  7114						MULTF	(C,2,0,0,177777777777,0,0,377777777776)^
  7115
  7116					; --- MULTIPLICAND = (2,0)
  7117					; --- MULTIPLIER === (0,177777777777)
  7118					; --- RESULT ======= (0,0,377777777776,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-9
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0169

  7119
  7120	036234	200 01 0 00 043324 	..0436:	MOVE	AC1,[[EXP 2,0,0,177777777777,0,0,377777777776,0],,MCAND]
  7121	036235	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7122	036236	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7123						ERROR	(..0436,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7124	036237	036 14 0 00 043057 
  7125	036240	035 00 0 00 036234 		ERLOOP	..0436			;IF ERROR, LOOP TO ..0436
  7126					^
  7127
  7128	036241	200 14 0 00 040733 	..0437:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7129	036242	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7130						ERROR	(..0436,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7131					LL
  7132	036243	036 13 0 00 043071 
  7133	036244	035 00 0 00 036234 		ERLOOP	..0436			;IF ERROR, LOOP TO ..0436
  7134					^
  7135					^
  7136
  7137					; **********************************************************************
  7138					; ----------  DMUL - TEST C  -  SHIFT 1'S ACROSS WORD BOUNDARIES  ----------
  7139					; **********************************************************************
  7140
  7141						MULTF	(C,2,0,0,377777777777,0,1,377777777776)^
  7142
  7143					; --- MULTIPLICAND = (2,0)
  7144					; --- MULTIPLIER === (0,377777777777)
  7145					; --- RESULT ======= (0,1,377777777776,0)
  7146
  7147	036245	200 01 0 00 043335 	..0440:	MOVE	AC1,[[EXP 2,0,0,377777777777,0,1,377777777776,0],,MCAND]
  7148	036246	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7149	036247	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7150						ERROR	(..0440,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7151	036250	036 14 0 00 043057 
  7152	036251	035 00 0 00 036245 		ERLOOP	..0440			;IF ERROR, LOOP TO ..0440
  7153					^
  7154
  7155	036252	200 14 0 00 040733 	..0441:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7156	036253	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7157						ERROR	(..0440,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7158					LL
  7159	036254	036 13 0 00 043071 
  7160	036255	035 00 0 00 036245 		ERLOOP	..0440			;IF ERROR, LOOP TO ..0440
  7161					^
  7162					^
  7163
  7164					; **********************************************************************
  7165					; ----------  DMUL - TEST C  -  SHIFT ACROSS WORD BOUNDARIES  ----------
  7166					; **********************************************************************
  7167
  7168						MULTF	(C,2,0,377777777777,377777777777,1,377777777777,377777777776)^
  7169
  7170					; --- MULTIPLICAND = (2,0)
  7171					; --- MULTIPLIER === (377777777777,377777777777)
  7172					; --- RESULT ======= (1,377777777777,377777777776,0)
  7173
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 21-10
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST C                                                                      SEQ 0170

  7174					..0442:	MOVE	AC1,[[EXP 2,0,377777777777,377777777777,1,377777777777,377777777776,0],,MCA
  7175	036256	200 01 0 00 043346 	ND]
  7176	036257	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7177	036260	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7178						ERROR	(..0442,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7179	036261	036 14 0 00 043057 
  7180	036262	035 00 0 00 036256 		ERLOOP	..0442			;IF ERROR, LOOP TO ..0442
  7181					^
  7182
  7183	036263	200 14 0 00 040733 	..0443:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7184	036264	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7185						ERROR	(..0442,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7186					LL
  7187	036265	036 13 0 00 043071 
  7188	036266	035 00 0 00 036256 		ERLOOP	..0442			;IF ERROR, LOOP TO ..0442
  7189					^
  7190					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0171

  7191					SUBTTL	DMUL - TEST D
  7192
  7193					; **********************************************************************
  7194					;*DMUL - TEST D
  7195					;*
  7196					;*	7777..,6000.. * 2	THESE TESTS VERIFY THAT BITS ARE
  7197					;*	7777..,4000.. * 2	SHIFTED ACROSS WORD BOUNDARIES. A WORD
  7198					;*	6000..,4000.. * 2	OF ONES IS MULTIPLIED BY A FLOATING 1
  7199					;*	4000..,4000.. * 2	WHICH WILL CAUSE A SHIFT ACROSS WORD
  7200					;*	777..,400.. * 1,0	BOUNDARIES OR NOT. THE TEST VERIFIES
  7201					;*	..776,400.. * 1,0	THAT THE SHIFT IS DONE PROPERLY FOR
  7202					;*	400..,400.. * 1,0	BOUNDARY CONDITIONS.
  7203					;*	777..,600.. * 2,0	IN EACH TEST THE PC FLAGS ARE TESTED
  7204					;*	777..,400.. * 2,0	SINCE THERE ARE NO OVERFLOW CONDITIONS
  7205					;*	400..,400.. * 2,0	THE LEFTMOST BIT OF THE PC SHOULD BE
  7206					;*				0 (NO AROV).
  7207					;*				THESE TESTS ARE REPEATED WITH MULT-
  7208					;*				PLICAND AND MULTIPLIER REVERSED.
  7209					; **********************************************************************
  7210
  7211					; **********************************************************************
  7212					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7213					; **********************************************************************
  7214
  7215						MULTF	(D,-1,600000000000,0,2,-1,-1,-1,400000000000)^
  7216
  7217					; --- MULTIPLICAND = (-1,600000000000)
  7218					; --- MULTIPLIER === (0,2)
  7219					; --- RESULT ======= (-1,-1,-1,400000000000)
  7220
  7221	036267	200 01 0 00 043357 	..0444:	MOVE	AC1,[[EXP -1,600000000000,0,2,-1,-1,-1,400000000000],,MCAND]
  7222	036270	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7223	036271	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7224						ERROR	(..0444,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7225	036272	036 14 0 00 043367 
  7226	036273	035 00 0 00 036267 		ERLOOP	..0444			;IF ERROR, LOOP TO ..0444
  7227					^
  7228
  7229	036274	200 14 0 00 040733 	..0445:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7230	036275	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7231						ERROR	(..0444,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7232					LL
  7233	036276	036 13 0 00 043401 
  7234	036277	035 00 0 00 036267 		ERLOOP	..0444			;IF ERROR, LOOP TO ..0444
  7235					^
  7236					^
  7237
  7238					; **********************************************************************
  7239					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7240					; **********************************************************************
  7241
  7242						MULTF	(D,-1,400000000000,0,2,-1,-1,-2,400000000000)^
  7243
  7244					; --- MULTIPLICAND = (-1,400000000000)
  7245					; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0172

  7246					; --- RESULT ======= (-1,-1,-2,400000000000)
  7247
  7248	036300	200 01 0 00 043414 	..0446:	MOVE	AC1,[[EXP -1,400000000000,0,2,-1,-1,-2,400000000000],,MCAND]
  7249	036301	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7250	036302	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7251						ERROR	(..0446,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7252	036303	036 14 0 00 043367 
  7253	036304	035 00 0 00 036300 		ERLOOP	..0446			;IF ERROR, LOOP TO ..0446
  7254					^
  7255
  7256	036305	200 14 0 00 040733 	..0447:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7257	036306	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7258						ERROR	(..0446,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7259					LL
  7260	036307	036 13 0 00 043401 
  7261	036310	035 00 0 00 036300 		ERLOOP	..0446			;IF ERROR, LOOP TO ..0446
  7262					^
  7263					^
  7264
  7265					; **********************************************************************
  7266					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7267					; **********************************************************************
  7268
  7269						MULTF	(D,600000000000,400000000000,0,2,-1,-1,400000000000,400000000000)^
  7270
  7271					; --- MULTIPLICAND = (600000000000,400000000000)
  7272					; --- MULTIPLIER === (0,2)
  7273					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7274
  7275					..0450:	MOVE	AC1,[[EXP 600000000000,400000000000,0,2,-1,-1,400000000000,400000000000],,M
  7276	036311	200 01 0 00 043425 	CAND]
  7277	036312	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7278	036313	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7279						ERROR	(..0450,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7280	036314	036 14 0 00 043367 
  7281	036315	035 00 0 00 036311 		ERLOOP	..0450			;IF ERROR, LOOP TO ..0450
  7282					^
  7283
  7284	036316	200 14 0 00 040733 	..0451:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7285	036317	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7286						ERROR	(..0450,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7287					LL
  7288	036320	036 13 0 00 043401 
  7289	036321	035 00 0 00 036311 		ERLOOP	..0450			;IF ERROR, LOOP TO ..0450
  7290					^
  7291					^
  7292
  7293					; **********************************************************************
  7294					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7295					; **********************************************************************
  7296
  7297						MULTF	(D,400000000000,400000000000,0,2,-1,-2,400000000000,400000000000)^
  7298
  7299					; --- MULTIPLICAND = (400000000000,400000000000)
  7300					; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0173

  7301					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7302
  7303					..0452:	MOVE	AC1,[[EXP 400000000000,400000000000,0,2,-1,-2,400000000000,400000000000],,M
  7304	036322	200 01 0 00 043436 	CAND]
  7305	036323	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7306	036324	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7307						ERROR	(..0452,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7308	036325	036 14 0 00 043367 
  7309	036326	035 00 0 00 036322 		ERLOOP	..0452			;IF ERROR, LOOP TO ..0452
  7310					^
  7311
  7312	036327	200 14 0 00 040733 	..0453:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7313	036330	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7314						ERROR	(..0452,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7315					LL
  7316	036331	036 13 0 00 043401 
  7317	036332	035 00 0 00 036322 		ERLOOP	..0452			;IF ERROR, LOOP TO ..0452
  7318					^
  7319					^
  7320
  7321					; **********************************************************************
  7322					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7323					; **********************************************************************
  7324
  7325						MULTF	(D,-1,400000000000,1,0,-1,-1,400000000000,400000000000)^
  7326
  7327					; --- MULTIPLICAND = (-1,400000000000)
  7328					; --- MULTIPLIER === (1,0)
  7329					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7330
  7331	036333	200 01 0 00 043447 	..0454:	MOVE	AC1,[[EXP -1,400000000000,1,0,-1,-1,400000000000,400000000000],,MCAND]
  7332	036334	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7333	036335	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7334						ERROR	(..0454,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7335	036336	036 14 0 00 043367 
  7336	036337	035 00 0 00 036333 		ERLOOP	..0454			;IF ERROR, LOOP TO ..0454
  7337					^
  7338
  7339	036340	200 14 0 00 040733 	..0455:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7340	036341	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7341						ERROR	(..0454,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7342					LL
  7343	036342	036 13 0 00 043401 
  7344	036343	035 00 0 00 036333 		ERLOOP	..0454			;IF ERROR, LOOP TO ..0454
  7345					^
  7346					^
  7347
  7348					; **********************************************************************
  7349					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7350					; **********************************************************************
  7351
  7352						MULTF	(D,-2,400000000000,1,0,-1,-2,400000000000,400000000000)^
  7353
  7354					; --- MULTIPLICAND = (-2,400000000000)
  7355					; --- MULTIPLIER === (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-3
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0174

  7356					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7357
  7358	036344	200 01 0 00 043460 	..0456:	MOVE	AC1,[[EXP -2,400000000000,1,0,-1,-2,400000000000,400000000000],,MCAND]
  7359	036345	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7360	036346	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7361						ERROR	(..0456,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7362	036347	036 14 0 00 043367 
  7363	036350	035 00 0 00 036344 		ERLOOP	..0456			;IF ERROR, LOOP TO ..0456
  7364					^
  7365
  7366	036351	200 14 0 00 040733 	..0457:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7367	036352	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7368						ERROR	(..0456,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7369					LL
  7370	036353	036 13 0 00 043401 
  7371	036354	035 00 0 00 036344 		ERLOOP	..0456			;IF ERROR, LOOP TO ..0456
  7372					^
  7373					^
  7374
  7375					; **********************************************************************
  7376					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7377					; **********************************************************************
  7378
  7379						MULTF	(D,400000000000,400000000000,1,0,-1,400000000000,400000000000,400000000000)
  7380					^
  7381
  7382					; --- MULTIPLICAND = (400000000000,400000000000)
  7383					; --- MULTIPLIER === (1,0)
  7384					; --- RESULT ======= (-1,400000000000,400000000000,400000000000)
  7385
  7386					..0460:	MOVE	AC1,[[EXP 400000000000,400000000000,1,0,-1,400000000000,400000000000,400000
  7387	036355	200 01 0 00 043471 	000000],,MCAND]
  7388	036356	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7389	036357	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7390						ERROR	(..0460,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7391	036360	036 14 0 00 043367 
  7392	036361	035 00 0 00 036355 		ERLOOP	..0460			;IF ERROR, LOOP TO ..0460
  7393					^
  7394
  7395	036362	200 14 0 00 040733 	..0461:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7396	036363	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7397						ERROR	(..0460,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7398					LL
  7399	036364	036 13 0 00 043401 
  7400	036365	035 00 0 00 036355 		ERLOOP	..0460			;IF ERROR, LOOP TO ..0460
  7401					^
  7402					^
  7403
  7404					; **********************************************************************
  7405					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7406					; **********************************************************************
  7407
  7408						MULTF	(D,-1,600000000000,2,0,-1,-1,400000000000,400000000000)^
  7409
  7410					; --- MULTIPLICAND = (-1,600000000000)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-4
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0175

  7411					; --- MULTIPLIER === (2,0)
  7412					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7413
  7414	036366	200 01 0 00 043502 	..0462:	MOVE	AC1,[[EXP -1,600000000000,2,0,-1,-1,400000000000,400000000000],,MCAND]
  7415	036367	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7416	036370	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7417						ERROR	(..0462,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7418	036371	036 14 0 00 043367 
  7419	036372	035 00 0 00 036366 		ERLOOP	..0462			;IF ERROR, LOOP TO ..0462
  7420					^
  7421
  7422	036373	200 14 0 00 040733 	..0463:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7423	036374	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7424						ERROR	(..0462,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7425					LL
  7426	036375	036 13 0 00 043401 
  7427	036376	035 00 0 00 036366 		ERLOOP	..0462			;IF ERROR, LOOP TO ..0462
  7428					^
  7429					^
  7430
  7431					; **********************************************************************
  7432					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7433					; **********************************************************************
  7434
  7435						MULTF	(D,-1,400000000000,2,0,-1,-2,400000000000,400000000000)^
  7436
  7437					; --- MULTIPLICAND = (-1,400000000000)
  7438					; --- MULTIPLIER === (2,0)
  7439					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7440
  7441	036377	200 01 0 00 043513 	..0464:	MOVE	AC1,[[EXP -1,400000000000,2,0,-1,-2,400000000000,400000000000],,MCAND]
  7442	036400	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7443	036401	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7444						ERROR	(..0464,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7445	036402	036 14 0 00 043367 
  7446	036403	035 00 0 00 036377 		ERLOOP	..0464			;IF ERROR, LOOP TO ..0464
  7447					^
  7448
  7449	036404	200 14 0 00 040733 	..0465:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7450	036405	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7451						ERROR	(..0464,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7452					LL
  7453	036406	036 13 0 00 043401 
  7454	036407	035 00 0 00 036377 		ERLOOP	..0464			;IF ERROR, LOOP TO ..0464
  7455					^
  7456					^
  7457
  7458					; **********************************************************************
  7459					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7460					; **********************************************************************
  7461
  7462						MULTF	(D,400000000000,400000000000,2,0,-2,400000000000,400000000000,400000000000)
  7463					^
  7464
  7465					; --- MULTIPLICAND = (400000000000,400000000000)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-5
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0176

  7466					; --- MULTIPLIER === (2,0)
  7467					; --- RESULT ======= (-2,400000000000,400000000000,400000000000)
  7468
  7469					..0466:	MOVE	AC1,[[EXP 400000000000,400000000000,2,0,-2,400000000000,400000000000,400000
  7470	036410	200 01 0 00 043524 	000000],,MCAND]
  7471	036411	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7472	036412	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7473						ERROR	(..0466,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7474	036413	036 14 0 00 043367 
  7475	036414	035 00 0 00 036410 		ERLOOP	..0466			;IF ERROR, LOOP TO ..0466
  7476					^
  7477
  7478	036415	200 14 0 00 040733 	..0467:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7479	036416	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7480						ERROR	(..0466,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7481					LL
  7482	036417	036 13 0 00 043401 
  7483	036420	035 00 0 00 036410 		ERLOOP	..0466			;IF ERROR, LOOP TO ..0466
  7484					^
  7485					^
  7486
  7487					; **********************************************************************
  7488					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7489					; **********************************************************************
  7490
  7491						MULTF	(D,0,2,-1,600000000000,-1,-1,-1,400000000000)^
  7492
  7493					; --- MULTIPLICAND = (0,2)
  7494					; --- MULTIPLIER === (-1,600000000000)
  7495					; --- RESULT ======= (-1,-1,-1,400000000000)
  7496
  7497	036421	200 01 0 00 043535 	..0470:	MOVE	AC1,[[EXP 0,2,-1,600000000000,-1,-1,-1,400000000000],,MCAND]
  7498	036422	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7499	036423	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7500						ERROR	(..0470,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7501	036424	036 14 0 00 043367 
  7502	036425	035 00 0 00 036421 		ERLOOP	..0470			;IF ERROR, LOOP TO ..0470
  7503					^
  7504
  7505	036426	200 14 0 00 040733 	..0471:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7506	036427	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7507						ERROR	(..0470,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7508					LL
  7509	036430	036 13 0 00 043401 
  7510	036431	035 00 0 00 036421 		ERLOOP	..0470			;IF ERROR, LOOP TO ..0470
  7511					^
  7512					^
  7513
  7514					; **********************************************************************
  7515					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7516					; **********************************************************************
  7517
  7518						MULTF	(D,0,2,-1,400000000000,-1,-1,-2,400000000000)^
  7519
  7520					; --- MULTIPLICAND = (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-6
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0177

  7521					; --- MULTIPLIER === (-1,400000000000)
  7522					; --- RESULT ======= (-1,-1,-2,400000000000)
  7523
  7524	036432	200 01 0 00 043546 	..0472:	MOVE	AC1,[[EXP 0,2,-1,400000000000,-1,-1,-2,400000000000],,MCAND]
  7525	036433	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7526	036434	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7527						ERROR	(..0472,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7528	036435	036 14 0 00 043367 
  7529	036436	035 00 0 00 036432 		ERLOOP	..0472			;IF ERROR, LOOP TO ..0472
  7530					^
  7531
  7532	036437	200 14 0 00 040733 	..0473:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7533	036440	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7534						ERROR	(..0472,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7535					LL
  7536	036441	036 13 0 00 043401 
  7537	036442	035 00 0 00 036432 		ERLOOP	..0472			;IF ERROR, LOOP TO ..0472
  7538					^
  7539					^
  7540
  7541					; **********************************************************************
  7542					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7543					; **********************************************************************
  7544
  7545						MULTF	(D,0,2,600000000000,400000000000,-1,-1,400000000000,400000000000)^
  7546
  7547					; --- MULTIPLICAND = (0,2)
  7548					; --- MULTIPLIER === (600000000000,400000000000)
  7549					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7550
  7551					..0474:	MOVE	AC1,[[EXP 0,2,600000000000,400000000000,-1,-1,400000000000,400000000000],,M
  7552	036443	200 01 0 00 043557 	CAND]
  7553	036444	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7554	036445	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7555						ERROR	(..0474,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7556	036446	036 14 0 00 043367 
  7557	036447	035 00 0 00 036443 		ERLOOP	..0474			;IF ERROR, LOOP TO ..0474
  7558					^
  7559
  7560	036450	200 14 0 00 040733 	..0475:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7561	036451	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7562						ERROR	(..0474,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7563					LL
  7564	036452	036 13 0 00 043401 
  7565	036453	035 00 0 00 036443 		ERLOOP	..0474			;IF ERROR, LOOP TO ..0474
  7566					^
  7567					^
  7568
  7569					; **********************************************************************
  7570					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7571					; **********************************************************************
  7572
  7573						MULTF	(D,0,2,400000000000,400000000000,-1,-2,400000000000,400000000000)^
  7574
  7575					; --- MULTIPLICAND = (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-7
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0178

  7576					; --- MULTIPLIER === (400000000000,400000000000)
  7577					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7578
  7579					..0476:	MOVE	AC1,[[EXP 0,2,400000000000,400000000000,-1,-2,400000000000,400000000000],,M
  7580	036454	200 01 0 00 043570 	CAND]
  7581	036455	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7582	036456	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7583						ERROR	(..0476,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7584	036457	036 14 0 00 043367 
  7585	036460	035 00 0 00 036454 		ERLOOP	..0476			;IF ERROR, LOOP TO ..0476
  7586					^
  7587
  7588	036461	200 14 0 00 040733 	..0477:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7589	036462	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7590						ERROR	(..0476,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7591					LL
  7592	036463	036 13 0 00 043401 
  7593	036464	035 00 0 00 036454 		ERLOOP	..0476			;IF ERROR, LOOP TO ..0476
  7594					^
  7595					^
  7596
  7597					; **********************************************************************
  7598					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7599					; **********************************************************************
  7600
  7601						MULTF	(D,1,0,-1,400000000000,-1,-1,400000000000,400000000000)^
  7602
  7603					; --- MULTIPLICAND = (1,0)
  7604					; --- MULTIPLIER === (-1,400000000000)
  7605					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7606
  7607	036465	200 01 0 00 043601 	..0500:	MOVE	AC1,[[EXP 1,0,-1,400000000000,-1,-1,400000000000,400000000000],,MCAND]
  7608	036466	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7609	036467	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7610						ERROR	(..0500,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7611	036470	036 14 0 00 043367 
  7612	036471	035 00 0 00 036465 		ERLOOP	..0500			;IF ERROR, LOOP TO ..0500
  7613					^
  7614
  7615	036472	200 14 0 00 040733 	..0501:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7616	036473	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7617						ERROR	(..0500,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7618					LL
  7619	036474	036 13 0 00 043401 
  7620	036475	035 00 0 00 036465 		ERLOOP	..0500			;IF ERROR, LOOP TO ..0500
  7621					^
  7622					^
  7623
  7624					; **********************************************************************
  7625					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7626					; **********************************************************************
  7627
  7628						MULTF	(D,1,0,-2,400000000000,-1,-2,400000000000,400000000000)^
  7629
  7630					; --- MULTIPLICAND = (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-8
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0179

  7631					; --- MULTIPLIER === (-2,400000000000)
  7632					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7633
  7634	036476	200 01 0 00 043612 	..0502:	MOVE	AC1,[[EXP 1,0,-2,400000000000,-1,-2,400000000000,400000000000],,MCAND]
  7635	036477	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7636	036500	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7637						ERROR	(..0502,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7638	036501	036 14 0 00 043367 
  7639	036502	035 00 0 00 036476 		ERLOOP	..0502			;IF ERROR, LOOP TO ..0502
  7640					^
  7641
  7642	036503	200 14 0 00 040733 	..0503:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7643	036504	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7644						ERROR	(..0502,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7645					LL
  7646	036505	036 13 0 00 043401 
  7647	036506	035 00 0 00 036476 		ERLOOP	..0502			;IF ERROR, LOOP TO ..0502
  7648					^
  7649					^
  7650
  7651					; **********************************************************************
  7652					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7653					; **********************************************************************
  7654
  7655						MULTF	(D,1,0,400000000000,400000000000,-1,400000000000,400000000000,400000000000)
  7656					^
  7657
  7658					; --- MULTIPLICAND = (1,0)
  7659					; --- MULTIPLIER === (400000000000,400000000000)
  7660					; --- RESULT ======= (-1,400000000000,400000000000,400000000000)
  7661
  7662					..0504:	MOVE	AC1,[[EXP 1,0,400000000000,400000000000,-1,400000000000,400000000000,400000
  7663	036507	200 01 0 00 043623 	000000],,MCAND]
  7664	036510	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7665	036511	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7666						ERROR	(..0504,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7667	036512	036 14 0 00 043367 
  7668	036513	035 00 0 00 036507 		ERLOOP	..0504			;IF ERROR, LOOP TO ..0504
  7669					^
  7670
  7671	036514	200 14 0 00 040733 	..0505:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7672	036515	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7673						ERROR	(..0504,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7674					LL
  7675	036516	036 13 0 00 043401 
  7676	036517	035 00 0 00 036507 		ERLOOP	..0504			;IF ERROR, LOOP TO ..0504
  7677					^
  7678					^
  7679
  7680					; **********************************************************************
  7681					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7682					; **********************************************************************
  7683
  7684						MULTF	(D,2,0,-1,600000000000,-1,-1,400000000000,400000000000)^
  7685
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-9
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0180

  7686					; --- MULTIPLICAND = (2,0)
  7687					; --- MULTIPLIER === (-1,600000000000)
  7688					; --- RESULT ======= (-1,-1,400000000000,400000000000)
  7689
  7690	036520	200 01 0 00 043634 	..0506:	MOVE	AC1,[[EXP 2,0,-1,600000000000,-1,-1,400000000000,400000000000],,MCAND]
  7691	036521	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7692	036522	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7693						ERROR	(..0506,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7694	036523	036 14 0 00 043367 
  7695	036524	035 00 0 00 036520 		ERLOOP	..0506			;IF ERROR, LOOP TO ..0506
  7696					^
  7697
  7698	036525	200 14 0 00 040733 	..0507:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7699	036526	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7700						ERROR	(..0506,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7701					LL
  7702	036527	036 13 0 00 043401 
  7703	036530	035 00 0 00 036520 		ERLOOP	..0506			;IF ERROR, LOOP TO ..0506
  7704					^
  7705					^
  7706
  7707					; **********************************************************************
  7708					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7709					; **********************************************************************
  7710
  7711						MULTF	(D,2,0,-1,400000000000,-1,-2,400000000000,400000000000)^
  7712
  7713					; --- MULTIPLICAND = (2,0)
  7714					; --- MULTIPLIER === (-1,400000000000)
  7715					; --- RESULT ======= (-1,-2,400000000000,400000000000)
  7716
  7717	036531	200 01 0 00 043645 	..0510:	MOVE	AC1,[[EXP 2,0,-1,400000000000,-1,-2,400000000000,400000000000],,MCAND]
  7718	036532	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7719	036533	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7720						ERROR	(..0510,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7721	036534	036 14 0 00 043367 
  7722	036535	035 00 0 00 036531 		ERLOOP	..0510			;IF ERROR, LOOP TO ..0510
  7723					^
  7724
  7725	036536	200 14 0 00 040733 	..0511:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7726	036537	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7727						ERROR	(..0510,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7728					LL
  7729	036540	036 13 0 00 043401 
  7730	036541	035 00 0 00 036531 		ERLOOP	..0510			;IF ERROR, LOOP TO ..0510
  7731					^
  7732					^
  7733
  7734					; **********************************************************************
  7735					; ----------  DMUL - TEST D  -  SHIFT 0'S ACROSS WORD BOUNDARIES  ----------
  7736					; **********************************************************************
  7737
  7738						MULTF	(D,2,0,400000000000,400000000000,-2,400000000000,400000000000,400000000000)
  7739					^
  7740
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 22-10
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST D                                                                      SEQ 0181

  7741					; --- MULTIPLICAND = (2,0)
  7742					; --- MULTIPLIER === (400000000000,400000000000)
  7743					; --- RESULT ======= (-2,400000000000,400000000000,400000000000)
  7744
  7745					..0512:	MOVE	AC1,[[EXP 2,0,400000000000,400000000000,-2,400000000000,400000000000,400000
  7746	036542	200 01 0 00 043656 	000000],,MCAND]
  7747	036543	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7748	036544	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7749						ERROR	(..0512,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7750	036545	036 14 0 00 043367 
  7751	036546	035 00 0 00 036542 		ERLOOP	..0512			;IF ERROR, LOOP TO ..0512
  7752					^
  7753
  7754	036547	200 14 0 00 040733 	..0513:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7755	036550	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7756						ERROR	(..0512,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7757					LL
  7758	036551	036 13 0 00 043401 
  7759	036552	035 00 0 00 036542 		ERLOOP	..0512			;IF ERROR, LOOP TO ..0512
  7760					^
  7761					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 23
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST E (OVERFLOW)                                                           SEQ 0182

  7762					SUBTTL	DMUL - TEST E (OVERFLOW)
  7763
  7764					; **********************************************************************
  7765					;*DMUL - TEST E
  7766					;*
  7767					;*  -2^70 * -2^70	THIS IS THE ONLY CASE THAT CAN SET
  7768					;*			THE AROV FLAG.  THIS TEST VERIFIES THE
  7769					;*			RESULT AND CHECKS THE SETTING OF THE
  7770					;*			AROV FLAG.
  7771					;*
  7772					;* ------- MULTIPLICAND = (4000...,4000...)
  7773					;* ------- MULTIPLIER === (4000...,4000...)
  7774					;* ------- RESULT ======= (4000...,4000...,4000...,4000...)
  7775					; **********************************************************************
  7776
  7777			036553			LOC=.
  7778
  7779	036553	120 01 0 00 042354 		DMOVE	AC1,[EXP 1B0,1B0] 	;INIT MULTIPLICAND
  7780	036554	120 03 0 00 043657 		DMOVE	AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN
  7781										;  RIGHT HALF OF RESULT
  7782	036555	400 13 0 00 000000 		SETZ	SCR1,			;POINTER TO WHICH WORD INCORRECT
  7783	036556	255 17 0 00 036557 		JFCL	17,.+1			;CLEAR FLAGS
  7784	036557	116 01 0 00 000001 		DMUL	AC1,AC1			;MULTIPLY
  7785						PCSAVE^
  7786	036560	264 00 0 00 036561 		JSR	.+1		;STORE PC
  7787			036561		FLAGL=.				;LOCATION OF PC
  7788	036561	000000	000000			0			;PC
  7789					^
  7790	036562	312 01 0 00 042201 		CAME	AC1,[1B0]		;1ST WORD OF RESULT OK?
  7791	036563	254 00 0 00 036575 		JRST	MOVERR			;NO - GO DO ERROR PRINTOUT
  7792	036564	201 13 0 00 000001 		MOVEI	SCR1,1			;POINT TO 2ND WORD
  7793	036565	312 02 0 00 042201 		CAME	AC1+1,[1B0]		;2ND WORD OF RESULT OK?
  7794	036566	254 00 0 00 036575 		JRST	MOVERR			;NO - GO DO ERROR PRINTOUT
  7795	036567	201 13 0 00 000002 		MOVEI	SCR1,2			;POINT TO 3RD WORD
  7796	036570	312 03 0 00 042201 		CAME	AC1+2,[1B0]		;3RD WORD OF RESULT OK?
  7797	036571	254 00 0 00 036575 		JRST	MOVERR			;NO - GO DO ERROR PRINTOUT
  7798	036572	201 13 0 00 000003 		MOVEI	SCR1,3			;POINT TO 4TH WORD
  7799	036573	316 04 0 00 042201 		CAMN	AC1+3,[1B0]		;4TH WORD OF RESULT OK?
  7800	036574	254 00 0 00 036600 		JRST	MOVOK			;YES - GO CHECK AROV FLAGS
  7801	036575	200 13 0 13 000001 	MOVERR:	MOVE	SCR1,AC1(SCR1)		;GET INCORRECT WORD
  7802						ERROR	(LOC,13,[1B0],SCR1,,TEST E - RESULT INCORRECT,MPRINT)^SALL
  7803	036576	036 13 0 00 043666 
  7804	036577	035 00 0 00 036553 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  7805					^
  7806	036600	255 10 0 00 036604 	MOVOK:	JOV	MOVRR+1			;TEST OVERFLOW - SHOULD BE ON
  7807	036601	201 15 0 00 042354 		MOVEI	SCR3,[EXP 1B0,1B0]	;ADDRESS OF OPERANDS FOR ADDL
  7808	036602	504 15 0 00 000015 		HRL	SCR3,SCR3		;  ERROR PRINT ROUTINE
  7809	036603				MOVRR:	ERROR	(LOC,13,AC1,FLAGL,,TEST E - PC FLAGS INCORRECT - LEFT 4 BITS,MPRINT)^SALL
  7810	036603	036 13 0 00 043700 
  7811	036604	035 00 0 00 036553 		ERLOOP	LOC			;IF ERROR, LOOP TO LOC
  7812					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 24
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST F - TEST NEGATIVE OPERANDS                                             SEQ 0183

  7813					SUBTTL	DMUL - TEST F - TEST NEGATIVE OPERANDS
  7814
  7815					; **********************************************************************
  7816					;*DMUL - TEST F
  7817					;*
  7818					;*       -2 * -3		THESE TESTS VERIFY THAT THE DMUL HANDLES
  7819					;*       -2,0 * -3		THE SIGNS PROPERLY WHEN MULTIPLYING 
  7820					;*       -2 * -3,0		OPERANDS WHICH ARE BOTH NEGATIVE.  TESTS
  7821					;*       -2,0 * -3,0		B,C,D TESTED THE COMBINATIONS POS*POS,
  7822					;*				POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE
  7823					;*				AROV FLAG IS ALSO TESTED TO ASCERTAIN 
  7824					;*				THAT IT WAS NOT SET.
  7825					; **********************************************************************
  7826
  7827					; **********************************************************************
  7828					; ----------  DMUL TEST F - TEST NEGATIVE OPERANDS  ----------
  7829					; **********************************************************************
  7830
  7831						MULTF	(F,-1,-2,-1,-3,0,0,0,6)^
  7832
  7833					; --- MULTIPLICAND = (-1,-2)
  7834					; --- MULTIPLIER === (-1,-3)
  7835					; --- RESULT ======= (0,0,0,6)
  7836
  7837	036605	200 01 0 00 043713 	..0514:	MOVE	AC1,[[EXP -1,-2,-1,-3,0,0,0,6],,MCAND]
  7838	036606	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7839	036607	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7840						ERROR	(..0514,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7841	036610	036 14 0 00 043723 
  7842	036611	035 00 0 00 036605 		ERLOOP	..0514			;IF ERROR, LOOP TO ..0514
  7843					^
  7844
  7845	036612	200 14 0 00 040733 	..0515:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7846	036613	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7847						ERROR	(..0514,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7848					LL
  7849	036614	036 13 0 00 043735 
  7850	036615	035 00 0 00 036605 		ERLOOP	..0514			;IF ERROR, LOOP TO ..0514
  7851					^
  7852					^
  7853
  7854					; **********************************************************************
  7855					; ----------  DMUL TEST F - TEST NEGATIVE OPERANDS  ----------
  7856					; **********************************************************************
  7857
  7858						MULTF	(F,-2,400000000000,-1,-3,0,0,6)^
  7859
  7860					; --- MULTIPLICAND = (-2,400000000000)
  7861					; --- MULTIPLIER === (-1,-3)
  7862					; --- RESULT ======= (0,0,6,0)
  7863
  7864	036616	200 01 0 00 043750 	..0516:	MOVE	AC1,[[EXP -2,400000000000,-1,-3,0,0,6,0],,MCAND]
  7865	036617	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7866	036620	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7867						ERROR	(..0516,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 24-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST F - TEST NEGATIVE OPERANDS                                             SEQ 0184

  7868	036621	036 14 0 00 043723 
  7869	036622	035 00 0 00 036616 		ERLOOP	..0516			;IF ERROR, LOOP TO ..0516
  7870					^
  7871
  7872	036623	200 14 0 00 040733 	..0517:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7873	036624	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7874						ERROR	(..0516,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7875					LL
  7876	036625	036 13 0 00 043735 
  7877	036626	035 00 0 00 036616 		ERLOOP	..0516			;IF ERROR, LOOP TO ..0516
  7878					^
  7879					^
  7880
  7881					; **********************************************************************
  7882					; ----------  DMUL TEST F - TEST NEGATIVE OPERANDS  ----------
  7883					; **********************************************************************
  7884
  7885						MULTF	(F,-1,-2,-3,400000000000,0,0,6)^
  7886
  7887					; --- MULTIPLICAND = (-1,-2)
  7888					; --- MULTIPLIER === (-3,400000000000)
  7889					; --- RESULT ======= (0,0,6,0)
  7890
  7891	036627	200 01 0 00 043761 	..0520:	MOVE	AC1,[[EXP -1,-2,-3,400000000000,0,0,6,0],,MCAND]
  7892	036630	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7893	036631	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7894						ERROR	(..0520,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7895	036632	036 14 0 00 043723 
  7896	036633	035 00 0 00 036627 		ERLOOP	..0520			;IF ERROR, LOOP TO ..0520
  7897					^
  7898
  7899	036634	200 14 0 00 040733 	..0521:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7900	036635	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7901						ERROR	(..0520,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7902					LL
  7903	036636	036 13 0 00 043735 
  7904	036637	035 00 0 00 036627 		ERLOOP	..0520			;IF ERROR, LOOP TO ..0520
  7905					^
  7906					^
  7907
  7908					; **********************************************************************
  7909					; ----------  DMUL TEST F - TEST NEGATIVE OPERANDS  ----------
  7910					; **********************************************************************
  7911
  7912						MULTF	(F,-2,400000000000,-3,400000000000,0,6)^
  7913
  7914					; --- MULTIPLICAND = (-2,400000000000)
  7915					; --- MULTIPLIER === (-3,400000000000)
  7916					; --- RESULT ======= (0,6,0,0)
  7917
  7918	036640	200 01 0 00 043772 	..0522:	MOVE	AC1,[[EXP -2,400000000000,-3,400000000000,0,6,0,0],,MCAND]
  7919	036641	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7920	036642	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7921						ERROR	(..0522,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7922	036643	036 14 0 00 043723 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 24-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST F - TEST NEGATIVE OPERANDS                                             SEQ 0185

  7923	036644	035 00 0 00 036640 		ERLOOP	..0522			;IF ERROR, LOOP TO ..0522
  7924					^
  7925
  7926	036645	200 14 0 00 040733 	..0523:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7927	036646	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7928						ERROR	(..0522,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7929					LL
  7930	036647	036 13 0 00 043735 
  7931	036650	035 00 0 00 036640 		ERLOOP	..0522			;IF ERROR, LOOP TO ..0522
  7932					^
  7933					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0186

  7934					SUBTTL	DMUL - TEST G
  7935
  7936					; **********************************************************************
  7937					;*DMUL - TEST G
  7938					;*
  7939					;*	2 * 3	  2,0 * 3,0	THESE TESTS MULTIPLY NUMBERS WHICH HAVE
  7940					;*	2 * -3	  2,0 * -3,0	INCONSISTENT SIGNS AMONGST THE WORDS OF
  7941					;*      -2 * 3	 -2,-1 * 3,0	EACH OPERAND.  THE FLAGS IS ALSO TESTED
  7942					;*      -2 * -3	 -2,-1 * -3,0	TO VERIFY THAT IT IS NOT SET.
  7943					; **********************************************************************
  7944
  7945					; **********************************************************************
  7946					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  7947					; **********************************************************************
  7948
  7949						MULTF	(G,0,2,0,400000000003,0,0,0,6)^
  7950
  7951					; --- MULTIPLICAND = (0,2)
  7952					; --- MULTIPLIER === (0,400000000003)
  7953					; --- RESULT ======= (0,0,0,6)
  7954
  7955	036651	200 01 0 00 044003 	..0524:	MOVE	AC1,[[EXP 0,2,0,400000000003,0,0,0,6],,MCAND]
  7956	036652	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7957	036653	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7958						ERROR	(..0524,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7959	036654	036 14 0 00 044013 
  7960	036655	035 00 0 00 036651 		ERLOOP	..0524			;IF ERROR, LOOP TO ..0524
  7961					^
  7962
  7963	036656	200 14 0 00 040733 	..0525:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7964	036657	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7965						ERROR	(..0524,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7966					LL
  7967	036660	036 13 0 00 044025 
  7968	036661	035 00 0 00 036651 		ERLOOP	..0524			;IF ERROR, LOOP TO ..0524
  7969					^
  7970					^
  7971
  7972					; **********************************************************************
  7973					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  7974					; **********************************************************************
  7975
  7976						MULTF	(G,0,400000000002,0,400000000003,0,0,0,6)^
  7977
  7978					; --- MULTIPLICAND = (0,400000000002)
  7979					; --- MULTIPLIER === (0,400000000003)
  7980					; --- RESULT ======= (0,0,0,6)
  7981
  7982	036662	200 01 0 00 044040 	..0526:	MOVE	AC1,[[EXP 0,400000000002,0,400000000003,0,0,0,6],,MCAND]
  7983	036663	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  7984	036664	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  7985						ERROR	(..0526,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  7986	036665	036 14 0 00 044013 
  7987	036666	035 00 0 00 036662 		ERLOOP	..0526			;IF ERROR, LOOP TO ..0526
  7988					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-1
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0187

  7989
  7990	036667	200 14 0 00 040733 	..0527:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  7991	036670	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  7992						ERROR	(..0526,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  7993					LL
  7994	036671	036 13 0 00 044025 
  7995	036672	035 00 0 00 036662 		ERLOOP	..0526			;IF ERROR, LOOP TO ..0526
  7996					^
  7997					^
  7998
  7999					; **********************************************************************
  8000					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8001					; **********************************************************************
  8002
  8003						MULTF	(G,0,400000000002,0,3,0,0,0,6)^
  8004
  8005					; --- MULTIPLICAND = (0,400000000002)
  8006					; --- MULTIPLIER === (0,3)
  8007					; --- RESULT ======= (0,0,0,6)
  8008
  8009	036673	200 01 0 00 044051 	..0530:	MOVE	AC1,[[EXP 0,400000000002,0,3,0,0,0,6],,MCAND]
  8010	036674	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8011	036675	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8012						ERROR	(..0530,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8013	036676	036 14 0 00 044013 
  8014	036677	035 00 0 00 036673 		ERLOOP	..0530			;IF ERROR, LOOP TO ..0530
  8015					^
  8016
  8017	036700	200 14 0 00 040733 	..0531:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8018	036701	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8019						ERROR	(..0530,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8020					LL
  8021	036702	036 13 0 00 044025 
  8022	036703	035 00 0 00 036673 		ERLOOP	..0530			;IF ERROR, LOOP TO ..0530
  8023					^
  8024					^
  8025
  8026					; **********************************************************************
  8027					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8028					; **********************************************************************
  8029
  8030						MULTF	(G,0,2,-1,377777777775,-1,-1,-1,-6)^
  8031
  8032					; --- MULTIPLICAND = (0,2)
  8033					; --- MULTIPLIER === (-1,377777777775)
  8034					; --- RESULT ======= (-1,-1,-1,-6)
  8035
  8036	036704	200 01 0 00 044062 	..0532:	MOVE	AC1,[[EXP 0,2,-1,377777777775,-1,-1,-1,-6],,MCAND]
  8037	036705	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8038	036706	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8039						ERROR	(..0532,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8040	036707	036 14 0 00 044013 
  8041	036710	035 00 0 00 036704 		ERLOOP	..0532			;IF ERROR, LOOP TO ..0532
  8042					^
  8043
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-2
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0188

  8044	036711	200 14 0 00 040733 	..0533:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8045	036712	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8046						ERROR	(..0532,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8047					LL
  8048	036713	036 13 0 00 044025 
  8049	036714	035 00 0 00 036704 		ERLOOP	..0532			;IF ERROR, LOOP TO ..0532
  8050					^
  8051					^
  8052
  8053					; **********************************************************************
  8054					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8055					; **********************************************************************
  8056
  8057						MULTF	(G,0,400000000002,-1,377777777775,-1,-1,-1,-6)^
  8058
  8059					; --- MULTIPLICAND = (0,400000000002)
  8060					; --- MULTIPLIER === (-1,377777777775)
  8061					; --- RESULT ======= (-1,-1,-1,-6)
  8062
  8063	036715	200 01 0 00 044073 	..0534:	MOVE	AC1,[[EXP 0,400000000002,-1,377777777775,-1,-1,-1,-6],,MCAND]
  8064	036716	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8065	036717	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8066						ERROR	(..0534,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8067	036720	036 14 0 00 044013 
  8068	036721	035 00 0 00 036715 		ERLOOP	..0534			;IF ERROR, LOOP TO ..0534
  8069					^
  8070
  8071	036722	200 14 0 00 040733 	..0535:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8072	036723	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8073						ERROR	(..0534,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8074					LL
  8075	036724	036 13 0 00 044025 
  8076	036725	035 00 0 00 036715 		ERLOOP	..0534			;IF ERROR, LOOP TO ..0534
  8077					^
  8078					^
  8079
  8080					; **********************************************************************
  8081					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8082					; **********************************************************************
  8083
  8084						MULTF	(G,0,400000000002,-1,-3,-1,-1,-1,-6)^
  8085
  8086					; --- MULTIPLICAND = (0,400000000002)
  8087					; --- MULTIPLIER === (-1,-3)
  8088					; --- RESULT ======= (-1,-1,-1,-6)
  8089
  8090	036726	200 01 0 00 044104 	..0536:	MOVE	AC1,[[EXP 0,400000000002,-1,-3,-1,-1,-1,-6],,MCAND]
  8091	036727	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8092	036730	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8093						ERROR	(..0536,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8094	036731	036 14 0 00 044013 
  8095	036732	035 00 0 00 036726 		ERLOOP	..0536			;IF ERROR, LOOP TO ..0536
  8096					^
  8097
  8098	036733	200 14 0 00 040733 	..0537:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-3
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0189

  8099	036734	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8100						ERROR	(..0536,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8101					LL
  8102	036735	036 13 0 00 044025 
  8103	036736	035 00 0 00 036726 		ERLOOP	..0536			;IF ERROR, LOOP TO ..0536
  8104					^
  8105					^
  8106
  8107					; **********************************************************************
  8108					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8109					; **********************************************************************
  8110
  8111						MULTF	(G,-1,-2,0,400000000003,-1,-1,-1,-6)^
  8112
  8113					; --- MULTIPLICAND = (-1,-2)
  8114					; --- MULTIPLIER === (0,400000000003)
  8115					; --- RESULT ======= (-1,-1,-1,-6)
  8116
  8117	036737	200 01 0 00 044115 	..0540:	MOVE	AC1,[[EXP -1,-2,0,400000000003,-1,-1,-1,-6],,MCAND]
  8118	036740	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8119	036741	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8120						ERROR	(..0540,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8121	036742	036 14 0 00 044013 
  8122	036743	035 00 0 00 036737 		ERLOOP	..0540			;IF ERROR, LOOP TO ..0540
  8123					^
  8124
  8125	036744	200 14 0 00 040733 	..0541:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8126	036745	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8127						ERROR	(..0540,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8128					LL
  8129	036746	036 13 0 00 044025 
  8130	036747	035 00 0 00 036737 		ERLOOP	..0540			;IF ERROR, LOOP TO ..0540
  8131					^
  8132					^
  8133
  8134					; **********************************************************************
  8135					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8136					; **********************************************************************
  8137
  8138						MULTF	(G,-1,377777777776,0,400000000003,-1,-1,-1,-6)^
  8139
  8140					; --- MULTIPLICAND = (-1,377777777776)
  8141					; --- MULTIPLIER === (0,400000000003)
  8142					; --- RESULT ======= (-1,-1,-1,-6)
  8143
  8144	036750	200 01 0 00 044126 	..0542:	MOVE	AC1,[[EXP -1,377777777776,0,400000000003,-1,-1,-1,-6],,MCAND]
  8145	036751	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8146	036752	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8147						ERROR	(..0542,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8148	036753	036 14 0 00 044013 
  8149	036754	035 00 0 00 036750 		ERLOOP	..0542			;IF ERROR, LOOP TO ..0542
  8150					^
  8151
  8152	036755	200 14 0 00 040733 	..0543:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8153	036756	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-4
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0190

  8154						ERROR	(..0542,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8155					LL
  8156	036757	036 13 0 00 044025 
  8157	036760	035 00 0 00 036750 		ERLOOP	..0542			;IF ERROR, LOOP TO ..0542
  8158					^
  8159					^
  8160
  8161					; **********************************************************************
  8162					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8163					; **********************************************************************
  8164
  8165						MULTF	(G,-1,377777777776,0,3,-1,-1,-1,-6)^
  8166
  8167					; --- MULTIPLICAND = (-1,377777777776)
  8168					; --- MULTIPLIER === (0,3)
  8169					; --- RESULT ======= (-1,-1,-1,-6)
  8170
  8171	036761	200 01 0 00 044137 	..0544:	MOVE	AC1,[[EXP -1,377777777776,0,3,-1,-1,-1,-6],,MCAND]
  8172	036762	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8173	036763	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8174						ERROR	(..0544,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8175	036764	036 14 0 00 044013 
  8176	036765	035 00 0 00 036761 		ERLOOP	..0544			;IF ERROR, LOOP TO ..0544
  8177					^
  8178
  8179	036766	200 14 0 00 040733 	..0545:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8180	036767	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8181						ERROR	(..0544,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8182					LL
  8183	036770	036 13 0 00 044025 
  8184	036771	035 00 0 00 036761 		ERLOOP	..0544			;IF ERROR, LOOP TO ..0544
  8185					^
  8186					^
  8187
  8188					; **********************************************************************
  8189					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8190					; **********************************************************************
  8191
  8192						MULTF	(G,-1,-2,-1,377777777775,0,0,0,6)^
  8193
  8194					; --- MULTIPLICAND = (-1,-2)
  8195					; --- MULTIPLIER === (-1,377777777775)
  8196					; --- RESULT ======= (0,0,0,6)
  8197
  8198	036772	200 01 0 00 044150 	..0546:	MOVE	AC1,[[EXP -1,-2,-1,377777777775,0,0,0,6],,MCAND]
  8199	036773	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8200	036774	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8201						ERROR	(..0546,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8202	036775	036 14 0 00 044013 
  8203	036776	035 00 0 00 036772 		ERLOOP	..0546			;IF ERROR, LOOP TO ..0546
  8204					^
  8205
  8206	036777	200 14 0 00 040733 	..0547:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8207	037000	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8208						ERROR	(..0546,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-5
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0191

  8209					LL
  8210	037001	036 13 0 00 044025 
  8211	037002	035 00 0 00 036772 		ERLOOP	..0546			;IF ERROR, LOOP TO ..0546
  8212					^
  8213					^
  8214
  8215					; **********************************************************************
  8216					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8217					; **********************************************************************
  8218
  8219						MULTF	(G,-1,377777777776,-1,377777777775,0,0,0,6)^
  8220
  8221					; --- MULTIPLICAND = (-1,377777777776)
  8222					; --- MULTIPLIER === (-1,377777777775)
  8223					; --- RESULT ======= (0,0,0,6)
  8224
  8225	037003	200 01 0 00 044161 	..0550:	MOVE	AC1,[[EXP -1,377777777776,-1,377777777775,0,0,0,6],,MCAND]
  8226	037004	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8227	037005	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8228						ERROR	(..0550,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8229	037006	036 14 0 00 044013 
  8230	037007	035 00 0 00 037003 		ERLOOP	..0550			;IF ERROR, LOOP TO ..0550
  8231					^
  8232
  8233	037010	200 14 0 00 040733 	..0551:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8234	037011	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8235						ERROR	(..0550,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8236					LL
  8237	037012	036 13 0 00 044025 
  8238	037013	035 00 0 00 037003 		ERLOOP	..0550			;IF ERROR, LOOP TO ..0550
  8239					^
  8240					^
  8241
  8242					; **********************************************************************
  8243					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8244					; **********************************************************************
  8245
  8246						MULTF	(G,-1,377777777776,-1,-3,0,0,0,6)^
  8247
  8248					; --- MULTIPLICAND = (-1,377777777776)
  8249					; --- MULTIPLIER === (-1,-3)
  8250					; --- RESULT ======= (0,0,0,6)
  8251
  8252	037014	200 01 0 00 044172 	..0552:	MOVE	AC1,[[EXP -1,377777777776,-1,-3,0,0,0,6],,MCAND]
  8253	037015	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8254	037016	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8255						ERROR	(..0552,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8256	037017	036 14 0 00 044013 
  8257	037020	035 00 0 00 037014 		ERLOOP	..0552			;IF ERROR, LOOP TO ..0552
  8258					^
  8259
  8260	037021	200 14 0 00 040733 	..0553:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8261	037022	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8262						ERROR	(..0552,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8263					LL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-6
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0192

  8264	037023	036 13 0 00 044025 
  8265	037024	035 00 0 00 037014 		ERLOOP	..0552			;IF ERROR, LOOP TO ..0552
  8266					^
  8267					^
  8268
  8269					; **********************************************************************
  8270					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8271					; **********************************************************************
  8272
  8273						MULTF	(G,2,0,3,400000000000,0,6)^
  8274
  8275					; --- MULTIPLICAND = (2,0)
  8276					; --- MULTIPLIER === (3,400000000000)
  8277					; --- RESULT ======= (0,6,0,0)
  8278
  8279	037025	200 01 0 00 044203 	..0554:	MOVE	AC1,[[EXP 2,0,3,400000000000,0,6,0,0],,MCAND]
  8280	037026	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8281	037027	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8282						ERROR	(..0554,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8283	037030	036 14 0 00 044013 
  8284	037031	035 00 0 00 037025 		ERLOOP	..0554			;IF ERROR, LOOP TO ..0554
  8285					^
  8286
  8287	037032	200 14 0 00 040733 	..0555:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8288	037033	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8289						ERROR	(..0554,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8290					LL
  8291	037034	036 13 0 00 044025 
  8292	037035	035 00 0 00 037025 		ERLOOP	..0554			;IF ERROR, LOOP TO ..0554
  8293					^
  8294					^
  8295
  8296					; **********************************************************************
  8297					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8298					; **********************************************************************
  8299
  8300						MULTF	(G,2,400000000000,3,400000000000,0,6)^
  8301
  8302					; --- MULTIPLICAND = (2,400000000000)
  8303					; --- MULTIPLIER === (3,400000000000)
  8304					; --- RESULT ======= (0,6,0,0)
  8305
  8306	037036	200 01 0 00 044214 	..0556:	MOVE	AC1,[[EXP 2,400000000000,3,400000000000,0,6,0,0],,MCAND]
  8307	037037	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8308	037040	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8309						ERROR	(..0556,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8310	037041	036 14 0 00 044013 
  8311	037042	035 00 0 00 037036 		ERLOOP	..0556			;IF ERROR, LOOP TO ..0556
  8312					^
  8313
  8314	037043	200 14 0 00 040733 	..0557:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8315	037044	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8316						ERROR	(..0556,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8317					LL
  8318	037045	036 13 0 00 044025 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-7
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0193

  8319	037046	035 00 0 00 037036 		ERLOOP	..0556			;IF ERROR, LOOP TO ..0556
  8320					^
  8321					^
  8322
  8323					; **********************************************************************
  8324					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8325					; **********************************************************************
  8326
  8327						MULTF	(G,2,400000000000,3,0,0,6,0)^
  8328
  8329					; --- MULTIPLICAND = (2,400000000000)
  8330					; --- MULTIPLIER === (3,0)
  8331					; --- RESULT ======= (0,6,0,0)
  8332
  8333	037047	200 01 0 00 044225 	..0560:	MOVE	AC1,[[EXP 2,400000000000,3,0,0,6,0,0],,MCAND]
  8334	037050	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8335	037051	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8336						ERROR	(..0560,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8337	037052	036 14 0 00 044013 
  8338	037053	035 00 0 00 037047 		ERLOOP	..0560			;IF ERROR, LOOP TO ..0560
  8339					^
  8340
  8341	037054	200 14 0 00 040733 	..0561:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8342	037055	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8343						ERROR	(..0560,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8344					LL
  8345	037056	036 13 0 00 044025 
  8346	037057	035 00 0 00 037047 		ERLOOP	..0560			;IF ERROR, LOOP TO ..0560
  8347					^
  8348					^
  8349
  8350					; **********************************************************************
  8351					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8352					; **********************************************************************
  8353
  8354						MULTF	(G,2,0,-3,0,-1,-6,400000000000,400000000000)^
  8355
  8356					; --- MULTIPLICAND = (2,0)
  8357					; --- MULTIPLIER === (-3,0)
  8358					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8359
  8360	037060	200 01 0 00 044236 	..0562:	MOVE	AC1,[[EXP 2,0,-3,0,-1,-6,400000000000,400000000000],,MCAND]
  8361	037061	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8362	037062	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8363						ERROR	(..0562,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8364	037063	036 14 0 00 044013 
  8365	037064	035 00 0 00 037060 		ERLOOP	..0562			;IF ERROR, LOOP TO ..0562
  8366					^
  8367
  8368	037065	200 14 0 00 040733 	..0563:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8369	037066	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8370						ERROR	(..0562,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8371					LL
  8372	037067	036 13 0 00 044025 
  8373	037070	035 00 0 00 037060 		ERLOOP	..0562			;IF ERROR, LOOP TO ..0562
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-8
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0194

  8374					^
  8375					^
  8376
  8377					; **********************************************************************
  8378					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8379					; **********************************************************************
  8380
  8381						MULTF	(G,2,400000000000,-3,0,-1,-6,400000000000,400000000000)^
  8382
  8383					; --- MULTIPLICAND = (2,400000000000)
  8384					; --- MULTIPLIER === (-3,0)
  8385					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8386
  8387	037071	200 01 0 00 044247 	..0564:	MOVE	AC1,[[EXP 2,400000000000,-3,0,-1,-6,400000000000,400000000000],,MCAND]
  8388	037072	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8389	037073	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8390						ERROR	(..0564,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8391	037074	036 14 0 00 044013 
  8392	037075	035 00 0 00 037071 		ERLOOP	..0564			;IF ERROR, LOOP TO ..0564
  8393					^
  8394
  8395	037076	200 14 0 00 040733 	..0565:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8396	037077	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8397						ERROR	(..0564,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8398					LL
  8399	037100	036 13 0 00 044025 
  8400	037101	035 00 0 00 037071 		ERLOOP	..0564			;IF ERROR, LOOP TO ..0564
  8401					^
  8402					^
  8403
  8404					; **********************************************************************
  8405					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8406					; **********************************************************************
  8407
  8408						MULTF	(G,2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000)^
  8409
  8410					; --- MULTIPLICAND = (2,400000000000)
  8411					; --- MULTIPLIER === (-3,400000000000)
  8412					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8413
  8414					..0566:	MOVE	AC1,[[EXP 2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000],,
  8415	037102	200 01 0 00 044260 	MCAND]
  8416	037103	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8417	037104	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8418						ERROR	(..0566,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8419	037105	036 14 0 00 044013 
  8420	037106	035 00 0 00 037102 		ERLOOP	..0566			;IF ERROR, LOOP TO ..0566
  8421					^
  8422
  8423	037107	200 14 0 00 040733 	..0567:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8424	037110	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8425						ERROR	(..0566,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8426					LL
  8427	037111	036 13 0 00 044025 
  8428	037112	035 00 0 00 037102 		ERLOOP	..0566			;IF ERROR, LOOP TO ..0566
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-9
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0195

  8429					^
  8430					^
  8431
  8432					; **********************************************************************
  8433					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8434					; **********************************************************************
  8435
  8436						MULTF	(G,-2,400000000000,3,400000000000,-1,-6,400000000000,400000000000)^
  8437
  8438					; --- MULTIPLICAND = (-2,400000000000)
  8439					; --- MULTIPLIER === (3,400000000000)
  8440					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8441
  8442					..0570:	MOVE	AC1,[[EXP -2,400000000000,3,400000000000,-1,-6,400000000000,400000000000],,
  8443	037113	200 01 0 00 044271 	MCAND]
  8444	037114	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8445	037115	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8446						ERROR	(..0570,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8447	037116	036 14 0 00 044013 
  8448	037117	035 00 0 00 037113 		ERLOOP	..0570			;IF ERROR, LOOP TO ..0570
  8449					^
  8450
  8451	037120	200 14 0 00 040733 	..0571:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8452	037121	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8453						ERROR	(..0570,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8454					LL
  8455	037122	036 13 0 00 044025 
  8456	037123	035 00 0 00 037113 		ERLOOP	..0570			;IF ERROR, LOOP TO ..0570
  8457					^
  8458					^
  8459
  8460					; **********************************************************************
  8461					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8462					; **********************************************************************
  8463
  8464						MULTF	(G,-2,0,3,400000000000,-1,-6,400000000000,400000000000)^
  8465
  8466					; --- MULTIPLICAND = (-2,0)
  8467					; --- MULTIPLIER === (3,400000000000)
  8468					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8469
  8470	037124	200 01 0 00 044302 	..0572:	MOVE	AC1,[[EXP -2,0,3,400000000000,-1,-6,400000000000,400000000000],,MCAND]
  8471	037125	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8472	037126	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8473						ERROR	(..0572,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8474	037127	036 14 0 00 044013 
  8475	037130	035 00 0 00 037124 		ERLOOP	..0572			;IF ERROR, LOOP TO ..0572
  8476					^
  8477
  8478	037131	200 14 0 00 040733 	..0573:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8479	037132	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8480						ERROR	(..0572,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8481					LL
  8482	037133	036 13 0 00 044025 
  8483	037134	035 00 0 00 037124 		ERLOOP	..0572			;IF ERROR, LOOP TO ..0572
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-10
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0196

  8484					^
  8485					^
  8486
  8487					; **********************************************************************
  8488					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8489					; **********************************************************************
  8490
  8491						MULTF	(G,-2,0,3,0,-1,-6,400000000000,400000000000)^
  8492
  8493					; --- MULTIPLICAND = (-2,0)
  8494					; --- MULTIPLIER === (3,0)
  8495					; --- RESULT ======= (-1,-6,400000000000,400000000000)
  8496
  8497	037135	200 01 0 00 044313 	..0574:	MOVE	AC1,[[EXP -2,0,3,0,-1,-6,400000000000,400000000000],,MCAND]
  8498	037136	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8499	037137	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8500						ERROR	(..0574,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8501	037140	036 14 0 00 044013 
  8502	037141	035 00 0 00 037135 		ERLOOP	..0574			;IF ERROR, LOOP TO ..0574
  8503					^
  8504
  8505	037142	200 14 0 00 040733 	..0575:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8506	037143	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8507						ERROR	(..0574,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8508					LL
  8509	037144	036 13 0 00 044025 
  8510	037145	035 00 0 00 037135 		ERLOOP	..0574			;IF ERROR, LOOP TO ..0574
  8511					^
  8512					^
  8513
  8514					; **********************************************************************
  8515					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8516					; **********************************************************************
  8517
  8518						MULTF	(G,-2,400000000000,-3,0,0,6)^
  8519
  8520					; --- MULTIPLICAND = (-2,400000000000)
  8521					; --- MULTIPLIER === (-3,0)
  8522					; --- RESULT ======= (0,6,0,0)
  8523
  8524	037146	200 01 0 00 044324 	..0576:	MOVE	AC1,[[EXP -2,400000000000,-3,0,0,6,0,0],,MCAND]
  8525	037147	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8526	037150	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8527						ERROR	(..0576,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8528	037151	036 14 0 00 044013 
  8529	037152	035 00 0 00 037146 		ERLOOP	..0576			;IF ERROR, LOOP TO ..0576
  8530					^
  8531
  8532	037153	200 14 0 00 040733 	..0577:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8533	037154	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8534						ERROR	(..0576,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8535					LL
  8536	037155	036 13 0 00 044025 
  8537	037156	035 00 0 00 037146 		ERLOOP	..0576			;IF ERROR, LOOP TO ..0576
  8538					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 25-11
DFKCBM	MAC	26-Sep-79 16:11		DMUL - TEST G                                                                      SEQ 0197

  8539					^
  8540
  8541					; **********************************************************************
  8542					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8543					; **********************************************************************
  8544
  8545						MULTF	(G,-2,0,-3,0,0,6)^
  8546
  8547					; --- MULTIPLICAND = (-2,0)
  8548					; --- MULTIPLIER === (-3,0)
  8549					; --- RESULT ======= (0,6,0,0)
  8550
  8551	037157	200 01 0 00 044335 	..0600:	MOVE	AC1,[[EXP -2,0,-3,0,0,6,0,0],,MCAND]
  8552	037160	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8553	037161	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8554						ERROR	(..0600,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8555	037162	036 14 0 00 044013 
  8556	037163	035 00 0 00 037157 		ERLOOP	..0600			;IF ERROR, LOOP TO ..0600
  8557					^
  8558
  8559	037164	200 14 0 00 040733 	..0601:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8560	037165	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8561						ERROR	(..0600,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8562					LL
  8563	037166	036 13 0 00 044025 
  8564	037167	035 00 0 00 037157 		ERLOOP	..0600			;IF ERROR, LOOP TO ..0600
  8565					^
  8566					^
  8567
  8568					; **********************************************************************
  8569					; ----------  DMUL - TEST G - INCONSISTENT SIGNS  ----------
  8570					; **********************************************************************
  8571
  8572						MULTF	(G,-2,0,-3,400000000000,0,6)^
  8573
  8574					; --- MULTIPLICAND = (-2,0)
  8575					; --- MULTIPLIER === (-3,400000000000)
  8576					; --- RESULT ======= (0,6,0,0)
  8577
  8578	037170	200 01 0 00 044346 	..0602:	MOVE	AC1,[[EXP -2,0,-3,400000000000,0,6,0,0],,MCAND]
  8579	037171	251 01 0 00 040765 		BLT	AC1,MRES+3	;SET UP OPERANDS FOR SUBROUTINE
  8580	037172	260 17 0 00 040725 		GO	MSUBR		;GO DO TEST
  8581						ERROR	(..0602,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
  8582	037173	036 14 0 00 044013 
  8583	037174	035 00 0 00 037170 		ERLOOP	..0602			;IF ERROR, LOOP TO ..0602
  8584					^
  8585
  8586	037175	200 14 0 00 040733 	..0603:	MOVE	SCR2,MFLOC	;GET PC - TO TEST PC FLAGS
  8587	037176	623 14 0 00 400000 		TLZE	SCR2,AROV	;CALC OK PC (NO - AROV) & TEST
  8588						ERROR	(..0602,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
  8589					LL
  8590	037177	036 13 0 00 044025 
  8591	037200	035 00 0 00 037170 		ERLOOP	..0602			;IF ERROR, LOOP TO ..0602
  8592					^
  8593					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 26
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST A                                                                      SEQ 0198

  8594					SUBTTL	DDIV - TEST A
  8595														SALL
  8596			044347			T=SIXBTZ<DDIV TEST>
  8597														LALL
  8598					; **********************************************************************
  8599					;*DDIV - TEST A
  8600					;*
  8601					;*	(0,0,0,#) / 1		THESE BASIC TESTS VERIFY THAT THE DDIV
  8602					;*	(0,0,#,0) / 1		HANDLES A QUADRUPLE WORD DIVIDEND. FOR
  8603					;*				EACH TEST ALL PERMUTATIONS OF POSITIVE
  8604					;*				AND NEGATIVE OPERANDS ARE TESTED.
  8605					; **********************************************************************
  8606
  8607					; **********************************************************************
  8608					; ----------  DDIV - TEST A  -  (0,0,0,#) / 1  ----------
  8609					; **********************************************************************
  8610
  8611						PDIV	(A,0,0,0,NUM,0,1,0,NUM)^
  8612
  8613					; --- DIVIDEND == (0,0,0,NUM)
  8614					; --- DIVISOR === (0,1)
  8615					; --- QUOTIENT == (0,NUM)
  8616					; --- REMAINDER = (0,0)
  8617
  8618	037201	200 01 0 00 044363 	..0604:	MOVE	AC1,[[EXP 0,0,0,NUM,0,1,0,NUM,0,0],,PDEND]
  8619	037202	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8620	037203	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8621						ERROR	(..0604,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8622	037204	036 14 0 00 044373 
  8623	037205	035 00 0 00 037201 		ERLOOP	..0604			;IF ERROR, LOOP TO ..0604
  8624					^
  8625					^
  8626
  8627					; **********************************************************************
  8628					; ----------  DDIV - TEST A  -  (0,0,#,0) / 1  ----------
  8629					; **********************************************************************
  8630
  8631						PDIV	(A,0,0,NUM,0,0,1,NUM,0)^
  8632
  8633					; --- DIVIDEND == (0,0,NUM,0)
  8634					; --- DIVISOR === (0,1)
  8635					; --- QUOTIENT == (NUM,0)
  8636					; --- REMAINDER = (0,0)
  8637
  8638	037206	200 01 0 00 044410 	..0605:	MOVE	AC1,[[EXP 0,0,NUM,0,0,1,NUM,0,0,0],,PDEND]
  8639	037207	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8640	037210	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8641						ERROR	(..0605,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8642	037211	036 14 0 00 044373 
  8643	037212	035 00 0 00 037206 		ERLOOP	..0605			;IF ERROR, LOOP TO ..0605
  8644					^
  8645					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 27
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST B                                                                      SEQ 0199

  8646					SUBTTL	DDIV - TEST B
  8647
  8648					; **********************************************************************
  8649					;*DDIV - TEST B
  8650					;*
  8651					;*	(0,0,0,#) / #		THESE TESTS PERFORM SOME CASES MORE
  8652					;*	(0,0,#,0) / (#,0)	DIFFICULT THAN (A).  PERMUTATIONS OF
  8653					;*				POSITIVE AND NEGATIVE OPERANDS ARE
  8654					;*				TESTED.
  8655					; **********************************************************************
  8656
  8657					; **********************************************************************
  8658					; ----------  DDIV - TEST B  -  (0,0,0,#) / #  ----------
  8659					; **********************************************************************
  8660
  8661						PDIV	(B,0,0,0,NUM,0,NUM,0,1)^
  8662
  8663					; --- DIVIDEND == (0,0,0,NUM)
  8664					; --- DIVISOR === (0,NUM)
  8665					; --- QUOTIENT == (0,1)
  8666					; --- REMAINDER = (0,0)
  8667
  8668	037213	200 01 0 00 044423 	..0606:	MOVE	AC1,[[EXP 0,0,0,NUM,0,NUM,0,1,0,0],,PDEND]
  8669	037214	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8670	037215	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8671						ERROR	(..0606,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8672	037216	036 14 0 00 044433 
  8673	037217	035 00 0 00 037213 		ERLOOP	..0606			;IF ERROR, LOOP TO ..0606
  8674					^
  8675					^
  8676
  8677					; **********************************************************************
  8678					; ----------  DDIV - TEST B  -  (0,0,#,0) / #,0  ----------
  8679					; **********************************************************************
  8680
  8681						PDIV	(B,0,0,NUM,0,NUM,0,0,1)^
  8682
  8683					; --- DIVIDEND == (0,0,NUM,0)
  8684					; --- DIVISOR === (NUM,0)
  8685					; --- QUOTIENT == (0,1)
  8686					; --- REMAINDER = (0,0)
  8687
  8688	037220	200 01 0 00 044450 	..0607:	MOVE	AC1,[[EXP 0,0,NUM,0,NUM,0,0,1,0,0],,PDEND]
  8689	037221	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8690	037222	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8691						ERROR	(..0607,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8692	037223	036 14 0 00 044433 
  8693	037224	035 00 0 00 037220 		ERLOOP	..0607			;IF ERROR, LOOP TO ..0607
  8694					^
  8695					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0200

  8696					SUBTTL	DDIV - TEST C
  8697
  8698					; **********************************************************************
  8699					;*DDIV - TEST C
  8700					;*
  8701					;*	(0,0,0,1)  (0,0,1,0)  (0,0,1,0)  (0,1,0,0)  (0,1,0,0)  (1,0,0,0)
  8702					;*	 -------    -------    -------    -------    -------    -------
  8703					;*	    2	       2	 2,0	     2	       2,0	  2,0
  8704					;*
  8705					;*	THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE
  8706					;*	THE DIVIDEND ACROSS WORD BOUNDARIES.
  8707					;*	THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF
  8708					;*	POSITIVE AND NEGATIVE OPERANDS.
  8709					; **********************************************************************
  8710
  8711					; **********************************************************************
  8712					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8713					; **********************************************************************
  8714
  8715						PDIV	(C,0,0,0,1,0,2,0,0,0,1)^
  8716
  8717					; --- DIVIDEND == (0,0,0,1)
  8718					; --- DIVISOR === (0,2)
  8719					; --- QUOTIENT == (0,0)
  8720					; --- REMAINDER = (0,1)
  8721
  8722	037225	200 01 0 00 044463 	..0610:	MOVE	AC1,[[EXP 0,0,0,1,0,2,0,0,0,1],,PDEND]
  8723	037226	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8724	037227	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8725						ERROR	(..0610,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8726	037230	036 14 0 00 044473 
  8727	037231	035 00 0 00 037225 		ERLOOP	..0610			;IF ERROR, LOOP TO ..0610
  8728					^
  8729					^
  8730
  8731					; **********************************************************************
  8732					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8733					; **********************************************************************
  8734
  8735						PDIV	(C,0,0,1,0,0,2,0,200000000000,0,0)^
  8736
  8737					; --- DIVIDEND == (0,0,1,0)
  8738					; --- DIVISOR === (0,2)
  8739					; --- QUOTIENT == (0,200000000000)
  8740					; --- REMAINDER = (0,0)
  8741
  8742	037232	200 01 0 00 044510 	..0611:	MOVE	AC1,[[EXP 0,0,1,0,0,2,0,200000000000,0,0],,PDEND]
  8743	037233	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8744	037234	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8745						ERROR	(..0611,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8746	037235	036 14 0 00 044473 
  8747	037236	035 00 0 00 037232 		ERLOOP	..0611			;IF ERROR, LOOP TO ..0611
  8748					^
  8749					^
  8750
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-1
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0201

  8751					; **********************************************************************
  8752					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8753					; **********************************************************************
  8754
  8755						PDIV	(C,0,0,1,0,2,0,0,0,1,0)^
  8756
  8757					; --- DIVIDEND == (0,0,1,0)
  8758					; --- DIVISOR === (2,0)
  8759					; --- QUOTIENT == (0,0)
  8760					; --- REMAINDER = (1,0)
  8761
  8762	037237	200 01 0 00 044523 	..0612:	MOVE	AC1,[[EXP 0,0,1,0,2,0,0,0,1,0],,PDEND]
  8763	037240	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8764	037241	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8765						ERROR	(..0612,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8766	037242	036 14 0 00 044473 
  8767	037243	035 00 0 00 037237 		ERLOOP	..0612			;IF ERROR, LOOP TO ..0612
  8768					^
  8769					^
  8770
  8771					; **********************************************************************
  8772					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8773					; **********************************************************************
  8774
  8775						PDIV	(C,0,1,0,0,0,2,200000000000,0,0,0)^
  8776
  8777					; --- DIVIDEND == (0,1,0,0)
  8778					; --- DIVISOR === (0,2)
  8779					; --- QUOTIENT == (200000000000,0)
  8780					; --- REMAINDER = (0,0)
  8781
  8782	037244	200 01 0 00 044536 	..0613:	MOVE	AC1,[[EXP 0,1,0,0,0,2,200000000000,0,0,0],,PDEND]
  8783	037245	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8784	037246	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8785						ERROR	(..0613,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8786	037247	036 14 0 00 044473 
  8787	037250	035 00 0 00 037244 		ERLOOP	..0613			;IF ERROR, LOOP TO ..0613
  8788					^
  8789					^
  8790
  8791					; **********************************************************************
  8792					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8793					; **********************************************************************
  8794
  8795						PDIV	(C,0,1,0,0,2,0,0,200000000000,0,0)^
  8796
  8797					; --- DIVIDEND == (0,1,0,0)
  8798					; --- DIVISOR === (2,0)
  8799					; --- QUOTIENT == (0,200000000000)
  8800					; --- REMAINDER = (0,0)
  8801
  8802	037251	200 01 0 00 044551 	..0614:	MOVE	AC1,[[EXP 0,1,0,0,2,0,0,200000000000,0,0],,PDEND]
  8803	037252	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8804	037253	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8805						ERROR	(..0614,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-2
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0202

  8806	037254	036 14 0 00 044473 
  8807	037255	035 00 0 00 037251 		ERLOOP	..0614			;IF ERROR, LOOP TO ..0614
  8808					^
  8809					^
  8810
  8811					; **********************************************************************
  8812					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8813					; **********************************************************************
  8814
  8815						PDIV	(C,1,0,0,0,2,0,200000000000,0,0,0)^
  8816
  8817					; --- DIVIDEND == (1,0,0,0)
  8818					; --- DIVISOR === (2,0)
  8819					; --- QUOTIENT == (200000000000,0)
  8820					; --- REMAINDER = (0,0)
  8821
  8822	037256	200 01 0 00 044564 	..0615:	MOVE	AC1,[[EXP 1,0,0,0,2,0,200000000000,0,0,0],,PDEND]
  8823	037257	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8824	037260	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8825						ERROR	(..0615,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8826	037261	036 14 0 00 044473 
  8827	037262	035 00 0 00 037256 		ERLOOP	..0615			;IF ERROR, LOOP TO ..0615
  8828					^
  8829					^
  8830
  8831					; **********************************************************************
  8832					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8833					; **********************************************************************
  8834
  8835						PDIV	(C,-1,-1,-1,-1,0,2,0,0,-1,-1)^
  8836
  8837					; --- DIVIDEND == (-1,-1,-1,-1)
  8838					; --- DIVISOR === (0,2)
  8839					; --- QUOTIENT == (0,0)
  8840					; --- REMAINDER = (-1,-1)
  8841
  8842	037263	200 01 0 00 044577 	..0616:	MOVE	AC1,[[EXP -1,-1,-1,-1,0,2,0,0,-1,-1],,PDEND]
  8843	037264	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8844	037265	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8845						ERROR	(..0616,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8846	037266	036 14 0 00 044473 
  8847	037267	035 00 0 00 037263 		ERLOOP	..0616			;IF ERROR, LOOP TO ..0616
  8848					^
  8849					^
  8850
  8851					; **********************************************************************
  8852					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8853					; **********************************************************************
  8854
  8855						PDIV	(C,-1,-1,-1,1B0,0,2,-1,600000000000,0,0)^
  8856
  8857					; --- DIVIDEND == (-1,-1,-1,1B0)
  8858					; --- DIVISOR === (0,2)
  8859					; --- QUOTIENT == (-1,600000000000)
  8860					; --- REMAINDER = (0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-3
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0203

  8861
  8862	037270	200 01 0 00 044612 	..0617:	MOVE	AC1,[[EXP -1,-1,-1,1B0,0,2,-1,600000000000,0,0],,PDEND]
  8863	037271	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8864	037272	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8865						ERROR	(..0617,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8866	037273	036 14 0 00 044473 
  8867	037274	035 00 0 00 037270 		ERLOOP	..0617			;IF ERROR, LOOP TO ..0617
  8868					^
  8869					^
  8870
  8871					; **********************************************************************
  8872					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8873					; **********************************************************************
  8874
  8875						PDIV	(C,-1,-1,-1,1B0,2,0,0,0,-1,1B0)^
  8876
  8877					; --- DIVIDEND == (-1,-1,-1,1B0)
  8878					; --- DIVISOR === (2,0)
  8879					; --- QUOTIENT == (0,0)
  8880					; --- REMAINDER = (-1,1B0)
  8881
  8882	037275	200 01 0 00 044625 	..0620:	MOVE	AC1,[[EXP -1,-1,-1,1B0,2,0,0,0,-1,1B0],,PDEND]
  8883	037276	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8884	037277	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8885						ERROR	(..0620,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8886	037300	036 14 0 00 044473 
  8887	037301	035 00 0 00 037275 		ERLOOP	..0620			;IF ERROR, LOOP TO ..0620
  8888					^
  8889					^
  8890
  8891					; **********************************************************************
  8892					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8893					; **********************************************************************
  8894
  8895						PDIV	(C,-1,-1,1B0,1B0,0,2,600000000000,1B0,0,0)^
  8896
  8897					; --- DIVIDEND == (-1,-1,1B0,1B0)
  8898					; --- DIVISOR === (0,2)
  8899					; --- QUOTIENT == (600000000000,1B0)
  8900					; --- REMAINDER = (0,0)
  8901
  8902	037302	200 01 0 00 044640 	..0621:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,0,2,600000000000,1B0,0,0],,PDEND]
  8903	037303	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8904	037304	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8905						ERROR	(..0621,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8906	037305	036 14 0 00 044473 
  8907	037306	035 00 0 00 037302 		ERLOOP	..0621			;IF ERROR, LOOP TO ..0621
  8908					^
  8909					^
  8910
  8911					; **********************************************************************
  8912					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8913					; **********************************************************************
  8914
  8915						PDIV	(C,-1,-1,1B0,1B0,2,0,-1,600000000000,0,0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-4
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0204

  8916
  8917					; --- DIVIDEND == (-1,-1,1B0,1B0)
  8918					; --- DIVISOR === (2,0)
  8919					; --- QUOTIENT == (-1,600000000000)
  8920					; --- REMAINDER = (0,0)
  8921
  8922	037307	200 01 0 00 044653 	..0622:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,2,0,-1,600000000000,0,0],,PDEND]
  8923	037310	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8924	037311	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8925						ERROR	(..0622,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8926	037312	036 14 0 00 044473 
  8927	037313	035 00 0 00 037307 		ERLOOP	..0622			;IF ERROR, LOOP TO ..0622
  8928					^
  8929					^
  8930
  8931					; **********************************************************************
  8932					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8933					; **********************************************************************
  8934
  8935						PDIV	(C,-1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0)^
  8936
  8937					; --- DIVIDEND == (-1,1B0,1B0,1B0)
  8938					; --- DIVISOR === (2,0)
  8939					; --- QUOTIENT == (600000000000,1B0)
  8940					; --- REMAINDER = (0,0)
  8941
  8942	037314	200 01 0 00 044666 	..0623:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0],,PDEND]
  8943	037315	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8944	037316	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8945						ERROR	(..0623,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8946	037317	036 14 0 00 044473 
  8947	037320	035 00 0 00 037314 		ERLOOP	..0623			;IF ERROR, LOOP TO ..0623
  8948					^
  8949					^
  8950
  8951					; **********************************************************************
  8952					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8953					; **********************************************************************
  8954
  8955						PDIV	(C,0,0,0,1,-1,-2,0,0,0,1)^
  8956
  8957					; --- DIVIDEND == (0,0,0,1)
  8958					; --- DIVISOR === (-1,-2)
  8959					; --- QUOTIENT == (0,0)
  8960					; --- REMAINDER = (0,1)
  8961
  8962	037321	200 01 0 00 044701 	..0624:	MOVE	AC1,[[EXP 0,0,0,1,-1,-2,0,0,0,1],,PDEND]
  8963	037322	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8964	037323	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8965						ERROR	(..0624,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8966	037324	036 14 0 00 044473 
  8967	037325	035 00 0 00 037321 		ERLOOP	..0624			;IF ERROR, LOOP TO ..0624
  8968					^
  8969					^
  8970
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-5
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0205

  8971					; **********************************************************************
  8972					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8973					; **********************************************************************
  8974
  8975						PDIV	(C,0,0,1,0,-1,-2,-1,600000000000,0,0)^
  8976
  8977					; --- DIVIDEND == (0,0,1,0)
  8978					; --- DIVISOR === (-1,-2)
  8979					; --- QUOTIENT == (-1,600000000000)
  8980					; --- REMAINDER = (0,0)
  8981
  8982	037326	200 01 0 00 044714 	..0625:	MOVE	AC1,[[EXP 0,0,1,0,-1,-2,-1,600000000000,0,0],,PDEND]
  8983	037327	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  8984	037330	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  8985						ERROR	(..0625,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  8986	037331	036 14 0 00 044473 
  8987	037332	035 00 0 00 037326 		ERLOOP	..0625			;IF ERROR, LOOP TO ..0625
  8988					^
  8989					^
  8990
  8991					; **********************************************************************
  8992					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  8993					; **********************************************************************
  8994
  8995						PDIV	(C,0,0,1,0,-2,1B0,0,0,1,0)^
  8996
  8997					; --- DIVIDEND == (0,0,1,0)
  8998					; --- DIVISOR === (-2,1B0)
  8999					; --- QUOTIENT == (0,0)
  9000					; --- REMAINDER = (1,0)
  9001
  9002	037333	200 01 0 00 044727 	..0626:	MOVE	AC1,[[EXP 0,0,1,0,-2,1B0,0,0,1,0],,PDEND]
  9003	037334	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9004	037335	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9005						ERROR	(..0626,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9006	037336	036 14 0 00 044473 
  9007	037337	035 00 0 00 037333 		ERLOOP	..0626			;IF ERROR, LOOP TO ..0626
  9008					^
  9009					^
  9010
  9011					; **********************************************************************
  9012					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9013					; **********************************************************************
  9014
  9015						PDIV	(C,0,1,0,0,-1,-2,600000000000,1B0,0,0)^
  9016
  9017					; --- DIVIDEND == (0,1,0,0)
  9018					; --- DIVISOR === (-1,-2)
  9019					; --- QUOTIENT == (600000000000,1B0)
  9020					; --- REMAINDER = (0,0)
  9021
  9022	037340	200 01 0 00 044742 	..0627:	MOVE	AC1,[[EXP 0,1,0,0,-1,-2,600000000000,1B0,0,0],,PDEND]
  9023	037341	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9024	037342	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9025						ERROR	(..0627,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-6
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0206

  9026	037343	036 14 0 00 044473 
  9027	037344	035 00 0 00 037340 		ERLOOP	..0627			;IF ERROR, LOOP TO ..0627
  9028					^
  9029					^
  9030
  9031					; **********************************************************************
  9032					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9033					; **********************************************************************
  9034
  9035						PDIV	(C,0,1,0,0,-2,1B0,-1,600000000000,0,0)^
  9036
  9037					; --- DIVIDEND == (0,1,0,0)
  9038					; --- DIVISOR === (-2,1B0)
  9039					; --- QUOTIENT == (-1,600000000000)
  9040					; --- REMAINDER = (0,0)
  9041
  9042	037345	200 01 0 00 044755 	..0630:	MOVE	AC1,[[EXP 0,1,0,0,-2,1B0,-1,600000000000,0,0],,PDEND]
  9043	037346	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9044	037347	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9045						ERROR	(..0630,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9046	037350	036 14 0 00 044473 
  9047	037351	035 00 0 00 037345 		ERLOOP	..0630			;IF ERROR, LOOP TO ..0630
  9048					^
  9049					^
  9050
  9051					; **********************************************************************
  9052					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9053					; **********************************************************************
  9054
  9055						PDIV	(C,1,0,0,0,-2,1B0,600000000000,1B0,0,0)^
  9056
  9057					; --- DIVIDEND == (1,0,0,0)
  9058					; --- DIVISOR === (-2,1B0)
  9059					; --- QUOTIENT == (600000000000,1B0)
  9060					; --- REMAINDER = (0,0)
  9061
  9062	037352	200 01 0 00 044770 	..0631:	MOVE	AC1,[[EXP 1,0,0,0,-2,1B0,600000000000,1B0,0,0],,PDEND]
  9063	037353	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9064	037354	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9065						ERROR	(..0631,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9066	037355	036 14 0 00 044473 
  9067	037356	035 00 0 00 037352 		ERLOOP	..0631			;IF ERROR, LOOP TO ..0631
  9068					^
  9069					^
  9070
  9071					; **********************************************************************
  9072					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9073					; **********************************************************************
  9074
  9075						PDIV	(C,-1,-1,-1,-1,-1,-2,0,0,-1,-1)^
  9076
  9077					; --- DIVIDEND == (-1,-1,-1,-1)
  9078					; --- DIVISOR === (-1,-2)
  9079					; --- QUOTIENT == (0,0)
  9080					; --- REMAINDER = (-1,-1)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-7
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0207

  9081
  9082	037357	200 01 0 00 045003 	..0632:	MOVE	AC1,[[EXP -1,-1,-1,-1,-1,-2,0,0,-1,-1],,PDEND]
  9083	037360	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9084	037361	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9085						ERROR	(..0632,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9086	037362	036 14 0 00 044473 
  9087	037363	035 00 0 00 037357 		ERLOOP	..0632			;IF ERROR, LOOP TO ..0632
  9088					^
  9089					^
  9090
  9091					; **********************************************************************
  9092					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9093					; **********************************************************************
  9094
  9095						PDIV	(C,-1,-1,-1,1B0,-1,-2,0,200000000000,0,0)^
  9096
  9097					; --- DIVIDEND == (-1,-1,-1,1B0)
  9098					; --- DIVISOR === (-1,-2)
  9099					; --- QUOTIENT == (0,200000000000)
  9100					; --- REMAINDER = (0,0)
  9101
  9102	037364	200 01 0 00 045016 	..0633:	MOVE	AC1,[[EXP -1,-1,-1,1B0,-1,-2,0,200000000000,0,0],,PDEND]
  9103	037365	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9104	037366	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9105						ERROR	(..0633,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9106	037367	036 14 0 00 044473 
  9107	037370	035 00 0 00 037364 		ERLOOP	..0633			;IF ERROR, LOOP TO ..0633
  9108					^
  9109					^
  9110
  9111					; **********************************************************************
  9112					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9113					; **********************************************************************
  9114
  9115						PDIV	(C,-1,-1,-1,1B0,-2,1B0,0,0,-1,1B0)^
  9116
  9117					; --- DIVIDEND == (-1,-1,-1,1B0)
  9118					; --- DIVISOR === (-2,1B0)
  9119					; --- QUOTIENT == (0,0)
  9120					; --- REMAINDER = (-1,1B0)
  9121
  9122	037371	200 01 0 00 045031 	..0634:	MOVE	AC1,[[EXP -1,-1,-1,1B0,-2,1B0,0,0,-1,1B0],,PDEND]
  9123	037372	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9124	037373	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9125						ERROR	(..0634,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9126	037374	036 14 0 00 044473 
  9127	037375	035 00 0 00 037371 		ERLOOP	..0634			;IF ERROR, LOOP TO ..0634
  9128					^
  9129					^
  9130
  9131					; **********************************************************************
  9132					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9133					; **********************************************************************
  9134
  9135						PDIV	(C,-1,-1,1B0,1B0,-1,-2,200000000000,0,0,0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 28-8
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST C                                                                      SEQ 0208

  9136
  9137					; --- DIVIDEND == (-1,-1,1B0,1B0)
  9138					; --- DIVISOR === (-1,-2)
  9139					; --- QUOTIENT == (200000000000,0)
  9140					; --- REMAINDER = (0,0)
  9141
  9142	037376	200 01 0 00 045044 	..0635:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,-1,-2,200000000000,0,0,0],,PDEND]
  9143	037377	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9144	037400	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9145						ERROR	(..0635,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9146	037401	036 14 0 00 044473 
  9147	037402	035 00 0 00 037376 		ERLOOP	..0635			;IF ERROR, LOOP TO ..0635
  9148					^
  9149					^
  9150
  9151					; **********************************************************************
  9152					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9153					; **********************************************************************
  9154
  9155						PDIV	(C,-1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0)^
  9156
  9157					; --- DIVIDEND == (-1,-1,1B0,1B0)
  9158					; --- DIVISOR === (-2,1B0)
  9159					; --- QUOTIENT == (0,200000000000)
  9160					; --- REMAINDER = (0,0)
  9161
  9162	037403	200 01 0 00 045057 	..0636:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0],,PDEND]
  9163	037404	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9164	037405	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9165						ERROR	(..0636,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9166	037406	036 14 0 00 044473 
  9167	037407	035 00 0 00 037403 		ERLOOP	..0636			;IF ERROR, LOOP TO ..0636
  9168					^
  9169					^
  9170
  9171					; **********************************************************************
  9172					; ----------  DDIV - TEST C (GENERAL TESTING)  ----------
  9173					; **********************************************************************
  9174
  9175						PDIV	(C,-1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0)^
  9176
  9177					; --- DIVIDEND == (-1,1B0,1B0,1B0)
  9178					; --- DIVISOR === (-2,1B0)
  9179					; --- QUOTIENT == (200000000000,0)
  9180					; --- REMAINDER = (0,0)
  9181
  9182	037410	200 01 0 00 045072 	..0637:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0],,PDEND]
  9183	037411	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9184	037412	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9185						ERROR	(..0637,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9186	037413	036 14 0 00 044473 
  9187	037414	035 00 0 00 037410 		ERLOOP	..0637			;IF ERROR, LOOP TO ..0637
  9188					^
  9189					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0209

  9190					SUBTTL	DDIV - TEST D
  9191
  9192					; **********************************************************************
  9193					;*DDIV - TEST D
  9194					;*
  9195					;*	MISCELLANEOUS TESTING.  THESE TESTS DIVIDE 2 NUMBERS AND JUST
  9196					;*	CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS.
  9197					; **********************************************************************
  9198
  9199		111111	111111			ONE=111111111111
  9200		222222	222222			TWO=222222222222
  9201		333333	333333			THREE=333333333333
  9202		444444	444444			FOUR=444444444444
  9203		555555	555555			FIVE=555555555555
  9204
  9205					; **********************************************************************
  9206					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9207					; **********************************************************************
  9208
  9209						PDIVF	(D,THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,070414545131,0556
  9210					32516360,373564760527)^
  9211
  9212					; --- DIVIDEND == (THREE,THREE,THREE,THREE)
  9213					; --- DIVISOR === (344444444444,FOUR)
  9214					; --- QUOTIENT == (365605075342,070414545131)
  9215					; --- REMAINDER = (055632516360,373564760527)
  9216
  9217					..0640:	MOVE	AC1,[[EXP THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,0704145451
  9218	037415	200 01 0 00 045105 	31,055632516360,373564760527],,PDEND]
  9219	037416	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9220	037417	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9221						ERROR	(..0640,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9222	037420	036 14 0 00 045115 
  9223	037421	035 00 0 00 037415 		ERLOOP	..0640			;IF ERROR, LOOP TO ..0640
  9224					^
  9225
  9226	037422	200 14 0 00 040775 	..0641:	MOVE	SCR2,PFLOC	;GET PC
  9227	037423	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9228						ERROR	(..0640,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9229					LL
  9230	037424	036 13 0 00 045127 
  9231	037425	035 00 0 00 037415 		ERLOOP	..0640			;IF ERROR, LOOP TO ..0640
  9232					^
  9233					^
  9234
  9235					; **********************************************************************
  9236					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9237					; **********************************************************************
  9238
  9239						PDIVF	(D,THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,247073632327,21367
  9240					2200375,376365035467)^
  9241
  9242					; --- DIVIDEND == (THREE,FOUR,THREE,FOUR)
  9243					; --- DIVISOR === (344444444444,THREE)
  9244					; --- QUOTIENT == (365605075340,247073632327)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-1
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0210

  9245					; --- REMAINDER = (213672200375,376365035467)
  9246
  9247					..0642:	MOVE	AC1,[[EXP THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,24707363232
  9248	037426	200 01 0 00 045144 	7,213672200375,376365035467],,PDEND]
  9249	037427	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9250	037430	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9251						ERROR	(..0642,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9252	037431	036 14 0 00 045115 
  9253	037432	035 00 0 00 037426 		ERLOOP	..0642			;IF ERROR, LOOP TO ..0642
  9254					^
  9255
  9256	037433	200 14 0 00 040775 	..0643:	MOVE	SCR2,PFLOC	;GET PC
  9257	037434	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9258						ERROR	(..0642,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9259					LL
  9260	037435	036 13 0 00 045127 
  9261	037436	035 00 0 00 037426 		ERLOOP	..0642			;IF ERROR, LOOP TO ..0642
  9262					^
  9263					^
  9264
  9265					; **********************************************************************
  9266					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9267					; **********************************************************************
  9268
  9269						PDIVF	(D,TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE)^
  9270
  9271					; --- DIVIDEND == (TWO,TWO,TWO,TWO)
  9272					; --- DIVISOR === (THREE,THREE)
  9273					; --- QUOTIENT == (252525252525,125252525253)
  9274					; --- REMAINDER = (ONE,ONE)
  9275
  9276					..0644:	MOVE	AC1,[[EXP TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE],,P
  9277	037437	200 01 0 00 045157 	DEND]
  9278	037440	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9279	037441	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9280						ERROR	(..0644,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9281	037442	036 14 0 00 045115 
  9282	037443	035 00 0 00 037437 		ERLOOP	..0644			;IF ERROR, LOOP TO ..0644
  9283					^
  9284
  9285	037444	200 14 0 00 040775 	..0645:	MOVE	SCR2,PFLOC	;GET PC
  9286	037445	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9287						ERROR	(..0644,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9288					LL
  9289	037446	036 13 0 00 045127 
  9290	037447	035 00 0 00 037437 		ERLOOP	..0644			;IF ERROR, LOOP TO ..0644
  9291					^
  9292					^
  9293
  9294					; **********************************************************************
  9295					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9296					; **********************************************************************
  9297
  9298						PDIVF	(D,TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,004040404041,32
  9299					7272727273)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-2
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0211

  9300
  9301					; --- DIVIDEND == (TWO,THREE,TWO,THREE)
  9302					; --- DIVISOR === (THREE,FOUR)
  9303					; --- QUOTIENT == (252525252526,070707070710)
  9304					; --- REMAINDER = (004040404041,327272727273)
  9305
  9306					..0646:	MOVE	AC1,[[EXP TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,00404040
  9307	037450	200 01 0 00 045172 	4041,327272727273],,PDEND]
  9308	037451	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9309	037452	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9310						ERROR	(..0646,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9311	037453	036 14 0 00 045115 
  9312	037454	035 00 0 00 037450 		ERLOOP	..0646			;IF ERROR, LOOP TO ..0646
  9313					^
  9314
  9315	037455	200 14 0 00 040775 	..0647:	MOVE	SCR2,PFLOC	;GET PC
  9316	037456	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9317						ERROR	(..0646,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9318					LL
  9319	037457	036 13 0 00 045127 
  9320	037460	035 00 0 00 037450 		ERLOOP	..0646			;IF ERROR, LOOP TO ..0646
  9321					^
  9322					^
  9323
  9324					; **********************************************************************
  9325					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9326					; **********************************************************************
  9327
  9328						PDIVF	(D,255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,035475265746,1
  9329					44375704605,004166365327)^
  9330
  9331					; --- DIVIDEND == (255555555555,FIVE,FIVE,FIVE)
  9332					; --- DIVISOR === (311111111111,ONE)
  9333					; --- QUOTIENT == (335056427213,035475265746)
  9334					; --- REMAINDER = (144375704605,004166365327)
  9335
  9336					..0650:	MOVE	AC1,[[EXP 255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,0354752
  9337	037461	200 01 0 00 045205 	65746,144375704605,004166365327],,PDEND]
  9338	037462	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9339	037463	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9340						ERROR	(..0650,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9341	037464	036 14 0 00 045115 
  9342	037465	035 00 0 00 037461 		ERLOOP	..0650			;IF ERROR, LOOP TO ..0650
  9343					^
  9344
  9345	037466	200 14 0 00 040775 	..0651:	MOVE	SCR2,PFLOC	;GET PC
  9346	037467	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9347						ERROR	(..0650,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9348					LL
  9349	037470	036 13 0 00 045127 
  9350	037471	035 00 0 00 037461 		ERLOOP	..0650			;IF ERROR, LOOP TO ..0650
  9351					^
  9352					^
  9353
  9354					; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-3
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0212

  9355					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9356					; **********************************************************************
  9357
  9358						PDIVF	(D,255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212,3234437
  9359					57047,240023257716,107503314730)^
  9360
  9361					; --- DIVIDEND == (255555555555,TWO,FIVE,TWO)
  9362					; --- DIVISOR === (311111111111,666666666666)
  9363					; --- QUOTIENT == (335056427212,323443757047)
  9364					; --- REMAINDER = (240023257716,107503314730)
  9365
  9366					..0652:	MOVE	AC1,[[EXP 255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212,
  9367	037472	200 01 0 00 045220 	323443757047,240023257716,107503314730],,PDEND]
  9368	037473	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9369	037474	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9370						ERROR	(..0652,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9371	037475	036 14 0 00 045115 
  9372	037476	035 00 0 00 037472 		ERLOOP	..0652			;IF ERROR, LOOP TO ..0652
  9373					^
  9374
  9375	037477	200 14 0 00 040775 	..0653:	MOVE	SCR2,PFLOC	;GET PC
  9376	037500	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9377						ERROR	(..0652,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9378					LL
  9379	037501	036 13 0 00 045127 
  9380	037502	035 00 0 00 037472 		ERLOOP	..0652			;IF ERROR, LOOP TO ..0652
  9381					^
  9382					^
  9383
  9384					; **********************************************************************
  9385					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9386					; **********************************************************************
  9387
  9388		123456	123456			K=123456123456
  9389						PDIVF	(D,K,K,K,K,234567234567,234567234567,210420323476,136703233600,055256055256
  9390					,055256055256)^
  9391
  9392					; --- DIVIDEND == (K,K,K,K)
  9393					; --- DIVISOR === (234567234567,234567234567)
  9394					; --- QUOTIENT == (210420323476,136703233600)
  9395					; --- REMAINDER = (055256055256,055256055256)
  9396
  9397					..0654:	MOVE	AC1,[[EXP K,K,K,K,234567234567,234567234567,210420323476,136703233600,05525
  9398	037503	200 01 0 00 045233 	6055256,055256055256],,PDEND]
  9399	037504	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9400	037505	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9401						ERROR	(..0654,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9402	037506	036 14 0 00 045115 
  9403	037507	035 00 0 00 037503 		ERLOOP	..0654			;IF ERROR, LOOP TO ..0654
  9404					^
  9405
  9406	037510	200 14 0 00 040775 	..0655:	MOVE	SCR2,PFLOC	;GET PC
  9407	037511	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9408						ERROR	(..0654,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9409					LL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-4
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0213

  9410	037512	036 13 0 00 045127 
  9411	037513	035 00 0 00 037503 		ERLOOP	..0654			;IF ERROR, LOOP TO ..0654
  9412					^
  9413					^
  9414
  9415					; **********************************************************************
  9416					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9417					; **********************************************************************
  9418
  9419						PDIVF	(D,FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111110,511
  9420					111111110)^
  9421
  9422					; --- DIVIDEND == (FOUR,FOUR,FOUR,FOUR)
  9423					; --- DIVISOR === (THREE,333333333334)
  9424					; --- QUOTIENT == (1B0,400000000001)
  9425					; --- REMAINDER = (511111111110,511111111110)
  9426
  9427					..0656:	MOVE	AC1,[[EXP FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111
  9428	037514	200 01 0 00 045246 	110,511111111110],,PDEND]
  9429	037515	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9430	037516	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9431						ERROR	(..0656,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9432	037517	036 14 0 00 045115 
  9433	037520	035 00 0 00 037514 		ERLOOP	..0656			;IF ERROR, LOOP TO ..0656
  9434					^
  9435
  9436	037521	200 14 0 00 040775 	..0657:	MOVE	SCR2,PFLOC	;GET PC
  9437	037522	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9438						ERROR	(..0656,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9439					LL
  9440	037523	036 13 0 00 045127 
  9441	037524	035 00 0 00 037514 		ERLOOP	..0656			;IF ERROR, LOOP TO ..0656
  9442					^
  9443					^
  9444
  9445					; **********************************************************************
  9446					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9447					; **********************************************************************
  9448
  9449						PDIVF	(D,FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606060,460
  9450					606060605)^
  9451
  9452					; --- DIVIDEND == (FIVE,FIVE,FIVE,FIVE)
  9453					; --- DIVISOR === (FOUR,FOUR)
  9454					; --- QUOTIENT == (252525252525,125252525252)
  9455					; --- REMAINDER = (606060606060,460606060605)
  9456
  9457					..0660:	MOVE	AC1,[[EXP FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606
  9458	037525	200 01 0 00 045261 	060,460606060605],,PDEND]
  9459	037526	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9460	037527	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9461						ERROR	(..0660,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9462	037530	036 14 0 00 045115 
  9463	037531	035 00 0 00 037525 		ERLOOP	..0660			;IF ERROR, LOOP TO ..0660
  9464					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-5
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0214

  9465
  9466	037532	200 14 0 00 040775 	..0661:	MOVE	SCR2,PFLOC	;GET PC
  9467	037533	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9468						ERROR	(..0660,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9469					LL
  9470	037534	036 13 0 00 045127 
  9471	037535	035 00 0 00 037525 		ERLOOP	..0660			;IF ERROR, LOOP TO ..0660
  9472					^
  9473					^
  9474
  9475					; **********************************************************************
  9476					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9477					; **********************************************************************
  9478
  9479						PDIVF	(D,FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020761620,
  9480					473571652245,600514541235)^
  9481
  9482					; --- DIVIDEND == (FOUR,FIVE,FOUR,FIVE)
  9483					; --- DIVISOR === (432123456765,432123456765)
  9484					; --- QUOTIENT == (364320315052,247020761620)
  9485					; --- REMAINDER = (473571652245,600514541235)
  9486
  9487					..0662:	MOVE	AC1,[[EXP FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020
  9488	037536	200 01 0 00 045274 	761620,473571652245,600514541235],,PDEND]
  9489	037537	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9490	037540	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9491						ERROR	(..0662,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9492	037541	036 14 0 00 045115 
  9493	037542	035 00 0 00 037536 		ERLOOP	..0662			;IF ERROR, LOOP TO ..0662
  9494					^
  9495
  9496	037543	200 14 0 00 040775 	..0663:	MOVE	SCR2,PFLOC	;GET PC
  9497	037544	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9498						ERROR	(..0662,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9499					LL
  9500	037545	036 13 0 00 045127 
  9501	037546	035 00 0 00 037536 		ERLOOP	..0662			;IF ERROR, LOOP TO ..0662
  9502					^
  9503					^
  9504
  9505					; **********************************************************************
  9506					; ----------  DDIV - TEST D (MISCELLANEOUS CASES)  ----------
  9507					; **********************************************************************
  9508
  9509						PDIVF	(D,FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,271326656374,76
  9510					3153710465,406655405512)^
  9511
  9512					; --- DIVIDEND == (FIVE,TWO,FIVE,TWO)
  9513					; --- DIVISOR === (543210123456,543210123456)
  9514					; --- QUOTIENT == (356736272460,271326656374)
  9515					; --- REMAINDER = (763153710465,406655405512)
  9516
  9517					..0664:	MOVE	AC1,[[EXP FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,27132665
  9518	037547	200 01 0 00 045307 	6374,763153710465,406655405512],,PDEND]
  9519	037550	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 29-6
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST D                                                                      SEQ 0215

  9520	037551	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9521						ERROR	(..0664,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9522	037552	036 14 0 00 045115 
  9523	037553	035 00 0 00 037547 		ERLOOP	..0664			;IF ERROR, LOOP TO ..0664
  9524					^
  9525
  9526	037554	200 14 0 00 040775 	..0665:	MOVE	SCR2,PFLOC	;GET PC
  9527	037555	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9528						ERROR	(..0664,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9529					LL
  9530	037556	036 13 0 00 045127 
  9531	037557	035 00 0 00 037547 		ERLOOP	..0664			;IF ERROR, LOOP TO ..0664
  9532					^
  9533					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0216

  9534					SUBTTL	DDIV - TEST E
  9535
  9536					; **********************************************************************
  9537					;*DDIV - TEST E
  9538					;*
  9539					;*	-4/-2		-4/2		4/-2		4/2
  9540					;*	(-3,0,0,0)/(-6,0)   (-3,0,0,0)/(6,0)	3/-6	3/6
  9541					;*
  9542					;*	THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS
  9543					;*	OPERANDS PROPERLY.  THE SIGN BITS OF THE LOW ORDER WORDS ARE
  9544					;*	INITIALLY DIFFERENT FROM THE HIGH ORDER WORD.  THE SIGN SHOULD
  9545					;*	BE FORMED CORRECTLY IN SPITE OF THAT.
  9546					; **********************************************************************
  9547
  9548					; **********************************************************************
  9549					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9550					; **********************************************************************
  9551
  9552						PDIVF	(E,-1,377777777777,377777777777,377777777774,-1,377777777776,0,2)^
  9553
  9554					; --- DIVIDEND == (-1,377777777777,377777777777,377777777774)
  9555					; --- DIVISOR === (-1,377777777776)
  9556					; --- QUOTIENT == (0,2)
  9557					; --- REMAINDER = (0,0)
  9558
  9559					..0666:	MOVE	AC1,[[EXP -1,377777777777,377777777777,377777777774,-1,377777777776,0,2,0,0
  9560	037560	200 01 0 00 045322 	],,PDEND]
  9561	037561	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9562	037562	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9563						ERROR	(..0666,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9564	037563	036 14 0 00 045332 
  9565	037564	035 00 0 00 037560 		ERLOOP	..0666			;IF ERROR, LOOP TO ..0666
  9566					^
  9567
  9568	037565	200 14 0 00 040775 	..0667:	MOVE	SCR2,PFLOC	;GET PC
  9569	037566	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9570						ERROR	(..0666,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9571					LL
  9572	037567	036 13 0 00 045344 
  9573	037570	035 00 0 00 037560 		ERLOOP	..0666			;IF ERROR, LOOP TO ..0666
  9574					^
  9575					^
  9576
  9577					; **********************************************************************
  9578					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9579					; **********************************************************************
  9580
  9581						PDIVF	(E,-1,377777777777,377777777777,-4,-1,-2,0,2)^
  9582
  9583					; --- DIVIDEND == (-1,377777777777,377777777777,-4)
  9584					; --- DIVISOR === (-1,-2)
  9585					; --- QUOTIENT == (0,2)
  9586					; --- REMAINDER = (0,0)
  9587
  9588	037571	200 01 0 00 045361 	..0670:	MOVE	AC1,[[EXP -1,377777777777,377777777777,-4,-1,-2,0,2,0,0],,PDEND]
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-1
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0217

  9589	037572	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9590	037573	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9591						ERROR	(..0670,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9592	037574	036 14 0 00 045332 
  9593	037575	035 00 0 00 037571 		ERLOOP	..0670			;IF ERROR, LOOP TO ..0670
  9594					^
  9595
  9596	037576	200 14 0 00 040775 	..0671:	MOVE	SCR2,PFLOC	;GET PC
  9597	037577	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9598						ERROR	(..0670,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9599					LL
  9600	037600	036 13 0 00 045344 
  9601	037601	035 00 0 00 037571 		ERLOOP	..0670			;IF ERROR, LOOP TO ..0670
  9602					^
  9603					^
  9604
  9605					; **********************************************************************
  9606					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9607					; **********************************************************************
  9608
  9609						PDIVF	(E,-1,377777777777,377777777777,377777777774,0,400000000002,-1,-2)^
  9610
  9611					; --- DIVIDEND == (-1,377777777777,377777777777,377777777774)
  9612					; --- DIVISOR === (0,400000000002)
  9613					; --- QUOTIENT == (-1,-2)
  9614					; --- REMAINDER = (0,0)
  9615
  9616					..0672:	MOVE	AC1,[[EXP -1,377777777777,377777777777,377777777774,0,400000000002,-1,-2,0,
  9617	037602	200 01 0 00 045374 	0],,PDEND]
  9618	037603	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9619	037604	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9620						ERROR	(..0672,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9621	037605	036 14 0 00 045332 
  9622	037606	035 00 0 00 037602 		ERLOOP	..0672			;IF ERROR, LOOP TO ..0672
  9623					^
  9624
  9625	037607	200 14 0 00 040775 	..0673:	MOVE	SCR2,PFLOC	;GET PC
  9626	037610	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9627						ERROR	(..0672,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9628					LL
  9629	037611	036 13 0 00 045344 
  9630	037612	035 00 0 00 037602 		ERLOOP	..0672			;IF ERROR, LOOP TO ..0672
  9631					^
  9632					^
  9633
  9634					; **********************************************************************
  9635					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9636					; **********************************************************************
  9637
  9638						PDIVF	(E,-1,-1,-1,-4,0,400000000002,-1,-2)^
  9639
  9640					; --- DIVIDEND == (-1,-1,-1,-4)
  9641					; --- DIVISOR === (0,400000000002)
  9642					; --- QUOTIENT == (-1,-2)
  9643					; --- REMAINDER = (0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-2
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0218

  9644
  9645	037613	200 01 0 00 045407 	..0674:	MOVE	AC1,[[EXP -1,-1,-1,-4,0,400000000002,-1,-2,0,0],,PDEND]
  9646	037614	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9647	037615	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9648						ERROR	(..0674,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9649	037616	036 14 0 00 045332 
  9650	037617	035 00 0 00 037613 		ERLOOP	..0674			;IF ERROR, LOOP TO ..0674
  9651					^
  9652
  9653	037620	200 14 0 00 040775 	..0675:	MOVE	SCR2,PFLOC	;GET PC
  9654	037621	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9655						ERROR	(..0674,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9656					LL
  9657	037622	036 13 0 00 045344 
  9658	037623	035 00 0 00 037613 		ERLOOP	..0674			;IF ERROR, LOOP TO ..0674
  9659					^
  9660					^
  9661
  9662					; **********************************************************************
  9663					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9664					; **********************************************************************
  9665
  9666						PDIVF	(E,0,1B0,1B0,400000000004,-1,377777777776,-1,-2)^
  9667
  9668					; --- DIVIDEND == (0,1B0,1B0,400000000004)
  9669					; --- DIVISOR === (-1,377777777776)
  9670					; --- QUOTIENT == (-1,-2)
  9671					; --- REMAINDER = (0,0)
  9672
  9673	037624	200 01 0 00 045422 	..0676:	MOVE	AC1,[[EXP 0,1B0,1B0,400000000004,-1,377777777776,-1,-2,0,0],,PDEND]
  9674	037625	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9675	037626	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9676						ERROR	(..0676,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9677	037627	036 14 0 00 045332 
  9678	037630	035 00 0 00 037624 		ERLOOP	..0676			;IF ERROR, LOOP TO ..0676
  9679					^
  9680
  9681	037631	200 14 0 00 040775 	..0677:	MOVE	SCR2,PFLOC	;GET PC
  9682	037632	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9683						ERROR	(..0676,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9684					LL
  9685	037633	036 13 0 00 045344 
  9686	037634	035 00 0 00 037624 		ERLOOP	..0676			;IF ERROR, LOOP TO ..0676
  9687					^
  9688					^
  9689
  9690					; **********************************************************************
  9691					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9692					; **********************************************************************
  9693
  9694						PDIVF	(E,0,1B0,1B0,400000000004,-1,-2,-1,-2)^
  9695
  9696					; --- DIVIDEND == (0,1B0,1B0,400000000004)
  9697					; --- DIVISOR === (-1,-2)
  9698					; --- QUOTIENT == (-1,-2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-3
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0219

  9699					; --- REMAINDER = (0,0)
  9700
  9701	037635	200 01 0 00 045435 	..0700:	MOVE	AC1,[[EXP 0,1B0,1B0,400000000004,-1,-2,-1,-2,0,0],,PDEND]
  9702	037636	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9703	037637	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9704						ERROR	(..0700,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9705	037640	036 14 0 00 045332 
  9706	037641	035 00 0 00 037635 		ERLOOP	..0700			;IF ERROR, LOOP TO ..0700
  9707					^
  9708
  9709	037642	200 14 0 00 040775 	..0701:	MOVE	SCR2,PFLOC	;GET PC
  9710	037643	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9711						ERROR	(..0700,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9712					LL
  9713	037644	036 13 0 00 045344 
  9714	037645	035 00 0 00 037635 		ERLOOP	..0700			;IF ERROR, LOOP TO ..0700
  9715					^
  9716					^
  9717
  9718					; **********************************************************************
  9719					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9720					; **********************************************************************
  9721
  9722						PDIVF	(E,0,0,0,400000000004,0,2,0,2)^
  9723
  9724					; --- DIVIDEND == (0,0,0,400000000004)
  9725					; --- DIVISOR === (0,2)
  9726					; --- QUOTIENT == (0,2)
  9727					; --- REMAINDER = (0,0)
  9728
  9729	037646	200 01 0 00 045450 	..0702:	MOVE	AC1,[[EXP 0,0,0,400000000004,0,2,0,2,0,0],,PDEND]
  9730	037647	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9731	037650	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9732						ERROR	(..0702,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9733	037651	036 14 0 00 045332 
  9734	037652	035 00 0 00 037646 		ERLOOP	..0702			;IF ERROR, LOOP TO ..0702
  9735					^
  9736
  9737	037653	200 14 0 00 040775 	..0703:	MOVE	SCR2,PFLOC	;GET PC
  9738	037654	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9739						ERROR	(..0702,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9740					LL
  9741	037655	036 13 0 00 045344 
  9742	037656	035 00 0 00 037646 		ERLOOP	..0702			;IF ERROR, LOOP TO ..0702
  9743					^
  9744					^
  9745
  9746					; **********************************************************************
  9747					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9748					; **********************************************************************
  9749
  9750						PDIVF	(E,0,0,0,400000000004,0,400000000002,0,2)^
  9751
  9752					; --- DIVIDEND == (0,0,0,400000000004)
  9753					; --- DIVISOR === (0,400000000002)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-4
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0220

  9754					; --- QUOTIENT == (0,2)
  9755					; --- REMAINDER = (0,0)
  9756
  9757	037657	200 01 0 00 045463 	..0704:	MOVE	AC1,[[EXP 0,0,0,400000000004,0,400000000002,0,2,0,0],,PDEND]
  9758	037660	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9759	037661	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9760						ERROR	(..0704,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9761	037662	036 14 0 00 045332 
  9762	037663	035 00 0 00 037657 		ERLOOP	..0704			;IF ERROR, LOOP TO ..0704
  9763					^
  9764
  9765	037664	200 14 0 00 040775 	..0705:	MOVE	SCR2,PFLOC	;GET PC
  9766	037665	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9767						ERROR	(..0704,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9768					LL
  9769	037666	036 13 0 00 045344 
  9770	037667	035 00 0 00 037657 		ERLOOP	..0704			;IF ERROR, LOOP TO ..0704
  9771					^
  9772					^
  9773
  9774					; **********************************************************************
  9775					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9776					; **********************************************************************
  9777
  9778						PDIVF	(E,-3,1B0,1B0,1B0,-6,1B0,200000000000,0)^
  9779
  9780					; --- DIVIDEND == (-3,1B0,1B0,1B0)
  9781					; --- DIVISOR === (-6,1B0)
  9782					; --- QUOTIENT == (200000000000,0)
  9783					; --- REMAINDER = (0,0)
  9784
  9785	037670	200 01 0 00 045476 	..0706:	MOVE	AC1,[[EXP -3,1B0,1B0,1B0,-6,1B0,200000000000,0,0,0],,PDEND]
  9786	037671	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9787	037672	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9788						ERROR	(..0706,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9789	037673	036 14 0 00 045332 
  9790	037674	035 00 0 00 037670 		ERLOOP	..0706			;IF ERROR, LOOP TO ..0706
  9791					^
  9792
  9793	037675	200 14 0 00 040775 	..0707:	MOVE	SCR2,PFLOC	;GET PC
  9794	037676	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9795						ERROR	(..0706,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9796					LL
  9797	037677	036 13 0 00 045344 
  9798	037700	035 00 0 00 037670 		ERLOOP	..0706			;IF ERROR, LOOP TO ..0706
  9799					^
  9800					^
  9801
  9802					; **********************************************************************
  9803					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9804					; **********************************************************************
  9805
  9806						PDIVF	(E,-3,1B0,1B0,0,-6,1B0,200000000000,0)^
  9807
  9808					; --- DIVIDEND == (-3,1B0,1B0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-5
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0221

  9809					; --- DIVISOR === (-6,1B0)
  9810					; --- QUOTIENT == (200000000000,0)
  9811					; --- REMAINDER = (0,0)
  9812
  9813	037701	200 01 0 00 045511 	..0710:	MOVE	AC1,[[EXP -3,1B0,1B0,0,-6,1B0,200000000000,0,0,0],,PDEND]
  9814	037702	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9815	037703	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9816						ERROR	(..0710,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9817	037704	036 14 0 00 045332 
  9818	037705	035 00 0 00 037701 		ERLOOP	..0710			;IF ERROR, LOOP TO ..0710
  9819					^
  9820
  9821	037706	200 14 0 00 040775 	..0711:	MOVE	SCR2,PFLOC	;GET PC
  9822	037707	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9823						ERROR	(..0710,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9824					LL
  9825	037710	036 13 0 00 045344 
  9826	037711	035 00 0 00 037701 		ERLOOP	..0710			;IF ERROR, LOOP TO ..0710
  9827					^
  9828					^
  9829
  9830					; **********************************************************************
  9831					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9832					; **********************************************************************
  9833
  9834						PDIVF	(E,-3,1B0,0,0,6,0,600000000000,1B0)^
  9835
  9836					; --- DIVIDEND == (-3,1B0,0,0)
  9837					; --- DIVISOR === (6,0)
  9838					; --- QUOTIENT == (600000000000,1B0)
  9839					; --- REMAINDER = (0,0)
  9840
  9841	037712	200 01 0 00 045524 	..0712:	MOVE	AC1,[[EXP -3,1B0,0,0,6,0,600000000000,1B0,0,0],,PDEND]
  9842	037713	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9843	037714	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9844						ERROR	(..0712,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9845	037715	036 14 0 00 045332 
  9846	037716	035 00 0 00 037712 		ERLOOP	..0712			;IF ERROR, LOOP TO ..0712
  9847					^
  9848
  9849	037717	200 14 0 00 040775 	..0713:	MOVE	SCR2,PFLOC	;GET PC
  9850	037720	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9851						ERROR	(..0712,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9852					LL
  9853	037721	036 13 0 00 045344 
  9854	037722	035 00 0 00 037712 		ERLOOP	..0712			;IF ERROR, LOOP TO ..0712
  9855					^
  9856					^
  9857
  9858					; **********************************************************************
  9859					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9860					; **********************************************************************
  9861
  9862						PDIVF	(E,-3,0,0,0,6,1B0,600000000000,1B0)^
  9863
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-6
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0222

  9864					; --- DIVIDEND == (-3,0,0,0)
  9865					; --- DIVISOR === (6,1B0)
  9866					; --- QUOTIENT == (600000000000,1B0)
  9867					; --- REMAINDER = (0,0)
  9868
  9869	037723	200 01 0 00 045537 	..0714:	MOVE	AC1,[[EXP -3,0,0,0,6,1B0,600000000000,1B0,0,0],,PDEND]
  9870	037724	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9871	037725	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9872						ERROR	(..0714,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9873	037726	036 14 0 00 045332 
  9874	037727	035 00 0 00 037723 		ERLOOP	..0714			;IF ERROR, LOOP TO ..0714
  9875					^
  9876
  9877	037730	200 14 0 00 040775 	..0715:	MOVE	SCR2,PFLOC	;GET PC
  9878	037731	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9879						ERROR	(..0714,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9880					LL
  9881	037732	036 13 0 00 045344 
  9882	037733	035 00 0 00 037723 		ERLOOP	..0714			;IF ERROR, LOOP TO ..0714
  9883					^
  9884					^
  9885
  9886					; **********************************************************************
  9887					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9888					; **********************************************************************
  9889
  9890						PDIVF	(E,3,1B0,1B0,0,-6,1B0,600000000000,1B0)^
  9891
  9892					; --- DIVIDEND == (3,1B0,1B0,0)
  9893					; --- DIVISOR === (-6,1B0)
  9894					; --- QUOTIENT == (600000000000,1B0)
  9895					; --- REMAINDER = (0,0)
  9896
  9897	037734	200 01 0 00 045552 	..0716:	MOVE	AC1,[[EXP 3,1B0,1B0,0,-6,1B0,600000000000,1B0,0,0],,PDEND]
  9898	037735	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9899	037736	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9900						ERROR	(..0716,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9901	037737	036 14 0 00 045332 
  9902	037740	035 00 0 00 037734 		ERLOOP	..0716			;IF ERROR, LOOP TO ..0716
  9903					^
  9904
  9905	037741	200 14 0 00 040775 	..0717:	MOVE	SCR2,PFLOC	;GET PC
  9906	037742	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9907						ERROR	(..0716,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9908					LL
  9909	037743	036 13 0 00 045344 
  9910	037744	035 00 0 00 037734 		ERLOOP	..0716			;IF ERROR, LOOP TO ..0716
  9911					^
  9912					^
  9913
  9914					; **********************************************************************
  9915					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9916					; **********************************************************************
  9917
  9918						PDIVF	(E,3,1B0,0,1B0,-6,1B0,600000000000,1B0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-7
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0223

  9919
  9920					; --- DIVIDEND == (3,1B0,0,1B0)
  9921					; --- DIVISOR === (-6,1B0)
  9922					; --- QUOTIENT == (600000000000,1B0)
  9923					; --- REMAINDER = (0,0)
  9924
  9925	037745	200 01 0 00 045565 	..0720:	MOVE	AC1,[[EXP 3,1B0,0,1B0,-6,1B0,600000000000,1B0,0,0],,PDEND]
  9926	037746	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9927	037747	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9928						ERROR	(..0720,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9929	037750	036 14 0 00 045332 
  9930	037751	035 00 0 00 037745 		ERLOOP	..0720			;IF ERROR, LOOP TO ..0720
  9931					^
  9932
  9933	037752	200 14 0 00 040775 	..0721:	MOVE	SCR2,PFLOC	;GET PC
  9934	037753	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9935						ERROR	(..0720,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9936					LL
  9937	037754	036 13 0 00 045344 
  9938	037755	035 00 0 00 037745 		ERLOOP	..0720			;IF ERROR, LOOP TO ..0720
  9939					^
  9940					^
  9941
  9942					; **********************************************************************
  9943					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9944					; **********************************************************************
  9945
  9946						PDIVF	(E,3,0,1B0,1B0,6,1B0,200000000000,0)^
  9947
  9948					; --- DIVIDEND == (3,0,1B0,1B0)
  9949					; --- DIVISOR === (6,1B0)
  9950					; --- QUOTIENT == (200000000000,0)
  9951					; --- REMAINDER = (0,0)
  9952
  9953	037756	200 01 0 00 045600 	..0722:	MOVE	AC1,[[EXP 3,0,1B0,1B0,6,1B0,200000000000,0,0,0],,PDEND]
  9954	037757	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9955	037760	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9956						ERROR	(..0722,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9957	037761	036 14 0 00 045332 
  9958	037762	035 00 0 00 037756 		ERLOOP	..0722			;IF ERROR, LOOP TO ..0722
  9959					^
  9960
  9961	037763	200 14 0 00 040775 	..0723:	MOVE	SCR2,PFLOC	;GET PC
  9962	037764	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9963						ERROR	(..0722,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9964					LL
  9965	037765	036 13 0 00 045344 
  9966	037766	035 00 0 00 037756 		ERLOOP	..0722			;IF ERROR, LOOP TO ..0722
  9967					^
  9968					^
  9969
  9970					; **********************************************************************
  9971					; ----------  DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS)  ----------
  9972					; **********************************************************************
  9973
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 30-8
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST E                                                                      SEQ 0224

  9974						PDIVF	(E,3,1B0,1B0,1B0,6,0,200000000000,0)^
  9975
  9976					; --- DIVIDEND == (3,1B0,1B0,1B0)
  9977					; --- DIVISOR === (6,0)
  9978					; --- QUOTIENT == (200000000000,0)
  9979					; --- REMAINDER = (0,0)
  9980
  9981	037767	200 01 0 00 045613 	..0724:	MOVE	AC1,[[EXP 3,1B0,1B0,1B0,6,0,200000000000,0,0,0],,PDEND]
  9982	037770	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
  9983	037771	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
  9984						ERROR	(..0724,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
  9985	037772	036 14 0 00 045332 
  9986	037773	035 00 0 00 037767 		ERLOOP	..0724			;IF ERROR, LOOP TO ..0724
  9987					^
  9988
  9989	037774	200 14 0 00 040775 	..0725:	MOVE	SCR2,PFLOC	;GET PC
  9990	037775	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
  9991						ERROR	(..0724,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
  9992					LL
  9993	037776	036 13 0 00 045344 
  9994	037777	035 00 0 00 037767 		ERLOOP	..0724			;IF ERROR, LOOP TO ..0724
  9995					^
  9996					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 31
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST F                                                                      SEQ 0225

  9997					SUBTTL	DDIV - TEST F
  9998
  9999					; **********************************************************************
 10000					;*DDIV - TEST F
 10001					;*
 10002					;*	 1,0,0,0     -1,0,0,0     0,-1,-1,-1     -1,0,0,1
 10003					;*	 -------     --------     ----------     --------
 10004					;*	   1,1          1,1           1,0           1,0
 10005					;*
 10006					;*	 1,0,0,0     -1,0,0,0     0,-1,-1,-1     -1,0,0,1
 10007					;*	 -------     --------     ----------     --------
 10008					;*	  -2,-1        -2,-1         -1,0          -1,0
 10009					;*
 10010					;*	THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN
 10011					;*	OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS
 10012					;*	JUST LARGE ENOUGH TO NOT CAUSE ONE.
 10013					; **********************************************************************
 10014
 10015					; **********************************************************************
 10016					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10017					; **********************************************************************
 10018
 10019						PDIVF	(F,1,0,0,0,1,1,377777777777,0,1,0)^
 10020
 10021					; --- DIVIDEND == (1,0,0,0)
 10022					; --- DIVISOR === (1,1)
 10023					; --- QUOTIENT == (377777777777,0)
 10024					; --- REMAINDER = (1,0)
 10025
 10026	040000	200 01 0 00 045626 	..0726:	MOVE	AC1,[[EXP 1,0,0,0,1,1,377777777777,0,1,0],,PDEND]
 10027	040001	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10028	040002	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10029						ERROR	(..0726,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10030	040003	036 14 0 00 045636 
 10031	040004	035 00 0 00 040000 		ERLOOP	..0726			;IF ERROR, LOOP TO ..0726
 10032					^
 10033
 10034	040005	200 14 0 00 040775 	..0727:	MOVE	SCR2,PFLOC	;GET PC
 10035	040006	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10036						ERROR	(..0726,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10037					LL
 10038	040007	036 13 0 00 045650 
 10039	040010	035 00 0 00 040000 		ERLOOP	..0726			;IF ERROR, LOOP TO ..0726
 10040					^
 10041					^
 10042
 10043					; **********************************************************************
 10044					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10045					; **********************************************************************
 10046
 10047						PDIVF	(F,1,0,0,0,-2,-1,400000000001,1B0,1,0)^
 10048
 10049					; --- DIVIDEND == (1,0,0,0)
 10050					; --- DIVISOR === (-2,-1)
 10051					; --- QUOTIENT == (400000000001,1B0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 31-1
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST F                                                                      SEQ 0226

 10052					; --- REMAINDER = (1,0)
 10053
 10054	040011	200 01 0 00 045665 	..0730:	MOVE	AC1,[[EXP 1,0,0,0,-2,-1,400000000001,1B0,1,0],,PDEND]
 10055	040012	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10056	040013	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10057						ERROR	(..0730,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10058	040014	036 14 0 00 045636 
 10059	040015	035 00 0 00 040011 		ERLOOP	..0730			;IF ERROR, LOOP TO ..0730
 10060					^
 10061
 10062	040016	200 14 0 00 040775 	..0731:	MOVE	SCR2,PFLOC	;GET PC
 10063	040017	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10064						ERROR	(..0730,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10065					LL
 10066	040020	036 13 0 00 045650 
 10067	040021	035 00 0 00 040011 		ERLOOP	..0730			;IF ERROR, LOOP TO ..0730
 10068					^
 10069					^
 10070
 10071					; **********************************************************************
 10072					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10073					; **********************************************************************
 10074
 10075						PDIVF	(F,-1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0)^
 10076
 10077					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10078					; --- DIVISOR === (1,1)
 10079					; --- QUOTIENT == (400000000001,1B0)
 10080					; --- REMAINDER = (-1,1B0)
 10081
 10082	040022	200 01 0 00 045700 	..0732:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0],,PDEND]
 10083	040023	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10084	040024	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10085						ERROR	(..0732,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10086	040025	036 14 0 00 045636 
 10087	040026	035 00 0 00 040022 		ERLOOP	..0732			;IF ERROR, LOOP TO ..0732
 10088					^
 10089
 10090	040027	200 14 0 00 040775 	..0733:	MOVE	SCR2,PFLOC	;GET PC
 10091	040030	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10092						ERROR	(..0732,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10093					LL
 10094	040031	036 13 0 00 045650 
 10095	040032	035 00 0 00 040022 		ERLOOP	..0732			;IF ERROR, LOOP TO ..0732
 10096					^
 10097					^
 10098
 10099					; **********************************************************************
 10100					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10101					; **********************************************************************
 10102
 10103						PDIVF	(F,-1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0)^
 10104
 10105					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10106					; --- DIVISOR === (-2,-1)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 31-2
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST F                                                                      SEQ 0227

 10107					; --- QUOTIENT == (377777777777,0)
 10108					; --- REMAINDER = (-1,1B0)
 10109
 10110	040033	200 01 0 00 045713 	..0734:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0],,PDEND]
 10111	040034	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10112	040035	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10113						ERROR	(..0734,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10114	040036	036 14 0 00 045636 
 10115	040037	035 00 0 00 040033 		ERLOOP	..0734			;IF ERROR, LOOP TO ..0734
 10116					^
 10117
 10118	040040	200 14 0 00 040775 	..0735:	MOVE	SCR2,PFLOC	;GET PC
 10119	040041	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10120						ERROR	(..0734,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10121					LL
 10122	040042	036 13 0 00 045650 
 10123	040043	035 00 0 00 040033 		ERLOOP	..0734			;IF ERROR, LOOP TO ..0734
 10124					^
 10125					^
 10126
 10127					; **********************************************************************
 10128					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10129					; **********************************************************************
 10130
 10131						PDIVF	(F,0,377777777777,377777777777,377777777777,1,0,377777777777,377777777777,0
 10132					,377777777777)^
 10133
 10134					; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
 10135					; --- DIVISOR === (1,0)
 10136					; --- QUOTIENT == (377777777777,377777777777)
 10137					; --- REMAINDER = (0,377777777777)
 10138
 10139					..0736:	MOVE	AC1,[[EXP 0,377777777777,377777777777,377777777777,1,0,377777777777,3777777
 10140	040044	200 01 0 00 045726 	77777,0,377777777777],,PDEND]
 10141	040045	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10142	040046	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10143						ERROR	(..0736,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10144	040047	036 14 0 00 045636 
 10145	040050	035 00 0 00 040044 		ERLOOP	..0736			;IF ERROR, LOOP TO ..0736
 10146					^
 10147
 10148	040051	200 14 0 00 040775 	..0737:	MOVE	SCR2,PFLOC	;GET PC
 10149	040052	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10150						ERROR	(..0736,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10151					LL
 10152	040053	036 13 0 00 045650 
 10153	040054	035 00 0 00 040044 		ERLOOP	..0736			;IF ERROR, LOOP TO ..0736
 10154					^
 10155					^
 10156
 10157					; **********************************************************************
 10158					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10159					; **********************************************************************
 10160
 10161						PDIVF	(F,0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001,0,37777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 31-3
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST F                                                                      SEQ 0228

 10162					7777777)^
 10163
 10164					; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
 10165					; --- DIVISOR === (-1,1B0)
 10166					; --- QUOTIENT == (1B0,400000000001)
 10167					; --- REMAINDER = (0,377777777777)
 10168
 10169					..0740:	MOVE	AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001,
 10170	040055	200 01 0 00 045741 	0,377777777777],,PDEND]
 10171	040056	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10172	040057	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10173						ERROR	(..0740,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10174	040060	036 14 0 00 045636 
 10175	040061	035 00 0 00 040055 		ERLOOP	..0740			;IF ERROR, LOOP TO ..0740
 10176					^
 10177
 10178	040062	200 14 0 00 040775 	..0741:	MOVE	SCR2,PFLOC	;GET PC
 10179	040063	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10180						ERROR	(..0740,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10181					LL
 10182	040064	036 13 0 00 045650 
 10183	040065	035 00 0 00 040055 		ERLOOP	..0740			;IF ERROR, LOOP TO ..0740
 10184					^
 10185					^
 10186
 10187					; **********************************************************************
 10188					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10189					; **********************************************************************
 10190
 10191						PDIVF	(F,-1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001)^
 10192
 10193					; --- DIVIDEND == (-1,1B0,1B0,400000000001)
 10194					; --- DIVISOR === (1,0)
 10195					; --- QUOTIENT == (1B0,400000000001)
 10196					; --- REMAINDER = (-1,400000000001)
 10197
 10198					..0742:	MOVE	AC1,[[EXP -1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001],,PD
 10199	040066	200 01 0 00 045754 	END]
 10200	040067	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10201	040070	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10202						ERROR	(..0742,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10203	040071	036 14 0 00 045636 
 10204	040072	035 00 0 00 040066 		ERLOOP	..0742			;IF ERROR, LOOP TO ..0742
 10205					^
 10206
 10207	040073	200 14 0 00 040775 	..0743:	MOVE	SCR2,PFLOC	;GET PC
 10208	040074	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10209						ERROR	(..0742,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10210					LL
 10211	040075	036 13 0 00 045650 
 10212	040076	035 00 0 00 040066 		ERLOOP	..0742			;IF ERROR, LOOP TO ..0742
 10213					^
 10214					^
 10215
 10216					; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 31-4
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST F                                                                      SEQ 0229

 10217					; ----------  DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS)  ----------
 10218					; **********************************************************************
 10219
 10220						PDIVF	(F,-1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,400000000001
 10221					)^
 10222
 10223					; --- DIVIDEND == (-1,1B0,1B0,400000000001)
 10224					; --- DIVISOR === (-1,1B0)
 10225					; --- QUOTIENT == (377777777777,377777777777)
 10226					; --- REMAINDER = (-1,400000000001)
 10227
 10228					..0744:	MOVE	AC1,[[EXP -1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,40000
 10229	040077	200 01 0 00 045767 	0000001],,PDEND]
 10230	040100	251 01 0 00 041031 		BLT	AC1,PRES+3	;SET UP OPERANDS
 10231	040101	260 17 0 00 040767 		GO	PSUBR		;GO DO TEST
 10232						ERROR	(..0744,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
 10233	040102	036 14 0 00 045636 
 10234	040103	035 00 0 00 040077 		ERLOOP	..0744			;IF ERROR, LOOP TO ..0744
 10235					^
 10236
 10237	040104	200 14 0 00 040775 	..0745:	MOVE	SCR2,PFLOC	;GET PC
 10238	040105	623 14 0 00 400040 		TLZE	SCR2,AROV+DCK	;CALC OK PC (NO - OV/DIV) & TEST
 10239						ERROR	(..0744,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
 10240					LL
 10241	040106	036 13 0 00 045650 
 10242	040107	035 00 0 00 040077 		ERLOOP	..0744			;IF ERROR, LOOP TO ..0744
 10243					^
 10244					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 32
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0230

 10245					SUBTTL	DDIV - TEST G
 10246
 10247					; **********************************************************************
 10248					;*DDIV - TEST G
 10249					;*
 10250					;*	   1     1,0     1,0,0     1,0,0,0     -1
 10251					;*	   -     ---     -----     -------      -
 10252					;*	   0      0        0          0         0
 10253					;*
 10254					;*	   1,0,0     1,0,0     1,0,0,0     1,0,0,0
 10255					;*	   -----     -----     -------     -------
 10256					;*	     1        -1          1           -1
 10257					;*
 10258					;*	   -1,0,0     -1,0,0     -1,0,0,0     -1,0,0,0
 10259					;*	   ------     ------     --------     --------
 10260					;*	      1         -1           1           -1
 10261					;*
 10262					;*	   1,0,0,0     1,0,0,0     -1,0,0,0     -1,0,0,0
 10263					;*	   -------     -------     --------     --------
 10264					;*	     1,0         -1,0         1,0         -1,0
 10265					;*
 10266					;*	   0,-1,-1,-1     0,-1,-1,-1     -1,0,0,1     -1,0,0,1
 10267					;*	   ----------     ----------     --------     --------
 10268					;*	      0,-1           -1,1          0,-1         -1,1
 10269					;*
 10270					;*	   1,0,-1,-1     1,0,-1,-1     -2,-1,0,1     -2,-1,0,1
 10271					;*	   ---------     ---------     ---------     ---------
 10272					;*	     0,-1          -1,1           0,-1         -1,1
 10273					;*
 10274					;*	   -2^140     2^140-1     2^140-1     -2^70+1,-2^70
 10275					;*	   ------     -------     -------     -------------
 10276					;*	    -2^70      2^70-1     -2^70+1        2^70-1
 10277					;*
 10278					;*	THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT
 10279					;*	SHOULD RESULT IN OVERFLOW.  THE SETTING OF AROV AND NO
 10280					;*	DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO
 10281					;*	SEE THAT IT DID NOT CHANGE.
 10282					;*
 10283					;*	ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST
 10284					;*	SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE
 10285					;*	SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION.
 10286					; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0231

 10287
 10288					; **********************************************************************
 10289					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10290					; **********************************************************************
 10291
 10292						ODIV	(0,0,0,1,0,0)^
 10293
 10294					; --- DIVIDEND == (0,0,0,1)
 10295					; --- DIVISOR === (0,0)
 10296					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10297
 10298	040110	200 01 0 00 045776 	..0746:	MOVE	AC1,[[EXP 0,0,0,1,0,0],,ODEND]
 10299	040111	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10300	040112	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10301						ERROR	(..0746,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10302	040113	036 14 0 00 046006 
 10303	040114	035 00 0 00 040110 		ERLOOP	..0746			;IF ERROR, LOOP TO ..0746
 10304					^
 10305
 10306	040115	200 14 0 00 041043 	..0747:	MOVE	SCR2,OFLOC	;GET PC
 10307	040116	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10308	040117	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10309	040120	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10310	040121	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10311						ERROR	(..0746,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10312
 10313	040122	036 13 0 00 046021 
 10314	040123	035 00 0 00 040110 		ERLOOP	..0746			;IF ERROR, LOOP TO ..0746
 10315					^
 10316					^
 10317
 10318					; **********************************************************************
 10319					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10320					; **********************************************************************
 10321
 10322						ODIV	(0,0,1,0,0,0)^
 10323
 10324					; --- DIVIDEND == (0,0,1,0)
 10325					; --- DIVISOR === (0,0)
 10326					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10327
 10328	040124	200 01 0 00 046032 	..0750:	MOVE	AC1,[[EXP 0,0,1,0,0,0],,ODEND]
 10329	040125	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10330	040126	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10331						ERROR	(..0750,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10332	040127	036 14 0 00 046006 
 10333	040130	035 00 0 00 040124 		ERLOOP	..0750			;IF ERROR, LOOP TO ..0750
 10334					^
 10335
 10336	040131	200 14 0 00 041043 	..0751:	MOVE	SCR2,OFLOC	;GET PC
 10337	040132	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10338	040133	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10339	040134	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10340	040135	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10341						ERROR	(..0750,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-1
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0232

 10342
 10343	040136	036 13 0 00 046021 
 10344	040137	035 00 0 00 040124 		ERLOOP	..0750			;IF ERROR, LOOP TO ..0750
 10345					^
 10346					^
 10347
 10348					; **********************************************************************
 10349					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10350					; **********************************************************************
 10351
 10352						ODIV	(0,1,0,0,0,0)^
 10353
 10354					; --- DIVIDEND == (0,1,0,0)
 10355					; --- DIVISOR === (0,0)
 10356					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10357
 10358	040140	200 01 0 00 046041 	..0752:	MOVE	AC1,[[EXP 0,1,0,0,0,0],,ODEND]
 10359	040141	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10360	040142	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10361						ERROR	(..0752,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10362	040143	036 14 0 00 046006 
 10363	040144	035 00 0 00 040140 		ERLOOP	..0752			;IF ERROR, LOOP TO ..0752
 10364					^
 10365
 10366	040145	200 14 0 00 041043 	..0753:	MOVE	SCR2,OFLOC	;GET PC
 10367	040146	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10368	040147	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10369	040150	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10370	040151	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10371						ERROR	(..0752,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10372
 10373	040152	036 13 0 00 046021 
 10374	040153	035 00 0 00 040140 		ERLOOP	..0752			;IF ERROR, LOOP TO ..0752
 10375					^
 10376					^
 10377
 10378					; **********************************************************************
 10379					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10380					; **********************************************************************
 10381
 10382						ODIV	(1,0,0,0,0,0)^
 10383
 10384					; --- DIVIDEND == (1,0,0,0)
 10385					; --- DIVISOR === (0,0)
 10386					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10387
 10388	040154	200 01 0 00 046050 	..0754:	MOVE	AC1,[[EXP 1,0,0,0,0,0],,ODEND]
 10389	040155	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10390	040156	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10391						ERROR	(..0754,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10392	040157	036 14 0 00 046006 
 10393	040160	035 00 0 00 040154 		ERLOOP	..0754			;IF ERROR, LOOP TO ..0754
 10394					^
 10395
 10396	040161	200 14 0 00 041043 	..0755:	MOVE	SCR2,OFLOC	;GET PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-2
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0233

 10397	040162	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10398	040163	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10399	040164	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10400	040165	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10401						ERROR	(..0754,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10402
 10403	040166	036 13 0 00 046021 
 10404	040167	035 00 0 00 040154 		ERLOOP	..0754			;IF ERROR, LOOP TO ..0754
 10405					^
 10406					^
 10407
 10408					; **********************************************************************
 10409					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10410					; **********************************************************************
 10411
 10412						ODIV	(-1,-1,-1,-1,0,0)^
 10413
 10414					; --- DIVIDEND == (-1,-1,-1,-1)
 10415					; --- DIVISOR === (0,0)
 10416					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10417
 10418	040170	200 01 0 00 046057 	..0756:	MOVE	AC1,[[EXP -1,-1,-1,-1,0,0],,ODEND]
 10419	040171	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10420	040172	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10421						ERROR	(..0756,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10422	040173	036 14 0 00 046006 
 10423	040174	035 00 0 00 040170 		ERLOOP	..0756			;IF ERROR, LOOP TO ..0756
 10424					^
 10425
 10426	040175	200 14 0 00 041043 	..0757:	MOVE	SCR2,OFLOC	;GET PC
 10427	040176	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10428	040177	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10429	040200	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10430	040201	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10431						ERROR	(..0756,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10432
 10433	040202	036 13 0 00 046021 
 10434	040203	035 00 0 00 040170 		ERLOOP	..0756			;IF ERROR, LOOP TO ..0756
 10435					^
 10436					^
 10437
 10438					; **********************************************************************
 10439					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10440					; **********************************************************************
 10441
 10442						ODIV	(0,1,0,0,0,1)^
 10443
 10444					; --- DIVIDEND == (0,1,0,0)
 10445					; --- DIVISOR === (0,1)
 10446					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10447
 10448	040204	200 01 0 00 046066 	..0760:	MOVE	AC1,[[EXP 0,1,0,0,0,1],,ODEND]
 10449	040205	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10450	040206	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10451						ERROR	(..0760,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-3
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0234

 10452	040207	036 14 0 00 046006 
 10453	040210	035 00 0 00 040204 		ERLOOP	..0760			;IF ERROR, LOOP TO ..0760
 10454					^
 10455
 10456	040211	200 14 0 00 041043 	..0761:	MOVE	SCR2,OFLOC	;GET PC
 10457	040212	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10458	040213	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10459	040214	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10460	040215	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10461						ERROR	(..0760,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10462
 10463	040216	036 13 0 00 046021 
 10464	040217	035 00 0 00 040204 		ERLOOP	..0760			;IF ERROR, LOOP TO ..0760
 10465					^
 10466					^
 10467
 10468					; **********************************************************************
 10469					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10470					; **********************************************************************
 10471
 10472						ODIV	(0,1,0,0,-1,-1)^
 10473
 10474					; --- DIVIDEND == (0,1,0,0)
 10475					; --- DIVISOR === (-1,-1)
 10476					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10477
 10478	040220	200 01 0 00 046075 	..0762:	MOVE	AC1,[[EXP 0,1,0,0,-1,-1],,ODEND]
 10479	040221	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10480	040222	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10481						ERROR	(..0762,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10482	040223	036 14 0 00 046006 
 10483	040224	035 00 0 00 040220 		ERLOOP	..0762			;IF ERROR, LOOP TO ..0762
 10484					^
 10485
 10486	040225	200 14 0 00 041043 	..0763:	MOVE	SCR2,OFLOC	;GET PC
 10487	040226	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10488	040227	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10489	040230	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10490	040231	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10491						ERROR	(..0762,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10492
 10493	040232	036 13 0 00 046021 
 10494	040233	035 00 0 00 040220 		ERLOOP	..0762			;IF ERROR, LOOP TO ..0762
 10495					^
 10496					^
 10497
 10498					; **********************************************************************
 10499					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10500					; **********************************************************************
 10501
 10502						ODIV	(1,0,0,0,0,1)^
 10503
 10504					; --- DIVIDEND == (1,0,0,0)
 10505					; --- DIVISOR === (0,1)
 10506					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-4
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0235

 10507
 10508	040234	200 01 0 00 046104 	..0764:	MOVE	AC1,[[EXP 1,0,0,0,0,1],,ODEND]
 10509	040235	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10510	040236	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10511						ERROR	(..0764,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10512	040237	036 14 0 00 046006 
 10513	040240	035 00 0 00 040234 		ERLOOP	..0764			;IF ERROR, LOOP TO ..0764
 10514					^
 10515
 10516	040241	200 14 0 00 041043 	..0765:	MOVE	SCR2,OFLOC	;GET PC
 10517	040242	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10518	040243	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10519	040244	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10520	040245	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10521						ERROR	(..0764,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10522
 10523	040246	036 13 0 00 046021 
 10524	040247	035 00 0 00 040234 		ERLOOP	..0764			;IF ERROR, LOOP TO ..0764
 10525					^
 10526					^
 10527
 10528					; **********************************************************************
 10529					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10530					; **********************************************************************
 10531
 10532						ODIV	(1,0,0,0,-1,-1)^
 10533
 10534					; --- DIVIDEND == (1,0,0,0)
 10535					; --- DIVISOR === (-1,-1)
 10536					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10537
 10538	040250	200 01 0 00 046113 	..0766:	MOVE	AC1,[[EXP 1,0,0,0,-1,-1],,ODEND]
 10539	040251	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10540	040252	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10541						ERROR	(..0766,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10542	040253	036 14 0 00 046006 
 10543	040254	035 00 0 00 040250 		ERLOOP	..0766			;IF ERROR, LOOP TO ..0766
 10544					^
 10545
 10546	040255	200 14 0 00 041043 	..0767:	MOVE	SCR2,OFLOC	;GET PC
 10547	040256	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10548	040257	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10549	040260	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10550	040261	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10551						ERROR	(..0766,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10552
 10553	040262	036 13 0 00 046021 
 10554	040263	035 00 0 00 040250 		ERLOOP	..0766			;IF ERROR, LOOP TO ..0766
 10555					^
 10556					^
 10557
 10558					; **********************************************************************
 10559					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10560					; **********************************************************************
 10561
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-5
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0236

 10562						ODIV	(-1,-1,1B0,1B0,0,1)^
 10563
 10564					; --- DIVIDEND == (-1,-1,1B0,1B0)
 10565					; --- DIVISOR === (0,1)
 10566					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10567
 10568	040264	200 01 0 00 046122 	..0770:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,0,1],,ODEND]
 10569	040265	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10570	040266	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10571						ERROR	(..0770,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10572	040267	036 14 0 00 046006 
 10573	040270	035 00 0 00 040264 		ERLOOP	..0770			;IF ERROR, LOOP TO ..0770
 10574					^
 10575
 10576	040271	200 14 0 00 041043 	..0771:	MOVE	SCR2,OFLOC	;GET PC
 10577	040272	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10578	040273	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10579	040274	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10580	040275	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10581						ERROR	(..0770,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10582
 10583	040276	036 13 0 00 046021 
 10584	040277	035 00 0 00 040264 		ERLOOP	..0770			;IF ERROR, LOOP TO ..0770
 10585					^
 10586					^
 10587
 10588					; **********************************************************************
 10589					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10590					; **********************************************************************
 10591
 10592						ODIV	(-1,-1,1B0,1B0,-1,-1)^
 10593
 10594					; --- DIVIDEND == (-1,-1,1B0,1B0)
 10595					; --- DIVISOR === (-1,-1)
 10596					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10597
 10598	040300	200 01 0 00 046131 	..0772:	MOVE	AC1,[[EXP -1,-1,1B0,1B0,-1,-1],,ODEND]
 10599	040301	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10600	040302	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10601						ERROR	(..0772,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10602	040303	036 14 0 00 046006 
 10603	040304	035 00 0 00 040300 		ERLOOP	..0772			;IF ERROR, LOOP TO ..0772
 10604					^
 10605
 10606	040305	200 14 0 00 041043 	..0773:	MOVE	SCR2,OFLOC	;GET PC
 10607	040306	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10608	040307	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10609	040310	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10610	040311	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10611						ERROR	(..0772,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10612
 10613	040312	036 13 0 00 046021 
 10614	040313	035 00 0 00 040300 		ERLOOP	..0772			;IF ERROR, LOOP TO ..0772
 10615					^
 10616					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-6
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0237

 10617
 10618					; **********************************************************************
 10619					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10620					; **********************************************************************
 10621
 10622						ODIV	(-1,1B0,1B0,1B0,0,1)^
 10623
 10624					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10625					; --- DIVISOR === (0,1)
 10626					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10627
 10628	040314	200 01 0 00 046140 	..0774:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,0,1],,ODEND]
 10629	040315	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10630	040316	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10631						ERROR	(..0774,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10632	040317	036 14 0 00 046006 
 10633	040320	035 00 0 00 040314 		ERLOOP	..0774			;IF ERROR, LOOP TO ..0774
 10634					^
 10635
 10636	040321	200 14 0 00 041043 	..0775:	MOVE	SCR2,OFLOC	;GET PC
 10637	040322	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10638	040323	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10639	040324	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10640	040325	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10641						ERROR	(..0774,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10642
 10643	040326	036 13 0 00 046021 
 10644	040327	035 00 0 00 040314 		ERLOOP	..0774			;IF ERROR, LOOP TO ..0774
 10645					^
 10646					^
 10647
 10648					; **********************************************************************
 10649					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10650					; **********************************************************************
 10651
 10652						ODIV	(-1,1B0,1B0,1B0,-1,-1)^
 10653
 10654					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10655					; --- DIVISOR === (-1,-1)
 10656					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10657
 10658	040330	200 01 0 00 046147 	..0776:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,-1,-1],,ODEND]
 10659	040331	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10660	040332	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10661						ERROR	(..0776,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10662	040333	036 14 0 00 046006 
 10663	040334	035 00 0 00 040330 		ERLOOP	..0776			;IF ERROR, LOOP TO ..0776
 10664					^
 10665
 10666	040335	200 14 0 00 041043 	..0777:	MOVE	SCR2,OFLOC	;GET PC
 10667	040336	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10668	040337	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10669	040340	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10670	040341	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10671						ERROR	(..0776,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-7
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0238

 10672
 10673	040342	036 13 0 00 046021 
 10674	040343	035 00 0 00 040330 		ERLOOP	..0776			;IF ERROR, LOOP TO ..0776
 10675					^
 10676					^
 10677
 10678					; **********************************************************************
 10679					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10680					; **********************************************************************
 10681
 10682						ODIV	(1,0,0,0,1,0)^
 10683
 10684					; --- DIVIDEND == (1,0,0,0)
 10685					; --- DIVISOR === (1,0)
 10686					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10687
 10688	040344	200 01 0 00 046156 	..1000:	MOVE	AC1,[[EXP 1,0,0,0,1,0],,ODEND]
 10689	040345	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10690	040346	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10691						ERROR	(..1000,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10692	040347	036 14 0 00 046006 
 10693	040350	035 00 0 00 040344 		ERLOOP	..1000			;IF ERROR, LOOP TO ..1000
 10694					^
 10695
 10696	040351	200 14 0 00 041043 	..1001:	MOVE	SCR2,OFLOC	;GET PC
 10697	040352	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10698	040353	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10699	040354	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10700	040355	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10701						ERROR	(..1000,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10702
 10703	040356	036 13 0 00 046021 
 10704	040357	035 00 0 00 040344 		ERLOOP	..1000			;IF ERROR, LOOP TO ..1000
 10705					^
 10706					^
 10707
 10708					; **********************************************************************
 10709					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10710					; **********************************************************************
 10711
 10712						ODIV	(1,0,0,0,-1,0)^
 10713
 10714					; --- DIVIDEND == (1,0,0,0)
 10715					; --- DIVISOR === (-1,0)
 10716					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10717
 10718	040360	200 01 0 00 046165 	..1002:	MOVE	AC1,[[EXP 1,0,0,0,-1,0],,ODEND]
 10719	040361	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10720	040362	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10721						ERROR	(..1002,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10722	040363	036 14 0 00 046006 
 10723	040364	035 00 0 00 040360 		ERLOOP	..1002			;IF ERROR, LOOP TO ..1002
 10724					^
 10725
 10726	040365	200 14 0 00 041043 	..1003:	MOVE	SCR2,OFLOC	;GET PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-8
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0239

 10727	040366	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10728	040367	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10729	040370	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10730	040371	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10731						ERROR	(..1002,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10732
 10733	040372	036 13 0 00 046021 
 10734	040373	035 00 0 00 040360 		ERLOOP	..1002			;IF ERROR, LOOP TO ..1002
 10735					^
 10736					^
 10737
 10738					; **********************************************************************
 10739					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10740					; **********************************************************************
 10741
 10742						ODIV	(-1,1B0,1B0,1B0,1,0)^
 10743
 10744					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10745					; --- DIVISOR === (1,0)
 10746					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10747
 10748	040374	200 01 0 00 046174 	..1004:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,1,0],,ODEND]
 10749	040375	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10750	040376	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10751						ERROR	(..1004,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10752	040377	036 14 0 00 046006 
 10753	040400	035 00 0 00 040374 		ERLOOP	..1004			;IF ERROR, LOOP TO ..1004
 10754					^
 10755
 10756	040401	200 14 0 00 041043 	..1005:	MOVE	SCR2,OFLOC	;GET PC
 10757	040402	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10758	040403	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10759	040404	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10760	040405	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10761						ERROR	(..1004,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10762
 10763	040406	036 13 0 00 046021 
 10764	040407	035 00 0 00 040374 		ERLOOP	..1004			;IF ERROR, LOOP TO ..1004
 10765					^
 10766					^
 10767
 10768					; **********************************************************************
 10769					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10770					; **********************************************************************
 10771
 10772						ODIV	(-1,1B0,1B0,1B0,-1,1B0)^
 10773
 10774					; --- DIVIDEND == (-1,1B0,1B0,1B0)
 10775					; --- DIVISOR === (-1,1B0)
 10776					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10777
 10778	040410	200 01 0 00 046203 	..1006:	MOVE	AC1,[[EXP -1,1B0,1B0,1B0,-1,1B0],,ODEND]
 10779	040411	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10780	040412	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10781						ERROR	(..1006,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-9
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0240

 10782	040413	036 14 0 00 046006 
 10783	040414	035 00 0 00 040410 		ERLOOP	..1006			;IF ERROR, LOOP TO ..1006
 10784					^
 10785
 10786	040415	200 14 0 00 041043 	..1007:	MOVE	SCR2,OFLOC	;GET PC
 10787	040416	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10788	040417	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10789	040420	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10790	040421	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10791						ERROR	(..1006,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10792
 10793	040422	036 13 0 00 046021 
 10794	040423	035 00 0 00 040410 		ERLOOP	..1006			;IF ERROR, LOOP TO ..1006
 10795					^
 10796					^
 10797
 10798					; **********************************************************************
 10799					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10800					; **********************************************************************
 10801
 10802						ODIV	(0,377777777777,377777777777,377777777777,0,377777777777)^
 10803
 10804					; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
 10805					; --- DIVISOR === (0,377777777777)
 10806					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10807
 10808	040424	200 01 0 00 046212 	..1010:	MOVE	AC1,[[EXP 0,377777777777,377777777777,377777777777,0,377777777777],,ODEND]
 10809	040425	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10810	040426	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10811						ERROR	(..1010,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10812	040427	036 14 0 00 046006 
 10813	040430	035 00 0 00 040424 		ERLOOP	..1010			;IF ERROR, LOOP TO ..1010
 10814					^
 10815
 10816	040431	200 14 0 00 041043 	..1011:	MOVE	SCR2,OFLOC	;GET PC
 10817	040432	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10818	040433	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10819	040434	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10820	040435	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10821						ERROR	(..1010,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10822
 10823	040436	036 13 0 00 046021 
 10824	040437	035 00 0 00 040424 		ERLOOP	..1010			;IF ERROR, LOOP TO ..1010
 10825					^
 10826					^
 10827
 10828					; **********************************************************************
 10829					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10830					; **********************************************************************
 10831
 10832						ODIV	(0,377777777777,377777777777,377777777777,-1,400000000001)^
 10833
 10834					; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
 10835					; --- DIVISOR === (-1,400000000001)
 10836					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-10
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0241

 10837
 10838	040440				..1012:	MOVE	AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,400000000001],,ODEND]
 10839	040440	200 01 0 00 046221 
 10840	040441	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10841	040442	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10842						ERROR	(..1012,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10843	040443	036 14 0 00 046006 
 10844	040444	035 00 0 00 040440 		ERLOOP	..1012			;IF ERROR, LOOP TO ..1012
 10845					^
 10846
 10847	040445	200 14 0 00 041043 	..1013:	MOVE	SCR2,OFLOC	;GET PC
 10848	040446	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10849	040447	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10850	040450	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10851	040451	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10852						ERROR	(..1012,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10853
 10854	040452	036 13 0 00 046021 
 10855	040453	035 00 0 00 040440 		ERLOOP	..1012			;IF ERROR, LOOP TO ..1012
 10856					^
 10857					^
 10858
 10859					; **********************************************************************
 10860					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10861					; **********************************************************************
 10862
 10863						ODIV	(-1,1B0,1B0,400000000001,0,377777777777)^
 10864
 10865					; --- DIVIDEND == (-1,1B0,1B0,400000000001)
 10866					; --- DIVISOR === (0,377777777777)
 10867					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10868
 10869	040454	200 01 0 00 046222 	..1014:	MOVE	AC1,[[EXP -1,1B0,1B0,400000000001,0,377777777777],,ODEND]
 10870	040455	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10871	040456	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10872						ERROR	(..1014,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10873	040457	036 14 0 00 046006 
 10874	040460	035 00 0 00 040454 		ERLOOP	..1014			;IF ERROR, LOOP TO ..1014
 10875					^
 10876
 10877	040461	200 14 0 00 041043 	..1015:	MOVE	SCR2,OFLOC	;GET PC
 10878	040462	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10879	040463	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10880	040464	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10881	040465	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10882						ERROR	(..1014,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10883
 10884	040466	036 13 0 00 046021 
 10885	040467	035 00 0 00 040454 		ERLOOP	..1014			;IF ERROR, LOOP TO ..1014
 10886					^
 10887					^
 10888
 10889					; **********************************************************************
 10890					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10891					; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-11
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0242

 10892
 10893						ODIV	(-1,1B0,1B0,400000000001,-1,400000000001)^
 10894
 10895					; --- DIVIDEND == (-1,1B0,1B0,400000000001)
 10896					; --- DIVISOR === (-1,400000000001)
 10897					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10898
 10899	040470	200 01 0 00 046231 	..1016:	MOVE	AC1,[[EXP -1,1B0,1B0,400000000001,-1,400000000001],,ODEND]
 10900	040471	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10901	040472	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10902						ERROR	(..1016,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10903	040473	036 14 0 00 046006 
 10904	040474	035 00 0 00 040470 		ERLOOP	..1016			;IF ERROR, LOOP TO ..1016
 10905					^
 10906
 10907	040475	200 14 0 00 041043 	..1017:	MOVE	SCR2,OFLOC	;GET PC
 10908	040476	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10909	040477	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10910	040500	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10911	040501	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10912						ERROR	(..1016,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10913
 10914	040502	036 13 0 00 046021 
 10915	040503	035 00 0 00 040470 		ERLOOP	..1016			;IF ERROR, LOOP TO ..1016
 10916					^
 10917					^
 10918
 10919					; **********************************************************************
 10920					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10921					; **********************************************************************
 10922
 10923						ODIV	(1,0,377777777777,377777777777,0,377777777777)^
 10924
 10925					; --- DIVIDEND == (1,0,377777777777,377777777777)
 10926					; --- DIVISOR === (0,377777777777)
 10927					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10928
 10929	040504	200 01 0 00 046232 	..1020:	MOVE	AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777],,ODEND]
 10930	040505	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10931	040506	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10932						ERROR	(..1020,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10933	040507	036 14 0 00 046006 
 10934	040510	035 00 0 00 040504 		ERLOOP	..1020			;IF ERROR, LOOP TO ..1020
 10935					^
 10936
 10937	040511	200 14 0 00 041043 	..1021:	MOVE	SCR2,OFLOC	;GET PC
 10938	040512	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10939	040513	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10940	040514	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10941	040515	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10942						ERROR	(..1020,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10943
 10944	040516	036 13 0 00 046021 
 10945	040517	035 00 0 00 040504 		ERLOOP	..1020			;IF ERROR, LOOP TO ..1020
 10946					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-12
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0243

 10947					^
 10948
 10949					; **********************************************************************
 10950					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10951					; **********************************************************************
 10952
 10953						ODIV	(1,0,377777777777,377777777777,-1,400000000001)^
 10954
 10955					; --- DIVIDEND == (1,0,377777777777,377777777777)
 10956					; --- DIVISOR === (-1,400000000001)
 10957					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10958
 10959	040520	200 01 0 00 046241 	..1022:	MOVE	AC1,[[EXP 1,0,377777777777,377777777777,-1,400000000001],,ODEND]
 10960	040521	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10961	040522	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10962						ERROR	(..1022,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10963	040523	036 14 0 00 046006 
 10964	040524	035 00 0 00 040520 		ERLOOP	..1022			;IF ERROR, LOOP TO ..1022
 10965					^
 10966
 10967	040525	200 14 0 00 041043 	..1023:	MOVE	SCR2,OFLOC	;GET PC
 10968	040526	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10969	040527	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 10970	040530	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 10971	040531	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 10972						ERROR	(..1022,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 10973
 10974	040532	036 13 0 00 046021 
 10975	040533	035 00 0 00 040520 		ERLOOP	..1022			;IF ERROR, LOOP TO ..1022
 10976					^
 10977					^
 10978
 10979					; **********************************************************************
 10980					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 10981					; **********************************************************************
 10982
 10983						ODIV	(-2,-1,1B0,400000000001,0,377777777777)^
 10984
 10985					; --- DIVIDEND == (-2,-1,1B0,400000000001)
 10986					; --- DIVISOR === (0,377777777777)
 10987					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 10988
 10989	040534	200 01 0 00 046250 	..1024:	MOVE	AC1,[[EXP -2,-1,1B0,400000000001,0,377777777777],,ODEND]
 10990	040535	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 10991	040536	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 10992						ERROR	(..1024,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 10993	040537	036 14 0 00 046006 
 10994	040540	035 00 0 00 040534 		ERLOOP	..1024			;IF ERROR, LOOP TO ..1024
 10995					^
 10996
 10997	040541	200 14 0 00 041043 	..1025:	MOVE	SCR2,OFLOC	;GET PC
 10998	040542	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 10999	040543	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11000	040544	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11001	040545	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-13
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0244

 11002						ERROR	(..1024,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11003
 11004	040546	036 13 0 00 046021 
 11005	040547	035 00 0 00 040534 		ERLOOP	..1024			;IF ERROR, LOOP TO ..1024
 11006					^
 11007					^
 11008
 11009					; **********************************************************************
 11010					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 11011					; **********************************************************************
 11012
 11013						ODIV	(-2,-1,1B0,400000000001,-1,400000000001)^
 11014
 11015					; --- DIVIDEND == (-2,-1,1B0,400000000001)
 11016					; --- DIVISOR === (-1,400000000001)
 11017					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11018
 11019	040550	200 01 0 00 046257 	..1026:	MOVE	AC1,[[EXP -2,-1,1B0,400000000001,-1,400000000001],,ODEND]
 11020	040551	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11021	040552	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11022						ERROR	(..1026,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11023	040553	036 14 0 00 046006 
 11024	040554	035 00 0 00 040550 		ERLOOP	..1026			;IF ERROR, LOOP TO ..1026
 11025					^
 11026
 11027	040555	200 14 0 00 041043 	..1027:	MOVE	SCR2,OFLOC	;GET PC
 11028	040556	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11029	040557	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11030	040560	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11031	040561	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11032						ERROR	(..1026,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11033
 11034	040562	036 13 0 00 046021 
 11035	040563	035 00 0 00 040550 		ERLOOP	..1026			;IF ERROR, LOOP TO ..1026
 11036					^
 11037					^
 11038
 11039					; **********************************************************************
 11040					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 11041					; **********************************************************************
 11042
 11043						ODIV	(1B0,1B0,1B0,1B0,1B0,1B0)^
 11044
 11045					; --- DIVIDEND == (1B0,1B0,1B0,1B0)
 11046					; --- DIVISOR === (1B0,1B0)
 11047					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11048
 11049	040564	200 01 0 00 046266 	..1030:	MOVE	AC1,[[EXP 1B0,1B0,1B0,1B0,1B0,1B0],,ODEND]
 11050	040565	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11051	040566	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11052						ERROR	(..1030,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11053	040567	036 14 0 00 046006 
 11054	040570	035 00 0 00 040564 		ERLOOP	..1030			;IF ERROR, LOOP TO ..1030
 11055					^
 11056
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-14
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0245

 11057	040571	200 14 0 00 041043 	..1031:	MOVE	SCR2,OFLOC	;GET PC
 11058	040572	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11059	040573	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11060	040574	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11061	040575	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11062						ERROR	(..1030,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11063
 11064	040576	036 13 0 00 046021 
 11065	040577	035 00 0 00 040564 		ERLOOP	..1030			;IF ERROR, LOOP TO ..1030
 11066					^
 11067					^
 11068
 11069					; **********************************************************************
 11070					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 11071					; **********************************************************************
 11072
 11073						ODIV	(377777777777,377777777777,377777777777,377777777777,377777777777,377777777
 11074					777)^
 11075
 11076					; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777)
 11077					; --- DIVISOR === (377777777777,377777777777)
 11078					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11079
 11080					..1032:	MOVE	AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,377777777777,
 11081	040600	200 01 0 00 046275 	377777777777],,ODEND]
 11082	040601	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11083	040602	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11084						ERROR	(..1032,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11085	040603	036 14 0 00 046006 
 11086	040604	035 00 0 00 040600 		ERLOOP	..1032			;IF ERROR, LOOP TO ..1032
 11087					^
 11088
 11089	040605	200 14 0 00 041043 	..1033:	MOVE	SCR2,OFLOC	;GET PC
 11090	040606	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11091	040607	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11092	040610	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11093	040611	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11094						ERROR	(..1032,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11095
 11096	040612	036 13 0 00 046021 
 11097	040613	035 00 0 00 040600 		ERLOOP	..1032			;IF ERROR, LOOP TO ..1032
 11098					^
 11099					^
 11100
 11101					; **********************************************************************
 11102					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 11103					; **********************************************************************
 11104
 11105						ODIV	(377777777777,377777777777,377777777777,377777777777,1B0,400000000001)^
 11106
 11107					; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777)
 11108					; --- DIVISOR === (1B0,400000000001)
 11109					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11110
 11111					..1034:	MOVE	AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,1B0,400000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-15
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0246

 11112	040614	200 01 0 00 046304 	001],,ODEND]
 11113	040615	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11114	040616	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11115						ERROR	(..1034,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11116	040617	036 14 0 00 046006 
 11117	040620	035 00 0 00 040614 		ERLOOP	..1034			;IF ERROR, LOOP TO ..1034
 11118					^
 11119
 11120	040621	200 14 0 00 041043 	..1035:	MOVE	SCR2,OFLOC	;GET PC
 11121	040622	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11122	040623	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11123	040624	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11124	040625	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11125						ERROR	(..1034,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11126
 11127	040626	036 13 0 00 046021 
 11128	040627	035 00 0 00 040614 		ERLOOP	..1034			;IF ERROR, LOOP TO ..1034
 11129					^
 11130					^
 11131
 11132					; **********************************************************************
 11133					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING  ----------
 11134					; **********************************************************************
 11135
 11136						ODIV	(1B0,400000000001,1B0,1B0,377777777777,377777777777)^
 11137
 11138					; --- DIVIDEND == (1B0,400000000001,1B0,1B0)
 11139					; --- DIVISOR === (377777777777,377777777777)
 11140					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11141
 11142	040630	200 01 0 00 046313 	..1036:	MOVE	AC1,[[EXP 1B0,400000000001,1B0,1B0,377777777777,377777777777],,ODEND]
 11143	040631	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11144	040632	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11145						ERROR	(..1036,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11146	040633	036 14 0 00 046006 
 11147	040634	035 00 0 00 040630 		ERLOOP	..1036			;IF ERROR, LOOP TO ..1036
 11148					^
 11149
 11150	040635	200 14 0 00 041043 	..1037:	MOVE	SCR2,OFLOC	;GET PC
 11151	040636	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11152	040637	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11153	040640	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11154	040641	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11155						ERROR	(..1036,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11156
 11157	040642	036 13 0 00 046021 
 11158	040643	035 00 0 00 040630 		ERLOOP	..1036			;IF ERROR, LOOP TO ..1036
 11159					^
 11160					^
 11161
 11162					; **********************************************************************
 11163					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS  -------
 11164					---
 11165					; **********************************************************************
 11166
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-16
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0247

 11167						ODIV	(1,1B0,-1,-1,0,377777777777)^
 11168
 11169					; --- DIVIDEND == (1,1B0,-1,-1)
 11170					; --- DIVISOR === (0,377777777777)
 11171					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11172
 11173	040644	200 01 0 00 046322 	..1040:	MOVE	AC1,[[EXP 1,1B0,-1,-1,0,377777777777],,ODEND]
 11174	040645	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11175	040646	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11176						ERROR	(..1040,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11177	040647	036 14 0 00 046006 
 11178	040650	035 00 0 00 040644 		ERLOOP	..1040			;IF ERROR, LOOP TO ..1040
 11179					^
 11180
 11181	040651	200 14 0 00 041043 	..1041:	MOVE	SCR2,OFLOC	;GET PC
 11182	040652	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11183	040653	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11184	040654	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11185	040655	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11186						ERROR	(..1040,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11187
 11188	040656	036 13 0 00 046021 
 11189	040657	035 00 0 00 040644 		ERLOOP	..1040			;IF ERROR, LOOP TO ..1040
 11190					^
 11191					^
 11192
 11193					; **********************************************************************
 11194					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS  -------
 11195					---
 11196					; **********************************************************************
 11197
 11198						ODIV	(1,0,377777777777,377777777777,-1,1)^
 11199
 11200					; --- DIVIDEND == (1,0,377777777777,377777777777)
 11201					; --- DIVISOR === (-1,1)
 11202					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11203
 11204	040660	200 01 0 00 046331 	..1042:	MOVE	AC1,[[EXP 1,0,377777777777,377777777777,-1,1],,ODEND]
 11205	040661	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11206	040662	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11207						ERROR	(..1042,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11208	040663	036 14 0 00 046006 
 11209	040664	035 00 0 00 040660 		ERLOOP	..1042			;IF ERROR, LOOP TO ..1042
 11210					^
 11211
 11212	040665	200 14 0 00 041043 	..1043:	MOVE	SCR2,OFLOC	;GET PC
 11213	040666	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11214	040667	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11215	040670	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11216	040671	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11217						ERROR	(..1042,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11218
 11219	040672	036 13 0 00 046021 
 11220	040673	035 00 0 00 040660 		ERLOOP	..1042			;IF ERROR, LOOP TO ..1042
 11221					^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-17
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0248

 11222					^
 11223
 11224					; **********************************************************************
 11225					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS  -------
 11226					---
 11227					; **********************************************************************
 11228
 11229						ODIV	(-2,377777777777,0,1,0,-1)^
 11230
 11231					; --- DIVIDEND == (-2,377777777777,0,1)
 11232					; --- DIVISOR === (0,-1)
 11233					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11234
 11235	040674	200 01 0 00 046340 	..1044:	MOVE	AC1,[[EXP -2,377777777777,0,1,0,-1],,ODEND]
 11236	040675	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11237	040676	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11238						ERROR	(..1044,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11239	040677	036 14 0 00 046006 
 11240	040700	035 00 0 00 040674 		ERLOOP	..1044			;IF ERROR, LOOP TO ..1044
 11241					^
 11242
 11243	040701	200 14 0 00 041043 	..1045:	MOVE	SCR2,OFLOC	;GET PC
 11244	040702	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11245	040703	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
 11246	040704	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11247	040705	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11248						ERROR	(..1044,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11249
 11250	040706	036 13 0 00 046021 
 11251	040707	035 00 0 00 040674 		ERLOOP	..1044			;IF ERROR, LOOP TO ..1044
 11252					^
 11253					^
 11254
 11255					; **********************************************************************
 11256					; ----------  DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS  -------
 11257					---
 11258					; **********************************************************************
 11259
 11260						ODIV	(-2,-1,0,1,-1,400000000001)^
 11261
 11262					; --- DIVIDEND == (-2,-1,0,1)
 11263					; --- DIVISOR === (-1,400000000001)
 11264					; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
 11265
 11266	040710	200 01 0 00 046347 	..1046:	MOVE	AC1,[[EXP -2,-1,0,1,-1,400000000001],,ODEND]
 11267	040711	251 01 0 00 041111 		BLT	AC1,ORES-1	;SET UP OPERANDS
 11268	040712	260 17 0 00 041033 		GO	OSUBR		;GO DO TEST
 11269						ERROR	(..1046,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
 11270	040713	036 14 0 00 046006 
 11271	040714	035 00 0 00 040710 		ERLOOP	..1046			;IF ERROR, LOOP TO ..1046
 11272					^
 11273
 11274	040715	200 14 0 00 041043 	..1047:	MOVE	SCR2,OFLOC	;GET PC
 11275	040716	434 14 0 00 046011 		IOR	SCR2,[AROV+DCK,,0]	;CALC CORRECT PC (OV/NO DIV)
 11276	040717	336 00 0 00 030037 		SKIPN	USER		;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 33-18
DFKCBM	MAC	26-Sep-79 16:11		DDIV - TEST G                                                                      SEQ 0249

 11277	040720	621 14 0 00 400000 		TLZ	SCR2,AROV	;YES, NO AROV FLAG IN EXEC ON KL10
 11278	040721	312 14 0 00 041043 		CAME	SCR2,OFLOC	;PC CORRECT?
 11279						ERROR	(..1046,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
 11280
 11281	040722	036 13 0 00 046021 
 11282	040723	035 00 0 00 040710 		ERLOOP	..1046			;IF ERROR, LOOP TO ..1046
 11283					^
 11284					^
 11285
 11286	040724	254 00 0 00 030057 	PHALT:	JRST	BEGEND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 34
DFKCBM	MAC	26-Sep-79 16:11		TESTING SUBROUTINES                                                                SEQ 0250

 11287					SUBTTL	TESTING SUBROUTINES
 11288
 11289					; **********************************************************************
 11290					;*MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS
 11291					;*
 11292					;*	ARGUMENTS:	MCAND - CONTAINS MULTIPLICAND
 11293					;*			MPLIER - CONTAINS MULTIPLIER
 11294					;*			MRES - CONTAINS THE EXPECTED RESULT
 11295					; **********************************************************************
 11296
 11297	040725	200 15 0 00 046350 	MSUBR:	MOVE	SCR3,[MCAND,,MPLIER]	;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
 11298	040726	120 01 0 00 040756 		DMOVE	AC1,MCAND		;INIT AC1 WITH MULTIPLICAND
 11299	040727	120 03 0 00 043657 		DMOVE	AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN
 11300										;RIGHT HALF OF RESULT
 11301	040730	255 17 0 00 040731 		JFCL	17,.+1			;CLEAR PC FLAGS
 11302										;----------------------
 11303	040731	116 01 0 00 040760 		DMUL	AC1,MPLIER		;-----  MULTIPLY  -----
 11304										;----------------------
 11305	040732	264 00 0 00 040733 		JSR	.+1			;SAVE PC FLAGS
 11306	040733	000000	000000		MFLOC:	0				;PC FLAGS STORED HERE
 11307
 11308	040734	400 13 0 00 000000 		SETZ	SCR1,			;KEEP TRACK OF INCORRECT WORD
 11309	040735	312 01 0 00 040762 		CAME	AC1,MRES		;1ST WORD OF RESULT OK?
 11310	040736	254 00 0 00 040750 		JRST	MERROR			;FOUND AN ERROR
 11311
 11312	040737	201 13 0 00 000001 		MOVEI	SCR1,1			;POINT TO 2ND WORD AS INCORRECT
 11313	040740	312 02 0 00 040763 		CAME	AC1+1,MRES+1		;2ND WORD OF RESULT OK?
 11314	040741	254 00 0 00 040750 		JRST	MERROR			;FOUND AN ERROR
 11315
 11316	040742	201 13 0 00 000002 		MOVEI	SCR1,2			;POINT TO 3RD WORD AS INCORRECT
 11317	040743	312 03 0 00 040764 		CAME	AC1+2,MRES+2		;3RD WORD OF RESULT OK?
 11318	040744	254 00 0 00 040750 		JRST	MERROR			;FOUND AN ERROR
 11319
 11320	040745	201 13 0 00 000003 		MOVEI	SCR1,3			;POINT TO 4TH WORD AS INCORRECT
 11321	040746	316 04 0 00 040765 		CAMN	AC1+3,MRES+3		;4TH WORD OF RESULT OK?
 11322	040747	254 00 0 00 040753 		JRST	MTEST			;GO TEST IF PC FLAGS OK
 11323
 11324	040750	200 14 0 13 000001 	MERROR:	MOVE	SCR2,AC1(SCR1)		;GET ACTUAL RESULT
 11325	040751	200 13 0 13 040762 		MOVE	SCR1,MRES(SCR1)		;GET CORRECT RESULT
 11326	040752	263 17 0 00 000000 		RTN				;TAKE ERROR RETURN
 11327
 11328	040753	262 17 0 00 040766 	MTEST:	GET	MRET			;GET RETURN ADDRESS IN MRET
 11329	040754	350 00 0 00 040766 		AOS	MRET			;SET UP +1 NO ERROR RETURN
 11330	040755	254 00 1 00 040766 		JRST	@MRET			;RETURN
 11331
 11332	040756				MCAND:	BLOCK	2			;MULTIPLICAND
 11333	040760				MPLIER:	BLOCK	2			;MULTIPLIER
 11334	040762				MRES:	BLOCK	4			;EXPECTED RESULT
 11335	040766				MRET:	BLOCK	1			;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 35
DFKCBM	MAC	26-Sep-79 16:11		TESTING SUBROUTINES                                                                SEQ 0251

 11336
 11337					; **********************************************************************
 11338					;*PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
 11339					;*
 11340					;*	ARGUMENTS:	PDEND - CONTAINS DIVIDEND
 11341					;*			PISOR - CONTAINS DIVISOR
 11342					;*			PRES - CONTAINS THE EXPECTED RESULT
 11343					; **********************************************************************
 11344
 11345	040767	200 15 0 00 046351 	PSUBR:	MOVE	SCR3,[PDEND,,PISOR]	;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
 11346	040770	120 01 0 00 041020 		DMOVE	AC1,PDEND		;INIT DIVIDEND (4 WORDS)
 11347	040771	120 03 0 00 041022 		DMOVE	AC1+2,PDEND+2
 11348
 11349	040772	254 02 1 00 046352 		JRSTF	@[.+1]			;CLEAR PC FLAGS
 11350										;----------------------
 11351	040773	117 01 0 00 041024 		DDIV	AC1,PISOR		;-----  DIVIDE  -------
 11352										;----------------------
 11353	040774	264 00 0 00 040775 		JSR	.+1			;SAVE PC FLAGS
 11354	040775	000000	000000		PFLOC:	0				;PC FLAGS STORED HERE
 11355
 11356	040776	400 13 0 00 000000 		SETZ	SCR1,			;KEEP TRACK OF INCORRECT WORD
 11357	040777	312 01 0 00 041026 		CAME	AC1,PRES		;1ST WORD OF QUOTIENT OK?
 11358	041000	254 00 0 00 041012 		JRST	PERROR			;FOUND AN ERROR
 11359
 11360	041001	201 13 0 00 000001 		MOVEI	SCR1,1			;POINT TO 2ND WORD AS INCORRECT
 11361	041002	312 02 0 00 041027 		CAME	AC1+1,PRES+1		;2ND WORD OF QUOTIENT OK?
 11362	041003	254 00 0 00 041012 		JRST	PERROR			;FOUND AN ERROR
 11363
 11364	041004	201 13 0 00 000002 		MOVEI	SCR1,2			;POINT TO 3RD WORD AS INCORRECT
 11365	041005	312 03 0 00 041030 		CAME	AC1+2,PRES+2		;1ST WORD OF REMAINDER OK?
 11366	041006	254 00 0 00 041012 		JRST	PERROR			;FOUND AN ERROR
 11367
 11368	041007	201 13 0 00 000003 		MOVEI	SCR1,3			;POINT TO 4TH WORD AS INCORRECT
 11369	041010	316 04 0 00 041031 		CAMN	AC1+3,PRES+3		;2ND WORD OF REMAINDER OK?
 11370	041011	254 00 0 00 041015 		JRST	PTEST			;GO TEST IF PC FLAGS OK
 11371
 11372	041012	200 14 0 13 000001 	PERROR:	MOVE	SCR2,AC1(SCR1)		;GET ACTUAL RESULT
 11373	041013	200 13 0 13 041026 		MOVE	SCR1,PRES(SCR1)		;GET CORRECT RESULT
 11374	041014	263 17 0 00 000000 		RTN				;TAKE ERROR RETURN
 11375
 11376	041015	262 17 0 00 040766 	PTEST:	GET	MRET			;GET RETURN ADDRESS IN MRET
 11377	041016	350 00 0 00 040766 		AOS	MRET			;SET UP +1 NO ERROR RETURN
 11378	041017	254 00 1 00 040766 		JRST	@MRET			;RETURN
 11379
 11380	041020				PDEND:	BLOCK	4			;DIVIDEND
 11381	041024				PISOR:	BLOCK	2			;DIVISOR
 11382	041026				PRES:	BLOCK	4			;EXPECTED RESULT
 11383	041032				PRET:	BLOCK	1			;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 36
DFKCBM	MAC	26-Sep-79 16:11		TESTING SUBROUTINES                                                                SEQ 0252

 11384
 11385					; **********************************************************************
 11386					;*OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
 11387					;*
 11388					;*	ARGUMENTS:	ODEND - CONTAINS DIVIDEND
 11389					;*			OISOR - CONTAINS DIVISOR
 11390					;*
 11391					;*	NOTE:	WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR
 11392					;*		ENSURES THAT THE OPERANDS DO  NOT  CHANGE.  THE KL10 ENSURES
 11393					;*		THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE.
 11394					;*		THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF  EITHER  WORD
 11395					;*		DOES NOT CHANGE - HOWEVER, IT ONLY  PROTECTS THE SIGN BIT OF
 11396					;*		THE MOST SIGNIFICANT WORD.  THE SIGN BIT OF THE  OTHER  WORD
 11397					;*		IS INDETERMINATE.  THIS TEST CHECKS TO FIND OUT WHAT TYPE OF
 11398					;*		PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10.
 11399					;*
 11400					;*		THE ABOVE WAS NOTICED WHEN RUNNING THE  DIAGNOSTIC ON THE KS10
 11401					;*		AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS
 11402					;*		DONE TO SAVE SPACE IN THE KS10 MICROCODE.
 11403					; **********************************************************************
 11404
 11405	041033	200 15 0 00 046353 	OSUBR:	MOVE	SCR3,[ODEND,,OISOR]	;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
 11406	041034	120 01 0 00 041104 		DMOVE	AC1,ODEND		;INIT DIVIDEND (4 WORDS)
 11407	041035	120 03 0 00 041106 		DMOVE	AC1+2,ODEND+2
 11408	041036	124 01 0 00 041112 		DMOVEM	AC1,ORES		;RESULT SHOULD BE SAME AS
 11409	041037	124 03 0 00 041114 		DMOVEM	AC1+2,ORES+2		;   DIVIDEND
 11410
 11411	041040	254 02 1 00 046354 		JRSTF	@[.+1]			;CLEAR PC FLAGS
 11412										;----------------------
 11413	041041	117 01 0 00 041110 		DDIV	AC1,OISOR		;-----  DIVIDE  -------
 11414										;----------------------
 11415	041042	264 00 0 00 041043 		JSR	.+1			;SAVE PC FLAGS
 11416	041043	000000	000000		OFLOC:	0				;PC FLAGS STORED HERE
 11417
 11418	041044	336 00 0 00 030524 		SKIPN	SM10			;KS10 PROCESSOR?
 11419	041045	254 00 0 00 041054 		JRST	OCON			;NO - KL10
 11420	041046	135 13 0 00 041076 		LDB	SCR1,OBYTEF		;COPY THE LOW ORDER SIGNS OF THE RESULT
 11421	041047	137 13 0 00 041101 		DPB	SCR1,OBYTET		;  INTO THE EXPECTED RESULT SINCE THEY
 11422	041050	135 13 0 00 041077 		LDB	SCR1,OBYTEF+1		;  ARE INDETERMINATE AND WE DONT WANT
 11423	041051	137 13 0 00 041102 		DPB	SCR1,OBYTET+1		;  TO TEST THE SIGN BIT.
 11424	041052	135 13 0 00 041100 		LDB	SCR1,OBYTEF+2		
 11425	041053	137 13 0 00 041103 		DPB	SCR1,OBYTET+2		
 11426
 11427	041054	400 13 0 00 000000 	OCON:	SETZ	SCR1,			;KEEP TRACK OF INCORRECT WORD
 11428	041055	312 01 0 00 041112 		CAME	AC1,ORES		;1ST WORD OF QUOTIENT OK?
 11429	041056	254 00 0 00 041070 		JRST	OERROR			;FOUND AN ERROR
 11430
 11431	041057	201 13 0 00 000001 		MOVEI	SCR1,1			;POINT TO 2ND WORD AS INCORRECT
 11432	041060	312 02 0 00 041113 		CAME	AC1+1,ORES+1		;2ND WORD OF QUOTIENT OK?
 11433	041061	254 00 0 00 041070 		JRST	OERROR			;FOUND AN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 37
DFKCBM	MAC	26-Sep-79 16:11		TESTING SUBROUTINES                                                                SEQ 0253

 11434
 11435	041062	201 13 0 00 000002 		MOVEI	SCR1,2			;POINT TO 3RD WORD AS INCORRECT
 11436	041063	312 03 0 00 041114 		CAME	AC1+2,ORES+2		;1ST WORD OF REMAINDER OK?
 11437	041064	254 00 0 00 041070 		JRST	OERROR			;FOUND AN ERROR
 11438
 11439	041065	201 13 0 00 000003 		MOVEI	SCR1,3			;POINT TO 4TH WORD AS INCORRECT
 11440	041066	316 04 0 00 041115 		CAMN	AC1+3,ORES+3		;2ND WORD OF REMAINDER OK?
 11441	041067	254 00 0 00 041073 		JRST	OTEST			;GO TEST IF PC FLAGS OK
 11442
 11443	041070	200 14 0 13 000001 	OERROR:	MOVE	SCR2,AC1(SCR1)		;GET ACTUAL RESULT
 11444	041071	200 13 0 13 041112 		MOVE	SCR1,ORES(SCR1)		;GET CORRECT RESULT
 11445	041072	263 17 0 00 000000 		RTN				;TAKE ERROR RETURN
 11446
 11447	041073	262 17 0 00 040766 	OTEST:	GET	MRET			;GET RETURN ADDRESS IN MRET
 11448	041074	350 00 0 00 040766 		AOS	MRET			;SET UP +1 NO ERROR RETURN
 11449	041075	254 00 1 00 040766 		JRST	@MRET			;RETURN
 11450
 11451	041076	43 01 0 00 000002 	OBYTEF:	POINT	1,AC1+1,0		;BYTE POINTERS FOR GETTING SIGN
 11452	041077	43 01 0 00 000003 		POINT	1,AC1+2,0		;  FROM AC1+1,+2,+3 (ACTUAL RESULT)
 11453	041100	43 01 0 00 000004 		POINT	1,AC1+3,0
 11454	041101	43 01 0 00 041113 	OBYTET:	POINT	1,ORES+1,0		;BYTE POINTERS FOR PUTTING SIGN
 11455	041102	43 01 0 00 041114 		POINT	1,ORES+2,0		;  INTO ORES+1,+2,+3 (EXPECTED RESULT)
 11456	041103	43 01 0 00 041115 		POINT	1,ORES+3,0
 11457
 11458	041104				ODEND:	BLOCK	4			;DIVIDEND
 11459	041110				OISOR:	BLOCK	2			;DIVISOR
 11460	041112				ORES:	BLOCK	4			;EXPECTED RESULT
 11461	041116				ORET:	BLOCK	1			;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 38
DFKCBM	MAC	26-Sep-79 16:11		ADDL ERROR PRINT ROUTINES                                                          SEQ 0254

 11462					SUBTTL	ADDL ERROR PRINT ROUTINES
 11463														SALL
 11464					; **********************************************************************
 11465					;*APRINT - ADDITION ERROR PRINTER
 11466					; **********************************************************************
 11467
 11468	041117	037 02 0 00 046355 	APRINT:	PMSG	(AUGEND:  )  
 11469
 11470	041120	554 13 0 00 000015 		HLRZ	SCR1,SCR3		;GET ADDR OF AUGEND
 11471	041121	200 00 1 00 000013 		MOVE	0,@SCR1			;GET AUGEND (LEFT WORD)
 11472	041122	037 14 0 00 000000 		PNTOCT
 11473
 11474	041123	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11475	041124	200 00 1 00 000013 		MOVE	0,@SCR1			;GET AUGEND (RIGHT WORD)
 11476	041125	037 14 0 00 000000 		PNTOCT
 11477
 11478	041126	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11479	041127	037 02 0 00 046357 		PMSG	(ADDEND:  )  
 11480
 11481	041130	550 13 0 00 000015 		HRRZ	SCR1,SCR3		;GET ADDR OF ADDEND
 11482	041131	200 00 1 00 000013 		MOVE	0,@SCR1			;GET ADDEND (LEFT WORD)
 11483	041132	037 14 0 00 000000 		PNTOCT
 11484
 11485	041133	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11486	041134	200 00 1 00 000013 		MOVE	0,@SCR1			;GET ADDEND (RIGHT WORD)
 11487	041135	037 14 0 00 000000 		PNTOCT
 11488
 11489	041136	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11490	041137	037 02 0 00 046361 		PMSG	(RESULT:  )
 11491
 11492	041140	200 00 0 00 000001 		MOVE	0,AC1			;GET LEFT WORD OF RESULT
 11493	041141	037 14 0 00 000000 		PNTOCT
 11494
 11495	041142	200 00 0 00 000002 		MOVE	0,AC1+1			;GET RIGHT WORD OF RESULT
 11496	041143	037 14 0 00 000000 		PNTOCT
 11497
 11498	041144	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11499	041145	263 17 0 00 000000 		RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 39
DFKCBM	MAC	26-Sep-79 16:11		ADDL ERROR PRINT ROUTINES                                                          SEQ 0255

 11500
 11501					; **********************************************************************
 11502					;*SPRINT - SUBTRACTION ERROR PRINTER
 11503					; **********************************************************************
 11504
 11505	041146	037 02 0 00 046363 	SPRINT:	PMSG	(MINUEND:     )  
 11506
 11507	041147	554 13 0 00 000015 		HLRZ	SCR1,SCR3		;GET ADDR OF MINUEND
 11508	041150	200 00 1 00 000013 		MOVE	0,@SCR1			;GET MINUEND (LEFT WORD)
 11509	041151	037 14 0 00 000000 		PNTOCT
 11510
 11511	041152	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11512	041153	200 00 1 00 000013 		MOVE	0,@SCR1			;GET MINUEND (RIGHT WORD)
 11513	041154	037 14 0 00 000000 		PNTOCT
 11514
 11515	041155	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11516	041156	037 02 0 00 046366 		PMSG	(SUBTRAHEND:  )  
 11517
 11518	041157	550 13 0 00 000015 		HRRZ	SCR1,SCR3		;GET ADDR OF SUBTRAHEND
 11519	041160	200 00 1 00 000013 		MOVE	0,@SCR1			;GET SUBTRAHEND (LEFT WORD)
 11520	041161	037 14 0 00 000000 		PNTOCT
 11521
 11522	041162	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11523	041163	200 00 1 00 000013 		MOVE	0,@SCR1			;GET SUBTRAHEND (RIGHT WORD)
 11524	041164	037 14 0 00 000000 		PNTOCT
 11525
 11526	041165	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11527	041166	037 02 0 00 046371 		PMSG	(RESULT:      )
 11528
 11529	041167	200 00 0 00 000001 		MOVE	0,AC1			;GET LEFT WORD OF RESULT
 11530	041170	037 14 0 00 000000 		PNTOCT
 11531
 11532	041171	200 00 0 00 000002 		MOVE	0,AC1+1			;GET RIGHT WORD OF RESULT
 11533	041172	037 14 0 00 000000 		PNTOCT
 11534
 11535	041173	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11536	041174	263 17 0 00 000000 		RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 40
DFKCBM	MAC	26-Sep-79 16:11		ADDL ERROR PRINT ROUTINES                                                          SEQ 0256

 11537
 11538					; **********************************************************************
 11539					;*MPRINT - MULTIPLICATION ERROR PRINTER
 11540					; **********************************************************************
 11541
 11542	041175	037 02 0 00 046374 	MPRINT:	PMSG	(MULTIPLICAND:  )  
 11543
 11544	041176	554 13 0 00 000015 		HLRZ	SCR1,SCR3		;GET ADDR OF MULTIPLICAND
 11545	041177	200 00 1 00 000013 		MOVE	0,@SCR1			;GET MULTIPLICAND (LEFT WORD)
 11546	041200	037 14 0 00 000000 		PNTOCT
 11547
 11548	041201	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11549	041202	200 00 1 00 000013 		MOVE	0,@SCR1			;GET MULTIPLICAND (RIGHT WORD)
 11550	041203	037 14 0 00 000000 		PNTOCT
 11551
 11552	041204	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11553	041205	037 02 0 00 046377 		PMSG	(MULTIPLIER:    )  
 11554
 11555	041206	550 13 0 00 000015 		HRRZ	SCR1,SCR3		;GET ADDRESS OF MULTIPLIER
 11556	041207	200 00 1 00 000013 		MOVE	0,@SCR1			;GET LEFT WORD OF MULTIPLIER
 11557	041210	037 14 0 00 000000 		PNTOCT
 11558
 11559	041211	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11560	041212	200 00 1 00 000013 		MOVE	0,@SCR1			;GET RIGHT WORD OF MULTIPLIER
 11561	041213	037 14 0 00 000000 		PNTOCT
 11562
 11563	041214	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11564	041215	037 02 0 00 046402 		PMSG	(RESULT:        )
 11565
 11566	041216	200 00 0 00 000001 		MOVE	0,AC1			;GET RESULT WORD 1
 11567	041217	037 14 0 00 000000 		PNTOCT
 11568
 11569	041220	200 00 0 00 000002 		MOVE	0,AC1+1			;GET RESULT WORD 2
 11570	041221	037 14 0 00 000000 		PNTOCT
 11571
 11572	041222	200 00 0 00 000003 		MOVE	0,AC1+2			;GET RESULT WORD 3
 11573	041223	037 14 0 00 000000 		PNTOCT
 11574
 11575	041224	200 00 0 00 000004 		MOVE	0,AC1+3			;GET RESULT WORD 4
 11576	041225	037 14 0 00 000000 		PNTOCT
 11577
 11578	041226	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11579	041227	263 17 0 00 000000 		RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 41
DFKCBM	MAC	26-Sep-79 16:11		ADDL ERROR PRINT ROUTINES                                                          SEQ 0257

 11580
 11581					; **********************************************************************
 11582					;*DPRINT - DIVIDE ERROR PRINTER
 11583					; **********************************************************************
 11584
 11585	041230	037 02 0 00 046405 	DPRINT:	PMSG	(DIVIDEND:  )  
 11586
 11587	041231	554 13 0 00 000015 		HLRZ	SCR1,SCR3		;GET ADDR OF DIVIDEND
 11588	041232	200 00 1 00 000013 		MOVE	0,@SCR1			;GET DIVIDEND (WORD 1)
 11589	041233	037 14 0 00 000000 		PNTOCT
 11590
 11591	041234	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO 2ND WORD
 11592	041235	200 00 1 00 000013 		MOVE	0,@SCR1			;GET DIVIDEND (WORD 2)
 11593	041236	037 14 0 00 000000 		PNTOCT
 11594
 11595	041237	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO 3RD WORD
 11596	041240	200 00 1 00 000013 		MOVE	0,@SCR1			;GET DIVIDEND (WORD 3)
 11597	041241	037 14 0 00 000000 		PNTOCT
 11598
 11599	041242	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO 4TH WORD
 11600	041243	200 00 1 00 000013 		MOVE	0,@SCR1			;GET DIVIDEND (WORD 4)
 11601	041244	037 14 0 00 000000 		PNTOCT
 11602
 11603	041245	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11604	041246	037 02 0 00 046407 		PMSG	(DIVISOR:   )  
 11605
 11606	041247	550 13 0 00 000015 		HRRZ	SCR1,SCR3		;GET ADDRESS OF DIVISOR
 11607	041250	200 00 1 00 000013 		MOVE	0,@SCR1			;GET LEFT WORD OF DIVISOR
 11608	041251	037 14 0 00 000000 		PNTOCT
 11609
 11610	041252	340 13 0 00 000000 		AOJ	SCR1,			;POINT TO RIGHT WORD
 11611	041253	200 00 1 00 000013 		MOVE	0,@SCR1			;GET RIGHT WORD OF DIVISOR
 11612	041254	037 14 0 00 000000 		PNTOCT
 11613
 11614	041255	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11615	041256	037 02 0 00 046411 		PMSG	(QUOTIENT:  )
 11616
 11617	041257	200 00 0 00 000001 		MOVE	0,AC1			;GET LEFT WORD OF QUOTIENT
 11618	041260	037 14 0 00 000000 		PNTOCT
 11619
 11620	041261	200 00 0 00 000002 		MOVE	0,AC1+1			;GET RIGHT WORD OF QUOTIENT
 11621	041262	037 14 0 00 000000 		PNTOCT
 11622
 11623	041263	037 02 0 00 046413 		PMSG	(  REMAINDER:  )
 11624
 11625	041264	200 00 0 00 000003 		MOVE	0,AC1+2			;GET LEFT WORD OF REMAINDER
 11626	041265	037 14 0 00 000000 		PNTOCT
 11627
 11628	041266	200 00 0 00 000004 		MOVE	0,AC1+3			;GET RIGHT WORD OF REMAINDER
 11629	041267	037 14 0 00 000000 		PNTOCT
 11630
 11631	041270	037 00 0 00 030242 		PCRL				;PRINT OUT A CRLF
 11632	041271	263 17 0 00 000000 		RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 42
DFKCBM	MAC	26-Sep-79 16:11		ADDL ERROR PRINT ROUTINES                                                          SEQ 0258

 11633
 11634					SUBTTL	*STOR* RESERVED STORAGE, SEPT 18,1979
 11635
 11636					;PROGRAM LITERALS
 11637
 11638						XLIST
 11639					IFNDEF	$LPAPER,<LIST>
 11640	041272					LIT
 11641	041272	44 41 44 44 00 64 
 11642	041273	45 63 64 77 00 00 
 11643	041274	000000	000000
 11644	041275	123456	765432
 11645	041276	000000	000000
 11646	041277	000000	000000
 11647	041300	041274	041276
 11648	041301	77 00 00 00 00 00 
 11649	041302	64 45 63 64 00 41 
 11650	041303	21 00 15 00 62 45 
 11651	041304	63 65 54 64 00 51 
 11652	041305	63 00 51 56 43 57 
 11653	041306	62 62 45 43 64 77 
 11654	041307	041272	041301
 11655	041310	000013	000014
 11656	041311	041302	041117
 11657	041312	041275	041276
 11658	041313	64 45 63 64 00 41 
 11659	041314	22 00 15 00 62 45 
 11660	041315	63 65 54 64 00 51 
 11661	041316	63 00 51 56 43 57 
 11662	041317	62 62 45 43 64 77 
 11663	041320	041272	041301
 11664	041321	000013	000014
 11665	041322	041313	041117
 11666	041323	123456	765432
 11667	041324	123456	765432
 11668	041325	041323	041276
 11669	041326	64 45 63 64 00 41 
 11670	041327	23 00 15 00 62 45 
 11671	041330	63 65 54 64 00 51 
 11672	041331	63 00 51 56 43 57 
 11673	041332	62 62 45 43 64 77 
 11674	041333	041272	041301
 11675	041334	000013	000014
 11676	041335	041326	041117
 11677	041336	041276	041274
 11678	041337	64 45 63 64 00 41 
 11679	041340	24 00 15 00 62 45 
 11680	041341	63 65 54 64 00 51 
 11681	041342	63 00 51 56 43 57 
 11682	041343	62 62 45 43 64 77 
 11683	041344	041272	041301
 11684	041345	000013	000014
 11685	041346	041337	041117
 11686	041347	041276	041275
 11687	041350	64 45 63 64 00 41 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0259

 11688	041351	25 00 15 00 62 45 
 11689	041352	63 65 54 64 00 51 
 11690	041353	63 00 51 56 43 57 
 11691	041354	62 62 45 43 64 77 
 11692	041355	041272	041301
 11693	041356	000013	000014
 11694	041357	041350	041117
 11695	041360	041276	041323
 11696	041361	64 45 63 64 00 41 
 11697	041362	26 00 15 00 62 45 
 11698	041363	63 65 54 64 00 51 
 11699	041364	63 00 51 56 43 57 
 11700	041365	62 62 45 43 64 77 
 11701	041366	041272	041301
 11702	041367	000013	000014
 11703	041370	041361	041117
 11704	041371	041276	041276
 11705	041372	64 45 63 64 00 41 
 11706	041373	27 00 15 00 62 45 
 11707	041374	63 65 54 64 00 51 
 11708	041375	63 00 51 56 43 57 
 11709	041376	62 62 45 43 64 77 
 11710	041377	041272	041301
 11711	041400	000013	000014
 11712	041401	041372	041117
 11713	041402	000000	000000
 11714	041403	000000	000001
 11715	041404	041402	041276
 11716	041405	64 45 63 64 00 42 
 11717	041406	21 00 15 00 62 45 
 11718	041407	63 65 54 64 00 51 
 11719	041410	63 00 51 56 43 57 
 11720	041411	62 62 45 43 64 77 
 11721	041412	041272	041301
 11722	041413	000013	000014
 11723	041414	041405	041117
 11724	041415	041276	041402
 11725	041416	64 45 63 64 00 42 
 11726	041417	22 00 15 00 62 45 
 11727	041420	63 65 54 64 00 51 
 11728	041421	63 00 51 56 43 57 
 11729	041422	62 62 45 43 64 77 
 11730	041423	041272	041301
 11731	041424	000013	000014
 11732	041425	041416	041117
 11733	041426	000000	000000
 11734	041427	200000	000000
 11735	041430	041426	041276
 11736	041431	041276	041426
 11737	041432	000000	000001
 11738	041433	000000	000000
 11739	041434	041432	041276
 11740	041435	041276	041432
 11741	041436	200000	000000
 11742	041437	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-1
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0260

 11743	041440	041436	041276
 11744	041441	041276	041436
 11745	041442	777777	777777
 11746	041443	777777	777776
 11747	041444	041442	041276
 11748	041445	041276	041442
 11749	041446	777777	777777
 11750	041447	577777	777777
 11751	041450	041446	041276
 11752	041451	041276	041446
 11753	041452	777777	777776
 11754	041453	777777	777777
 11755	041454	041452	041276
 11756	041455	041276	041452
 11757	041456	577777	777777
 11758	041457	777777	777777
 11759	041460	041456	041276
 11760	041461	041276	041456
 11761	041462	031327	031327
 11762	041463	64 45 63 64 00 43 
 11763	041464	00 15 00 62 45 63 
 11764	041465	65 54 64 00 51 56 
 11765	041466	43 57 62 62 45 43 
 11766	041467	64 77 00 00 00 00 
 11767	041470	041272	041301
 11768	041471	000014	000013
 11769	041472	041463	041117
 11770	041473	000000	000000
 11771	041474	777777	777777
 11772	041475	041473	041402
 11773	041476	64 45 63 64 00 44 
 11774	041477	21 00 15 00 62 45 
 11775	041500	63 65 54 64 00 51 
 11776	041501	63 00 51 56 43 57 
 11777	041502	62 62 45 43 64 77 
 11778	041503	041272	041301
 11779	041504	000013	000014
 11780	041505	041476	041117
 11781	041506	041402	041473
 11782	041507	64 45 63 64 00 44 
 11783	041510	22 00 15 00 62 45 
 11784	041511	63 65 54 64 00 51 
 11785	041512	63 00 51 56 43 57 
 11786	041513	62 62 45 43 64 77 
 11787	041514	041272	041301
 11788	041515	000013	000014
 11789	041516	041507	041117
 11790	041517	64 45 63 64 00 45 
 11791	041520	00 15 00 62 45 63 
 11792	041521	65 54 64 00 51 63 
 11793	041522	00 51 56 43 57 62 
 11794	041523	62 45 43 64 77 00 
 11795	041524	041272	041301
 11796	041525	000013	000014
 11797	041526	041517	041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-2
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0261

 11798	041527	64 45 63 64 00 45 
 11799	041530	00 15 00 60 43 00 
 11800	041531	46 54 41 47 63 00 
 11801	041532	51 56 43 57 62 62 
 11802	041533	45 43 64 00 10 54 
 11803	041534	45 46 64 00 24 00 
 11804	041535	42 51 64 63 11 77 
 11805	041536	041272	041301
 11806	041537	000014	031375
 11807	041540	041527	041117
 11808	041541	041272	041301
 11809	041542	000014	031426
 11810	041543	041527	041117
 11811	041544	041272	041301
 11812	041545	000014	031457
 11813	041546	041527	041117
 11814	041547	041272	041301
 11815	041550	000014	031510
 11816	041551	041527	041117
 11817	041552	041272	041301
 11818	041553	000014	031541
 11819	041554	041527	041117
 11820	041555	041272	041301
 11821	041556	000014	031572
 11822	041557	041527	041117
 11823	041560	033167	033171
 11824	041561	64 45 63 64 00 46 
 11825	041562	21 00 15 00 62 45 
 11826	041563	63 65 54 64 00 51 
 11827	041564	63 00 51 56 43 57 
 11828	041565	62 62 45 43 64 77 
 11829	041566	041272	041301
 11830	041567	000013	000014
 11831	041570	041561	041117
 11832	041571	64 45 63 64 00 46 
 11833	041572	21 00 15 00 60 43 
 11834	041573	00 46 54 41 47 63 
 11835	041574	00 51 56 43 57 62 
 11836	041575	62 45 43 64 00 10 
 11837	041576	54 45 46 64 00 24 
 11838	041577	00 42 51 64 63 11 
 11839	041600	77 00 00 00 00 00 
 11840	041601	041272	041301
 11841	041602	000014	031653
 11842	041603	041571	041117
 11843	041604	033173	033175
 11844	041605	041272	041301
 11845	041606	000014	031703
 11846	041607	041571	041117
 11847	041610	033177	033201
 11848	041611	041272	041301
 11849	041612	000014	031733
 11850	041613	041571	041117
 11851	041614	033203	033205
 11852	041615	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-3
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0262

 11853	041616	777777	777777
 11854	041617	041272	041301
 11855	041620	000014	031763
 11856	041621	041571	041117
 11857	041622	033207	033211
 11858	041623	041272	041301
 11859	041624	000014	032013
 11860	041625	041571	041117
 11861	041626	033213	033215
 11862	041627	041272	041301
 11863	041630	000014	032043
 11864	041631	041571	041117
 11865	041632	033217	033221
 11866	041633	777777	777776
 11867	041634	777777	777776
 11868	041635	64 45 63 64 00 46 
 11869	041636	22 00 15 00 62 45 
 11870	041637	63 65 54 64 00 51 
 11871	041640	63 00 51 56 43 57 
 11872	041641	62 62 45 43 64 77 
 11873	041642	041272	041301
 11874	041643	000013	000014
 11875	041644	041635	041117
 11876	041645	300000	000000
 11877	041646	64 45 63 64 00 46 
 11878	041647	22 00 15 00 60 43 
 11879	041650	00 46 54 41 47 63 
 11880	041651	00 51 56 43 57 62 
 11881	041652	62 45 43 64 00 10 
 11882	041653	54 45 46 64 00 24 
 11883	041654	00 42 51 64 63 11 
 11884	041655	77 00 00 00 00 00 
 11885	041656	041272	041301
 11886	041657	000014	032073
 11887	041660	041646	041117
 11888	041661	033223	033225
 11889	041662	041272	041301
 11890	041663	000014	032123
 11891	041664	041646	041117
 11892	041665	033227	033231
 11893	041666	041272	041301
 11894	041667	000014	032153
 11895	041670	041646	041117
 11896	041671	033233	033235
 11897	041672	041272	041301
 11898	041673	000014	032203
 11899	041674	041646	041117
 11900	041675	033237	033241
 11901	041676	041272	041301
 11902	041677	000014	032233
 11903	041700	041646	041117
 11904	041701	033243	033245
 11905	041702	041272	041301
 11906	041703	000014	032263
 11907	041704	041646	041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-4
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0263

 11908	041705	033247	033251
 11909	041706	000000	000001
 11910	041707	000000	000001
 11911	041710	64 45 63 64 00 46 
 11912	041711	23 00 15 00 62 45 
 11913	041712	63 65 54 64 00 51 
 11914	041713	63 00 51 56 43 57 
 11915	041714	62 62 45 43 64 77 
 11916	041715	041272	041301
 11917	041716	000013	000014
 11918	041717	041710	041117
 11919	041720	64 45 63 64 00 46 
 11920	041721	23 00 15 00 60 43 
 11921	041722	00 46 54 41 47 63 
 11922	041723	00 51 56 43 57 62 
 11923	041724	62 45 43 64 00 10 
 11924	041725	54 45 46 64 00 24 
 11925	041726	00 42 51 64 63 11 
 11926	041727	77 00 00 00 00 00 
 11927	041730	041272	041301
 11928	041731	000014	032313
 11929	041732	041720	041117
 11930	041733	033253	033255
 11931	041734	041272	041301
 11932	041735	000014	032343
 11933	041736	041720	041117
 11934	041737	033257	033261
 11935	041740	041272	041301
 11936	041741	000014	032373
 11937	041742	041720	041117
 11938	041743	033263	033265
 11939	041744	041272	041301
 11940	041745	000014	032423
 11941	041746	041720	041117
 11942	041747	033267	033271
 11943	041750	041272	041301
 11944	041751	000014	032453
 11945	041752	041720	041117
 11946	041753	033273	033275
 11947	041754	041272	041301
 11948	041755	000014	032503
 11949	041756	041720	041117
 11950	041757	033277	033301
 11951	041760	64 45 63 64 00 46 
 11952	041761	24 00 15 00 62 45 
 11953	041762	63 65 54 64 00 51 
 11954	041763	63 00 51 56 43 57 
 11955	041764	62 62 45 43 64 77 
 11956	041765	041272	041301
 11957	041766	000013	000014
 11958	041767	041760	041117
 11959	041770	64 45 63 64 00 46 
 11960	041771	24 00 15 00 60 43 
 11961	041772	00 46 54 41 47 63 
 11962	041773	00 51 56 43 57 62 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-5
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0264

 11963	041774	62 45 43 64 00 10 
 11964	041775	54 45 46 64 00 24 
 11965	041776	00 42 51 64 63 11 
 11966	041777	77 00 00 00 00 00 
 11967	042000	041272	041301
 11968	042001	000014	032533
 11969	042002	041770	041117
 11970	042003	033303	033305
 11971	042004	041272	041301
 11972	042005	000014	032563
 11973	042006	041770	041117
 11974	042007	033307	033311
 11975	042010	041272	041301
 11976	042011	000014	032613
 11977	042012	041770	041117
 11978	042013	033313	033315
 11979	042014	041272	041301
 11980	042015	000014	032643
 11981	042016	041770	041117
 11982	042017	033317	033321
 11983	042020	041272	041301
 11984	042021	000014	032673
 11985	042022	041770	041117
 11986	042023	033323	033325
 11987	042024	041272	041301
 11988	042025	000014	032723
 11989	042026	041770	041117
 11990	042027	033327	033331
 11991	042030	64 45 63 64 00 46 
 11992	042031	25 00 15 00 62 45 
 11993	042032	63 65 54 64 00 51 
 11994	042033	63 00 51 56 43 57 
 11995	042034	62 62 45 43 64 77 
 11996	042035	041272	041301
 11997	042036	000013	000014
 11998	042037	042030	041117
 11999	042040	64 45 63 64 00 46 
 12000	042041	25 00 15 00 60 43 
 12001	042042	00 46 54 41 47 63 
 12002	042043	00 51 56 43 57 62 
 12003	042044	62 45 43 64 00 10 
 12004	042045	54 45 46 64 00 24 
 12005	042046	00 42 51 64 63 11 
 12006	042047	77 00 00 00 00 00 
 12007	042050	041272	041301
 12008	042051	000014	032753
 12009	042052	042040	041117
 12010	042053	033333	033335
 12011	042054	041272	041301
 12012	042055	000014	033003
 12013	042056	042040	041117
 12014	042057	033337	033341
 12015	042060	041272	041301
 12016	042061	000014	033033
 12017	042062	042040	041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-6
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0265

 12018	042063	033343	033345
 12019	042064	041272	041301
 12020	042065	000014	033063
 12021	042066	042040	041117
 12022	042067	033347	033351
 12023	042070	041272	041301
 12024	042071	000014	033113
 12025	042072	042040	041117
 12026	042073	033353	033355
 12027	042074	041272	041301
 12028	042075	000014	033143
 12029	042076	042040	041117
 12030	042077	033660	033662
 12031	042100	64 45 63 64 00 47 
 12032	042101	00 15 00 62 45 63 
 12033	042102	65 54 64 00 51 63 
 12034	042103	00 51 56 43 57 62 
 12035	042104	62 45 43 64 77 00 
 12036	042105	041272	041301
 12037	042106	000013	000014
 12038	042107	042100	041117
 12039	042110	500000	000000
 12040	042111	64 45 63 64 00 47 
 12041	042112	00 15 00 60 43 00 
 12042	042113	46 54 41 47 63 00 
 12043	042114	51 56 43 57 62 62 
 12044	042115	45 43 64 00 10 54 
 12045	042116	45 46 64 00 24 00 
 12046	042117	42 51 64 63 11 77 
 12047	042120	041272	041301
 12048	042121	000014	033364
 12049	042122	042111	041117
 12050	042123	033666	033670
 12051	042124	041272	041301
 12052	042125	000014	033414
 12053	042126	042111	041117
 12054	042127	033674	033676
 12055	042130	041272	041301
 12056	042131	000014	033444
 12057	042132	042111	041117
 12058	042133	033702	033704
 12059	042134	041272	041301
 12060	042135	000014	033474
 12061	042136	042111	041117
 12062	042137	033710	033712
 12063	042140	600000	000000
 12064	042141	041272	041301
 12065	042142	000014	033524
 12066	042143	042111	041117
 12067	042144	033716	033720
 12068	042145	041272	041301
 12069	042146	000014	033554
 12070	042147	042111	041117
 12071	042150	033724	033726
 12072	042151	041272	041301
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-7
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0266

 12073	042152	000014	033604
 12074	042153	042111	041117
 12075	042154	033732	033734
 12076	042155	041272	041301
 12077	042156	000014	033634
 12078	042157	042111	041117
 12079	042160	44 63 65 42 00 64 
 12080	042161	45 63 64 77 00 00 
 12081	042162	042160	041301
 12082	042163	000013	000014
 12083	042164	041302	041146
 12084	042165	042160	041301
 12085	042166	000013	000014
 12086	042167	041313	041146
 12087	042170	042160	041301
 12088	042171	000013	000014
 12089	042172	041326	041146
 12090	042173	654321	012346
 12091	042174	777777	777777
 12092	042175	654321	012346
 12093	042176	042160	041301
 12094	042177	000013	000014
 12095	042200	041337	041146
 12096	042201	400000	000000
 12097	042202	654321	012346
 12098	042203	400000	000000
 12099	042204	042160	041301
 12100	042205	000013	000014
 12101	042206	041350	041146
 12102	042207	654321	012345
 12103	042210	654321	012346
 12104	042211	042160	041301
 12105	042212	000013	000014
 12106	042213	041361	041146
 12107	042214	777766	034144
 12108	042215	64 45 63 64 00 42 
 12109	042216	00 15 00 62 45 63 
 12110	042217	65 54 64 00 51 56 
 12111	042220	43 57 62 62 45 43 
 12112	042221	64 77 00 00 00 00 
 12113	042222	042160	041301
 12114	042223	000012	000013
 12115	042224	042215	041146
 12116	042225	64 45 63 64 00 42 
 12117	042226	00 15 00 60 43 00 
 12118	042227	46 54 41 47 63 00 
 12119	042230	51 56 43 57 62 62 
 12120	042231	45 43 64 00 10 54 
 12121	042232	45 46 64 00 24 00 
 12122	042233	42 51 64 63 11 77 
 12123	042234	042160	041301
 12124	042235	000014	034102
 12125	042236	042225	041146
 12126	042237	035001	035003
 12127	042240	64 45 63 64 00 43 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-8
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0267

 12128	042241	21 00 15 00 62 45 
 12129	042242	63 65 54 64 00 51 
 12130	042243	63 00 51 56 43 57 
 12131	042244	62 62 45 43 64 77 
 12132	042245	042160	041301
 12133	042246	000013	000014
 12134	042247	042240	041146
 12135	042250	035007	035011
 12136	042251	035015	035017
 12137	042252	035023	035025
 12138	042253	035031	035033
 12139	042254	035037	035041
 12140	042255	035045	035047
 12141	042256	64 45 63 64 00 43 
 12142	042257	22 00 15 00 62 45 
 12143	042260	63 65 54 64 00 51 
 12144	042261	63 00 51 56 43 57 
 12145	042262	62 62 45 43 64 77 
 12146	042263	042160	041301
 12147	042264	000013	000014
 12148	042265	042256	041146
 12149	042266	035053	035055
 12150	042267	035061	035063
 12151	042270	035067	035071
 12152	042271	035075	035077
 12153	042272	035103	035105
 12154	042273	035111	035113
 12155	042274	64 45 63 64 00 43 
 12156	042275	23 00 15 00 62 45 
 12157	042276	63 65 54 64 00 51 
 12158	042277	63 00 51 56 43 57 
 12159	042300	62 62 45 43 64 77 
 12160	042301	042160	041301
 12161	042302	000013	000014
 12162	042303	042274	041146
 12163	042304	035117	035121
 12164	042305	035125	035127
 12165	042306	035133	035135
 12166	042307	035141	035143
 12167	042310	035147	035151
 12168	042311	035155	035157
 12169	042312	777777	777775
 12170	042313	777777	777777
 12171	042314	777777	777775
 12172	042315	64 45 63 64 00 43 
 12173	042316	24 00 15 00 62 45 
 12174	042317	63 65 54 64 00 51 
 12175	042320	63 00 51 56 43 57 
 12176	042321	62 62 45 43 64 77 
 12177	042322	042160	041301
 12178	042323	000013	000014
 12179	042324	042315	041146
 12180	042325	035161	035163
 12181	042326	035165	035167
 12182	042327	035171	035173
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-9
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0268

 12183	042330	035175	035177
 12184	042331	035201	035203
 12185	042332	035205	035207
 12186	042333	000000	000003
 12187	042334	000000	000000
 12188	042335	000000	000003
 12189	042336	64 45 63 64 00 43 
 12190	042337	25 00 15 00 62 45 
 12191	042340	63 65 54 64 00 51 
 12192	042341	63 00 51 56 43 57 
 12193	042342	62 62 45 43 64 77 
 12194	042343	042160	041301
 12195	042344	000013	000014
 12196	042345	042336	041146
 12197	042346	035211	035213
 12198	042347	035215	035217
 12199	042350	035221	035223
 12200	042351	035225	035227
 12201	042352	035231	035233
 12202	042353	035546	035550
 12203	042354	400000	000000
 12204	042355	400000	000000
 12205	042356	64 45 63 64 00 44 
 12206	042357	00 15 00 62 45 63 
 12207	042360	65 54 64 00 51 63 
 12208	042361	00 51 56 43 57 62 
 12209	042362	62 45 43 64 77 00 
 12210	042363	042160	041301
 12211	042364	000013	000014
 12212	042365	042356	041146
 12213	042366	64 45 63 64 00 44 
 12214	042367	00 15 00 60 43 00 
 12215	042370	46 54 41 47 63 00 
 12216	042371	51 56 43 57 62 62 
 12217	042372	45 43 64 00 10 54 
 12218	042373	45 46 64 00 24 00 
 12219	042374	42 51 64 63 11 77 
 12220	042375	042160	041301
 12221	042376	000014	035242
 12222	042377	042366	041146
 12223	042400	035552	035554
 12224	042401	042160	041301
 12225	042402	000014	035273
 12226	042403	042366	041146
 12227	042404	035556	035560
 12228	042405	042160	041301
 12229	042406	000014	035324
 12230	042407	042366	041146
 12231	042410	035562	035564
 12232	042411	042160	041301
 12233	042412	000014	035355
 12234	042413	042366	041146
 12235	042414	035566	035570
 12236	042415	377777	777777
 12237	042416	377777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-10
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0269

 12238	042417	042160	041301
 12239	042420	000014	035406
 12240	042421	042366	041146
 12241	042422	035572	035574
 12242	042423	042160	041301
 12243	042424	000014	035437
 12244	042425	042366	041146
 12245	042426	035576	035600
 12246	042427	042160	041301
 12247	042430	000014	035470
 12248	042431	042366	041146
 12249	042432	035602	035604
 12250	042433	042160	041301
 12251	042434	000014	035521
 12252	042435	042366	041146
 12253	042436	44 55 65 54 00 64 
 12254	042437	45 63 64 77 00 00 
 12255	042440	000000	000000
 12256	042441	123456	765432
 12257	042442	000000	000000
 12258	042443	000000	000000
 12259	042444	000000	000000
 12260	042445	000000	000000
 12261	042446	000000	000000
 12262	042447	000000	000000
 12263	042450	042440	040756
 12264	042451	64 45 63 64 00 41 
 12265	042452	00 15 00 62 45 63 
 12266	042453	65 54 64 00 43 41 
 12267	042454	54 43 65 54 41 64 
 12268	042455	45 44 00 51 56 43 
 12269	042456	57 62 62 45 43 64 
 12270	042457	54 71 77 00 00 00 
 12271	042460	042436	041301
 12272	042461	000013	000014
 12273	042462	042451	041175
 12274	042463	123456	765432
 12275	042464	000000	000000
 12276	042465	000000	000000
 12277	042466	000000	000000
 12278	042467	000000	000000
 12279	042470	000000	000000
 12280	042471	000000	000000
 12281	042472	000000	000000
 12282	042473	042463	040756
 12283	042474	123456	765432
 12284	042475	123456	765432
 12285	042476	000000	000000
 12286	042477	000000	000000
 12287	042500	000000	000000
 12288	042501	000000	000000
 12289	042502	000000	000000
 12290	042503	000000	000000
 12291	042504	042474	040756
 12292	042505	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-11
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0270

 12293	042506	000000	000000
 12294	042507	000000	000000
 12295	042510	123456	765432
 12296	042511	000000	000000
 12297	042512	000000	000000
 12298	042513	000000	000000
 12299	042514	000000	000000
 12300	042515	042505	040756
 12301	042516	000000	000000
 12302	042517	000000	000000
 12303	042520	123456	765432
 12304	042521	000000	000000
 12305	042522	000000	000000
 12306	042523	000000	000000
 12307	042524	000000	000000
 12308	042525	000000	000000
 12309	042526	042516	040756
 12310	042527	000000	000000
 12311	042530	000000	000000
 12312	042531	123456	765432
 12313	042532	123456	765432
 12314	042533	000000	000000
 12315	042534	000000	000000
 12316	042535	000000	000000
 12317	042536	000000	000000
 12318	042537	042527	040756
 12319	042540	777777	777777
 12320	042541	654321	012346
 12321	042542	000000	000000
 12322	042543	000000	000000
 12323	042544	000000	000000
 12324	042545	000000	000000
 12325	042546	000000	000000
 12326	042547	000000	000000
 12327	042550	042540	040756
 12328	042551	654321	012346
 12329	042552	777777	777777
 12330	042553	000000	000000
 12331	042554	000000	000000
 12332	042555	000000	000000
 12333	042556	000000	000000
 12334	042557	000000	000000
 12335	042560	000000	000000
 12336	042561	042551	040756
 12337	042562	654321	012346
 12338	042563	654321	012346
 12339	042564	000000	000000
 12340	042565	000000	000000
 12341	042566	000000	000000
 12342	042567	000000	000000
 12343	042570	000000	000000
 12344	042571	000000	000000
 12345	042572	042562	040756
 12346	042573	000000	000000
 12347	042574	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-12
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0271

 12348	042575	777777	777777
 12349	042576	654321	012346
 12350	042577	000000	000000
 12351	042600	000000	000000
 12352	042601	000000	000000
 12353	042602	000000	000000
 12354	042603	042573	040756
 12355	042604	000000	000000
 12356	042605	000000	000000
 12357	042606	654321	012346
 12358	042607	777777	777777
 12359	042610	000000	000000
 12360	042611	000000	000000
 12361	042612	000000	000000
 12362	042613	000000	000000
 12363	042614	042604	040756
 12364	042615	000000	000000
 12365	042616	000000	000000
 12366	042617	654321	012346
 12367	042620	654321	012346
 12368	042621	000000	000000
 12369	042622	000000	000000
 12370	042623	000000	000000
 12371	042624	000000	000000
 12372	042625	042615	040756
 12373	042626	000000	000000
 12374	042627	000000	000000
 12375	042630	000000	000000
 12376	042631	000000	000000
 12377	042632	000000	000000
 12378	042633	000000	000000
 12379	042634	000000	000000
 12380	042635	000000	000000
 12381	042636	042626	040756
 12382	042637	64 45 63 64 00 00 
 12383	042640	15 00 62 45 63 65 
 12384	042641	54 64 00 43 41 54 
 12385	042642	43 65 54 41 64 45 
 12386	042643	44 00 51 56 43 57 
 12387	042644	62 62 45 43 64 54 
 12388	042645	71 77 00 00 00 00 
 12389	042646	042436	041301
 12390	042647	000013	000014
 12391	042650	042637	041175
 12392	042651	000000	000000
 12393	042652	123456	765432
 12394	042653	000000	000000
 12395	042654	000000	000001
 12396	042655	000000	000000
 12397	042656	000000	000000
 12398	042657	000000	000000
 12399	042660	123456	765432
 12400	042661	042651	040756
 12401	042662	64 45 63 64 00 42 
 12402	042663	00 15 00 62 45 63 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-13
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0272

 12403	042664	65 54 64 00 43 41 
 12404	042665	54 43 65 54 41 64 
 12405	042666	45 44 00 51 56 43 
 12406	042667	57 62 62 45 43 64 
 12407	042670	54 71 77 00 00 00 
 12408	042671	042436	041301
 12409	042672	000013	000014
 12410	042673	042662	041175
 12411	042674	123456	765432
 12412	042675	000000	000000
 12413	042676	000000	000000
 12414	042677	000000	000001
 12415	042700	000000	000000
 12416	042701	000000	000000
 12417	042702	123456	765432
 12418	042703	000000	000000
 12419	042704	042674	040756
 12420	042705	123456	765432
 12421	042706	123456	765432
 12422	042707	000000	000000
 12423	042710	000000	000001
 12424	042711	000000	000000
 12425	042712	000000	000000
 12426	042713	123456	765432
 12427	042714	123456	765432
 12428	042715	042705	040756
 12429	042716	000000	000000
 12430	042717	000000	000001
 12431	042720	000000	000000
 12432	042721	123456	765432
 12433	042722	000000	000000
 12434	042723	000000	000000
 12435	042724	000000	000000
 12436	042725	123456	765432
 12437	042726	042716	040756
 12438	042727	000000	000000
 12439	042730	000000	000001
 12440	042731	123456	765432
 12441	042732	000000	000000
 12442	042733	000000	000000
 12443	042734	000000	000000
 12444	042735	123456	765432
 12445	042736	000000	000000
 12446	042737	042727	040756
 12447	042740	000000	000000
 12448	042741	000000	000001
 12449	042742	123456	765432
 12450	042743	123456	765432
 12451	042744	000000	000000
 12452	042745	000000	000000
 12453	042746	123456	765432
 12454	042747	123456	765432
 12455	042750	042740	040756
 12456	042751	777777	777777
 12457	042752	654321	012346
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-14
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0273

 12458	042753	000000	000000
 12459	042754	000000	000001
 12460	042755	777777	777777
 12461	042756	777777	777777
 12462	042757	777777	777777
 12463	042760	654321	012346
 12464	042761	042751	040756
 12465	042762	654321	012346
 12466	042763	777777	777777
 12467	042764	000000	000000
 12468	042765	000000	000001
 12469	042766	777777	777777
 12470	042767	777777	777777
 12471	042770	654321	012346
 12472	042771	777777	777777
 12473	042772	042762	040756
 12474	042773	654321	012346
 12475	042774	654321	012346
 12476	042775	000000	000000
 12477	042776	000000	000001
 12478	042777	777777	777777
 12479	043000	777777	777777
 12480	043001	654321	012346
 12481	043002	654321	012346
 12482	043003	042773	040756
 12483	043004	000000	000000
 12484	043005	000000	000001
 12485	043006	777777	777777
 12486	043007	654321	012346
 12487	043010	777777	777777
 12488	043011	777777	777777
 12489	043012	777777	777777
 12490	043013	654321	012346
 12491	043014	043004	040756
 12492	043015	000000	000000
 12493	043016	000000	000001
 12494	043017	654321	012346
 12495	043020	777777	777777
 12496	043021	777777	777777
 12497	043022	777777	777777
 12498	043023	654321	012346
 12499	043024	777777	777777
 12500	043025	043015	040756
 12501	043026	000000	000000
 12502	043027	000000	000001
 12503	043030	654321	012346
 12504	043031	654321	012346
 12505	043032	777777	777777
 12506	043033	777777	777777
 12507	043034	654321	012346
 12508	043035	654321	012346
 12509	043036	043026	040756
 12510	043037	000000	000000
 12511	043040	177777	777777
 12512	043041	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-15
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0274

 12513	043042	000000	000002
 12514	043043	000000	000000
 12515	043044	000000	000000
 12516	043045	000000	000000
 12517	043046	377777	777776
 12518	043047	043037	040756
 12519	043050	64 45 63 64 00 43 
 12520	043051	00 15 00 62 45 63 
 12521	043052	65 54 64 00 43 41 
 12522	043053	54 43 65 54 41 64 
 12523	043054	45 44 00 51 56 43 
 12524	043055	57 62 62 45 43 64 
 12525	043056	54 71 77 00 00 00 
 12526	043057	042436	041301
 12527	043060	000013	000014
 12528	043061	043050	041175
 12529	043062	64 45 63 64 00 43 
 12530	043063	00 15 00 60 43 00 
 12531	043064	46 54 41 47 63 00 
 12532	043065	51 56 43 57 62 62 
 12533	043066	45 43 64 00 15 00 
 12534	043067	42 51 64 63 00 20 
 12535	043070	00 64 57 00 24 77 
 12536	043071	042436	041301
 12537	043072	000014	040733
 12538	043073	043062	041175
 12539	043074	000000	000000
 12540	043075	377777	777777
 12541	043076	000000	000000
 12542	043077	000000	000002
 12543	043100	000000	000000
 12544	043101	000000	000000
 12545	043102	000000	000001
 12546	043103	377777	777776
 12547	043104	043074	040756
 12548	043105	177777	777777
 12549	043106	377777	777777
 12550	043107	000000	000000
 12551	043110	000000	000002
 12552	043111	000000	000000
 12553	043112	000000	000000
 12554	043113	377777	777777
 12555	043114	377777	777776
 12556	043115	043105	040756
 12557	043116	377777	777777
 12558	043117	377777	777777
 12559	043120	000000	000000
 12560	043121	000000	000002
 12561	043122	000000	000000
 12562	043123	000000	000001
 12563	043124	377777	777777
 12564	043125	377777	777776
 12565	043126	043116	040756
 12566	043127	000000	000000
 12567	043130	377777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-16
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0275

 12568	043131	000000	000001
 12569	043132	000000	000000
 12570	043133	000000	000000
 12571	043134	000000	000000
 12572	043135	377777	777777
 12573	043136	000000	000000
 12574	043137	043127	040756
 12575	043140	000000	000001
 12576	043141	377777	777777
 12577	043142	000000	000001
 12578	043143	000000	000000
 12579	043144	000000	000000
 12580	043145	000000	000001
 12581	043146	377777	777777
 12582	043147	000000	000000
 12583	043150	043140	040756
 12584	043151	377777	777777
 12585	043152	377777	777777
 12586	043153	000000	000001
 12587	043154	000000	000000
 12588	043155	000000	000000
 12589	043156	377777	777777
 12590	043157	377777	777777
 12591	043160	000000	000000
 12592	043161	043151	040756
 12593	043162	000000	000000
 12594	043163	177777	777777
 12595	043164	000000	000002
 12596	043165	000000	000000
 12597	043166	000000	000000
 12598	043167	000000	000000
 12599	043170	377777	777776
 12600	043171	000000	000000
 12601	043172	043162	040756
 12602	043173	000000	000000
 12603	043174	377777	777777
 12604	043175	000000	000002
 12605	043176	000000	000000
 12606	043177	000000	000000
 12607	043200	000000	000001
 12608	043201	377777	777776
 12609	043202	000000	000000
 12610	043203	043173	040756
 12611	043204	377777	777777
 12612	043205	377777	777777
 12613	043206	000000	000002
 12614	043207	000000	000000
 12615	043210	000000	000001
 12616	043211	377777	777777
 12617	043212	377777	777776
 12618	043213	000000	000000
 12619	043214	043204	040756
 12620	043215	000000	000000
 12621	043216	000000	000002
 12622	043217	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-17
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0276

 12623	043220	177777	777777
 12624	043221	000000	000000
 12625	043222	000000	000000
 12626	043223	000000	000000
 12627	043224	377777	777776
 12628	043225	043215	040756
 12629	043226	000000	000000
 12630	043227	000000	000002
 12631	043230	000000	000000
 12632	043231	377777	777777
 12633	043232	000000	000000
 12634	043233	000000	000000
 12635	043234	000000	000001
 12636	043235	377777	777776
 12637	043236	043226	040756
 12638	043237	000000	000000
 12639	043240	000000	000002
 12640	043241	177777	777777
 12641	043242	377777	777777
 12642	043243	000000	000000
 12643	043244	000000	000000
 12644	043245	377777	777777
 12645	043246	377777	777776
 12646	043247	043237	040756
 12647	043250	000000	000000
 12648	043251	000000	000002
 12649	043252	377777	777777
 12650	043253	377777	777777
 12651	043254	000000	000000
 12652	043255	000000	000001
 12653	043256	377777	777777
 12654	043257	377777	777776
 12655	043260	043250	040756
 12656	043261	000000	000001
 12657	043262	000000	000000
 12658	043263	000000	000000
 12659	043264	377777	777777
 12660	043265	000000	000000
 12661	043266	000000	000000
 12662	043267	377777	777777
 12663	043270	000000	000000
 12664	043271	043261	040756
 12665	043272	000000	000001
 12666	043273	000000	000000
 12667	043274	000000	000001
 12668	043275	377777	777777
 12669	043276	000000	000000
 12670	043277	000000	000001
 12671	043300	377777	777777
 12672	043301	000000	000000
 12673	043302	043272	040756
 12674	043303	000000	000001
 12675	043304	000000	000000
 12676	043305	377777	777777
 12677	043306	377777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-18
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0277

 12678	043307	000000	000000
 12679	043310	377777	777777
 12680	043311	377777	777777
 12681	043312	000000	000000
 12682	043313	043303	040756
 12683	043314	000000	000002
 12684	043315	000000	000000
 12685	043316	000000	000000
 12686	043317	177777	777777
 12687	043320	000000	000000
 12688	043321	000000	000000
 12689	043322	377777	777776
 12690	043323	000000	000000
 12691	043324	043314	040756
 12692	043325	000000	000002
 12693	043326	000000	000000
 12694	043327	000000	000000
 12695	043330	377777	777777
 12696	043331	000000	000000
 12697	043332	000000	000001
 12698	043333	377777	777776
 12699	043334	000000	000000
 12700	043335	043325	040756
 12701	043336	000000	000002
 12702	043337	000000	000000
 12703	043340	377777	777777
 12704	043341	377777	777777
 12705	043342	000000	000001
 12706	043343	377777	777777
 12707	043344	377777	777776
 12708	043345	000000	000000
 12709	043346	043336	040756
 12710	043347	777777	777777
 12711	043350	600000	000000
 12712	043351	000000	000000
 12713	043352	000000	000002
 12714	043353	777777	777777
 12715	043354	777777	777777
 12716	043355	777777	777777
 12717	043356	400000	000000
 12718	043357	043347	040756
 12719	043360	64 45 63 64 00 44 
 12720	043361	00 15 00 62 45 63 
 12721	043362	65 54 64 00 43 41 
 12722	043363	54 43 65 54 41 64 
 12723	043364	45 44 00 51 56 43 
 12724	043365	57 62 62 45 43 64 
 12725	043366	54 71 77 00 00 00 
 12726	043367	042436	041301
 12727	043370	000013	000014
 12728	043371	043360	041175
 12729	043372	64 45 63 64 00 44 
 12730	043373	00 15 00 60 43 00 
 12731	043374	46 54 41 47 63 00 
 12732	043375	51 56 43 57 62 62 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-19
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0278

 12733	043376	45 43 64 00 15 00 
 12734	043377	42 51 64 63 00 20 
 12735	043400	00 64 57 00 24 77 
 12736	043401	042436	041301
 12737	043402	000014	040733
 12738	043403	043372	041175
 12739	043404	777777	777777
 12740	043405	400000	000000
 12741	043406	000000	000000
 12742	043407	000000	000002
 12743	043410	777777	777777
 12744	043411	777777	777777
 12745	043412	777777	777776
 12746	043413	400000	000000
 12747	043414	043404	040756
 12748	043415	600000	000000
 12749	043416	400000	000000
 12750	043417	000000	000000
 12751	043420	000000	000002
 12752	043421	777777	777777
 12753	043422	777777	777777
 12754	043423	400000	000000
 12755	043424	400000	000000
 12756	043425	043415	040756
 12757	043426	400000	000000
 12758	043427	400000	000000
 12759	043430	000000	000000
 12760	043431	000000	000002
 12761	043432	777777	777777
 12762	043433	777777	777776
 12763	043434	400000	000000
 12764	043435	400000	000000
 12765	043436	043426	040756
 12766	043437	777777	777777
 12767	043440	400000	000000
 12768	043441	000000	000001
 12769	043442	000000	000000
 12770	043443	777777	777777
 12771	043444	777777	777777
 12772	043445	400000	000000
 12773	043446	400000	000000
 12774	043447	043437	040756
 12775	043450	777777	777776
 12776	043451	400000	000000
 12777	043452	000000	000001
 12778	043453	000000	000000
 12779	043454	777777	777777
 12780	043455	777777	777776
 12781	043456	400000	000000
 12782	043457	400000	000000
 12783	043460	043450	040756
 12784	043461	400000	000000
 12785	043462	400000	000000
 12786	043463	000000	000001
 12787	043464	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-20
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0279

 12788	043465	777777	777777
 12789	043466	400000	000000
 12790	043467	400000	000000
 12791	043470	400000	000000
 12792	043471	043461	040756
 12793	043472	777777	777777
 12794	043473	600000	000000
 12795	043474	000000	000002
 12796	043475	000000	000000
 12797	043476	777777	777777
 12798	043477	777777	777777
 12799	043500	400000	000000
 12800	043501	400000	000000
 12801	043502	043472	040756
 12802	043503	777777	777777
 12803	043504	400000	000000
 12804	043505	000000	000002
 12805	043506	000000	000000
 12806	043507	777777	777777
 12807	043510	777777	777776
 12808	043511	400000	000000
 12809	043512	400000	000000
 12810	043513	043503	040756
 12811	043514	400000	000000
 12812	043515	400000	000000
 12813	043516	000000	000002
 12814	043517	000000	000000
 12815	043520	777777	777776
 12816	043521	400000	000000
 12817	043522	400000	000000
 12818	043523	400000	000000
 12819	043524	043514	040756
 12820	043525	000000	000000
 12821	043526	000000	000002
 12822	043527	777777	777777
 12823	043530	600000	000000
 12824	043531	777777	777777
 12825	043532	777777	777777
 12826	043533	777777	777777
 12827	043534	400000	000000
 12828	043535	043525	040756
 12829	043536	000000	000000
 12830	043537	000000	000002
 12831	043540	777777	777777
 12832	043541	400000	000000
 12833	043542	777777	777777
 12834	043543	777777	777777
 12835	043544	777777	777776
 12836	043545	400000	000000
 12837	043546	043536	040756
 12838	043547	000000	000000
 12839	043550	000000	000002
 12840	043551	600000	000000
 12841	043552	400000	000000
 12842	043553	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-21
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0280

 12843	043554	777777	777777
 12844	043555	400000	000000
 12845	043556	400000	000000
 12846	043557	043547	040756
 12847	043560	000000	000000
 12848	043561	000000	000002
 12849	043562	400000	000000
 12850	043563	400000	000000
 12851	043564	777777	777777
 12852	043565	777777	777776
 12853	043566	400000	000000
 12854	043567	400000	000000
 12855	043570	043560	040756
 12856	043571	000000	000001
 12857	043572	000000	000000
 12858	043573	777777	777777
 12859	043574	400000	000000
 12860	043575	777777	777777
 12861	043576	777777	777777
 12862	043577	400000	000000
 12863	043600	400000	000000
 12864	043601	043571	040756
 12865	043602	000000	000001
 12866	043603	000000	000000
 12867	043604	777777	777776
 12868	043605	400000	000000
 12869	043606	777777	777777
 12870	043607	777777	777776
 12871	043610	400000	000000
 12872	043611	400000	000000
 12873	043612	043602	040756
 12874	043613	000000	000001
 12875	043614	000000	000000
 12876	043615	400000	000000
 12877	043616	400000	000000
 12878	043617	777777	777777
 12879	043620	400000	000000
 12880	043621	400000	000000
 12881	043622	400000	000000
 12882	043623	043613	040756
 12883	043624	000000	000002
 12884	043625	000000	000000
 12885	043626	777777	777777
 12886	043627	600000	000000
 12887	043630	777777	777777
 12888	043631	777777	777777
 12889	043632	400000	000000
 12890	043633	400000	000000
 12891	043634	043624	040756
 12892	043635	000000	000002
 12893	043636	000000	000000
 12894	043637	777777	777777
 12895	043640	400000	000000
 12896	043641	777777	777777
 12897	043642	777777	777776
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-22
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0281

 12898	043643	400000	000000
 12899	043644	400000	000000
 12900	043645	043635	040756
 12901	043646	000000	000002
 12902	043647	000000	000000
 12903	043650	400000	000000
 12904	043651	400000	000000
 12905	043652	777777	777776
 12906	043653	400000	000000
 12907	043654	400000	000000
 12908	043655	400000	000000
 12909	043656	043646	040756
 12910	043657	525252	525252
 12911	043660	252525	252525
 12912	043661	64 45 63 64 00 45 
 12913	043662	00 15 00 62 45 63 
 12914	043663	65 54 64 00 51 56 
 12915	043664	43 57 62 62 45 43 
 12916	043665	64 77 00 00 00 00 
 12917	043666	042436	041301
 12918	043667	042201	000013
 12919	043670	043661	041175
 12920	043671	64 45 63 64 00 45 
 12921	043672	00 15 00 60 43 00 
 12922	043673	46 54 41 47 63 00 
 12923	043674	51 56 43 57 62 62 
 12924	043675	45 43 64 00 15 00 
 12925	043676	54 45 46 64 00 24 
 12926	043677	00 42 51 64 63 77 
 12927	043700	042436	041301
 12928	043701	000001	036561
 12929	043702	043671	041175
 12930	043703	777777	777777
 12931	043704	777777	777776
 12932	043705	777777	777777
 12933	043706	777777	777775
 12934	043707	000000	000000
 12935	043710	000000	000000
 12936	043711	000000	000000
 12937	043712	000000	000006
 12938	043713	043703	040756
 12939	043714	64 45 63 64 00 46 
 12940	043715	00 15 00 62 45 63 
 12941	043716	65 54 64 00 43 41 
 12942	043717	54 43 65 54 41 64 
 12943	043720	45 44 00 51 56 43 
 12944	043721	57 62 62 45 43 64 
 12945	043722	54 71 77 00 00 00 
 12946	043723	042436	041301
 12947	043724	000013	000014
 12948	043725	043714	041175
 12949	043726	64 45 63 64 00 46 
 12950	043727	00 15 00 60 43 00 
 12951	043730	46 54 41 47 63 00 
 12952	043731	51 56 43 57 62 62 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-23
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0282

 12953	043732	45 43 64 00 15 00 
 12954	043733	42 51 64 63 00 20 
 12955	043734	00 64 57 00 24 77 
 12956	043735	042436	041301
 12957	043736	000014	040733
 12958	043737	043726	041175
 12959	043740	777777	777776
 12960	043741	400000	000000
 12961	043742	777777	777777
 12962	043743	777777	777775
 12963	043744	000000	000000
 12964	043745	000000	000000
 12965	043746	000000	000006
 12966	043747	000000	000000
 12967	043750	043740	040756
 12968	043751	777777	777777
 12969	043752	777777	777776
 12970	043753	777777	777775
 12971	043754	400000	000000
 12972	043755	000000	000000
 12973	043756	000000	000000
 12974	043757	000000	000006
 12975	043760	000000	000000
 12976	043761	043751	040756
 12977	043762	777777	777776
 12978	043763	400000	000000
 12979	043764	777777	777775
 12980	043765	400000	000000
 12981	043766	000000	000000
 12982	043767	000000	000006
 12983	043770	000000	000000
 12984	043771	000000	000000
 12985	043772	043762	040756
 12986	043773	000000	000000
 12987	043774	000000	000002
 12988	043775	000000	000000
 12989	043776	400000	000003
 12990	043777	000000	000000
 12991	044000	000000	000000
 12992	044001	000000	000000
 12993	044002	000000	000006
 12994	044003	043773	040756
 12995	044004	64 45 63 64 00 47 
 12996	044005	00 15 00 62 45 63 
 12997	044006	65 54 64 00 43 41 
 12998	044007	54 43 65 54 41 64 
 12999	044010	45 44 00 51 56 43 
 13000	044011	57 62 62 45 43 64 
 13001	044012	54 71 77 00 00 00 
 13002	044013	042436	041301
 13003	044014	000013	000014
 13004	044015	044004	041175
 13005	044016	64 45 63 64 00 47 
 13006	044017	00 15 00 60 43 00 
 13007	044020	46 54 41 47 63 00 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-24
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0283

 13008	044021	51 56 43 57 62 62 
 13009	044022	45 43 64 00 15 00 
 13010	044023	42 51 64 63 00 20 
 13011	044024	00 64 57 00 24 77 
 13012	044025	042436	041301
 13013	044026	000014	040733
 13014	044027	044016	041175
 13015	044030	000000	000000
 13016	044031	400000	000002
 13017	044032	000000	000000
 13018	044033	400000	000003
 13019	044034	000000	000000
 13020	044035	000000	000000
 13021	044036	000000	000000
 13022	044037	000000	000006
 13023	044040	044030	040756
 13024	044041	000000	000000
 13025	044042	400000	000002
 13026	044043	000000	000000
 13027	044044	000000	000003
 13028	044045	000000	000000
 13029	044046	000000	000000
 13030	044047	000000	000000
 13031	044050	000000	000006
 13032	044051	044041	040756
 13033	044052	000000	000000
 13034	044053	000000	000002
 13035	044054	777777	777777
 13036	044055	377777	777775
 13037	044056	777777	777777
 13038	044057	777777	777777
 13039	044060	777777	777777
 13040	044061	777777	777772
 13041	044062	044052	040756
 13042	044063	000000	000000
 13043	044064	400000	000002
 13044	044065	777777	777777
 13045	044066	377777	777775
 13046	044067	777777	777777
 13047	044070	777777	777777
 13048	044071	777777	777777
 13049	044072	777777	777772
 13050	044073	044063	040756
 13051	044074	000000	000000
 13052	044075	400000	000002
 13053	044076	777777	777777
 13054	044077	777777	777775
 13055	044100	777777	777777
 13056	044101	777777	777777
 13057	044102	777777	777777
 13058	044103	777777	777772
 13059	044104	044074	040756
 13060	044105	777777	777777
 13061	044106	777777	777776
 13062	044107	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-25
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0284

 13063	044110	400000	000003
 13064	044111	777777	777777
 13065	044112	777777	777777
 13066	044113	777777	777777
 13067	044114	777777	777772
 13068	044115	044105	040756
 13069	044116	777777	777777
 13070	044117	377777	777776
 13071	044120	000000	000000
 13072	044121	400000	000003
 13073	044122	777777	777777
 13074	044123	777777	777777
 13075	044124	777777	777777
 13076	044125	777777	777772
 13077	044126	044116	040756
 13078	044127	777777	777777
 13079	044130	377777	777776
 13080	044131	000000	000000
 13081	044132	000000	000003
 13082	044133	777777	777777
 13083	044134	777777	777777
 13084	044135	777777	777777
 13085	044136	777777	777772
 13086	044137	044127	040756
 13087	044140	777777	777777
 13088	044141	777777	777776
 13089	044142	777777	777777
 13090	044143	377777	777775
 13091	044144	000000	000000
 13092	044145	000000	000000
 13093	044146	000000	000000
 13094	044147	000000	000006
 13095	044150	044140	040756
 13096	044151	777777	777777
 13097	044152	377777	777776
 13098	044153	777777	777777
 13099	044154	377777	777775
 13100	044155	000000	000000
 13101	044156	000000	000000
 13102	044157	000000	000000
 13103	044160	000000	000006
 13104	044161	044151	040756
 13105	044162	777777	777777
 13106	044163	377777	777776
 13107	044164	777777	777777
 13108	044165	777777	777775
 13109	044166	000000	000000
 13110	044167	000000	000000
 13111	044170	000000	000000
 13112	044171	000000	000006
 13113	044172	044162	040756
 13114	044173	000000	000002
 13115	044174	000000	000000
 13116	044175	000000	000003
 13117	044176	400000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-26
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0285

 13118	044177	000000	000000
 13119	044200	000000	000006
 13120	044201	000000	000000
 13121	044202	000000	000000
 13122	044203	044173	040756
 13123	044204	000000	000002
 13124	044205	400000	000000
 13125	044206	000000	000003
 13126	044207	400000	000000
 13127	044210	000000	000000
 13128	044211	000000	000006
 13129	044212	000000	000000
 13130	044213	000000	000000
 13131	044214	044204	040756
 13132	044215	000000	000002
 13133	044216	400000	000000
 13134	044217	000000	000003
 13135	044220	000000	000000
 13136	044221	000000	000000
 13137	044222	000000	000006
 13138	044223	000000	000000
 13139	044224	000000	000000
 13140	044225	044215	040756
 13141	044226	000000	000002
 13142	044227	000000	000000
 13143	044230	777777	777775
 13144	044231	000000	000000
 13145	044232	777777	777777
 13146	044233	777777	777772
 13147	044234	400000	000000
 13148	044235	400000	000000
 13149	044236	044226	040756
 13150	044237	000000	000002
 13151	044240	400000	000000
 13152	044241	777777	777775
 13153	044242	000000	000000
 13154	044243	777777	777777
 13155	044244	777777	777772
 13156	044245	400000	000000
 13157	044246	400000	000000
 13158	044247	044237	040756
 13159	044250	000000	000002
 13160	044251	400000	000000
 13161	044252	777777	777775
 13162	044253	400000	000000
 13163	044254	777777	777777
 13164	044255	777777	777772
 13165	044256	400000	000000
 13166	044257	400000	000000
 13167	044260	044250	040756
 13168	044261	777777	777776
 13169	044262	400000	000000
 13170	044263	000000	000003
 13171	044264	400000	000000
 13172	044265	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-27
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0286

 13173	044266	777777	777772
 13174	044267	400000	000000
 13175	044270	400000	000000
 13176	044271	044261	040756
 13177	044272	777777	777776
 13178	044273	000000	000000
 13179	044274	000000	000003
 13180	044275	400000	000000
 13181	044276	777777	777777
 13182	044277	777777	777772
 13183	044300	400000	000000
 13184	044301	400000	000000
 13185	044302	044272	040756
 13186	044303	777777	777776
 13187	044304	000000	000000
 13188	044305	000000	000003
 13189	044306	000000	000000
 13190	044307	777777	777777
 13191	044310	777777	777772
 13192	044311	400000	000000
 13193	044312	400000	000000
 13194	044313	044303	040756
 13195	044314	777777	777776
 13196	044315	400000	000000
 13197	044316	777777	777775
 13198	044317	000000	000000
 13199	044320	000000	000000
 13200	044321	000000	000006
 13201	044322	000000	000000
 13202	044323	000000	000000
 13203	044324	044314	040756
 13204	044325	777777	777776
 13205	044326	000000	000000
 13206	044327	777777	777775
 13207	044330	000000	000000
 13208	044331	000000	000000
 13209	044332	000000	000006
 13210	044333	000000	000000
 13211	044334	000000	000000
 13212	044335	044325	040756
 13213	044336	777777	777776
 13214	044337	000000	000000
 13215	044340	777777	777775
 13216	044341	400000	000000
 13217	044342	000000	000000
 13218	044343	000000	000006
 13219	044344	000000	000000
 13220	044345	000000	000000
 13221	044346	044336	040756
 13222	044347	44 44 51 66 00 64 
 13223	044350	45 63 64 77 00 00 
 13224	044351	000000	000000
 13225	044352	000000	000000
 13226	044353	000000	000000
 13227	044354	123456	765432
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-28
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0287

 13228	044355	000000	000000
 13229	044356	000000	000001
 13230	044357	000000	000000
 13231	044360	123456	765432
 13232	044361	000000	000000
 13233	044362	000000	000000
 13234	044363	044351	041020
 13235	044364	64 45 63 64 00 41 
 13236	044365	00 15 00 61 65 57 
 13237	044366	64 51 45 56 64 17 
 13238	044367	62 45 55 41 51 56 
 13239	044370	44 45 62 00 51 56 
 13240	044371	43 57 62 62 45 43 
 13241	044372	64 77 00 00 00 00 
 13242	044373	044347	041301
 13243	044374	000013	000014
 13244	044375	044364	041230
 13245	044376	000000	000000
 13246	044377	000000	000000
 13247	044400	123456	765432
 13248	044401	000000	000000
 13249	044402	000000	000000
 13250	044403	000000	000001
 13251	044404	123456	765432
 13252	044405	000000	000000
 13253	044406	000000	000000
 13254	044407	000000	000000
 13255	044410	044376	041020
 13256	044411	000000	000000
 13257	044412	000000	000000
 13258	044413	000000	000000
 13259	044414	123456	765432
 13260	044415	000000	000000
 13261	044416	123456	765432
 13262	044417	000000	000000
 13263	044420	000000	000001
 13264	044421	000000	000000
 13265	044422	000000	000000
 13266	044423	044411	041020
 13267	044424	64 45 63 64 00 42 
 13268	044425	00 15 00 61 65 57 
 13269	044426	64 51 45 56 64 17 
 13270	044427	62 45 55 41 51 56 
 13271	044430	44 45 62 00 51 56 
 13272	044431	43 57 62 62 45 43 
 13273	044432	64 77 00 00 00 00 
 13274	044433	044347	041301
 13275	044434	000013	000014
 13276	044435	044424	041230
 13277	044436	000000	000000
 13278	044437	000000	000000
 13279	044440	123456	765432
 13280	044441	000000	000000
 13281	044442	123456	765432
 13282	044443	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-29
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0288

 13283	044444	000000	000000
 13284	044445	000000	000001
 13285	044446	000000	000000
 13286	044447	000000	000000
 13287	044450	044436	041020
 13288	044451	000000	000000
 13289	044452	000000	000000
 13290	044453	000000	000000
 13291	044454	000000	000001
 13292	044455	000000	000000
 13293	044456	000000	000002
 13294	044457	000000	000000
 13295	044460	000000	000000
 13296	044461	000000	000000
 13297	044462	000000	000001
 13298	044463	044451	041020
 13299	044464	64 45 63 64 00 43 
 13300	044465	00 15 00 61 65 57 
 13301	044466	64 51 45 56 64 17 
 13302	044467	62 45 55 41 51 56 
 13303	044470	44 45 62 00 51 56 
 13304	044471	43 57 62 62 45 43 
 13305	044472	64 77 00 00 00 00 
 13306	044473	044347	041301
 13307	044474	000013	000014
 13308	044475	044464	041230
 13309	044476	000000	000000
 13310	044477	000000	000000
 13311	044500	000000	000001
 13312	044501	000000	000000
 13313	044502	000000	000000
 13314	044503	000000	000002
 13315	044504	000000	000000
 13316	044505	200000	000000
 13317	044506	000000	000000
 13318	044507	000000	000000
 13319	044510	044476	041020
 13320	044511	000000	000000
 13321	044512	000000	000000
 13322	044513	000000	000001
 13323	044514	000000	000000
 13324	044515	000000	000002
 13325	044516	000000	000000
 13326	044517	000000	000000
 13327	044520	000000	000000
 13328	044521	000000	000001
 13329	044522	000000	000000
 13330	044523	044511	041020
 13331	044524	000000	000000
 13332	044525	000000	000001
 13333	044526	000000	000000
 13334	044527	000000	000000
 13335	044530	000000	000000
 13336	044531	000000	000002
 13337	044532	200000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-30
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0289

 13338	044533	000000	000000
 13339	044534	000000	000000
 13340	044535	000000	000000
 13341	044536	044524	041020
 13342	044537	000000	000000
 13343	044540	000000	000001
 13344	044541	000000	000000
 13345	044542	000000	000000
 13346	044543	000000	000002
 13347	044544	000000	000000
 13348	044545	000000	000000
 13349	044546	200000	000000
 13350	044547	000000	000000
 13351	044550	000000	000000
 13352	044551	044537	041020
 13353	044552	000000	000001
 13354	044553	000000	000000
 13355	044554	000000	000000
 13356	044555	000000	000000
 13357	044556	000000	000002
 13358	044557	000000	000000
 13359	044560	200000	000000
 13360	044561	000000	000000
 13361	044562	000000	000000
 13362	044563	000000	000000
 13363	044564	044552	041020
 13364	044565	777777	777777
 13365	044566	777777	777777
 13366	044567	777777	777777
 13367	044570	777777	777777
 13368	044571	000000	000000
 13369	044572	000000	000002
 13370	044573	000000	000000
 13371	044574	000000	000000
 13372	044575	777777	777777
 13373	044576	777777	777777
 13374	044577	044565	041020
 13375	044600	777777	777777
 13376	044601	777777	777777
 13377	044602	777777	777777
 13378	044603	400000	000000
 13379	044604	000000	000000
 13380	044605	000000	000002
 13381	044606	777777	777777
 13382	044607	600000	000000
 13383	044610	000000	000000
 13384	044611	000000	000000
 13385	044612	044600	041020
 13386	044613	777777	777777
 13387	044614	777777	777777
 13388	044615	777777	777777
 13389	044616	400000	000000
 13390	044617	000000	000002
 13391	044620	000000	000000
 13392	044621	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-31
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0290

 13393	044622	000000	000000
 13394	044623	777777	777777
 13395	044624	400000	000000
 13396	044625	044613	041020
 13397	044626	777777	777777
 13398	044627	777777	777777
 13399	044630	400000	000000
 13400	044631	400000	000000
 13401	044632	000000	000000
 13402	044633	000000	000002
 13403	044634	600000	000000
 13404	044635	400000	000000
 13405	044636	000000	000000
 13406	044637	000000	000000
 13407	044640	044626	041020
 13408	044641	777777	777777
 13409	044642	777777	777777
 13410	044643	400000	000000
 13411	044644	400000	000000
 13412	044645	000000	000002
 13413	044646	000000	000000
 13414	044647	777777	777777
 13415	044650	600000	000000
 13416	044651	000000	000000
 13417	044652	000000	000000
 13418	044653	044641	041020
 13419	044654	777777	777777
 13420	044655	400000	000000
 13421	044656	400000	000000
 13422	044657	400000	000000
 13423	044660	000000	000002
 13424	044661	000000	000000
 13425	044662	600000	000000
 13426	044663	400000	000000
 13427	044664	000000	000000
 13428	044665	000000	000000
 13429	044666	044654	041020
 13430	044667	000000	000000
 13431	044670	000000	000000
 13432	044671	000000	000000
 13433	044672	000000	000001
 13434	044673	777777	777777
 13435	044674	777777	777776
 13436	044675	000000	000000
 13437	044676	000000	000000
 13438	044677	000000	000000
 13439	044700	000000	000001
 13440	044701	044667	041020
 13441	044702	000000	000000
 13442	044703	000000	000000
 13443	044704	000000	000001
 13444	044705	000000	000000
 13445	044706	777777	777777
 13446	044707	777777	777776
 13447	044710	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-32
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0291

 13448	044711	600000	000000
 13449	044712	000000	000000
 13450	044713	000000	000000
 13451	044714	044702	041020
 13452	044715	000000	000000
 13453	044716	000000	000000
 13454	044717	000000	000001
 13455	044720	000000	000000
 13456	044721	777777	777776
 13457	044722	400000	000000
 13458	044723	000000	000000
 13459	044724	000000	000000
 13460	044725	000000	000001
 13461	044726	000000	000000
 13462	044727	044715	041020
 13463	044730	000000	000000
 13464	044731	000000	000001
 13465	044732	000000	000000
 13466	044733	000000	000000
 13467	044734	777777	777777
 13468	044735	777777	777776
 13469	044736	600000	000000
 13470	044737	400000	000000
 13471	044740	000000	000000
 13472	044741	000000	000000
 13473	044742	044730	041020
 13474	044743	000000	000000
 13475	044744	000000	000001
 13476	044745	000000	000000
 13477	044746	000000	000000
 13478	044747	777777	777776
 13479	044750	400000	000000
 13480	044751	777777	777777
 13481	044752	600000	000000
 13482	044753	000000	000000
 13483	044754	000000	000000
 13484	044755	044743	041020
 13485	044756	000000	000001
 13486	044757	000000	000000
 13487	044760	000000	000000
 13488	044761	000000	000000
 13489	044762	777777	777776
 13490	044763	400000	000000
 13491	044764	600000	000000
 13492	044765	400000	000000
 13493	044766	000000	000000
 13494	044767	000000	000000
 13495	044770	044756	041020
 13496	044771	777777	777777
 13497	044772	777777	777777
 13498	044773	777777	777777
 13499	044774	777777	777777
 13500	044775	777777	777777
 13501	044776	777777	777776
 13502	044777	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-33
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0292

 13503	045000	000000	000000
 13504	045001	777777	777777
 13505	045002	777777	777777
 13506	045003	044771	041020
 13507	045004	777777	777777
 13508	045005	777777	777777
 13509	045006	777777	777777
 13510	045007	400000	000000
 13511	045010	777777	777777
 13512	045011	777777	777776
 13513	045012	000000	000000
 13514	045013	200000	000000
 13515	045014	000000	000000
 13516	045015	000000	000000
 13517	045016	045004	041020
 13518	045017	777777	777777
 13519	045020	777777	777777
 13520	045021	777777	777777
 13521	045022	400000	000000
 13522	045023	777777	777776
 13523	045024	400000	000000
 13524	045025	000000	000000
 13525	045026	000000	000000
 13526	045027	777777	777777
 13527	045030	400000	000000
 13528	045031	045017	041020
 13529	045032	777777	777777
 13530	045033	777777	777777
 13531	045034	400000	000000
 13532	045035	400000	000000
 13533	045036	777777	777777
 13534	045037	777777	777776
 13535	045040	200000	000000
 13536	045041	000000	000000
 13537	045042	000000	000000
 13538	045043	000000	000000
 13539	045044	045032	041020
 13540	045045	777777	777777
 13541	045046	777777	777777
 13542	045047	400000	000000
 13543	045050	400000	000000
 13544	045051	777777	777776
 13545	045052	400000	000000
 13546	045053	000000	000000
 13547	045054	200000	000000
 13548	045055	000000	000000
 13549	045056	000000	000000
 13550	045057	045045	041020
 13551	045060	777777	777777
 13552	045061	400000	000000
 13553	045062	400000	000000
 13554	045063	400000	000000
 13555	045064	777777	777776
 13556	045065	400000	000000
 13557	045066	200000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-34
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0293

 13558	045067	000000	000000
 13559	045070	000000	000000
 13560	045071	000000	000000
 13561	045072	045060	041020
 13562	045073	333333	333333
 13563	045074	333333	333333
 13564	045075	333333	333333
 13565	045076	333333	333333
 13566	045077	344444	444444
 13567	045100	444444	444444
 13568	045101	365605	075342
 13569	045102	070414	545131
 13570	045103	055632	516360
 13571	045104	373564	760527
 13572	045105	045073	041020
 13573	045106	64 45 63 64 00 44 
 13574	045107	00 15 00 61 65 57 
 13575	045110	64 51 45 56 64 17 
 13576	045111	62 45 55 41 51 56 
 13577	045112	44 45 62 00 51 56 
 13578	045113	43 57 62 62 45 43 
 13579	045114	64 77 00 00 00 00 
 13580	045115	044347	041301
 13581	045116	000013	000014
 13582	045117	045106	041230
 13583	045120	64 45 63 64 00 44 
 13584	045121	00 15 00 60 43 00 
 13585	045122	46 54 41 47 63 00 
 13586	045123	51 56 43 57 62 62 
 13587	045124	45 43 64 00 15 00 
 13588	045125	42 51 64 63 00 20 
 13589	045126	00 06 00 21 22 77 
 13590	045127	044347	041301
 13591	045130	000014	040775
 13592	045131	045120	041230
 13593	045132	333333	333333
 13594	045133	444444	444444
 13595	045134	333333	333333
 13596	045135	444444	444444
 13597	045136	344444	444444
 13598	045137	333333	333333
 13599	045140	365605	075340
 13600	045141	247073	632327
 13601	045142	213672	200375
 13602	045143	376365	035467
 13603	045144	045132	041020
 13604	045145	222222	222222
 13605	045146	222222	222222
 13606	045147	222222	222222
 13607	045150	222222	222222
 13608	045151	333333	333333
 13609	045152	333333	333333
 13610	045153	252525	252525
 13611	045154	125252	525253
 13612	045155	111111	111111
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-35
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0294

 13613	045156	111111	111111
 13614	045157	045145	041020
 13615	045160	222222	222222
 13616	045161	333333	333333
 13617	045162	222222	222222
 13618	045163	333333	333333
 13619	045164	333333	333333
 13620	045165	444444	444444
 13621	045166	252525	252526
 13622	045167	070707	070710
 13623	045170	004040	404041
 13624	045171	327272	727273
 13625	045172	045160	041020
 13626	045173	255555	555555
 13627	045174	555555	555555
 13628	045175	555555	555555
 13629	045176	555555	555555
 13630	045177	311111	111111
 13631	045200	111111	111111
 13632	045201	335056	427213
 13633	045202	035475	265746
 13634	045203	144375	704605
 13635	045204	004166	365327
 13636	045205	045173	041020
 13637	045206	255555	555555
 13638	045207	222222	222222
 13639	045210	555555	555555
 13640	045211	222222	222222
 13641	045212	311111	111111
 13642	045213	666666	666666
 13643	045214	335056	427212
 13644	045215	323443	757047
 13645	045216	240023	257716
 13646	045217	107503	314730
 13647	045220	045206	041020
 13648	045221	123456	123456
 13649	045222	123456	123456
 13650	045223	123456	123456
 13651	045224	123456	123456
 13652	045225	234567	234567
 13653	045226	234567	234567
 13654	045227	210420	323476
 13655	045230	136703	233600
 13656	045231	055256	055256
 13657	045232	055256	055256
 13658	045233	045221	041020
 13659	045234	444444	444444
 13660	045235	444444	444444
 13661	045236	444444	444444
 13662	045237	444444	444444
 13663	045240	333333	333333
 13664	045241	333333	333334
 13665	045242	400000	000000
 13666	045243	400000	000001
 13667	045244	511111	111110
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-36
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0295

 13668	045245	511111	111110
 13669	045246	045234	041020
 13670	045247	555555	555555
 13671	045250	555555	555555
 13672	045251	555555	555555
 13673	045252	555555	555555
 13674	045253	444444	444444
 13675	045254	444444	444444
 13676	045255	252525	252525
 13677	045256	125252	525252
 13678	045257	606060	606060
 13679	045260	460606	060605
 13680	045261	045247	041020
 13681	045262	444444	444444
 13682	045263	555555	555555
 13683	045264	444444	444444
 13684	045265	555555	555555
 13685	045266	432123	456765
 13686	045267	432123	456765
 13687	045270	364320	315052
 13688	045271	247020	761620
 13689	045272	473571	652245
 13690	045273	600514	541235
 13691	045274	045262	041020
 13692	045275	555555	555555
 13693	045276	222222	222222
 13694	045277	555555	555555
 13695	045300	222222	222222
 13696	045301	543210	123456
 13697	045302	543210	123456
 13698	045303	356736	272460
 13699	045304	271326	656374
 13700	045305	763153	710465
 13701	045306	406655	405512
 13702	045307	045275	041020
 13703	045310	777777	777777
 13704	045311	377777	777777
 13705	045312	377777	777777
 13706	045313	377777	777774
 13707	045314	777777	777777
 13708	045315	377777	777776
 13709	045316	000000	000000
 13710	045317	000000	000002
 13711	045320	000000	000000
 13712	045321	000000	000000
 13713	045322	045310	041020
 13714	045323	64 45 63 64 00 45 
 13715	045324	00 15 00 61 65 57 
 13716	045325	64 51 45 56 64 17 
 13717	045326	62 45 55 41 51 56 
 13718	045327	44 45 62 00 51 56 
 13719	045330	43 57 62 62 45 43 
 13720	045331	64 77 00 00 00 00 
 13721	045332	044347	041301
 13722	045333	000013	000014
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-37
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0296

 13723	045334	045323	041230
 13724	045335	64 45 63 64 00 45 
 13725	045336	00 15 00 60 43 00 
 13726	045337	46 54 41 47 63 00 
 13727	045340	51 56 43 57 62 62 
 13728	045341	45 43 64 00 15 00 
 13729	045342	42 51 64 63 00 20 
 13730	045343	00 06 00 21 22 77 
 13731	045344	044347	041301
 13732	045345	000014	040775
 13733	045346	045335	041230
 13734	045347	777777	777777
 13735	045350	377777	777777
 13736	045351	377777	777777
 13737	045352	777777	777774
 13738	045353	777777	777777
 13739	045354	777777	777776
 13740	045355	000000	000000
 13741	045356	000000	000002
 13742	045357	000000	000000
 13743	045360	000000	000000
 13744	045361	045347	041020
 13745	045362	777777	777777
 13746	045363	377777	777777
 13747	045364	377777	777777
 13748	045365	377777	777774
 13749	045366	000000	000000
 13750	045367	400000	000002
 13751	045370	777777	777777
 13752	045371	777777	777776
 13753	045372	000000	000000
 13754	045373	000000	000000
 13755	045374	045362	041020
 13756	045375	777777	777777
 13757	045376	777777	777777
 13758	045377	777777	777777
 13759	045400	777777	777774
 13760	045401	000000	000000
 13761	045402	400000	000002
 13762	045403	777777	777777
 13763	045404	777777	777776
 13764	045405	000000	000000
 13765	045406	000000	000000
 13766	045407	045375	041020
 13767	045410	000000	000000
 13768	045411	400000	000000
 13769	045412	400000	000000
 13770	045413	400000	000004
 13771	045414	777777	777777
 13772	045415	377777	777776
 13773	045416	777777	777777
 13774	045417	777777	777776
 13775	045420	000000	000000
 13776	045421	000000	000000
 13777	045422	045410	041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-38
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0297

 13778	045423	000000	000000
 13779	045424	400000	000000
 13780	045425	400000	000000
 13781	045426	400000	000004
 13782	045427	777777	777777
 13783	045430	777777	777776
 13784	045431	777777	777777
 13785	045432	777777	777776
 13786	045433	000000	000000
 13787	045434	000000	000000
 13788	045435	045423	041020
 13789	045436	000000	000000
 13790	045437	000000	000000
 13791	045440	000000	000000
 13792	045441	400000	000004
 13793	045442	000000	000000
 13794	045443	000000	000002
 13795	045444	000000	000000
 13796	045445	000000	000002
 13797	045446	000000	000000
 13798	045447	000000	000000
 13799	045450	045436	041020
 13800	045451	000000	000000
 13801	045452	000000	000000
 13802	045453	000000	000000
 13803	045454	400000	000004
 13804	045455	000000	000000
 13805	045456	400000	000002
 13806	045457	000000	000000
 13807	045460	000000	000002
 13808	045461	000000	000000
 13809	045462	000000	000000
 13810	045463	045451	041020
 13811	045464	777777	777775
 13812	045465	400000	000000
 13813	045466	400000	000000
 13814	045467	400000	000000
 13815	045470	777777	777772
 13816	045471	400000	000000
 13817	045472	200000	000000
 13818	045473	000000	000000
 13819	045474	000000	000000
 13820	045475	000000	000000
 13821	045476	045464	041020
 13822	045477	777777	777775
 13823	045500	400000	000000
 13824	045501	400000	000000
 13825	045502	000000	000000
 13826	045503	777777	777772
 13827	045504	400000	000000
 13828	045505	200000	000000
 13829	045506	000000	000000
 13830	045507	000000	000000
 13831	045510	000000	000000
 13832	045511	045477	041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-39
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0298

 13833	045512	777777	777775
 13834	045513	400000	000000
 13835	045514	000000	000000
 13836	045515	000000	000000
 13837	045516	000000	000006
 13838	045517	000000	000000
 13839	045520	600000	000000
 13840	045521	400000	000000
 13841	045522	000000	000000
 13842	045523	000000	000000
 13843	045524	045512	041020
 13844	045525	777777	777775
 13845	045526	000000	000000
 13846	045527	000000	000000
 13847	045530	000000	000000
 13848	045531	000000	000006
 13849	045532	400000	000000
 13850	045533	600000	000000
 13851	045534	400000	000000
 13852	045535	000000	000000
 13853	045536	000000	000000
 13854	045537	045525	041020
 13855	045540	000000	000003
 13856	045541	400000	000000
 13857	045542	400000	000000
 13858	045543	000000	000000
 13859	045544	777777	777772
 13860	045545	400000	000000
 13861	045546	600000	000000
 13862	045547	400000	000000
 13863	045550	000000	000000
 13864	045551	000000	000000
 13865	045552	045540	041020
 13866	045553	000000	000003
 13867	045554	400000	000000
 13868	045555	000000	000000
 13869	045556	400000	000000
 13870	045557	777777	777772
 13871	045560	400000	000000
 13872	045561	600000	000000
 13873	045562	400000	000000
 13874	045563	000000	000000
 13875	045564	000000	000000
 13876	045565	045553	041020
 13877	045566	000000	000003
 13878	045567	000000	000000
 13879	045570	400000	000000
 13880	045571	400000	000000
 13881	045572	000000	000006
 13882	045573	400000	000000
 13883	045574	200000	000000
 13884	045575	000000	000000
 13885	045576	000000	000000
 13886	045577	000000	000000
 13887	045600	045566	041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-40
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0299

 13888	045601	000000	000003
 13889	045602	400000	000000
 13890	045603	400000	000000
 13891	045604	400000	000000
 13892	045605	000000	000006
 13893	045606	000000	000000
 13894	045607	200000	000000
 13895	045610	000000	000000
 13896	045611	000000	000000
 13897	045612	000000	000000
 13898	045613	045601	041020
 13899	045614	000000	000001
 13900	045615	000000	000000
 13901	045616	000000	000000
 13902	045617	000000	000000
 13903	045620	000000	000001
 13904	045621	000000	000001
 13905	045622	377777	777777
 13906	045623	000000	000000
 13907	045624	000000	000001
 13908	045625	000000	000000
 13909	045626	045614	041020
 13910	045627	64 45 63 64 00 46 
 13911	045630	00 15 00 61 65 57 
 13912	045631	64 51 45 56 64 17 
 13913	045632	62 45 55 41 51 56 
 13914	045633	44 45 62 00 51 56 
 13915	045634	43 57 62 62 45 43 
 13916	045635	64 77 00 00 00 00 
 13917	045636	044347	041301
 13918	045637	000013	000014
 13919	045640	045627	041230
 13920	045641	64 45 63 64 00 46 
 13921	045642	00 15 00 60 43 00 
 13922	045643	46 54 41 47 63 00 
 13923	045644	51 56 43 57 62 62 
 13924	045645	45 43 64 00 15 00 
 13925	045646	42 51 64 63 00 20 
 13926	045647	00 06 00 21 22 77 
 13927	045650	044347	041301
 13928	045651	000014	040775
 13929	045652	045641	041230
 13930	045653	000000	000001
 13931	045654	000000	000000
 13932	045655	000000	000000
 13933	045656	000000	000000
 13934	045657	777777	777776
 13935	045660	777777	777777
 13936	045661	400000	000001
 13937	045662	400000	000000
 13938	045663	000000	000001
 13939	045664	000000	000000
 13940	045665	045653	041020
 13941	045666	777777	777777
 13942	045667	400000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-41
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0300

 13943	045670	400000	000000
 13944	045671	400000	000000
 13945	045672	000000	000001
 13946	045673	000000	000001
 13947	045674	400000	000001
 13948	045675	400000	000000
 13949	045676	777777	777777
 13950	045677	400000	000000
 13951	045700	045666	041020
 13952	045701	777777	777777
 13953	045702	400000	000000
 13954	045703	400000	000000
 13955	045704	400000	000000
 13956	045705	777777	777776
 13957	045706	777777	777777
 13958	045707	377777	777777
 13959	045710	000000	000000
 13960	045711	777777	777777
 13961	045712	400000	000000
 13962	045713	045701	041020
 13963	045714	000000	000000
 13964	045715	377777	777777
 13965	045716	377777	777777
 13966	045717	377777	777777
 13967	045720	000000	000001
 13968	045721	000000	000000
 13969	045722	377777	777777
 13970	045723	377777	777777
 13971	045724	000000	000000
 13972	045725	377777	777777
 13973	045726	045714	041020
 13974	045727	000000	000000
 13975	045730	377777	777777
 13976	045731	377777	777777
 13977	045732	377777	777777
 13978	045733	777777	777777
 13979	045734	400000	000000
 13980	045735	400000	000000
 13981	045736	400000	000001
 13982	045737	000000	000000
 13983	045740	377777	777777
 13984	045741	045727	041020
 13985	045742	777777	777777
 13986	045743	400000	000000
 13987	045744	400000	000000
 13988	045745	400000	000001
 13989	045746	000000	000001
 13990	045747	000000	000000
 13991	045750	400000	000000
 13992	045751	400000	000001
 13993	045752	777777	777777
 13994	045753	400000	000001
 13995	045754	045742	041020
 13996	045755	777777	777777
 13997	045756	400000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-42
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0301

 13998	045757	400000	000000
 13999	045760	400000	000001
 14000	045761	777777	777777
 14001	045762	400000	000000
 14002	045763	377777	777777
 14003	045764	377777	777777
 14004	045765	777777	777777
 14005	045766	400000	000001
 14006	045767	045755	041020
 14007	045770	000000	000000
 14008	045771	000000	000000
 14009	045772	000000	000000
 14010	045773	000000	000001
 14011	045774	000000	000000
 14012	045775	000000	000000
 14013	045776	045770	041104
 14014	045777	64 45 63 64 00 47 
 14015	046000	00 15 00 44 51 66 
 14016	046001	51 44 45 56 44 00 
 14017	046002	43 50 41 56 47 45 
 14018	046003	44 00 57 56 00 57 
 14019	046004	66 17 56 57 44 51 
 14020	046005	66 77 00 00 00 00 
 14021	046006	044347	041301
 14022	046007	000013	000014
 14023	046010	045777	041230
 14024	046011	400040	000000
 14025	046012	64 45 63 64 00 47 
 14026	046013	00 15 00 60 43 00 
 14027	046014	46 54 41 47 63 00 
 14028	046015	51 56 43 57 62 62 
 14029	046016	45 43 64 00 15 00 
 14030	046017	42 51 64 63 00 20 
 14031	046020	06 21 22 77 00 00 
 14032	046021	044347	041301
 14033	046022	000014	041043
 14034	046023	046012	041230
 14035	046024	000000	000000
 14036	046025	000000	000000
 14037	046026	000000	000001
 14038	046027	000000	000000
 14039	046030	000000	000000
 14040	046031	000000	000000
 14041	046032	046024	041104
 14042	046033	000000	000000
 14043	046034	000000	000001
 14044	046035	000000	000000
 14045	046036	000000	000000
 14046	046037	000000	000000
 14047	046040	000000	000000
 14048	046041	046033	041104
 14049	046042	000000	000001
 14050	046043	000000	000000
 14051	046044	000000	000000
 14052	046045	000000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-43
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0302

 14053	046046	000000	000000
 14054	046047	000000	000000
 14055	046050	046042	041104
 14056	046051	777777	777777
 14057	046052	777777	777777
 14058	046053	777777	777777
 14059	046054	777777	777777
 14060	046055	000000	000000
 14061	046056	000000	000000
 14062	046057	046051	041104
 14063	046060	000000	000000
 14064	046061	000000	000001
 14065	046062	000000	000000
 14066	046063	000000	000000
 14067	046064	000000	000000
 14068	046065	000000	000001
 14069	046066	046060	041104
 14070	046067	000000	000000
 14071	046070	000000	000001
 14072	046071	000000	000000
 14073	046072	000000	000000
 14074	046073	777777	777777
 14075	046074	777777	777777
 14076	046075	046067	041104
 14077	046076	000000	000001
 14078	046077	000000	000000
 14079	046100	000000	000000
 14080	046101	000000	000000
 14081	046102	000000	000000
 14082	046103	000000	000001
 14083	046104	046076	041104
 14084	046105	000000	000001
 14085	046106	000000	000000
 14086	046107	000000	000000
 14087	046110	000000	000000
 14088	046111	777777	777777
 14089	046112	777777	777777
 14090	046113	046105	041104
 14091	046114	777777	777777
 14092	046115	777777	777777
 14093	046116	400000	000000
 14094	046117	400000	000000
 14095	046120	000000	000000
 14096	046121	000000	000001
 14097	046122	046114	041104
 14098	046123	777777	777777
 14099	046124	777777	777777
 14100	046125	400000	000000
 14101	046126	400000	000000
 14102	046127	777777	777777
 14103	046130	777777	777777
 14104	046131	046123	041104
 14105	046132	777777	777777
 14106	046133	400000	000000
 14107	046134	400000	000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-44
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0303

 14108	046135	400000	000000
 14109	046136	000000	000000
 14110	046137	000000	000001
 14111	046140	046132	041104
 14112	046141	777777	777777
 14113	046142	400000	000000
 14114	046143	400000	000000
 14115	046144	400000	000000
 14116	046145	777777	777777
 14117	046146	777777	777777
 14118	046147	046141	041104
 14119	046150	000000	000001
 14120	046151	000000	000000
 14121	046152	000000	000000
 14122	046153	000000	000000
 14123	046154	000000	000001
 14124	046155	000000	000000
 14125	046156	046150	041104
 14126	046157	000000	000001
 14127	046160	000000	000000
 14128	046161	000000	000000
 14129	046162	000000	000000
 14130	046163	777777	777777
 14131	046164	000000	000000
 14132	046165	046157	041104
 14133	046166	777777	777777
 14134	046167	400000	000000
 14135	046170	400000	000000
 14136	046171	400000	000000
 14137	046172	000000	000001
 14138	046173	000000	000000
 14139	046174	046166	041104
 14140	046175	777777	777777
 14141	046176	400000	000000
 14142	046177	400000	000000
 14143	046200	400000	000000
 14144	046201	777777	777777
 14145	046202	400000	000000
 14146	046203	046175	041104
 14147	046204	000000	000000
 14148	046205	377777	777777
 14149	046206	377777	777777
 14150	046207	377777	777777
 14151	046210	000000	000000
 14152	046211	377777	777777
 14153	046212	046204	041104
 14154	046213	000000	000000
 14155	046214	377777	777777
 14156	046215	377777	777777
 14157	046216	377777	777777
 14158	046217	777777	777777
 14159	046220	400000	000001
 14160	046221	046213	041104
 14161	046222	045733	041104
 14162	046223	777777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-45
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0304

 14163	046224	400000	000000
 14164	046225	400000	000000
 14165	046226	400000	000001
 14166	046227	777777	777777
 14167	046230	400000	000001
 14168	046231	046223	041104
 14169	046232	043303	041104
 14170	046233	000000	000001
 14171	046234	000000	000000
 14172	046235	377777	777777
 14173	046236	377777	777777
 14174	046237	777777	777777
 14175	046240	400000	000001
 14176	046241	046233	041104
 14177	046242	777777	777776
 14178	046243	777777	777777
 14179	046244	400000	000000
 14180	046245	400000	000001
 14181	046246	000000	000000
 14182	046247	377777	777777
 14183	046250	046242	041104
 14184	046251	777777	777776
 14185	046252	777777	777777
 14186	046253	400000	000000
 14187	046254	400000	000001
 14188	046255	777777	777777
 14189	046256	400000	000001
 14190	046257	046251	041104
 14191	046260	400000	000000
 14192	046261	400000	000000
 14193	046262	400000	000000
 14194	046263	400000	000000
 14195	046264	400000	000000
 14196	046265	400000	000000
 14197	046266	046260	041104
 14198	046267	377777	777777
 14199	046270	377777	777777
 14200	046271	377777	777777
 14201	046272	377777	777777
 14202	046273	377777	777777
 14203	046274	377777	777777
 14204	046275	046267	041104
 14205	046276	377777	777777
 14206	046277	377777	777777
 14207	046300	377777	777777
 14208	046301	377777	777777
 14209	046302	400000	000000
 14210	046303	400000	000001
 14211	046304	046276	041104
 14212	046305	400000	000000
 14213	046306	400000	000001
 14214	046307	400000	000000
 14215	046310	400000	000000
 14216	046311	377777	777777
 14217	046312	377777	777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-46
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0305

 14218	046313	046305	041104
 14219	046314	000000	000001
 14220	046315	400000	000000
 14221	046316	777777	777777
 14222	046317	777777	777777
 14223	046320	000000	000000
 14224	046321	377777	777777
 14225	046322	046314	041104
 14226	046323	000000	000001
 14227	046324	000000	000000
 14228	046325	377777	777777
 14229	046326	377777	777777
 14230	046327	777777	777777
 14231	046330	000000	000001
 14232	046331	046323	041104
 14233	046332	777777	777776
 14234	046333	377777	777777
 14235	046334	000000	000000
 14236	046335	000000	000001
 14237	046336	000000	000000
 14238	046337	777777	777777
 14239	046340	046332	041104
 14240	046341	777777	777776
 14241	046342	777777	777777
 14242	046343	000000	000000
 14243	046344	000000	000001
 14244	046345	777777	777777
 14245	046346	400000	000001
 14246	046347	046341	041104
 14247	046350	040756	040760
 14248	046351	041020	041024
 14249	046352	000000	040773
 14250	046353	041104	041110
 14251	046354	000000	041041
 14252	046355	41 65 47 45 56 44 
 14253	046356	32 00 00 77 00 00 
 14254	046357	41 44 44 45 56 44 
 14255	046360	32 00 00 77 00 00 
 14256	046361	62 45 63 65 54 64 
 14257	046362	32 00 00 77 00 00 
 14258	046363	55 51 56 65 45 56 
 14259	046364	44 32 00 00 00 00 
 14260	046365	00 77 00 00 00 00 
 14261	046366	63 65 42 64 62 41 
 14262	046367	50 45 56 44 32 00 
 14263	046370	00 77 00 00 00 00 
 14264	046371	62 45 63 65 54 64 
 14265	046372	32 00 00 00 00 00 
 14266	046373	00 77 00 00 00 00 
 14267	046374	55 65 54 64 51 60 
 14268	046375	54 51 43 41 56 44 
 14269	046376	32 00 00 77 00 00 
 14270	046377	55 65 54 64 51 60 
 14271	046400	54 51 45 62 32 00 
 14272	046401	00 00 00 77 00 00 
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1	MACRO %53(1020) 16:43 26-Sep-79 Page 1-47
STOR	KLM	18-Sep-79 17:18		*STOR* RESERVED STORAGE, SEPT 18,1979                                              SEQ 0306

 14273	046402	62 45 63 65 54 64 
 14274	046403	32 00 00 00 00 00 
 14275	046404	00 00 00 77 00 00 
 14276	046405	44 51 66 51 44 45 
 14277	046406	56 44 32 00 00 77 
 14278	046407	44 51 66 51 63 57 
 14279	046410	62 32 00 00 00 77 
 14280	046411	61 65 57 64 51 45 
 14281	046412	56 64 32 00 00 77 
 14282	046413	00 00 62 45 55 41 
 14283	046414	51 56 44 45 62 32 
 14284	046415	00 00 77 00 00 00 
 14285						LIST
 14286	051657	000000	000000		ENDSLD:	0
 14287
 14288					IFDEF	DEBUG,<
 14289	051660				PATCH:	BLOCK DEBUG		;PATCHING AREA
 14290					>
 14291
 14292					;PROGRAM VARIABLES
 14293	051710					VAR
 14294
 14295					IFDEF	PGMEND,<
 14296	051710	000000	000000		END:	0
 14297			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 051711
CPU TIME USED 01:16.770

78P CORE USED

ABORT	   295#
AC1	    34#	   952	   953	   957	   960	   964	   977	   978	   982	   985	   989	  1002	  1003	  1007     SEQ 0307
	  1010	  1014	  1027	  1028	  1032	  1035	  1039	  1052	  1053	  1057	  1060	  1064	  1077	  1078
	  1082	  1085	  1089	  1102	  1103	  1107	  1110	  1114	  1181	  1182	  1186	  1189	  1193	  1202
	  1204	  1208	  1211	  1215	  1238	  1239	  1243	  1246	  1250	  1259	  1261	  1265	  1268	  1272
	  1295	  1296	  1300	  1303	  1307	  1316	  1318	  1322	  1325	  1329	  1352	  1353	  1357	  1360
	  1364	  1373	  1375	  1379	  1382	  1386	  1409	  1410	  1414	  1417	  1421	  1430	  1432	  1436
	  1439	  1443	  1466	  1467	  1471	  1474	  1478	  1487	  1489	  1493	  1496	  1500	  1523	  1524
	  1528	  1531	  1535	  1544	  1546	  1550	  1553	  1557	  1580	  1581	  1585	  1588	  1592	  1601
	  1603	  1607	  1610	  1614	  1644	  1649	  1651	  1652	  1653	  1655	  1658	  1661	  1665	  1679
	  1695	  1696	  1700	  1703	  1707	  1720	  1721	  1725	  1728	  1732	  1779	  1783	  1792	  1795
	  1799	  1826	  1830	  1839	  1842	  1846	  1873	  1877	  1886	  1889	  1893	  1920	  1924	  1933
	  1936	  1940	  1967	  1971	  1980	  1983	  1987	  2014	  2018	  2027	  2030	  2034	  2135	  2137
	  2148	  2151	  2155	  2185	  2187	  2198	  2201	  2205	  2235	  2237	  2248	  2251	  2255	  2285
	  2287	  2298	  2301	  2305	  2335	  2337	  2348	  2351	  2355	  2385	  2387	  2398	  2401	  2405
	  2454	  2456	  2465	  2468	  2472	  2501	  2503	  2512	  2515	  2519	  2548	  2550	  2559	  2562
	  2566	  2595	  2597	  2606	  2609	  2613	  2642	  2644	  2653	  2656	  2660	  2689	  2691	  2700
	  2703	  2707	  2756	  2758	  2767	  2770	  2774	  2803	  2805	  2814	  2817	  2821	  2850	  2852
	  2861	  2864	  2868	  2897	  2899	  2908	  2911	  2915	  2944	  2946	  2955	  2958	  2962	  2991
	  2993	  3002	  3005	  3009	  3058	  3060	  3069	  3072	  3076	  3105	  3107	  3116	  3119	  3123
	  3152	  3154	  3163	  3166	  3170	  3199	  3201	  3210	  3213	  3217	  3246	  3248	  3257	  3260
	  3264	  3293	  3295	  3304	  3307	  3311	  3360	  3362	  3371	  3374	  3378	  3407	  3409	  3418
	  3421	  3425	  3454	  3456	  3465	  3468	  3472	  3501	  3503	  3512	  3515	  3519	  3548	  3550
	  3559	  3562	  3566	  3595	  3597	  3606	  3609	  3613	  3816	  3818	  3827	  3830	  3834	  3863
	  3865	  3874	  3877	  3881	  3910	  3912	  3921	  3924	  3928	  3957	  3959	  3968	  3971	  3975
	  4004	  4006	  4015	  4018	  4022	  4051	  4053	  4062	  4065	  4069	  4098	  4100	  4109	  4112
	  4116	  4145	  4147	  4156	  4159	  4163	  4260	  4261	  4265	  4268	  4272	  4285	  4286	  4290
	  4293	  4297	  4310	  4311	  4315	  4318	  4322	  4335	  4336	  4340	  4343	  4347	  4360	  4361
	  4365	  4368	  4372	  4385	  4386	  4390	  4393	  4397	  4441	  4468	  4472	  4477	  4484	  4487
	  4491	  4598	  4599	  4603	  4606	  4610	  4625	  4626	  4630	  4633	  4637	  4652	  4653	  4657
	  4660	  4664	  4679	  4680	  4684	  4687	  4691	  4706	  4707	  4711	  4714	  4718	  4733	  4734
	  4738	  4741	  4745	  4777	  4778	  4782	  4785	  4789	  4804	  4805	  4809	  4812	  4816	  4831
	  4832	  4836	  4839	  4843	  4858	  4859	  4863	  4866	  4870	  4885	  4886	  4890	  4893	  4897
	  4912	  4913	  4917	  4920	  4924	  4956	  4957	  4961	  4964	  4968	  4983	  4984	  4988	  4991
	  4995	  5010	  5011	  5015	  5018	  5022	  5037	  5038	  5042	  5045	  5049	  5064	  5065	  5069
	  5072	  5076	  5091	  5092	  5096	  5099	  5103	  5135	  5136	  5140	  5143	  5147	  5162	  5163
	  5167	  5170	  5174	  5189	  5190	  5194	  5197	  5201	  5216	  5217	  5221	  5224	  5228	  5243
	  5244	  5248	  5251	  5255	  5270	  5271	  5275	  5278	  5282	  5314	  5315	  5319	  5322	  5326
	  5341	  5342	  5346	  5349	  5353	  5368	  5369	  5373	  5376	  5380	  5395	  5396	  5400	  5403
	  5407	  5422	  5423	  5427	  5430	  5434	  5449	  5450	  5454	  5457	  5461	  5691	  5693	  5702
	  5705	  5709	  5741	  5743	  5752	  5755	  5759	  5791	  5793	  5802	  5805	  5809	  5841	  5843
	  5852	  5855	  5859	  5891	  5893	  5902	  5905	  5909	  5941	  5943	  5952	  5955	  5959	  5991
	  5993	  6002	  6005	  6009	  6041	  6043	  6052	  6055	  6059	  6148	  6149	  6167	  6168	  6186
	  6187	  6205	  6206	  6224	  6225	  6243	  6244	  6262	  6263	  6281	  6282	  6300	  6301	  6319
	  6320	  6338	  6339	  6357	  6358	  6376	  6377	  6407	  6408	  6426	  6427	  6445	  6446	  6464
	  6465	  6483	  6484	  6502	  6503	  6521	  6522	  6540	  6541	  6559	  6560	  6578	  6579	  6597
	  6598	  6616	  6617	  6654	  6655	  6681	  6682	  6708	  6710	  6736	  6738	  6764	  6765	  6791
	  6792	  6818	  6820	  6846	  6847	  6873	  6874	  6900	  6902	  6928	  6929	  6955	  6956	  6982
	  6984	  7010	  7012	  7038	  7039	  7065	  7066	  7092	  7094	  7120	  7121	  7147	  7148	  7174
	  7176	  7221	  7222	  7248	  7249	  7275	  7277	  7303	  7305	  7331	  7332	  7358	  7359	  7386
	  7388	  7414	  7415	  7441	  7442	  7469	  7471	  7497	  7498	  7524	  7525	  7551	  7553	  7579
	  7581	  7607	  7608	  7634	  7635	  7662	  7664	  7690	  7691	  7717	  7718	  7745	  7747	  7779
	  7780	  7784	  7790	  7793	  7796	  7799	  7801	  7810	  7837	  7838	  7864	  7865	  7891	  7892
	  7918	  7919	  7955	  7956	  7982	  7983	  8009	  8010	  8036	  8037	  8063	  8064	  8090	  8091
	  8117	  8118	  8144	  8145	  8171	  8172	  8198	  8199	  8225	  8226	  8252	  8253	  8279	  8280     SEQ 0308
	  8306	  8307	  8333	  8334	  8360	  8361	  8387	  8388	  8414	  8416	  8442	  8444	  8470	  8471
	  8497	  8498	  8524	  8525	  8551	  8552	  8578	  8579	  8618	  8619	  8638	  8639	  8668	  8669
	  8688	  8689	  8722	  8723	  8742	  8743	  8762	  8763	  8782	  8783	  8802	  8803	  8822	  8823
	  8842	  8843	  8862	  8863	  8882	  8883	  8902	  8903	  8922	  8923	  8942	  8943	  8962	  8963
	  8982	  8983	  9002	  9003	  9022	  9023	  9042	  9043	  9062	  9063	  9082	  9083	  9102	  9103
	  9122	  9123	  9142	  9143	  9162	  9163	  9182	  9183	  9217	  9219	  9247	  9249	  9276	  9278
	  9306	  9308	  9336	  9338	  9366	  9368	  9397	  9399	  9427	  9429	  9457	  9459	  9487	  9489
	  9517	  9519	  9559	  9561	  9588	  9589	  9616	  9618	  9645	  9646	  9673	  9674	  9701	  9702
	  9729	  9730	  9757	  9758	  9785	  9786	  9813	  9814	  9841	  9842	  9869	  9870	  9897	  9898
	  9925	  9926	  9953	  9954	  9981	  9982	 10026	 10027	 10054	 10055	 10082	 10083	 10110	 10111
	 10139	 10141	 10169	 10171	 10198	 10200	 10228	 10230	 10298	 10299	 10328	 10329	 10358	 10359
	 10388	 10389	 10418	 10419	 10448	 10449	 10478	 10479	 10508	 10509	 10538	 10539	 10568	 10569
	 10598	 10599	 10628	 10629	 10658	 10659	 10688	 10689	 10718	 10719	 10748	 10749	 10778	 10779
	 10808	 10809	 10838	 10840	 10869	 10870	 10899	 10900	 10929	 10930	 10959	 10960	 10989	 10990
	 11019	 11020	 11049	 11050	 11080	 11082	 11111	 11113	 11142	 11143	 11173	 11174	 11204	 11205
	 11235	 11236	 11266	 11267	 11298	 11299	 11303	 11309	 11313	 11317	 11321	 11324	 11346	 11347
	 11351	 11357	 11361	 11365	 11369	 11372	 11406	 11407	 11408	 11409	 11413	 11428	 11432	 11436
	 11440	 11443	 11451	 11452	 11453	 11492	 11495	 11529	 11532	 11566	 11569	 11572	 11575	 11617
	 11620	 11625	 11628
ACONE	  1757	  2058#
ACONF1	  2108	  3638#
ACONF2	  2432	  3662#
ACONF3	  2734	  3687#
ACONF4	  3036	  3711#
ACONF5	  3338	  3736#
ACONG	  3790	  3814	  3861	  3908	  3955	  4002	  4049	  4096	  4143	  4191#
ADADDI	  1674	  1678	  1679#
ADATA	  1649	  1650	  1653	  1676#
AENDB	  1626#
AENDD	  2056	  2082#
AENDF	  3636	  3760#
AENDG	  4185	  4239#
AERR	  1659	  1664#
AERRC	  1662	  1666#
ALEFT	  1175#	  1180	  1181	  1186	  1194	  1203	  1204	  1208	  1216	  1232#	  1237	  1238	  1243	  1251
	  1260	  1261	  1265	  1273	  1289#	  1294	  1295	  1300	  1308	  1317	  1318	  1322	  1330	  1346#
	  1351	  1352	  1357	  1365	  1374	  1375	  1379	  1387	  1403#	  1405	  1405#	  1408	  1409	  1414
	  1422	  1431	  1432	  1436	  1444	  1460#	  1462	  1462#	  1465	  1466	  1471	  1479	  1488	  1489
	  1493	  1501	  1517#	  1519	  1519#	  1522	  1523	  1528	  1536	  1545	  1546	  1550	  1558	  1574#
	  1576	  1576#	  1579	  1580	  1585	  1593	  1602	  1603	  1607	  1615
ALOOP	  1646#	  1673
ALTMGO	   649#
ANXM	   563#
APRINT	   967	   992	  1017	  1042	  1067	  1092	  1117	  1196	  1218	  1253	  1275	  1310	  1332	  1367
	  1389	  1424	  1446	  1481	  1503	  1538	  1560	  1595	  1617	  1667	  1710	  1735	  1802	  1815
	  1849	  1862	  1896	  1909	  1943	  1956	  1990	  2003	  2037	  2050	  2158	  2172	  2208	  2222
	  2258	  2272	  2308	  2322	  2358	  2372	  2408	  2422	  2475	  2489	  2522	  2536	  2569	  2583
	  2616	  2630	  2663	  2677	  2710	  2724	  2777	  2791	  2824	  2838	  2871	  2885	  2918	  2932
	  2965	  2979	  3012	  3026	  3079	  3093	  3126	  3140	  3173	  3187	  3220	  3234	  3267	  3281
	  3314	  3328	  3381	  3395	  3428	  3442	  3475	  3489	  3522	  3536	  3569	  3583	  3616	  3630
	  3837	  3850	  3884	  3897	  3931	  3944	  3978	  3991	  4025	  4038	  4072	  4085	  4119	  4132
	  4166	  4179	 11468#
ARIGHT	  1176#	  1180	  1181	  1189	  1194	  1203	  1204	  1211	  1216	  1233#	  1237	  1238	  1246	  1251     SEQ 0309
	  1260	  1261	  1268	  1273	  1290#	  1294	  1295	  1303	  1308	  1317	  1318	  1325	  1330	  1347#
	  1351	  1352	  1360	  1365	  1374	  1375	  1382	  1387	  1404#	  1406	  1406#	  1408	  1409	  1417
	  1422	  1431	  1432	  1439	  1444	  1461#	  1463	  1463#	  1465	  1466	  1474	  1479	  1488	  1489
	  1496	  1501	  1518#	  1520	  1520#	  1522	  1523	  1531	  1536	  1545	  1546	  1553	  1558	  1575#
	  1577	  1577#	  1579	  1580	  1588	  1593	  1602	  1603	  1610	  1615
AROV	   563#	  1811	  1858	  1905	  1952	  1999	  2046	  2167	  2217	  2267	  2317	  2367	  2417	  2484
	  2531	  2578	  2625	  2672	  2719	  2786	  2833	  2880	  2927	  2974	  3021	  3088	  3135	  3182
	  3229	  3276	  3323	  3390	  3437	  3484	  3531	  3578	  3625	  3846	  3893	  3940	  3987	  4034
	  4081	  4128	  4175	  4522	  5722	  5772	  5822	  5872	  5922	  5972	  6022	  6072	  6663	  6690
	  6718	  6746	  6773	  6800	  6828	  6855	  6882	  6910	  6937	  6964	  6992	  7020	  7047	  7074
	  7102	  7129	  7156	  7184	  7230	  7257	  7285	  7313	  7340	  7367	  7396	  7423	  7450	  7479
	  7506	  7533	  7561	  7589	  7616	  7643	  7672	  7699	  7726	  7755	  7846	  7873	  7900	  7927
	  7964	  7991	  8018	  8045	  8072	  8099	  8126	  8153	  8180	  8207	  8234	  8261	  8288	  8315
	  8342	  8369	  8396	  8424	  8452	  8479	  8506	  8533	  8560	  8587	  9227	  9257	  9286	  9316
	  9346	  9376	  9407	  9437	  9467	  9497	  9527	  9569	  9597	  9626	  9654	  9682	  9710	  9738
	  9766	  9794	  9822	  9850	  9878	  9906	  9934	  9962	  9990	 10035	 10063	 10091	 10119	 10149
	 10179	 10208	 10238	 10307	 10309	 10337	 10339	 10367	 10369	 10397	 10399	 10427	 10429	 10457
	 10459	 10487	 10489	 10517	 10519	 10547	 10549	 10577	 10579	 10607	 10609	 10637	 10639	 10667
	 10669	 10697	 10699	 10727	 10729	 10757	 10759	 10787	 10789	 10817	 10819	 10848	 10850	 10878
	 10880	 10908	 10910	 10938	 10940	 10968	 10970	 10998	 11000	 11028	 11030	 11058	 11060	 11090
	 11092	 11121	 11123	 11151	 11153	 11182	 11184	 11213	 11215	 11244	 11246	 11275	 11277
AROVU	   563#
ASHIFT	  1646	  1647	  1678#
AST	   764#
ATEST1	   951#	   968
ATEST2	   976#	   993
ATEST3	  1001#	  1018
ATEST4	  1026#	  1043
ATEST5	  1051#	  1068
ATEST6	  1076#	  1093
ATEST7	  1101#	  1118
ATSIN	   765#
ATSTD1	  1694#	  1711
ATSTD2	  1719#	  1736
BDONE	  4453	  4553#
BDONEI	  4503	  4506	  4510	  4517#
BEGEND	   645#	 11286
BEGIN	    54	    55	    56	    57	    58	   510	   511	   576#	 14297
BEGIN1	   592#	   646
BELL	   768#
BERROR	  4485	  4490#
BFLAG	  4488	  4497#
BFSET	  4505#	  4512	  4515
BIS	   563#
BSAME	  4501	  4508#
BTESTB	  4468#	  4494	  4528
CCA	   563#
CHAIN	   315#
CHNOFF	   563#
CHNON	   563#
CLK	   563#
CLKCLR	   563#
CLKDIS	   563#                                                                                                            SEQ 0310
CLKENB	   563#
CLKU	   563#
CLOCKF	   631#
CNT	    37#	  1643	  1646	  1671	  1672
CNTLC	   648#
CNUM	  1757#	  1778	  1778#	  1779	  1781	  1792	  1795	  1800	  1825	  1825#	  1826	  1828	  1839	  1842
	  1847	  1872	  1872#	  1873	  1875	  1886	  1889	  1894	  1919	  1919#	  1920	  1922	  1933	  1936
	  1941	  1966	  1966#	  1967	  1969	  1980	  1983	  1988	  2013	  2013#	  2014	  2016	  2027	  2030
	  2035	  2108#	  2133	  2133#	  2134	  2135	  2137	  2183	  2183#	  2184	  2185	  2187	  2233	  2233#
	  2234	  2235	  2237	  2283	  2283#	  2284	  2285	  2287	  2333	  2333#	  2334	  2335	  2337	  2383
	  2383#	  2384	  2385	  2387	  2432#	  2452	  2452#	  2453	  2454	  2456	  2499	  2499#	  2500	  2501
	  2503	  2546	  2546#	  2547	  2548	  2550	  2593	  2593#	  2594	  2595	  2597	  2640	  2640#	  2641
	  2642	  2644	  2687	  2687#	  2688	  2689	  2691	  2734#	  2754	  2754#	  2755	  2756	  2758	  2801
	  2801#	  2802	  2803	  2805	  2848	  2848#	  2849	  2850	  2852	  2895	  2895#	  2896	  2897	  2899
	  2942	  2942#	  2943	  2944	  2946	  2989	  2989#	  2990	  2991	  2993	  3036#	  3056	  3056#	  3057
	  3058	  3060	  3103	  3103#	  3104	  3105	  3107	  3150	  3150#	  3151	  3152	  3154	  3197	  3197#
	  3198	  3199	  3201	  3244	  3244#	  3245	  3246	  3248	  3291	  3291#	  3292	  3293	  3295	  3338#
	  3358	  3358#	  3359	  3360	  3362	  3405	  3405#	  3406	  3407	  3409	  3452	  3452#	  3453	  3454
	  3456	  3499	  3499#	  3500	  3501	  3503	  3546	  3546#	  3547	  3548	  3550	  3593	  3593#	  3594
	  3595	  3597	  3790#	  3812	  3812#	  3814	  3815	  3816	  3818	  3827	  3830	  3835	  3859	  3859#
	  3861	  3862	  3863	  3865	  3874	  3877	  3882	  3906	  3906#	  3908	  3909	  3910	  3912	  3921
	  3924	  3929	  3953	  3953#	  3955	  3956	  3957	  3959	  3968	  3971	  3976	  4000	  4000#	  4002
	  4003	  4004	  4006	  4015	  4018	  4023	  4047	  4047#	  4049	  4050	  4051	  4053	  4062	  4065
	  4070	  4094	  4094#	  4096	  4097	  4098	  4100	  4109	  4112	  4117	  4141	  4141#	  4143	  4144
	  4145	  4147	  4156	  4159	  4164	  4579#	  4596	  4596#	  4597	  4598	  4599	  4603	  4606	  4611
	  4623	  4623#	  4624	  4625	  4626	  4630	  4633	  4638	  4650	  4650#	  4651	  4652	  4653	  4657
	  4660	  4665	  4677	  4677#	  4678	  4679	  4680	  4684	  4687	  4692	  4704	  4704#	  4705	  4706
	  4707	  4711	  4714	  4719	  4731	  4731#	  4732	  4733	  4734	  4738	  4741	  4746	  4758#	  4775
	  4775#	  4776	  4777	  4778	  4782	  4785	  4790	  4802	  4802#	  4803	  4804	  4805	  4809	  4812
	  4817	  4829	  4829#	  4830	  4831	  4832	  4836	  4839	  4844	  4856	  4856#	  4857	  4858	  4859
	  4863	  4866	  4871	  4883	  4883#	  4884	  4885	  4886	  4890	  4893	  4898	  4910	  4910#	  4911
	  4912	  4913	  4917	  4920	  4925	  4937#	  4954	  4954#	  4955	  4956	  4957	  4961	  4964	  4969
	  4981	  4981#	  4982	  4983	  4984	  4988	  4991	  4996	  5008	  5008#	  5009	  5010	  5011	  5015
	  5018	  5023	  5035	  5035#	  5036	  5037	  5038	  5042	  5045	  5050	  5062	  5062#	  5063	  5064
	  5065	  5069	  5072	  5077	  5089	  5089#	  5090	  5091	  5092	  5096	  5099	  5104	  5116#	  5133
	  5133#	  5134	  5135	  5136	  5160	  5160#	  5161	  5162	  5163	  5187	  5187#	  5188	  5189	  5190
	  5214	  5214#	  5215	  5216	  5217	  5241	  5241#	  5242	  5243	  5244	  5268	  5268#	  5269	  5270
	  5271	  5295#	  5312	  5312#	  5313	  5314	  5315	  5339	  5339#	  5340	  5341	  5342	  5366	  5366#
	  5367	  5368	  5369	  5393	  5393#	  5394	  5395	  5396	  5420	  5420#	  5421	  5422	  5423	  5447
	  5447#	  5448	  5449	  5450	  5658#	  5686	  5686#	  5690	  5691	  5693	  5716	  5736	  5736#	  5740
	  5741	  5743	  5766	  5786	  5786#	  5790	  5791	  5793	  5816	  5836	  5836#	  5840	  5841	  5843
	  5866	  5886	  5886#	  5890	  5891	  5893	  5916	  5936	  5936#	  5940	  5941	  5943	  5966	  5986
	  5986#	  5990	  5991	  5993	  6016	  6036	  6036#	  6040	  6041	  6043	  6066
COMMA	   757#
CONSW	   632#
CPOPJ	   652#
CPOPJ1	   650#
CRLF	   445	   446	   752#
CRLF2	   449	   450	   754#
CRY0	   563#
CRY1	   563#
CSHFLG	   811#
CSHMEM	   812#                                                                                                            SEQ 0311
CYCL60	   805#
DCK	   563#	  9227	  9257	  9286	  9316	  9346	  9376	  9407	  9437	  9467	  9497	  9527	  9569	  9597
	  9626	  9654	  9682	  9710	  9738	  9766	  9794	  9822	  9850	  9878	  9906	  9934	  9962	  9990
	 10035	 10063	 10091	 10119	 10149	 10179	 10208	 10238	 10307	 10337	 10367	 10397	 10427	 10457
	 10487	 10517	 10547	 10577	 10607	 10637	 10667	 10697	 10727	 10757	 10787	 10817	 10848	 10878
	 10908	 10938	 10968	 10998	 11028	 11058	 11090	 11121	 11151	 11182	 11213	 11244	 11275
DDTLNK	   329#	   590
DDTSRT	   590#
DEBUG	    72#	 14288	 14289
DECVER	     4#	    10	    16	   611
DF22F	   716#
DIAGMN	   579#
DING	   301#
DOLLAR	   771#
DPRINT	  8622	  8642	  8672	  8692	  8726	  8746	  8766	  8786	  8806	  8826	  8846	  8866	  8886	  8906
	  8926	  8946	  8966	  8986	  9006	  9026	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186
	  9222	  9230	  9252	  9260	  9281	  9289	  9311	  9319	  9341	  9349	  9371	  9379	  9402	  9410
	  9432	  9440	  9462	  9470	  9492	  9500	  9522	  9530	  9564	  9572	  9592	  9600	  9621	  9629
	  9649	  9657	  9677	  9685	  9705	  9713	  9733	  9741	  9761	  9769	  9789	  9797	  9817	  9825
	  9845	  9853	  9873	  9881	  9901	  9909	  9929	  9937	  9957	  9965	  9985	  9993	 10030	 10038
	 10058	 10066	 10086	 10094	 10114	 10122	 10144	 10152	 10174	 10182	 10203	 10211	 10233	 10241
	 10302	 10313	 10332	 10343	 10362	 10373	 10392	 10403	 10422	 10433	 10452	 10463	 10482	 10493
	 10512	 10523	 10542	 10553	 10572	 10583	 10602	 10613	 10632	 10643	 10662	 10673	 10692	 10703
	 10722	 10733	 10752	 10763	 10782	 10793	 10812	 10823	 10843	 10854	 10873	 10884	 10903	 10914
	 10933	 10944	 10963	 10974	 10993	 11004	 11023	 11034	 11053	 11064	 11085	 11096	 11116	 11127
	 11146	 11157	 11177	 11188	 11208	 11219	 11239	 11250	 11270	 11281	 11585#
DSKUPD	   616
END	 14296#
ENDFIX	   891#
ENDSLD	 14286#
ERMORE	   665#
ERRPC	   636#
ERRTLS	   637#
ERSTOP	   304#
EXCASB	    70#	   614
EXIOT	   563#
FIVE	  9203#	  9336	  9366	  9457	  9487	  9517
FLAGL	  1786#	  1808	  1815	  1833#	  1855	  1862	  1880#	  1902	  1909	  1927#	  1949	  1956	  1974#	  1996
	  2003	  2021#	  2043	  2050	  2140#	  2164	  2172	  2190#	  2214	  2222	  2240#	  2264	  2272	  2290#
	  2314	  2322	  2340#	  2364	  2372	  2390#	  2414	  2422	  2459#	  2481	  2489	  2506#	  2528	  2536
	  2553#	  2575	  2583	  2600#	  2622	  2630	  2647#	  2669	  2677	  2694#	  2716	  2724	  2761#	  2783
	  2791	  2808#	  2830	  2838	  2855#	  2877	  2885	  2902#	  2924	  2932	  2949#	  2971	  2979	  2996#
	  3018	  3026	  3063#	  3085	  3093	  3110#	  3132	  3140	  3157#	  3179	  3187	  3204#	  3226	  3234
	  3251#	  3273	  3281	  3298#	  3320	  3328	  3365#	  3387	  3395	  3412#	  3434	  3442	  3459#	  3481
	  3489	  3506#	  3528	  3536	  3553#	  3575	  3583	  3600#	  3622	  3630	  3821#	  3843	  3850	  3868#
	  3890	  3897	  3915#	  3937	  3944	  3962#	  3984	  3991	  4009#	  4031	  4038	  4056#	  4078	  4085
	  4103#	  4125	  4132	  4150#	  4172	  4179	  4481#	  4497	  4519	  4527	  5696#	  5719	  5726	  5746#
	  5769	  5776	  5796#	  5819	  5826	  5846#	  5869	  5876	  5896#	  5919	  5926	  5946#	  5969	  5976
	  5996#	  6019	  6026	  6046#	  6069	  6076	  7787#	  7810
FLAGS	  3792#	  3844	  3891	  3938	  3985	  4002#	  4032	  4079	  4126	  4173	  5662#	  5720	  5770	  5820
	  5870	  5888#	  5920	  5938#	  5970	  5988#	  6020	  6038#	  6070
FOUR	  9202#	  9217	  9247	  9306	  9427	  9457	  9487
FOV	   563#                                                                                                            SEQ 0312
FOVU	   563#
FRDLNK	   327#
FSELNK	   326#
FXU	   563#
HYPEN	   762#
ILOOP	  4457#	  4531
IMINU	  4454	  4468	  4499	  4502	  4508	  4551#
INHCSH	   312#
INHPAG	   309#
INXM	   563#
IOCLR	   563#
ISUBTR	  4460	  4469	  4477	  4498	  4509	  4511	  4513	  4514	  4552#
ITERAT	    59#	   609
ITRCH1	   669#
ITRCNT	   609#
JOB41	   563#
JOBAPR	   563#
JOBCNI	   563#
JOBDDT	   563#
JOBFF	   563#
JOBOPC	   563#
JOBREL	   563#
JOBREN	   563#
JOBSA	   563#
JOBSYM	   563#
JOBTPC	   563#
JOBUSY	   563#
JOBUUO	   563#
JOBVER	   563#
K	  9388#	  9397
KA10	   563
KAHZ50	   317#
KAIFLG	   626#
KI10	   563
KL10	    67#	   563
KL10P0	    68#	   563
KLFLG	   627#
KLOLD	   525
LAPRAL	   563#
LAPRP1	   563#
LAPRP2	   563#
LAPRP3	   563#
LAPRP4	   563#
LAPRP5	   563#
LAPRP6	   563#
LAPRP7	   563#
LAROVT	   563#
LCADEN	   563#
LCADRP	   563#
LCASDE	   563#
LCASLD	   563#
LCASLO	   563#
LCASWB	   563#                                                                                                            SEQ 0313
LCASWD	   563#
LCCAER	   563#
LCCASD	   563#
LCHNOF	   563#
LCHNON	   563#
LCIOPF	   563#
LCNTRP	   563#
LCNTXT	   563#
LCNXER	   563#
LCPAER	   563#
LCPWRF	   563#
LCSAER	   563#
LCSBER	   563#
LCSLOA	   563#
LCSLOO	   563#
LCTRP	   563#
LCWSX	   563#
LDATAF	   563#
LDCAER	   563#
LDCASD	   563#
LDIOPF	   563#
LDLNK	   328#	   579	   581
LDNXER	   563#
LDPAER	   563#
LDPWRF	   563#
LDSAER	   563#
LDSBER	   563#
LEBXMH	   563#
LEBXML	   563#
LECAER	   563#
LECASD	   563#
LEIOPF	   563#
LENXER	   563#
LEPAER	   563#
LEPWRF	   563#
LESAER	   563#
LESBER	   563#
LEUPFW	   563#
LEVNCD	   563#
LEVNPA	   563#
LEVNPD	   563#
LEXCMP	   563#
LFLGCL	   563#
LFLGDS	   563#
LFLGEN	   563#
LFLGST	   563#
LFP	   766#
LINSTF	   563#
LINT	   563#
LIOCLR	   563#
LIOPFE	   563#
LKNTRP	   563#
LKTRP	   563#                                                                                                            SEQ 0314
LLACBL	   563#
LLDUSB	   563#
LLPRCN	   563#
LMBXMH	   563#
LMBXML	   563#
LMUUO	   563#
LMUUOP	   563#
LNXMEN	   563#
LNXMER	   563#
LOC	  1174#	  1197	  1201#	  1219	  1231#	  1254	  1258#	  1276	  1288#	  1311	  1315#	  1333	  1345#	  1368
	  1372#	  1390	  1402#	  1425	  1429#	  1447	  1459#	  1482	  1486#	  1504	  1516#	  1539	  1543#	  1561
	  1573#	  1596	  1600#	  1618	  1668	  1777#	  1803	  1816	  1824#	  1850	  1863	  1871#	  1897	  1910
	  1918#	  1944	  1957	  1965#	  1991	  2004	  2012#	  2038	  2051	  2131#	  2159	  2173	  2181#	  2209
	  2223	  2231#	  2259	  2273	  2281#	  2309	  2323	  2331#	  2359	  2373	  2381#	  2409	  2423	  2451#
	  2476	  2490	  2498#	  2523	  2537	  2545#	  2570	  2584	  2592#	  2617	  2631	  2639#	  2664	  2678
	  2686#	  2711	  2725	  2753#	  2778	  2792	  2800#	  2825	  2839	  2847#	  2872	  2886	  2894#	  2919
	  2933	  2941#	  2966	  2980	  2988#	  3013	  3027	  3055#	  3080	  3094	  3102#	  3127	  3141	  3149#
	  3174	  3188	  3196#	  3221	  3235	  3243#	  3268	  3282	  3290#	  3315	  3329	  3357#	  3382	  3396
	  3404#	  3429	  3443	  3451#	  3476	  3490	  3498#	  3523	  3537	  3545#	  3570	  3584	  3592#	  3617
	  3631	  3813#	  3838	  3851	  3860#	  3885	  3898	  3907#	  3932	  3945	  3954#	  3979	  3992	  4001#
	  4026	  4039	  4048#	  4073	  4086	  4095#	  4120	  4133	  4142#	  4167	  4180	  4595#	  4614	  4622#
	  4641	  4649#	  4668	  4676#	  4695	  4703#	  4722	  4730#	  4749	  4774#	  4793	  4801#	  4820	  4828#
	  4847	  4855#	  4874	  4882#	  4901	  4909#	  4928	  4953#	  4972	  4980#	  4999	  5007#	  5026	  5034#
	  5053	  5061#	  5080	  5088#	  5107	  5132#	  5151	  5159#	  5178	  5186#	  5205	  5213#	  5232	  5240#
	  5259	  5267#	  5286	  5311#	  5330	  5338#	  5357	  5365#	  5384	  5392#	  5411	  5419#	  5438	  5446#
	  5465	  5685#	  5713	  5727	  5735#	  5763	  5777	  5785#	  5813	  5827	  5835#	  5863	  5877	  5885#
	  5913	  5927	  5935#	  5963	  5977	  5985#	  6013	  6027	  6035#	  6063	  6077	  7777#	  7804	  7811
LOOPER	   303#
LPAREN	   563#
LPARER	   563#
LPDOVT	   563#
LPFWPC	   563#
LPGFTR	   563#
LPICH1	   563#
LPICH2	   563#
LPICH3	   563#
LPICH4	   563#
LPICH5	   563#
LPICH6	   563#
LPICH7	   563#
LPICHA	   563#
LPICLR	   563#
LPIIP1	   563#
LPIIP2	   563#
LPIIP3	   563#
LPIIP4	   563#
LPIIP5	   563#
LPIIP6	   563#
LPIIP7	   563#
LPIOFF	   563#
LPION	   563#
LPNTRP	   563#
LPRCH1	   563#                                                                                                            SEQ 0315
LPRCH2	   563#
LPRCH3	   563#
LPRCH4	   563#
LPRCH5	   563#
LPRCH6	   563#
LPRCH7	   563#
LPRFMH	   563#
LPRFML	   563#
LPTRP	   563#
LPWRFE	   563#
LPWRFL	   563#
LREQSE	   563#
LRQCLR	   563#
LSADEN	   563#
LSADRP	   563#
LSBSEN	   563#
LSBUSE	   563#
LSCAER	   563#
LSCASD	   563#
LSECMO	   563#
LSIOPF	   563#
LSMODE	   563#
LSNTRP	   563#
LSNXER	   563#
LSPAER	   563#
LSPWRF	   563#
LSSAER	   563#
LSSBER	   563#
LSTRP	   563#
LTBASH	   563#
LTBASL	   563#
LTRP3T	   563#
LTRPAE	   563#
LTRPEN	   563#
LUSCMP	   563#
LUUO	   563#
LUUO1	   696	   697
LUUO10	   696	   701
LUUO11	   696	   701
LUUO12	   696	   702
LUUO13	   696	   702
LUUO14	   696	   703
LUUO15	   696	   703
LUUO16	   696	   704
LUUO17	   696	   704
LUUO2	   696	   698
LUUO20	   696	   705
LUUO21	   696	   705
LUUO22	   696	   706
LUUO23	   696	   706
LUUO24	   696	   707
LUUO25	   696	   707
LUUO26	   696	   708                                                                                                     SEQ 0316
LUUO27	   696	   708
LUUO3	   696	   698
LUUO30	   696	   709
LUUO31	   696	   709
LUUO32	   696	   710
LUUO33	   696	   710
LUUO4	   696	   699
LUUO5	   696	   699
LUUO6	   696	   700
LUUO7	   696	   700
LUUOI	   563#
LWRITE	   563#
MAPNEW	   717#
MARGIN	   639#
MCAND	  6148	  6167	  6186	  6205	  6224	  6243	  6262	  6281	  6300	  6319	  6338	  6357	  6376	  6407
	  6426	  6445	  6464	  6483	  6502	  6521	  6540	  6559	  6578	  6597	  6616	  6654	  6681	  6709
	  6737	  6764	  6791	  6819	  6846	  6873	  6901	  6928	  6955	  6983	  7011	  7038	  7065	  7093
	  7120	  7147	  7175	  7221	  7248	  7276	  7304	  7331	  7358	  7387	  7414	  7441	  7470	  7497
	  7524	  7552	  7580	  7607	  7634	  7663	  7690	  7717	  7746	  7837	  7864	  7891	  7918	  7955
	  7982	  8009	  8036	  8063	  8090	  8117	  8144	  8171	  8198	  8225	  8252	  8279	  8306	  8333
	  8360	  8387	  8415	  8443	  8470	  8497	  8524	  8551	  8578	 11297	 11298	 11332#
MCNVER	     3#	    10	    16	   611
MEMLOW	   719#
MEMMAP	   617
MEMSIZ	   720#
MEMTOT	   718#
MERROR	 11310	 11314	 11318	 11324#
MFLOC	  6662	  6666	  6689	  6693	  6717	  6721	  6745	  6749	  6772	  6776	  6799	  6803	  6827	  6831
	  6854	  6858	  6881	  6885	  6909	  6913	  6936	  6940	  6963	  6967	  6991	  6995	  7019	  7023
	  7046	  7050	  7073	  7077	  7101	  7105	  7128	  7132	  7155	  7159	  7183	  7187	  7229	  7233
	  7256	  7260	  7284	  7288	  7312	  7316	  7339	  7343	  7366	  7370	  7395	  7399	  7422	  7426
	  7449	  7453	  7478	  7482	  7505	  7509	  7532	  7536	  7560	  7564	  7588	  7592	  7615	  7619
	  7642	  7646	  7671	  7675	  7698	  7702	  7725	  7729	  7754	  7758	  7845	  7849	  7872	  7876
	  7899	  7903	  7926	  7930	  7963	  7967	  7990	  7994	  8017	  8021	  8044	  8048	  8071	  8075
	  8098	  8102	  8125	  8129	  8152	  8156	  8179	  8183	  8206	  8210	  8233	  8237	  8260	  8264
	  8287	  8291	  8314	  8318	  8341	  8345	  8368	  8372	  8395	  8399	  8423	  8427	  8451	  8455
	  8478	  8482	  8505	  8509	  8532	  8536	  8559	  8563	  8586	  8590	 11306#
MINU	  4441#	  4442	  4450	  4452	  4453	  4454	  4461
MINUS	   761#
MODDVC	   311#
MODDVL	   510	   510#	   612
MODDVU	   511	   511#	   613
MODLNK	   330#	   576
MONCTL	   629#
MONFLG	   628#
MONTEN	   630#
MONTYP	   843#
MOVERR	  7791	  7794	  7797	  7801#
MOVOK	  7800	  7806#
MOVRR	  7806	  7809#
MPLIER	 11297	 11303	 11333#
MPRINT	  6152	  6171	  6190	  6209	  6228	  6247	  6266	  6285	  6304	  6323	  6342	  6361	  6380	  6411
	  6430	  6449	  6468	  6487	  6506	  6525	  6544	  6563	  6582	  6601	  6620	  6658	  6666	  6685     SEQ 0317
	  6693	  6713	  6721	  6741	  6749	  6768	  6776	  6795	  6803	  6823	  6831	  6850	  6858	  6877
	  6885	  6905	  6913	  6932	  6940	  6959	  6967	  6987	  6995	  7015	  7023	  7042	  7050	  7069
	  7077	  7097	  7105	  7124	  7132	  7151	  7159	  7179	  7187	  7225	  7233	  7252	  7260	  7280
	  7288	  7308	  7316	  7335	  7343	  7362	  7370	  7391	  7399	  7418	  7426	  7445	  7453	  7474
	  7482	  7501	  7509	  7528	  7536	  7556	  7564	  7584	  7592	  7611	  7619	  7638	  7646	  7667
	  7675	  7694	  7702	  7721	  7729	  7750	  7758	  7803	  7810	  7841	  7849	  7868	  7876	  7895
	  7903	  7922	  7930	  7959	  7967	  7986	  7994	  8013	  8021	  8040	  8048	  8067	  8075	  8094
	  8102	  8121	  8129	  8148	  8156	  8175	  8183	  8202	  8210	  8229	  8237	  8256	  8264	  8283
	  8291	  8310	  8318	  8337	  8345	  8364	  8372	  8391	  8399	  8419	  8427	  8447	  8455	  8474
	  8482	  8501	  8509	  8528	  8536	  8555	  8563	  8582	  8590	 11542#
MPVU	   563#
MRES	  6149	  6168	  6187	  6206	  6225	  6244	  6263	  6282	  6301	  6320	  6339	  6358	  6377	  6408
	  6427	  6446	  6465	  6484	  6503	  6522	  6541	  6560	  6579	  6598	  6617	  6655	  6682	  6710
	  6738	  6765	  6792	  6820	  6847	  6874	  6902	  6929	  6956	  6984	  7012	  7039	  7066	  7094
	  7121	  7148	  7176	  7222	  7249	  7277	  7305	  7332	  7359	  7388	  7415	  7442	  7471	  7498
	  7525	  7553	  7581	  7608	  7635	  7664	  7691	  7718	  7747	  7838	  7865	  7892	  7919	  7956
	  7983	  8010	  8037	  8064	  8091	  8118	  8145	  8172	  8199	  8226	  8253	  8280	  8307	  8334
	  8361	  8388	  8416	  8444	  8471	  8498	  8525	  8552	  8579	 11309	 11313	 11317	 11321	 11325
	 11334#
MRET	 11328	 11329	 11330	 11335#	 11376	 11377	 11378	 11447	 11448	 11449
MSUBR	  6150	  6169	  6188	  6207	  6226	  6245	  6264	  6283	  6302	  6321	  6340	  6359	  6378	  6409
	  6428	  6447	  6466	  6485	  6504	  6523	  6542	  6561	  6580	  6599	  6618	  6656	  6683	  6711
	  6739	  6766	  6793	  6821	  6848	  6875	  6903	  6930	  6957	  6985	  7013	  7040	  7067	  7095
	  7122	  7149	  7177	  7223	  7250	  7278	  7306	  7333	  7360	  7389	  7416	  7443	  7472	  7499
	  7526	  7554	  7582	  7609	  7636	  7665	  7692	  7719	  7748	  7839	  7866	  7893	  7920	  7957
	  7984	  8011	  8038	  8065	  8092	  8119	  8146	  8173	  8200	  8227	  8254	  8281	  8308	  8335
	  8362	  8389	  8417	  8445	  8472	  8499	  8526	  8553	  8580	 11297#
MTEST	 11322	 11328#
NOPNT	   299#
NUM	   916#	   951	   952	   960	   965	   976	   977	   982	   990	  1001	  1002	  1007	  1010	  1015
	  1026	  1028	  1035	  1040	  1051	  1053	  1057	  1065	  1076	  1078	  1082	  1085	  1090	  4259
	  4260	  4268	  4273	  4284	  4285	  4290	  4298	  4309	  4310	  4315	  4318	  4323	  4334	  4336
	  4343	  4348	  4359	  4361	  4365	  4373	  4384	  4386	  4390	  4393	  4398	  6148	  6167	  6186
	  6205	  6224	  6243	  6262	  6281	  6300	  6319	  6338	  6357	  6407	  6426	  6445	  6464	  6483
	  6502	  6521	  6540	  6559	  6578	  6597	  6616	  8618	  8638	  8668	  8688
NXMU	   563#
OBYTEF	 11420	 11422	 11424	 11451#
OBYTET	 11421	 11423	 11425	 11454#
OCON	 11419	 11427#
ODEND	 10298	 10328	 10358	 10388	 10418	 10448	 10478	 10508	 10538	 10568	 10598	 10628	 10658	 10688
	 10718	 10748	 10778	 10808	 10838	 10869	 10899	 10929	 10959	 10989	 11019	 11049	 11081	 11112
	 11142	 11173	 11204	 11235	 11266	 11405	 11406	 11407	 11458#
OERROR	 11429	 11433	 11437	 11443#
OFLOC	 10306	 10310	 10313	 10336	 10340	 10343	 10366	 10370	 10373	 10396	 10400	 10403	 10426	 10430
	 10433	 10456	 10460	 10463	 10486	 10490	 10493	 10516	 10520	 10523	 10546	 10550	 10553	 10576
	 10580	 10583	 10606	 10610	 10613	 10636	 10640	 10643	 10666	 10670	 10673	 10696	 10700	 10703
	 10726	 10730	 10733	 10756	 10760	 10763	 10786	 10790	 10793	 10816	 10820	 10823	 10847	 10851
	 10854	 10877	 10881	 10884	 10907	 10911	 10914	 10937	 10941	 10944	 10967	 10971	 10974	 10997
	 11001	 11004	 11027	 11031	 11034	 11057	 11061	 11064	 11089	 11093	 11096	 11120	 11124	 11127
	 11150	 11154	 11157	 11181	 11185	 11188	 11212	 11216	 11219	 11243	 11247	 11250	 11274	 11278
	 11281	 11416#
OISOR	 11405	 11413	 11459#
OLOOP	  4452#	  4458                                                                                                     SEQ 0318
ONE	  9199#	  9276	  9336
OPRSEL	   313#
OPTIME	   731#
ORES	 10299	 10329	 10359	 10389	 10419	 10449	 10479	 10509	 10539	 10569	 10599	 10629	 10659	 10689
	 10719	 10749	 10779	 10809	 10840	 10870	 10900	 10930	 10960	 10990	 11020	 11050	 11082	 11113
	 11143	 11174	 11205	 11236	 11267	 11408	 11409	 11428	 11432	 11436	 11440	 11444	 11454	 11455
	 11456	 11460#
ORET	 11461#
OSUBR	 10300	 10330	 10360	 10390	 10420	 10450	 10480	 10510	 10540	 10570	 10600	 10630	 10660	 10690
	 10720	 10750	 10780	 10810	 10841	 10871	 10901	 10931	 10961	 10991	 11021	 11051	 11083	 11114
	 11144	 11175	 11206	 11237	 11268	 11405#
OTEST	 11441	 11447#
P	   356	   357	   358	   359	   563#	   651
PAG	   563#
PALERS	   305#
PARCLR	   563#
PARDIS	   563#
PAREA1	    60#	   607
PAREA2	    61#	   608
PAREA3	    62#	   605
PAREA4	    63#	   606
PAREA5	    64#	   618
PAREA6	    65#	   619
PAREA7	   618#
PAREA8	   619#
PARENB	   563#
PARU	   563#
PASCNT	   633#
PATCH	 14289#
PDEND	  8618	  8638	  8668	  8688	  8722	  8742	  8762	  8782	  8802	  8822	  8842	  8862	  8882	  8902
	  8922	  8942	  8962	  8982	  9002	  9022	  9042	  9062	  9082	  9102	  9122	  9142	  9162	  9182
	  9218	  9248	  9277	  9307	  9337	  9367	  9398	  9428	  9458	  9488	  9518	  9560	  9588	  9617
	  9645	  9673	  9701	  9729	  9757	  9785	  9813	  9841	  9869	  9897	  9925	  9953	  9981	 10026
	 10054	 10082	 10110	 10140	 10170	 10199	 10229	 11345	 11346	 11347	 11380#
PDISF	   728#
PDLOVU	   563#
PERIOD	   758#
PERROR	 11358	 11362	 11366	 11372#
PFLOC	  9226	  9230	  9256	  9260	  9285	  9289	  9315	  9319	  9345	  9349	  9375	  9379	  9406	  9410
	  9436	  9440	  9466	  9470	  9496	  9500	  9526	  9530	  9568	  9572	  9596	  9600	  9625	  9629
	  9653	  9657	  9681	  9685	  9709	  9713	  9737	  9741	  9765	  9769	  9793	  9797	  9821	  9825
	  9849	  9853	  9877	  9881	  9905	  9909	  9933	  9937	  9961	  9965	  9989	  9993	 10034	 10038
	 10062	 10066	 10090	 10094	 10118	 10122	 10148	 10152	 10178	 10182	 10207	 10211	 10237	 10241
	 11354#
PFSTRT	   585#
PGMEND	    69#	 14295
PGMNAM	   610	   896#
PHALT	    53	 11286#
PICHN1	   563#
PICHN2	   563#
PICHN3	   563#
PICHN4	   563#
PICHN5	   563#                                                                                                            SEQ 0319
PICHN6	   563#
PICHN7	   563#
PICHNA	   563#
PICLR	   563#
PIOFF	   563#
PION	   563#
PISOR	 11345	 11351	 11381#
PLIST	   797#	   797
PLISTE	   797	   799#
PLISTS	   798#
PLUS	   763#
PNTENB	   727#
PNTEXT	   606#
PNTFLG	   726#
PNTINH	   729#
PNTLPT	   300#
PNTNAM	   605#
PNTSPC	   730#
PRES	  8619	  8639	  8669	  8689	  8723	  8743	  8763	  8783	  8803	  8823	  8843	  8863	  8883	  8903
	  8923	  8943	  8963	  8983	  9003	  9023	  9043	  9063	  9083	  9103	  9123	  9143	  9163	  9183
	  9219	  9249	  9278	  9308	  9338	  9368	  9399	  9429	  9459	  9489	  9519	  9561	  9589	  9618
	  9646	  9674	  9702	  9730	  9758	  9786	  9814	  9842	  9870	  9898	  9926	  9954	  9982	 10027
	 10055	 10083	 10111	 10141	 10171	 10200	 10230	 11357	 11361	 11365	 11369	 11373	 11382#
PRET	 11383#
PSUBR	  8620	  8640	  8670	  8690	  8724	  8744	  8764	  8784	  8804	  8824	  8844	  8864	  8884	  8904
	  8924	  8944	  8964	  8984	  9004	  9024	  9044	  9064	  9084	  9104	  9124	  9144	  9164	  9184
	  9220	  9250	  9279	  9309	  9339	  9369	  9400	  9430	  9460	  9490	  9520	  9562	  9590	  9619
	  9647	  9675	  9703	  9731	  9759	  9787	  9815	  9843	  9871	  9899	  9927	  9955	  9983	 10028
	 10056	 10084	 10112	 10142	 10172	 10201	 10231	 11345#
PTEST	 11370	 11376#
PVPAGI	   824#
PWFCLR	   563#
QUEST	   769#
RADIX	   772#
RADLSC	   774#
RADLSP	   773#
RANDBS	   607#
REENTR	   587#
RELIAB	   307#
REP	  1142#	  1173	  1173#	  1175	  1176	  1223	  1230	  1230#	  1232	  1233	  1280	  1287	  1287#	  1289
	  1290	  1337	  1344	  1344#	  1346	  1347	  1394	  1395#	  1401	  1401#	  1403	  1404	  1451	  1458
	  1458#	  1460	  1461	  1508	  1515	  1515#	  1517	  1518	  1565	  1572	  1572#	  1574	  1575	  1622
	  1623#	  2109#	  2132	  2132#	  2143	  2144	  2182	  2182#	  2193	  2194	  2232	  2232#	  2243	  2244
	  2282	  2282#	  2293	  2294	  2332	  2332#	  2343	  2344	  2382	  2382#	  2393	  2394	  5660#	  5687
	  5687#	  5688	  5737	  5737#	  5738	  5787	  5787#	  5788	  5837	  5837#	  5838	  5887	  5887#	  5888
	  5937	  5937#	  5938	  5987	  5987#	  5988	  6037	  6037#	  6038
REPP	  1143#	  1177	  1234	  1291	  1348	  1394#	  1405	  1462	  1519	  1576	  1622#
REPT	   563#
REPT1	   563#
REPTU	   685#
REQSET	   563#
RESRT1	   662#
RESRT2	   663#                                                                                                            SEQ 0320
RESULT	  5661#	  5702	  5705	  5710	  5752	  5755	  5760	  5802	  5805	  5810	  5852	  5855	  5860	  5889#
	  5902	  5905	  5910	  5939#	  5952	  5955	  5960	  5989#	  6002	  6005	  6010	  6039#	  6052	  6055
	  6060
RETURN	   594#
RLEFT	  2143#	  2148	  2156	  2193#	  2198	  2206	  2243#	  2248	  2256	  2293#	  2298	  2306	  2343#	  2348
	  2356	  2393#	  2398	  2406
RRIGHT	  2144#	  2151	  2156	  2194#	  2201	  2206	  2244#	  2251	  2256	  2294#	  2301	  2306	  2344#	  2351
	  2356	  2394#	  2401	  2406
RSTART	   296#
RTP	   767#
RUNFLG	   634#
SADR1	    48#	   583
SADR10	    57#	   599
SADR11	    58#	   600
SADR2	    49#	   585
SADR3	    50#	   587
SADR4	    51#
SADR5	    52#	   648
SADR6	    53#	   649
SADR7	    54#	   596
SADR8	    55#	   597
SADR9	    56#	   598
SBINIT	   369	   593#
SCONC1	  4579	  5472#
SCONC2	  4758	  5509#
SCONC3	  4937	  5546#
SCONC4	  5116	  5583#
SCONC5	  5295	  5607#
SCOND	  5658	  6088#
SCOPE	   686#
SCR0	    39#	    40	    41	    42	  4443	  4443#	  4469	  4470	  4472	  4473	  4484	  4490	  4493	  4498
	  4499	  4500	  4508	  4509	  4511
SCR1	    40#	   956	   959	   964	   965	   967	   981	   984	   989	   990	   992	  1006	  1009	  1014
	  1015	  1017	  1031	  1034	  1039	  1040	  1042	  1056	  1059	  1064	  1065	  1067	  1081	  1084
	  1089	  1090	  1092	  1106	  1109	  1114	  1115	  1117	  1185	  1188	  1193	  1194	  1196	  1207
	  1210	  1215	  1216	  1218	  1242	  1245	  1250	  1251	  1253	  1264	  1267	  1272	  1273	  1275
	  1299	  1302	  1307	  1308	  1310	  1321	  1324	  1329	  1330	  1332	  1356	  1359	  1364	  1365
	  1367	  1378	  1381	  1386	  1387	  1389	  1413	  1416	  1421	  1422	  1424	  1435	  1438	  1443
	  1444	  1446	  1470	  1473	  1478	  1479	  1481	  1492	  1495	  1500	  1501	  1503	  1527	  1530
	  1535	  1536	  1538	  1549	  1552	  1557	  1558	  1560	  1584	  1587	  1592	  1593	  1595	  1606
	  1609	  1614	  1615	  1617	  1657	  1660	  1664	  1665	  1667	  1699	  1702	  1707	  1708	  1710
	  1724	  1727	  1732	  1733	  1735	  1791	  1794	  1799	  1800	  1802	  1808	  1812	  1813	  1838
	  1841	  1846	  1847	  1849	  1855	  1859	  1860	  1885	  1888	  1893	  1894	  1896	  1902	  1906
	  1907	  1932	  1935	  1940	  1941	  1943	  1949	  1953	  1954	  1979	  1982	  1987	  1988	  1990
	  1996	  2000	  2001	  2026	  2029	  2034	  2035	  2037	  2043	  2047	  2048	  2147	  2150	  2155
	  2156	  2158	  2164	  2168	  2169	  2197	  2200	  2205	  2206	  2208	  2214	  2218	  2219	  2247
	  2250	  2255	  2256	  2258	  2264	  2268	  2269	  2297	  2300	  2305	  2306	  2308	  2314	  2318
	  2319	  2347	  2350	  2355	  2356	  2358	  2364	  2368	  2369	  2397	  2400	  2405	  2406	  2408
	  2414	  2418	  2419	  2464	  2467	  2472	  2473	  2475	  2481	  2485	  2486	  2511	  2514	  2519
	  2520	  2522	  2528	  2532	  2533	  2558	  2561	  2566	  2567	  2569	  2575	  2579	  2580	  2605
	  2608	  2613	  2614	  2616	  2622	  2626	  2627	  2652	  2655	  2660	  2661	  2663	  2669	  2673
	  2674	  2699	  2702	  2707	  2708	  2710	  2716	  2720	  2721	  2766	  2769	  2774	  2775	  2777
	  2783	  2787	  2788	  2813	  2816	  2821	  2822	  2824	  2830	  2834	  2835	  2860	  2863	  2868     SEQ 0321
	  2869	  2871	  2877	  2881	  2882	  2907	  2910	  2915	  2916	  2918	  2924	  2928	  2929	  2954
	  2957	  2962	  2963	  2965	  2971	  2975	  2976	  3001	  3004	  3009	  3010	  3012	  3018	  3022
	  3023	  3068	  3071	  3076	  3077	  3079	  3085	  3089	  3090	  3115	  3118	  3123	  3124	  3126
	  3132	  3136	  3137	  3162	  3165	  3170	  3171	  3173	  3179	  3183	  3184	  3209	  3212	  3217
	  3218	  3220	  3226	  3230	  3231	  3256	  3259	  3264	  3265	  3267	  3273	  3277	  3278	  3303
	  3306	  3311	  3312	  3314	  3320	  3324	  3325	  3370	  3373	  3378	  3379	  3381	  3387	  3391
	  3392	  3417	  3420	  3425	  3426	  3428	  3434	  3438	  3439	  3464	  3467	  3472	  3473	  3475
	  3481	  3485	  3486	  3511	  3514	  3519	  3520	  3522	  3528	  3532	  3533	  3558	  3561	  3566
	  3567	  3569	  3575	  3579	  3580	  3605	  3608	  3613	  3614	  3616	  3622	  3626	  3627	  3826
	  3829	  3834	  3835	  3837	  3843	  3847	  3848	  3873	  3876	  3881	  3882	  3884	  3890	  3894
	  3895	  3920	  3923	  3928	  3929	  3931	  3937	  3941	  3942	  3967	  3970	  3975	  3976	  3978
	  3984	  3988	  3989	  4014	  4017	  4022	  4023	  4025	  4031	  4035	  4036	  4061	  4064	  4069
	  4070	  4072	  4078	  4082	  4083	  4108	  4111	  4116	  4117	  4119	  4125	  4129	  4130	  4155
	  4158	  4163	  4164	  4166	  4172	  4176	  4177	  4264	  4267	  4272	  4273	  4275	  4289	  4292
	  4297	  4298	  4300	  4314	  4317	  4322	  4323	  4325	  4339	  4342	  4347	  4348	  4350	  4364
	  4367	  4372	  4373	  4375	  4389	  4392	  4397	  4398	  4400	  4471	  4487	  4491	  4493	  4514
	  4519	  4523	  4524	  4602	  4605	  4610	  4611	  4613	  4629	  4632	  4637	  4638	  4640	  4656
	  4659	  4664	  4665	  4667	  4683	  4686	  4691	  4692	  4694	  4710	  4713	  4718	  4719	  4721
	  4737	  4740	  4745	  4746	  4748	  4781	  4784	  4789	  4790	  4792	  4808	  4811	  4816	  4817
	  4819	  4835	  4838	  4843	  4844	  4846	  4862	  4865	  4870	  4871	  4873	  4889	  4892	  4897
	  4898	  4900	  4916	  4919	  4924	  4925	  4927	  4960	  4963	  4968	  4969	  4971	  4987	  4990
	  4995	  4996	  4998	  5014	  5017	  5022	  5023	  5025	  5041	  5044	  5049	  5050	  5052	  5068
	  5071	  5076	  5077	  5079	  5095	  5098	  5103	  5104	  5106	  5139	  5142	  5147	  5148	  5150
	  5166	  5169	  5174	  5175	  5177	  5193	  5196	  5201	  5202	  5204	  5220	  5223	  5228	  5229
	  5231	  5247	  5250	  5255	  5256	  5258	  5274	  5277	  5282	  5283	  5285	  5318	  5321	  5326
	  5327	  5329	  5345	  5348	  5353	  5354	  5356	  5372	  5375	  5380	  5381	  5383	  5399	  5402
	  5407	  5408	  5410	  5426	  5429	  5434	  5435	  5437	  5453	  5456	  5461	  5462	  5464	  5701
	  5704	  5709	  5710	  5712	  5719	  5723	  5724	  5751	  5754	  5759	  5760	  5762	  5769	  5773
	  5774	  5801	  5804	  5809	  5810	  5812	  5819	  5823	  5824	  5851	  5854	  5859	  5860	  5862
	  5869	  5873	  5874	  5901	  5904	  5909	  5910	  5912	  5919	  5923	  5924	  5951	  5954	  5959
	  5960	  5962	  5969	  5973	  5974	  6001	  6004	  6009	  6010	  6012	  6019	  6023	  6024	  6051
	  6054	  6059	  6060	  6062	  6069	  6073	  6074	  6152	  6171	  6190	  6209	  6228	  6247	  6266
	  6285	  6304	  6323	  6342	  6361	  6380	  6411	  6430	  6449	  6468	  6487	  6506	  6525	  6544
	  6563	  6582	  6601	  6620	  6658	  6685	  6713	  6741	  6768	  6795	  6823	  6850	  6877	  6905
	  6932	  6959	  6987	  7015	  7042	  7069	  7097	  7124	  7151	  7179	  7225	  7252	  7280	  7308
	  7335	  7362	  7391	  7418	  7445	  7474	  7501	  7528	  7556	  7584	  7611	  7638	  7667	  7694
	  7721	  7750	  7782	  7792	  7795	  7798	  7801	  7803	  7841	  7868	  7895	  7922	  7959	  7986
	  8013	  8040	  8067	  8094	  8121	  8148	  8175	  8202	  8229	  8256	  8283	  8310	  8337	  8364
	  8391	  8419	  8447	  8474	  8501	  8528	  8555	  8582	  8622	  8642	  8672	  8692	  8726	  8746
	  8766	  8786	  8806	  8826	  8846	  8866	  8886	  8906	  8926	  8946	  8966	  8986	  9006	  9026
	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186	  9222	  9252	  9281	  9311	  9341	  9371
	  9402	  9432	  9462	  9492	  9522	  9564	  9592	  9621	  9649	  9677	  9705	  9733	  9761	  9789
	  9817	  9845	  9873	  9901	  9929	  9957	  9985	 10030	 10058	 10086	 10114	 10144	 10174	 10203
	 10233	 10302	 10332	 10362	 10392	 10422	 10452	 10482	 10512	 10542	 10572	 10602	 10632	 10662
	 10692	 10722	 10752	 10782	 10812	 10843	 10873	 10903	 10933	 10963	 10993	 11023	 11053	 11085
	 11116	 11146	 11177	 11208	 11239	 11270	 11308	 11312	 11316	 11320	 11324	 11325	 11356	 11360
	 11364	 11368	 11372	 11373	 11420	 11421	 11422	 11423	 11424	 11425	 11427	 11431	 11435	 11439
	 11443	 11444	 11470	 11471	 11474	 11475	 11481	 11482	 11485	 11486	 11507	 11508	 11511	 11512
	 11518	 11519	 11522	 11523	 11544	 11545	 11548	 11549	 11555	 11556	 11559	 11560	 11587	 11588
	 11591	 11592	 11595	 11596	 11599	 11600	 11606	 11607	 11610	 11611
SCR2	    41#	   964	   967	   989	   992	  1014	  1017	  1039	  1042	  1064	  1067	  1089	  1092	  1114
	  1117	  1193	  1196	  1215	  1218	  1250	  1253	  1272	  1275	  1307	  1310	  1329	  1332	  1364
	  1367	  1386	  1389	  1421	  1424	  1443	  1446	  1478	  1481	  1500	  1503	  1535	  1538	  1557     SEQ 0322
	  1560	  1592	  1595	  1614	  1617	  1664	  1667	  1707	  1710	  1732	  1735	  1799	  1802	  1809
	  1811	  1812	  1815	  1846	  1849	  1856	  1858	  1859	  1862	  1893	  1896	  1903	  1905	  1906
	  1909	  1940	  1943	  1950	  1952	  1953	  1956	  1987	  1990	  1997	  1999	  2000	  2003	  2034
	  2037	  2044	  2046	  2047	  2050	  2155	  2158	  2165	  2167	  2168	  2172	  2205	  2208	  2215
	  2217	  2218	  2222	  2255	  2258	  2265	  2267	  2268	  2272	  2305	  2308	  2315	  2317	  2318
	  2322	  2355	  2358	  2365	  2367	  2368	  2372	  2405	  2408	  2415	  2417	  2418	  2422	  2472
	  2475	  2482	  2484	  2485	  2489	  2519	  2522	  2529	  2531	  2532	  2536	  2566	  2569	  2576
	  2578	  2579	  2583	  2613	  2616	  2623	  2625	  2626	  2630	  2660	  2663	  2670	  2672	  2673
	  2677	  2707	  2710	  2717	  2719	  2720	  2724	  2774	  2777	  2784	  2786	  2787	  2791	  2821
	  2824	  2831	  2833	  2834	  2838	  2868	  2871	  2878	  2880	  2881	  2885	  2915	  2918	  2925
	  2927	  2928	  2932	  2962	  2965	  2972	  2974	  2975	  2979	  3009	  3012	  3019	  3021	  3022
	  3026	  3076	  3079	  3086	  3088	  3089	  3093	  3123	  3126	  3133	  3135	  3136	  3140	  3170
	  3173	  3180	  3182	  3183	  3187	  3217	  3220	  3227	  3229	  3230	  3234	  3264	  3267	  3274
	  3276	  3277	  3281	  3311	  3314	  3321	  3323	  3324	  3328	  3378	  3381	  3388	  3390	  3391
	  3395	  3425	  3428	  3435	  3437	  3438	  3442	  3472	  3475	  3482	  3484	  3485	  3489	  3519
	  3522	  3529	  3531	  3532	  3536	  3566	  3569	  3576	  3578	  3579	  3583	  3613	  3616	  3623
	  3625	  3626	  3630	  3834	  3837	  3844	  3846	  3847	  3850	  3881	  3884	  3891	  3893	  3894
	  3897	  3928	  3931	  3938	  3940	  3941	  3944	  3975	  3978	  3985	  3987	  3988	  3991	  4022
	  4025	  4032	  4034	  4035	  4038	  4069	  4072	  4079	  4081	  4082	  4085	  4116	  4119	  4126
	  4128	  4129	  4132	  4163	  4166	  4173	  4175	  4176	  4179	  4272	  4275	  4297	  4300	  4322
	  4325	  4347	  4350	  4372	  4375	  4397	  4400	  4475	  4486	  4490	  4491	  4497	  4505	  4520
	  4522	  4523	  4527	  4610	  4613	  4637	  4640	  4664	  4667	  4691	  4694	  4718	  4721	  4745
	  4748	  4789	  4792	  4816	  4819	  4843	  4846	  4870	  4873	  4897	  4900	  4924	  4927	  4968
	  4971	  4995	  4998	  5022	  5025	  5049	  5052	  5076	  5079	  5103	  5106	  5147	  5150	  5174
	  5177	  5201	  5204	  5228	  5231	  5255	  5258	  5282	  5285	  5326	  5329	  5353	  5356	  5380
	  5383	  5407	  5410	  5434	  5437	  5461	  5464	  5709	  5712	  5720	  5722	  5723	  5726	  5759
	  5762	  5770	  5772	  5773	  5776	  5809	  5812	  5820	  5822	  5823	  5826	  5859	  5862	  5870
	  5872	  5873	  5876	  5909	  5912	  5920	  5922	  5923	  5926	  5959	  5962	  5970	  5972	  5973
	  5976	  6009	  6012	  6020	  6022	  6023	  6026	  6059	  6062	  6070	  6072	  6073	  6076	  6152
	  6171	  6190	  6209	  6228	  6247	  6266	  6285	  6304	  6323	  6342	  6361	  6380	  6411	  6430
	  6449	  6468	  6487	  6506	  6525	  6544	  6563	  6582	  6601	  6620	  6658	  6662	  6663	  6666
	  6685	  6689	  6690	  6693	  6713	  6717	  6718	  6721	  6741	  6745	  6746	  6749	  6768	  6772
	  6773	  6776	  6795	  6799	  6800	  6803	  6823	  6827	  6828	  6831	  6850	  6854	  6855	  6858
	  6877	  6881	  6882	  6885	  6905	  6909	  6910	  6913	  6932	  6936	  6937	  6940	  6959	  6963
	  6964	  6967	  6987	  6991	  6992	  6995	  7015	  7019	  7020	  7023	  7042	  7046	  7047	  7050
	  7069	  7073	  7074	  7077	  7097	  7101	  7102	  7105	  7124	  7128	  7129	  7132	  7151	  7155
	  7156	  7159	  7179	  7183	  7184	  7187	  7225	  7229	  7230	  7233	  7252	  7256	  7257	  7260
	  7280	  7284	  7285	  7288	  7308	  7312	  7313	  7316	  7335	  7339	  7340	  7343	  7362	  7366
	  7367	  7370	  7391	  7395	  7396	  7399	  7418	  7422	  7423	  7426	  7445	  7449	  7450	  7453
	  7474	  7478	  7479	  7482	  7501	  7505	  7506	  7509	  7528	  7532	  7533	  7536	  7556	  7560
	  7561	  7564	  7584	  7588	  7589	  7592	  7611	  7615	  7616	  7619	  7638	  7642	  7643	  7646
	  7667	  7671	  7672	  7675	  7694	  7698	  7699	  7702	  7721	  7725	  7726	  7729	  7750	  7754
	  7755	  7758	  7841	  7845	  7846	  7849	  7868	  7872	  7873	  7876	  7895	  7899	  7900	  7903
	  7922	  7926	  7927	  7930	  7959	  7963	  7964	  7967	  7986	  7990	  7991	  7994	  8013	  8017
	  8018	  8021	  8040	  8044	  8045	  8048	  8067	  8071	  8072	  8075	  8094	  8098	  8099	  8102
	  8121	  8125	  8126	  8129	  8148	  8152	  8153	  8156	  8175	  8179	  8180	  8183	  8202	  8206
	  8207	  8210	  8229	  8233	  8234	  8237	  8256	  8260	  8261	  8264	  8283	  8287	  8288	  8291
	  8310	  8314	  8315	  8318	  8337	  8341	  8342	  8345	  8364	  8368	  8369	  8372	  8391	  8395
	  8396	  8399	  8419	  8423	  8424	  8427	  8447	  8451	  8452	  8455	  8474	  8478	  8479	  8482
	  8501	  8505	  8506	  8509	  8528	  8532	  8533	  8536	  8555	  8559	  8560	  8563	  8582	  8586
	  8587	  8590	  8622	  8642	  8672	  8692	  8726	  8746	  8766	  8786	  8806	  8826	  8846	  8866
	  8886	  8906	  8926	  8946	  8966	  8986	  9006	  9026	  9046	  9066	  9086	  9106	  9126	  9146
	  9166	  9186	  9222	  9226	  9227	  9230	  9252	  9256	  9257	  9260	  9281	  9285	  9286	  9289     SEQ 0323
	  9311	  9315	  9316	  9319	  9341	  9345	  9346	  9349	  9371	  9375	  9376	  9379	  9402	  9406
	  9407	  9410	  9432	  9436	  9437	  9440	  9462	  9466	  9467	  9470	  9492	  9496	  9497	  9500
	  9522	  9526	  9527	  9530	  9564	  9568	  9569	  9572	  9592	  9596	  9597	  9600	  9621	  9625
	  9626	  9629	  9649	  9653	  9654	  9657	  9677	  9681	  9682	  9685	  9705	  9709	  9710	  9713
	  9733	  9737	  9738	  9741	  9761	  9765	  9766	  9769	  9789	  9793	  9794	  9797	  9817	  9821
	  9822	  9825	  9845	  9849	  9850	  9853	  9873	  9877	  9878	  9881	  9901	  9905	  9906	  9909
	  9929	  9933	  9934	  9937	  9957	  9961	  9962	  9965	  9985	  9989	  9990	  9993	 10030	 10034
	 10035	 10038	 10058	 10062	 10063	 10066	 10086	 10090	 10091	 10094	 10114	 10118	 10119	 10122
	 10144	 10148	 10149	 10152	 10174	 10178	 10179	 10182	 10203	 10207	 10208	 10211	 10233	 10237
	 10238	 10241	 10302	 10306	 10307	 10309	 10310	 10313	 10332	 10336	 10337	 10339	 10340	 10343
	 10362	 10366	 10367	 10369	 10370	 10373	 10392	 10396	 10397	 10399	 10400	 10403	 10422	 10426
	 10427	 10429	 10430	 10433	 10452	 10456	 10457	 10459	 10460	 10463	 10482	 10486	 10487	 10489
	 10490	 10493	 10512	 10516	 10517	 10519	 10520	 10523	 10542	 10546	 10547	 10549	 10550	 10553
	 10572	 10576	 10577	 10579	 10580	 10583	 10602	 10606	 10607	 10609	 10610	 10613	 10632	 10636
	 10637	 10639	 10640	 10643	 10662	 10666	 10667	 10669	 10670	 10673	 10692	 10696	 10697	 10699
	 10700	 10703	 10722	 10726	 10727	 10729	 10730	 10733	 10752	 10756	 10757	 10759	 10760	 10763
	 10782	 10786	 10787	 10789	 10790	 10793	 10812	 10816	 10817	 10819	 10820	 10823	 10843	 10847
	 10848	 10850	 10851	 10854	 10873	 10877	 10878	 10880	 10881	 10884	 10903	 10907	 10908	 10910
	 10911	 10914	 10933	 10937	 10938	 10940	 10941	 10944	 10963	 10967	 10968	 10970	 10971	 10974
	 10993	 10997	 10998	 11000	 11001	 11004	 11023	 11027	 11028	 11030	 11031	 11034	 11053	 11057
	 11058	 11060	 11061	 11064	 11085	 11089	 11090	 11092	 11093	 11096	 11116	 11120	 11121	 11123
	 11124	 11127	 11146	 11150	 11151	 11153	 11154	 11157	 11177	 11181	 11182	 11184	 11185	 11188
	 11208	 11212	 11213	 11215	 11216	 11219	 11239	 11243	 11244	 11246	 11247	 11250	 11270	 11274
	 11275	 11277	 11278	 11281	 11324	 11372	 11443
SCR3	    42#	   951	   976	  1001	  1026	  1051	  1076	  1101	  1180	  1203	  1237	  1260	  1294	  1317
	  1351	  1374	  1408	  1431	  1465	  1488	  1522	  1545	  1579	  1602	  1650	  1694	  1719	  1781
	  1782	  1828	  1829	  1875	  1876	  1922	  1923	  1969	  1970	  2016	  2017	  2134	  2184	  2234
	  2284	  2334	  2384	  2453	  2500	  2547	  2594	  2641	  2688	  2755	  2802	  2849	  2896	  2943
	  2990	  3057	  3104	  3151	  3198	  3245	  3292	  3359	  3406	  3453	  3500	  3547	  3594	  3815
	  3862	  3909	  3956	  4003	  4050	  4097	  4144	  4259	  4284	  4309	  4334	  4359	  4384	  4461
	  4462	  4597	  4624	  4651	  4678	  4705	  4732	  4776	  4803	  4830	  4857	  4884	  4911	  4955
	  4982	  5009	  5036	  5063	  5090	  5134	  5161	  5188	  5215	  5242	  5269	  5313	  5340	  5367
	  5394	  5421	  5448	  5690	  5716	  5740	  5766	  5790	  5816	  5840	  5866	  5890	  5916	  5940
	  5966	  5990	  6016	  6040	  6066	  7807	  7808	 11297	 11345	 11405	 11470	 11481	 11507	 11518
	 11544	 11555	 11587	 11606
SENDC	  5470	  5631#
SENDD	  6082	  6120#
SFSTRT	   583#
SLASH	   770#
SM10	   874#	 11418
SPACE	   759#
SPRINT	  4275	  4300	  4325	  4350	  4375	  4400	  4493	  4527	  4613	  4640	  4667	  4694	  4721	  4748
	  4792	  4819	  4846	  4873	  4900	  4927	  4971	  4998	  5025	  5052	  5079	  5106	  5150	  5177
	  5204	  5231	  5258	  5285	  5329	  5356	  5383	  5410	  5437	  5464	  5712	  5726	  5762	  5776
	  5812	  5826	  5862	  5876	  5912	  5926	  5962	  5976	  6012	  6026	  6062	  6076	 11505#
SRTDDT	    51	   589#
START	    50	   577	   929#
START1	   596#
START2	   597#
START3	   598#
START4	   599#
START5	   600#
STARTA	    48	    49	    52	   592	   930#                                                                            SEQ 0324
STEST1	  4259#	  4276
STEST2	  4284#	  4301
STEST3	  4309#	  4326
STEST4	  4334#	  4351
STEST5	  4359#	  4376
STEST6	  4384#	  4401
SUBLNK	   331#	   593
SUBT	  4450	  4455	  4533#
SUBTR	  4442#	  4455	  4457	  4458	  4460	  4462
SWPTAB	   880#
SWTEXR	   608#
SYSEXR	   581#
T	   933#	   967	   992	  1017	  1042	  1067	  1092	  1117	  1196	  1218	  1253	  1275	  1310	  1332
	  1367	  1389	  1424	  1446	  1481	  1503	  1538	  1560	  1595	  1617	  1667	  1710	  1735	  1802
	  1815	  1849	  1862	  1896	  1909	  1943	  1956	  1990	  2003	  2037	  2050	  2158	  2172	  2208
	  2222	  2258	  2272	  2308	  2322	  2358	  2372	  2408	  2422	  2475	  2489	  2522	  2536	  2569
	  2583	  2616	  2630	  2663	  2677	  2710	  2724	  2777	  2791	  2824	  2838	  2871	  2885	  2918
	  2932	  2965	  2979	  3012	  3026	  3079	  3093	  3126	  3140	  3173	  3187	  3220	  3234	  3267
	  3281	  3314	  3328	  3381	  3395	  3428	  3442	  3475	  3489	  3522	  3536	  3569	  3583	  3616
	  3630	  3837	  3850	  3884	  3897	  3931	  3944	  3978	  3991	  4025	  4038	  4072	  4085	  4119
	  4132	  4166	  4179	  4242#	  4275	  4300	  4325	  4350	  4375	  4400	  4493	  4527	  4613	  4640
	  4667	  4694	  4721	  4748	  4792	  4819	  4846	  4873	  4900	  4927	  4971	  4998	  5025	  5052
	  5079	  5106	  5150	  5177	  5204	  5231	  5258	  5285	  5329	  5356	  5383	  5410	  5437	  5464
	  5712	  5726	  5762	  5776	  5812	  5826	  5862	  5876	  5912	  5926	  5962	  5976	  6012	  6026
	  6062	  6076	  6123#	  6152	  6171	  6190	  6209	  6228	  6247	  6266	  6285	  6304	  6323	  6342
	  6361	  6380	  6411	  6430	  6449	  6468	  6487	  6506	  6525	  6544	  6563	  6582	  6601	  6620
	  6658	  6666	  6685	  6693	  6713	  6721	  6741	  6749	  6768	  6776	  6795	  6803	  6823	  6831
	  6850	  6858	  6877	  6885	  6905	  6913	  6932	  6940	  6959	  6967	  6987	  6995	  7015	  7023
	  7042	  7050	  7069	  7077	  7097	  7105	  7124	  7132	  7151	  7159	  7179	  7187	  7225	  7233
	  7252	  7260	  7280	  7288	  7308	  7316	  7335	  7343	  7362	  7370	  7391	  7399	  7418	  7426
	  7445	  7453	  7474	  7482	  7501	  7509	  7528	  7536	  7556	  7564	  7584	  7592	  7611	  7619
	  7638	  7646	  7667	  7675	  7694	  7702	  7721	  7729	  7750	  7758	  7803	  7810	  7841	  7849
	  7868	  7876	  7895	  7903	  7922	  7930	  7959	  7967	  7986	  7994	  8013	  8021	  8040	  8048
	  8067	  8075	  8094	  8102	  8121	  8129	  8148	  8156	  8175	  8183	  8202	  8210	  8229	  8237
	  8256	  8264	  8283	  8291	  8310	  8318	  8337	  8345	  8364	  8372	  8391	  8399	  8419	  8427
	  8447	  8455	  8474	  8482	  8501	  8509	  8528	  8536	  8555	  8563	  8582	  8590	  8596#	  8622
	  8642	  8672	  8692	  8726	  8746	  8766	  8786	  8806	  8826	  8846	  8866	  8886	  8906	  8926
	  8946	  8966	  8986	  9006	  9026	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186	  9222
	  9230	  9252	  9260	  9281	  9289	  9311	  9319	  9341	  9349	  9371	  9379	  9402	  9410	  9432
	  9440	  9462	  9470	  9492	  9500	  9522	  9530	  9564	  9572	  9592	  9600	  9621	  9629	  9649
	  9657	  9677	  9685	  9705	  9713	  9733	  9741	  9761	  9769	  9789	  9797	  9817	  9825	  9845
	  9853	  9873	  9881	  9901	  9909	  9929	  9937	  9957	  9965	  9985	  9993	 10030	 10038	 10058
	 10066	 10086	 10094	 10114	 10122	 10144	 10152	 10174	 10182	 10203	 10211	 10233	 10241	 10302
	 10313	 10332	 10343	 10362	 10373	 10392	 10403	 10422	 10433	 10452	 10463	 10482	 10493	 10512
	 10523	 10542	 10553	 10572	 10583	 10602	 10613	 10632	 10643	 10662	 10673	 10692	 10703	 10722
	 10733	 10752	 10763	 10782	 10793	 10812	 10823	 10843	 10854	 10873	 10884	 10903	 10914	 10933
	 10944	 10963	 10974	 10993	 11004	 11023	 11034	 11053	 11064	 11085	 11096	 11116	 11127	 11146
	 11157	 11177	 11188	 11208	 11219	 11239	 11250	 11270	 11281
TAB	   760#
TEMP	  1652	  1658	  1661	  1664	  1677#
TESTPC	   635#
THREE	  9201#	  9217	  9247	  9276	  9306	  9427
TICKS	   638#                                                                                                            SEQ 0325
TOTALS	   297#
TTNBRF	   818#
TTYFIL	   734#
TTYSPD	   735#
TWO	  9200#	  9276	  9306	  9366	  9517
TXTINH	   308#
USER	   625#	  1810	  1857	  1904	  1951	  1998	  2045	  2166	  2216	  2266	  2316	  2366	  2416	  2483
	  2530	  2577	  2624	  2671	  2718	  2785	  2832	  2879	  2926	  2973	  3020	  3087	  3134	  3181
	  3228	  3275	  3322	  3389	  3436	  3483	  3530	  3577	  3624	  3845	  3892	  3939	  3986	  4033
	  4080	  4127	  4174	  4521	  5721	  5771	  5821	  5871	  5921	  5971	  6021	  6071	 10308	 10338
	 10368	 10398	 10428	 10458	 10488	 10518	 10548	 10578	 10608	 10638	 10668	 10698	 10728	 10758
	 10788	 10818	 10849	 10879	 10909	 10939	 10969	 10999	 11029	 11059	 11091	 11122	 11152	 11183
	 11214	 11245	 11276
USERF	   563#
USRASB	    71#	   615
USRCRF	   744#
USRLFF	   743#
UUODIS	   697#
UUOEXT	   653#
UUORTN	   654#
UUOSKP	   651#
$$MUUO	   849#
$$OUTE	   855#
$$TAX1	   867#
$$TAX2	   868#
$$TOGG	   861#
$$UUO	   838#
$ACC0	   676#
$BEND1	   646#
$BEND2	   647#
$CHRIN	   737#
$CRLF	   739#
$DEVCH	   563#
$DSKUP	   616#
$DVCH1	   563#
$DVOFF	   733#
$EMODE	   614#
$FFF	   741#
$IBUF	   789#
$INEXT	   791#
$INNM	   790#
$ITRHL	   657#
$ITRX1	   658#
$LPAPE	 11639
$MMAP	   617#
$MODVL	   612#
$MODVU	   613#
$OBUF	   780#
$ONETM	   640#
$OUTEX	   782#
$OUTNM	   781#
$PAPER	   563
$PARER	   664#                                                                                                            SEQ 0326
$PNAME	   610#
$PSHER	   668#
$PVER	   611#
$RSRTX	   660#
$RSRTY	   661#
$SPAG1	   680#
$START	   577#
$SVAPR	   678#
$SVPAG	   679#
$SVPI	   677#
$SVUPC	   683#
$SVUUO	   682#
$TABF	   740#
$TTCHR	   736#
$TWCNT	   732#
$TYPNB	   738#
$UMODE	   615#
$UORTX	   655#
$USRHL	   659#
$UUOER	   656#	   697
$VTF	   742#
%ACTFL	   689#
%ACTUL	   690#
%COREC	   688#
%CORFL	   687#
%DISCR	   691#
%ERHI1	   830#
%ERHI2	   831#
%ERHI3	   832#
..0001	   958	   964#
..0002	   961	   966#
..0003	   983	   989#
..0004	   986	   991#
..0005	  1008	  1014#
..0006	  1011	  1016#
..0007	  1033	  1039#
..0010	  1036	  1041#
..0011	  1058	  1064#
..0012	  1061	  1066#
..0013	  1083	  1089#
..0014	  1086	  1091#
..0015	  1108	  1114#
..0016	  1111	  1116#
..0017	  1187	  1193#
..0020	  1190	  1195#
..0021	  1209	  1215#
..0022	  1212	  1217#
..0023	  1244	  1250#
..0024	  1247	  1252#
..0025	  1266	  1272#
..0026	  1269	  1274#
..0027	  1301	  1307#
..0030	  1304	  1309#                                                                                                    SEQ 0327
..0031	  1323	  1329#
..0032	  1326	  1331#
..0033	  1358	  1364#
..0034	  1361	  1366#
..0035	  1380	  1386#
..0036	  1383	  1388#
..0037	  1415	  1421#
..0040	  1418	  1423#
..0041	  1437	  1443#
..0042	  1440	  1445#
..0043	  1472	  1478#
..0044	  1475	  1480#
..0045	  1494	  1500#
..0046	  1497	  1502#
..0047	  1529	  1535#
..0050	  1532	  1537#
..0051	  1551	  1557#
..0052	  1554	  1559#
..0053	  1586	  1592#
..0054	  1589	  1594#
..0055	  1608	  1614#
..0056	  1611	  1616#
..0057	  1701	  1707#
..0060	  1704	  1709#
..0061	  1726	  1732#
..0062	  1729	  1734#
..0063	  1793	  1799#
..0064	  1796	  1801#
..0065	  1840	  1846#
..0066	  1843	  1848#
..0067	  1887	  1893#
..0070	  1890	  1895#
..0071	  1934	  1940#
..0072	  1937	  1942#
..0073	  1981	  1987#
..0074	  1984	  1989#
..0075	  2028	  2034#
..0076	  2031	  2036#
..0077	  2149	  2155#
..0100	  2152	  2157#
..0101	  2199	  2205#
..0102	  2202	  2207#
..0103	  2249	  2255#
..0104	  2252	  2257#
..0105	  2299	  2305#
..0106	  2302	  2307#
..0107	  2349	  2355#
..0110	  2352	  2357#
..0111	  2399	  2405#
..0112	  2402	  2407#
..0113	  2466	  2472#
..0114	  2469	  2474#
..0115	  2513	  2519#                                                                                                    SEQ 0328
..0116	  2516	  2521#
..0117	  2560	  2566#
..0120	  2563	  2568#
..0121	  2607	  2613#
..0122	  2610	  2615#
..0123	  2654	  2660#
..0124	  2657	  2662#
..0125	  2701	  2707#
..0126	  2704	  2709#
..0127	  2768	  2774#
..0130	  2771	  2776#
..0131	  2815	  2821#
..0132	  2818	  2823#
..0133	  2862	  2868#
..0134	  2865	  2870#
..0135	  2909	  2915#
..0136	  2912	  2917#
..0137	  2956	  2962#
..0140	  2959	  2964#
..0141	  3003	  3009#
..0142	  3006	  3011#
..0143	  3070	  3076#
..0144	  3073	  3078#
..0145	  3117	  3123#
..0146	  3120	  3125#
..0147	  3164	  3170#
..0150	  3167	  3172#
..0151	  3211	  3217#
..0152	  3214	  3219#
..0153	  3258	  3264#
..0154	  3261	  3266#
..0155	  3305	  3311#
..0156	  3308	  3313#
..0157	  3372	  3378#
..0160	  3375	  3380#
..0161	  3419	  3425#
..0162	  3422	  3427#
..0163	  3466	  3472#
..0164	  3469	  3474#
..0165	  3513	  3519#
..0166	  3516	  3521#
..0167	  3560	  3566#
..0170	  3563	  3568#
..0171	  3607	  3613#
..0172	  3610	  3615#
..0173	  3828	  3834#
..0174	  3831	  3836#
..0175	  3875	  3881#
..0176	  3878	  3883#
..0177	  3922	  3928#
..0200	  3925	  3930#
..0201	  3969	  3975#
..0202	  3972	  3977#                                                                                                    SEQ 0329
..0203	  4016	  4022#
..0204	  4019	  4024#
..0205	  4063	  4069#
..0206	  4066	  4071#
..0207	  4110	  4116#
..0210	  4113	  4118#
..0211	  4157	  4163#
..0212	  4160	  4165#
..0213	  4266	  4272#
..0214	  4269	  4274#
..0215	  4291	  4297#
..0216	  4294	  4299#
..0217	  4316	  4322#
..0220	  4319	  4324#
..0221	  4341	  4347#
..0222	  4344	  4349#
..0223	  4366	  4372#
..0224	  4369	  4374#
..0225	  4391	  4397#
..0226	  4394	  4399#
..0227	  4604	  4610#
..0230	  4607	  4612#
..0231	  4631	  4637#
..0232	  4634	  4639#
..0233	  4658	  4664#
..0234	  4661	  4666#
..0235	  4685	  4691#
..0236	  4688	  4693#
..0237	  4712	  4718#
..0240	  4715	  4720#
..0241	  4739	  4745#
..0242	  4742	  4747#
..0243	  4783	  4789#
..0244	  4786	  4791#
..0245	  4810	  4816#
..0246	  4813	  4818#
..0247	  4837	  4843#
..0250	  4840	  4845#
..0251	  4864	  4870#
..0252	  4867	  4872#
..0253	  4891	  4897#
..0254	  4894	  4899#
..0255	  4918	  4924#
..0256	  4921	  4926#
..0257	  4962	  4968#
..0260	  4965	  4970#
..0261	  4989	  4995#
..0262	  4992	  4997#
..0263	  5016	  5022#
..0264	  5019	  5024#
..0265	  5043	  5049#
..0266	  5046	  5051#
..0267	  5070	  5076#                                                                                                    SEQ 0330
..0270	  5073	  5078#
..0271	  5097	  5103#
..0272	  5100	  5105#
..0273	  5141	  5147#
..0274	  5144	  5149#
..0275	  5168	  5174#
..0276	  5171	  5176#
..0277	  5195	  5201#
..0300	  5198	  5203#
..0301	  5222	  5228#
..0302	  5225	  5230#
..0303	  5249	  5255#
..0304	  5252	  5257#
..0305	  5276	  5282#
..0306	  5279	  5284#
..0307	  5320	  5326#
..0310	  5323	  5328#
..0311	  5347	  5353#
..0312	  5350	  5355#
..0313	  5374	  5380#
..0314	  5377	  5382#
..0315	  5401	  5407#
..0316	  5404	  5409#
..0317	  5428	  5434#
..0320	  5431	  5436#
..0321	  5455	  5461#
..0322	  5458	  5463#
..0323	  5703	  5709#
..0324	  5706	  5711#
..0325	  5753	  5759#
..0326	  5756	  5761#
..0327	  5803	  5809#
..0330	  5806	  5811#
..0331	  5853	  5859#
..0332	  5856	  5861#
..0333	  5903	  5909#
..0334	  5906	  5911#
..0335	  5953	  5959#
..0336	  5956	  5961#
..0337	  6003	  6009#
..0340	  6006	  6011#
..0341	  6053	  6059#
..0342	  6056	  6061#
..0343	  6148#	  6153
..0344	  6167#	  6172
..0345	  6186#	  6191
..0346	  6205#	  6210
..0347	  6224#	  6229
..0350	  6243#	  6248
..0351	  6262#	  6267
..0352	  6281#	  6286
..0353	  6300#	  6305
..0354	  6319#	  6324                                                                                                     SEQ 0331
..0355	  6338#	  6343
..0356	  6357#	  6362
..0357	  6376#	  6381
..0360	  6407#	  6412
..0361	  6426#	  6431
..0362	  6445#	  6450
..0363	  6464#	  6469
..0364	  6483#	  6488
..0365	  6502#	  6507
..0366	  6521#	  6526
..0367	  6540#	  6545
..0370	  6559#	  6564
..0371	  6578#	  6583
..0372	  6597#	  6602
..0373	  6616#	  6621
..0374	  6654#	  6659	  6667
..0375	  6662#
..0376	  6681#	  6686	  6694
..0377	  6689#
..0400	  6708#	  6714	  6722
..0401	  6717#
..0402	  6736#	  6742	  6750
..0403	  6745#
..0404	  6764#	  6769	  6777
..0405	  6772#
..0406	  6791#	  6796	  6804
..0407	  6799#
..0410	  6818#	  6824	  6832
..0411	  6827#
..0412	  6846#	  6851	  6859
..0413	  6854#
..0414	  6873#	  6878	  6886
..0415	  6881#
..0416	  6900#	  6906	  6914
..0417	  6909#
..0420	  6928#	  6933	  6941
..0421	  6936#
..0422	  6955#	  6960	  6968
..0423	  6963#
..0424	  6982#	  6988	  6996
..0425	  6991#
..0426	  7010#	  7016	  7024
..0427	  7019#
..0430	  7038#	  7043	  7051
..0431	  7046#
..0432	  7065#	  7070	  7078
..0433	  7073#
..0434	  7092#	  7098	  7106
..0435	  7101#
..0436	  7120#	  7125	  7133
..0437	  7128#
..0440	  7147#	  7152	  7160
..0441	  7155#                                                                                                            SEQ 0332
..0442	  7174#	  7180	  7188
..0443	  7183#
..0444	  7221#	  7226	  7234
..0445	  7229#
..0446	  7248#	  7253	  7261
..0447	  7256#
..0450	  7275#	  7281	  7289
..0451	  7284#
..0452	  7303#	  7309	  7317
..0453	  7312#
..0454	  7331#	  7336	  7344
..0455	  7339#
..0456	  7358#	  7363	  7371
..0457	  7366#
..0460	  7386#	  7392	  7400
..0461	  7395#
..0462	  7414#	  7419	  7427
..0463	  7422#
..0464	  7441#	  7446	  7454
..0465	  7449#
..0466	  7469#	  7475	  7483
..0467	  7478#
..0470	  7497#	  7502	  7510
..0471	  7505#
..0472	  7524#	  7529	  7537
..0473	  7532#
..0474	  7551#	  7557	  7565
..0475	  7560#
..0476	  7579#	  7585	  7593
..0477	  7588#
..0500	  7607#	  7612	  7620
..0501	  7615#
..0502	  7634#	  7639	  7647
..0503	  7642#
..0504	  7662#	  7668	  7676
..0505	  7671#
..0506	  7690#	  7695	  7703
..0507	  7698#
..0510	  7717#	  7722	  7730
..0511	  7725#
..0512	  7745#	  7751	  7759
..0513	  7754#
..0514	  7837#	  7842	  7850
..0515	  7845#
..0516	  7864#	  7869	  7877
..0517	  7872#
..0520	  7891#	  7896	  7904
..0521	  7899#
..0522	  7918#	  7923	  7931
..0523	  7926#
..0524	  7955#	  7960	  7968
..0525	  7963#
..0526	  7982#	  7987	  7995                                                                                             SEQ 0333
..0527	  7990#
..0530	  8009#	  8014	  8022
..0531	  8017#
..0532	  8036#	  8041	  8049
..0533	  8044#
..0534	  8063#	  8068	  8076
..0535	  8071#
..0536	  8090#	  8095	  8103
..0537	  8098#
..0540	  8117#	  8122	  8130
..0541	  8125#
..0542	  8144#	  8149	  8157
..0543	  8152#
..0544	  8171#	  8176	  8184
..0545	  8179#
..0546	  8198#	  8203	  8211
..0547	  8206#
..0550	  8225#	  8230	  8238
..0551	  8233#
..0552	  8252#	  8257	  8265
..0553	  8260#
..0554	  8279#	  8284	  8292
..0555	  8287#
..0556	  8306#	  8311	  8319
..0557	  8314#
..0560	  8333#	  8338	  8346
..0561	  8341#
..0562	  8360#	  8365	  8373
..0563	  8368#
..0564	  8387#	  8392	  8400
..0565	  8395#
..0566	  8414#	  8420	  8428
..0567	  8423#
..0570	  8442#	  8448	  8456
..0571	  8451#
..0572	  8470#	  8475	  8483
..0573	  8478#
..0574	  8497#	  8502	  8510
..0575	  8505#
..0576	  8524#	  8529	  8537
..0577	  8532#
..0600	  8551#	  8556	  8564
..0601	  8559#
..0602	  8578#	  8583	  8591
..0603	  8586#
..0604	  8618#	  8623
..0605	  8638#	  8643
..0606	  8668#	  8673
..0607	  8688#	  8693
..0610	  8722#	  8727
..0611	  8742#	  8747
..0612	  8762#	  8767
..0613	  8782#	  8787                                                                                                     SEQ 0334
..0614	  8802#	  8807
..0615	  8822#	  8827
..0616	  8842#	  8847
..0617	  8862#	  8867
..0620	  8882#	  8887
..0621	  8902#	  8907
..0622	  8922#	  8927
..0623	  8942#	  8947
..0624	  8962#	  8967
..0625	  8982#	  8987
..0626	  9002#	  9007
..0627	  9022#	  9027
..0630	  9042#	  9047
..0631	  9062#	  9067
..0632	  9082#	  9087
..0633	  9102#	  9107
..0634	  9122#	  9127
..0635	  9142#	  9147
..0636	  9162#	  9167
..0637	  9182#	  9187
..0640	  9217#	  9223	  9231
..0641	  9226#
..0642	  9247#	  9253	  9261
..0643	  9256#
..0644	  9276#	  9282	  9290
..0645	  9285#
..0646	  9306#	  9312	  9320
..0647	  9315#
..0650	  9336#	  9342	  9350
..0651	  9345#
..0652	  9366#	  9372	  9380
..0653	  9375#
..0654	  9397#	  9403	  9411
..0655	  9406#
..0656	  9427#	  9433	  9441
..0657	  9436#
..0660	  9457#	  9463	  9471
..0661	  9466#
..0662	  9487#	  9493	  9501
..0663	  9496#
..0664	  9517#	  9523	  9531
..0665	  9526#
..0666	  9559#	  9565	  9573
..0667	  9568#
..0670	  9588#	  9593	  9601
..0671	  9596#
..0672	  9616#	  9622	  9630
..0673	  9625#
..0674	  9645#	  9650	  9658
..0675	  9653#
..0676	  9673#	  9678	  9686
..0677	  9681#
..0700	  9701#	  9706	  9714                                                                                             SEQ 0335
..0701	  9709#
..0702	  9729#	  9734	  9742
..0703	  9737#
..0704	  9757#	  9762	  9770
..0705	  9765#
..0706	  9785#	  9790	  9798
..0707	  9793#
..0710	  9813#	  9818	  9826
..0711	  9821#
..0712	  9841#	  9846	  9854
..0713	  9849#
..0714	  9869#	  9874	  9882
..0715	  9877#
..0716	  9897#	  9902	  9910
..0717	  9905#
..0720	  9925#	  9930	  9938
..0721	  9933#
..0722	  9953#	  9958	  9966
..0723	  9961#
..0724	  9981#	  9986	  9994
..0725	  9989#
..0726	 10026#	 10031	 10039
..0727	 10034#
..0730	 10054#	 10059	 10067
..0731	 10062#
..0732	 10082#	 10087	 10095
..0733	 10090#
..0734	 10110#	 10115	 10123
..0735	 10118#
..0736	 10139#	 10145	 10153
..0737	 10148#
..0740	 10169#	 10175	 10183
..0741	 10178#
..0742	 10198#	 10204	 10212
..0743	 10207#
..0744	 10228#	 10234	 10242
..0745	 10237#
..0746	 10298#	 10303	 10314
..0747	 10306#
..0750	 10328#	 10333	 10344
..0751	 10336#
..0752	 10358#	 10363	 10374
..0753	 10366#
..0754	 10388#	 10393	 10404
..0755	 10396#
..0756	 10418#	 10423	 10434
..0757	 10426#
..0760	 10448#	 10453	 10464
..0761	 10456#
..0762	 10478#	 10483	 10494
..0763	 10486#
..0764	 10508#	 10513	 10524
..0765	 10516#                                                                                                            SEQ 0336
..0766	 10538#	 10543	 10554
..0767	 10546#
..0770	 10568#	 10573	 10584
..0771	 10576#
..0772	 10598#	 10603	 10614
..0773	 10606#
..0774	 10628#	 10633	 10644
..0775	 10636#
..0776	 10658#	 10663	 10674
..0777	 10666#
..1000	 10688#	 10693	 10704
..1001	 10696#
..1002	 10718#	 10723	 10734
..1003	 10726#
..1004	 10748#	 10753	 10764
..1005	 10756#
..1006	 10778#	 10783	 10794
..1007	 10786#
..1010	 10808#	 10813	 10824
..1011	 10816#
..1012	 10838#	 10844	 10855
..1013	 10847#
..1014	 10869#	 10874	 10885
..1015	 10877#
..1016	 10899#	 10904	 10915
..1017	 10907#
..1020	 10929#	 10934	 10945
..1021	 10937#
..1022	 10959#	 10964	 10975
..1023	 10967#
..1024	 10989#	 10994	 11005
..1025	 10997#
..1026	 11019#	 11024	 11035
..1027	 11027#
..1030	 11049#	 11054	 11065
..1031	 11057#
..1032	 11080#	 11086	 11097
..1033	 11089#
..1034	 11111#	 11117	 11128
..1035	 11120#
..1036	 11142#	 11147	 11158
..1037	 11150#
..1040	 11173#	 11178	 11189
..1041	 11181#
..1042	 11204#	 11209	 11220
..1043	 11212#
..1044	 11235#	 11240	 11251
..1045	 11243#
..1046	 11266#	 11271	 11282
..1047	 11274#
.JB41	   563#
.JBAPR	   563#
.JBCNI	   563#                                                                                                            SEQ 0337
.JBDDT	   563#
.JBFF	   563#
.JBOPC	   563#
.JBREL	   563#
.JBREN	   563#
.JBSA	   563#
.JBSYM	   563#
.JBTPC	   563#
.JBUSY	   563#
.JBUUO	   563#
.JBVER	   563#

CFLUSH	   481#
CHECKA	   209#	   954	   979	  1004	  1029	  1054	  1079	  1104	  1183	  1205	  1240	  1262	  1297	  1319     SEQ 0338
	  1354	  1376	  1411	  1433	  1468	  1490	  1525	  1547	  1582	  1604	  1697	  1722	  2145	  2195
	  2245	  2295	  2345	  2395	  2462	  2509	  2556	  2603	  2650	  2697	  2764	  2811	  2858	  2905
	  2952	  2999	  3066	  3113	  3160	  3207	  3254	  3301	  3368	  3415	  3462	  3509	  3556	  3603
CHECKB	   250#	  1789	  1836	  1883	  1930	  1977	  2024	  3824	  3871	  3918	  3965	  4012	  4059	  4106
	  4153
CHECKS	   229#	  4262	  4287	  4312	  4337	  4362	  4387	  5137	  5164	  5191	  5218	  5245	  5272	  5316
	  5343	  5370	  5397	  5424	  5451	  5699	  5749	  5799	  5849	  5899	  5949	  5999	  6049
CHECKT	   270#	  4600	  4627	  4654	  4681	  4708	  4735	  4779	  4806	  4833	  4860	  4887	  4914	  4958
	  4985	  5012	  5039	  5066	  5093
CINVAL	   480#
CLOKOP	   475#
CWRTBI	   482#
DROPDV	   442#
ENDUUO	   488#	   645
EOPUUO	   489#	   647
ERLOOP	   533#	   968	   993	  1018	  1043	  1068	  1093	  1118	  1197	  1219	  1254	  1276	  1311	  1333
	  1368	  1390	  1425	  1447	  1482	  1504	  1539	  1561	  1596	  1618	  1668	  1711	  1736	  1803
	  1816	  1850	  1863	  1897	  1910	  1944	  1957	  1991	  2004	  2038	  2051	  2159	  2173	  2209
	  2223	  2259	  2273	  2309	  2323	  2359	  2373	  2409	  2423	  2476	  2490	  2523	  2537	  2570
	  2584	  2617	  2631	  2664	  2678	  2711	  2725	  2778	  2792	  2825	  2839	  2872	  2886	  2919
	  2933	  2966	  2980	  3013	  3027	  3080	  3094	  3127	  3141	  3174	  3188	  3221	  3235	  3268
	  3282	  3315	  3329	  3382	  3396	  3429	  3443	  3476	  3490	  3523	  3537	  3570	  3584	  3617
	  3631	  3838	  3851	  3885	  3898	  3932	  3945	  3979	  3992	  4026	  4039	  4073	  4086	  4120
	  4133	  4167	  4180	  4276	  4301	  4326	  4351	  4376	  4401	  4494	  4528	  4614	  4641	  4668
	  4695	  4722	  4749	  4793	  4820	  4847	  4874	  4901	  4928	  4972	  4999	  5026	  5053	  5080
	  5107	  5151	  5178	  5205	  5232	  5259	  5286	  5330	  5357	  5384	  5411	  5438	  5465	  5713
	  5727	  5763	  5777	  5813	  5827	  5863	  5877	  5913	  5927	  5963	  5977	  6013	  6027	  6063
	  6077	  6153	  6172	  6191	  6210	  6229	  6248	  6267	  6286	  6305	  6324	  6343	  6362	  6381
	  6412	  6431	  6450	  6469	  6488	  6507	  6526	  6545	  6564	  6583	  6602	  6621	  6659	  6667
	  6686	  6694	  6714	  6722	  6742	  6750	  6769	  6777	  6796	  6804	  6824	  6832	  6851	  6859
	  6878	  6886	  6906	  6914	  6933	  6941	  6960	  6968	  6988	  6996	  7016	  7024	  7043	  7051
	  7070	  7078	  7098	  7106	  7125	  7133	  7152	  7160	  7180	  7188	  7226	  7234	  7253	  7261
	  7281	  7289	  7309	  7317	  7336	  7344	  7363	  7371	  7392	  7400	  7419	  7427	  7446	  7454
	  7475	  7483	  7502	  7510	  7529	  7537	  7557	  7565	  7585	  7593	  7612	  7620	  7639	  7647
	  7668	  7676	  7695	  7703	  7722	  7730	  7751	  7759	  7804	  7811	  7842	  7850	  7869	  7877
	  7896	  7904	  7923	  7931	  7960	  7968	  7987	  7995	  8014	  8022	  8041	  8049	  8068	  8076
	  8095	  8103	  8122	  8130	  8149	  8157	  8176	  8184	  8203	  8211	  8230	  8238	  8257	  8265
	  8284	  8292	  8311	  8319	  8338	  8346	  8365	  8373	  8392	  8400	  8420	  8428	  8448	  8456
	  8475	  8483	  8502	  8510	  8529	  8537	  8556	  8564	  8583	  8591	  8623	  8643	  8673	  8693
	  8727	  8747	  8767	  8787	  8807	  8827	  8847	  8867	  8887	  8907	  8927	  8947	  8967	  8987
	  9007	  9027	  9047	  9067	  9087	  9107	  9127	  9147	  9167	  9187	  9223	  9231	  9253	  9261
	  9282	  9290	  9312	  9320	  9342	  9350	  9372	  9380	  9403	  9411	  9433	  9441	  9463	  9471
	  9493	  9501	  9523	  9531	  9565	  9573	  9593	  9601	  9622	  9630	  9650	  9658	  9678	  9686
	  9706	  9714	  9734	  9742	  9762	  9770	  9790	  9798	  9818	  9826	  9846	  9854	  9874	  9882
	  9902	  9910	  9930	  9938	  9958	  9966	  9986	  9994	 10031	 10039	 10059	 10067	 10087	 10095
	 10115	 10123	 10145	 10153	 10175	 10183	 10204	 10212	 10234	 10242	 10303	 10314	 10333	 10344
	 10363	 10374	 10393	 10404	 10423	 10434	 10453	 10464	 10483	 10494	 10513	 10524	 10543	 10554
	 10573	 10584	 10603	 10614	 10633	 10644	 10663	 10674	 10693	 10704	 10723	 10734	 10753	 10764
	 10783	 10794	 10813	 10824	 10844	 10855	 10874	 10885	 10904	 10915	 10934	 10945	 10964	 10975
	 10994	 11005	 11024	 11035	 11054	 11065	 11086	 11097	 11117	 11128	 11147	 11158	 11178	 11189
	 11209	 11220	 11240	 11251	 11271	 11282
ERLP1	   534#
ERLP2	   535#                                                                                                            SEQ 0339
ERRHLT	   376#
ERROR	   542#	   921#	   966	   991	  1016	  1041	  1066	  1091	  1116	  1195	  1217	  1252	  1274	  1309
	  1331	  1366	  1388	  1423	  1445	  1480	  1502	  1537	  1559	  1594	  1616	  1666	  1709	  1734
	  1801	  1814	  1848	  1861	  1895	  1908	  1942	  1955	  1989	  2002	  2036	  2049	  2157	  2170
	  2207	  2220	  2257	  2270	  2307	  2320	  2357	  2370	  2407	  2420	  2474	  2487	  2521	  2534
	  2568	  2581	  2615	  2628	  2662	  2675	  2709	  2722	  2776	  2789	  2823	  2836	  2870	  2883
	  2917	  2930	  2964	  2977	  3011	  3024	  3078	  3091	  3125	  3138	  3172	  3185	  3219	  3232
	  3266	  3279	  3313	  3326	  3380	  3393	  3427	  3440	  3474	  3487	  3521	  3534	  3568	  3581
	  3615	  3628	  3836	  3849	  3883	  3896	  3930	  3943	  3977	  3990	  4024	  4037	  4071	  4084
	  4118	  4131	  4165	  4178	  4274	  4299	  4324	  4349	  4374	  4399	  4492	  4525	  4612	  4639
	  4666	  4693	  4720	  4747	  4791	  4818	  4845	  4872	  4899	  4926	  4970	  4997	  5024	  5051
	  5078	  5105	  5149	  5176	  5203	  5230	  5257	  5284	  5328	  5355	  5382	  5409	  5436	  5463
	  5711	  5725	  5761	  5775	  5811	  5825	  5861	  5875	  5911	  5925	  5961	  5975	  6011	  6025
	  6061	  6075	  6151	  6170	  6189	  6208	  6227	  6246	  6265	  6284	  6303	  6322	  6341	  6360
	  6379	  6410	  6429	  6448	  6467	  6486	  6505	  6524	  6543	  6562	  6581	  6600	  6619	  6657
	  6664	  6684	  6691	  6712	  6719	  6740	  6747	  6767	  6774	  6794	  6801	  6822	  6829	  6849
	  6856	  6876	  6883	  6904	  6911	  6931	  6938	  6958	  6965	  6986	  6993	  7014	  7021	  7041
	  7048	  7068	  7075	  7096	  7103	  7123	  7130	  7150	  7157	  7178	  7185	  7224	  7231	  7251
	  7258	  7279	  7286	  7307	  7314	  7334	  7341	  7361	  7368	  7390	  7397	  7417	  7424	  7444
	  7451	  7473	  7480	  7500	  7507	  7527	  7534	  7555	  7562	  7583	  7590	  7610	  7617	  7637
	  7644	  7666	  7673	  7693	  7700	  7720	  7727	  7749	  7756	  7802	  7809	  7840	  7847	  7867
	  7874	  7894	  7901	  7921	  7928	  7958	  7965	  7985	  7992	  8012	  8019	  8039	  8046	  8066
	  8073	  8093	  8100	  8120	  8127	  8147	  8154	  8174	  8181	  8201	  8208	  8228	  8235	  8255
	  8262	  8282	  8289	  8309	  8316	  8336	  8343	  8363	  8370	  8390	  8397	  8418	  8425	  8446
	  8453	  8473	  8480	  8500	  8507	  8527	  8534	  8554	  8561	  8581	  8588	  8621	  8641	  8671
	  8691	  8725	  8745	  8765	  8785	  8805	  8825	  8845	  8865	  8885	  8905	  8925	  8945	  8965
	  8985	  9005	  9025	  9045	  9065	  9085	  9105	  9125	  9145	  9165	  9185	  9221	  9228	  9251
	  9258	  9280	  9287	  9310	  9317	  9340	  9347	  9370	  9377	  9401	  9408	  9431	  9438	  9461
	  9468	  9491	  9498	  9521	  9528	  9563	  9570	  9591	  9598	  9620	  9627	  9648	  9655	  9676
	  9683	  9704	  9711	  9732	  9739	  9760	  9767	  9788	  9795	  9816	  9823	  9844	  9851	  9872
	  9879	  9900	  9907	  9928	  9935	  9956	  9963	  9984	  9991	 10029	 10036	 10057	 10064	 10085
	 10092	 10113	 10120	 10143	 10150	 10173	 10180	 10202	 10209	 10232	 10239	 10301	 10311	 10331
	 10341	 10361	 10371	 10391	 10401	 10421	 10431	 10451	 10461	 10481	 10491	 10511	 10521	 10541
	 10551	 10571	 10581	 10601	 10611	 10631	 10641	 10661	 10671	 10691	 10701	 10721	 10731	 10751
	 10761	 10781	 10791	 10811	 10821	 10842	 10852	 10872	 10882	 10902	 10912	 10932	 10942	 10962
	 10972	 10992	 11002	 11022	 11032	 11052	 11062	 11084	 11094	 11115	 11125	 11145	 11155	 11176
	 11186	 11207	 11217	 11238	 11248	 11269	 11279
ERROR1	   553#
ERUUO	   532#	   967	   992	  1017	  1042	  1067	  1092	  1117	  1196	  1218	  1253	  1275	  1310	  1332
	  1367	  1389	  1424	  1446	  1481	  1503	  1538	  1560	  1595	  1617	  1667	  1710	  1735	  1802
	  1815	  1849	  1862	  1896	  1909	  1943	  1956	  1990	  2003	  2037	  2050	  2158	  2172	  2208
	  2222	  2258	  2272	  2308	  2322	  2358	  2372	  2408	  2422	  2475	  2489	  2522	  2536	  2569
	  2583	  2616	  2630	  2663	  2677	  2710	  2724	  2777	  2791	  2824	  2838	  2871	  2885	  2918
	  2932	  2965	  2979	  3012	  3026	  3079	  3093	  3126	  3140	  3173	  3187	  3220	  3234	  3267
	  3281	  3314	  3328	  3381	  3395	  3428	  3442	  3475	  3489	  3522	  3536	  3569	  3583	  3616
	  3630	  3837	  3850	  3884	  3897	  3931	  3944	  3978	  3991	  4025	  4038	  4072	  4085	  4119
	  4132	  4166	  4179	  4275	  4300	  4325	  4350	  4375	  4400	  4493	  4527	  4613	  4640	  4667
	  4694	  4721	  4748	  4792	  4819	  4846	  4873	  4900	  4927	  4971	  4998	  5025	  5052	  5079
	  5106	  5150	  5177	  5204	  5231	  5258	  5285	  5329	  5356	  5383	  5410	  5437	  5464	  5712
	  5726	  5762	  5776	  5812	  5826	  5862	  5876	  5912	  5926	  5962	  5976	  6012	  6026	  6062
	  6076	  6152	  6171	  6190	  6209	  6228	  6247	  6266	  6285	  6304	  6323	  6342	  6361	  6380
	  6411	  6430	  6449	  6468	  6487	  6506	  6525	  6544	  6563	  6582	  6601	  6620	  6658	  6666
	  6685	  6693	  6713	  6721	  6741	  6749	  6768	  6776	  6795	  6803	  6823	  6831	  6850	  6858     SEQ 0340
	  6877	  6885	  6905	  6913	  6932	  6940	  6959	  6967	  6987	  6995	  7015	  7023	  7042	  7050
	  7069	  7077	  7097	  7105	  7124	  7132	  7151	  7159	  7179	  7187	  7225	  7233	  7252	  7260
	  7280	  7288	  7308	  7316	  7335	  7343	  7362	  7370	  7391	  7399	  7418	  7426	  7445	  7453
	  7474	  7482	  7501	  7509	  7528	  7536	  7556	  7564	  7584	  7592	  7611	  7619	  7638	  7646
	  7667	  7675	  7694	  7702	  7721	  7729	  7750	  7758	  7803	  7810	  7841	  7849	  7868	  7876
	  7895	  7903	  7922	  7930	  7959	  7967	  7986	  7994	  8013	  8021	  8040	  8048	  8067	  8075
	  8094	  8102	  8121	  8129	  8148	  8156	  8175	  8183	  8202	  8210	  8229	  8237	  8256	  8264
	  8283	  8291	  8310	  8318	  8337	  8345	  8364	  8372	  8391	  8399	  8419	  8427	  8447	  8455
	  8474	  8482	  8501	  8509	  8528	  8536	  8555	  8563	  8582	  8590	  8622	  8642	  8672	  8692
	  8726	  8746	  8766	  8786	  8806	  8826	  8846	  8866	  8886	  8906	  8926	  8946	  8966	  8986
	  9006	  9026	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186	  9222	  9230	  9252	  9260
	  9281	  9289	  9311	  9319	  9341	  9349	  9371	  9379	  9402	  9410	  9432	  9440	  9462	  9470
	  9492	  9500	  9522	  9530	  9564	  9572	  9592	  9600	  9621	  9629	  9649	  9657	  9677	  9685
	  9705	  9713	  9733	  9741	  9761	  9769	  9789	  9797	  9817	  9825	  9845	  9853	  9873	  9881
	  9901	  9909	  9929	  9937	  9957	  9965	  9985	  9993	 10030	 10038	 10058	 10066	 10086	 10094
	 10114	 10122	 10144	 10152	 10174	 10182	 10203	 10211	 10233	 10241	 10302	 10313	 10332	 10343
	 10362	 10373	 10392	 10403	 10422	 10433	 10452	 10463	 10482	 10493	 10512	 10523	 10542	 10553
	 10572	 10583	 10602	 10613	 10632	 10643	 10662	 10673	 10692	 10703	 10722	 10733	 10752	 10763
	 10782	 10793	 10812	 10823	 10843	 10854	 10873	 10884	 10903	 10914	 10933	 10944	 10963	 10974
	 10993	 11004	 11023	 11034	 11053	 11064	 11085	 11096	 11116	 11127	 11146	 11157	 11177	 11188
	 11208	 11219	 11239	 11250	 11270	 11281
FATAL	   375#
FRD36	   517#
FRD8	   518#
FREAD	   516#
FSELEC	   515#
GET	   359#	 11328	 11376	 11447
GO	   356#	  6150	  6169	  6188	  6207	  6226	  6245	  6264	  6283	  6302	  6321	  6340	  6359	  6378
	  6409	  6428	  6447	  6466	  6485	  6504	  6523	  6542	  6561	  6580	  6599	  6618	  6656	  6683
	  6711	  6739	  6766	  6793	  6821	  6848	  6875	  6903	  6930	  6957	  6985	  7013	  7040	  7067
	  7095	  7122	  7149	  7177	  7223	  7250	  7278	  7306	  7333	  7360	  7389	  7416	  7443	  7472
	  7499	  7526	  7554	  7582	  7609	  7636	  7665	  7692	  7719	  7748	  7839	  7866	  7893	  7920
	  7957	  7984	  8011	  8038	  8065	  8092	  8119	  8146	  8173	  8200	  8227	  8254	  8281	  8308
	  8335	  8362	  8389	  8417	  8445	  8472	  8499	  8526	  8553	  8580	  8620	  8640	  8670	  8690
	  8724	  8744	  8764	  8784	  8804	  8824	  8844	  8864	  8884	  8904	  8924	  8944	  8964	  8984
	  9004	  9024	  9044	  9064	  9084	  9104	  9124	  9144	  9164	  9184	  9220	  9250	  9279	  9309
	  9339	  9369	  9400	  9430	  9460	  9490	  9520	  9562	  9590	  9619	  9647	  9675	  9703	  9731
	  9759	  9787	  9815	  9843	  9871	  9899	  9927	  9955	  9983	 10028	 10056	 10084	 10112	 10142
	 10172	 10201	 10231	 10300	 10330	 10360	 10390	 10420	 10450	 10480	 10510	 10540	 10570	 10600
	 10630	 10660	 10690	 10720	 10750	 10780	 10810	 10841	 10871	 10901	 10931	 10961	 10991	 11021
	 11051	 11083	 11114	 11144	 11175	 11206	 11237	 11268
HALT	    54	    55	    56	    57	    58	   361#	   666
JEN	   363#
JRSTF	   362#	 11349	 11411
MAPADR	   498#
MAPCNK	   499#
MAPMEM	   495#
MAPPNT	   501#
MAPSET	   500#
MEMSEG	   497#
MEMZRO	   496#
MODPCP	   508#
MODPCU	   507#                                                                                                            SEQ 0341
MTROP	   476#
MULT	   104#	  6142	  6161	  6180	  6199	  6218	  6237	  6256	  6275	  6294	  6313	  6332	  6351	  6370
	  6401	  6420	  6439	  6458	  6477	  6496	  6515	  6534	  6553	  6572	  6591	  6610
MULTF	   121#	  6648	  6675	  6702	  6730	  6758	  6785	  6812	  6840	  6867	  6894	  6922	  6949	  6976
	  7004	  7032	  7059	  7086	  7114	  7141	  7168	  7215	  7242	  7269	  7297	  7325	  7352	  7379
	  7408	  7435	  7462	  7491	  7518	  7545	  7573	  7601	  7628	  7655	  7684	  7711	  7738	  7831
	  7858	  7885	  7912	  7949	  7976	  8003	  8030	  8057	  8084	  8111	  8138	  8165	  8192	  8219
	  8246	  8273	  8300	  8327	  8354	  8381	  8408	  8436	  8464	  8491	  8518	  8545	  8572
NAME	     7#	    10
ODIV	   183#	 10292	 10322	 10352	 10382	 10412	 10442	 10472	 10502	 10532	 10562	 10592	 10622	 10652
	 10682	 10712	 10742	 10772	 10802	 10832	 10863	 10893	 10923	 10953	 10983	 11013	 11043	 11073
	 11105	 11136	 11167	 11198	 11229	 11260
PBELL	   451#
PCRL	   445#	 11478	 11489	 11498	 11515	 11526	 11535	 11552	 11563	 11578	 11603	 11614	 11631
PCRL2	   449#
PCRL2F	   450#
PCRLF	   446#
PCSAVE	    79#	  1784	  1831	  1878	  1925	  1972	  2019	  2138	  2188	  2238	  2288	  2338	  2388	  2457
	  2504	  2551	  2598	  2645	  2692	  2759	  2806	  2853	  2900	  2947	  2994	  3061	  3108	  3155
	  3202	  3249	  3296	  3363	  3410	  3457	  3504	  3551	  3598	  3819	  3866	  3913	  3960	  4007
	  4054	  4101	  4148	  4479	  5694	  5744	  5794	  5844	  5894	  5944	  5994	  6044	  7785
PDIV	   142#	  8611	  8631	  8661	  8681	  8715	  8735	  8755	  8775	  8795	  8815	  8835	  8855	  8875
	  8895	  8915	  8935	  8955	  8975	  8995	  9015	  9035	  9055	  9075	  9095	  9115	  9135	  9155
	  9175
PDIVF	   160#	  9209	  9239	  9269	  9298	  9328	  9358	  9389	  9419	  9449	  9479	  9509	  9552	  9581
	  9609	  9638	  9666	  9694	  9722	  9750	  9778	  9806	  9834	  9862	  9890	  9918	  9946	  9974
	 10019	 10047	 10075	 10103	 10131	 10161	 10191	 10220
PFORCE	   453#
PGMINT	   369#	   929
PJRST	   360#
PMSG	   455#	 11468	 11479	 11490	 11505	 11516	 11527	 11542	 11553	 11564	 11585	 11604	 11615	 11623
PMSGF	   458#
PNT1	   411#
PNT11	   425#
PNT11F	   426#
PNT1F	   412#
PNT2	   413#
PNT2F	   414#
PNT3	   415#
PNT3F	   416#
PNT4	   417#
PNT4F	   418#
PNT5	   419#
PNT5F	   420#
PNT6	   421#
PNT6F	   422#
PNT7	   423#
PNT7F	   424#
PNTA	   397#
PNTADF	   428#
PNTADR	   427#
PNTAF	   398#
PNTAL	   399#                                                                                                            SEQ 0342
PNTALF	   400#
PNTCHF	   410#
PNTCHR	   409#
PNTCI	   407#
PNTCIF	   408#
PNTCW	   443#
PNTCWF	   444#
PNTDCF	   436#
PNTDEC	   435#
PNTDS	   437#
PNTDSF	   438#
PNTHW	   431#
PNTHWF	   432#
PNTMGN	   522#
PNTMSF	   404#
PNTMSG	   403#
PNTNM	   439#
PNTOCF	   434#
PNTOCS	   433#
PNTOCT	   429#	 11472	 11476	 11483	 11487	 11493	 11496	 11509	 11513	 11520	 11524	 11530	 11533	 11546
	 11550	 11557	 11561	 11567	 11570	 11573	 11576	 11589	 11593	 11597	 11601	 11608	 11612	 11618
	 11621	 11626	 11629
PNTOTF	   430#
PNTSIX	   440#
PNTSXF	   441#
PSIXL	   401#
PSIXLF	   402#
PSIXM	   405#	 11468	 11479	 11490	 11505	 11516	 11527	 11542	 11553	 11564	 11585	 11604	 11615	 11623
PSIXMF	   406#
PSP	   447#
PSPF	   448#
PUT	   358#
REPTUO	   536#
RTN	   357#	   653	 11326	 11374	 11445	 11499	 11536	 11579	 11632
S	   287#
SIXBTZ	   464#	   933	  4242	  6123	  8596
SWITCH	   470#
TFLAG	    89#	  1806	  1853	  1900	  1947	  1994	  2041	  2162	  2212	  2262	  2312	  2362	  2412	  2479
	  2526	  2573	  2620	  2667	  2714	  2781	  2828	  2875	  2922	  2969	  3016	  3083	  3130	  3177
	  3224	  3271	  3318	  3385	  3432	  3479	  3526	  3573	  3620	  3841	  3888	  3935	  3982	  4029
	  4076	  4123	  4170	  4517	  5717	  5767	  5817	  5867	  5917	  5967	  6017	  6067
TTALTM	   391#
TTICHR	   384#
TTICLR	   394#
TTICNV	   389#
TTIDEC	   388#
TTINO	   386#
TTIOCT	   387#
TTIYES	   385#
TTLOOK	   390#
TTSIXB	   392#
TTYINP	   393#