Google
 

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





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


	PRODUCT CODE:		AH-7319B-DD

	DIAGNOSTIC CODE:	DFKCA

	PRODUCT NAME:		DFKCAB0 KL10 ADVANCED INSTRUCTION DIAGNOSTIC

	VERSION:		0.2

	DATE RELEASED:		APRIL 1979

	MAINTAINED BY:		LARGE SYSTEMS DIAGNOSTICS 

	AUTHOR:			JOHN R. KIRCHOFF

		        COPYRIGHT (C) 1975, 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-DFKCA.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-DFKCA.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

	THIS PDP-10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
	FIRST IN A SERIES OF PDP-10 KL10 PROCESSOR FLOATING
	POINT DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE FUNCTIONALITY OF THE KL10
	SINGLE PRECISION AND DOUBLE PRECISION FLOATING POINT
	INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	CONSOLE PROCESSOR
	CONSOLE TELETYPE
	DECTAPE
	LINE PRINTER (OPTIONAL)

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

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

	LOAD VIA CONSOLE PROCESSOR
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
	TIME SHARING - RUN UNDER DIAMON.
							MAINDEC-10-DFKCA.TXT
							PAGE 4                                                             SEQ 0004

3.2	STARTING PROCEDURE

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

	B.  EXEC MODE

	    STAND-ALONE STARTING ADDRESS IS 30000.

	C.  USER MODE

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

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

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

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

		    SPECIFY LH SWITCHES IN OCTAL-

		    SPECIFY RH SWITCHES IN OCTAL-

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

		    IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
		    ARE USED.  THIS IS ONLY VALID UPON RESTARTING
		    OF AN INTERRUPTED PROGRAM.
							MAINDEC-10-DFKCA.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-DFKCA.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	KL10 - ALLOW CACHE USE
			1	KL10 - INHIBIT CACHE
							MAINDEC-10-DFKCA.TXT
							PAGE 7                                                             SEQ 0007

5.0	ERRORS

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

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

	WHEN THE SCOPE LOOP MODE IS USED, 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-DFKCA.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 'DFKCA.LPT'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

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

8.0	OPERATIONAL VARIATIONS (CON'T)

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

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

	C.  SYSTEM EXERCISER

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

9.0	MISCELLANEOUS

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

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

PRODUCT CODE:		MAINDEC-10-DFKCA

PRODUCT NAME:		KL10 ADVANCED INSTUCTION DIAGNOSTIC 

DATE RELEASED:		JULY 1979

VERSION:		0.2

UPDATE AUTHOR:		BILL SCORZELLI

CHANGES MADE:

		BECAUSE OF A NEW RELEASE OF THE MICROCODE VERSION 231
THE FLOATING POINT LONG INSTUCTIONS HAVE BEEN TAKEN OUT.

************************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 1             
                                                                                                                           SEQ 0011




















				   DOCUMENT
				**************
         DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^
				**************

















		    COPYRIGHT 1980
		    DIGITAL EQUIPMENT CORPORATION
		    MAYNARD, MASS. 01754

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 2             
                                                                                                                           SEQ 0012

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


	25	DIAGNOSTIC PARAMETERS

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

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

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

	1160	PART I.A - FSC AND NORMALIZE RETURN

	1942	 PART I.B-FAD AND NORM RET

	2871	PART I.C-FAD (NORM RET, ROUNDING)

	2991	PART I.D-FSB

	3152	 PART I.E-GEN TEST-FSC,FAD,FSB

	6380	DIAGNOSTIC SECTION, PART TWO

	7077	 PART IIIB-GEN TEST-FMP,FDV

	8992	DIAGNOSTIC SECTION - FIX - CONVERSION OF 0

	9036	DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES

	9675	DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1

	10171	DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS

	10937	DIAGNOSTIC SECTION - FIX - TRUNCATION

	11108	DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS

	11125	DIAGNOSTIC SECTION - FIXR - ROUNDING

	11318	DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS

	11331	DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW

	11404	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS

	11999	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 3             
                                                                                                                           SEQ 0013

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


	12630	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS

	13169	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES

	13690	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES

	14220	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS

	14782	DIAGNOSTIC SECTION - FLTR - ROUNDING

	14841	DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS

	14854	DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS

	14994	DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0

	15034	DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS

	15135	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS

	15344	DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0

	15394	DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS

	15513	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS

	15610	DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS

	15799	DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS

	15963	DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0

	16007	DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS

	16149	DIAGNOSTIC SECTION - DMOVEM - BIS FLAG

	16182	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS

	16369	DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0

	16416	DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS

	16576	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 4             
                                                                                                                           SEQ 0014

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


	16664	DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS

	16850	TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS

	28412	CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS

	30336	DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND

	32291	DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND

	32546	DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND

	33660	DFDV TEST-DOUBLE FLOATING POINT DIVIDE

	34398	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975

	34568	*STOR* RESERVED STORAGE, SEPT 18,1979
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 5             
                                                                                                                           SEQ 0015
		*****************************************************************
	25	DIAGNOSTIC PARAMETERS
		*****************************************************************

		215	*KI10**

		221	*KL10**

		378	*KI10**

		384	*KL10**

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

		576	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

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

		609	SPECIAL SUBPROGRAM LINKAGES

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

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

		*****************************************************************
	1160	PART I.A - FSC AND NORMALIZE RETURN
		*****************************************************************

		*****************************************************************
	1942	 PART I.B-FAD AND NORM RET
		*****************************************************************

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 6             
                                                                                                                           SEQ 0016
		*****************************************************************
	2871	PART I.C-FAD (NORM RET, ROUNDING)
		*****************************************************************

		*****************************************************************
	2991	PART I.D-FSB
		*****************************************************************

		*****************************************************************
	3152	 PART I.E-GEN TEST-FSC,FAD,FSB
		*****************************************************************

		*****************************************************************
	6380	DIAGNOSTIC SECTION, PART TWO
		*****************************************************************

		*****************************************************************
	7077	 PART IIIB-GEN TEST-FMP,FDV
		*****************************************************************

		*****************************************************************
	8992	DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
		*****************************************************************

		*****************************************************************
	9036	DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
		*****************************************************************

		*****************************************************************
	9675	DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
		*****************************************************************

		*****************************************************************
	10171	DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
		*****************************************************************

		*****************************************************************
	10937	DIAGNOSTIC SECTION - FIX - TRUNCATION
		*****************************************************************

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 7             
                                                                                                                           SEQ 0017
		*****************************************************************
	11108	DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	11125	DIAGNOSTIC SECTION - FIXR - ROUNDING
		*****************************************************************

		*****************************************************************
	11318	DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	11331	DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
		*****************************************************************

		*****************************************************************
	11404	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
		*****************************************************************

		*****************************************************************
	11999	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
		*****************************************************************

		*****************************************************************
	12630	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
		*****************************************************************

		*****************************************************************
	13169	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
		*****************************************************************

		*****************************************************************
	13690	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
		*****************************************************************

		*****************************************************************
	14220	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
		*****************************************************************

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 8             
                                                                                                                           SEQ 0018
		*****************************************************************
	14782	DIAGNOSTIC SECTION - FLTR - ROUNDING
		*****************************************************************

		*****************************************************************
	14841	DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	14854	DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
		*****************************************************************

		*****************************************************************
	14994	DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
		*****************************************************************

		*****************************************************************
	15034	DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	15135	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
		*****************************************************************

		*****************************************************************
	15344	DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
		*****************************************************************

		*****************************************************************
	15394	DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	15513	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
		*****************************************************************

		*****************************************************************
	15610	DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
		*****************************************************************

		15621	*KI10**

		15627	*KL10**

		15666	*KI10**

		15672	*KL10**

		15711	*KI10**

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 9             
                                                                                                                           SEQ 0019
		15717	*KL10**

		15756	*KI10**

		15762	*KL10**

		*****************************************************************
	15799	DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
		*****************************************************************

		*****************************************************************
	15963	DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
		*****************************************************************

		*****************************************************************
	16007	DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	16149	DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
		*****************************************************************

		16154	*KI10 ONLY TEST**

		*****************************************************************
	16182	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
		*****************************************************************

		*****************************************************************
	16369	DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
		*****************************************************************

		*****************************************************************
	16416	DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
		*****************************************************************

		*****************************************************************
	16576	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
		*****************************************************************

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 10            
                                                                                                                           SEQ 0020
		*****************************************************************
	16664	DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
		*****************************************************************

		16667	*KI10**

		16673	*KL10**

		16713	*KI10**

		16719	*KL10**

		16759	*KI10**

		16765	*KL10**

		16805	*KI10**

		16811	*KL10**

		*****************************************************************
	16850	TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
		*****************************************************************

		*****************************************************************
	28412	CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS
		*****************************************************************

		*****************************************************************
	30336	DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND
		*****************************************************************

		*****************************************************************
	32291	DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND
		*****************************************************************

		*****************************************************************
	32546	DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND
		*****************************************************************

DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^            DECDOC VER  00.24    3-OCT-80 14:12:58   PAGE 11            
                                                                                                                           SEQ 0021
		*****************************************************************
	33660	DFDV TEST-DOUBLE FLOATING POINT DIVIDE
		*****************************************************************

		*****************************************************************
	34398	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
		*****************************************************************

		*****************************************************************
	34568	*STOR* RESERVED STORAGE, SEPT 18,1979
		*****************************************************************
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 1
DFKCAT	MAC	 3-Oct-80 13:56		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979                              SEQ 0022

     1					;MAINDEC-10-DFKCA
     2
     3			000002		DECVER=002
     4			000000		MCNVER=000
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^
    13
    14						XALL
    15
    16					;COPYRIGHT 1975
    17					;DIGITAL EQUIPMENT CORPORATION
    18					;MARLBORO, MASS. 01752
    19
    20					;JOHN R. KIRCHOFF
    21
    22	000137				LOC	137
    23	000137	000000	000002		MCNVER,,DECVER
    24						NOSYM
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0023

    25					SUBTTL	DIAGNOSTIC PARAMETERS
    26
    27					;OPERATOR DEFINITIONS
    28
    29		001000	000000		OPDEF	ER1	[1B8]
    30		002000	000000		OPDEF	ER2	[2B8]
    31		003000	000000		OPDEF	ER3	[3B8]
    32		004000	000000		OPDEF	ER4	[4B8]
    33		005000	000000		OPDEF	ER5	[5B8]
    34		006000	000000		OPDEF	ER6	[6B8]
    35		007000	000000		OPDEF	ER7	[7B8]
    36		010000	000000		OPDEF	ER10	[10B8]
    37		011000	000000		OPDEF	ER11	[11B8]
    38		012000	000000		OPDEF	ER12	[12B8]
    39		013000	000000		OPDEF	ER13	[13B8]
    40
    41			070350		LUUO1==ERRMES
    42			070350		LUUO2==ERRMES
    43			070350		LUUO3==ERRMES
    44			070350		LUUO4==ERRMES
    45			070350		LUUO5==ERRMES
    46			070350		LUUO6==ERRMES
    47			070350		LUUO7==ERRMES
    48			070350		LUUO10==ERRMES
    49			070350		LUUO11==ERRMES
    50			070350		LUUO12==ERRMES
    51			070350		LUUO13==ERRMES
    52
    53					;SUBROUTINE ASSEMBLY DEFINITIONS
    54
    55			000100		DEBUG=100
    56			000001		EXCASB=1
    57			000001		USRASB=1
    58			000001		KI10=1
    59			000001		KL10=1
    60			000001		KL10P0=1
    61			000001		PGMEND=1
    62			000001		ERDIAG=1
    63			000001		KLOLD=1
    64			030000		MODDVU=BEGIN
    65			030000		MODDVL=BEGIN
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0024

    66					;MACROS
    67
    68					DEFINE	SAVEAC	(A,B)<
    69						MOVEI	AC+2,.
    70						MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
    71						MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
    72						MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION>
    73
    74					;BEGIN ASSEMBLY PARAMETERS
    75
    76			030000		SADR1=BEGIN
    77			030076		SADR2=RESRT1
    78			030600		SADR3=RENTR1
    79			030000		SADR4=BEGIN
    80			030000		SADR5=BEGIN
    81			030000		SADR6=BEGIN
    82		254200	030000		SADR7=HALT BEGIN
    83		254200	030000		SADR8=HALT BEGIN
    84		254200	030000		SADR9=HALT BEGIN
    85		254200	030000		SADR10=HALT BEGIN
    86		254200	030000		SADR11=HALT BEGIN
    87
    88			000000		PAREA1=0
    89			000000		PAREA2=0
    90		444653	434100		PAREA3=SIXBIT/DFKCA/
    91		546064	000000		PAREA4=SIXBIT/LPT/
    92			000000		PAREA5=0
    93			000000		PAREA6=0
    94
    95			001000		ITERAT=1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0025

    96					DEFINE	DMVE	(L,A,B,C,D)	<
    97					;THIS MACRO TESTS THE DMOVE INSTRUCTION
    98					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
    99					;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
   100					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
   101					;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
   102					;[XWD A,B] AND [XWD C,D], RESPECTIVELY.  THE TEST PASSES IF THESE
   103					;COMPARISONS AGREE.
   104					
   105					Q'L'0:	MOVE	AC+5,[XWD A,B]		;INITIALIZE TEST WORDS
   106						MOVE	AC+6,[XWD C,D]		;FOR COMPARISON
   107						MOVE	AC,[XWD 707070,707070]
   108						MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
   109						DMOVE	AC,[XWD A,B		;*MOVE DOUBLE WORD A,B ; C,D
   110							    XWD C,D]		;FROM MEMORY TO AC, AC+1
   111						CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
   112						ER3	AC,L'1			;FAIL IF CONTENTS(AC) NOT = A,B
   113						CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
   114						ER4	AC+1,L'2		;FAIL IF CONTENTS(AC+1) NOT = C,D
   115						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
   116
   117
   118					DEFINE 	DMVE17	(L,T,A,B,C,D)	<
   119					;THIS MACRO TESTS THE DMOVE INSTRUCTION
   120					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
   121					;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
   122					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
   123					;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST
   124					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   125					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   126					
   127					Q'T'0:	MOVEM	AC,%SV17#		;SAVE AC17
   128					Q'L'0:	MOVE	AC+5,[XWD A,B]		;INITIALIZE TEST WORDS
   129						MOVE	AC+6,[XWD C,D]		;FOR COMPARISON
   130						MOVE	AC,[XWD 707070,707070]
   131						MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
   132						DMOVE	AC,[XWD A,B		;*MOVE DOUBLE WORD A,B ; C,D
   133							    XWD C,D]		;FROM MEMORY TO AC, AC+1
   134					Q'T'3:	CAMN	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
   135						JRST	.+4			;HERE IF NO ERROR
   136						MOVEM	AC,AC-1			;STORE INCORRECT RESLUTS
   137						MOVE	AC,%SV17		;RESTORE P
   138						ER3	AC-1,L'1		;FAIL IF CONTENTS(AC) NOT = A,B
   139						CAMN	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
   140						JRST	.+4			;HERE IF NO ERROR
   141						MOVEM	AC+1,AC-1		;STORE INCORRECT WORD
   142						MOVE	AC,%SV17		;RESTORE P
   143						ER4	AC-1,L'2
   144						MOVE	AC,%SV17		;RESTORE AC UNCONDITIONALLY
   145						JUMPL	SAC,Q'T'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0026

   146					DEFINE	DMVN	(L,A,B,C,D)	<
   147					;THIS MACRO TESTS THE DMOVN INSTRUCTION
   148					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
   149					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
   150					;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
   151					;THE DMOVN INSTRUCTION.  C(AC) AND C(AC+1) ARE THEN COMPARED
   152					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
   153					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   154					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   155					
   156					Q'L'0:	DMOVE	AC,[XWD 707070,707070
   157							    XWD 070707,070707]  ;INITIALIZE AC,AC+1
   158						SETCM	AC+5,[XWD A,B]		;INITIALIZE TEST WORDS FOR COMPARISON
   159						IFIDN	<C,D><0,0>,<
   160						SETZ	AC+6,
   161						ADDI	AC+5,1	>
   162						IFIDN	<C,D><400000,0>,<
   163						SETZ	AC+6,
   164						ADDI	AC+5,1	>
   165						IFDIF	<C,D><0,0>,<
   166						IFDIF	<C,D><400000,0>,<
   167						MOVN	AC+6,[XWD C,D]
   168						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
   169						DMOVN	AC,[XWD A,B		;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
   170							    XWD C,D]		;C,D FROM MEMORY TO AC, AC+1
   171						CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
   172						ER3	AC,L'1			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
   173						CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
   174						ER4	AC+1,L'2		;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
   175						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0027

   176					DEFINE	DMVN17	(L,A,B,C,D)	<
   177					;THIS MACRO TESTS THE DMOVN INSTRUCTION
   178					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
   179					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
   180					;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
   181					;THE DMOVN INSTRUCTION.  C(AC) AND C(AC+1) ARE THEN COMPARED
   182					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
   183					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   184					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   185					
   186					Q'L'0:	MOVEM	AC,%SV17		;SAVE P
   187						DMOVE	AC,[XWD 707070,707070
   188							    XWD 070707,070707]  ;INITIALIZE AC,AC+1
   189						SETCM	AC+5,[XWD A,B]		;INITIALIZE TEST WORDS FOR COMPARISON
   190						IFIDN	<C,D><0,0>,<
   191						SETZ	AC+6,
   192						ADDI	AC+5,1	>
   193						IFIDN	<C,D><400000,0>,<
   194						SETZ	AC+6,
   195						ADDI	AC+5,1	>
   196						IFDIF	<C,D><0,0>,<
   197						IFDIF	<C,D><400000,0>,<
   198						MOVN	AC+6,[XWD C,D]
   199						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
   200						DMOVN	AC,[XWD A,B		;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
   201							    XWD C,D]		;C,D FROM MEMORY TO AC, AC+1
   202						CAMN	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
   203						JRST	.+4			;HERE IF TESTS OK
   204						MOVEM	AC,AC-1			;SAVE BAD WORD
   205						MOVE	AC,%SV17		;RESTORE P
   206						ER3	AC-1,L'1		;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
   207						CAMN	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
   208						JRST	.+4			;HERE IF TESTS OK
   209						MOVEM	AC,AC-1
   210						MOVE	AC,%SV17		;RESTORE P
   211						ER4	AC+1,L'2		;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
   212						MOVE	AC,%SV17		;RESTORE P UNCODITIONALLY
   213						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0028

   214					DEFINE	DMVNF	(L,A,B,C,D,KIEF,KIUF,KLEF,KLUF)	<
   215					;**KI10**
   216					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
   217					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   218					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   219					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
   220					
   221					;**KL10**
   222					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   223					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   224					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   225					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   226					
   227					Q'L'0:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
   228						DMOVN	AC+1,[XWD A,B		;*DMOVN TEST
   229							      XWD C,D]
   230						JSP	AC,.+1			;READ FLAGS
   231					Q'L'1:	TLZ	AC,027777		;CLEAR EXTRA JUNK
   232						TLNE	AC,USERF		;IN USER MODE ?
   233						JRST	Q'L'4			;YES
   234						SKIPE	KLFLG			;KL10 ?
   235						JRST	Q'L'3			;YES
   236					;KI10 EXEC MODE
   237						CAME	AC,[KIEF,,Q'L'1]
   238						ER13	AC,L'1			;FAIL IF OVFL OR CRY0,1 FLG SET
   239					Q'L'2:	JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH
   240						JRST	Q'L'6
   241					;KL10 EXEC MODE
   242					Q'L'3:	CAME	AC,[KLEF,,Q'L'1]
   243						ER13	AC,L'1			;FAIL IF FLAGS NOT SET
   244						JRST	Q'L'2
   245					;KL10/KI10 USER MODE
   246					Q'L'4:	SKIPE	KLFLG			;KL10 ?
   247						JRST	Q'L'5			;YES
   248					;KI10 USER MODE
   249						CAME	AC,[KIUF,,Q'L'1]
   250						ER13	AC,L'1			;FAIL IF ANY FLAGS SET
   251						JRST	Q'L'2
   252					;KL10 USER MODE
   253					Q'L'5:	CAME	AC,[KLUF,,Q'L'1]
   254						ER13	AC,L'1			;FAIL IF FLAGS NOT SET
   255						JRST	Q'L'2
   256					
   257					Q'L'6:	JRST	.+1>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 8
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0029

   258					DEFINE	DMVM	(L,A,B,C,D)	<
   259					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
   260					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
   261					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
   262					;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
   263					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
   264					;THE DMOVEM INSTRUCTION.  C(TSTWD) AND C(TSTWD+1) ARE THEN
   265					;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   266					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   267					
   268					Q'L'0:	DMOVE	AC,[XWD 707070,707070
   269							    XWD 070707,070707]	;INITIALIZE TEST WORDS
   270						MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
   271						MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
   272						DMOVE	AC,[XWD A,B
   273							    XWD C,D]		;INITIALIZE AC,AC+1
   274						DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
   275										;TO MEMORY (TSTWD, TSTWD+1)
   276						DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
   277						CAME	AC,[XWD A,B]		;WAS TSTWD LOADED CORRECTLY?
   278						ER5	AC,L'1			;FAIL IF CONTENTS(TSTWD) NOT = A,B
   279						CAME	AC+1,[XWD C,D]		;WAS TSTWD+1 LOADED CORRECTLY?
   280						ER6	AC+1,L'2		;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
   281						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
   282
   283					DEFINE	DMVNM	(L,A,B,C,D)	<
   284					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
   285					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
   286					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
   287					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
   288					;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
   289					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
   290					;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
   291					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
   292					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   293					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   294					
   295					Q'L'0:	DMOVE	AC,[XWD 707070,707070
   296							    XWD 070707,070707]
   297						DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
   298						DMOVE	AC,[XWD A,B
   299							    XWD C,D]		;INITIALIZE AC,AC+1
   300						DMOVN	AC+5,[XWD A,B
   301							      XWD C,D]		;SET-UP TO CHECK RESULTS
   302						DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
   303										;TO MEMORY (TSTWD, TSTWD+1)
   304						DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
   305						CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
   306						ER5	AC,L'1			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
   307						CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
   308						ER6	AC+1,L'2		;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
   309						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0030

   310					DEFINE	DMVM17	(L,A,B,C,D)	<
   311					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
   312					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
   313					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
   314					;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
   315					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
   316					;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST
   317					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   318					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   319					
   320					Q'L'0:	MOVEM	AC,%SV17		;SAVE AC17 CAUSE IT HAS PDP
   321						DMOVE	AC,[XWD 707070,707070
   322							    XWD 070707,070707]	;INITIALIZE TEST WORDS
   323						MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
   324						MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
   325						DMOVE	AC,[XWD A,B
   326							    XWD C,D]		;INITIALIZE AC,AC+1
   327						DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
   328										;TO MEMORY (TSTWD, TSTWD+1)
   329						DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
   330						CAMN	AC,[XWD A,B]		;WAS TSTWD LOADED CORRECTLY?
   331						JRST	.+4			;HERE IF TESTS OK
   332						MOVEM	AC,AC-1			;SAVE BAD WORD
   333						MOVE	AC,%SV17		;RESTORE P
   334						ER5	AC-1,L'1		;FAIL IF CONTENTS(TSTWD) NOT = A,B
   335						CAMN	AC+1,[XWD C,D]		;WAS TSTWD+1 LOADED CORRECTLY?
   336						JRST	.+4			;HERE IF TESTS OK
   337						MOVEM	AC,AC-1			;SAVE BAD WORD
   338						MOVE	AC,%SV17		;RESTORE P
   339						ER6	AC+1,L'2		;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
   340						MOVE	AC,%SV17		;RESTORE AC UNCONDITIONALLY
   341						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 10
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0031

   342					DEFINE	DMVNM17	(L,A,B,C,D)	<
   343					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
   344					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
   345					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
   346					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
   347					;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
   348					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
   349					;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
   350					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
   351					;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
   352					;THE TEST PASSES IF THESE COMPARISONS AGREE.
   353					
   354					Q'L'0:	DMOVE	AC,[XWD 707070,707070
   355							    XWD 070707,070707]
   356						DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
   357						DMOVE	AC,[XWD A,B
   358							    XWD C,D]		;INITIALIZE AC,AC+1
   359						DMOVN	AC+5,[XWD A,B
   360							      XWD C,D]		;SET-UP TO CHECK RESULTS
   361						DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
   362										;TO MEMORY (TSTWD, TSTWD+1)
   363					
   364						DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
   365						CAMN	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
   366						JRST	.+4
   367						MOVEM	AC,AC-1			;SAVE BAD WORD
   368						MOVE	AC,%SV17		;RESTORE P
   369						ER5	AC-1,L'1		;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
   370						CAMN	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
   371						JRST	.+4			;HERE IF TESTS OK
   372						MOVEM	AC,AC-1			;SAVE BAD WORD
   373						MOVE	AC,%SV17
   374						ER6	AC+1,L'2		;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
   375						MOVE	AC,%SV17
   376						JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 11
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0032

   377					DEFINE	DMVNMF	(L,A,B,C,D,KIEF,KIUF,KLEF,KLUF)	<
   378					;**KI10**
   379					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
   380					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   381					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   382					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
   383					
   384					;**KL10**
   385					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   386					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   387					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   388					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   389					
   390					Q'L'0:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
   391						DMOVE	AC,[XWD A,B
   392							    XWD C,D]		;SETUP INITIAL
   393						DMOVNM	AC,TSTWD		;*DMOVNM TEST
   394						JSP	AC,.+1			;READ FLAGS
   395					Q'L'1:	TLZ	AC,027777		;CLEAR EXTRA JUNK
   396						TLNE	AC,USERF		;IN USER MODE ?
   397						JRST	Q'L'4			;YES
   398						SKIPE	KLFLG			;KL10 ?
   399						JRST	Q'L'3			;YES
   400					;KI10 EXEC MODE
   401						CAME	AC,[KIEF,,Q'L'1]
   402						ER13	AC,L'1			;FAIL IF OVFL OR CRY0,1 FLG SET
   403					Q'L'2:	JUMPL	SAC,Q'L'0		;LOOP ON ERROR SWITCH
   404						JRST	Q'L'6
   405					;KL10 EXEC MODE
   406					Q'L'3:	CAME	AC,[KLEF,,Q'L'1]
   407						ER13	AC,L'1			;FAIL IF FLAGS NOT SET
   408						JRST	Q'L'2
   409					;KL10/KI10 USER MODE
   410					Q'L'4:	SKIPE	KLFLG			;KL10 ?
   411						JRST	Q'L'5			;YES
   412					;KI10 USER MODE
   413						CAME	AC,[KIUF,,Q'L'1]
   414						ER13	AC,L'1			;FAIL IF ANY FLAGS SET
   415						JRST	Q'L'2
   416					;KL10 USER MODE
   417					Q'L'5:	CAME	AC,[KLUF,,Q'L'1]
   418						ER13	AC,L'1			;FAIL IF FLAGS NOT SET
   419						JRST	Q'L'2
   420					
   421					Q'L'6:	JRST	.+1>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 12
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0033

   422					DEFINE	DFA	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   423					R'T'00:	DMOVE	AC,[A,,B
   424							C,,D]
   425						DFAD	AC,[E,,F
   426							G,,H]
   427						CAME	AC,[I,,M]
   428						ER3	AC,T'01
   429						CAME	AC+1,[K,,L]
   430						ER4	AC+1,T'01
   431						JUMPL	AC+4,R'T'00		;LOOP ON ERROR SWITCH>
   432
   433					DEFINE	DFS	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   434					R'T'00:	DMOVE	AC,[A,,B
   435							C,,D]
   436						DFSB	AC,[E,,F
   437							G,,H]
   438						CAME	AC,[I,,M]
   439						ER3	AC,T'01
   440						CAME	AC+1,[K,,L]
   441						ER4	AC+1,T'01
   442						JUMPL	AC+4,R'T'00		;LOOP ON ERROR SWITCH>
   443
   444					DEFINE	DFM	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   445					R'T'00:	DMOVE	AC,[A,,B
   446							C,,D]
   447						DFMP	AC,[E,,F
   448							G,,H]
   449						CAME	AC,[I,,M]
   450						ER3	AC,T'01
   451						CAME	AC+1,[K,,L]
   452						ER4	AC+1,T'01
   453						JUMPL	AC+4,R'T'00		;LOOP ON ERROR SWITCH>
   454
   455					DEFINE	DFD	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   456					R'T'00:	DMOVE	AC,[A,,B
   457							C,,D]
   458						DFDV	AC,[E,,F
   459							G,,H]
   460						CAME	AC,[I,,M]
   461						ER3	AC,T'01
   462						CAME	AC+1,[K,,L]
   463						ER4	AC+1,T'01
   464						JUMPL	AC+4,R'T'00		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 13
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0034

   465					DEFINE	DFARP	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   466						DMOVE	AC,[A,,B
   467							C,,D]
   468						DFAD	AC,[E,,F
   469							G,,H]
   470						CAME	AC,[I,,M]
   471						ER3	AC,T
   472						CAME	AC+1,[K,,L]
   473						ER4	AC+1,T
   474						JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 14
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0035

   475					DEFINE	SDFA	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   476					S'T'00:	DMOVE	AC,[A,,B
   477							C,,D]
   478						DFAD	AC,[E,,F
   479							G,,H]
   480						CAME	AC,[I,,M]
   481						ER3	AC,T'01
   482						CAME	AC+1,[K,,L]
   483						ER4	AC+1,T'01
   484						JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH>
   485
   486					DEFINE	SDFS	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   487					S'T'00:	DMOVE	AC,[A,,B
   488							C,,D]
   489						DFSB	AC,[E,,F
   490							G,,H]
   491						CAME	AC,[I,,M]
   492						ER3	AC,T'01
   493						CAME	AC+1,[K,,L]
   494						ER4	AC+1,T'01
   495						JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH>
   496
   497					DEFINE	SDFM	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   498					S'T'00:	DMOVE	AC,[A,,B
   499							C,,D]
   500						DFMP	AC,[E,,F
   501							G,,H]
   502						CAME	AC,[I,,M]
   503						ER3	AC,T'01
   504						CAME	AC+1,[K,,L]
   505						ER4	AC+1,T'01
   506						JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH>
   507
   508					DEFINE	SDFMKL	(T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4)	<
   509					S'T'00:	DMOVE	AC,[A,,B
   510							C,,D]
   511						DFMP	AC,[E,,F
   512							G,,H]
   513						SKIPE	KLFLG
   514						JRST	S'T'05
   515						CAME	AC,[I,,M]
   516						ER3	AC,T'01
   517						CAME	AC+1,[K,,L]
   518						ER4	AC+1,T'01
   519					S'T'06:	JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH
   520						JRST	S'T'07
   521					
   522					S'T'05:	CAME	AC,[KL1,,KL2]
   523						ER3	AC,T'01
   524						CAME	AC+1,[KL3,,KL4]
   525						ER4	AC+1,T'01
   526						JRST	S'T'06
   527					
   528					S'T'07:	JRST	.+1	>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 15
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0036

   529					DEFINE	SDFD	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   530					S'T'00:	DMOVE	AC,[A,,B
   531							C,,D]
   532						DFDV	AC,[E,,F
   533							G,,H]
   534						CAME	AC,[I,,M]
   535						ER3	AC,T'01
   536						CAME	AC+1,[K,,L]
   537						ER4	AC+1,T'01
   538						JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH>
   539
   540					DEFINE	SDFDKL	(T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4)	<
   541					S'T'00:	DMOVE	AC,[A,,B
   542							C,,D]
   543						DFDV	AC,[E,,F
   544							G,,H]
   545						SKIPE	KLFLG
   546						JRST	S'T'05
   547						CAME	AC,[I,,M]
   548						ER3	AC,T'01
   549						CAME	AC+1,[K,,L]
   550						ER4	AC+1,T'01
   551					S'T'06:	JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH
   552						JRST	S'T'07
   553					
   554					S'T'05:	CAME	AC,[KL1,,KL2]
   555						ER3	AC,T'01
   556						CAME	AC+1,[KL3,,KL4]
   557						ER4	AC+1,T'01
   558						JRST	S'T'06
   559					
   560					S'T'07:	JRST	.+1	>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16
DFKCAT	MAC	 3-Oct-80 13:56		DIAGNOSTIC PARAMETERS                                                              SEQ 0037

   561					DEFINE	SDFARP	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   562						DMOVE	AC,[A,,B
   563							C,,D]
   564						DFAD	AC,[E,,F
   565							G,,H]
   566						CAME	AC,[I,,M]
   567						ER3	AC,T
   568						CAME	AC+1,[K,,L]
   569						ER4	AC+1,T
   570						JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 1
PARAM	KLM	18-Sep-79 17:16		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979                              SEQ 0038

   571					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
   572
   573					DEFINE	S,<; *********************************************************************>
   574
   575					; **********************************************************************
   576					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   577					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   578					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   579					; **********************************************************************
   580
   581			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   582			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   583			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   584
   585			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   586			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   587			010000		DING==	010000			;RING BELL ON ERROR
   588
   589			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   590			002000		ERSTOP==002000			;HALT ON TEST ERROR
   591			001000		PALERS==001000			;PRINT ALL ERRORS
   592
   593			000400		RELIAB==000400			;RELIABILITY MODE
   594			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   595			000100		INHPAG==000100			;INHIBIT PAGING
   596
   597			000040		MODDVC==000040			;MODIFY DEVICE CODE
   598			000020		INHCSH==000020			;INHIBIT CACHE
   599			000010		OPRSEL==000010			;OPERATOR SELECTION
   600
   601			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   602
   603			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   604
   605									;SWITCH 17 RESERVED !!!
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0039

   606					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
   607
   608					; **********************************************************************
   609					;*SPECIAL SUBPROGRAM LINKAGES
   610					; **********************************************************************
   611
   612			027772		FSELNK=	27772	;FILE SELECT LINK
   613			027773		FRDLNK=	27773	;FILE READ LINK
   614			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   615			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   616			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   617			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   618
   619					; **********************************************************************
   620					;*SPECIAL SUBROUTINE FATAL HALTS
   621					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   622					; **********************************************************************
   623
   624					;ADDRESS   TAG	REASON
   625					;---------------------
   626
   627					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   628					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   629					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   630					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   631					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   632					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   633					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   634					; 1017  EOPERR	;END OF PROGRAM ERROR
   635					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   636
   637					; **********************************************************************
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0040

   638					; **********************************************************************
   639					;OPERATOR DEFINITIONS (NON-UUO'S)
   640					; **********************************************************************
   641
   642		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   643		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   644		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   645		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   646		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   647		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   648		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   649		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   650
   651					; **********************************************************************
   652					;SUBROUTINE INITIALIZATION CALL
   653					; **********************************************************************
   654
   655		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   656
   657					; **********************************************************************
   658					;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   659					; **********************************************************************
   660
   661		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   662		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   663
   664					; **********************************************************************
   665					;TERMINAL INPUT UUO'S
   666					;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   667					;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   668					; **********************************************************************
   669
   670		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   671		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   672		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   673		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   674		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   675		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   676		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   677		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   678		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   679		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
   680		037500	000003		OPDEF	TTICLR	[37B8!12B12!3]	;TTY, CLEAR INPUT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0041

   681					;TERMINAL OUTPUT UUO'S.
   682
   683		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   684		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   685		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   686		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   687		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   688		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   689		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   690		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   691		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   692		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   693		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   694		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   695		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   696		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   697		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   698		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   699		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   700		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   701		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   702		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   703		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   704		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   705		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   706		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   707		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   708		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   709		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   710		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   711		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   712		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   713		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   714		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   715		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   716		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   717		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   718		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   719		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   720		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   721		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   722		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   723		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   724		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0042

   725		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   726		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   727		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   728		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   729		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   730		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   731		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   732		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   733		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   734		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   735		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   736		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   737		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   738
   739		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   740
   741					DEFINE	PMSG	(ARG),<
   742						PSIXM	[SIXBIT\ARG'_\]>
   743
   744					DEFINE	PMSGF	(ARG),<
   745						PSIXMF	[SIXBIT\ARG'_\]>
   746
   747					;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   748					;	CONSERVES CORE OVER ASCIZ
   749
   750					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   751
   752					;CONSOLE SWITCH INPUT UUO.
   753					;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   754					; USER MODE.
   755
   756		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   757
   758					;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   759					;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   760
   761		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   762		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   763
   764					;KL10 ONLY CACHE OPERATION UUO'S
   765
   766		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   767		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   768		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
PARAM	KLM	18-Sep-79 17:16		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979                                SEQ 0043

   769					;END OF PASS/PROGRAM UUOS
   770
   771					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   772					;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   773
   774		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   775		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   776
   777					;MEMORY MANAGEMENT UUO'S
   778					;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   779					;ADDRESS CONVERSION, ETC...
   780
   781		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   782		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   783		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   784		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   785		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   786		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   787		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   788
   789					;DEVICE CODE MODIFICATION UUO
   790					;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   791					;IOT'S TO A DIFFERENT DEVICE CODE.
   792
   793		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   794		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   795
   796						IFNDEF	MODDVL,<MODDVL==BEGIN>
   797						IFNDEF	MODDVU,<MODDVU==BEGIN>
   798
   799					;"DIAMON" FILE SELECTION AND READ UUOS
   800
   801		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   802		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   803		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   804		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   805
   806					;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   807
   808		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   809
   810						XLIST
   811						LIST
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 1
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0044

   812					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
   813
   814	030000					LOC	30000
   815
   816					; **********************************************************************
   817					;PROGRAM STARTING ADDRESSES
   818					;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   819					;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   820					;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   821					;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   822					; **********************************************************************
   823
   824	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   825	030001	254 00 0 00 030613 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   826
   827	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   828
   829	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   830
   831	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   832
   833	030005	254 00 0 00 030076 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   834
   835	030006	254 00 0 00 030600 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   836
   837	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   838	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   839
   840	030010	254 00 0 00 030616 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   841	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   842	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   843
   844	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   845	030014	254200	030000		START2:	SADR8			; "
   846	030015	254200	030000		START3:	SADR9			; "
   847	030016	254200	030000		START4:	SADR10			; "
   848	030017	254200	030000		START5:	SADR11			; "
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0045

   849					; **********************************************************************
   850					;PROGRAM FIXED PARAMETER AREA
   851					; **********************************************************************
   852
   853	030020	444653	434100		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   854	030021	546064	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   855	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   856	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   857	030024	000000	001000		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   858	030025	000000	030602		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   859	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   860	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   861	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   862	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   863	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   864	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   865	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   866	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   867	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   868
   869					; **********************************************************************
   870					;PROGRAM VARIABLE PARAMETER AREA
   871					; **********************************************************************
   872
   873	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   874	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   875	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   876	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   877	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   878	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   879	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   880	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   881	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   882	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   883	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   884	030052	000000	000000		ERRPC:	0		;ERROR PC
   885	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   886	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   887	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   888	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0046

   889					; **********************************************************************
   890					;SPECIAL PROGRAM DISPATCH ADDRESSES
   891					; **********************************************************************
   892
   893	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   894	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   895	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   896	030062	000000	030000		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   897	030063	000000	030000		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   898	030064				CPOPJ1:			;SKIP RETURN
   899	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   900	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   901	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   902	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   903	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   904	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   905	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   906	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   907	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   908	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   909	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   910	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   911	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   912	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   913	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   914	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   915
   916	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   917	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   918	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   919
   920					; **********************************************************************
   921					;PROCESSOR CONTROL STORAGE
   922					; **********************************************************************
   923
   924	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   925	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   926	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   927	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   928	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   929
   930	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   931	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   932
   933	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   934	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   935	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   936	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   937	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   938	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   939	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0047

   940					; **********************************************************************
   941					;UUO DISPATCH TABLE
   942					; **********************************************************************
   943						XLIST
   944						LIST
   945	030124	070350	030070		UUODIS:	LUUO1,,$UUOER
   946	030125	070350	070350			LUUO3,,LUUO2
   947	030126	070350	070350			LUUO5,,LUUO4
   948	030127	070350	070350			LUUO7,,LUUO6
   949	030130	070350	070350			LUUO11,,LUUO10
   950	030131	070350	070350			LUUO13,,LUUO12
   951	030132	030070	030070			LUUO15,,LUUO14
   952	030133	030070	030070			LUUO17,,LUUO16
   953	030134	030070	030070			LUUO21,,LUUO20
   954	030135	030070	030070			LUUO23,,LUUO22
   955	030136	030070	030070			LUUO25,,LUUO24
   956	030137	030070	030070			LUUO27,,LUUO26
   957	030140	030070	030070			LUUO31,,LUUO30
   958	030141	030070	030070			LUUO33,,LUUO32
   959
   960					; **********************************************************************
   961					;MEMORY MANAGMENT STORAGE
   962					; **********************************************************************
   963
   964	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   965	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   966	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   967	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   968	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   969
   970					; **********************************************************************
   971					;PRINT CONTROL STORAGE
   972					; **********************************************************************
   973
   974	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   975	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   976	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   977	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   978	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   979	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   980	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   981	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   982	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   983	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   984	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   985	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   986	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   987	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   988	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   989	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   990	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   991	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   992	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0048

   993					; **********************************************************************
   994					;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   995					;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   996					;	MOVEI	NAME
   997					;	PNTA		;OR PNTAF
   998					; **********************************************************************
   999
  1000	030242				CRLF:	ASCII/
  1001	030242	015 012 000 000 000 	/
  1002	030243				CRLF2:	ASCII/
  1003
  1004	030243	015 012 015 012 000 	/
  1005	030244	054 000 000 000 000 	COMMA:	ASCII/,/
  1006	030245	056 000 000 000 000 	PERIOD:	ASCII/./
  1007	030246	040 000 000 000 000 	SPACE:	ASCII/ /
  1008	030247	011 000 000 000 000 	TAB:	ASCII/	/
  1009	030250				MINUS:
  1010	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
  1011	030251	053 000 000 000 000 	PLUS:	ASCII/+/
  1012	030252	052 000 000 000 000 	AST:	ASCII/*/
  1013	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
  1014	030254	050 000 000 000 000 	LFP:	ASCII/(/
  1015	030255	051 000 000 000 000 	RTP:	ASCII/)/
  1016	030256	007 0000000000 		BELL:	BYTE (7) 007
  1017	030257	077 000 000 000 000 	QUEST:	ASCII/?/
  1018	030260	057 000 000 000 000 	SLASH:	ASCII!/!
  1019	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
  1020	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
  1021	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
  1022	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
  1023
  1024					; **********************************************************************
  1025					;USER MODE OUTPUT FILE INFORMATION
  1026					; **********************************************************************
  1027
  1028	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
  1029	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
  1030	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
  1031	030272					BLOCK	2
  1032
  1033					; **********************************************************************
  1034					;DISK UPDATE MODE FILE INFORMATION
  1035					; **********************************************************************
  1036
  1037	030274				$IBUF:	BLOCK	3
  1038	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
  1039	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
  1040	030301					BLOCK	2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0049

  1041					; **********************************************************************
  1042					;PUSHDOWN LIST CONTROL INFORMATION
  1043					; **********************************************************************
  1044
  1045	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
  1046	030304				PLISTS:	BLOCK	200
  1047	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
  1048
  1049					; **********************************************************************
  1050					;POWER LINE CLOCK FREQUENCY FLAG
  1051					; **********************************************************************
  1052
  1053	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
  1054
  1055					; **********************************************************************
  1056					;KL10 CACHE CONTROL FLAGS
  1057					; **********************************************************************
  1058
  1059	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
  1060	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
  1061
  1062					; **********************************************************************
  1063					;NUMBER INPUT DIGIT FLAG
  1064					; **********************************************************************
  1065
  1066	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
  1067
  1068					; **********************************************************************
  1069					;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
  1070					; **********************************************************************
  1071
  1072	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
  1073
  1074					; **********************************************************************
  1075					;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
  1076					; **********************************************************************
  1077
  1078	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
  1079	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
  1080	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
  1081
  1082					; **********************************************************************
  1083					;SPECIAL USERS UUO INTERCEPT INSTRUCTION
  1084					; **********************************************************************
  1085
  1086	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7
FIXED	KLM	18-Sep-79 17:18		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0050

  1087					; **********************************************************************
  1088					;USER MODE MONITOR TYPE FLAG
  1089					; **********************************************************************
  1090
  1091	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
  1092
  1093					; **********************************************************************
  1094					;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
  1095					; **********************************************************************
  1096
  1097	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
  1098
  1099					; **********************************************************************
  1100					;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
  1101					; **********************************************************************
  1102
  1103	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
  1104
  1105					; **********************************************************************
  1106					;"SWITCH" CALL USAGE CONTROL
  1107					; **********************************************************************
  1108
  1109	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
  1110
  1111					; **********************************************************************
  1112					;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
  1113					; **********************************************************************
  1114
  1115	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
  1116	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
  1117
  1118					; **********************************************************************
  1119					;SM10 (KS-10) PROCESSOR TYPE FLAG
  1120					; **********************************************************************
  1121
  1122	030524	000000	000000		SM10:	0	;IF -1 THIS IS A KS-10
  1123
  1124					; **********************************************************************
  1125					;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
  1126					; **********************************************************************
  1127
  1128	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
  1129
  1130					; **********************************************************************
  1131					;SPECIAL FUTURE EXPANSION ROOM
  1132					; **********************************************************************
  1133
  1134					; **********************************************************************
  1135					;END OF FIXED STORAGE
  1136					; **********************************************************************
  1137
  1138	030577					LOC	30577
  1139	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 1
DFKCA1	MAC	 3-Oct-80 13:56		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979                           SEQ 0051

  1140	030600	037 05 0 00 000002 	RENTR1:	DROPDV				;CLOSE LOGICAL OUTPUT FILE
  1141	030601	040 00 0 00 070555 		CALL	[SIXBIT .EXIT.]
  1142
  1143	030602				PGMNAM:	ASCIZ?
  1144	030602	015 012 113 114 061 	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1 
  1145	030603	060 040 101 104 126 
  1146	030604	101 116 103 105 104 
  1147	030605	040 111 116 123 124 
  1148	030606	122 125 103 124 111 
  1149	030607	117 116 040 104 111 
  1150	030610	101 107 116 117 123 
  1151	030611	124 111 103 040 043 
  1152	030612	061 040 015 012 000 	?
  1153					;INITIALIZE SUBROUTINES
  1154
  1155	030613	265 00 0 00 030011 	START:	PGMINT
  1156	030614	200 00 0 00 070556 		MOVE	[ASCIZ/CA/]
  1157	030615	202 00 0 00 070471 		MOVEM	TLET			;INITIALIZE TEST LETTER
  1158
  1159	030616	254 00 0 00 030617 	STARTA:	JRST	.+1			;GO PERFORM DIAGNOSTIC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0052

  1160					SUBTTL	PART I.A - FSC AND NORMALIZE RETURN
  1161
  1162					;PART I.A - FSC AND NORMALIZE RETURN
  1163					;FAILURE RESULTS IN A LOSS
  1164					;OF EXPONENT
  1165					;AC=570400000000
  1166					;SCALE=7
  1167					;FINAL AC=777400000000
  1168
  1169	030617				CA00:	LALL
  1170
  1171			000013			AC=13
  1172						SAVEAC	(1,1)^
  1173	030617	201 15 0 00 030617 		MOVEI	AC+2,.
  1174	030620	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1175	030621	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1176	030622	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1177
  1178	030623	205 11 0 00 777400 	O12300:	MOVSI	AC-2,777400		;SETUP FOR COMPARISON
  1179	030624	205 13 0 00 570400 		MOVSI	AC,570400		;SETUP AC
  1180	030625	132 13 0 00 000007 		FSC	AC,7			;RESCALE
  1181	030626	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST AC=777400000000
  1182	030627	003 13 0 00 012301 		ER3	AC,12301
  1183	030630	321 15 0 00 030623 		JUMPL	AC+2,O12300		;LOOP ON ERROR SWITCH
  1184
  1185					;AC=000400000000
  1186					;SCALE=0
  1187					;FAILURE RESULTS IN AN EXPONENT
  1188					;EQUAL TO 376
  1189
  1190			000012			AC=12
  1191						SAVEAC	(1,1)^
  1192	030631	201 14 0 00 030631 		MOVEI	AC+2,.
  1193	030632	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1194	030633	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1195	030634	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1196
  1197	030635	205 10 0 00 376400 	O12400:	MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  1198	030636	205 12 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1199	030637	132 12 0 00 000000 		FSC	AC,0			;RESCALE
  1200	030640	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST EXP=376
  1201	030641	003 12 0 00 012401 		ER3	AC,12401		;SCAD SC COMP SETUP FAILED
  1202	030642	321 14 0 00 030635 		JUMPL	AC+2,O12400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0053

  1203					;AC=175400000000
  1204					;SCALE=0
  1205					;FAILURE RESULTS IN AN EXPONENT
  1206					;EQUAL TO 002
  1207
  1208			000011			AC=11
  1209						SAVEAC	(1,1)^
  1210	030643	201 13 0 00 030643 		MOVEI	AC+2,.
  1211	030644	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1212	030645	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1213	030646	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1214
  1215	030647	205 07 0 00 177400 	O12500:	MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  1216	030650	205 11 0 00 175400 		MOVSI	AC,175400		;SETUP AC
  1217	030651	132 11 0 00 000000 		FSC	AC,0			;RESCALE
  1218	030652	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST EXP=177
  1219	030653	003 11 0 00 012501 		ER3	AC,12501
  1220	030654	321 13 0 00 030647 		JUMPL	AC+2,O12500		;LOOP ON ERROR SWITCH
  1221
  1222					;AC=000400000000
  1223					;SCALE=0
  1224					;FAILURE OF 1, 2, OR 3 RESULTS IN AN
  1225					;EXPONENT EQUAL TO 377
  1226
  1227			000010			AC=10
  1228						SAVEAC	(1,1)^
  1229	030655	201 12 0 00 030655 		MOVEI	AC+2,.
  1230	030656	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1231	030657	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1232	030660	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1233
  1234	030661	205 06 0 00 377400 	O12600:	MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1235	030662	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1236	030663	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1237	030664	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=377
  1238	030665	003 10 0 00 012601 		ER3	AC,12601
  1239	030666	321 12 0 00 030661 		JUMPL	AC+2,O12600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0054

  1240					;AC=000400000000
  1241					;SCALE=177
  1242					;FAILURE RESULTS IN AN
  1243					;EXPONENT=0
  1244
  1245			000007			AC=7
  1246						SAVEAC	(1,1)^
  1247	030667	201 11 0 00 030667 		MOVEI	AC+2,.
  1248	030670	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1249	030671	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1250	030672	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1251
  1252	030673	205 05 0 00 000400 	O12700:	MOVSI	AC-2,400		;SETUP FOR COMPARISON
  1253	030674	205 07 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1254	030675	132 07 0 00 000177 		FSC	AC,177			;RESCALE
  1255	030676	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST EXP=0
  1256	030677	003 07 0 00 012701 		ER3	AC,12701
  1257	030700	321 11 0 00 030673 		JUMPL	AC+2,O12700		;LOOP ON ERROR SWITCH
  1258					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0055

  1259					;AC=000400000000
  1260					;SCALE=201,202,204,210,220,240,300
  1261					;FAILURE OF A BIT TO SET RESULTS IN AN
  1262					;EXPONENT EQUAL TO 200
  1263
  1264			000006			AC=6
  1265						SAVEAC	(1,1)^
  1266	030701	201 10 0 00 030701 		MOVEI	AC+2,.
  1267	030702	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1268	030703	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1269	030704	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1270
  1271			013000		SN=13000
  1272			000000			ZZ=0
  1273
  1274					O13000:	REPEAT	^D7,			;TEST BITS 8-2
  1275					<SN=SN+1
  1276						ZZ=ZZ+ZZ
  1277						IFE	ZZ,<ZZ=1>
  1278						MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1279						MOVSI	AC,400			;SETUP AC
  1280						FSC	AC,200+ZZ		;RESCALE
  1281						CAMN	AC,AC-2			;TEST EXP=200
  1282						ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1283						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1284					>
  1285			013001		SN=SN+1
  1286			000000			ZZ=ZZ+ZZ
  1287			000001			IFE	ZZ,<ZZ=1>
  1288	030705	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1289	030706	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1290	030707	132 06 0 00 000201 		FSC	AC,200+ZZ		;RESCALE
  1291	030710	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1292	030711	003 06 0 00 013001 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1293	030712	321 10 0 00 030705 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1294
  1295			013002		SN=SN+1
  1296			000002			ZZ=ZZ+ZZ
  1297						IFE	ZZ,<ZZ=1>
  1298	030713	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1299	030714	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1300	030715	132 06 0 00 000202 		FSC	AC,200+ZZ		;RESCALE
  1301	030716	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1302	030717	003 06 0 00 013002 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1303	030720	321 10 0 00 030713 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1304
  1305			013003		SN=SN+1
  1306			000004			ZZ=ZZ+ZZ
  1307						IFE	ZZ,<ZZ=1>
  1308	030721	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1309	030722	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1310	030723	132 06 0 00 000204 		FSC	AC,200+ZZ		;RESCALE
  1311	030724	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1312	030725	003 06 0 00 013003 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1313	030726	321 10 0 00 030721 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0056

  1314
  1315			013004		SN=SN+1
  1316			000010			ZZ=ZZ+ZZ
  1317						IFE	ZZ,<ZZ=1>
  1318	030727	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1319	030730	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1320	030731	132 06 0 00 000210 		FSC	AC,200+ZZ		;RESCALE
  1321	030732	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1322	030733	003 06 0 00 013004 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1323	030734	321 10 0 00 030727 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1324
  1325			013005		SN=SN+1
  1326			000020			ZZ=ZZ+ZZ
  1327						IFE	ZZ,<ZZ=1>
  1328	030735	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1329	030736	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1330	030737	132 06 0 00 000220 		FSC	AC,200+ZZ		;RESCALE
  1331	030740	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1332	030741	003 06 0 00 013005 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1333	030742	321 10 0 00 030735 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1334
  1335			013006		SN=SN+1
  1336			000040			ZZ=ZZ+ZZ
  1337						IFE	ZZ,<ZZ=1>
  1338	030743	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1339	030744	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1340	030745	132 06 0 00 000240 		FSC	AC,200+ZZ		;RESCALE
  1341	030746	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1342	030747	003 06 0 00 013006 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1343	030750	321 10 0 00 030743 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1344
  1345			013007		SN=SN+1
  1346			000100			ZZ=ZZ+ZZ
  1347						IFE	ZZ,<ZZ=1>
  1348	030751	205 04 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1349	030752	205 06 0 00 000400 		MOVSI	AC,400			;SETUP AC
  1350	030753	132 06 0 00 000300 		FSC	AC,200+ZZ		;RESCALE
  1351	030754	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST EXP=200
  1352	030755	003 06 0 00 013007 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  1353	030756	321 10 0 00 030751 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1354
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0057

  1355					;TEST ABILITY TO TRANSFER ZERO'S
  1356					;TEST ABILITY TO CLEAR SC8-2
  1357					;EXPONENT =1,2,4,10,20,40,100
  1358					;SCALE = 375,373,367,357,337,277,177
  1359					;FAILURE OF A BIT TO CLEAR RESULTS
  1360					;IN AN EXPONENT = 377
  1361
  1362			000005			AC=5
  1363						SAVEAC	(1,1)^
  1364	030757	201 07 0 00 030757 		MOVEI	AC+2,.
  1365	030760	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1366	030761	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1367	030762	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1368
  1369			013100		SN=13100
  1370			000200			WW=200
  1371			001000			XX=1000
  1372			000176			ZZ=176
  1373
  1374					O13100:	REPEAT  ^D7,			;TEST BITS 8-2
  1375					<SN=SN+1
  1376						WW=WW+WW
  1377						XX=XX+WW
  1378						ZZ=ZZ+ZZ+1
  1379						MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1380						MOVSI	AC,XX			;SETUP AC
  1381						FSC	AC,ZZ			;RESCALE
  1382						CAMN	AC,AC-2			;TEST EXP = 377
  1383						ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1384						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1385					>
  1386			013101		SN=SN+1
  1387			000400			WW=WW+WW
  1388			001400			XX=XX+WW
  1389			000375			ZZ=ZZ+ZZ+1
  1390	030763	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1391	030764	205 05 0 00 001400 		MOVSI	AC,XX			;SETUP AC
  1392	030765	132 05 0 00 000375 		FSC	AC,ZZ			;RESCALE
  1393	030766	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1394	030767	003 05 0 00 013101 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1395	030770	321 07 0 00 030763 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1396
  1397			013102		SN=SN+1
  1398			001000			WW=WW+WW
  1399			002400			XX=XX+WW
  1400			000773			ZZ=ZZ+ZZ+1
  1401	030771	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1402	030772	205 05 0 00 002400 		MOVSI	AC,XX			;SETUP AC
  1403	030773	132 05 0 00 000773 		FSC	AC,ZZ			;RESCALE
  1404	030774	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1405	030775	003 05 0 00 013102 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1406	030776	321 07 0 00 030771 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1407
  1408			013103		SN=SN+1
  1409			002000			WW=WW+WW
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0058

  1410			004400			XX=XX+WW
  1411			001767			ZZ=ZZ+ZZ+1
  1412	030777	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1413	031000	205 05 0 00 004400 		MOVSI	AC,XX			;SETUP AC
  1414	031001	132 05 0 00 001767 		FSC	AC,ZZ			;RESCALE
  1415	031002	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1416	031003	003 05 0 00 013103 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1417	031004	321 07 0 00 030777 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1418
  1419			013104		SN=SN+1
  1420			004000			WW=WW+WW
  1421			010400			XX=XX+WW
  1422			003757			ZZ=ZZ+ZZ+1
  1423	031005	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1424	031006	205 05 0 00 010400 		MOVSI	AC,XX			;SETUP AC
  1425	031007	132 05 0 00 003757 		FSC	AC,ZZ			;RESCALE
  1426	031010	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1427	031011	003 05 0 00 013104 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1428	031012	321 07 0 00 031005 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1429
  1430			013105		SN=SN+1
  1431			010000			WW=WW+WW
  1432			020400			XX=XX+WW
  1433			007737			ZZ=ZZ+ZZ+1
  1434	031013	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1435	031014	205 05 0 00 020400 		MOVSI	AC,XX			;SETUP AC
  1436	031015	132 05 0 00 007737 		FSC	AC,ZZ			;RESCALE
  1437	031016	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1438	031017	003 05 0 00 013105 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1439	031020	321 07 0 00 031013 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1440
  1441			013106		SN=SN+1
  1442			020000			WW=WW+WW
  1443			040400			XX=XX+WW
  1444			017677			ZZ=ZZ+ZZ+1
  1445	031021	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1446	031022	205 05 0 00 040400 		MOVSI	AC,XX			;SETUP AC
  1447	031023	132 05 0 00 017677 		FSC	AC,ZZ			;RESCALE
  1448	031024	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1449	031025	003 05 0 00 013106 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1450	031026	321 07 0 00 031021 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1451
  1452			013107		SN=SN+1
  1453			040000			WW=WW+WW
  1454			100400			XX=XX+WW
  1455			037577			ZZ=ZZ+ZZ+1
  1456	031027	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  1457	031030	205 05 0 00 100400 		MOVSI	AC,XX			;SETUP AC
  1458	031031	132 05 0 00 037577 		FSC	AC,ZZ			;RESCALE
  1459	031032	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP = 377
  1460	031033	003 05 0 00 013107 		ER3	AC,SN			;BIT UNDER TEST FAILED TO CLEAR
  1461	031034	321 07 0 00 031027 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1462
  1463					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0059

  1464					;AC=200400000000
  1465					;SCALE=5
  1466					;FAILURE OF ANY ONE RESULTS IN LOSS
  1467					;OF THE EXPONENT. THE RESULTANT EXPONENT
  1468					;IS EQUAL TO THE SCALING FACTOR
  1469
  1470			000014			AC=14
  1471						SAVEAC	(1,1)^
  1472	031035	201 16 0 00 031035 		MOVEI	AC+2,.
  1473	031036	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1474	031037	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1475	031040	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1476
  1477	031041	205 12 0 00 005400 	O13200:	MOVSI	AC-2,5400		;SETUP FOR COMPARISON
  1478	031042	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  1479	031043	132 14 0 00 000005 		FSC	AC,5			;RESCALE
  1480	031044	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=5
  1481	031045	003 14 0 00 013201 		ER3	AC,13201
  1482	031046	321 16 0 00 031041 		JUMPL	AC+2,O13200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0060

  1483					;EXPONENT = 201,202,204,210,220,240,300
  1484					;SCALE=0
  1485					;FAILURE OF A BIT TO SET RESULTS IN AN
  1486					;EXPONENT EQUAL TO 200
  1487
  1488			000014			AC=14
  1489						SAVEAC	(1,1)^
  1490	031047	201 16 0 00 031047 		MOVEI	AC+2,.
  1491	031050	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1492	031051	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1493	031052	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1494
  1495			013300		SN=13300
  1496			000200			XX=200
  1497			201000			ZZ=201000
  1498
  1499					O13300:	REPEAT	^D7,			;TEST BITS 8-2
  1500					<SN=SN+1
  1501						XX=XX+XX
  1502						ZZ=ZZ+XX
  1503						MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1504						MOVSI	AC,ZZ			;SETUP AC
  1505						FSC	AC,0			;RESCALE
  1506						CAMN	AC,AC-2			;TEST EXP=200
  1507						ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1508						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1509					>
  1510			013301		SN=SN+1
  1511			000400			XX=XX+XX
  1512			201400			ZZ=ZZ+XX
  1513	031053	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1514	031054	205 14 0 00 201400 		MOVSI	AC,ZZ			;SETUP AC
  1515	031055	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1516	031056	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1517	031057	003 14 0 00 013301 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1518	031060	321 16 0 00 031053 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1519
  1520			013302		SN=SN+1
  1521			001000			XX=XX+XX
  1522			202400			ZZ=ZZ+XX
  1523	031061	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1524	031062	205 14 0 00 202400 		MOVSI	AC,ZZ			;SETUP AC
  1525	031063	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1526	031064	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1527	031065	003 14 0 00 013302 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1528	031066	321 16 0 00 031061 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1529
  1530			013303		SN=SN+1
  1531			002000			XX=XX+XX
  1532			204400			ZZ=ZZ+XX
  1533	031067	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1534	031070	205 14 0 00 204400 		MOVSI	AC,ZZ			;SETUP AC
  1535	031071	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1536	031072	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1537	031073	003 14 0 00 013303 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0061

  1538	031074	321 16 0 00 031067 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1539
  1540			013304		SN=SN+1
  1541			004000			XX=XX+XX
  1542			210400			ZZ=ZZ+XX
  1543	031075	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1544	031076	205 14 0 00 210400 		MOVSI	AC,ZZ			;SETUP AC
  1545	031077	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1546	031100	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1547	031101	003 14 0 00 013304 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1548	031102	321 16 0 00 031075 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1549
  1550			013305		SN=SN+1
  1551			010000			XX=XX+XX
  1552			220400			ZZ=ZZ+XX
  1553	031103	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1554	031104	205 14 0 00 220400 		MOVSI	AC,ZZ			;SETUP AC
  1555	031105	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1556	031106	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1557	031107	003 14 0 00 013305 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1558	031110	321 16 0 00 031103 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1559
  1560			013306		SN=SN+1
  1561			020000			XX=XX+XX
  1562			240400			ZZ=ZZ+XX
  1563	031111	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1564	031112	205 14 0 00 240400 		MOVSI	AC,ZZ			;SETUP AC
  1565	031113	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1566	031114	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1567	031115	003 14 0 00 013306 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1568	031116	321 16 0 00 031111 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1569
  1570			013307		SN=SN+1
  1571			040000			XX=XX+XX
  1572			300400			ZZ=ZZ+XX
  1573	031117	205 12 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1574	031120	205 14 0 00 300400 		MOVSI	AC,ZZ			;SETUP AC
  1575	031121	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1576	031122	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=200
  1577	031123	003 14 0 00 013307 		ER3	AC,SN			;GATE UNDER TEST FAILED TO SET
  1578	031124	321 16 0 00 031117 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1579
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0062

  1580					;TEST SC DATA1-8 GATES - (ZERO'S)
  1581					;TEST SCAD INPUT GATES - (ZERO'S)
  1582					;EXPONENT = 376,375,373,367,357,337,277,177
  1583					;SCALE = 1,2,4,10,20,40,100,200
  1584					;FAILURE RESULTS IN AN EXPONENT = 
  1585					;0,1,3,7,17,37,77,177
  1586
  1587			000013			AC=13
  1588						SAVEAC	(1,1)^
  1589	031125	201 15 0 00 031125 		MOVEI	AC+2,.
  1590	031126	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1591	031127	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1592	031130	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1593
  1594										;TEST SCAD8
  1595	031131	205 11 0 00 000400 	O13400:	MOVSI	AC-2,400		;SETUP FOR COMPARISON
  1596	031132	205 13 0 00 376400 		MOVSI	AC,376400		;SETUP AC
  1597	031133	132 13 0 00 000001 		FSC	AC,1			;RESCALE
  1598	031134	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP = 0
  1599	031135	003 13 0 00 013401 		ER3	AC,13401		;SCAD 8 SET
  1600	031136	321 15 0 00 031131 		JUMPL	AC+2,O13400		;LOOP ON ERROR SWITCH
  1601
  1602										;TEST SCAD7
  1603	031137	205 11 0 00 001400 	O13500:	MOVSI	AC-2,1400		;SETUP FOR COMPARISON
  1604	031140	205 13 0 00 375400 		MOVSI	AC,375400		;SETUP AC
  1605	031141	132 13 0 00 000002 		FSC	AC,2			;RESCALE
  1606	031142	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=1
  1607	031143	003 13 0 00 013501 		ER3	AC,13501		;SCAD7 SET
  1608	031144	321 15 0 00 031137 		JUMPL	AC+2,O13500		;LOOP ON ERROR SWITCH
  1609
  1610										;TEST SCAD6
  1611	031145	205 11 0 00 003400 	O13600:	MOVSI	AC-2,3400		;SETUP FOR COMPARISON
  1612	031146	205 13 0 00 373400 		MOVSI	AC,373400		;SETUP AC
  1613	031147	132 13 0 00 000004 		FSC	AC,4			;RESCALE
  1614	031150	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=3
  1615	031151	003 13 0 00 013601 		ER3	AC,13601		;SCAD6 SET
  1616	031152	321 15 0 00 031145 		JUMPL	AC+2,O13600		;LOOP ON ERROR SWITCH
  1617
  1618										;TEST SCAD5
  1619	031153	205 11 0 00 007400 	O13700:	MOVSI	AC-2,7400		;SETUP FOR COMPARISON
  1620	031154	205 13 0 00 367400 		MOVSI	AC,367400		;SETUP AC
  1621	031155	132 13 0 00 000010 		FSC	AC,10			;RESCALE
  1622	031156	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=7
  1623	031157	003 13 0 00 013701 		ER3	AC,13701		;SCAD5 SET
  1624	031160	321 15 0 00 031153 		JUMPL	AC+2,O13700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 8
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0063

  1625										;TEST SCAD4
  1626	031161	205 11 0 00 017400 	O14000:	MOVSI	AC-2,17400		;SETUP FOR COMPARISON
  1627	031162	205 13 0 00 357400 		MOVSI	AC,357400		;SETUP AC
  1628	031163	132 13 0 00 000020 		FSC	AC,20			;RESCALE
  1629	031164	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=17
  1630	031165	003 13 0 00 014001 		ER3	AC,14001		;SCAD4 SET
  1631	031166	321 15 0 00 031161 		JUMPL	AC+2,O14000		;LOOP ON ERROR SWITCH
  1632
  1633										;TEST SCAD3
  1634	031167	205 11 0 00 037400 	O14100:	MOVSI	AC-2,37400		;SETUP FOR COMPARISON
  1635	031170	205 13 0 00 337400 		MOVSI	AC,337400		;SETUP AC
  1636	031171	132 13 0 00 000040 		FSC	AC,40			;RESCALE
  1637	031172	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=37
  1638	031173	003 13 0 00 014101 		ER3	AC,14101		;SCAD3 SET
  1639	031174	321 15 0 00 031167 		JUMPL	AC+2,O14100		;LOOP ON ERROR SWITCH
  1640
  1641										;TEST SCAD2
  1642	031175	205 11 0 00 077400 	O14200:	MOVSI	AC-2,77400		;SETUP FOR COMPARISON
  1643	031176	205 13 0 00 277400 		MOVSI	AC,277400		;SETUP AC
  1644	031177	132 13 0 00 000100 		FSC	AC,100			;RESCALE
  1645	031200	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=77
  1646	031201	003 13 0 00 014201 		ER3	AC,14201		;SCAD2 SET
  1647	031202	321 15 0 00 031175 		JUMPL	AC+2,O14200		;LOOP ON ERROR SWITCH
  1648
  1649										;TEST SCAD1
  1650	031203	205 11 0 00 177400 	O14300:	MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  1651	031204	205 13 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  1652	031205	132 13 0 00 000200 		FSC	AC,200			;RESCALE
  1653	031206	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=177
  1654	031207	003 13 0 00 014301 		ER3	AC,14301		;SCAD1 SET
  1655	031210	321 15 0 00 031203 		JUMPL	AC+2,O14300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0064

  1656					;AC=577200000000
  1657					;SCALE=1
  1658					;FAILURE RESULTS IN AN EXPONENT
  1659					;EQUAL TO 776
  1660
  1661			000012			AC=12
  1662						SAVEAC	(1,1)^
  1663	031211	201 14 0 00 031211 		MOVEI	AC+2,.
  1664	031212	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1665	031213	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1666	031214	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1667
  1668	031215	205 10 0 00 776200 	O14400:	MOVSI	AC-2,776200		;SETUP FOR COMPARISON
  1669	031216	205 12 0 00 577200 		MOVSI	AC,577200		;SETUP AC
  1670	031217	132 12 0 00 000001 		FSC	AC,1			;RESCALE
  1671	031220	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST EXP=776
  1672	031221	003 12 0 00 014401 		ER3	AC,14401
  1673	031222	321 14 0 00 031215 		JUMPL	AC+2,O14400		;LOOP ON ERROR SWITCH
  1674
  1675					;AC=577200000000
  1676					;SCALING FACTOR=0
  1677					;SETTING SCAD+1 EN RESULTS IN AN
  1678					;EXPONENT=576
  1679
  1680			000011			AC=11
  1681						SAVEAC	(1,1)^
  1682	031223	201 13 0 00 031223 		MOVEI	AC+2,.
  1683	031224	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1684	031225	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1685	031226	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1686
  1687	031227	205 07 0 00 576200 	O14500:	MOVSI	AC-2,576200		;SETUP FOR COMPARISON
  1688	031230	205 11 0 00 577200 		MOVSI	AC,577200		;SETUP AC
  1689	031231	132 11 0 00 000000 		FSC	AC,0			;RESCALE
  1690	031232	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST EXP=576
  1691	031233	003 11 0 00 014501 		ER3	AC,14501
  1692	031234	321 13 0 00 031227 		JUMPL	AC+2,O14500		;LOOP ON ERROR SWITCH
  1693					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0065

  1694					;TEST ABILITY TO TRANSFER ZERO'S
  1695					;EXP=776,775,773,767,757,737,677,577
  1696					;SCALING FACTOR=0
  1697					;FAILURE OF A BIT TO CLEAR RESULTS IN
  1698					;AN EXPONENT=777
  1699
  1700			000010			AC=10
  1701						SAVEAC	(1,1)^
  1702	031235	201 12 0 00 031235 		MOVEI	AC+2,.
  1703	031236	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1704	031237	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1705	031240	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1706			014600		SN=14600
  1707			376400			ZZ=376400
  1708
  1709					O14600:	REPEAT	^D8,
  1710					<SN=SN+1
  1711						ZZ=<ZZ+ZZ+1000>&777777
  1712						MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1713						MOVSI	AC,200+ZZ		;SETUP AC
  1714						FSC	AC,0			;RESCALE
  1715						CAMN	AC,AC-2			;TEST EXP=777
  1716						ER3	AC,SN
  1717						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1718					>
  1719			014601		SN=SN+1
  1720			776000			ZZ=<ZZ+ZZ+1000>&777777
  1721	031241	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1722	031242	205 10 0 00 776200 		MOVSI	AC,200+ZZ		;SETUP AC
  1723	031243	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1724	031244	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1725	031245	003 10 0 00 014601 		ER3	AC,SN
  1726	031246	321 12 0 00 031241 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1727
  1728			014602		SN=SN+1
  1729			775000			ZZ=<ZZ+ZZ+1000>&777777
  1730	031247	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1731	031250	205 10 0 00 775200 		MOVSI	AC,200+ZZ		;SETUP AC
  1732	031251	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1733	031252	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1734	031253	003 10 0 00 014602 		ER3	AC,SN
  1735	031254	321 12 0 00 031247 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1736
  1737			014603		SN=SN+1
  1738			773000			ZZ=<ZZ+ZZ+1000>&777777
  1739	031255	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1740	031256	205 10 0 00 773200 		MOVSI	AC,200+ZZ		;SETUP AC
  1741	031257	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1742	031260	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1743	031261	003 10 0 00 014603 		ER3	AC,SN
  1744	031262	321 12 0 00 031255 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1745
  1746			014604		SN=SN+1
  1747			767000			ZZ=<ZZ+ZZ+1000>&777777
  1748	031263	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0066

  1749	031264	205 10 0 00 767200 		MOVSI	AC,200+ZZ		;SETUP AC
  1750	031265	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1751	031266	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1752	031267	003 10 0 00 014604 		ER3	AC,SN
  1753	031270	321 12 0 00 031263 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1754
  1755			014605		SN=SN+1
  1756			757000			ZZ=<ZZ+ZZ+1000>&777777
  1757	031271	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1758	031272	205 10 0 00 757200 		MOVSI	AC,200+ZZ		;SETUP AC
  1759	031273	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1760	031274	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1761	031275	003 10 0 00 014605 		ER3	AC,SN
  1762	031276	321 12 0 00 031271 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1763
  1764			014606		SN=SN+1
  1765			737000			ZZ=<ZZ+ZZ+1000>&777777
  1766	031277	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1767	031300	205 10 0 00 737200 		MOVSI	AC,200+ZZ		;SETUP AC
  1768	031301	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1769	031302	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1770	031303	003 10 0 00 014606 		ER3	AC,SN
  1771	031304	321 12 0 00 031277 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1772
  1773			014607		SN=SN+1
  1774			677000			ZZ=<ZZ+ZZ+1000>&777777
  1775	031305	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1776	031306	205 10 0 00 677200 		MOVSI	AC,200+ZZ		;SETUP AC
  1777	031307	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1778	031310	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1779	031311	003 10 0 00 014607 		ER3	AC,SN
  1780	031312	321 12 0 00 031305 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1781
  1782			014610		SN=SN+1
  1783			577000			ZZ=<ZZ+ZZ+1000>&777777
  1784	031313	205 06 0 00 777200 		MOVSI	AC-2,777200		;SETUP FOR COMPARISON
  1785	031314	205 10 0 00 577200 		MOVSI	AC,200+ZZ		;SETUP AC
  1786	031315	132 10 0 00 000000 		FSC	AC,0			;RESCALE
  1787	031316	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST EXP=777
  1788	031317	003 10 0 00 014610 		ER3	AC,SN
  1789	031320	321 12 0 00 031313 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1790
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 10
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0067

  1791					;AC=206200000000
  1792					;SCALING FACTOR=0
  1793
  1794			000007			AC=7
  1795						SAVEAC	(1,1)^
  1796	031321	201 11 0 00 031321 		MOVEI	AC+2,.
  1797	031322	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1798	031323	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1799	031324	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1800
  1801	031325	205 05 0 00 206200 	O14700:	MOVSI	AC-2,206200		;SETUP FOR COMPARISON
  1802	031326	205 07 0 00 206200 		MOVSI	AC,206200		;SETUP AC
  1803	031327	132 07 0 00 000000 		FSC	AC,0			;RESCALE
  1804	031330	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST AC=ORIG
  1805	031331	003 07 0 00 014701 		ER3	AC,14701
  1806	031332	321 11 0 00 031325 		JUMPL	AC+2,O14700		;LOOP ON ERROR SWITCH
  1807
  1808					;AC=577600000000
  1809					;SCALING FACTOR=0
  1810
  1811			000006			AC=6
  1812						SAVEAC	(1,1)^
  1813	031333	201 10 0 00 031333 		MOVEI	AC+2,.
  1814	031334	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1815	031335	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1816	031336	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1817
  1818	031337	205 04 0 00 577600 	O15000:	MOVSI	AC-2,577600		;SETUP FOR COMPARISON
  1819	031340	205 06 0 00 577600 		MOVSI	AC,577600		;SETUP AC
  1820	031341	132 06 0 00 000000 		FSC	AC,0			;RESCALE
  1821	031342	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST AC=ORIG
  1822	031343	003 06 0 00 015001 		ER3	AC,15001
  1823	031344	321 10 0 00 031337 		JUMPL	AC+2,O15000		;LOOP ON ERROR SWITCH
  1824
  1825					;AC=206200000000
  1826					;SCALING FACTOR=0
  1827					;FAILURE RESULTS IN AN EXPONENT
  1828					;EQUAL TO 170, THE FRACTION IS NORMALIZED
  1829
  1830			000005			AC=5
  1831						SAVEAC	(1,1)^
  1832	031345	201 07 0 00 031345 		MOVEI	AC+2,.
  1833	031346	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1834	031347	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1835	031350	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1836
  1837	031351	205 03 0 00 170400 	O15100:	MOVSI	AC-2,170400		;SETUP FOR COMPARISON
  1838	031352	205 05 0 00 206200 		MOVSI	AC,206200		;SETUP AC
  1839	031353	132 05 0 00 000000 		FSC	AC,0			;RESCALE
  1840	031354	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST EXP=170
  1841	031355	003 05 0 00 015101 		ER3	AC,15101
  1842	031356	321 07 0 00 031351 		JUMPL	AC+2,O15100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 11
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0068

  1843					;TEST - NR NORMAL
  1844					;AC=206200000000
  1845					;SCALE=0
  1846					;FAILURE RESULTS IN AN EXPONENT
  1847					;EQUAL TO 171, THE MANTISSA IS NORMALIZED
  1848
  1849			000014			AC=14
  1850						SAVEAC	(1,1)^
  1851	031357	201 16 0 00 031357 		MOVEI	AC+2,.
  1852	031360	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1853	031361	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1854	031362	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1855
  1856	031363	205 12 0 00 171400 	O15200:	MOVSI	AC-2,171400		;SETUP FOR COMPARISON
  1857	031364	205 14 0 00 206200 		MOVSI	AC,206200		;SETUP AC
  1858	031365	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1859	031366	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=171
  1860	031367	003 14 0 00 015201 		ER3	AC,15201
  1861	031370	321 16 0 00 031363 		JUMPL	AC+2,O15200		;LOOP ON ERROR SWITCH
  1862
  1863					;AC=200200000000
  1864					;SCALING FACTOR=0
  1865					;FAILURE RESULTS IN AN EXPONENT
  1866					;EQUAL TO ORIG. THE FRACTION IS NORMALIZED
  1867
  1868			000014			AC=14
  1869						SAVEAC	(1,1)^
  1870	031371	201 16 0 00 031371 		MOVEI	AC+2,.
  1871	031372	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1872	031373	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1873	031374	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1874
  1875	031375	205 12 0 00 200400 	O15300:	MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  1876	031376	205 14 0 00 200200 		MOVSI	AC,200200		;SETUP AC
  1877	031377	132 14 0 00 000000 		FSC	AC,0			;RESCALE
  1878	031400	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST EXP=ORIG
  1879	031401	003 14 0 00 015301 		ER3	AC,15301
  1880	031402	321 16 0 00 031375 		JUMPL	AC+2,O15300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 12
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0069

  1881					;TEST AR FXU SET
  1882					;TEST ABILITY TO SET FLAGS ON OVERFLOW
  1883					;AC=377400000000,777200000000
  1884					;SCALING FACTOR=1,-1
  1885					;AN ERROR WILL OCCUR IF APPROPRIATE
  1886					;FLAG FAILS TO SET
  1887
  1888			000013			AC=13
  1889						SAVEAC	(1,1)^
  1890	031403	201 15 0 00 031403 		MOVEI	AC+2,.
  1891	031404	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1892	031405	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1893	031406	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1894
  1895										;TEST AROV SET
  1896	031407	255 10 0 00 031410 	O15400:	JFCL	10,.+1			;CLR FLG, EXEC NEXT INST
  1897	031410	205 13 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  1898	031411	132 13 0 00 000001 		FSC	AC,1			;RESCALE (OVERFLOW)
  1899	031412	265 14 0 00 031413 		JSP	AC+1,.+1
  1900	031413	255 10 0 00 031415 		JFCL	10,.+2			;TEST AROV FLAG
  1901	031414	013 14 0 00 015401 		ER13	AC+1,15401		;AROV FAILED TO SET
  1902	031415	321 15 0 00 031407 		JUMPL	AC+2,O15400		;LOOP ON ERROR SWITCH
  1903
  1904										;TEST ARFOV SET
  1905	031416	255 01 0 00 031417 	O15500:	JFCL	1,.+1			;CLR FLG, EXEC NEXT INST
  1906	031417	205 13 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  1907	031420	132 13 0 00 000001 		FSC	AC,1			;RESCALE (OVERFLOW)
  1908	031421	265 14 0 00 031422 		JSP	AC+1,.+1
  1909	031422	255 01 0 00 031424 		JFCL	1,.+2			;TEST ARFOV FLAG
  1910	031423	013 14 0 00 015501 		ER13	AC+1,15501		;ARFOV FAILED TO SET
  1911	031424	321 15 0 00 031416 		JUMPL	AC+2,O15500		;LOOP ON ERROR SWITCH
  1912
  1913										;TEST ARFXU SET
  1914	031425	254 02 1 00 070557 	O15600:	JRST	2,@[.+1]		;CLEAR FLAG,EXEC NEXT INST
  1915	031426	205 13 0 00 777200 		MOVSI	AC,777200		;SETUP AC
  1916	031427	132 13 0 00 777777 		FSC	AC,-1			;RESCALE (UNDERFLOW)
  1917	031430	265 11 0 00 031431 		JSP	AC-2,.+1		;STORE FLAGS AND PC
  1918	031431	627 11 0 00 000100 		TLZN	AC-2,100		;TEST AND CLEAR BIT 11
  1919	031432	013 11 0 00 015601 		ER13	AC-2,15601		;AR FXU FAILED TO SET
  1920	031433	254 02 0 11 000003 		JRST	2,3(AC-2)		;CLEAR AR FXU
  1921	031434	321 15 0 00 031425 		JUMPL	AC+2,O15600		;LOOP ON ERROR SWITCH
  1922					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 12-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0070

  1923					;TEST NR ALL ZERO
  1924					;TEST ABILITY TO ASSERT NR ALL ZERO LEVEL
  1925					;AC=377000000000
  1926					;SCALE=401
  1927					;FAILURE SHOULD RESULT IN LOOPING NRT2-
  1928					;ATTEMPTING TO NORMALIZE
  1929
  1930			000012			AC=12
  1931						SAVEAC	(1,1)^
  1932	031435	201 14 0 00 031435 		MOVEI	AC+2,.
  1933	031436	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1934	031437	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1935	031440	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1936
  1937	031441	205 12 0 00 377000 	O15700:	MOVSI	AC,377000		;SETUP AC
  1938	031442	132 12 0 00 000401 		FSC	AC,401			;RESCALE
  1939	031443	332 00 0 00 000012 		SKIPE	AC			;TEST AC=0
  1940	031444	003 12 0 00 015701 		ER3	AC,15701		;NR ALL ZERO ASSERTED
  1941	031445	321 14 0 00 031441 		JUMPL	AC+2,O15700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 13
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0071

  1942					SUBTTL  PART I.B-FAD AND NORM RET
  1943
  1944
  1945					;		PART I.B-FAD AND NORM RET
  1946
  1947					;AR=000600000000
  1948					;BR=000400000000
  1949					;FAILURE RESULTS IN LOSS OF BR
  1950					;CORRECT SUM=001500000000
  1951					;ERROR SUM=000600000000
  1952
  1953			000014			AC=14
  1954						SAVEAC	(1,1)^
  1955	031446	201 16 0 00 031446 		MOVEI	AC+2,.
  1956	031447	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1957	031450	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1958	031451	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1959
  1960	031452	205 12 0 00 000600 	O16000:	MOVSI	AC-2,600		;SETUP FOR COMPARISON
  1961	031453	205 14 0 00 000600 		MOVSI	AC,600			;SETUP AC
  1962	031454	205 15 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  1963	031455	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  1964	031456	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=600000000
  1965	031457	003 14 0 00 016001 		ER3	AC,16001
  1966	031460	321 16 0 00 031452 		JUMPL	AC+2,O16000		;LOOP ON ERROR SWITCH
  1967
  1968					;AR=000600000000
  1969					;BR=000400000000
  1970					;FAILURE RESULTS IN LOSS
  1971					;OF LARGER NUMBER
  1972					;FAILURE RESULTS IN NORMALIZING
  1973					;CORRECT SUM=001500000000
  1974					;ERROR SUM=000400000000
  1975
  1976			000013			AC=13
  1977						SAVEAC	(1,1)^
  1978	031461	201 15 0 00 031461 		MOVEI	AC+2,.
  1979	031462	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1980	031463	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  1981	031464	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  1982
  1983	031465	205 13 0 00 000600 	O16100:	MOVSI	AC,600			;SETUP AC
  1984	031466	205 14 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  1985	031467	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  1986	031470	316 13 0 00 000014 		CAMN	AC,AC+1			;TEST SUM=000400000000
  1987	031471	003 13 0 00 016101 		ER3	AC,16101
  1988	031472	321 15 0 00 031465 		JUMPL	AC+2,O16100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 14
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0072

  1989					;AR=000600000000
  1990					;BR=000400000000
  1991					;FAILURE RESULTS IN LOSS OF BR
  1992					;CORRECT SUM=001500000000
  1993					;ERROR SUM=001600000000
  1994
  1995			000012			AC=12
  1996						SAVEAC	(1,1)^
  1997	031473	201 14 0 00 031473 		MOVEI	AC+2,.
  1998	031474	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  1999	031475	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2000	031476	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2001
  2002	031477	205 10 0 00 001600 	O16200:	MOVSI	AC-2,1600		;SETUP FOR COMPARISON
  2003	031500	205 12 0 00 000600 		MOVSI	AC,600			;SETUP AC
  2004	031501	205 13 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  2005	031502	140 12 0 00 000013 		FAD	AC,AC+1			;C(AC)+C(E)
  2006	031503	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST SUM=1600000000
  2007	031504	003 12 0 00 016201 		ER3	AC,16201
  2008	031505	321 14 0 00 031477 		JUMPL	AC+2,O16200		;LOOP ON ERROR SWITCH
  2009
  2010					;AR=000600000000
  2011					;BR=000400000000
  2012					;FAILURE RESULTS IN LOSS OF AR
  2013					;CORRECT SUM=001500000000
  2014					;ERROR SUM=001400000000
  2015
  2016			000011			AC=11
  2017						SAVEAC	(1,1)^
  2018	031506	201 13 0 00 031506 		MOVEI	AC+2,.
  2019	031507	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2020	031510	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2021	031511	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2022
  2023	031512	205 07 0 00 001400 	O16300:	MOVSI	AC-2,1400		;SETUP FOR COMPARISON
  2024	031513	205 11 0 00 000600 		MOVSI	AC,600			;SETUP AC
  2025	031514	205 12 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  2026	031515	140 11 0 00 000012 		FAD	AC,AC+1			;C(AC)+C(E)
  2027	031516	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST SUM=1400000000
  2028	031517	003 11 0 00 016301 		ER3	AC,16301
  2029	031520	321 13 0 00 031512 		JUMPL	AC+2,O16300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 15
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0073

  2030					;AR=000600000000
  2031					;BR=000400000000
  2032					;CORRECT SUM=001500000000
  2033					;ERROR SUM=377500000000
  2034
  2035			000010			AC=10
  2036						SAVEAC	(1,1)^
  2037	031521	201 12 0 00 031521 		MOVEI	AC+2,.
  2038	031522	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2039	031523	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2040	031524	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2041
  2042	031525	205 06 0 00 377500 	O16400:	MOVSI	AC-2,377500		;SETUP FOR COMPARISON
  2043	031526	205 10 0 00 000600 		MOVSI	AC,600			;SETUP AC
  2044	031527	205 11 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  2045	031530	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2046	031531	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=377500000000
  2047	031532	003 10 0 00 016401 		ER3	AC,16401
  2048	031533	321 12 0 00 031525 		JUMPL	AC+2,O16400		;LOOP ON ERROR SWITCH
  2049
  2050					;AR=000600000000
  2051					;BR=000400000000
  2052					;CORRECT SUM=001500000000
  2053					;ERROR SUM=000500000000
  2054
  2055			000007			AC=7
  2056						SAVEAC	(1,1)^
  2057	031534	201 11 0 00 031534 		MOVEI	AC+2,.
  2058	031535	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2059	031536	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2060	031537	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2061
  2062	031540	205 05 0 00 000500 	O16500:	MOVSI	AC-2,500		;SETUP FOR COMPARISON
  2063	031541	205 07 0 00 000600 		MOVSI	AC,600			;SETUP AC
  2064	031542	205 10 0 00 000400 		MOVSI	AC+1,400		;SETUP BR
  2065	031543	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2066	031544	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=500000000
  2067	031545	003 07 0 00 016501 		ER3	AC,16501
  2068	031546	321 11 0 00 031540 		JUMPL	AC+2,O16500		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0074

  2069
  2070					;AR=377000000000
  2071					;BR=377600000000
  2072					;FAILURE RESULTS IN A SUM
  2073					;=000700000000
  2074
  2075			000014			AC=14
  2076						SAVEAC	(1,1)^
  2077	031547	201 16 0 00 031547 		MOVEI	AC+2,.
  2078	031550	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2079	031551	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2080	031552	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2081
  2082	031553	205 12 0 00 000700 	O16600:	MOVSI	AC-2,700		;SETUP FOR COMPARISON
  2083	031554	205 14 0 00 377000 		MOVSI	AC,377000		;SETUP AC
  2084	031555	205 15 0 00 377600 		MOVSI	AC+1,377600		;SETUP BR
  2085	031556	140 14 0 00 000015 		FAD	AC,AC+1			;ADD C(AC), C(E)
  2086	031557	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=000700000000
  2087	031560	003 14 0 00 016601 		ER3	AC,16601
  2088	031561	321 16 0 00 031553 		JUMPL	AC+2,O16600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 17
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0075

  2089					;TEST ABILITY TO SET INDIVIDUAL BITS
  2090					;AR=600400000000 (-1/4)
  2091					;BR=177400000000 (+1/4)
  2092					;OPERANDS SELECTED SHOULD RESULT
  2093					;IN NR ALL ZERO -STORE 0
  2094					;FAILURE OF BIT 8 TO SET RESULTS IN
  2095					;A SUM=577400000000
  2096					;FAILURE OF ANY ONE BIT (1-7) RESULTS IN
  2097					;A SUM=577000000000
  2098
  2099			000014			AC=14
  2100						SAVEAC	(1,1)^
  2101	031562	201 16 0 00 031562 		MOVEI	AC+2,.
  2102	031563	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2103	031564	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2104	031565	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2105
  2106	031566	205 12 0 00 577400 	O16700:	MOVSI	AC-2,577400		;SETUP FOR COMPARISON
  2107	031567	205 14 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  2108	031570	205 15 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  2109	031571	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  2110	031572	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=5774000000000
  2111	031573	003 14 0 00 016701 		ER3	AC,16701		;BR8 FAILED TO SET
  2112	031574	205 12 0 00 577000 		MOVSI	AC-2,577000		;SETUP FOR COMPARISON
  2113	031575	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=577000000000
  2114	031576	003 14 0 00 016702 		ER3	AC,16702		;BR BIT (1-7) FAILED TO SET
  2115	031577	321 16 0 00 031566 		JUMPL	AC+2,O16700		;LOOP ON ERROR SWITCH
  2116
  2117					;FAILURE RESULTS IN LOSS OF DIFFERENCE
  2118					;BETWEEN EXPONENTS
  2119					;AR=200400000000 (+ 1/2)
  2120					;BR=205400000000 (+20)
  2121					;CORRECT SUM =205410000000
  2122					;ERROR SUM=001400000000
  2123
  2124			000010			AC=10
  2125						SAVEAC	(1,1)^
  2126	031600	201 12 0 00 031600 		MOVEI	AC+2,.
  2127	031601	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2128	031602	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2129	031603	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2130
  2131	031604	205 06 0 00 001400 	O17000:	MOVSI	AC-2,001400		;SETUP FOR COMPARISON
  2132	031605	205 10 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  2133	031606	205 11 0 00 205400 		MOVSI	AC+1,205400		;SETUP BR
  2134	031607	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2135	031610	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=001400000000
  2136	031611	003 10 0 00 017001 		ER3	AC,17001
  2137	031612	321 12 0 00 031604 		JUMPL	AC+2,O17000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 18
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0076

  2138					;AR=200400000000
  2139					;BR=205600000000
  2140					;FAILURE RESULTS IN LOSS OF HIGH ORDER
  2141					;EXPONENT
  2142					;FAILURE RESULTS IN A SUM
  2143					;=001610000000
  2144
  2145			000012			AC=12
  2146						SAVEAC	(1,1)^
  2147	031613	201 14 0 00 031613 		MOVEI	AC+2,.
  2148	031614	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2149	031615	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2150	031616	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2151
  2152	031617	205 10 0 00 001610 	O17100:	MOVSI	AC-2,1610		;SETUP FOR COMPARISON
  2153	031620	205 12 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  2154	031621	205 13 0 00 205600 		MOVSI	AC+1,205600		;SETUP BR
  2155	031622	140 12 0 00 000013 		FAD	AC,AC+1			;C(AC)+C(E)
  2156	031623	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST SUM=1610000000
  2157	031624	003 12 0 00 017101 		ER3	AC,17101
  2158	031625	321 14 0 00 031617 		JUMPL	AC+2,O17100		;LOOP ON ERROR SWITCH
  2159
  2160					;AR=200400000000
  2161					;BR=205600000000
  2162					;FAILURE RESULTS IN LOSS OF LARGER
  2163					;EXPONENT
  2164					;FAILURE RESULTS IN A SUM
  2165					;=000610000000
  2166
  2167			000011			AC=11
  2168						SAVEAC	(1,1)^
  2169	031626	201 13 0 00 031626 		MOVEI	AC+2,.
  2170	031627	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2171	031630	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2172	031631	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2173
  2174	031632	205 07 0 00 000610 	O17200:	MOVSI	AC-2,610		;SETUP FOR COMPARISON
  2175	031633	205 11 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  2176	031634	205 12 0 00 205600 		MOVSI	AC+1,205600		;SETUP BR
  2177	031635	140 11 0 00 000012 		FAD	AC,AC+1			;C(AC)+C(E)
  2178	031636	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST SUM=610000000
  2179	031637	003 11 0 00 017201 		ER3	AC,17201
  2180	031640	321 13 0 00 031632 		JUMPL	AC+2,O17200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 19
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0077

  2181					;AR=000600000000
  2182					;BR=200400000000
  2183					;EXCESSIVE SHIFT COND, SHOULD
  2184					;RESULT IN NO ADD AND STORING THE LARGER
  2185					;FAILURE RESULTS IN A SUM
  2186					;=201500000000
  2187
  2188			000005			AC=5
  2189						SAVEAC	(1,1)^
  2190	031641	201 07 0 00 031641 		MOVEI	AC+2,.
  2191	031642	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2192	031643	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2193	031644	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2194
  2195	031645	205 03 0 00 201500 	O17300:	MOVSI	AC-2,201500		;SETUP FOR COMPARISON
  2196	031646	205 05 0 00 000600 		MOVSI	AC,600			;SETUP AC
  2197	031647	205 06 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2198	031650	140 05 0 00 000006 		FAD	AC,AC+1			;C(AC)+C(E)
  2199	031651	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST SUM=201500000000
  2200	031652	003 05 0 00 017301 		ER3	AC,17301
  2201	031653	321 07 0 00 031645 		JUMPL	AC+2,O17300		;LOOP ON ERROR SWITCH
  2202
  2203					;AR=200700000000
  2204					;BR=0
  2205					;EXCESSIVE SHIFT COND SHOULD
  2206					;RESULT IN NO ADD AND STORING THE LARGER
  2207					;FAILURE OF SC CLR AT FAT4 RESULTS IN
  2208					;LOSS OF EXPONENT. SUM=000700000000
  2209
  2210			000014			AC=14
  2211						SAVEAC	(1,1)^
  2212	031654	201 16 0 00 031654 		MOVEI	AC+2,.
  2213	031655	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2214	031656	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2215	031657	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2216
  2217	031660	205 12 0 00 000700 	O17400:	MOVSI	AC-2,700		;SETUP FOR COMPARISON
  2218	031661	205 14 0 00 200700 		MOVSI	AC,200700		;SETUP AC
  2219	031662	400 15 0 00 000000 		SETZ	AC+1,			;SETUP BR
  2220	031663	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  2221	031664	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=700000000
  2222	031665	003 14 0 00 017401 		ER3	AC,17401
  2223	031666	321 16 0 00 031660 		JUMPL	AC+2,O17400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0078

  2224					;TEST ABILITY TO BRING UP PULSE
  2225					;AR=200400000000
  2226					;BR=205400000000
  2227					;FAILURE RESULTS IN LOSS OF SMALLER
  2228					;EXPONENT. EXCESSIVE SHIFT CONDITION
  2229					;RESULTS IN NO ADD AND STORING THE LARGER
  2230					;FAILURE RESULTS IN A SUM=205400000000
  2231
  2232			000014			AC=14
  2233						SAVEAC	(1,1)^
  2234	031667	201 16 0 00 031667 		MOVEI	AC+2,.
  2235	031670	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2236	031671	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2237	031672	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2238
  2239	031673	205 14 0 00 200400 	O17500:	MOVSI	AC,200400		;SETUP AC
  2240	031674	205 15 0 00 205400 		MOVSI	AC+1,205400		;SETUP BR
  2241	031675	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  2242	031676	316 14 0 00 000015 		CAMN	AC,AC+1			;TEST SUM=205400000000
  2243	031677	003 14 0 00 017501 		ER3	AC,17501
  2244	031700	321 16 0 00 031673 		JUMPL	AC+2,O17500		;LOOP ON ERROR SWITCH
  2245					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0079

  2246					;AC EXP=201,202,204,210,220,240,300
  2247					;BR=200400000000
  2248					;FAILURE OF A BIT TO SET/AR TO SHIFT RESULTS IN
  2249					;AN EXPONENT=202,203,205,211,221,
  2250					;241,301. THE MANTISSA IS CORRECT IN ALL CASES
  2251
  2252			000013			AC=13
  2253						SAVEAC	(1,1)^
  2254	031701	201 15 0 00 031701 		MOVEI	AC+2,.
  2255	031702	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2256	031703	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2257	031704	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2258
  2259			017600		SN=17600
  2260			000400			ZZ=400
  2261
  2262					O17600:	REPEAT	^D7,
  2263					<SN=SN+1
  2264						ZZ=ZZ+ZZ
  2265						MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2266						MOVSI	AC,200400+ZZ		;SETUP AC
  2267						MOVSI	AC+1,200400		;SETUP BR
  2268						FAD	AC,AC+1			;C(AC)+C(E)
  2269						CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2270						ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2271						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2272					>
  2273			017601		SN=SN+1
  2274			001000			ZZ=ZZ+ZZ
  2275	031705	205 11 0 00 202400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2276	031706	205 13 0 00 201400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2277	031707	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2278	031710	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2279	031711	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2280	031712	003 13 0 00 017601 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2281	031713	321 15 0 00 031705 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2282
  2283			017602		SN=SN+1
  2284			002000			ZZ=ZZ+ZZ
  2285	031714	205 11 0 00 203400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2286	031715	205 13 0 00 202400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2287	031716	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2288	031717	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2289	031720	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2290	031721	003 13 0 00 017602 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2291	031722	321 15 0 00 031714 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2292
  2293			017603		SN=SN+1
  2294			004000			ZZ=ZZ+ZZ
  2295	031723	205 11 0 00 205400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2296	031724	205 13 0 00 204400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2297	031725	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2298	031726	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2299	031727	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2300	031730	003 13 0 00 017603 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0080

  2301	031731	321 15 0 00 031723 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2302
  2303			017604		SN=SN+1
  2304			010000			ZZ=ZZ+ZZ
  2305	031732	205 11 0 00 211400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2306	031733	205 13 0 00 210400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2307	031734	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2308	031735	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2309	031736	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2310	031737	003 13 0 00 017604 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2311	031740	321 15 0 00 031732 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2312
  2313			017605		SN=SN+1
  2314			020000			ZZ=ZZ+ZZ
  2315	031741	205 11 0 00 221400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2316	031742	205 13 0 00 220400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2317	031743	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2318	031744	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2319	031745	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2320	031746	003 13 0 00 017605 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2321	031747	321 15 0 00 031741 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2322
  2323			017606		SN=SN+1
  2324			040000			ZZ=ZZ+ZZ
  2325	031750	205 11 0 00 241400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2326	031751	205 13 0 00 240400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2327	031752	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2328	031753	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2329	031754	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2330	031755	003 13 0 00 017606 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2331	031756	321 15 0 00 031750 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2332
  2333			017607		SN=SN+1
  2334			100000			ZZ=ZZ+ZZ
  2335	031757	205 11 0 00 301400 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISION
  2336	031760	205 13 0 00 300400 		MOVSI	AC,200400+ZZ		;SETUP AC
  2337	031761	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2338	031762	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2339	031763	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST EXP=AC EXP+1
  2340	031764	003 13 0 00 017607 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  2341	031765	321 15 0 00 031757 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2342
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 21
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0081

  2343					;AR=200400000000
  2344					;BR=205400000000
  2345					;FAILURE RESULTS IN A BR EXPONENT=0.
  2346					;EXCESSIVE SHIFT CONDITION
  2347					;RESULTS IN NO ADD AND STORING THE LARGER
  2348
  2349			000012			AC=12
  2350						SAVEAC	(1,1)^
  2351	031766	201 14 0 00 031766 		MOVEI	AC+2,.
  2352	031767	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2353	031770	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2354	031771	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2355
  2356	031772	205 10 0 00 200400 	O17700:	MOVSI	AC-2,200400		;SETUP FOR COMPARISION
  2357	031773	205 12 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  2358	031774	205 13 0 00 205400 		MOVSI	AC+1,205400		;SETUP BR
  2359	031775	140 12 0 00 000013 		FAD	AC,AC+1			;C(AC)+C(E)
  2360	031776	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST SUM=200400000000
  2361	031777	003 12 0 00 017701 		ER3	AC,17701	
  2362	032000	321 14 0 00 031772 		JUMPL	AC+2,O17700		;LOOP ON ERROR SWITCH
  2363
  2364					;AR=600400000000 (-1/4)
  2365					;BR=600400000000 (-1/4)
  2366					;FAILURE RESULTS IN LOSS OF BR EXPONENT
  2367					;AN EXCESSIVE SHIFT CONDITION, NO ADD
  2368					;STORE 600400000000
  2369
  2370			000011			AC=11
  2371						SAVEAC	(1,1)^
  2372	032001	201 13 0 00 032001 		MOVEI	AC+2,.
  2373	032002	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2374	032003	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2375	032004	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2376
  2377	032005	205 11 0 00 600400 	O20000:	MOVSI	AC,600400		;SETUP AC
  2378	032006	205 12 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2379	032007	140 11 0 00 000012 		FAD	AC,AC+1			;C(AC)+C(E)
  2380	032010	316 11 0 00 000012 		CAMN	AC,AC+1			;TEST SUM=600400
  2381	032011	003 11 0 00 020001 		ER3	AC,20001	
  2382	032012	321 13 0 00 032005 		JUMPL	AC+2,O20000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 22
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0082

  2383					;THE DIFFERENCE BETWEEN EXPONENTS (EXCESSIVE SHIFT COND)
  2384					;SHOULD RESULT IN NO ADD AND STORING
  2385					;THE LARGER
  2386					;AR=0
  2387					;BR=205400000000
  2388					;FAILURE RESULTS IN A SUM
  2389					;=173400000000
  2390
  2391			000007			AC=7
  2392						SAVEAC	(1,1)^
  2393	032013	201 11 0 00 032013 		MOVEI	AC+2,.
  2394	032014	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2395	032015	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2396	032016	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2397
  2398	032017	205 05 0 00 173400 	O20100:	MOVSI	AC-2,173400		;SETUP FOR COMPARISON
  2399	032020	400 07 0 00 000000 		SETZ	AC,			;SETUP AC
  2400	032021	205 10 0 00 205400 		MOVSI	AC+1,205400		;SETUP BR
  2401	032022	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2402	032023	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=173400000000
  2403	032024	003 07 0 00 020101 		ER3	AC,20101	
  2404	032025	321 11 0 00 032017 		JUMPL	AC+2,O20100		;LOOP ON ERROR SWITCH
  2405
  2406					;FAILURE RESULTS IN AN APPARENT DIFFERNECE IN
  2407					;EXPONENTS OF 177 EXCESSIVE SHIFT COND-
  2408					;NO ADD, STORE LARGER
  2409					;AR=200400000000
  2410					;BR=200400000000
  2411					;FAILURE RESULTS IN A SUM
  2412					;=200400000000
  2413
  2414			000006			AC=6
  2415						SAVEAC	(1,1)^
  2416	032026	201 10 0 00 032026 		MOVEI	AC+2,.
  2417	032027	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2418	032030	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2419	032031	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2420
  2421	032032	205 06 0 00 200400 	O20200:	MOVSI	AC,200400		;SETUP AC
  2422	032033	205 07 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2423	032034	140 06 0 00 000007 		FAD	AC,AC+1			;C(AC)+C(E)
  2424	032035	316 06 0 00 000007 		CAMN	AC,AC+1			;TEST SUM=200400000000
  2425	032036	003 06 0 00 020201 		ER3	AC,20201	
  2426	032037	321 10 0 00 032032 		JUMPL	AC+2,O20200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 23
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0083

  2427					;AR=577400000000 (-1/2)
  2428					;BR=577400000000 (-1/2)
  2429					;CORRECT SUM=576400000000 (-1)
  2430					;ERROR SUM=777400000000
  2431
  2432			000005			AC=5
  2433						SAVEAC	(1,1)^
  2434	032040	201 07 0 00 032040 		MOVEI	AC+2,.
  2435	032041	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2436	032042	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2437	032043	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2438
  2439	032044	205 03 0 00 777400 	O20300:	MOVSI	AC-2,777400		;SETUP FOR COMPARISON
  2440	032045	205 05 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  2441	032046	205 06 0 00 577400 		MOVSI	AC+1,577400		;SETUP BR
  2442	032047	140 05 0 00 000006 		FAD	AC,AC+1			;C(AC)+C(E)
  2443	032050	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST SUM=777400000000
  2444	032051	003 05 0 00 020301 		ER3	AC,20301		;SC NEGATE SETUP FAILED
  2445	032052	321 07 0 00 032044 		JUMPL	AC+2,O20300		;LOOP ON ERROR SWITCH
  2446
  2447					;AR=205600000000
  2448					;BR=177400000000
  2449					;FAILURE RESULTS IN A SUM
  2450					;=214500000000
  2451
  2452			000013			AC=13
  2453						SAVEAC	(1,1)^
  2454	032053	201 15 0 00 032053 		MOVEI	AC+2,.
  2455	032054	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2456	032055	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2457	032056	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2458
  2459	032057	205 11 0 00 214500 	O20400:	MOVSI	AC-2,214500		;SETUP FOR COMPARISON
  2460	032060	205 13 0 00 205600 		MOVSI	AC,205600		;SETUP AC
  2461	032061	205 14 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  2462	032062	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2463	032063	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST SUM=214500
  2464	032064	003 13 0 00 020401 		ER3	AC,20401	
  2465	032065	321 15 0 00 032057 		JUMPL	AC+2,O20400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0084

  2466					;OPERANDS SELECTED SHOULD
  2467					;RESULT IN NR ALL ZERO CONDITION
  2468					;AR EXP=201,202,204,210,220,240,300
  2469					;BR EXP=202,204,207,214,225,246,307
  2470					;MANTISSA IN BOTH CASES=0
  2471					;FAILURE OF A BIT TO CLEAR RESULTS IN A
  2472					;SUM WHOSE EXPONENT IS EQUAL TO
  2473					;THE BR EXPONENT, A MANTISSA=400000000
  2474
  2475			000010			AC=10
  2476						SAVEAC	(1,1)^
  2477	032066	201 12 0 00 032066 		MOVEI	AC+2,.
  2478	032067	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2479	032070	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2480	032071	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2481
  2482										;TEST AR8
  2483	032072	205 06 0 00 202400 	O20500:	MOVSI	AC-2,202400		;SETUP FOR COMPARISON
  2484	032073	205 10 0 00 201000 		MOVSI	AC,201000		;SETUP AC
  2485	032074	205 11 0 00 202000 		MOVSI	AC+1,202000		;SETUP BR
  2486	032075	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2487	032076	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=202400000000
  2488	032077	003 10 0 00 020501 		ER3	AC,20501		;AR8 FAILED TO CLEAR
  2489	032100	321 12 0 00 032072 		JUMPL	AC+2,O20500		;LOOP ON ERROR SWITCH
  2490
  2491										;TEST AR7
  2492	032101	205 06 0 00 204400 	O20600:	MOVSI	AC-2,204400		;SETUP FOR COMPARISON
  2493	032102	205 10 0 00 202000 		MOVSI	AC,202000		;SETUP AC
  2494	032103	205 11 0 00 204000 		MOVSI	AC+1,204000		;SETUP BR
  2495	032104	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2496	032105	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=204400000000
  2497	032106	003 10 0 00 020601 		ER3	AC,20601		;AR7 FAILED TO CLEAR
  2498	032107	321 12 0 00 032101 		JUMPL	AC+2,O20600		;LOOP ON ERROR SWITCH
  2499
  2500										;TEST AR6
  2501	032110	205 06 0 00 207400 	O20700:	MOVSI	AC-2,207400		;SETUP FOR COMPARISON
  2502	032111	205 10 0 00 204000 		MOVSI	AC,204000		;SETUP AC
  2503	032112	205 11 0 00 207000 		MOVSI	AC+1,207000		;SETUP BR
  2504	032113	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2505	032114	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=207400000000
  2506	032115	003 10 0 00 020701 		ER3	AC,20701		;AR6 FAILED TO CLEAR
  2507	032116	321 12 0 00 032110 		JUMPL	AC+2,O20700		;LOOP ON ERROR SWITCH
  2508
  2509										;TEST AR5
  2510	032117	205 06 0 00 214400 	O21000:	MOVSI	AC-2,214400		;SETUP FOR COMPARISON
  2511	032120	205 10 0 00 210000 		MOVSI	AC,210000		;SETUP AC
  2512	032121	205 11 0 00 214000 		MOVSI	AC+1,214000		;SETUP BR
  2513	032122	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2514	032123	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=214400000000
  2515	032124	003 10 0 00 021001 		ER3	AC,21001		;AR5 FAILED TO CLEAR
  2516	032125	321 12 0 00 032117 		JUMPL	AC+2,O21000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0085

  2517										;TEST AR4
  2518	032126	205 06 0 00 225400 	O21100:	MOVSI	AC-2,225400		;SETUP FOR COMPARISON
  2519	032127	205 10 0 00 220000 		MOVSI	AC,220000		;SETUP AC
  2520	032130	205 11 0 00 225000 		MOVSI	AC+1,225000		;SETUP BR
  2521	032131	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2522	032132	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=225400000000
  2523	032133	003 10 0 00 021101 		ER3	AC,21101		;AR4 FAILED TO CLEAR
  2524	032134	321 12 0 00 032126 		JUMPL	AC+2,O21100		;LOOP ON ERROR SWITCH
  2525
  2526										;TEST AR3
  2527	032135	205 06 0 00 246400 	O21200:	MOVSI	AC-2,246400		;SETUP FOR COMPARISON
  2528	032136	205 10 0 00 240000 		MOVSI	AC,240000		;SETUP AC
  2529	032137	205 11 0 00 246000 		MOVSI	AC+1,246000		;SETUP BR
  2530	032140	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2531	032141	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=246400000000
  2532	032142	003 10 0 00 021201 		ER3	AC,21201		;AR3 FAILED TO CLEAR
  2533	032143	321 12 0 00 032135 		JUMPL	AC+2,O21200		;LOOP ON ERROR SWITCH
  2534
  2535										;TEST AR2
  2536	032144	205 06 0 00 307400 	O21300:	MOVSI	AC-2,307400		;SETUP FOR COMPARISON
  2537	032145	205 10 0 00 300000 		MOVSI	AC,300000		;SETUP AC
  2538	032146	205 11 0 00 307000 		MOVSI	AC+1,307000		;SETUP BR
  2539	032147	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2540	032150	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=307400000000
  2541	032151	003 10 0 00 021301 		ER3	AC,21301		;AR2 FAILED TO CLEAR
  2542	032152	321 12 0 00 032144 		JUMPL	AC+2,O21300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0086

  2543					;TEST ABILITY TO SET BITS 8-1
  2544					;AR EXP=200,201,202,203,204,205,206,207
  2545					;BR=600400000000
  2546					;FAILURE OF A BIT TO SET RESULTS IN A UNIQUE SUM
  2547
  2548			000007			AC=7
  2549						SAVEAC	(1,1)^
  2550	032153	201 11 0 00 032153 		MOVEI	AC+2,.
  2551	032154	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2552	032155	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2553	032156	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2554										;TEST AR8(1)
  2555	032157	205 05 0 00 577200 	O21400:	MOVSI	AC-2,577200		;SETUP FOR COMPARISON
  2556	032160	205 07 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  2557	032161	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2558	032162	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2559	032163	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=577200000000
  2560	032164	003 07 0 00 021401 		ER3	AC,21401		;AR8 FAILED TO SET
  2561	032165	321 11 0 00 032157 		JUMPL	AC+2,O21400		;LOOP ON ERROR SWITCH
  2562
  2563										;TEST AR7 (1)
  2564	032166	205 05 0 00 576300 	O21500:	MOVSI	AC-2,576300		;SETUP FOR COMPARISON
  2565	032167	205 07 0 00 201000 		MOVSI	AC,201000		;SETUP AC
  2566	032170	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2567	032171	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2568	032172	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=576300000000
  2569	032173	003 07 0 00 021501 		ER3	AC,21501		;AR7 FAILED TO SET
  2570	032174	321 11 0 00 032166 		JUMPL	AC+2,O21500		;LOOP ON ERROR SWITCH
  2571
  2572										;TEST AR6(1)
  2573	032175	205 05 0 00 575340 	O21600:	MOVSI	AC-2,575340		;SETUP FOR COMPARISON
  2574	032176	205 07 0 00 202000 		MOVSI	AC,202000		;SETUP AC
  2575	032177	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2576	032200	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2577	032201	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=575340000000
  2578	032202	003 07 0 00 021601 		ER3	AC,21601		;AR6 FAILED TO SET
  2579	032203	321 11 0 00 032175 		JUMPL	AC+2,O21600		;LOOP ON ERROR SWITCH
  2580
  2581										;TEST AR5(1)
  2582	032204	205 05 0 00 574360 	O21700:	MOVSI	AC-2,574360		;SETUP FOR COMPARISON
  2583	032205	205 07 0 00 203000 		MOVSI	AC,203000		;SETUP AC
  2584	032206	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2585	032207	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2586	032210	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=574360000000
  2587	032211	003 07 0 00 021701 		ER3	AC,21701		;AR5 FAILED TO SET
  2588	032212	321 11 0 00 032204 		JUMPL	AC+2,O21700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0087

  2589										;TEST AR4 (1)
  2590	032213	205 05 0 00 573370 	O22000:	MOVSI	AC-2,573370		;SETUP FOR COMPARISON
  2591	032214	205 07 0 00 204000 		MOVSI	AC,204000		;SETUP AC
  2592	032215	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2593	032216	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2594	032217	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=573370000000
  2595	032220	003 07 0 00 022001 		ER3	AC,22001		;AR4 FAILED TO SET
  2596	032221	321 11 0 00 032213 		JUMPL	AC+2,O22000		;LOOP ON ERROR SWITCH
  2597
  2598										;TEST AR3(1)
  2599	032222	205 05 0 00 572374 	O22100:	MOVSI	AC-2,572374		;SETUP FOR COMPARISON
  2600	032223	205 07 0 00 205000 		MOVSI	AC,205000		;SETUP AC
  2601	032224	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2602	032225	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2603	032226	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=572374000000
  2604	032227	003 07 0 00 022101 		ER3	AC,22101		;AR3 FAILED TO SET
  2605	032230	321 11 0 00 032222 		JUMPL	AC+2,O22100		;LOOP ON ERROR SWITCH
  2606
  2607										;TEST AR2(1)
  2608	032231	205 05 0 00 571376 	O22200:	MOVSI	AC-2,571376		;SETUP FOR COMPARISON
  2609	032232	205 07 0 00 206000 		MOVSI	AC,206000		;SETUP AC
  2610	032233	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2611	032234	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2612	032235	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=571376000000
  2613	032236	003 07 0 00 022201 		ER3	AC,22201		;AR2 FAILED TO SET
  2614	032237	321 11 0 00 032231 		JUMPL	AC+2,O22200		;LOOP ON ERROR SWITCH
  2615
  2616										;TEST AR1(1)
  2617	032240	205 05 0 00 570377 	O22300:	MOVSI	AC-2,570377		;SETUP FOR COMPARISON
  2618	032241	205 07 0 00 207000 		MOVSI	AC,207000		;SETUP AC
  2619	032242	205 10 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2620	032243	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2621	032244	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=570377000000
  2622	032245	003 07 0 00 022301 		ER3	AC,22301		;AR1 FAILED TO SET
  2623	032246	321 11 0 00 032240 		JUMPL	AC+2,O22300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0088

  2624					;AR=400200000000
  2625					;BR=377400000000
  2626					;FAILURE RESULTS IN LOSS OF BR EXPONENT,
  2627					;RESULTING IN AN EXCESSIVE SHIFT COND.-
  2628					;NO ADD STORE 400200000000
  2629
  2630			000006			AC=6
  2631						SAVEAC	(1,1)^
  2632	032247	201 10 0 00 032247 		MOVEI	AC+2,.
  2633	032250	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2634	032251	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2635	032252	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2636
  2637	032253	205 04 0 00 400200 	O22400:	MOVSI	AC-2,400200		;SETUP FOR COMPARISON
  2638	032254	205 06 0 00 400200 		MOVSI	AC,400200		;SETUP AC
  2639	032255	205 07 0 00 377400 		MOVSI	AC+1,377400		;SETUP BR
  2640	032256	140 06 0 00 000007 		FAD	AC,AC+1			;C(AC)+C(E)
  2641	032257	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST SUM=400200000000
  2642	032260	003 06 0 00 022401 		ER3	AC,22401	
  2643	032261	321 10 0 00 032253 		JUMPL	AC+2,O22400		;LOOP ON ERROR SWITCH
  2644
  2645					;AR=377400000000
  2646					;BBR=400200000000
  2647					;FAILURE RESULTS IN LOSS OF BR EXPONENT,
  2648					;RESULTING IN AN EXECESSIVE SHIFT CONDITION. STORE
  2649					;377400000000
  2650
  2651			000005			AC=5
  2652						SAVEAC	(1,1)^
  2653	032262	201 07 0 00 032262 		MOVEI	AC+2,.
  2654	032263	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2655	032264	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2656	032265	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2657
  2658	032266	205 03 0 00 377400 	O22500:	MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  2659	032267	205 05 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  2660	032270	205 06 0 00 400200 		MOVSI	AC+1,400200		;SETUP BR
  2661	032271	140 05 0 00 000006 		FAD	AC,AC+1			;C(AC)+C(E)
  2662	032272	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST SUM=377400000000
  2663	032273	003 05 0 00 022501 		ER3	AC,22501		;SC+BR(FAT1) FAILED
  2664	032274	321 07 0 00 032266 		JUMPL	AC+2,O22500		;LOOP ON ERROR SWITCH
  2665					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0089

  2666					;AR=200400000000
  2667					;BR=600400000000
  2668					;FAILURE RESULTS IN AN NR ALL ZERO COND.
  2669					;FAILURE RESULTS IN A SUM=0
  2670
  2671			000014			AC=14
  2672						SAVEAC	(1,1)^
  2673	032275	201 16 0 00 032275 		MOVEI	AC+2,.
  2674	032276	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2675	032277	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2676	032300	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2677
  2678	032301	205 14 0 00 200400 	O22600:	MOVSI	AC,200400		;SETUP AC
  2679	032302	205 15 0 00 600400 		MOVSI	AC+1,600400		;SETUP BR
  2680	032303	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  2681	032304	336 00 0 00 000014 		SKIPN	AC			;SETUP SUM=0
  2682	032305	003 14 0 00 022601 		ER3	AC,22601		;SC COMP SETUP FAILED
  2683	032306	321 16 0 00 032301 		JUMPL	AC+2,O22600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0090

  2684					;AR=200600000000
  2685					;BR=201400000000
  2686					;FAILURE RESULTS IN SHIFTING SUM OF AR
  2687					;AND BR RESULTING IN A SUM
  2688					;=202640000000
  2689
  2690			000014			AC=14
  2691						SAVEAC	(1,1)^
  2692	032307	201 16 0 00 032307 		MOVEI	AC+2,.
  2693	032310	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2694	032311	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2695	032312	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2696
  2697	032313	205 12 0 00 202640 	O22700:	MOVSI	AC-2,202640		;SETUP FOR COMPARISON
  2698	032314	205 14 0 00 200600 		MOVSI	AC,200600		;SETUP AC
  2699	032315	205 15 0 00 201400 		MOVSI	AC+1,201400		;SETUP BR
  2700	032316	140 14 0 00 000015 		FAD	AC,AC+1			;C(AC)+C(E)
  2701	032317	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=202640000000
  2702	032320	003 14 0 00 022701 		ER3	AC,22701	
  2703	032321	321 16 0 00 032313 		JUMPL	AC+2,O22700		;LOOP ON ERROR SWITCH
  2704
  2705					;AR=577600000000 (-1/4) (UNNORMALIZED)
  2706					;BR=200400000000 (+1/2)
  2707					;FAILURE RESULTS IN A CORRECT MANTISSA,
  2708					;THE EXPONENT IS IN ERROR
  2709					;CORRECT SUM=177400000000
  2710					;ERROR SUM=376400000000
  2711
  2712			000013			AC=13
  2713						SAVEAC	(1,1)^
  2714	032322	201 15 0 00 032322 		MOVEI	AC+2,.
  2715	032323	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2716	032324	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2717	032325	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2718
  2719	032326	205 11 0 00 376400 	O23000:	MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  2720	032327	205 13 0 00 577600 		MOVSI	AC,577600		;SETUP AC
  2721	032330	205 14 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2722	032331	140 13 0 00 000014 		FAD	AC,AC+1			;C(AC)+C(E)
  2723	032332	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST SUM=376400000000
  2724	032333	003 13 0 00 023001 		ER3	AC,23001	
  2725	032334	321 15 0 00 032326 		JUMPL	AC+2,O23000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0091

  2726					;AR=600400000000 (-1/4)
  2727					;BR=577200000000 (-3/4)
  2728					;FAILURE RESULTS IN A CORRECT MANTISSA,
  2729					;THE EXPONENT IS IN ERROR
  2730					;CORRECT SUM=576400000000
  2731					;ERROR SUM=600400000000
  2732
  2733			000012			AC=12
  2734						SAVEAC	(1,1)^
  2735	032335	201 14 0 00 032335 		MOVEI	AC+2,.
  2736	032336	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2737	032337	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2738	032340	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2739
  2740	032341	205 10 0 00 600400 	O23100:	MOVSI	AC-2,600400		;SETUP FOR COMPARISON
  2741	032342	205 12 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  2742	032343	205 13 0 00 577200 		MOVSI	AC+1,577200		;SETUP BR
  2743	032344	140 12 0 00 000013 		FAD	AC,AC+1			;C(AC)+C(E)
  2744	032345	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST SUM=600400000000
  2745	032346	003 12 0 00 023101 		ER3	AC,23101		;SC COMP SETUP FAILED
  2746	032347	321 14 0 00 032341 		JUMPL	AC+2,O23100		;LOOP ON ERROR SWITCH
  2747
  2748
  2749					;AR=600400000000 (-1/4)
  2750					;BR=577200000000 (-3/4)
  2751					;FAILURE RESULTS IN A CORRECT MANTISSA,
  2752					;THE EXPONENT IS IN ERROR
  2753					;CORRECT SUM=576400000000
  2754					;ERROR SUM =5777400000000
  2755
  2756			000011			AC=11
  2757
  2758						SAVEAC	(1,1)^
  2759	032350	201 13 0 00 032350 		MOVEI	AC+2,.
  2760	032351	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2761	032352	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2762	032353	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2763
  2764	032354	205 07 0 00 577400 	O23200:	MOVSI	AC-2,577400		;SETUP FOR COMPARISON
  2765	032355	205 11 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  2766	032356	205 12 0 00 577200 		MOVSI	AC+1,577200		;SETUP BR
  2767	032357	140 11 0 00 000012 		FAD	AC,AC+1			;C(AC)+C(E)
  2768	032360	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST SUM=577400000000
  2769	032361	003 11 0 00 023201 		ER3	AC,23201
  2770	032362	321 13 0 00 032354 		JUMPL	AC+2,O23200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0092

  2771					;AR=600400000000 (-1/4)
  2772					;BR=577200000000 (-3/4)
  2773					;FAILURE RESULTS IN A CORRECT MANTISSA,
  2774					;THE EXPONENT IS IN ERROR
  2775					;CORRECT SUM=576400000000
  2776					;ERROR SUM=577000000000
  2777
  2778			000010			AC=10
  2779						SAVEAC	(1,1)^
  2780	032363	201 12 0 00 032363 		MOVEI	AC+2,.
  2781	032364	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2782	032365	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2783	032366	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2784
  2785	032367	205 06 0 00 577000 	O23300:	MOVSI	AC-2,577000		;SETUP FOR COMPARISON
  2786	032370	205 10 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  2787	032371	205 11 0 00 577200 		MOVSI	AC+1,577200		;SETUP BR
  2788	032372	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2789	032373	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=577000000000
  2790	032374	003 10 0 00 023301 		ER3	AC,23301
  2791	032375	321 12 0 00 032367 		JUMPL	AC+2,O23300		;LOOP ON ERROR SWITCH
  2792
  2793					;AR=201400000000 (+1)
  2794					;BR=200400000000 (+1/2)
  2795					;CORRECT SUM=201600000000
  2796					;ERROR SUM=200600000000
  2797
  2798			000010			AC=10
  2799						SAVEAC	(1,1)^
  2800	032376	201 12 0 00 032376 		MOVEI	AC+2,.
  2801	032377	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2802	032400	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2803	032401	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2804
  2805	032402	205 06 0 00 200600 	O23400:	MOVSI	AC-2,200600		;SETUP FOR COMPARISON
  2806	032403	205 10 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  2807	032404	205 11 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2808	032405	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2809	032406	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=200600000000
  2810	032407	003 10 0 00 023401 		ER3	AC,23401
  2811	032410	321 12 0 00 032402 		JUMPL	AC+2,O23400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0093

  2812					;AR=576400000000 (-1)
  2813					;BR=200400000000 (+1/2)
  2814					;CORRECT SUM=577400000000 (-1/2)
  2815					;ERROR SUM=177400000000
  2816
  2817			000007			AC=7
  2818						SAVEAC	(1,1)^
  2819	032411	201 11 0 00 032411 		MOVEI	AC+2,.
  2820	032412	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2821	032413	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2822	032414	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2823
  2824	032415	205 05 0 00 177400 	O23500:	MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  2825	032416	205 07 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  2826	032417	205 10 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2827	032420	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2828	032421	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=177400000000
  2829	032422	003 07 0 00 023501 		ER3	AC,23501
  2830	032423	321 11 0 00 032415 		JUMPL	AC+2,O23500		;LOOP ON ERROR SWITCH
  2831
  2832					;AR=200440000000
  2833					;BR=200400000000
  2834					;CORRECT SUM=201400000000
  2835					;ERROR SUM=570000000000
  2836
  2837			000010			AC=10
  2838						SAVEAC	(1,1)^
  2839	032424	201 12 0 00 032424 		MOVEI	AC+2,.
  2840	032425	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2841	032426	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2842	032427	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2843
  2844	032430	205 06 0 00 175400 	O23600:	MOVSI	AC-2,175400		;SETUP FOR COMPARISON
  2845	032431	205 10 0 00 200440 		MOVSI	AC,200440		;SETUP AC
  2846	032432	205 11 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  2847	032433	140 10 0 00 000011 		FAD	AC,AC+1			;C(AC)+C(E)
  2848	032434	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST SUM=175400000000
  2849	032435	003 10 0 00 023601 		ER3	AC,23601
  2850	032436	321 12 0 00 032430 		JUMPL	AC+2,O23600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 33
DFKCA1	MAC	 3-Oct-80 13:56		PART I.B-FAD AND NORM RET                                                          SEQ 0094

  2851					;TEST ABILITY TO BRING UP NRT10
  2852					;AR=577400000000 (-1/2)
  2853					;BR=577400000000 (-1/2)
  2854					;CORRECT SUM=576400000000 (-1)
  2855					;ERROR SUM=577000000000
  2856
  2857			000007			AC=7
  2858						SAVEAC	(1,1)^
  2859	032437	201 11 0 00 032437 		MOVEI	AC+2,.
  2860	032440	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2861	032441	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2862	032442	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2863
  2864	032443	205 05 0 00 577000 	O23700:	MOVSI	AC-2,577000		;SETUP FOR COMPARISON
  2865	032444	205 07 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  2866	032445	205 10 0 00 577400 		MOVSI	AC+1,577400		;SETUP BR
  2867	032446	140 07 0 00 000010 		FAD	AC,AC+1			;C(AC)+C(E)
  2868	032447	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST SUM=577000000000
  2869	032450	003 07 0 00 023701 		ER3	AC,23701
  2870	032451	321 11 0 00 032443 		JUMPL	AC+2,O23700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 34
DFKCA1	MAC	 3-Oct-80 13:56		PART I.C-FAD (NORM RET, ROUNDING)                                                  SEQ 0095

  2871					SUBTTL	PART I.C-FAD (NORM RET, ROUNDING)
  2872
  2873					;		PART I.C-FAD(NORM RET, ROUNDING)
  2874
  2875					;AR=200400000077
  2876					;BR=206400000000
  2877					;FAILURE OF 1,2 OR 3 RESULTS IN AN
  2878					;UNROUNDED SUM
  2879					;CORRECT SUM=206404000001
  2880					;ERROR SUM=206404000000
  2881
  2882			000014			AC=14
  2883						SAVEAC	(1,1)^
  2884	032452	201 16 0 00 032452 		MOVEI	AC+2,.
  2885	032453	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2886	032454	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2887	032455	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2888
  2889	032456	205 12 0 00 206404 	O26500:	MOVSI	AC-2,206404		;SETUP FOR COMPARISON
  2890	032457	541 14 0 00 000077 		HRRI	AC,77			;SETUP
  2891	032460	505 14 0 00 200400 		HRLI	AC,200400		;AC
  2892	032461	205 15 0 00 206400 		MOVSI	AC+1,206400		;SETUP BR
  2893	032462	144 14 0 00 000015 		FADR	AC,AC+1			;C(AC)+C(E)
  2894	032463	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=206404000000
  2895	032464	003 14 0 00 026501 		ER3	AC,26501
  2896	032465	321 16 0 00 032456 		JUMPL	AC+2,O26500		;LOOP ON ERROR SWITCH
  2897
  2898					;AC=200400000077
  2899					;BR=206400000000
  2900					;FAILURE RESULTS IN A CORRECT MANTISSA,
  2901					;THE EXPONENT IS IN ERROR
  2902					;CORRECT SUM=206404000001
  2903					;ERROR SUM=171404000001
  2904
  2905			000014			AC=14
  2906						SAVEAC	(1,1)^
  2907	032466	201 16 0 00 032466 		MOVEI	AC+2,.
  2908	032467	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2909	032470	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2910	032471	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2911
  2912	032472	541 12 0 00 000001 	O26600:	HRRI	AC-2,1			;SETUP AC-2
  2913	032473	505 12 0 00 171404 		HRLI	AC-2,171404		;FOR COMPARISON
  2914	032474	541 14 0 00 000077 		HRRI	AC,77			;SETUP
  2915	032475	505 14 0 00 200400 		HRLI	AC,200400		;AC
  2916	032476	205 13 0 00 206400 		MOVSI	AC-1,206400		;SETUP BR
  2917	032477	144 14 0 00 000013 		FADR	AC,AC-1			;C(AC)+C(E)
  2918	032500	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST SUM=171404000001
  2919	032501	003 14 0 00 026601 		ER3	AC,26601
  2920	032502	321 16 0 00 032472 		JUMPL	AC+2,O26600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 35
DFKCA1	MAC	 3-Oct-80 13:56		PART I.C-FAD (NORM RET, ROUNDING)                                                  SEQ 0096

  2921					;AR=200400000003
  2922					;BR=202400000000
  2923					;FAILURE RESULTS
  2924					;IN AN UNROUNDED SUM
  2925					;CORR SUM=202500000001
  2926					;ERROR SUM=202500000000
  2927
  2928			000013			AC=13
  2929						SAVEAC	(1,1)^
  2930	032503	201 15 0 00 032503 		MOVEI	AC+2,.
  2931	032504	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2932	032505	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2933	032506	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2934
  2935	032507	205 11 0 00 202500 	O26700:	MOVSI	AC-2,202500		;SETUP FOR COMPARISON
  2936	032510	541 13 0 00 000003 		HRRI	AC,3			;SETUP
  2937	032511	505 13 0 00 200400 		HRLI	AC,200400		;AC
  2938	032512	205 14 0 00 202400 		MOVSI	AC+1,202400		;SETUP BR
  2939	032513	144 13 0 00 000014 		FADR	AC,AC+1			;C(AC)+C(E)
  2940	032514	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST ERROR SUM
  2941	032515	003 13 0 00 026701 		ER3	AC,26701
  2942	032516	321 15 0 00 032507 		JUMPL	AC+2,O26700		;LOOP ON ERROR SWITCH
  2943
  2944					;AR=200400777777
  2945					;BR=202400000000
  2946					;FAILURE RESULTS IN CONTINOUS
  2947					;ROUNDING. EACH PASS ADDING ONE TO AD(AR).
  2948					;EVENTUALLY AN NRSHRT COND (AR8(1) AND
  2949					;AD 9-35=0) DEVELOPS. SHIFTING MQRT ONE
  2950					;BRINGS DOWN NR ROUND LEVEL. FADR IS
  2951					;TERMINATED.
  2952					;CORR SUM=202600000000
  2953					;ERROR SUM=203400000000
  2954
  2955			000012			AC=12
  2956						SAVEAC	(1,1)^
  2957	032517	201 14 0 00 032517 		MOVEI	AC+2,.
  2958	032520	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2959	032521	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2960	032522	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2961
  2962	032523	205 10 0 00 203400 	O27000:	MOVSI	AC-2,203400		;SETUP FOR COMPARISON
  2963	032524	541 12 0 00 777777 		HRRI	AC,-1			;SETUP
  2964	032525	505 12 0 00 200400 		HRLI	AC,200400		;AC
  2965	032526	205 13 0 00 202400 		MOVSI	AC+1,202400		;SETUP BR
  2966	032527	144 12 0 00 000013 		FADR	AC,AC+1			;C(AC)+C(E)
  2967	032530	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST SUM=203400000000
  2968	032531	003 12 0 00 027001 		ER3	AC,27001
  2969	032532	321 14 0 00 032523 		JUMPL	AC+2,O27000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 36
DFKCA1	MAC	 3-Oct-80 13:56		PART I.C-FAD (NORM RET, ROUNDING)                                                  SEQ 0097

  2970					;TEST FADR
  2971					;SINGLE PRECISION FLOATING NORMALIZATION
  2972					;RENORMALIZATION IS FORCED DUE TO THE ROUNDING OF THE
  2973					;OPERAND OVERFLOWING THE MANTISSA.
  2974
  2975			000010			AC=10
  2976						SAVEAC	(1,1)^
  2977	032533	201 12 0 00 032533 		MOVEI	AC+2,.
  2978	032534	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  2979	032535	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  2980	032536	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  2981
  2982	032537	525 10 0 00 000777 	SPFNRN:	HRLOI	AC,777			;FRACTION ALL ONES
  2983	032540	200 06 0 00 070560 		MOVE	AC-2,[034400,,0]
  2984
  2985	032541	144 10 0 00 070561 		FADR	AC,[033777,,-1]		;DURING ROUNDING WILL REQ RENORM
  2986
  2987	032542	312 10 0 00 000006 		CAME	AC,AC-2			;WORD GET RENORMED OK ?
  2988	032543	003 10 0 00 027010 		ER3	AC,27010		;NO
  2989
  2990	032544	321 12 0 00 032537 		JUMPL	AC+2,SPFNRN		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37
DFKCA1	MAC	 3-Oct-80 13:56		PART I.D-FSB                                                                       SEQ 0098

  2991					SUBTTL	PART I.D-FSB
  2992
  2993					;		PART I.D-FSB
  2994
  2995					;TEST FCE, FAC, SAC AND DECODE
  2996					;TEST APPARENT ABILITY TO FETCH/STORE
  2997					;C(E),C(AC) AND DECODE
  2998					;AR=205400000000
  2999					;BR=177400000000
  3000					;FCE/SAC FAIL-C(AC)=ORIGINAL
  3001					;FAC FAILS-C(AC)=2'S COMP C(BR)
  3002
  3003			000007			AC=7
  3004						SAVEAC	(1,1)^
  3005	032545	201 11 0 00 032545 		MOVEI	AC+2,.
  3006	032546	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3007	032547	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3008	032550	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3009
  3010	032551	205 05 0 00 205400 	O27100:	MOVSI	AC-2,205400		;SETUP FOR COMPARISON
  3011	032552	205 07 0 00 205400 		MOVSI	AC,205400		;SETUP AC
  3012	032553	205 10 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3013	032554	150 07 0 00 000010 		FSB	AC,AC+1			;C(AC)-C(E)
  3014	032555	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST AC=ORIG
  3015	032556	003 07 0 00 027101 		ER3	AC,27101		;FCE/SAC FAILED
  3016	032557	205 05 0 00 600400 		MOVSI	AC-2,600400		;SETUP FOR COMPARISON
  3017	032560	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST AC=2'S COMP BR
  3018	032561	003 07 0 00 027101 		ER3	AC,27101		;FAC FAILED
  3019	032562	321 11 0 00 032551 		JUMPL	AC+2,O27100		;LOOP ON ERROR SWITCH
  3020
  3021					;AR=200400000000(1/2)
  3022					;BR=177400000000(1/4)
  3023					;FAILURE RESULTS IN LOSS OF SUBTRAHEND
  3024					;FAILURE RESULTS IN AN EXCESSIVE SHIFT
  3025					;COND, STORE MINUEND
  3026					;CORRECT DIFF=177400000000(1/4)
  3027					;ERROR DIFF=202400000000(1/2)
  3028
  3029			000014			AC=14
  3030						SAVEAC	(1,1)^
  3031	032563	201 16 0 00 032563 		MOVEI	AC+2,.
  3032	032564	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3033	032565	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3034	032566	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3035
  3036	032567	205 12 0 00 200400 	O27200:	MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  3037	032570	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  3038	032571	205 15 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3039	032572	150 14 0 00 000015 		FSB	AC,AC+1			;C(AC)-C(E)
  3040	032573	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST DIFF=200400000000
  3041	032574	003 14 0 00 027201 		ER3	AC,27201
  3042	032575	321 16 0 00 032567 		JUMPL	AC+2,O27200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 38
DFKCA1	MAC	 3-Oct-80 13:56		PART I.D-FSB                                                                       SEQ 0099

  3043					;AR=200400000000(1/2)
  3044					;BR=177400000000(1/4)
  3045					;FAILURE RESULTS IN A ONE'S COMPLEMENT
  3046					;SUBTRAHEND
  3047					;CORRECTd DIFF=177400000000
  3048					;ERROR DIFF=176477777777
  3049
  3050			000014			AC=14
  3051						SAVEAC	(1,1)^
  3052	032576	201 16 0 00 032576 		MOVEI	AC+2,.
  3053	032577	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3054	032600	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3055	032601	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3056
  3057	032602	541 12 0 00 777774 	O27300:	HRRI	AC-2,-4			;SETUP AC-2
  3058	032603	505 12 0 00 176477 		HRLI	AC-2,176477		;FOR COMPARISON
  3059	032604	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  3060	032605	205 15 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3061	032606	150 14 0 00 000015 		FSB	AC,AC+1			;C(AC)-C(E)
  3062	032607	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST DIFF=176477777774
  3063	032610	003 14 0 00 027301 		ER3	AC,27301
  3064	032611	321 16 0 00 032602 		JUMPL	AC+2,O27300		;LOOP ON ERROR SWITCH
  3065
  3066					;AR=200400000000(1/2)
  3067					;BR=177400000000(1/4)
  3068					;FAILURE RESULTS IN LOSS OF 2'S COMP
  3069					;SUBTRAHEND. THE NUMBER IN AR IS ADDED
  3070					;TO ITSELF
  3071					;CORRECT DIFF=177400000000 1/4
  3072					;FAILURE DIFF=201400000000 (1)
  3073
  3074			000013			AC=13
  3075						SAVEAC	(1,1)^
  3076	032612	201 15 0 00 032612 		MOVEI	AC+2,.
  3077	032613	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3078	032614	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3079	032615	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3080
  3081	032616	205 11 0 00 201400 	O27400:	MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  3082	032617	205 13 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  3083	032620	205 14 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3084	032621	150 13 0 00 000014 		FSB	AC,AC+1			;C(AC)-C(E)
  3085	032622	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST DIFF=201400000000
  3086	032623	003 13 0 00 027401 		ER3	AC,27401
  3087	032624	321 15 0 00 032616 		JUMPL	AC+2,O27400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 39
DFKCA1	MAC	 3-Oct-80 13:56		PART I.D-FSB                                                                       SEQ 0100

  3088					;AR=200400000000
  3089					;BR=177400000000
  3090					;FAILURE RESULTS IN LOSS OF MINUEND
  3091					;THE NUMBER IN BR IS SUBTRACTED
  3092					;FROM ITSELF. NR ALL ZERO IS ASSERTED
  3093
  3094			000012			AC=12
  3095						SAVEAC	(1,1)^
  3096	032625	201 14 0 00 032625 		MOVEI	AC+2,.
  3097	032626	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3098	032627	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3099	032630	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3100
  3101	032631	205 12 0 00 200400 	O27500:	MOVSI	AC,200400		;SETUP AC
  3102	032632	205 13 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3103	032633	150 12 0 00 000013 		FSB	AC,AC+1			;C(AC)-C(E)
  3104	032634	336 00 0 00 000012 		SKIPN	AC			;TEST DIFF=0
  3105	032635	003 12 0 00 027501 		ER3	AC,27501
  3106	032636	321 14 0 00 032631 		JUMPL	AC+2,O27500		;LOOP ON ERROR SWITCH
  3107
  3108					;AR=200400000000(1/2)
  3109					;BR=200400000000(1/2)
  3110					;FAILURE RESULTS IN A MINUEND
  3111					;EQUAL TO 777777777777
  3112					;CORRECT DIFF=0
  3113					;ERROR DIFF=631400000000
  3114
  3115			000011			AC=11
  3116						SAVEAC	(1,1)^
  3117	032637	201 13 0 00 032637 		MOVEI	AC+2,.
  3118	032640	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3119	032641	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3120	032642	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3121
  3122	032643	205 07 0 00 631400 	O27600:	MOVSI	AC-2,631400		;SETUP FOR COMPARISON
  3123	032644	205 11 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  3124	032645	205 12 0 00 200400 		MOVSI	AC+1,200400		;SETUP BR
  3125	032646	150 11 0 00 000012 		FSB	AC,AC+1			;C(AC)-C(E)
  3126	032647	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST DIFF=631400000000
  3127	032650	003 11 0 00 027601 		ER3	AC,27601
  3128	032651	321 13 0 00 032643 		JUMPL	AC+2,O27600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40
DFKCA1	MAC	 3-Oct-80 13:56		PART I.D-FSB                                                                       SEQ 0101

  3129					;AR=200400000000(1/2)
  3130					;BR=177400000000(1/4)
  3131					;FAILURE RESULTS IN ADDING TWO
  3132					;TO THE DIFFERENCE
  3133					;CORRECT DIFF=177400000000
  3134					;ERROR DIFF=177400000002
  3135
  3136			000010			AC=10
  3137						SAVEAC	(1,1)^
  3138	032652	201 12 0 00 032652 		MOVEI	AC+2,.
  3139	032653	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3140	032654	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3141	032655	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3142
  3143	032656	541 06 0 00 000002 	O27700:	HRRI	AC-2,2			;SETUP AC-2
  3144	032657	505 06 0 00 177400 		HRLI	AC-2,177400		;FOR COMPARISON
  3145	032660	205 10 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  3146	032661	205 11 0 00 177400 		MOVSI	AC+1,177400		;SETUP BR
  3147	032662	150 10 0 00 000011 		FSB	AC,AC+1			;C(AC)-C(E)
  3148	032663	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST DIFF=177400000002
  3149	032664	003 10 0 00 027701 		ER3	AC,27701
  3150	032665	321 12 0 00 032656 		JUMPL	AC+2,O27700		;LOOP ON ERROR SWITCH
  3151
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0102

  3152					SUBTTL  PART I.E-GEN TEST-FSC,FAD,FSB
  3153
  3154					;PART I.E-GENERAL TEST-FSC,FAD,FADR,FSB
  3155
  3156					;TEST FSC
  3157					;INCREASING SCALE FACTOR
  3158					;AR=000400000000
  3159					;SCALE=1,2,4,10,20,40,100,200
  3160					;RESULTANT EXP=1,2,4,10,20,40,200,
  3161
  3162			000014			AC=14
  3163						SAVEAC	(1,1)^
  3164	032666	201 16 0 00 032666 		MOVEI	AC+2,.
  3165	032667	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3166	032670	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3167	032671	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3168
  3169			030500		SN=30500
  3170			000400			XX=400
  3171			000000			ZZ=0
  3172
  3173					O30500:	REPEAT	^D8,			;TEST FSC
  3174					<SN=SN+1
  3175						XX=XX+XX
  3176						ZZ=ZZ+ZZ
  3177						IFE	ZZ,<ZZ=1>
  3178						MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3179						MOVSI	AC,400			;SETUP AC
  3180						FSC	AC,ZZ			;RESCALE
  3181						CAME	AC,AC-2			;TEST RESULT
  3182						ER3	AC,SN			;FSC FAILED
  3183						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3184					>
  3185			030501		SN=SN+1
  3186			001000			XX=XX+XX
  3187			000000			ZZ=ZZ+ZZ
  3188			000001			IFE	ZZ,<ZZ=1>
  3189	032672	205 12 0 00 001400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3190	032673	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3191	032674	132 14 0 00 000001 		FSC	AC,ZZ			;RESCALE
  3192	032675	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3193	032676	003 14 0 00 030501 		ER3	AC,SN			;FSC FAILED
  3194	032677	321 16 0 00 032672 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3195
  3196			030502		SN=SN+1
  3197			002000			XX=XX+XX
  3198			000002			ZZ=ZZ+ZZ
  3199						IFE	ZZ,<ZZ=1>
  3200	032700	205 12 0 00 002400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3201	032701	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3202	032702	132 14 0 00 000002 		FSC	AC,ZZ			;RESCALE
  3203	032703	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3204	032704	003 14 0 00 030502 		ER3	AC,SN			;FSC FAILED
  3205	032705	321 16 0 00 032700 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3206
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0103

  3207			030503		SN=SN+1
  3208			004000			XX=XX+XX
  3209			000004			ZZ=ZZ+ZZ
  3210						IFE	ZZ,<ZZ=1>
  3211	032706	205 12 0 00 004400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3212	032707	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3213	032710	132 14 0 00 000004 		FSC	AC,ZZ			;RESCALE
  3214	032711	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3215	032712	003 14 0 00 030503 		ER3	AC,SN			;FSC FAILED
  3216	032713	321 16 0 00 032706 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3217
  3218			030504		SN=SN+1
  3219			010000			XX=XX+XX
  3220			000010			ZZ=ZZ+ZZ
  3221						IFE	ZZ,<ZZ=1>
  3222	032714	205 12 0 00 010400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3223	032715	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3224	032716	132 14 0 00 000010 		FSC	AC,ZZ			;RESCALE
  3225	032717	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3226	032720	003 14 0 00 030504 		ER3	AC,SN			;FSC FAILED
  3227	032721	321 16 0 00 032714 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3228
  3229			030505		SN=SN+1
  3230			020000			XX=XX+XX
  3231			000020			ZZ=ZZ+ZZ
  3232						IFE	ZZ,<ZZ=1>
  3233	032722	205 12 0 00 020400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3234	032723	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3235	032724	132 14 0 00 000020 		FSC	AC,ZZ			;RESCALE
  3236	032725	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3237	032726	003 14 0 00 030505 		ER3	AC,SN			;FSC FAILED
  3238	032727	321 16 0 00 032722 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3239
  3240			030506		SN=SN+1
  3241			040000			XX=XX+XX
  3242			000040			ZZ=ZZ+ZZ
  3243						IFE	ZZ,<ZZ=1>
  3244	032730	205 12 0 00 040400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3245	032731	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3246	032732	132 14 0 00 000040 		FSC	AC,ZZ			;RESCALE
  3247	032733	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3248	032734	003 14 0 00 030506 		ER3	AC,SN			;FSC FAILED
  3249	032735	321 16 0 00 032730 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3250
  3251			030507		SN=SN+1
  3252			100000			XX=XX+XX
  3253			000100			ZZ=ZZ+ZZ
  3254						IFE	ZZ,<ZZ=1>
  3255	032736	205 12 0 00 100400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3256	032737	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3257	032740	132 14 0 00 000100 		FSC	AC,ZZ			;RESCALE
  3258	032741	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3259	032742	003 14 0 00 030507 		ER3	AC,SN			;FSC FAILED
  3260	032743	321 16 0 00 032736 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3261
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0104

  3262			030510		SN=SN+1
  3263			200000			XX=XX+XX
  3264			000200			ZZ=ZZ+ZZ
  3265						IFE	ZZ,<ZZ=1>
  3266	032744	205 12 0 00 200400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3267	032745	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  3268	032746	132 14 0 00 000200 		FSC	AC,ZZ			;RESCALE
  3269	032747	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3270	032750	003 14 0 00 030510 		ER3	AC,SN			;FSC FAILED
  3271	032751	321 16 0 00 032744 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3272
  3273					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0105

  3274					;TEST FSC
  3275					;INCREASING EXPONENT
  3276					;AR EXP=201,202,204,210,220,240,300
  3277					;SCALE=1
  3278					;RESULTANT EXP=202,203,205,211,221,241,301
  3279
  3280			000014			AC=14
  3281						SAVEAC	(1,1)^
  3282	032752	201 16 0 00 032752 		MOVEI	AC+2,.
  3283	032753	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3284	032754	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3285	032755	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3286
  3287			030600		SN=30600
  3288			000400			ZZ=400
  3289
  3290					O30600:	REPEAT	^D7,			;TEST FSC
  3291					<SN=SN+1
  3292						ZZ=ZZ+ZZ
  3293						XX=ZZ+1000
  3294						MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3295						MOVSI	AC,200400+ZZ		;SETUP AC
  3296						FSC	AC,1			;RESCALE
  3297						CAME	AC,AC-2			;TEST RESULT
  3298						ER3	AC,SN			;FSC FAILED
  3299						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3300					>
  3301			030601		SN=SN+1
  3302			001000			ZZ=ZZ+ZZ
  3303			002000			XX=ZZ+1000
  3304	032756	205 12 0 00 202400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3305	032757	205 14 0 00 201400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3306	032760	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3307	032761	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3308	032762	003 14 0 00 030601 		ER3	AC,SN			;FSC FAILED
  3309	032763	321 16 0 00 032756 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3310
  3311			030602		SN=SN+1
  3312			002000			ZZ=ZZ+ZZ
  3313			003000			XX=ZZ+1000
  3314	032764	205 12 0 00 203400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3315	032765	205 14 0 00 202400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3316	032766	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3317	032767	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3318	032770	003 14 0 00 030602 		ER3	AC,SN			;FSC FAILED
  3319	032771	321 16 0 00 032764 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3320
  3321			030603		SN=SN+1
  3322			004000			ZZ=ZZ+ZZ
  3323			005000			XX=ZZ+1000
  3324	032772	205 12 0 00 205400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3325	032773	205 14 0 00 204400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3326	032774	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3327	032775	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3328	032776	003 14 0 00 030603 		ER3	AC,SN			;FSC FAILED
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0106

  3329	032777	321 16 0 00 032772 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3330
  3331			030604		SN=SN+1
  3332			010000			ZZ=ZZ+ZZ
  3333			011000			XX=ZZ+1000
  3334	033000	205 12 0 00 211400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3335	033001	205 14 0 00 210400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3336	033002	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3337	033003	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3338	033004	003 14 0 00 030604 		ER3	AC,SN			;FSC FAILED
  3339	033005	321 16 0 00 033000 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3340
  3341			030605		SN=SN+1
  3342			020000			ZZ=ZZ+ZZ
  3343			021000			XX=ZZ+1000
  3344	033006	205 12 0 00 221400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3345	033007	205 14 0 00 220400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3346	033010	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3347	033011	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3348	033012	003 14 0 00 030605 		ER3	AC,SN			;FSC FAILED
  3349	033013	321 16 0 00 033006 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3350
  3351			030606		SN=SN+1
  3352			040000			ZZ=ZZ+ZZ
  3353			041000			XX=ZZ+1000
  3354	033014	205 12 0 00 241400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3355	033015	205 14 0 00 240400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3356	033016	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3357	033017	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3358	033020	003 14 0 00 030606 		ER3	AC,SN			;FSC FAILED
  3359	033021	321 16 0 00 033014 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3360
  3361			030607		SN=SN+1
  3362			100000			ZZ=ZZ+ZZ
  3363			101000			XX=ZZ+1000
  3364	033022	205 12 0 00 301400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  3365	033023	205 14 0 00 300400 		MOVSI	AC,200400+ZZ		;SETUP AC
  3366	033024	132 14 0 00 000001 		FSC	AC,1			;RESCALE
  3367	033025	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  3368	033026	003 14 0 00 030607 		ER3	AC,SN			;FSC FAILED
  3369	033027	321 16 0 00 033022 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3370
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0107

  3371					;TEST FSC
  3372					;NEGATIVE EXP, POSITIVE SCALE
  3373					;AR=777400000000
  3374					;SCALE=1,2,4,10,20,40,100,
  3375					;RESULTANT EXP=776,775,773,767,757,737,677,577
  3376
  3377			000013			AC=13
  3378						SAVEAC	(1,1)^
  3379	033030	201 15 0 00 033030 		MOVEI	AC+2,.
  3380	033031	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3381	033032	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3382	033033	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3383
  3384			030700		SN=30700
  3385			000400			WW=400
  3386			000000			XX=0
  3387			776400			ZZ=776400
  3388
  3389					O30700:	REPEAT  ^D8,			;TEST FSC
  3390					<SN=SN+1
  3391						XX=XX+XX
  3392						ZZ=ZZ-WW
  3393						WW=WW+WW
  3394						IFE	XX,<XX=1>
  3395						MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3396						MOVSI	AC,777400		;SETUP AC
  3397						FSC	AC,XX			;RESCALE
  3398						CAME	AC,AC-2			;TEST RESULT
  3399						ER3	AC,SN			;FSC FAILED
  3400						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3401					>
  3402			030701		SN=SN+1
  3403			000000			XX=XX+XX
  3404			776000			ZZ=ZZ-WW
  3405			001000			WW=WW+WW
  3406			000001			IFE	XX,<XX=1>
  3407	033034	205 11 0 00 776400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3408	033035	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3409	033036	132 13 0 00 000001 		FSC	AC,XX			;RESCALE
  3410	033037	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3411	033040	003 13 0 00 030701 		ER3	AC,SN			;FSC FAILED
  3412	033041	321 15 0 00 033034 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3413
  3414			030702		SN=SN+1
  3415			000002			XX=XX+XX
  3416			775000			ZZ=ZZ-WW
  3417			002000			WW=WW+WW
  3418						IFE	XX,<XX=1>
  3419	033042	205 11 0 00 775400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3420	033043	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3421	033044	132 13 0 00 000002 		FSC	AC,XX			;RESCALE
  3422	033045	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3423	033046	003 13 0 00 030702 		ER3	AC,SN			;FSC FAILED
  3424	033047	321 15 0 00 033042 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3425
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0108

  3426			030703		SN=SN+1
  3427			000004			XX=XX+XX
  3428			773000			ZZ=ZZ-WW
  3429			004000			WW=WW+WW
  3430						IFE	XX,<XX=1>
  3431	033050	205 11 0 00 773400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3432	033051	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3433	033052	132 13 0 00 000004 		FSC	AC,XX			;RESCALE
  3434	033053	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3435	033054	003 13 0 00 030703 		ER3	AC,SN			;FSC FAILED
  3436	033055	321 15 0 00 033050 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3437
  3438			030704		SN=SN+1
  3439			000010			XX=XX+XX
  3440			767000			ZZ=ZZ-WW
  3441			010000			WW=WW+WW
  3442						IFE	XX,<XX=1>
  3443	033056	205 11 0 00 767400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3444	033057	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3445	033060	132 13 0 00 000010 		FSC	AC,XX			;RESCALE
  3446	033061	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3447	033062	003 13 0 00 030704 		ER3	AC,SN			;FSC FAILED
  3448	033063	321 15 0 00 033056 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3449
  3450			030705		SN=SN+1
  3451			000020			XX=XX+XX
  3452			757000			ZZ=ZZ-WW
  3453			020000			WW=WW+WW
  3454						IFE	XX,<XX=1>
  3455	033064	205 11 0 00 757400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3456	033065	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3457	033066	132 13 0 00 000020 		FSC	AC,XX			;RESCALE
  3458	033067	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3459	033070	003 13 0 00 030705 		ER3	AC,SN			;FSC FAILED
  3460	033071	321 15 0 00 033064 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3461
  3462			030706		SN=SN+1
  3463			000040			XX=XX+XX
  3464			737000			ZZ=ZZ-WW
  3465			040000			WW=WW+WW
  3466						IFE	XX,<XX=1>
  3467	033072	205 11 0 00 737400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3468	033073	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3469	033074	132 13 0 00 000040 		FSC	AC,XX			;RESCALE
  3470	033075	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3471	033076	003 13 0 00 030706 		ER3	AC,SN			;FSC FAILED
  3472	033077	321 15 0 00 033072 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3473
  3474			030707		SN=SN+1
  3475			000100			XX=XX+XX
  3476			677000			ZZ=ZZ-WW
  3477			100000			WW=WW+WW
  3478						IFE	XX,<XX=1>
  3479	033100	205 11 0 00 677400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3480	033101	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0109

  3481	033102	132 13 0 00 000100 		FSC	AC,XX			;RESCALE
  3482	033103	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3483	033104	003 13 0 00 030707 		ER3	AC,SN			;FSC FAILED
  3484	033105	321 15 0 00 033100 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3485
  3486			030710		SN=SN+1
  3487			000200			XX=XX+XX
  3488			577000			ZZ=ZZ-WW
  3489			200000			WW=WW+WW
  3490						IFE	XX,<XX=1>
  3491	033106	205 11 0 00 577400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3492	033107	205 13 0 00 777400 		MOVSI	AC,777400		;SETUP AC
  3493	033110	132 13 0 00 000200 		FSC	AC,XX			;RESCALE
  3494	033111	312 13 0 00 000011 		CAME	AC,AC-2			;TEST RESULT
  3495	033112	003 13 0 00 030710 		ER3	AC,SN			;FSC FAILED
  3496	033113	321 15 0 00 033106 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3497
  3498					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0110

  3499					;TEST FSC
  3500					;NEGATIVE EXP, NEGATIVE SCALE
  3501					;AR=577400000000
  3502					;SCALE=777,776,775,774,773,772,771,770
  3503					;RESULTANT EXP=600,601,602,603,604,605,606,607
  3504
  3505			000012			AC=12
  3506						SAVEAC	(1,1)^
  3507	033114	201 14 0 00 033114 		MOVEI	AC+2,.
  3508	033115	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3509	033116	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3510	033117	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3511
  3512			031000		SN=31000
  3513			000000			XX=0
  3514			577000			ZZ=577000
  3515
  3516					O31000:	REPEAT	^D8,			;TEST FSC
  3517					<SN=SN+1
  3518						XX=XX-1
  3519						ZZ=ZZ+1000
  3520						MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3521						MOVSI	AC,577400		;SETUP AC
  3522						FSC	AC,XX			;RESCALE
  3523						CAME	AC,AC-2			;TEST RESULT
  3524						ER3	AC,SN			;FSC FAILED
  3525						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3526					>
  3527			031001		SN=SN+1
  3528		777777	777777			XX=XX-1
  3529			600000			ZZ=ZZ+1000
  3530	033120	205 10 0 00 600400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3531	033121	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3532	033122	132 12 0 00 777777 		FSC	AC,XX			;RESCALE
  3533	033123	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3534	033124	003 12 0 00 031001 		ER3	AC,SN			;FSC FAILED
  3535	033125	321 14 0 00 033120 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3536
  3537			031002		SN=SN+1
  3538		777777	777776			XX=XX-1
  3539			601000			ZZ=ZZ+1000
  3540	033126	205 10 0 00 601400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3541	033127	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3542	033130	132 12 0 00 777776 		FSC	AC,XX			;RESCALE
  3543	033131	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3544	033132	003 12 0 00 031002 		ER3	AC,SN			;FSC FAILED
  3545	033133	321 14 0 00 033126 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3546
  3547			031003		SN=SN+1
  3548		777777	777775			XX=XX-1
  3549			602000			ZZ=ZZ+1000
  3550	033134	205 10 0 00 602400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3551	033135	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3552	033136	132 12 0 00 777775 		FSC	AC,XX			;RESCALE
  3553	033137	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0111

  3554	033140	003 12 0 00 031003 		ER3	AC,SN			;FSC FAILED
  3555	033141	321 14 0 00 033134 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3556
  3557			031004		SN=SN+1
  3558		777777	777774			XX=XX-1
  3559			603000			ZZ=ZZ+1000
  3560	033142	205 10 0 00 603400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3561	033143	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3562	033144	132 12 0 00 777774 		FSC	AC,XX			;RESCALE
  3563	033145	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3564	033146	003 12 0 00 031004 		ER3	AC,SN			;FSC FAILED
  3565	033147	321 14 0 00 033142 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3566
  3567			031005		SN=SN+1
  3568		777777	777773			XX=XX-1
  3569			604000			ZZ=ZZ+1000
  3570	033150	205 10 0 00 604400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3571	033151	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3572	033152	132 12 0 00 777773 		FSC	AC,XX			;RESCALE
  3573	033153	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3574	033154	003 12 0 00 031005 		ER3	AC,SN			;FSC FAILED
  3575	033155	321 14 0 00 033150 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3576
  3577			031006		SN=SN+1
  3578		777777	777772			XX=XX-1
  3579			605000			ZZ=ZZ+1000
  3580	033156	205 10 0 00 605400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3581	033157	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3582	033160	132 12 0 00 777772 		FSC	AC,XX			;RESCALE
  3583	033161	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3584	033162	003 12 0 00 031006 		ER3	AC,SN			;FSC FAILED
  3585	033163	321 14 0 00 033156 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3586
  3587			031007		SN=SN+1
  3588		777777	777771			XX=XX-1
  3589			606000			ZZ=ZZ+1000
  3590	033164	205 10 0 00 606400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3591	033165	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3592	033166	132 12 0 00 777771 		FSC	AC,XX			;RESCALE
  3593	033167	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3594	033170	003 12 0 00 031007 		ER3	AC,SN			;FSC FAILED
  3595	033171	321 14 0 00 033164 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3596
  3597			031010		SN=SN+1
  3598		777777	777770			XX=XX-1
  3599			607000			ZZ=ZZ+1000
  3600	033172	205 10 0 00 607400 		MOVSI	AC-2,400+ZZ		;SETUP FOR COMPARISON
  3601	033173	205 12 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  3602	033174	132 12 0 00 777770 		FSC	AC,XX			;RESCALE
  3603	033175	312 12 0 00 000010 		CAME	AC,AC-2			;TEST RESULT
  3604	033176	003 12 0 00 031010 		ER3	AC,SN			;FSC FAILED
  3605	033177	321 14 0 00 033172 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3606
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0112

  3607					;TEST FSC
  3608					;NR ALL ZERO CONDITION
  3609					;AR=200000000000
  3610					;SCALE=1,2,4
  3611					;RESULTANT AC=0
  3612
  3613			000011			AC=11
  3614						SAVEAC	(1,1)^
  3615	033200	201 13 0 00 033200 		MOVEI	AC+2,.
  3616	033201	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3617	033202	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3618	033203	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3619
  3620			031100		SN=31100
  3621			000000			ZZ=0
  3622
  3623					O31100:	REPEAT	^D3,			;TEST FSC -ALL ZERO COND
  3624					<SN=SN+1
  3625						ZZ=ZZ+ZZ
  3626						IFE	ZZ,<ZZ=1>
  3627						MOVSI	AC,200000		;SETUP AC
  3628						FSC	AC,ZZ			;RESCALE
  3629						SKIPE	AC			;TEST AC=0
  3630						ER3	AC,SN			;FSC -NR ALL ZERO FAILED
  3631						JUMPL	AC+2,.-4		;LOOP ON ERROR SWITCH
  3632					>
  3633			031101		SN=SN+1
  3634			000000			ZZ=ZZ+ZZ
  3635			000001			IFE	ZZ,<ZZ=1>
  3636	033204	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  3637	033205	132 11 0 00 000001 		FSC	AC,ZZ			;RESCALE
  3638	033206	332 00 0 00 000011 		SKIPE	AC			;TEST AC=0
  3639	033207	003 11 0 00 031101 		ER3	AC,SN			;FSC -NR ALL ZERO FAILED
  3640	033210	321 13 0 00 033204 		JUMPL	AC+2,.-4		;LOOP ON ERROR SWITCH
  3641
  3642			031102		SN=SN+1
  3643			000002			ZZ=ZZ+ZZ
  3644						IFE	ZZ,<ZZ=1>
  3645	033211	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  3646	033212	132 11 0 00 000002 		FSC	AC,ZZ			;RESCALE
  3647	033213	332 00 0 00 000011 		SKIPE	AC			;TEST AC=0
  3648	033214	003 11 0 00 031102 		ER3	AC,SN			;FSC -NR ALL ZERO FAILED
  3649	033215	321 13 0 00 033211 		JUMPL	AC+2,.-4		;LOOP ON ERROR SWITCH
  3650
  3651			031103		SN=SN+1
  3652			000004			ZZ=ZZ+ZZ
  3653						IFE	ZZ,<ZZ=1>
  3654	033216	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  3655	033217	132 11 0 00 000004 		FSC	AC,ZZ			;RESCALE
  3656	033220	332 00 0 00 000011 		SKIPE	AC			;TEST AC=0
  3657	033221	003 11 0 00 031103 		ER3	AC,SN			;FSC -NR ALL ZERO FAILED
  3658	033222	321 13 0 00 033216 		JUMPL	AC+2,.-4		;LOOP ON ERROR SWITCH
  3659
  3660					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0113

  3661					;TEST FSC
  3662					;NR SHRT COND
  3663					;AR=577000000000
  3664					;SCALE=1,2,3
  3665					;RESULTANT EXPONENT=575,574,573
  3666
  3667			000010			AC=10
  3668						SAVEAC	(1,1)^
  3669	033223	201 12 0 00 033223 		MOVEI	AC+2,.
  3670	033224	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3671	033225	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3672	033226	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3673
  3674			031200		SN=31200
  3675			576000			XX=576000
  3676			000000			ZZ=0
  3677
  3678					O31200:	REPEAT	^D3,			;TEST FSC-NRSHRT
  3679					<SN=SN+1
  3680						XX=XX-1000
  3681						ZZ=ZZ+1
  3682						MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3683						MOVSI	AC,577000		;SETUP AC
  3684						FSC	AC,ZZ			;RESCALE
  3685						CAME	AC,AC-2			;TEST RESULT
  3686						ER3	AC,SN			;FSC NRSHRT FAILED
  3687						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3688					>
  3689			031201		SN=SN+1
  3690			575000			XX=XX-1000
  3691			000001			ZZ=ZZ+1
  3692	033227	205 06 0 00 575400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3693	033230	205 10 0 00 577000 		MOVSI	AC,577000		;SETUP AC
  3694	033231	132 10 0 00 000001 		FSC	AC,ZZ			;RESCALE
  3695	033232	312 10 0 00 000006 		CAME	AC,AC-2			;TEST RESULT
  3696	033233	003 10 0 00 031201 		ER3	AC,SN			;FSC NRSHRT FAILED
  3697	033234	321 12 0 00 033227 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3698
  3699			031202		SN=SN+1
  3700			574000			XX=XX-1000
  3701			000002			ZZ=ZZ+1
  3702	033235	205 06 0 00 574400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3703	033236	205 10 0 00 577000 		MOVSI	AC,577000		;SETUP AC
  3704	033237	132 10 0 00 000002 		FSC	AC,ZZ			;RESCALE
  3705	033240	312 10 0 00 000006 		CAME	AC,AC-2			;TEST RESULT
  3706	033241	003 10 0 00 031202 		ER3	AC,SN			;FSC NRSHRT FAILED
  3707	033242	321 12 0 00 033235 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3708
  3709			031203		SN=SN+1
  3710			573000			XX=XX-1000
  3711			000003			ZZ=ZZ+1
  3712	033243	205 06 0 00 573400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3713	033244	205 10 0 00 577000 		MOVSI	AC,577000		;SETUP AC
  3714	033245	132 10 0 00 000003 		FSC	AC,ZZ			;RESCALE
  3715	033246	312 10 0 00 000006 		CAME	AC,AC-2			;TEST RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0114

  3716	033247	003 10 0 00 031203 		ER3	AC,SN			;FSC NRSHRT FAILED
  3717	033250	321 12 0 00 033243 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3718
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0115

  3719					;TEST FSC
  3720					;-NR NORMAL
  3721					;AR=200200000000
  3722					;SCALE=1,2,3
  3723					;RESULTANT EXPONENT=200,201,202
  3724
  3725			000007			AC=7
  3726						SAVEAC	(1,1)^
  3727	033251	201 11 0 00 033251 		MOVEI	AC+2,.
  3728	033252	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3729	033253	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3730	033254	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3731
  3732			031300		SN=31300
  3733			177000			XX=177000
  3734			000000			ZZ=0
  3735
  3736					O31300:	REPEAT	^D3,			;TEST FSC-NR NORMAL
  3737					<SN=SN+1
  3738						XX=XX+1000
  3739						ZZ=ZZ+1
  3740						MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3741						MOVSI	AC,200200		;SETUP AC
  3742						FSC	AC,ZZ			;RESCALE
  3743						CAME	AC,AC-2			;TEST RESULT
  3744						ER3	AC,SN			;FSC-NR NORMAL FAILED
  3745						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3746					>
  3747			031301		SN=SN+1
  3748			200000			XX=XX+1000
  3749			000001			ZZ=ZZ+1
  3750	033255	205 05 0 00 200400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3751	033256	205 07 0 00 200200 		MOVSI	AC,200200		;SETUP AC
  3752	033257	132 07 0 00 000001 		FSC	AC,ZZ			;RESCALE
  3753	033260	312 07 0 00 000005 		CAME	AC,AC-2			;TEST RESULT
  3754	033261	003 07 0 00 031301 		ER3	AC,SN			;FSC-NR NORMAL FAILED
  3755	033262	321 11 0 00 033255 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3756
  3757			031302		SN=SN+1
  3758			201000			XX=XX+1000
  3759			000002			ZZ=ZZ+1
  3760	033263	205 05 0 00 201400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3761	033264	205 07 0 00 200200 		MOVSI	AC,200200		;SETUP AC
  3762	033265	132 07 0 00 000002 		FSC	AC,ZZ			;RESCALE
  3763	033266	312 07 0 00 000005 		CAME	AC,AC-2			;TEST RESULT
  3764	033267	003 07 0 00 031302 		ER3	AC,SN			;FSC-NR NORMAL FAILED
  3765	033270	321 11 0 00 033263 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3766
  3767			031303		SN=SN+1
  3768			202000			XX=XX+1000
  3769			000003			ZZ=ZZ+1
  3770	033271	205 05 0 00 202400 		MOVSI	AC-2,400+XX		;SETUP FOR COMPARISON
  3771	033272	205 07 0 00 200200 		MOVSI	AC,200200		;SETUP AC
  3772	033273	132 07 0 00 000003 		FSC	AC,ZZ			;RESCALE
  3773	033274	312 07 0 00 000005 		CAME	AC,AC-2			;TEST RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0116

  3774	033275	003 07 0 00 031303 		ER3	AC,SN			;FSC-NR NORMAL FAILED
  3775	033276	321 11 0 00 033271 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3776
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0117

  3777					;TEST FSC
  3778					;-(NOT) NRSHRT COND
  3779					;TESTING AD9(1) AND AD9-35=0)
  3780					;EXP=400
  3781					;MANTISSA=400,200,100,40,20 ETC
  3782					;SCALE=0
  3783					;RESULTANT AC SHOULD=ORIGINAL
  3784
  3785			000006			AC=6
  3786						SAVEAC	(1,1)^
  3787	033277	201 10 0 00 033277 		MOVEI	AC+2,.
  3788	033300	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  3789	033301	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  3790	033302	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  3791
  3792			031400		SN=31400
  3793			001000			ZZ=1000
  3794
  3795					O31400:	REPEAT	^D9,			;TEST BITS 9-17(1)
  3796					<SN=SN+1
  3797						ZZ=ZZ/2
  3798						MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3799						MOVSI	AC,400000+ZZ		;SETUP AC
  3800						FSC	AC,			;RESCALE
  3801						CAME	AC,AC-2			;TEST RESULT
  3802						ER3	AC,SN			;NRSHRT ASSERTED
  3803						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3804					>
  3805			031401		SN=SN+1
  3806			000400			ZZ=ZZ/2
  3807	033303	205 04 0 00 400400 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3808	033304	205 06 0 00 400400 		MOVSI	AC,400000+ZZ		;SETUP AC
  3809	033305	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3810	033306	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3811	033307	003 06 0 00 031401 		ER3	AC,SN			;NRSHRT ASSERTED
  3812	033310	321 10 0 00 033303 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3813
  3814			031402		SN=SN+1
  3815			000200			ZZ=ZZ/2
  3816	033311	205 04 0 00 400200 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3817	033312	205 06 0 00 400200 		MOVSI	AC,400000+ZZ		;SETUP AC
  3818	033313	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3819	033314	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3820	033315	003 06 0 00 031402 		ER3	AC,SN			;NRSHRT ASSERTED
  3821	033316	321 10 0 00 033311 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3822
  3823			031403		SN=SN+1
  3824			000100			ZZ=ZZ/2
  3825	033317	205 04 0 00 400100 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3826	033320	205 06 0 00 400100 		MOVSI	AC,400000+ZZ		;SETUP AC
  3827	033321	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3828	033322	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3829	033323	003 06 0 00 031403 		ER3	AC,SN			;NRSHRT ASSERTED
  3830	033324	321 10 0 00 033317 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3831
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0118

  3832			031404		SN=SN+1
  3833			000040			ZZ=ZZ/2
  3834	033325	205 04 0 00 400040 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3835	033326	205 06 0 00 400040 		MOVSI	AC,400000+ZZ		;SETUP AC
  3836	033327	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3837	033330	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3838	033331	003 06 0 00 031404 		ER3	AC,SN			;NRSHRT ASSERTED
  3839	033332	321 10 0 00 033325 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3840
  3841			031405		SN=SN+1
  3842			000020			ZZ=ZZ/2
  3843	033333	205 04 0 00 400020 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3844	033334	205 06 0 00 400020 		MOVSI	AC,400000+ZZ		;SETUP AC
  3845	033335	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3846	033336	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3847	033337	003 06 0 00 031405 		ER3	AC,SN			;NRSHRT ASSERTED
  3848	033340	321 10 0 00 033333 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3849
  3850			031406		SN=SN+1
  3851			000010			ZZ=ZZ/2
  3852	033341	205 04 0 00 400010 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3853	033342	205 06 0 00 400010 		MOVSI	AC,400000+ZZ		;SETUP AC
  3854	033343	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3855	033344	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3856	033345	003 06 0 00 031406 		ER3	AC,SN			;NRSHRT ASSERTED
  3857	033346	321 10 0 00 033341 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3858
  3859			031407		SN=SN+1
  3860			000004			ZZ=ZZ/2
  3861	033347	205 04 0 00 400004 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3862	033350	205 06 0 00 400004 		MOVSI	AC,400000+ZZ		;SETUP AC
  3863	033351	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3864	033352	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3865	033353	003 06 0 00 031407 		ER3	AC,SN			;NRSHRT ASSERTED
  3866	033354	321 10 0 00 033347 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3867
  3868			031410		SN=SN+1
  3869			000002			ZZ=ZZ/2
  3870	033355	205 04 0 00 400002 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3871	033356	205 06 0 00 400002 		MOVSI	AC,400000+ZZ		;SETUP AC
  3872	033357	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3873	033360	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3874	033361	003 06 0 00 031410 		ER3	AC,SN			;NRSHRT ASSERTED
  3875	033362	321 10 0 00 033355 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3876
  3877			031411		SN=SN+1
  3878			000001			ZZ=ZZ/2
  3879	033363	205 04 0 00 400001 		MOVSI	AC-2,400000+ZZ		;SETUP FOR COMPARISON
  3880	033364	205 06 0 00 400001 		MOVSI	AC,400000+ZZ		;SETUP AC
  3881	033365	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3882	033366	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3883	033367	003 06 0 00 031411 		ER3	AC,SN			;NRSHRT ASSERTED
  3884	033370	321 10 0 00 033363 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  3885
  3886					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0119

  3887			031500		SN=31500
  3888			000000			ZZ=0
  3889					O31500:	REPEAT	^D18,			;TEST BITS 18-35(1)
  3890					<SN=SN+1
  3891						ZZ=ZZ/2
  3892						IFE	ZZ,<ZZ=400000>
  3893						HRLI	AC-2,400000		;SETUP AC-2
  3894						HRRI	AC-2,ZZ			;FOR COMPARISON
  3895						HRLI	AC,400000		;SETUP
  3896						HRRI	AC,ZZ			;AC
  3897						FSC	AC,			;RESCALE
  3898						CAME	AC,AC-2			;TEST RESULT
  3899						ER3	AC,SN			;NRSHRT ASSERTED
  3900						JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3901					>
  3902			031501		SN=SN+1
  3903			000000			ZZ=ZZ/2
  3904			400000			IFE	ZZ,<ZZ=400000>
  3905	033371	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3906	033372	541 04 0 00 400000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3907	033373	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3908	033374	541 06 0 00 400000 		HRRI	AC,ZZ			;AC
  3909	033375	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3910	033376	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3911	033377	003 06 0 00 031501 		ER3	AC,SN			;NRSHRT ASSERTED
  3912	033400	321 10 0 00 033371 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3913
  3914			031502		SN=SN+1
  3915			200000			ZZ=ZZ/2
  3916						IFE	ZZ,<ZZ=400000>
  3917	033401	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3918	033402	541 04 0 00 200000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3919	033403	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3920	033404	541 06 0 00 200000 		HRRI	AC,ZZ			;AC
  3921	033405	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3922	033406	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3923	033407	003 06 0 00 031502 		ER3	AC,SN			;NRSHRT ASSERTED
  3924	033410	321 10 0 00 033401 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3925
  3926			031503		SN=SN+1
  3927			100000			ZZ=ZZ/2
  3928						IFE	ZZ,<ZZ=400000>
  3929	033411	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3930	033412	541 04 0 00 100000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3931	033413	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3932	033414	541 06 0 00 100000 		HRRI	AC,ZZ			;AC
  3933	033415	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3934	033416	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3935	033417	003 06 0 00 031503 		ER3	AC,SN			;NRSHRT ASSERTED
  3936	033420	321 10 0 00 033411 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3937
  3938			031504		SN=SN+1
  3939			040000			ZZ=ZZ/2
  3940						IFE	ZZ,<ZZ=400000>
  3941	033421	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0120

  3942	033422	541 04 0 00 040000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3943	033423	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3944	033424	541 06 0 00 040000 		HRRI	AC,ZZ			;AC
  3945	033425	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3946	033426	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3947	033427	003 06 0 00 031504 		ER3	AC,SN			;NRSHRT ASSERTED
  3948	033430	321 10 0 00 033421 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3949
  3950			031505		SN=SN+1
  3951			020000			ZZ=ZZ/2
  3952						IFE	ZZ,<ZZ=400000>
  3953	033431	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3954	033432	541 04 0 00 020000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3955	033433	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3956	033434	541 06 0 00 020000 		HRRI	AC,ZZ			;AC
  3957	033435	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3958	033436	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3959	033437	003 06 0 00 031505 		ER3	AC,SN			;NRSHRT ASSERTED
  3960	033440	321 10 0 00 033431 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3961
  3962			031506		SN=SN+1
  3963			010000			ZZ=ZZ/2
  3964						IFE	ZZ,<ZZ=400000>
  3965	033441	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3966	033442	541 04 0 00 010000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3967	033443	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3968	033444	541 06 0 00 010000 		HRRI	AC,ZZ			;AC
  3969	033445	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3970	033446	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3971	033447	003 06 0 00 031506 		ER3	AC,SN			;NRSHRT ASSERTED
  3972	033450	321 10 0 00 033441 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3973
  3974			031507		SN=SN+1
  3975			004000			ZZ=ZZ/2
  3976						IFE	ZZ,<ZZ=400000>
  3977	033451	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3978	033452	541 04 0 00 004000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3979	033453	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3980	033454	541 06 0 00 004000 		HRRI	AC,ZZ			;AC
  3981	033455	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3982	033456	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3983	033457	003 06 0 00 031507 		ER3	AC,SN			;NRSHRT ASSERTED
  3984	033460	321 10 0 00 033451 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  3985
  3986			031510		SN=SN+1
  3987			002000			ZZ=ZZ/2
  3988						IFE	ZZ,<ZZ=400000>
  3989	033461	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  3990	033462	541 04 0 00 002000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  3991	033463	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  3992	033464	541 06 0 00 002000 		HRRI	AC,ZZ			;AC
  3993	033465	132 06 0 00 000000 		FSC	AC,			;RESCALE
  3994	033466	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  3995	033467	003 06 0 00 031510 		ER3	AC,SN			;NRSHRT ASSERTED
  3996	033470	321 10 0 00 033461 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0121

  3997
  3998			031511		SN=SN+1
  3999			001000			ZZ=ZZ/2
  4000						IFE	ZZ,<ZZ=400000>
  4001	033471	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4002	033472	541 04 0 00 001000 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4003	033473	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4004	033474	541 06 0 00 001000 		HRRI	AC,ZZ			;AC
  4005	033475	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4006	033476	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4007	033477	003 06 0 00 031511 		ER3	AC,SN			;NRSHRT ASSERTED
  4008	033500	321 10 0 00 033471 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4009
  4010			031512		SN=SN+1
  4011			000400			ZZ=ZZ/2
  4012						IFE	ZZ,<ZZ=400000>
  4013	033501	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4014	033502	541 04 0 00 000400 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4015	033503	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4016	033504	541 06 0 00 000400 		HRRI	AC,ZZ			;AC
  4017	033505	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4018	033506	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4019	033507	003 06 0 00 031512 		ER3	AC,SN			;NRSHRT ASSERTED
  4020	033510	321 10 0 00 033501 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4021
  4022			031513		SN=SN+1
  4023			000200			ZZ=ZZ/2
  4024						IFE	ZZ,<ZZ=400000>
  4025	033511	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4026	033512	541 04 0 00 000200 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4027	033513	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4028	033514	541 06 0 00 000200 		HRRI	AC,ZZ			;AC
  4029	033515	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4030	033516	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4031	033517	003 06 0 00 031513 		ER3	AC,SN			;NRSHRT ASSERTED
  4032	033520	321 10 0 00 033511 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4033
  4034			031514		SN=SN+1
  4035			000100			ZZ=ZZ/2
  4036						IFE	ZZ,<ZZ=400000>
  4037	033521	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4038	033522	541 04 0 00 000100 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4039	033523	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4040	033524	541 06 0 00 000100 		HRRI	AC,ZZ			;AC
  4041	033525	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4042	033526	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4043	033527	003 06 0 00 031514 		ER3	AC,SN			;NRSHRT ASSERTED
  4044	033530	321 10 0 00 033521 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4045
  4046			031515		SN=SN+1
  4047			000040			ZZ=ZZ/2
  4048						IFE	ZZ,<ZZ=400000>
  4049	033531	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4050	033532	541 04 0 00 000040 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4051	033533	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-5
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0122

  4052	033534	541 06 0 00 000040 		HRRI	AC,ZZ			;AC
  4053	033535	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4054	033536	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4055	033537	003 06 0 00 031515 		ER3	AC,SN			;NRSHRT ASSERTED
  4056	033540	321 10 0 00 033531 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4057
  4058			031516		SN=SN+1
  4059			000020			ZZ=ZZ/2
  4060						IFE	ZZ,<ZZ=400000>
  4061	033541	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4062	033542	541 04 0 00 000020 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4063	033543	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4064	033544	541 06 0 00 000020 		HRRI	AC,ZZ			;AC
  4065	033545	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4066	033546	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4067	033547	003 06 0 00 031516 		ER3	AC,SN			;NRSHRT ASSERTED
  4068	033550	321 10 0 00 033541 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4069
  4070			031517		SN=SN+1
  4071			000010			ZZ=ZZ/2
  4072						IFE	ZZ,<ZZ=400000>
  4073	033551	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4074	033552	541 04 0 00 000010 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4075	033553	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4076	033554	541 06 0 00 000010 		HRRI	AC,ZZ			;AC
  4077	033555	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4078	033556	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4079	033557	003 06 0 00 031517 		ER3	AC,SN			;NRSHRT ASSERTED
  4080	033560	321 10 0 00 033551 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4081
  4082			031520		SN=SN+1
  4083			000004			ZZ=ZZ/2
  4084						IFE	ZZ,<ZZ=400000>
  4085	033561	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4086	033562	541 04 0 00 000004 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4087	033563	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4088	033564	541 06 0 00 000004 		HRRI	AC,ZZ			;AC
  4089	033565	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4090	033566	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4091	033567	003 06 0 00 031520 		ER3	AC,SN			;NRSHRT ASSERTED
  4092	033570	321 10 0 00 033561 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4093
  4094			031521		SN=SN+1
  4095			000002			ZZ=ZZ/2
  4096						IFE	ZZ,<ZZ=400000>
  4097	033571	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4098	033572	541 04 0 00 000002 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4099	033573	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4100	033574	541 06 0 00 000002 		HRRI	AC,ZZ			;AC
  4101	033575	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4102	033576	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4103	033577	003 06 0 00 031521 		ER3	AC,SN			;NRSHRT ASSERTED
  4104	033600	321 10 0 00 033571 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4105
  4106			031522		SN=SN+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-6
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0123

  4107			000001			ZZ=ZZ/2
  4108						IFE	ZZ,<ZZ=400000>
  4109	033601	505 04 0 00 400000 		HRLI	AC-2,400000		;SETUP AC-2
  4110	033602	541 04 0 00 000001 		HRRI	AC-2,ZZ			;FOR COMPARISON
  4111	033603	505 06 0 00 400000 		HRLI	AC,400000		;SETUP
  4112	033604	541 06 0 00 000001 		HRRI	AC,ZZ			;AC
  4113	033605	132 06 0 00 000000 		FSC	AC,			;RESCALE
  4114	033606	312 06 0 00 000004 		CAME	AC,AC-2			;TEST RESULT
  4115	033607	003 06 0 00 031522 		ER3	AC,SN			;NRSHRT ASSERTED
  4116	033610	321 10 0 00 033601 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  4117
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0124

  4118					;TEST FAD
  4119					;TEST TWO POSITIVES
  4120					;AR=200200,ZZ (UNNORMALIZED)
  4121					;BR=200200,ZZ (UNNORMALIZED)
  4122					;SUM=200400,ZZ+ZZ
  4123
  4124			000014			AC=14
  4125						SAVEAC	(1,1)^
  4126	033611	201 16 0 00 033611 		MOVEI	AC+2,.
  4127	033612	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4128	033613	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4129	033614	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4130
  4131			031600		SN=31600
  4132			000001			XX=1
  4133			000000			ZZ=0
  4134
  4135					O31600:	REPEAT	^D10,			;TEST FAD
  4136					<SN=SN+1
  4137						XX=XX+XX
  4138						ZZ=ZZ+ZZ
  4139						IFE	ZZ,<ZZ=1>
  4140						HRLI	AC-2,200400		;SETUP AC-2
  4141						HRRI	AC-2,XX			;FOR COMPARISON
  4142						HRLI	AC,200200		;SETUP
  4143						HRRI	AC,ZZ			;AC
  4144						MOVEM	AC,AC-1			;SETUP BR
  4145						FAD	AC,AC-1			;C(AC)+C(E)
  4146						CAME	AC,AC-2			;TEST SUM
  4147						ER3	AC,SN			;FAD FAILED
  4148						JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4149					>
  4150			031601		SN=SN+1
  4151			000002			XX=XX+XX
  4152			000000			ZZ=ZZ+ZZ
  4153			000001			IFE	ZZ,<ZZ=1>
  4154	033615	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4155	033616	541 12 0 00 000002 		HRRI	AC-2,XX			;FOR COMPARISON
  4156	033617	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4157	033620	541 14 0 00 000001 		HRRI	AC,ZZ			;AC
  4158	033621	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4159	033622	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4160	033623	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4161	033624	003 14 0 00 031601 		ER3	AC,SN			;FAD FAILED
  4162	033625	321 16 0 00 033615 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4163
  4164			031602		SN=SN+1
  4165			000004			XX=XX+XX
  4166			000002			ZZ=ZZ+ZZ
  4167						IFE	ZZ,<ZZ=1>
  4168	033626	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4169	033627	541 12 0 00 000004 		HRRI	AC-2,XX			;FOR COMPARISON
  4170	033630	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4171	033631	541 14 0 00 000002 		HRRI	AC,ZZ			;AC
  4172	033632	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0125

  4173	033633	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4174	033634	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4175	033635	003 14 0 00 031602 		ER3	AC,SN			;FAD FAILED
  4176	033636	321 16 0 00 033626 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4177
  4178			031603		SN=SN+1
  4179			000010			XX=XX+XX
  4180			000004			ZZ=ZZ+ZZ
  4181						IFE	ZZ,<ZZ=1>
  4182	033637	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4183	033640	541 12 0 00 000010 		HRRI	AC-2,XX			;FOR COMPARISON
  4184	033641	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4185	033642	541 14 0 00 000004 		HRRI	AC,ZZ			;AC
  4186	033643	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4187	033644	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4188	033645	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4189	033646	003 14 0 00 031603 		ER3	AC,SN			;FAD FAILED
  4190	033647	321 16 0 00 033637 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4191
  4192			031604		SN=SN+1
  4193			000020			XX=XX+XX
  4194			000010			ZZ=ZZ+ZZ
  4195						IFE	ZZ,<ZZ=1>
  4196	033650	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4197	033651	541 12 0 00 000020 		HRRI	AC-2,XX			;FOR COMPARISON
  4198	033652	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4199	033653	541 14 0 00 000010 		HRRI	AC,ZZ			;AC
  4200	033654	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4201	033655	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4202	033656	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4203	033657	003 14 0 00 031604 		ER3	AC,SN			;FAD FAILED
  4204	033660	321 16 0 00 033650 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4205
  4206			031605		SN=SN+1
  4207			000040			XX=XX+XX
  4208			000020			ZZ=ZZ+ZZ
  4209						IFE	ZZ,<ZZ=1>
  4210	033661	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4211	033662	541 12 0 00 000040 		HRRI	AC-2,XX			;FOR COMPARISON
  4212	033663	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4213	033664	541 14 0 00 000020 		HRRI	AC,ZZ			;AC
  4214	033665	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4215	033666	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4216	033667	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4217	033670	003 14 0 00 031605 		ER3	AC,SN			;FAD FAILED
  4218	033671	321 16 0 00 033661 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4219
  4220			031606		SN=SN+1
  4221			000100			XX=XX+XX
  4222			000040			ZZ=ZZ+ZZ
  4223						IFE	ZZ,<ZZ=1>
  4224	033672	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4225	033673	541 12 0 00 000100 		HRRI	AC-2,XX			;FOR COMPARISON
  4226	033674	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4227	033675	541 14 0 00 000040 		HRRI	AC,ZZ			;AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0126

  4228	033676	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4229	033677	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4230	033700	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4231	033701	003 14 0 00 031606 		ER3	AC,SN			;FAD FAILED
  4232	033702	321 16 0 00 033672 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4233
  4234			031607		SN=SN+1
  4235			000200			XX=XX+XX
  4236			000100			ZZ=ZZ+ZZ
  4237						IFE	ZZ,<ZZ=1>
  4238	033703	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4239	033704	541 12 0 00 000200 		HRRI	AC-2,XX			;FOR COMPARISON
  4240	033705	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4241	033706	541 14 0 00 000100 		HRRI	AC,ZZ			;AC
  4242	033707	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4243	033710	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4244	033711	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4245	033712	003 14 0 00 031607 		ER3	AC,SN			;FAD FAILED
  4246	033713	321 16 0 00 033703 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4247
  4248			031610		SN=SN+1
  4249			000400			XX=XX+XX
  4250			000200			ZZ=ZZ+ZZ
  4251						IFE	ZZ,<ZZ=1>
  4252	033714	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4253	033715	541 12 0 00 000400 		HRRI	AC-2,XX			;FOR COMPARISON
  4254	033716	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4255	033717	541 14 0 00 000200 		HRRI	AC,ZZ			;AC
  4256	033720	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4257	033721	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4258	033722	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4259	033723	003 14 0 00 031610 		ER3	AC,SN			;FAD FAILED
  4260	033724	321 16 0 00 033714 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4261
  4262			031611		SN=SN+1
  4263			001000			XX=XX+XX
  4264			000400			ZZ=ZZ+ZZ
  4265						IFE	ZZ,<ZZ=1>
  4266	033725	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4267	033726	541 12 0 00 001000 		HRRI	AC-2,XX			;FOR COMPARISON
  4268	033727	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
  4269	033730	541 14 0 00 000400 		HRRI	AC,ZZ			;AC
  4270	033731	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4271	033732	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4272	033733	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4273	033734	003 14 0 00 031611 		ER3	AC,SN			;FAD FAILED
  4274	033735	321 16 0 00 033725 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4275
  4276			031612		SN=SN+1
  4277			002000			XX=XX+XX
  4278			001000			ZZ=ZZ+ZZ
  4279						IFE	ZZ,<ZZ=1>
  4280	033736	505 12 0 00 200400 		HRLI	AC-2,200400		;SETUP AC-2
  4281	033737	541 12 0 00 002000 		HRRI	AC-2,XX			;FOR COMPARISON
  4282	033740	505 14 0 00 200200 		HRLI	AC,200200		;SETUP
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0127

  4283	033741	541 14 0 00 001000 		HRRI	AC,ZZ			;AC
  4284	033742	202 14 0 00 000013 		MOVEM	AC,AC-1			;SETUP BR
  4285	033743	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4286	033744	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4287	033745	003 14 0 00 031612 		ER3	AC,SN			;FAD FAILED
  4288	033746	321 16 0 00 033736 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4289
  4290					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0128

  4291					;TEST FAD
  4292					;TWO POSITIVES
  4293					;AR=1/4,1/8,1/16,1/32,1/64,1/128
  4294					;BR=201400000000 (+1)
  4295					;SUMS=1 1/4, 1 1/8, 1 1/16, 1 1/32, 1 1/64, 1 1/128
  4296
  4297			000014			AC=14
  4298						SAVEAC	(1,1)^
  4299	033747	201 16 0 00 033747 		MOVEI	AC+2,.
  4300	033750	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4301	033751	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4302	033752	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4303
  4304			031700		SN=31700
  4305			171400			XX=171400
  4306			000001			ZZ=1
  4307
  4308					O31700:	REPEAT	^D6,			;TEST FAD
  4309					<SN=SN+1
  4310						XX=XX+1000
  4311						ZZ=ZZ+ZZ
  4312						MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4313						MOVSI	AC,XX			;SETUP AC
  4314						MOVSI	AC-1,201400		;SETUP BR
  4315						FAD	AC,AC-1			;C (AC)+C(E)
  4316						CAME	AC,AC-2			;TEST RESULT
  4317						ER3	AC,SN			;FAD FAILED
  4318						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4319					>
  4320			031701		SN=SN+1
  4321			172400			XX=XX+1000
  4322			000002			ZZ=ZZ+ZZ
  4323	033753	205 12 0 00 201402 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4324	033754	205 14 0 00 172400 		MOVSI	AC,XX			;SETUP AC
  4325	033755	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4326	033756	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4327	033757	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4328	033760	003 14 0 00 031701 		ER3	AC,SN			;FAD FAILED
  4329	033761	321 16 0 00 033753 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4330
  4331			031702		SN=SN+1
  4332			173400			XX=XX+1000
  4333			000004			ZZ=ZZ+ZZ
  4334	033762	205 12 0 00 201404 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4335	033763	205 14 0 00 173400 		MOVSI	AC,XX			;SETUP AC
  4336	033764	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4337	033765	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4338	033766	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4339	033767	003 14 0 00 031702 		ER3	AC,SN			;FAD FAILED
  4340	033770	321 16 0 00 033762 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4341
  4342			031703		SN=SN+1
  4343			174400			XX=XX+1000
  4344			000010			ZZ=ZZ+ZZ
  4345	033771	205 12 0 00 201410 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46-5
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0129

  4346	033772	205 14 0 00 174400 		MOVSI	AC,XX			;SETUP AC
  4347	033773	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4348	033774	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4349	033775	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4350	033776	003 14 0 00 031703 		ER3	AC,SN			;FAD FAILED
  4351	033777	321 16 0 00 033771 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4352
  4353			031704		SN=SN+1
  4354			175400			XX=XX+1000
  4355			000020			ZZ=ZZ+ZZ
  4356	034000	205 12 0 00 201420 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4357	034001	205 14 0 00 175400 		MOVSI	AC,XX			;SETUP AC
  4358	034002	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4359	034003	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4360	034004	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4361	034005	003 14 0 00 031704 		ER3	AC,SN			;FAD FAILED
  4362	034006	321 16 0 00 034000 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4363
  4364			031705		SN=SN+1
  4365			176400			XX=XX+1000
  4366			000040			ZZ=ZZ+ZZ
  4367	034007	205 12 0 00 201440 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4368	034010	205 14 0 00 176400 		MOVSI	AC,XX			;SETUP AC
  4369	034011	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4370	034012	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4371	034013	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4372	034014	003 14 0 00 031705 		ER3	AC,SN			;FAD FAILED
  4373	034015	321 16 0 00 034007 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4374
  4375			031706		SN=SN+1
  4376			177400			XX=XX+1000
  4377			000100			ZZ=ZZ+ZZ
  4378	034016	205 12 0 00 201500 		MOVSI	AC-2,201400+ZZ		;SETUP FOR COMPARISON
  4379	034017	205 14 0 00 177400 		MOVSI	AC,XX			;SETUP AC
  4380	034020	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  4381	034021	140 14 0 00 000013 		FAD	AC,AC-1			;C (AC)+C(E)
  4382	034022	312 14 0 00 000012 		CAME	AC,AC-2			;TEST RESULT
  4383	034023	003 14 0 00 031706 		ER3	AC,SN			;FAD FAILED
  4384	034024	321 16 0 00 034016 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4385
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 47
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0130

  4386					;TEST FAD
  4387					;TWO POSITIVES-LARGER EXPONENT IN AC
  4388					;AR=202.6 (3), 202.4 (2),201.4(1)
  4389					;BR=200.4 (+1/2)
  4390					;SUMS=202.7, 202.5, 201.6
  4391
  4392			000013			AC=13
  4393						SAVEAC	(1,1)^
  4394	034025	201 15 0 00 034025 		MOVEI	AC+2,.
  4395	034026	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4396	034027	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4397	034030	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4398
  4399	034031	205 11 0 00 202700 	O32000:	MOVSI	AC-2,202700		;SETUP FOR COMPARISON
  4400	034032	205 13 0 00 202600 		MOVSI	AC,202600		;SETUP AC
  4401	034033	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  4402	034034	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC)+C(E)
  4403	034035	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4404	034036	003 13 0 00 032001 		ER3	AC,32001		;FAD FAILED
  4405	034037	321 15 0 00 034031 		JUMPL	AC+2,O32000		;LOOP ON ERROR SWITCH
  4406
  4407	034040	205 11 0 00 202500 	O32100:	MOVSI	AC-2,202500		;SETUP FOR COMPARISON
  4408	034041	205 13 0 00 202400 		MOVSI	AC,202400		;SETUP AC
  4409	034042	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  4410	034043	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC)+C(E)
  4411	034044	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4412	034045	003 13 0 00 032101 		ER3	AC,32101		;FAD FAILED
  4413	034046	321 15 0 00 034040 		JUMPL	AC+2,O32100		;LOOP ON ERROR SWITCH
  4414
  4415	034047	205 11 0 00 201600 	O32200:	MOVSI	AC-2,201600		;SETUP FOR COMPARISON
  4416	034050	205 13 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  4417	034051	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  4418	034052	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC) +C(E)
  4419	034053	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4420	034054	003 13 0 00 032201 		ER3	AC,32201		;FAD FAILED
  4421	034055	321 15 0 00 034047 		JUMPL	AC+2,O32200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 48
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0131

  4422					;TEST FAD
  4423					;TWO POSITIVES
  4424					;EXCESSIVE SHIFT COND
  4425					;AR=000400000000
  4426					;BR=200.4,201.4,202.4
  4427
  4428			000012			AC=12
  4429						SAVEAC	(1,1)^
  4430	034056	201 14 0 00 034056 		MOVEI	AC+2,.
  4431	034057	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4432	034060	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4433	034061	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4434
  4435			032300		SN=32300
  4436			177400			ZZ=177400
  4437
  4438					O32300:	REPEAT	^D3,			;TEST FAD EXCESSIVE SHIFT
  4439					<SN=SN+1
  4440						ZZ=ZZ+1000
  4441						MOVSI	AC,400			;SETUP AC
  4442						MOVSI	AC-1,ZZ			;SETUP BR
  4443						FAD	AC,AC-1			;C(AC) + C(E)
  4444						CAME	AC,AC-1			;TEST SUM
  4445						ER3	AC,SN			;FAD FAILED
  4446						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4447					>
  4448			032301		SN=SN+1
  4449			200400			ZZ=ZZ+1000
  4450	034062	205 12 0 00 000400 		MOVSI	AC,400			;SETUP AC
  4451	034063	205 11 0 00 200400 		MOVSI	AC-1,ZZ			;SETUP BR
  4452	034064	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC) + C(E)
  4453	034065	312 12 0 00 000011 		CAME	AC,AC-1			;TEST SUM
  4454	034066	003 12 0 00 032301 		ER3	AC,SN			;FAD FAILED
  4455	034067	321 14 0 00 034062 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4456
  4457			032302		SN=SN+1
  4458			201400			ZZ=ZZ+1000
  4459	034070	205 12 0 00 000400 		MOVSI	AC,400			;SETUP AC
  4460	034071	205 11 0 00 201400 		MOVSI	AC-1,ZZ			;SETUP BR
  4461	034072	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC) + C(E)
  4462	034073	312 12 0 00 000011 		CAME	AC,AC-1			;TEST SUM
  4463	034074	003 12 0 00 032302 		ER3	AC,SN			;FAD FAILED
  4464	034075	321 14 0 00 034070 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4465
  4466			032303		SN=SN+1
  4467			202400			ZZ=ZZ+1000
  4468	034076	205 12 0 00 000400 		MOVSI	AC,400			;SETUP AC
  4469	034077	205 11 0 00 202400 		MOVSI	AC-1,ZZ			;SETUP BR
  4470	034100	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC) + C(E)
  4471	034101	312 12 0 00 000011 		CAME	AC,AC-1			;TEST SUM
  4472	034102	003 12 0 00 032303 		ER3	AC,SN			;FAD FAILED
  4473	034103	321 14 0 00 034076 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4474
  4475					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 48-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0132

  4476					;TEST FAD
  4477					;NR ALL ZERO COND
  4478					;AR=200000000000
  4479					;BR EXPONENT=201,202,203
  4480					;SUM=0
  4481
  4482			000011			AC=11
  4483						SAVEAC	(1,1)^
  4484	034104	201 13 0 00 034104 		MOVEI	AC+2,.
  4485	034105	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4486	034106	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4487	034107	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4488
  4489			032400		SN=32400
  4490			200000			ZZ=200000
  4491
  4492					O32400:	REPEAT	^D3,			;TEST FAD NR ALL ZERO
  4493					<SN=SN+1
  4494						ZZ=ZZ+1000
  4495						MOVSI	AC,200000		;SETUP AC
  4496						MOVSI	AC-1,ZZ			;SETUP BR
  4497						FAD	AC,AC-1			;C(AC)+C(E)
  4498						SKIPE	AC			;TEST SUM
  4499						ER3	AC,SN			;FAD FAILED
  4500						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4501					>
  4502			032401		SN=SN+1
  4503			201000			ZZ=ZZ+1000
  4504	034110	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4505	034111	205 10 0 00 201000 		MOVSI	AC-1,ZZ			;SETUP BR
  4506	034112	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  4507	034113	332 00 0 00 000011 		SKIPE	AC			;TEST SUM
  4508	034114	003 11 0 00 032401 		ER3	AC,SN			;FAD FAILED
  4509	034115	321 13 0 00 034110 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4510
  4511			032402		SN=SN+1
  4512			202000			ZZ=ZZ+1000
  4513	034116	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4514	034117	205 10 0 00 202000 		MOVSI	AC-1,ZZ			;SETUP BR
  4515	034120	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  4516	034121	332 00 0 00 000011 		SKIPE	AC			;TEST SUM
  4517	034122	003 11 0 00 032402 		ER3	AC,SN			;FAD FAILED
  4518	034123	321 13 0 00 034116 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4519
  4520			032403		SN=SN+1
  4521			203000			ZZ=ZZ+1000
  4522	034124	205 11 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4523	034125	205 10 0 00 203000 		MOVSI	AC-1,ZZ			;SETUP BR
  4524	034126	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  4525	034127	332 00 0 00 000011 		SKIPE	AC			;TEST SUM
  4526	034130	003 11 0 00 032403 		ER3	AC,SN			;FAD FAILED
  4527	034131	321 13 0 00 034124 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  4528
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0133

  4529					;TEST FAD
  4530					;TWO POSITIVES
  4531					;NRSHRT COND
  4532					;AR=200.4 (1/2), 201.4 (+1), 202.4 (+2)
  4533					;BR=(SAME AS AR)
  4534					;SUMS=201.4, 202.4, 203.4
  4535
  4536			000010			AC=10
  4537						SAVEAC	(1,1)^
  4538	034132	201 12 0 00 034132 		MOVEI	AC+2,.
  4539	034133	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4540	034134	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4541	034135	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4542
  4543			032500		SN=32500
  4544			200400			XX=200400
  4545			177400			ZZ=177400
  4546
  4547					O32500:	REPEAT	^D3,			;TEST FAD NRSHRT
  4548					<SN=SN+1
  4549						XX=XX+1000
  4550						ZZ=ZZ+1000
  4551						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4552						MOVSI	AC,ZZ			;SETUP AC
  4553						MOVSI	AC-1,ZZ			;SETUP BR
  4554						FAD	AC,AC-1			;C(AC)+C(E)
  4555						CAME	AC,AC-2			;TEST SUM
  4556						ER3	AC,SN			;FAD FAILED
  4557						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4558					>
  4559			032501		SN=SN+1
  4560			201400			XX=XX+1000
  4561			200400			ZZ=ZZ+1000
  4562	034136	205 06 0 00 201400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4563	034137	205 10 0 00 200400 		MOVSI	AC,ZZ			;SETUP AC
  4564	034140	205 07 0 00 200400 		MOVSI	AC-1,ZZ			;SETUP BR
  4565	034141	140 10 0 00 000007 		FAD	AC,AC-1			;C(AC)+C(E)
  4566	034142	312 10 0 00 000006 		CAME	AC,AC-2			;TEST SUM
  4567	034143	003 10 0 00 032501 		ER3	AC,SN			;FAD FAILED
  4568	034144	321 12 0 00 034136 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4569
  4570			032502		SN=SN+1
  4571			202400			XX=XX+1000
  4572			201400			ZZ=ZZ+1000
  4573	034145	205 06 0 00 202400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4574	034146	205 10 0 00 201400 		MOVSI	AC,ZZ			;SETUP AC
  4575	034147	205 07 0 00 201400 		MOVSI	AC-1,ZZ			;SETUP BR
  4576	034150	140 10 0 00 000007 		FAD	AC,AC-1			;C(AC)+C(E)
  4577	034151	312 10 0 00 000006 		CAME	AC,AC-2			;TEST SUM
  4578	034152	003 10 0 00 032502 		ER3	AC,SN			;FAD FAILED
  4579	034153	321 12 0 00 034145 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4580
  4581			032503		SN=SN+1
  4582			203400			XX=XX+1000
  4583			202400			ZZ=ZZ+1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0134

  4584	034154	205 06 0 00 203400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4585	034155	205 10 0 00 202400 		MOVSI	AC,ZZ			;SETUP AC
  4586	034156	205 07 0 00 202400 		MOVSI	AC-1,ZZ			;SETUP BR
  4587	034157	140 10 0 00 000007 		FAD	AC,AC-1			;C(AC)+C(E)
  4588	034160	312 10 0 00 000006 		CAME	AC,AC-2			;TEST SUM
  4589	034161	003 10 0 00 032503 		ER3	AC,SN			;FAD FAILED
  4590	034162	321 12 0 00 034154 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4591
  4592					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0135

  4593					;TEST FAD
  4594					;TWO POSITIVES NR NORMAL
  4595					;AR=200.1, 200.04, 200.02
  4596					;BR=AR
  4597					;SUMS=177.4, 176.4, 175.4
  4598
  4599			000007			AC=7
  4600						SAVEAC	(1,1)^
  4601	034163	201 11 0 00 034163 		MOVEI	AC+2,.
  4602	034164	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4603	034165	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4604	034166	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4605
  4606			032600		SN=32600
  4607			200400			XX=200400
  4608			000200			ZZ=200
  4609
  4610					O32600:	REPEAT	^D3,			;TEST FAD NR NORMAL
  4611					<SN=SN+1
  4612						XX=XX-1000
  4613						ZZ=ZZ/2
  4614						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4615						MOVSI	AC,200000+ZZ		;SETUP AC
  4616						MOVSI	AC-1,200000+ZZ		;SETUP BR
  4617						FAD	AC,AC-1			;C(AC)+C(E)
  4618						CAME	AC,AC-2			;TEST SUM
  4619						ER3	AC,SN			;FAD FAILED
  4620						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4621					>
  4622			032601		SN=SN+1
  4623			177400			XX=XX-1000
  4624			000100			ZZ=ZZ/2
  4625	034167	205 05 0 00 177400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4626	034170	205 07 0 00 200100 		MOVSI	AC,200000+ZZ		;SETUP AC
  4627	034171	205 06 0 00 200100 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  4628	034172	140 07 0 00 000006 		FAD	AC,AC-1			;C(AC)+C(E)
  4629	034173	312 07 0 00 000005 		CAME	AC,AC-2			;TEST SUM
  4630	034174	003 07 0 00 032601 		ER3	AC,SN			;FAD FAILED
  4631	034175	321 11 0 00 034167 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4632
  4633			032602		SN=SN+1
  4634			176400			XX=XX-1000
  4635			000040			ZZ=ZZ/2
  4636	034176	205 05 0 00 176400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4637	034177	205 07 0 00 200040 		MOVSI	AC,200000+ZZ		;SETUP AC
  4638	034200	205 06 0 00 200040 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  4639	034201	140 07 0 00 000006 		FAD	AC,AC-1			;C(AC)+C(E)
  4640	034202	312 07 0 00 000005 		CAME	AC,AC-2			;TEST SUM
  4641	034203	003 07 0 00 032602 		ER3	AC,SN			;FAD FAILED
  4642	034204	321 11 0 00 034176 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4643
  4644			032603		SN=SN+1
  4645			175400			XX=XX-1000
  4646			000020			ZZ=ZZ/2
  4647	034205	205 05 0 00 175400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0136

  4648	034206	205 07 0 00 200020 		MOVSI	AC,200000+ZZ		;SETUP AC
  4649	034207	205 06 0 00 200020 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  4650	034210	140 07 0 00 000006 		FAD	AC,AC-1			;C(AC)+C(E)
  4651	034211	312 07 0 00 000005 		CAME	AC,AC-2			;TEST SUM
  4652	034212	003 07 0 00 032603 		ER3	AC,SN			;FAD FAILED
  4653	034213	321 11 0 00 034205 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4654
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 50
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0137

  4655					;TEST FAD
  4656					;TWO NEGATIVES
  4657					;AR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
  4658					;BR=576400000000 (-1)
  4659					;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4) 576.34 (-1 1/8)
  4660
  4661			000006			AC=6
  4662						SAVEAC	(1,1)^
  4663	034214	201 10 0 00 034214 		MOVEI	AC+2,.
  4664	034215	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4665	034216	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4666	034217	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4667
  4668			032700		SN=32700
  4669			000200			WW=200
  4670			576000			XX=576000
  4671			576400			ZZ=576400
  4672
  4673					O32700:	REPEAT	^D3,			;TEST FAD -TWO NEGATIVES
  4674					<SN=SN+1
  4675						XX=XX+WW
  4676						WW=WW/2
  4677						ZZ=ZZ+1000
  4678						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4679						MOVSI	AC,ZZ			;SETUP AC
  4680						MOVSI	AC-1,576400		;SETUP BR
  4681						FAD	AC,AC-1			;C(AC)+C(E)
  4682						CAME	AC,AC-2			;TEST SUM
  4683						ER3	AC,SN			;FAD FAILED
  4684						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4685					>
  4686			032701		SN=SN+1
  4687			576200			XX=XX+WW
  4688			000100			WW=WW/2
  4689			577400			ZZ=ZZ+1000
  4690	034220	205 04 0 00 576200 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4691	034221	205 06 0 00 577400 		MOVSI	AC,ZZ			;SETUP AC
  4692	034222	205 05 0 00 576400 		MOVSI	AC-1,576400		;SETUP BR
  4693	034223	140 06 0 00 000005 		FAD	AC,AC-1			;C(AC)+C(E)
  4694	034224	312 06 0 00 000004 		CAME	AC,AC-2			;TEST SUM
  4695	034225	003 06 0 00 032701 		ER3	AC,SN			;FAD FAILED
  4696	034226	321 10 0 00 034220 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4697
  4698			032702		SN=SN+1
  4699			576300			XX=XX+WW
  4700			000040			WW=WW/2
  4701			600400			ZZ=ZZ+1000
  4702	034227	205 04 0 00 576300 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4703	034230	205 06 0 00 600400 		MOVSI	AC,ZZ			;SETUP AC
  4704	034231	205 05 0 00 576400 		MOVSI	AC-1,576400		;SETUP BR
  4705	034232	140 06 0 00 000005 		FAD	AC,AC-1			;C(AC)+C(E)
  4706	034233	312 06 0 00 000004 		CAME	AC,AC-2			;TEST SUM
  4707	034234	003 06 0 00 032702 		ER3	AC,SN			;FAD FAILED
  4708	034235	321 10 0 00 034227 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4709
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 50-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0138

  4710			032703		SN=SN+1
  4711			576340			XX=XX+WW
  4712			000020			WW=WW/2
  4713			601400			ZZ=ZZ+1000
  4714	034236	205 04 0 00 576340 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4715	034237	205 06 0 00 601400 		MOVSI	AC,ZZ			;SETUP AC
  4716	034240	205 05 0 00 576400 		MOVSI	AC-1,576400		;SETUP BR
  4717	034241	140 06 0 00 000005 		FAD	AC,AC-1			;C(AC)+C(E)
  4718	034242	312 06 0 00 000004 		CAME	AC,AC-2			;TEST SUM
  4719	034243	003 06 0 00 032703 		ER3	AC,SN			;FAD FAILED
  4720	034244	321 10 0 00 034236 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4721
  4722					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 50-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0139

  4723					;TEST FAD
  4724					;TWO NEGATIVES
  4725					;LARGER EXPONENT IN AR
  4726					;AR=576.400000000 (-1)
  4727					;BR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
  4728					;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4),576.34 (-1 1/8)
  4729
  4730			000014			AC=14
  4731						SAVEAC	(1,1)^
  4732	034245	201 16 0 00 034245 		MOVEI	AC+2,.
  4733	034246	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4734	034247	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4735	034250	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4736
  4737			033000		SN=33000
  4738			000200			WW=200
  4739			576000			XX=576000
  4740			576400			ZZ=576400
  4741
  4742					O33000:	REPEAT	^D3,			;TEST FAD-LARGER IN AR
  4743					<SN=SN+1
  4744						XX=XX+WW
  4745						WW=WW/2
  4746						ZZ=ZZ+1000
  4747						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4748						MOVSI	AC,576400		;SETUP AC
  4749						MOVSI	AC-1,ZZ			;SETUP BR
  4750						FAD	AC,AC-1			;C(AC)+C(E)
  4751						CAME	AC,AC-2			;TEST SUM
  4752						ER3	AC,SN			;FAD FAILED
  4753						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4754					>
  4755			033001		SN=SN+1
  4756			576200			XX=XX+WW
  4757			000100			WW=WW/2
  4758			577400			ZZ=ZZ+1000
  4759	034251	205 12 0 00 576200 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4760	034252	205 14 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  4761	034253	205 13 0 00 577400 		MOVSI	AC-1,ZZ			;SETUP BR
  4762	034254	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4763	034255	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4764	034256	003 14 0 00 033001 		ER3	AC,SN			;FAD FAILED
  4765	034257	321 16 0 00 034251 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4766
  4767			033002		SN=SN+1
  4768			576300			XX=XX+WW
  4769			000040			WW=WW/2
  4770			600400			ZZ=ZZ+1000
  4771	034260	205 12 0 00 576300 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4772	034261	205 14 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  4773	034262	205 13 0 00 600400 		MOVSI	AC-1,ZZ			;SETUP BR
  4774	034263	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4775	034264	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4776	034265	003 14 0 00 033002 		ER3	AC,SN			;FAD FAILED
  4777	034266	321 16 0 00 034260 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 50-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0140

  4778
  4779			033003		SN=SN+1
  4780			576340			XX=XX+WW
  4781			000020			WW=WW/2
  4782			601400			ZZ=ZZ+1000
  4783	034267	205 12 0 00 576340 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4784	034270	205 14 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  4785	034271	205 13 0 00 601400 		MOVSI	AC-1,ZZ			;SETUP BR
  4786	034272	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4787	034273	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4788	034274	003 14 0 00 033003 		ER3	AC,SN			;FAD FAILED
  4789	034275	321 16 0 00 034267 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4790
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0141

  4791					;TEST FAD
  4792					;TWO NEGATIVES
  4793					;NR SHRT COND
  4794					;AR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
  4795					;BR=AR
  4796					;SUMS=576.4 (-1), 577.4 (-1/2), 600.4 (-1/4)
  4797
  4798			000014			AC=14
  4799						SAVEAC	(1,1)^
  4800	034276	201 16 0 00 034276 		MOVEI	AC+2,.
  4801	034277	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4802	034300	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4803	034301	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4804
  4805			033100		SN=33100
  4806			575400			XX=575400
  4807			576400			ZZ=576400
  4808
  4809					O33100:	REPEAT	^D3,			;TEST FAD NRSHRT
  4810					<SN=SN+1
  4811						XX=XX+1000
  4812						ZZ=ZZ+1000
  4813						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4814						MOVSI	AC,ZZ			;SETUP AC
  4815						MOVSI	AC-1,ZZ			;SETUP BR
  4816						FAD	AC,AC-1			;C(AC)+C(E)
  4817						CAME	AC,AC-2			;TEST SUM
  4818						ER3	AC,SN			;FAD FAILED
  4819						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4820					>
  4821			033101		SN=SN+1
  4822			576400			XX=XX+1000
  4823			577400			ZZ=ZZ+1000
  4824	034302	205 12 0 00 576400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4825	034303	205 14 0 00 577400 		MOVSI	AC,ZZ			;SETUP AC
  4826	034304	205 13 0 00 577400 		MOVSI	AC-1,ZZ			;SETUP BR
  4827	034305	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4828	034306	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4829	034307	003 14 0 00 033101 		ER3	AC,SN			;FAD FAILED
  4830	034310	321 16 0 00 034302 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4831
  4832			033102		SN=SN+1
  4833			577400			XX=XX+1000
  4834			600400			ZZ=ZZ+1000
  4835	034311	205 12 0 00 577400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4836	034312	205 14 0 00 600400 		MOVSI	AC,ZZ			;SETUP AC
  4837	034313	205 13 0 00 600400 		MOVSI	AC-1,ZZ			;SETUP BR
  4838	034314	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4839	034315	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4840	034316	003 14 0 00 033102 		ER3	AC,SN			;FAD FAILED
  4841	034317	321 16 0 00 034311 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4842
  4843			033103		SN=SN+1
  4844			600400			XX=XX+1000
  4845			601400			ZZ=ZZ+1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0142

  4846	034320	205 12 0 00 600400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4847	034321	205 14 0 00 601400 		MOVSI	AC,ZZ			;SETUP AC
  4848	034322	205 13 0 00 601400 		MOVSI	AC-1,ZZ			;SETUP BR
  4849	034323	140 14 0 00 000013 		FAD	AC,AC-1			;C(AC)+C(E)
  4850	034324	312 14 0 00 000012 		CAME	AC,AC-2			;TEST SUM
  4851	034325	003 14 0 00 033103 		ER3	AC,SN			;FAD FAILED
  4852	034326	321 16 0 00 034320 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4853
  4854					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0143

  4855					;TEST FAD
  4856					;POSITIVE AND NEGATIVE
  4857					;LARGER IN AR
  4858					;AR=201.400000000 (+1)
  4859					;BR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
  4860					;SUMS=200.4 (+1/2), 200.6 (+3/4), 200.7 (+7/8)
  4861
  4862			000013			AC=13
  4863						SAVEAC	(1,1)^
  4864	034327	201 15 0 00 034327 		MOVEI	AC+2,.
  4865	034330	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4866	034331	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4867	034332	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4868
  4869			033200		SN=33200
  4870			001000			WW=1000
  4871			576400			XX=576400
  4872			000000			ZZ=0
  4873
  4874					O33200:	REPEAT	^D3,			;TEST FAD
  4875					<SN=SN+1
  4876						WW=WW/2
  4877						XX=XX+1000
  4878						ZZ=ZZ+WW
  4879						MOVSI	AC-2,200000+ZZ		;SETUP FOR COMPARISON
  4880						MOVSI	AC,201400		;SETUP AC
  4881						MOVSI	AC-1,XX			;SETUP BR
  4882						FAD	AC,AC-1			;C(AC)+C(E)
  4883						CAME	AC,AC-2			;TEST SUM
  4884						ER3	AC,SN			;FAD FAILED
  4885						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4886					>
  4887			033201		SN=SN+1
  4888			000400			WW=WW/2
  4889			577400			XX=XX+1000
  4890			000400			ZZ=ZZ+WW
  4891	034333	205 11 0 00 200400 		MOVSI	AC-2,200000+ZZ		;SETUP FOR COMPARISON
  4892	034334	205 13 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  4893	034335	205 12 0 00 577400 		MOVSI	AC-1,XX			;SETUP BR
  4894	034336	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC)+C(E)
  4895	034337	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4896	034340	003 13 0 00 033201 		ER3	AC,SN			;FAD FAILED
  4897	034341	321 15 0 00 034333 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4898
  4899			033202		SN=SN+1
  4900			000200			WW=WW/2
  4901			600400			XX=XX+1000
  4902			000600			ZZ=ZZ+WW
  4903	034342	205 11 0 00 200600 		MOVSI	AC-2,200000+ZZ		;SETUP FOR COMPARISON
  4904	034343	205 13 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  4905	034344	205 12 0 00 600400 		MOVSI	AC-1,XX			;SETUP BR
  4906	034345	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC)+C(E)
  4907	034346	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4908	034347	003 13 0 00 033202 		ER3	AC,SN			;FAD FAILED
  4909	034350	321 15 0 00 034342 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0144

  4910
  4911			033203		SN=SN+1
  4912			000100			WW=WW/2
  4913			601400			XX=XX+1000
  4914			000700			ZZ=ZZ+WW
  4915	034351	205 11 0 00 200700 		MOVSI	AC-2,200000+ZZ		;SETUP FOR COMPARISON
  4916	034352	205 13 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  4917	034353	205 12 0 00 601400 		MOVSI	AC-1,XX			;SETUP BR
  4918	034354	140 13 0 00 000012 		FAD	AC,AC-1			;C(AC)+C(E)
  4919	034355	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  4920	034356	003 13 0 00 033203 		ER3	AC,SN			;FAD FAILED
  4921	034357	321 15 0 00 034351 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  4922
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0145

  4923					;TEST FAD
  4924					;NOT NR ALL ZERO
  4925					;NOT NR NORMAL
  4926					;AR=200000000000
  4927					;BR=200000000001,2,4,10 ETC
  4928					;SUM=146400000000, EXPONENT
  4929					;INCREASING BY ONE
  4930
  4931			000012			AC=12
  4932						SAVEAC	(1,1)^
  4933	034360	201 14 0 00 034360 		MOVEI	AC+2,.
  4934	034361	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  4935	034362	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  4936	034363	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  4937
  4938			033300		SN=33300
  4939			145400			XX=145400
  4940			000000			ZZ=0
  4941
  4942					O33300:	REPEAT	^D18,			;TEST BITS 18-35(1)
  4943					<SN=SN+1
  4944						XX=XX+1000
  4945						ZZ=ZZ+ZZ
  4946						IFE	ZZ,<ZZ=1>
  4947						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4948						MOVSI	AC,200000		;SETUP AC
  4949						MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  4950						FAD	AC,AC-1			;C(AC)+C(E)
  4951						CAME	AC,AC-2			;TEST SUM
  4952						ER3	AC,SN			;FAD FAILED
  4953						CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4954						ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  4955						JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4956					>
  4957			033301		SN=SN+1
  4958			146400			XX=XX+1000
  4959			000000			ZZ=ZZ+ZZ
  4960			000001			IFE	ZZ,<ZZ=1>
  4961	034364	205 10 0 00 146400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4962	034365	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4963	034366	200 11 0 00 070562 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  4964	034367	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  4965	034370	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  4966	034371	003 12 0 00 033301 		ER3	AC,SN			;FAD FAILED
  4967	034372	312 11 0 00 070562 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4968	034373	005 11 0 00 033301 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  4969	034374	321 14 0 00 034364 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4970
  4971			033302		SN=SN+1
  4972			147400			XX=XX+1000
  4973			000002			ZZ=ZZ+ZZ
  4974						IFE	ZZ,<ZZ=1>
  4975	034375	205 10 0 00 147400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4976	034376	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4977	034377	200 11 0 00 070563 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0146

  4978	034400	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  4979	034401	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  4980	034402	003 12 0 00 033302 		ER3	AC,SN			;FAD FAILED
  4981	034403	312 11 0 00 070563 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4982	034404	005 11 0 00 033302 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  4983	034405	321 14 0 00 034375 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4984
  4985			033303		SN=SN+1
  4986			150400			XX=XX+1000
  4987			000004			ZZ=ZZ+ZZ
  4988						IFE	ZZ,<ZZ=1>
  4989	034406	205 10 0 00 150400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  4990	034407	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  4991	034410	200 11 0 00 070564 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  4992	034411	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  4993	034412	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  4994	034413	003 12 0 00 033303 		ER3	AC,SN			;FAD FAILED
  4995	034414	312 11 0 00 070564 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4996	034415	005 11 0 00 033303 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  4997	034416	321 14 0 00 034406 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  4998
  4999			033304		SN=SN+1
  5000			151400			XX=XX+1000
  5001			000010			ZZ=ZZ+ZZ
  5002						IFE	ZZ,<ZZ=1>
  5003	034417	205 10 0 00 151400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5004	034420	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5005	034421	200 11 0 00 070565 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5006	034422	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5007	034423	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5008	034424	003 12 0 00 033304 		ER3	AC,SN			;FAD FAILED
  5009	034425	312 11 0 00 070565 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5010	034426	005 11 0 00 033304 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5011	034427	321 14 0 00 034417 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5012
  5013			033305		SN=SN+1
  5014			152400			XX=XX+1000
  5015			000020			ZZ=ZZ+ZZ
  5016						IFE	ZZ,<ZZ=1>
  5017	034430	205 10 0 00 152400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5018	034431	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5019	034432	200 11 0 00 070566 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5020	034433	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5021	034434	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5022	034435	003 12 0 00 033305 		ER3	AC,SN			;FAD FAILED
  5023	034436	312 11 0 00 070566 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5024	034437	005 11 0 00 033305 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5025	034440	321 14 0 00 034430 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5026
  5027			033306		SN=SN+1
  5028			153400			XX=XX+1000
  5029			000040			ZZ=ZZ+ZZ
  5030						IFE	ZZ,<ZZ=1>
  5031	034441	205 10 0 00 153400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5032	034442	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0147

  5033	034443	200 11 0 00 070567 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5034	034444	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5035	034445	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5036	034446	003 12 0 00 033306 		ER3	AC,SN			;FAD FAILED
  5037	034447	312 11 0 00 070567 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5038	034450	005 11 0 00 033306 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5039	034451	321 14 0 00 034441 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5040
  5041			033307		SN=SN+1
  5042			154400			XX=XX+1000
  5043			000100			ZZ=ZZ+ZZ
  5044						IFE	ZZ,<ZZ=1>
  5045	034452	205 10 0 00 154400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5046	034453	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5047	034454	200 11 0 00 070570 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5048	034455	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5049	034456	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5050	034457	003 12 0 00 033307 		ER3	AC,SN			;FAD FAILED
  5051	034460	312 11 0 00 070570 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5052	034461	005 11 0 00 033307 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5053	034462	321 14 0 00 034452 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5054
  5055			033310		SN=SN+1
  5056			155400			XX=XX+1000
  5057			000200			ZZ=ZZ+ZZ
  5058						IFE	ZZ,<ZZ=1>
  5059	034463	205 10 0 00 155400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5060	034464	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5061	034465	200 11 0 00 070571 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5062	034466	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5063	034467	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5064	034470	003 12 0 00 033310 		ER3	AC,SN			;FAD FAILED
  5065	034471	312 11 0 00 070571 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5066	034472	005 11 0 00 033310 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5067	034473	321 14 0 00 034463 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5068
  5069			033311		SN=SN+1
  5070			156400			XX=XX+1000
  5071			000400			ZZ=ZZ+ZZ
  5072						IFE	ZZ,<ZZ=1>
  5073	034474	205 10 0 00 156400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5074	034475	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5075	034476	200 11 0 00 070572 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5076	034477	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5077	034500	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5078	034501	003 12 0 00 033311 		ER3	AC,SN			;FAD FAILED
  5079	034502	312 11 0 00 070572 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5080	034503	005 11 0 00 033311 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5081	034504	321 14 0 00 034474 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5082
  5083			033312		SN=SN+1
  5084			157400			XX=XX+1000
  5085			001000			ZZ=ZZ+ZZ
  5086						IFE	ZZ,<ZZ=1>
  5087	034505	205 10 0 00 157400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0148

  5088	034506	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5089	034507	200 11 0 00 070573 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5090	034510	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5091	034511	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5092	034512	003 12 0 00 033312 		ER3	AC,SN			;FAD FAILED
  5093	034513	312 11 0 00 070573 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5094	034514	005 11 0 00 033312 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5095	034515	321 14 0 00 034505 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5096
  5097			033313		SN=SN+1
  5098			160400			XX=XX+1000
  5099			002000			ZZ=ZZ+ZZ
  5100						IFE	ZZ,<ZZ=1>
  5101	034516	205 10 0 00 160400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5102	034517	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5103	034520	200 11 0 00 070574 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5104	034521	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5105	034522	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5106	034523	003 12 0 00 033313 		ER3	AC,SN			;FAD FAILED
  5107	034524	312 11 0 00 070574 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5108	034525	005 11 0 00 033313 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5109	034526	321 14 0 00 034516 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5110
  5111			033314		SN=SN+1
  5112			161400			XX=XX+1000
  5113			004000			ZZ=ZZ+ZZ
  5114						IFE	ZZ,<ZZ=1>
  5115	034527	205 10 0 00 161400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5116	034530	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5117	034531	200 11 0 00 070575 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5118	034532	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5119	034533	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5120	034534	003 12 0 00 033314 		ER3	AC,SN			;FAD FAILED
  5121	034535	312 11 0 00 070575 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5122	034536	005 11 0 00 033314 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5123	034537	321 14 0 00 034527 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5124
  5125			033315		SN=SN+1
  5126			162400			XX=XX+1000
  5127			010000			ZZ=ZZ+ZZ
  5128						IFE	ZZ,<ZZ=1>
  5129	034540	205 10 0 00 162400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5130	034541	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5131	034542	200 11 0 00 070576 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5132	034543	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5133	034544	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5134	034545	003 12 0 00 033315 		ER3	AC,SN			;FAD FAILED
  5135	034546	312 11 0 00 070576 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5136	034547	005 11 0 00 033315 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5137	034550	321 14 0 00 034540 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5138
  5139			033316		SN=SN+1
  5140			163400			XX=XX+1000
  5141			020000			ZZ=ZZ+ZZ
  5142						IFE	ZZ,<ZZ=1>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0149

  5143	034551	205 10 0 00 163400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5144	034552	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5145	034553	200 11 0 00 070577 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5146	034554	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5147	034555	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5148	034556	003 12 0 00 033316 		ER3	AC,SN			;FAD FAILED
  5149	034557	312 11 0 00 070577 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5150	034560	005 11 0 00 033316 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5151	034561	321 14 0 00 034551 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5152
  5153			033317		SN=SN+1
  5154			164400			XX=XX+1000
  5155			040000			ZZ=ZZ+ZZ
  5156						IFE	ZZ,<ZZ=1>
  5157	034562	205 10 0 00 164400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5158	034563	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5159	034564	200 11 0 00 070600 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5160	034565	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5161	034566	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5162	034567	003 12 0 00 033317 		ER3	AC,SN			;FAD FAILED
  5163	034570	312 11 0 00 070600 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5164	034571	005 11 0 00 033317 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5165	034572	321 14 0 00 034562 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5166
  5167			033320		SN=SN+1
  5168			165400			XX=XX+1000
  5169			100000			ZZ=ZZ+ZZ
  5170						IFE	ZZ,<ZZ=1>
  5171	034573	205 10 0 00 165400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5172	034574	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5173	034575	200 11 0 00 070601 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5174	034576	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5175	034577	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5176	034600	003 12 0 00 033320 		ER3	AC,SN			;FAD FAILED
  5177	034601	312 11 0 00 070601 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5178	034602	005 11 0 00 033320 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5179	034603	321 14 0 00 034573 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5180
  5181			033321		SN=SN+1
  5182			166400			XX=XX+1000
  5183			200000			ZZ=ZZ+ZZ
  5184						IFE	ZZ,<ZZ=1>
  5185	034604	205 10 0 00 166400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5186	034605	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5187	034606	200 11 0 00 070602 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5188	034607	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5189	034610	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5190	034611	003 12 0 00 033321 		ER3	AC,SN			;FAD FAILED
  5191	034612	312 11 0 00 070602 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5192	034613	005 11 0 00 033321 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5193	034614	321 14 0 00 034604 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5194
  5195			033322		SN=SN+1
  5196			167400			XX=XX+1000
  5197			400000			ZZ=ZZ+ZZ
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-5
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0150

  5198						IFE	ZZ,<ZZ=1>
  5199	034615	205 10 0 00 167400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5200	034616	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5201	034617	200 11 0 00 070603 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5202	034620	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5203	034621	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5204	034622	003 12 0 00 033322 		ER3	AC,SN			;FAD FAILED
  5205	034623	312 11 0 00 070603 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5206	034624	005 11 0 00 033322 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5207	034625	321 14 0 00 034615 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5208
  5209					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-6
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0151

  5210			033400		SN=33400
  5211			000000			ZZ=0
  5212
  5213					O33400:	REPEAT	^D7,			;TEST BITS 10-17 (1)
  5214					<SN=SN+1
  5215						XX=XX+1000
  5216						ZZ=ZZ+ZZ
  5217						IFE	ZZ,<ZZ=1>
  5218						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5219						MOVSI	AC,200000		;SETUP AC
  5220						MOVSI	AC-1,200000+ZZ		;SETUP BR
  5221						FAD	AC,AC-1			;C(AC)+C(E)
  5222						CAME	AC,AC-2			;TEST SUM
  5223						ER3	AC,SN			;FAD FAILED
  5224						CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5225						ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5226						JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5227					>
  5228			033401		SN=SN+1
  5229			170400			XX=XX+1000
  5230			000000			ZZ=ZZ+ZZ
  5231			000001			IFE	ZZ,<ZZ=1>
  5232	034626	205 10 0 00 170400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5233	034627	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5234	034630	205 11 0 00 200001 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5235	034631	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5236	034632	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5237	034633	003 12 0 00 033401 		ER3	AC,SN			;FAD FAILED
  5238	034634	312 11 0 00 070604 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5239	034635	005 11 0 00 033401 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5240	034636	321 14 0 00 034626 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5241
  5242			033402		SN=SN+1
  5243			171400			XX=XX+1000
  5244			000002			ZZ=ZZ+ZZ
  5245						IFE	ZZ,<ZZ=1>
  5246	034637	205 10 0 00 171400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5247	034640	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5248	034641	205 11 0 00 200002 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5249	034642	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5250	034643	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5251	034644	003 12 0 00 033402 		ER3	AC,SN			;FAD FAILED
  5252	034645	312 11 0 00 070605 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5253	034646	005 11 0 00 033402 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5254	034647	321 14 0 00 034637 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5255
  5256			033403		SN=SN+1
  5257			172400			XX=XX+1000
  5258			000004			ZZ=ZZ+ZZ
  5259						IFE	ZZ,<ZZ=1>
  5260	034650	205 10 0 00 172400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5261	034651	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5262	034652	205 11 0 00 200004 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5263	034653	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5264	034654	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-7
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0152

  5265	034655	003 12 0 00 033403 		ER3	AC,SN			;FAD FAILED
  5266	034656	312 11 0 00 070606 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5267	034657	005 11 0 00 033403 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5268	034660	321 14 0 00 034650 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5269
  5270			033404		SN=SN+1
  5271			173400			XX=XX+1000
  5272			000010			ZZ=ZZ+ZZ
  5273						IFE	ZZ,<ZZ=1>
  5274	034661	205 10 0 00 173400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5275	034662	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5276	034663	205 11 0 00 200010 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5277	034664	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5278	034665	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5279	034666	003 12 0 00 033404 		ER3	AC,SN			;FAD FAILED
  5280	034667	312 11 0 00 070607 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5281	034670	005 11 0 00 033404 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5282	034671	321 14 0 00 034661 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5283
  5284			033405		SN=SN+1
  5285			174400			XX=XX+1000
  5286			000020			ZZ=ZZ+ZZ
  5287						IFE	ZZ,<ZZ=1>
  5288	034672	205 10 0 00 174400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5289	034673	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5290	034674	205 11 0 00 200020 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5291	034675	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5292	034676	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5293	034677	003 12 0 00 033405 		ER3	AC,SN			;FAD FAILED
  5294	034700	312 11 0 00 070610 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5295	034701	005 11 0 00 033405 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5296	034702	321 14 0 00 034672 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5297
  5298			033406		SN=SN+1
  5299			175400			XX=XX+1000
  5300			000040			ZZ=ZZ+ZZ
  5301						IFE	ZZ,<ZZ=1>
  5302	034703	205 10 0 00 175400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5303	034704	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5304	034705	205 11 0 00 200040 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5305	034706	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
  5306	034707	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5307	034710	003 12 0 00 033406 		ER3	AC,SN			;FAD FAILED
  5308	034711	312 11 0 00 070611 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5309	034712	005 11 0 00 033406 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5310	034713	321 14 0 00 034703 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5311
  5312			033407		SN=SN+1
  5313			176400			XX=XX+1000
  5314			000100			ZZ=ZZ+ZZ
  5315						IFE	ZZ,<ZZ=1>
  5316	034714	205 10 0 00 176400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  5317	034715	205 12 0 00 200000 		MOVSI	AC,200000		;SETUP AC
  5318	034716	205 11 0 00 200100 		MOVSI	AC-1,200000+ZZ		;SETUP BR
  5319	034717	140 12 0 00 000011 		FAD	AC,AC-1			;C(AC)+C(E)
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-8
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0153

  5320	034720	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5321	034721	003 12 0 00 033407 		ER3	AC,SN			;FAD FAILED
  5322	034722	312 11 0 00 070612 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5323	034723	005 11 0 00 033407 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5324	034724	321 14 0 00 034714 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  5325
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 53
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0154

  5326					;TEST FAD
  5327					;SET AROV, ARFOV, ARFXU FLAGS
  5328					;AR=377400000000,777700000000
  5329					;BR=377400000000,777700000000
  5330					;SUM=000400000000
  5331
  5332			000011			AC=11
  5333						SAVEAC	(1,1)^
  5334	034725	201 13 0 00 034725 		MOVEI	AC+2,.
  5335	034726	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5336	034727	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5337	034730	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5338
  5339										;TEST AR OV FLAG
  5340	034731	255 10 0 00 034732 	O33500:	JFCL	10,.+1			;CLR FLAG EXEC NEXT INST
  5341	034732	205 07 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  5342	034733	205 11 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5343	034734	205 10 0 00 377400 		MOVSI	AC-1,377400		;SETUP BR
  5344	034735	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  5345	034736	265 12 0 00 034737 		JSP	AC+1,.+1
  5346	034737	312 11 0 00 000007 		CAME	AC,AC-2			;TEST SUM
  5347	034740	003 11 0 00 033501 		ER3	AC,33501		;FAD FAILED
  5348	034741	255 10 0 00 034743 		JFCL	10,.+2			;TEST AROV FLAG
  5349	034742	013 12 0 00 033501 		ER13	AC+1,33501		;AROV FAILED TO SET
  5350	034743	321 13 0 00 034731 		JUMPL	AC+2,O33500		;LOOP ON ERROR SWITCH
  5351
  5352										;TEST AR FOV FLAG
  5353	034744	255 01 0 00 034745 	O33600:	JFCL	1,.+1			;CLR FLAG, EXEC NEXT INST
  5354	034745	205 11 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5355	034746	205 10 0 00 377400 		MOVSI	AC-1,377400		;SETUP BR
  5356	034747	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  5357	034750	265 12 0 00 034751 		JSP	AC+1,.+1
  5358	034751	255 01 0 00 034753 		JFCL	1,.+2			;TEST AR FOV FLAG
  5359	034752	013 12 0 00 033601 		ER13	AC+1,33601		;AR FOV FAILED TO SET
  5360	034753	321 13 0 00 034744 		JUMPL	AC+2,O33600		;LOOP ON ERROR SWITCH
  5361
  5362										;TEST ARFXU FLAG
  5363	034754	254 02 1 00 070613 	O33700:	JRST	2,@[.+1]		;CLR FLAG,EXEC NEXT INST
  5364	034755	205 11 0 00 777700 		MOVSI	AC,777700		;SETUP AC
  5365	034756	205 10 0 00 777700 		MOVSI	AC-1,777700		;SETUP BR
  5366	034757	140 11 0 00 000010 		FAD	AC,AC-1			;C(AC)+C(E)
  5367	034760	265 07 0 00 034761 		JSP	AC-2,.+1		;STORE FLAGS AND PC
  5368	034761	627 07 0 00 000100 		TLZN	AC-2,100		;TEST AND CLEAR BIT 11
  5369	034762	013 07 0 00 033701 		ER13	AC-2,33701		;AR FXU FAILED TO SET
  5370	034763	254 02 0 07 000003 		JRST	2,3(AC-2)		;CLEAR AR FXU
  5371	034764	321 13 0 00 034754 		JUMPL	AC+2,O33700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 54
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0155

  5372					;TEST FADM
  5373					;AR=200400000000 (+1/2)
  5374					;BR=201400000000 (+1)
  5375					;SUM=201600000000 (+1 1/2)
  5376
  5377			000014			AC=14
  5378						SAVEAC	(1,1)^
  5379	034765	201 16 0 00 034765 		MOVEI	AC+2,.
  5380	034766	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5381	034767	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5382	034770	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5383
  5384	034771	205 12 0 00 201600 	O34400:	MOVSI	AC-2,201600		;SETUP FOR COMPARISON
  5385	034772	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  5386	034773	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  5387	034774	142 14 0 00 000013 		FADM	AC,AC-1			;C(AC)+C(E)
  5388	034775	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST SUM
  5389	034776	005 13 0 00 034401 		ER5	AC-1,34401		;FADM FAILED
  5390	034777	312 14 0 00 070614 		CAME	AC,[200400,,0]		;VERIFY THAT C(AC) IS UNCHANGED
  5391	035000	003 14 0 00 034401 		ER3	AC,34401		;FAILURE, C(AC) WAS CLOBBERED
  5392	035001	321 16 0 00 034771 		JUMPL	AC+2,O34400		;LOOP ON ERROR SWITCH
  5393					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 54-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0156

  5394					;TEST FADB
  5395					;AR=200400000000 (+1/2)
  5396					;BR=201400000000 (+1)
  5397					;SUM =201600000000 (+1 1/2)
  5398
  5399			000014			AC=14
  5400						SAVEAC	(1,1)^
  5401	035002	201 16 0 00 035002 		MOVEI	AC+2,.
  5402	035003	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5403	035004	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5404	035005	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5405
  5406	035006	205 12 0 00 201600 	O34500:	MOVSI	AC-2,201600		;SETUP FOR COMPARISON
  5407	035007	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  5408	035010	205 13 0 00 201400 		MOVSI	AC-1,201400		;SETUP BR
  5409	035011	143 14 0 00 000013 		FADB	AC,AC-1			;C(AC)+C(E)
  5410	035012	312 14 0 00 000012 		CAME	AC,AC-2			;TEST C(AC)
  5411	035013	003 14 0 00 034501 		ER3	AC,34501
  5412	035014	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST C(E)
  5413	035015	005 13 0 00 034501 		ER5	AC-1,34501		;FADB FAILED
  5414	035016	321 16 0 00 035006 		JUMPL	AC+2,O34500		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0157

  5415					;TEST FADR
  5416					;TEST ROUNDING
  5417					;AR=200000000003,5,11, ETC
  5418					;BR=202400000000, EXPONENT INCREASING BY 1
  5419					;SUM=C(BR)+1
  5420
  5421			000013			AC=13
  5422						SAVEAC	(1,1)^
  5423	035017	201 15 0 00 035017 		MOVEI	AC+2,.
  5424	035020	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5425	035021	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5426	035022	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5427
  5428			034600		SN=34600
  5429			201400			XX=201400
  5430			000001			ZZ=1
  5431
  5432					O34600:	REPEAT  ^D17,			;TEST MQ RIGHT
  5433					<SN=SN+1
  5434						XX=XX+1000
  5435						ZZ=ZZ+ZZ
  5436						HRLI	AC-2,XX			;SETUP AC-2
  5437						HRRI	AC-2,1			;FOR COMPARISON
  5438						HRLI	AC,200000		;SETUP
  5439						HRRI	AC,ZZ			;AC
  5440						AOJ	AC,			;SET BIT 35
  5441						MOVSI	AC-1,XX			;SETUP BR
  5442						FADR	AC,AC-1			;C(AC)+C(E)
  5443						CAME	AC,AC-2			;TEST SUM
  5444						ER3	AC,SN			;FADR FAILED
  5445						CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5446						ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5447						JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5448					>
  5449			034601		SN=SN+1
  5450			202400			XX=XX+1000
  5451			000002			ZZ=ZZ+ZZ
  5452	035023	505 11 0 00 202400 		HRLI	AC-2,XX			;SETUP AC-2
  5453	035024	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5454	035025	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5455	035026	541 13 0 00 000002 		HRRI	AC,ZZ			;AC
  5456	035027	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5457	035030	205 12 0 00 202400 		MOVSI	AC-1,XX			;SETUP BR
  5458	035031	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5459	035032	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5460	035033	003 13 0 00 034601 		ER3	AC,SN			;FADR FAILED
  5461	035034	312 12 0 00 070615 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5462	035035	005 12 0 00 034601 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5463	035036	321 15 0 00 035023 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5464
  5465			034602		SN=SN+1
  5466			203400			XX=XX+1000
  5467			000004			ZZ=ZZ+ZZ
  5468	035037	505 11 0 00 203400 		HRLI	AC-2,XX			;SETUP AC-2
  5469	035040	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-1
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0158

  5470	035041	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5471	035042	541 13 0 00 000004 		HRRI	AC,ZZ			;AC
  5472	035043	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5473	035044	205 12 0 00 203400 		MOVSI	AC-1,XX			;SETUP BR
  5474	035045	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5475	035046	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5476	035047	003 13 0 00 034602 		ER3	AC,SN			;FADR FAILED
  5477	035050	312 12 0 00 070616 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5478	035051	005 12 0 00 034602 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5479	035052	321 15 0 00 035037 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5480
  5481			034603		SN=SN+1
  5482			204400			XX=XX+1000
  5483			000010			ZZ=ZZ+ZZ
  5484	035053	505 11 0 00 204400 		HRLI	AC-2,XX			;SETUP AC-2
  5485	035054	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5486	035055	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5487	035056	541 13 0 00 000010 		HRRI	AC,ZZ			;AC
  5488	035057	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5489	035060	205 12 0 00 204400 		MOVSI	AC-1,XX			;SETUP BR
  5490	035061	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5491	035062	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5492	035063	003 13 0 00 034603 		ER3	AC,SN			;FADR FAILED
  5493	035064	312 12 0 00 070617 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5494	035065	005 12 0 00 034603 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5495	035066	321 15 0 00 035053 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5496
  5497			034604		SN=SN+1
  5498			205400			XX=XX+1000
  5499			000020			ZZ=ZZ+ZZ
  5500	035067	505 11 0 00 205400 		HRLI	AC-2,XX			;SETUP AC-2
  5501	035070	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5502	035071	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5503	035072	541 13 0 00 000020 		HRRI	AC,ZZ			;AC
  5504	035073	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5505	035074	205 12 0 00 205400 		MOVSI	AC-1,XX			;SETUP BR
  5506	035075	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5507	035076	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5508	035077	003 13 0 00 034604 		ER3	AC,SN			;FADR FAILED
  5509	035100	312 12 0 00 070620 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5510	035101	005 12 0 00 034604 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5511	035102	321 15 0 00 035067 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5512
  5513			034605		SN=SN+1
  5514			206400			XX=XX+1000
  5515			000040			ZZ=ZZ+ZZ
  5516	035103	505 11 0 00 206400 		HRLI	AC-2,XX			;SETUP AC-2
  5517	035104	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5518	035105	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5519	035106	541 13 0 00 000040 		HRRI	AC,ZZ			;AC
  5520	035107	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5521	035110	205 12 0 00 206400 		MOVSI	AC-1,XX			;SETUP BR
  5522	035111	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5523	035112	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5524	035113	003 13 0 00 034605 		ER3	AC,SN			;FADR FAILED
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-2
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0159

  5525	035114	312 12 0 00 070621 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5526	035115	005 12 0 00 034605 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5527	035116	321 15 0 00 035103 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5528
  5529			034606		SN=SN+1
  5530			207400			XX=XX+1000
  5531			000100			ZZ=ZZ+ZZ
  5532	035117	505 11 0 00 207400 		HRLI	AC-2,XX			;SETUP AC-2
  5533	035120	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5534	035121	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5535	035122	541 13 0 00 000100 		HRRI	AC,ZZ			;AC
  5536	035123	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5537	035124	205 12 0 00 207400 		MOVSI	AC-1,XX			;SETUP BR
  5538	035125	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5539	035126	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5540	035127	003 13 0 00 034606 		ER3	AC,SN			;FADR FAILED
  5541	035130	312 12 0 00 070622 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5542	035131	005 12 0 00 034606 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5543	035132	321 15 0 00 035117 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5544
  5545			034607		SN=SN+1
  5546			210400			XX=XX+1000
  5547			000200			ZZ=ZZ+ZZ
  5548	035133	505 11 0 00 210400 		HRLI	AC-2,XX			;SETUP AC-2
  5549	035134	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5550	035135	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5551	035136	541 13 0 00 000200 		HRRI	AC,ZZ			;AC
  5552	035137	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5553	035140	205 12 0 00 210400 		MOVSI	AC-1,XX			;SETUP BR
  5554	035141	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5555	035142	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5556	035143	003 13 0 00 034607 		ER3	AC,SN			;FADR FAILED
  5557	035144	312 12 0 00 070623 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5558	035145	005 12 0 00 034607 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5559	035146	321 15 0 00 035133 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5560
  5561			034610		SN=SN+1
  5562			211400			XX=XX+1000
  5563			000400			ZZ=ZZ+ZZ
  5564	035147	505 11 0 00 211400 		HRLI	AC-2,XX			;SETUP AC-2
  5565	035150	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5566	035151	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5567	035152	541 13 0 00 000400 		HRRI	AC,ZZ			;AC
  5568	035153	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5569	035154	205 12 0 00 211400 		MOVSI	AC-1,XX			;SETUP BR
  5570	035155	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5571	035156	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5572	035157	003 13 0 00 034610 		ER3	AC,SN			;FADR FAILED
  5573	035160	312 12 0 00 070624 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5574	035161	005 12 0 00 034610 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5575	035162	321 15 0 00 035147 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5576
  5577			034611		SN=SN+1
  5578			212400			XX=XX+1000
  5579			001000			ZZ=ZZ+ZZ
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-3
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0160

  5580	035163	505 11 0 00 212400 		HRLI	AC-2,XX			;SETUP AC-2
  5581	035164	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5582	035165	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5583	035166	541 13 0 00 001000 		HRRI	AC,ZZ			;AC
  5584	035167	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5585	035170	205 12 0 00 212400 		MOVSI	AC-1,XX			;SETUP BR
  5586	035171	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5587	035172	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5588	035173	003 13 0 00 034611 		ER3	AC,SN			;FADR FAILED
  5589	035174	312 12 0 00 070625 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5590	035175	005 12 0 00 034611 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5591	035176	321 15 0 00 035163 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5592
  5593			034612		SN=SN+1
  5594			213400			XX=XX+1000
  5595			002000			ZZ=ZZ+ZZ
  5596	035177	505 11 0 00 213400 		HRLI	AC-2,XX			;SETUP AC-2
  5597	035200	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5598	035201	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5599	035202	541 13 0 00 002000 		HRRI	AC,ZZ			;AC
  5600	035203	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5601	035204	205 12 0 00 213400 		MOVSI	AC-1,XX			;SETUP BR
  5602	035205	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5603	035206	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5604	035207	003 13 0 00 034612 		ER3	AC,SN			;FADR FAILED
  5605	035210	312 12 0 00 070626 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5606	035211	005 12 0 00 034612 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5607	035212	321 15 0 00 035177 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5608
  5609			034613		SN=SN+1
  5610			214400			XX=XX+1000
  5611			004000			ZZ=ZZ+ZZ
  5612	035213	505 11 0 00 214400 		HRLI	AC-2,XX			;SETUP AC-2
  5613	035214	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5614	035215	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5615	035216	541 13 0 00 004000 		HRRI	AC,ZZ			;AC
  5616	035217	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5617	035220	205 12 0 00 214400 		MOVSI	AC-1,XX			;SETUP BR
  5618	035221	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5619	035222	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5620	035223	003 13 0 00 034613 		ER3	AC,SN			;FADR FAILED
  5621	035224	312 12 0 00 070627 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5622	035225	005 12 0 00 034613 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5623	035226	321 15 0 00 035213 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5624
  5625			034614		SN=SN+1
  5626			215400			XX=XX+1000
  5627			010000			ZZ=ZZ+ZZ
  5628	035227	505 11 0 00 215400 		HRLI	AC-2,XX			;SETUP AC-2
  5629	035230	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5630	035231	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5631	035232	541 13 0 00 010000 		HRRI	AC,ZZ			;AC
  5632	035233	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5633	035234	205 12 0 00 215400 		MOVSI	AC-1,XX			;SETUP BR
  5634	035235	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-4
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0161

  5635	035236	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5636	035237	003 13 0 00 034614 		ER3	AC,SN			;FADR FAILED
  5637	035240	312 12 0 00 070630 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5638	035241	005 12 0 00 034614 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5639	035242	321 15 0 00 035227 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5640
  5641			034615		SN=SN+1
  5642			216400			XX=XX+1000
  5643			020000			ZZ=ZZ+ZZ
  5644	035243	505 11 0 00 216400 		HRLI	AC-2,XX			;SETUP AC-2
  5645	035244	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5646	035245	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5647	035246	541 13 0 00 020000 		HRRI	AC,ZZ			;AC
  5648	035247	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5649	035250	205 12 0 00 216400 		MOVSI	AC-1,XX			;SETUP BR
  5650	035251	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5651	035252	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5652	035253	003 13 0 00 034615 		ER3	AC,SN			;FADR FAILED
  5653	035254	312 12 0 00 070631 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5654	035255	005 12 0 00 034615 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5655	035256	321 15 0 00 035243 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5656
  5657			034616		SN=SN+1
  5658			217400			XX=XX+1000
  5659			040000			ZZ=ZZ+ZZ
  5660	035257	505 11 0 00 217400 		HRLI	AC-2,XX			;SETUP AC-2
  5661	035260	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5662	035261	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5663	035262	541 13 0 00 040000 		HRRI	AC,ZZ			;AC
  5664	035263	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5665	035264	205 12 0 00 217400 		MOVSI	AC-1,XX			;SETUP BR
  5666	035265	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5667	035266	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5668	035267	003 13 0 00 034616 		ER3	AC,SN			;FADR FAILED
  5669	035270	312 12 0 00 070632 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5670	035271	005 12 0 00 034616 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5671	035272	321 15 0 00 035257 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5672
  5673			034617		SN=SN+1
  5674			220400			XX=XX+1000
  5675			100000			ZZ=ZZ+ZZ
  5676	035273	505 11 0 00 220400 		HRLI	AC-2,XX			;SETUP AC-2
  5677	035274	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5678	035275	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5679	035276	541 13 0 00 100000 		HRRI	AC,ZZ			;AC
  5680	035277	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5681	035300	205 12 0 00 220400 		MOVSI	AC-1,XX			;SETUP BR
  5682	035301	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5683	035302	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5684	035303	003 13 0 00 034617 		ER3	AC,SN			;FADR FAILED
  5685	035304	312 12 0 00 070633 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5686	035305	005 12 0 00 034617 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5687	035306	321 15 0 00 035273 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5688
  5689			034620		SN=SN+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-5
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0162

  5690			221400			XX=XX+1000
  5691			200000			ZZ=ZZ+ZZ
  5692	035307	505 11 0 00 221400 		HRLI	AC-2,XX			;SETUP AC-2
  5693	035310	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5694	035311	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5695	035312	541 13 0 00 200000 		HRRI	AC,ZZ			;AC
  5696	035313	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5697	035314	205 12 0 00 221400 		MOVSI	AC-1,XX			;SETUP BR
  5698	035315	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5699	035316	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5700	035317	003 13 0 00 034620 		ER3	AC,SN			;FADR FAILED
  5701	035320	312 12 0 00 070634 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5702	035321	005 12 0 00 034620 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5703	035322	321 15 0 00 035307 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5704
  5705			034621		SN=SN+1
  5706			222400			XX=XX+1000
  5707			400000			ZZ=ZZ+ZZ
  5708	035323	505 11 0 00 222400 		HRLI	AC-2,XX			;SETUP AC-2
  5709	035324	541 11 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5710	035325	505 13 0 00 200000 		HRLI	AC,200000		;SETUP
  5711	035326	541 13 0 00 400000 		HRRI	AC,ZZ			;AC
  5712	035327	340 13 0 00 000000 		AOJ	AC,			;SET BIT 35
  5713	035330	205 12 0 00 222400 		MOVSI	AC-1,XX			;SETUP BR
  5714	035331	144 13 0 00 000012 		FADR	AC,AC-1			;C(AC)+C(E)
  5715	035332	312 13 0 00 000011 		CAME	AC,AC-2			;TEST SUM
  5716	035333	003 13 0 00 034621 		ER3	AC,SN			;FADR FAILED
  5717	035334	312 12 0 00 070635 		CAME	AC-1,[XX,,0]		;VERIFY THAT C(E) IS UNCHANGED
  5718	035335	005 12 0 00 034621 		ER5	AC-1,SN			;FAILURE, C(E) WAS CLOBBERED
  5719	035336	321 15 0 00 035323 		JUMPL	AC+2,.-^D11		;LOOP ON ERROR SWITCH
  5720
  5721					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 55-6
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0163

  5722					;TEST FADRI
  5723					;AR=200400000003
  5724					;SUM=202500000001
  5725
  5726			000012			AC=12
  5727						SAVEAC	(1,1)^
  5728	035337	201 14 0 00 035337 		MOVEI	AC+2,.
  5729	035340	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5730	035341	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5731	035342	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5732
  5733	035343	505 10 0 00 202500 	O34700:	HRLI	AC-2,202500		;SETUP AC-2
  5734	035344	541 10 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5735	035345	505 12 0 00 200400 		HRLI	AC,200400		;SETUP
  5736	035346	541 12 0 00 000003 		HRRI	AC,3			;AC
  5737	035347	145 12 0 00 202400 		FADRI	AC,202400		;C(AC)+C(E)
  5738	035350	312 12 0 00 000010 		CAME	AC,AC-2			;TEST SUM
  5739	035351	003 12 0 00 034701 		ER3	AC,34701		;FADRI FAILED
  5740	035352	321 14 0 00 035343 		JUMPL	AC+2,O34700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 56
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0164

  5741					;TEST FSB
  5742					;TWO POSITIVES
  5743					;AR=201400000000 (+1)
  5744					;BR=177400000000 (+1/4)
  5745					;DIFF=200600000000 (+3/4)
  5746
  5747			000011			AC=11
  5748						SAVEAC	(1,1)^
  5749	035353	201 13 0 00 035353 		MOVEI	AC+2,.
  5750	035354	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5751	035355	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5752	035356	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5753
  5754	035357	205 07 0 00 200600 	O35000:	MOVSI	AC-2,200600		;SETUP  FOR COMPARISON
  5755	035360	205 11 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  5756	035361	205 10 0 00 177400 		MOVSI	AC-1,177400		;SETUP BR
  5757	035362	150 11 0 00 000010 		FSB	AC,AC-1			;C(AC)-C(E)
  5758	035363	312 11 0 00 000007 		CAME	AC,AC-2			;TEST DIFFERENCE
  5759	035364	003 11 0 00 035001 		ER3	AC,35001		;FSB FAILED
  5760	035365	312 10 0 00 070636 		CAME	AC-1,[177400,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5761	035366	005 10 0 00 035001 		ER5	AC-1,35001		;C(E) WAS CLOBBERED
  5762	035367	321 13 0 00 035357 		JUMPL	AC+2,O35000		;LOOP ON ERROR SWITCH
  5763
  5764					;TEST FSBM
  5765					;TWO NEGATIVES
  5766					;AR=576400000000 (-1)
  5767					;BR=600400000000 (-1/4)
  5768					;DIFF=577200000000 (-3/4)
  5769
  5770			000010			AC=10
  5771						SAVEAC	(1,1)^
  5772	035370	201 12 0 00 035370 		MOVEI	AC+2,.
  5773	035371	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5774	035372	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5775	035373	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5776
  5777	035374	205 06 0 00 577200 	O35100:	MOVSI	AC-2,577200		;SETUP FOR COMPARISON
  5778	035375	205 10 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  5779	035376	205 07 0 00 600400 		MOVSI	AC-1,600400		;SETUP BR
  5780	035377	152 10 0 00 000007 		FSBM	AC,AC-1			;C(AC)-C(E)
  5781	035400	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST DIFFERENCE
  5782	035401	005 07 0 00 035101 		ER5	AC-1,35101		;FSBM FAILED
  5783	035402	312 10 0 00 070637 		CAME	AC,[576400,,0]		;VERIFY THAT C(AC) IS UNCHANGED
  5784	035403	003 10 0 00 035101 		ER3	AC,35101		;FAILURE, C(AC) WAS CLOBBERED
  5785	035404	321 12 0 00 035374 		JUMPL	AC+2,O35100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 57
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0165

  5786					;TEST FSBB
  5787					;NEGATIVE AND POSITIVE
  5788					;AR=201400000000 (+1)
  5789					;BR=577400000000 (-1/2)
  5790					;DIFF=201600000000 (+1 1/2)
  5791
  5792			000007			AC=7
  5793						SAVEAC	(1,1)^
  5794	035405	201 11 0 00 035405 		MOVEI	AC+2,.
  5795	035406	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5796	035407	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5797	035410	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5798
  5799	035411	205 05 0 00 201600 	O35200:	MOVSI	AC-2,201600		;SETUP FOR COMPARISON
  5800	035412	205 07 0 00 201400 		MOVSI	AC,201400		;SETUP AC
  5801	035413	205 06 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  5802	035414	153 07 0 00 000006 		FSBB	AC,AC-1			;C(AC)-C(E)
  5803	035415	312 07 0 00 000005 		CAME	AC,AC-2			;TEST C(AC)
  5804	035416	003 07 0 00 035201 		ER3	AC,35201
  5805	035417	312 06 0 00 000005 		CAME	AC-1,AC-2		;TEST C(E)
  5806	035420	005 06 0 00 035201 		ER5	AC-1,35201		;FSBB FAILED
  5807	035421	321 11 0 00 035411 		JUMPL	AC+2,O35200		;LOOP ON ERROR SWITCH
  5808
  5809					;TEST FSBRB
  5810					;TWO POSITIVES
  5811					;NR NORMAL
  5812					;AR=203400000000
  5813					;BR=200477777775
  5814					;DIFF=202660000001
  5815
  5816			000006			AC=6
  5817						SAVEAC	(1,1)^
  5818	035422	201 10 0 00 035422 		MOVEI	AC+2,.
  5819	035423	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5820	035424	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5821	035425	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5822
  5823	035426	505 04 0 00 202660 	O35300:	HRLI	AC-2,202660		;SETUP AC-2
  5824	035427	541 04 0 00 000001 		HRRI	AC-2,1			;FOR COMPARISON
  5825	035430	205 06 0 00 203400 		MOVSI	AC,203400		;SETUP AC
  5826	035431	505 05 0 00 200477 		HRLI	AC-1,200477		;SETUP
  5827	035432	541 05 0 00 777775 		HRRI	AC-1,-3			;BR
  5828	035433	157 06 0 00 000005 		FSBRB	AC,AC-1			;C(AC)-C(E)
  5829	035434	312 06 0 00 000004 		CAME	AC,AC-2			;TEST C(AC)
  5830	035435	003 06 0 00 035301 		ER3	AC,35301
  5831	035436	312 05 0 00 000004 		CAME	AC-1,AC-2		;TEST C(E)
  5832	035437	005 05 0 00 035301 		ER5	AC-1,35301		;FSBRB FAILED
  5833	035440	321 10 0 00 035426 		JUMPL	AC+2,O35300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 58
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0166

  5834					;GENERAL TESTS TO VERIFY EFFECT OF FSC EXECUTION ON AROV, FOV AND FXU FLAGS
  5835
  5836			000004			AC=4
  5837						SAVEAC	(1,1)^
  5838	035441	201 06 0 00 035441 		MOVEI	AC+2,.
  5839	035442	202 06 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  5840	035443	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  5841	035444	202 06 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  5842
  5843	035445	254 02 1 00 035446 	O35500:	JRST	2,@.+1			;CLEAR FLAGS
  5844	035446	000000	035447				.+1
  5845	035447	205 02 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  5846	035450	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5847	035451	132 04 0 00 000000 		FSC	AC,0			;SCALE - NO FLAGS
  5848	035452	265 05 0 00 035453 		JSP	AC+1,.+1		;SAVE FLAGS
  5849	035453	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC) FOR NO CHANGE
  5850	035454	003 04 0 00 035501 		ER3	AC,35501		;C(AC) FAILED
  5851	035455	255 10 0 00 035457 		JOV	.+2			;EXAMINE AROV FLAG
  5852	035456	254 00 0 00 035460 		JRST	.+2
  5853	035457	013 05 0 00 035501 		ER13	AC+1,35501		;AROV FLAG WAS SET
  5854	035460	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  5855	035461	013 05 0 00 035501 		ER13	AC+1,35501		;A FLAG WAS SET
  5856	035462	321 06 0 00 035445 		JUMPL	AC+2,O35500		;LOOP ON ERROR SWITCH
  5857
  5858	035463	254 02 1 00 035464 	O35510:	JRST	2,@.+1			;CLEAR FLAGS
  5859	035464	000000	035465				.+1
  5860	035465	205 02 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  5861	035466	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5862	035467	132 04 0 00 000001 		FSC	AC,1			;SCALE - AROV, FOV
  5863	035470	265 05 0 00 035471 		JSP	AC+1,.+1		;SAVE FLAGS
  5864	035471	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;EXAMINE C(AC)
  5865	035472	003 04 0 00 035511 		ER3	AC,35511		;C(AC) FAILED
  5866	035473	255 10 0 00 035475 		JOV	.+2			;EXAMINE AROV FLAG
  5867	035474	013 05 0 00 035511 		ER13	AC+1,35511		;AROV FLAG WAS NOT SET
  5868	035475	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU
  5869	035476	013 05 0 00 035511 		ER13	AC+1,35511		;ERROR - FXU IS SET
  5870	035477	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV
  5871	035500	013 05 0 00 035511 		ER13	AC+1,35511		;ERROR - FOV NOT SET
  5872	035501	321 06 0 00 035463 		JUMPL	AC+2,O35510		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 59
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0167

  5873
  5874	035502	254 02 1 00 035503 	O35520:	JRST	2,@.+1			;CLEAR FLAGS
  5875	035503	000000	035504				.+1
  5876	035504	205 02 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  5877	035505	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5878	035506	132 04 0 00 000200 		FSC	AC,200			;SCALE - AROV,FOV
  5879	035507	265 05 0 00 035510 		JSP	AC+1,.+1		;SAVE FLAGS
  5880	035510	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5881	035511	003 04 0 00 035521 		ER3	AC,35521		;C(AC) FAILED
  5882	035512	255 10 0 00 035514 		JOV	.+2			;EXAMINE AROV FLAG
  5883	035513	013 05 0 00 035521 		ER13	AC+1,35521		;AROV FLAG WAS NOT SET
  5884	035514	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU
  5885	035515	013 05 0 00 035521 		ER13	AC+1,35521		;FXU WAS SET
  5886	035516	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV
  5887	035517	013 05 0 00 035521 		ER13	AC+1,35521		;FOV WAS NOT SET
  5888	035520	321 06 0 00 035502 		JUMPL	AC+2,O35520		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 60
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0168

  5889	035521	254 02 1 00 035522 	O35530:	JRST	2,@.+1			;CLEAR FLAGS
  5890	035522	000000	035523				.+1
  5891	035523	205 02 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  5892	035524	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5893	035525	132 04 0 00 000201 		FSC	AC,201			;SCALE - AROV,FOV
  5894	035526	265 05 0 00 035527 		JSP	AC+1,.+1		;SAVE FLAGS
  5895	035527	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5896	035530	003 04 0 00 035531 		ER3	AC,35531		;C(AC) FAILED
  5897	035531	255 10 0 00 035533 		JOV	.+2			;EXAMINE AROV FLAG
  5898	035532	013 05 0 00 035531 		ER13	AC+1,35531		;AROV FLAG NOT SET
  5899	035533	332 00 0 00 030041 		SKIPE	KLFLG
  5900	035534	254 00 0 00 035543 		JRST	O35535			;KL10
  5901	035535	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU
  5902	035536	013 05 0 00 035531 		ER13	AC+1,35531		;FXU WAS NOT SET
  5903	035537	607 05 0 00 040000 	O35537:	TLNN	AC+1,FOV		;EXAMINE FOV
  5904	035540	013 05 0 00 035531 		ER13	AC+1,35531		;FOV WAS NOT SET
  5905	035541	321 06 0 00 035521 		JUMPL	AC+2,O35530		;LOOP ON ERROR SWITCH.
  5906	035542	254 00 0 00 035546 		JRST O35540
  5907	035543	603 05 0 00 000100 	O35535:	TLNE	AC+1,FXU		;FXU SHOULD NOT BE SET ON KL10
  5908	035544	013 05 0 00 035532 		ER13	AC+1,35532
  5909	035545	254 00 0 00 035537 		JRST	O35537
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 61
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0169

  5910
  5911	035546	254 02 1 00 035547 	O35540:	JRST	2,@.+1			;CLEAR FLAGS
  5912	035547	000000	035550				.+1
  5913	035550	205 02 0 00 376400 		MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  5914	035551	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5915	035552	132 04 0 00 000377 		FSC	AC,377			;SCALE - AROV, FOV
  5916	035553	265 05 0 00 035554 		JSP	AC+1,.+1		;SAVE FLAGS
  5917	035554	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5918	035555	003 04 0 00 035541 		ER3	AC,35541		;C(AC) FAILED
  5919	035556	255 10 0 00 035560 		JOV	.+2			;EXAMINE AROV FLAG
  5920	035557	013 05 0 00 035541 		ER13	AC+1,35541		;AROV FLAG WAS NOT SET
  5921	035560	332 00 0 00 030041 		SKIPE	KLFLG
  5922	035561	254 00 0 00 035570 		JRST	O35545			;KL10
  5923	035562	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU
  5924	035563	013 05 0 00 035541 		ER13	AC+1,35541		;FXU WAS NOT SET
  5925	035564	607 05 0 00 040000 	O35547:	TLNN	AC+1,FOV		;EXAMINE FOV
  5926	035565	013 05 0 00 035541 		ER13	AC+1,35541		;FOV WAS NOT SET
  5927	035566	321 06 0 00 035546 		JUMPL	AC+2,O35540		;LOOP ON ERROR SWITCH
  5928	035567	254 00 0 00 035573 		JRST	O35550
  5929	035570	603 05 0 00 000100 	O35545:	TLNE	AC+1,FXU		;FXU SHOULD NOT BE SET ON KL10
  5930	035571	013 05 0 00 035542 		ER13	AC+1,35542
  5931	035572	254 00 0 00 035564 		JRST	O35547
  5932
  5933	035573	254 02 1 00 035574 	O35550:	JRST	2,@.+1			;CLEAR FLAGS
  5934	035574	000000	035575				.+1
  5935	035575	205 02 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  5936	035576	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5937	035577	132 04 0 00 000400 		FSC	AC,400			;SCALE - NO FLAGS
  5938	035600	265 05 0 00 035601 		JSP	AC+1,.+1		;SAVE FLAGS
  5939	035601	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5940	035602	003 04 0 00 035551 		ER3	AC,35551		;C(AC) FAILED
  5941	035603	255 10 0 00 035605 		JOV	.+2			;EXAMINE AROV FLAG
  5942	035604	254 00 0 00 035606 		JRST	.+2
  5943	035605	013 05 0 00 035551 		ER13	AC+1,35551		;AROV FLAG WAS SET
  5944	035606	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  5945	035607	013 05 0 00 035551 		ER13	AC+1,35551		;A FLAG WAS SET
  5946	035610	321 06 0 00 035573 		JUMPL	AC+2,O35550		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 62
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0170

  5947	035611	254 02 1 00 035612 	O35560:	JRST	2,@.+1			;CLEAR FLAGS
  5948	035612	000000	035613				.+1
  5949	035613	205 02 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  5950	035614	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5951	035615	132 04 0 00 777401 		FSC	AC,-377			;SCALE - NO FLAGS
  5952	035616	265 05 0 00 035617 		JSP	AC+1,.+1		;SAVE FLAGS
  5953	035617	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5954	035620	003 04 0 00 035561 		ER3	AC,35561		;C(AC) FAILED
  5955	035621	255 10 0 00 035623 		JOV	.+2			;EXAMINE AROV FLAG
  5956	035622	254 00 0 00 035624 		JRST	.+2
  5957	035623	013 05 0 00 035561 		ER13	AC+1,35561		;AROV FLAG WAS SET
  5958	035624	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  5959	035625	013 05 0 00 035561 		ER13	AC+1,35561		;A FLAG WAS SET
  5960	035626	321 06 0 00 035611 		JUMPL	AC+2,O35560		;LOOP ON ERROR SWITCH
  5961
  5962	035627	254 02 1 00 035630 	O35570:	JRST	2,@.+1			;CLEAR FLAGS
  5963	035630	000000	035631				.+1
  5964	035631	205 02 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  5965	035632	205 04 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  5966	035633	132 04 0 00 777400 		FSC	AC,-400			;SCALE - AROV,FOV,FXU
  5967	035634	265 05 0 00 035635 		JSP	AC+1,.+1		;SAVE FLAGS
  5968	035635	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5969	035636	003 04 0 00 035571 		ER3	AC,35571		;C(AC) FAILED
  5970	035637	255 10 0 00 035641 		JOV	.+2			;EXAMINE AROV FLAG
  5971	035640	013 05 0 00 035571 		ER13	AC+1,35571		;AROV FLAG WAS NOT SET
  5972	035641	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  5973	035642	013 05 0 00 035571 		ER13	AC+1,35571		;FOV WAS NOT SET
  5974	035643	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  5975	035644	013 05 0 00 035571 		ER13	AC+1,35571		;FXU WAS NOT SET
  5976	035645	321 06 0 00 035627 		JUMPL	AC+2,O35570		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 63
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0171

  5977	035646	254 02 1 00 035647 	O35600:	JRST	2,@.+1			;CLEAR FLAGS
  5978	035647	000000	035650				.+1
  5979	035650	205 02 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  5980	035651	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  5981	035652	132 04 0 00 000000 		FSC	AC,0			;FSC - NO FLAGS
  5982	035653	265 05 0 00 035654 		JSP	AC+1,.+1		;SAVE FLAGS
  5983	035654	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5984	035655	003 04 0 00 035601 		ER3	AC,35601		;C(AC) FAILED
  5985	035656	255 10 0 00 035660 		JOV	.+2			;EXAMINE AROV FLAG
  5986	035657	254 00 0 00 035661 		JRST	.+2
  5987	035660	013 05 0 00 035601 		ER13	AC+1,35601		;AROV WAS SET
  5988	035661	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;TEST FOV,FXU
  5989	035662	013 05 0 00 035601 		ER13	AC+1,35601		;EITHER FOV OR FXU WAS SET
  5990	035663	321 06 0 00 035646 		JUMPL	AC+2,O35600		;LOOP ON ERROR SWITCH
  5991
  5992	035664	254 02 1 00 035665 	O35610:	JRST	2,@.+1			;CLEAR FLAGS
  5993	035665	000000	035666				.+1
  5994	035666	205 02 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  5995	035667	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  5996	035670	132 04 0 00 777777 		FSC	AC,-1			;SCALE - AROV,FOV,FXU
  5997	035671	265 05 0 00 035672 		JSP	AC+1,.+1		;SAVE FLAGS
  5998	035672	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  5999	035673	003 04 0 00 035611 		ER3	AC,35611		;C(AC) FAILED
  6000	035674	255 10 0 00 035676 		JOV	.+2			;EXAMINE AROV FLAG
  6001	035675	013 05 0 00 035611 		ER13	AC+1,35611		;AROV FLAG WAS NOT SET
  6002	035676	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6003	035677	013 05 0 00 035611 		ER13	AC+1,35611		;FOV WAS NOT SET
  6004	035700	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6005	035701	013 05 0 00 035611 		ER13	AC+1,35611		;FXU WAS NOT SET
  6006	035702	321 06 0 00 035664 		JUMPL	AC+2,O35610		;LOOP ON ERROR SWITCH
  6007
  6008	035703	254 02 1 00 035704 	O35620:	JRST	2,@.+1			;CLEAR FLAGS
  6009	035704	000000	035705				.+1
  6010	035705	205 02 0 00 201400 		MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  6011	035706	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6012	035707	132 04 0 00 777601 		FSC	AC,-177			;SCALE - AROV,FOV,FXU
  6013	035710	265 05 0 00 035711 		JSP	AC+1,.+1		;SAVE FLAGS
  6014	035711	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6015	035712	003 04 0 00 035621 		ER3	AC,35621		;C(AC) FAILED
  6016	035713	255 10 0 00 035715 		JOV	.+2			;EXAMINE AROV FLAG
  6017	035714	013 05 0 00 035621 		ER13	AC+1,35621		;AROV FLAG WAS NOT SET
  6018	035715	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6019	035716	013 05 0 00 035621 		ER13	AC+1,35621		;FOV WAS NOT SET
  6020	035717	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6021	035720	013 05 0 00 035621 		ER13	AC+1,35621		;FXU WAS NOT SET
  6022	035721	321 06 0 00 035703 		JUMPL	AC+2,O35620		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 64
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0172

  6023	035722	254 02 1 00 035723 	O35630:	JRST	2,@.+1			;CLEAR FLAGS
  6024	035723	000000	035724				.+1
  6025	035724	205 02 0 00 200400 		MOVSI	AC-2,200400		;SETUP FOR COMPARISON
  6026	035725	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6027	035726	132 04 0 00 777600 		FSC	AC,-200			;SCALE - AROV,FOV,FXU
  6028	035727	265 05 0 00 035730 		JSP	AC+1,.+1		;SAVE FLAGS
  6029	035730	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6030	035731	003 04 0 00 035631 		ER3	AC,35631		;C(AC) FAILED
  6031	035732	255 10 0 00 035734 		JOV	.+2			;EXAMINE AROV FLAG
  6032	035733	013 05 0 00 035631 		ER13	AC+1,35631		;AROV FLAG WAS NOT SET
  6033	035734	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6034	035735	013 05 0 00 035631 		ER13	AC+1,35631		;FOV WAS NOT SET
  6035	035736	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6036	035737	013 05 0 00 035631 		ER13	AC+1,35631		;FXU WAS NOT SET
  6037	035740	321 06 0 00 035722 		JUMPL	AC+2,O35630		;LOOP ON ERROR SWITCH
  6038
  6039	035741	254 02 1 00 035742 	O35640:	JRST	2,@.+1			;CLEAR FLAGS
  6040	035742	000000	035743				.+1
  6041	035743	205 02 0 00 001400 		MOVSI	AC-2,1400		;SETUP FOR COMPARISON
  6042	035744	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6043	035745	132 04 0 00 777401 		FSC	AC,-377			;SCALE - AROV,FOV,FXU
  6044	035746	265 05 0 00 035747 		JSP	AC+1,.+1		;SAVE FLAGS
  6045	035747	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6046	035750	003 04 0 00 035641 		ER3	AC,35641		;C(AC) FAILED
  6047	035751	255 10 0 00 035753 		JOV	.+2			;EXAMINE AROV FLAG
  6048	035752	013 05 0 00 035641 		ER13	AC+1,35641		;AROV FLAG WAS NOT SET
  6049	035753	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6050	035754	013 05 0 00 035641 		ER13	AC+1,35641		;FOV WAS NOT SET
  6051	035755	332 00 0 00 030041 		SKIPE	KLFLG
  6052	035756	254 00 0 00 035763 		JRST	O35645			;KL10
  6053	035757	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU FLAG
  6054	035760	013 05 0 00 035641 		ER13	AC+1,35641		;FXU WAS  SET
  6055	035761	321 06 0 00 035741 	O35647:	JUMPL	AC+2,O35640		;LOOP ON ERROR SWITCH
  6056	035762	254 00 0 00 035766 		JRST	O35650
  6057	035763	607 05 0 00 000100 	O35645:	TLNN	AC+1,FXU		;FXU SHOULD BE SET ON KL10
  6058	035764	013 05 0 00 035642 		ER13	AC+1,35642
  6059	035765	254 00 0 00 035761 		JRST	O35647
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 65
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0173

  6060
  6061	035766	254 02 1 00 035767 	O35650:	JRST	2,@.+1			;CLEAR FLAGS
  6062	035767	000000	035770				.+1
  6063	035770	205 02 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  6064	035771	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6065	035772	132 04 0 00 777400 		FSC	AC,-400			;SCALE - AROV,FOV,FXU
  6066	035773	265 05 0 00 035774 		JSP	AC+1,.+1		;SAVE FLAGS
  6067	035774	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6068	035775	003 04 0 00 035651 		ER3	AC,35651		;C(AC) FAILED
  6069	035776	255 10 0 00 036000 		JOV	.+2			;EXAMINE AROV FLAG
  6070	035777	013 05 0 00 035651 		ER13	AC+1,35651		;AROV FLAG WAS NOT SET
  6071	036000	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6072	036001	013 05 0 00 035651 		ER13	AC+1,35651		;FOV WAS NOT SET
  6073	036002	332 00 0 00 030041 		SKIPE	KLFLG
  6074	036003	254 00 0 00 036010 		JRST	O35655
  6075	036004	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU FLAG
  6076	036005	013 05 0 00 035651 		ER13	AC+1,35651		;FXU WAS SET
  6077	036006	321 06 0 00 035766 	O35657:	JUMPL	AC+2,O35650		;LOOP ON ERROR SWITCH
  6078	036007	254 00 0 00 036013 		JRST	O35660
  6079	036010	607 05 0 00 000100 	O35655:	TLNN	AC+1,FXU		;FXU SHOULD BE SET ON KL10
  6080	036011	013 05 0 00 035652 		ER13	AC+1,35652
  6081	036012	254 00 0 00 036006 		JRST	O35657
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 66
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0174

  6082	036013	254 02 1 00 036014 	O35660:	JRST	2,@.+1			;CLEAR FLAGS
  6083	036014	000000	036015				.+1
  6084	036015	205 02 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  6085	036016	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6086	036017	132 04 0 00 000377 		FSC	AC,377			;SCALE - NO FLAGS
  6087	036020	265 05 0 00 036021 		JSP	AC+1,.+1		;SAVE FLAGS
  6088	036021	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6089	036022	003 04 0 00 035661 		ER3	AC,35661		;C(AC) FAILED
  6090	036023	255 10 0 00 036025 		JOV	.+2			;EXAMINE AROV FLAG
  6091	036024	254 00 0 00 036026 		JRST	.+2
  6092	036025	013 05 0 00 035661 		ER13	AC+1,35661		;AROV FLAG WAS SET
  6093	036026	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6094	036027	013 05 0 00 035661 		ER13	AC+1,35661		;A FLAG WAS SET
  6095	036030	321 06 0 00 036013 		JUMPL	AC+2,O35660		;LOOP ON ERROR SWITCH
  6096
  6097	036031	254 02 1 00 036032 	O35670:	JRST	2,@.+1			;CLEAR FLAGS
  6098	036032	000000	036033				.+1
  6099	036033	205 02 0 00 000400 		MOVSI	AC-2,400		;SETUP FOR COMPARISON
  6100	036034	205 04 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6101	036035	132 04 0 00 000400 		FSC	AC,400			;SCALE - NO FLAGS
  6102	036036	265 05 0 00 036037 		JSP	AC+1,.+1		;SAVE FLAGS
  6103	036037	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6104	036040	003 04 0 00 035671 		ER3	AC,35671		;C(AC) FAILED
  6105	036041	255 10 0 00 036043 		JOV	.+2			;EXAMINE AROV FLAG
  6106	036042	254 00 0 00 036044 		JRST	.+2
  6107	036043	013 05 0 00 035671 		ER13	AC+1,35671		;AROV FLAG WAS SET
  6108	036044	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6109	036045	013 05 0 00 035671 		ER13	AC+1,35671		;A FLAG WAS SET
  6110	036046	321 06 0 00 036031 		JUMPL	AC+2,O35670		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 67
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0175

  6111	036047	254 02 1 00 036050 	O35700:	JRST	2,@.+1			;CLEAR FLAGS
  6112	036050	000000	036051				.+1
  6113	036051	205 02 0 00 400400 		MOVSI	AC-2,-377400		;SETUP FOR COMPARISON
  6114	036052	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6115	036053	132 04 0 00 000000 		FSC	AC,0			;SCALE - NO FLAGS
  6116	036054	265 05 0 00 036055 		JSP	AC+1,.+1		;SAVE FLAGS
  6117	036055	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC) FOR NO CHANGE
  6118	036056	003 04 0 00 035701 		ER3	AC,35701		;C(AC) FAILED
  6119	036057	255 10 0 00 036061 		JOV	.+2			;EXAMINE AROV FLAG
  6120	036060	254 00 0 00 036062 		JRST	.+2
  6121	036061	013 05 0 00 035701 		ER13	AC+1,35701		;AROV FLAG WAS SET
  6122	036062	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6123	036063	013 05 0 00 035701 		ER13	AC+1,35701		;A FLAG WAS SET
  6124	036064	321 06 0 00 036047 		JUMPL	AC+2,O35700		;LOOP ON ERROR SWITCH
  6125
  6126	036065	254 02 1 00 036066 	O35710:	JRST	2,@.+1			;CLEAR FLAGS
  6127	036066	000000	036067				.+1
  6128	036067	205 02 0 00 777400 		MOVSI	AC-2,-400		;SETUP FOR COMPARISON
  6129	036070	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6130	036071	132 04 0 00 000001 		FSC	AC,1			;SCALE - AROV,FOV
  6131	036072	265 05 0 00 036073 		JSP	AC+1,.+1		;SAVE FLAGS
  6132	036073	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;EXAMINE C(AC)
  6133	036074	003 04 0 00 035711 		ER3	AC,35711		;C(AC) FAILED
  6134	036075	255 10 0 00 036077 		JOV	.+2			;EXAMINE AROV FLAG
  6135	036076	013 05 0 00 035711 		ER13	AC+1,35711		;AROV FLAG WAS NOT SET
  6136	036077	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU
  6137	036100	013 05 0 00 035711 		ER13	AC+1,35711		;ERROR - FXU IS SET
  6138	036101	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV
  6139	036102	013 05 0 00 035711 		ER13	AC+1,35711		;ERROR - FOV NOT SET
  6140	036103	321 06 0 00 036065 		JUMPL	AC+2,O35710		;LOOP ON ERROR SWITCH
  6141
  6142	036104	254 02 1 00 036105 	O35720:	JRST	2,@.+1			;CLEAR FLAGS
  6143	036105	000000	036106				.+1
  6144	036106	205 02 0 00 600400 		MOVSI	AC-2,-177400		;SETUP FOR COMPARISON
  6145	036107	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6146	036110	132 04 0 00 000200 		FSC	AC,200			;SCALE - AROV,FOV
  6147	036111	265 05 0 00 036112 		JSP	AC+1,.+1		;SAVE FLAGS
  6148	036112	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6149	036113	003 04 0 00 035721 		ER3	AC,35721		;C(AC) FAILED
  6150	036114	255 10 0 00 036116 		JOV	.+2			;EXAMINE AROV FLAG
  6151	036115	013 05 0 00 035721 		ER13	AC+1,35721		;AROV FLAG WAS NOT SET
  6152	036116	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU
  6153	036117	013 05 0 00 035721 		ER13	AC+1,35721		;ERROR - FXU IS SET
  6154	036120	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV
  6155	036121	013 05 0 00 035721 		ER13	AC+1,35721		;ERROR - FOV NOT SET
  6156	036122	321 06 0 00 036104 		JUMPL	AC+2,O35720		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 68
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0176

  6157	036123	254 02 1 00 036124 	O35730:	JRST	2,@.+1			;CLEAR FLAGS
  6158	036124	000000	036125				.+1
  6159	036125	205 02 0 00 577400 		MOVSI	AC-2,-200400		;SETUP FOR COMPARISON
  6160	036126	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6161	036127	132 04 0 00 000201 		FSC	AC,201			;SCALE - AROV,FOV
  6162	036130	265 05 0 00 036131 		JSP	AC+1,.+1		;SAVE FLAGS
  6163	036131	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6164	036132	003 04 0 00 035731 		ER3	AC,35731		;C(AC) FAILED
  6165	036133	255 10 0 00 036135 		JOV	.+2			;EXAMINE AROV FLAG
  6166	036134	013 05 0 00 035731 		ER13	AC+1,35731		;AROV FLAG WAS NOT SET
  6167	036135	332 00 0 00 030041 		SKIPE	KLFLG
  6168	036136	254 00 0 00 036145 		JRST	O35735			;KL10
  6169	036137	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU
  6170	036140	013 05 0 00 035731 		ER13	AC+1,35731		;ERROR - FXU IS NOT SET
  6171	036141	607 05 0 00 040000 	O35737:	TLNN	AC+1,FOV		;EXAMINE FOV
  6172	036142	013 05 0 00 035731 		ER13	AC+1,35731		;ERROR - FOV NOT SET
  6173	036143	321 06 0 00 036123 		JUMPL	AC+2,O35730		;LOOP ON ERROR SWITCH
  6174	036144	254 00 0 00 036150 		JRST	O35740
  6175	036145	603 05 0 00 000100 	O35735:	TLNE	AC+1,FXU		;FXU SHOULD NOT BE SET ON KL10
  6176	036146	013 05 0 00 035732 		ER13	AC+1,35732
  6177	036147	254 00 0 00 036141 		JRST	O35737
  6178
  6179	036150	254 02 1 00 036151 	O35740:	JRST	2,@.+1			;CLEAR FLAGS
  6180	036151	000000	036152				.+1
  6181	036152	205 02 0 00 401400 		MOVSI	AC-2,-376400		;SETUP FOR COMPARISON
  6182	036153	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6183	036154	132 04 0 00 000377 		FSC	AC,377			;SCALE - AROV, FOV
  6184	036155	265 05 0 00 036156 		JSP	AC+1,.+1		;SAVE FLAGS
  6185	036156	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6186	036157	003 04 0 00 035741 		ER3	AC,35741		;C(AC) RAILED
  6187	036160	255 10 0 00 036162 		JOV	.+2			;EXAMINE AROV FLAG
  6188	036161	013 05 0 00 035741 		ER13	AC+1,35741		;AROV FLAG WAS NOT SET
  6189	036162	332 00 0 00 030041 		SKIPE	KLFLG
  6190	036163	254 00 0 00 036172 		JRST	O35745
  6191	036164	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU
  6192	036165	013 05 0 00 035741 		ER13	AC+1,35741		;ERROR - FXU IS NOT SET
  6193	036166	607 05 0 00 040000 	O35747:	TLNN	AC+1,FOV		;EXAMINE FOV
  6194	036167	013 05 0 00 035741 		ER13	AC+1,35741		;ERROR - FOV NOT SET
  6195	036170	321 06 0 00 036150 		JUMPL	AC+2,O35740		;LOOP ON ERROR SWITCH
  6196	036171	254 00 0 00 036175 		JRST	O35750
  6197	036172	603 05 0 00 000100 	O35745:	TLNE	AC+1,FXU		;FXU SOULD NOT BE SET ON KL10
  6198	036173	013 05 0 00 035742 		ER13	AC+1,35742
  6199	036174	254 00 0 00 036166 		JRST	O35747
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 69
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0177

  6200
  6201	036175	254 02 1 00 036176 	O35750:	JRST	2,@.+1			;CLEAR FLAGS
  6202	036176	000000	036177				.+1
  6203	036177	205 02 0 00 400400 		MOVSI	AC-2,-377400		;SETUP FOR COMPARISON
  6204	036200	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC.
  6205	036201	132 04 0 00 000400 		FSC	AC,400			;SCALE - NO FLAGS
  6206	036202	265 05 0 00 036203 		JSP	AC+1,.+1		;SAVE FLAGS
  6207	036203	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6208	036204	003 04 0 00 035751 		ER3	AC,35751		;C(AC) FAILED
  6209	036205	255 10 0 00 036207 		JOV	.+2			;EXAMINE AROV FLAG
  6210	036206	254 00 0 00 036210 		JRST	.+2
  6211	036207	013 05 0 00 035751 		ER13	AC+1,35751		;AROV FLAG WAS SET
  6212	036210	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6213	036211	013 05 0 00 035751 		ER13	AC+1,35751		;A FLAG WAS SET
  6214	036212	321 06 0 00 036175 		JUMPL	AC+2,O35750		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 70
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0178

  6215	036213	254 02 1 00 036214 	O35760:	JRST	2,@.+1			;CLEAR FLAGS
  6216	036214	000000	036215				.+1
  6217	036215	205 02 0 00 777400 		MOVSI	AC-2,-400		;SETUP FOR COMPARISON
  6218	036216	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6219	036217	132 04 0 00 777401 		FSC	AC,-377			;SCALE - NO FLAGS
  6220	036220	265 05 0 00 036221 		JSP	AC+1,.+1		;SAVE FLAGS
  6221	036221	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6222	036222	003 04 0 00 035761 		ER3	AC,35761		;C(AC) FAILED.
  6223	036223	255 10 0 00 036225 		JOV	.+2			;EXAMINE AROV FLAG
  6224	036224	254 00 0 00 036226 		JRST	.+2
  6225	036225	013 05 0 00 035761 		ER13	AC+1,35761		;AROV FLAG WAS SET
  6226	036226	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6227	036227	013 05 0 00 035761 		ER13	AC+1,35761		;A FLAG WAS SET
  6228	036230	321 06 0 00 036213 		JUMPL	AC+2,O35760		;LOOP ON ERROR SWITCH
  6229
  6230	036231	254 02 1 00 036232 	O35770:	JRST	2,@.+1			;CLEAR FLAGS
  6231	036232	000000	036233				.+1
  6232	036233	205 02 0 00 400400 		MOVSI	AC-2,-377400		;SETUP FOR COMPARISON
  6233	036234	205 04 0 00 400400 		MOVSI	AC,-377400		;SETUP AC
  6234	036235	132 04 0 00 777400 		FSC	AC,-400			;SCALE - AROV,FOV,FXU
  6235	036236	265 05 0 00 036237 		JSP	AC+1,.+1		;SAVE FLAGS
  6236	036237	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6237	036240	003 04 0 00 035771 		ER3	AC,35771		;C(AC) FAILED
  6238	036241	255 10 0 00 036243 		JOV	.+2			;EXAMINE AROV FLAG
  6239	036242	013 05 0 00 035771 		ER13	AC+1,35771		;AROV FLAG WAS NOT SET
  6240	036243	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6241	036244	013 05 0 00 035771 		ER13	AC+1,35771		;FOV WAS NOT SET
  6242	036245	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6243	036246	013 05 0 00 035771 		ER13	AC+1,35771		;FXU WAS NOT SET
  6244	036247	321 06 0 00 035627 		JUMPL	AC+2,O35570		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 71
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0179

  6245	036250	254 02 1 00 036251 	O36000:	JRST	2,@.+1			;CLEAR FLAGS
  6246	036251	000000	036252				.+1
  6247	036252	205 02 0 00 777400 		MOVSI	AC-2,-400		;SETUP FOR COMPARISON
  6248	036253	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6249	036254	132 04 0 00 000000 		FSC	AC,0			;FSC - NO FLAGS
  6250	036255	265 05 0 00 036256 		JSP	AC+1,.+1		;SAVE FLAGS
  6251	036256	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6252	036257	003 04 0 00 036001 		ER3	AC,36001		;C(AC) FAILED
  6253	036260	255 10 0 00 036262 		JOV	.+2			;EXAMINE AROV FLAG
  6254	036261	254 00 0 00 036263 		JRST	.+2
  6255	036262	013 05 0 00 036001 		ER13	AC+1,36001		;AROV FLAG WAS SET
  6256	036263	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;TEST FOV,FXU
  6257	036264	013 05 0 00 036001 		ER13	AC+1,36001		;EITHER FOV OR FXU WAS SET
  6258	036265	321 06 0 00 036250 		JUMPL	AC+2,O36000		;LOOP ON ERROR SWITCH
  6259
  6260	036266	254 02 1 00 036267 	O36010:	JRST	2,@.+1			;CLEAR FLAGS
  6261	036267	000000	036270				.+1
  6262	036270	205 02 0 00 400400 		MOVSI	AC-2,-377400		;SETUP FOR COMPARISON
  6263	036271	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6264	036272	132 04 0 00 777777 		FSC	AC,-1			;SCALE - AROV,FOV,FXU
  6265	036273	265 05 0 00 036274 		JSP	AC+1,.+1		;SAVE FLAGS
  6266	036274	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6267	036275	003 04 0 00 036011 		ER3	AC,36011		;C(AC) FAILED
  6268	036276	255 10 0 00 036300 		JOV	.+2			;EXAMINE AROV FLAG
  6269	036277	013 05 0 00 036011 		ER13	AC+1,36011		;AROV FLAG WAS NOT SET
  6270	036300	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6271	036301	013 05 0 00 036011 		ER13	AC+1,36011		;FOV WAS NOT SET
  6272	036302	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6273	036303	013 05 0 00 036011 		ER13	AC+1,36011		;FXU WAS NOT SET
  6274	036304	321 06 0 00 036266 		JUMPL	AC+2,O36010		;LOOP ON ERROR SWITCH
  6275
  6276	036305	254 02 1 00 036306 	O36020:	JRST	2,@.+1			;CLEAR FLAGS
  6277	036306	000000	036307				.+1
  6278	036307	205 02 0 00 576400 		MOVSI	AC-2,-201400		;SETUP FOR COMPARISON
  6279	036310	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6280	036311	132 04 0 00 777601 		FSC	AC,-177			;SCALE - AROV,FOV,FXU
  6281	036312	265 05 0 00 036313 		JSP	AC+1,.+1		;SAVE FLAGS
  6282	036313	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6283	036314	003 04 0 00 036021 		ER3	AC,36021		;C(AC) FAILED
  6284	036315	255 10 0 00 036317 		JOV	.+2			;EXAMINE AROV FLAG
  6285	036316	013 05 0 00 036021 		ER13	AC+1,36021		;AROV FLAG WAS NOT SET
  6286	036317	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6287	036320	013 05 0 00 036021 		ER13	AC+1,36021		;FOV WAS NOT SET
  6288	036321	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6289	036322	013 05 0 00 036021 		ER13	AC+1,36021		;FXU WAS NOT SET
  6290	036323	321 06 0 00 036305 		JUMPL	AC+2,O36020		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 72
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0180

  6291	036324	254 02 1 00 036325 	O36030:	JRST	2,@.+1			;CLEAR FLAGS
  6292	036325	000000	036326				.+1
  6293	036326	205 02 0 00 577400 		MOVSI	AC-2,-200400		;SETUP FOR COMPARISON
  6294	036327	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6295	036330	132 04 0 00 777600 		FSC	AC,-200			;SCALE - AROV,FOV,FXU
  6296	036331	265 05 0 00 036332 		JSP	AC+1,.+1		;SAVE FLAGS
  6297	036332	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6298	036333	003 04 0 00 036031 		ER3	AC,36031		;C(AC) FAILED
  6299	036334	255 10 0 00 036336 		JOV	.+2			;EXAMINE AROV FLAG
  6300	036335	013 05 0 00 036031 		ER13	AC+1,36031		;AROV FLAG WAS NOT SET
  6301	036336	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6302	036337	013 05 0 00 036031 		ER13	AC+1,36031		;FOV WAS NOT SET
  6303	036340	607 05 0 00 000100 		TLNN	AC+1,FXU		;EXAMINE FXU FLAG
  6304	036341	013 05 0 00 036031 		ER13	AC+1,36031		;FXU WAS NOT SET
  6305	036342	321 06 0 00 036324 		JUMPL	AC+2,O36030		;LOOP ON ERROR SWITCH
  6306
  6307	036343	254 02 1 00 036344 	O36040:	JRST	2,@.+1			;CLEAR FLAGS
  6308	036344	000000	036345				.+1
  6309	036345	205 02 0 00 776400 		MOVSI	AC-2,-1400		;SETUP FOR COMPARISON
  6310	036346	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6311	036347	132 04 0 00 777401 		FSC	AC,-377			;SCALE - AROV,FOV,FXU
  6312	036350	265 05 0 00 036351 		JSP	AC+1,.+1		;SAVE FLAGS
  6313	036351	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6314	036352	003 04 0 00 036041 		ER3	AC,36041		;C(AC) FAILED
  6315	036353	255 10 0 00 036355 		JOV	.+2			;EXAMINE AROV FLAG
  6316	036354	013 05 0 00 036041 		ER13	AC+1,36041		;AROV FLAG WAS NOT SET
  6317	036355	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6318	036356	013 05 0 00 036041 		ER13	AC+1,36041		;FOV WAS NOT SET
  6319	036357	332 00 0 00 030041 		SKIPE	KLFLG
  6320	036360	254 00 0 00 036365 		JRST	O36045			;KL10
  6321	036361	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU FLAG
  6322	036362	013 05 0 00 036041 		ER13	AC+1,36041		;FXU WAS SET
  6323	036363	321 06 0 00 036343 	O36047:	JUMPL	AC+2,O36040		;LOOP ON ERROR SWITCH
  6324	036364	254 00 0 00 036370 		JRST	O36050
  6325	036365	607 05 0 00 000100 	O36045:	TLNN	AC+1,FXU		;FXU SHOULD BE SET ON KL10
  6326	036366	013 05 0 00 036042 		ER13	AC+1,36042
  6327	036367	254 00 0 00 036363 		JRST	O36047
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 73
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0181

  6328
  6329	036370	254 02 1 00 036371 	O36050:	JRST	2,@.+1			;CLEAR FLAGS
  6330	036371	000000	036372				.+1
  6331	036372	205 02 0 00 777400 		MOVSI	AC-2,-400		;SETUP FOR COMPARISON
  6332	036373	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6333	036374	132 04 0 00 777400 		FSC	AC,-400			;SCALE - AROV,FOV,FXU
  6334	036375	265 05 0 00 036376 		JSP	AC+1,.+1		;SAVE FLAGS
  6335	036376	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6336	036377	003 04 0 00 036051 		ER3	AC,36051		;C(AC) FAILED
  6337	036400	255 10 0 00 036402 		JOV	.+2			;EXAMINE AROV FLAG
  6338	036401	013 05 0 00 036051 		ER13	AC+1,36051		;AROV FLAG WAS NOT SET
  6339	036402	607 05 0 00 040000 		TLNN	AC+1,FOV		;EXAMINE FOV FLAG
  6340	036403	013 05 0 00 036051 		ER13	AC+1,36051		;FOV WAS NOT SET
  6341	036404	332 00 0 00 030041 		SKIPE	KLFLG
  6342	036405	254 00 0 00 036412 		JRST	O36055			;KL10
  6343	036406	603 05 0 00 000100 		TLNE	AC+1,FXU		;EXAMINE FXU FLAG
  6344	036407	013 05 0 00 036051 		ER13	AC+1,36051		;FXU WAS SET
  6345	036410	321 06 0 00 036370 	O36057:	JUMPL	AC+2,O36050		;LOOP ON ERROR SWITCH
  6346	036411	254 00 0 00 036415 		JRST	O36060
  6347	036412	607 05 0 00 000100 	O36055:	TLNN	AC+1,FXU		;FXU SHOULD BE SET ON KL10
  6348	036413	013 05 0 00 036052 		ER13	AC+1,36052
  6349	036414	254 00 0 00 036410 		JRST	O36057
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 74
DFKCA1	MAC	 3-Oct-80 13:56		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0182

  6350	036415	254 02 1 00 036416 	O36060:	JRST	2,@.+1			;CLEAR FLAGS
  6351	036416	000000	036417				.+1
  6352	036417	205 02 0 00 400400 		MOVSI	AC-2,-377400		;SETUP FOR COMPARISON
  6353	036420	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6354	036421	132 04 0 00 000377 		FSC	AC,377			;SCALE - NO FLAGS
  6355	036422	265 05 0 00 036423 		JSP	AC+1,.+1		;SAVE FLAGS
  6356	036423	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6357	036424	003 04 0 00 036061 		ER3	AC,36061		;C(AC) FAILED
  6358	036425	255 10 0 00 036427 		JOV	.+2			;EXAMINE AROV FLAG
  6359	036426	254 00 0 00 036430 		JRST	.+2
  6360	036427	013 05 0 00 036061 		ER13	AC+1,36061		;AROV FLAG WAS SET
  6361	036430	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6362	036431	013 05 0 00 036061 		ER13	AC+1,36061		;A FLAG WAS SET
  6363	036432	321 06 0 00 036415 		JUMPL	AC+2,O36060		;LOOP ON ERROR SWITCH
  6364
  6365	036433	254 02 1 00 036434 	O36070:	JRST	2,@.+1			;CLEAR FLAGS
  6366	036434	000000	036435				.+1
  6367	036435	205 02 0 00 777400 		MOVSI	AC-2,-400		;SETUP FOR COMPARISON
  6368	036436	205 04 0 00 777400 		MOVSI	AC,-400			;SETUP AC
  6369	036437	132 04 0 00 000400 		FSC	AC,400			;SCALE - NO FLAGS
  6370	036440	265 05 0 00 036441 		JSP	AC+1,.+1		;SAVE FLAGS
  6371	036441	312 04 0 00 000002 		CAME	AC,<AC-2>&17		;TEST C(AC)
  6372	036442	003 04 0 00 036071 		ER3	AC,36071		;C(AC) FAILED
  6373	036443	255 10 0 00 036445 		JOV	.+2			;EXAMINE AROV FLAG
  6374	036444	254 00 0 00 036446 		JRST	.+2
  6375	036445	013 05 0 00 036071 		ER13	AC+1,36071		;AROV FLAG WAS SET
  6376	036446	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU		;EXAMINE FLAGS
  6377	036447	013 05 0 00 036071 		ER13	AC+1,36071		;A FLAG WAS SET
  6378	036450	321 06 0 00 036433 		JUMPL	AC+2,O36070		;LOOP ON ERROR SWITCH
  6379
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0183

  6380					SUBTTL	DIAGNOSTIC SECTION, PART TWO
  6381
  6382					;	GENERAL DESCRIPTION
  6383					;PART   I-FMP AND EXPONENT CALCULATE
  6384					;PART   II-GEN TEST-FMP,FDV
  6385					;PART	III - FMP AND EXPONENT CALCULATE
  6386						LALL
  6387					;TEST FMP
  6388					;TEST APPARENT ABILITY TO FCE,
  6389					;SCA AND DECODE
  6390					;FCE FAILING RESULTS IN -NR ALL ZERO
  6391					;SAC FAILS - C(AC)=ORIGINAL
  6392
  6393			000014		CB00:	AC=14
  6394						SAVEAC	(1,1)^
  6395	036451	201 16 0 00 036451 		MOVEI	AC+2,.
  6396	036452	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6397	036453	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6398	036454	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6399
  6400										;TEST FCE
  6401	036455	205 14 0 00 200400 	P100:	MOVSI	AC,200400		;SETUP AC
  6402	036456	400 13 0 00 000000 		SETZ	AC-1,			;SETUP BR
  6403	036457	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6404	036460	332 00 0 00 000014 		SKIPE	AC			;TEST PROD=0
  6405	036461	003 14 0 00 000101 		ER3	AC,101			;FCE FAILED
  6406	036462	321 16 0 00 036455 		JUMPL	AC+2,P100		;LOOP ON ERROR SWITCH
  6407
  6408										;TEST SAC
  6409	036463	205 14 0 00 200400 	P200:	MOVSI	AC,200400		;SETUP AC
  6410	036464	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  6411	036465	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6412	036466	316 14 0 00 000013 		CAMN	AC,AC-1			;TEST C(AC)=ORIG
  6413	036467	003 14 0 00 000201 		ER3	AC,201			;SAC FAILED
  6414	036470	321 16 0 00 036463 		JUMPL	AC+2,P200		;LOOP ON ERROR SWITCH
  6415
  6416					;TEST FMP-EXP CAL
  6417					;AR=000400000000
  6418					;BR=000400000000
  6419					;CORR PROD=177400000000 AND OVERFLOW
  6420					;ERR PROD=177400000000 AND NOT OVERFLOW
  6421
  6422			000014			AC=14
  6423						SAVEAC	(1,1)^
  6424	036471	201 16 0 00 036471 		MOVEI	AC+2,.
  6425	036472	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6426	036473	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6427	036474	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6428
  6429	036475	255 10 0 00 036476 	P300:	JFCL	10,.+1			;CLEAR AROV, EXEC NEXT INST
  6430	036476	205 12 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6431	036477	205 14 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6432	036500	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6433	036501	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6434	036502	265 11 0 00 036503 		JSP	AC-3,.+1		;SAVE FLAGS
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-1
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0184

  6435	036503	255 10 0 00 036505 		JFCL	10,.+2			;TEST FOR OVERFLOW
  6436	036504	013 11 0 00 000301 		ER13	AC-3,301		;AROV FLAG WAS NOT SET
  6437	036505	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD=177400000000
  6438	036506	003 14 0 00 000301 		ER3	AC,301
  6439	036507	321 16 0 00 036475 		JUMPL	AC+2,P300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0185

  6440					;TEST FMP - EXP CAL
  6441					;AR=000400000000
  6442					;BR=000400000000
  6443					;CORR PROD=177400000000 AND UNDERFLOW
  6444					;ERR PROD=377400000000 AND UNDERFLOW
  6445
  6446			000013			AC=13
  6447						SAVEAC	(1,1)^
  6448	036510	201 15 0 00 036510 		MOVEI	AC+2,.
  6449	036511	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6450	036512	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6451	036513	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6452
  6453	036514	254 02 1 00 070640 	P400:	JRST	2,@[.+1]		;CLEAR AR FXU FLAG
  6454	036515	205 11 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6455	036516	205 13 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6456	036517	205 12 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6457	036520	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC) X C(E)
  6458	036521	265 10 0 00 036522 		JSP	AC-3,.+1		;STORE FLAGS AND PC
  6459	036522	607 10 0 00 000100 		TLNN	AC-3,FXU		;EXAMINE FXU FLAG
  6460	036523	013 10 0 00 000401 		ER13	AC-3,401		;FXU FLAG WAS NOT SET
  6461	036524	312 13 0 00 000011 		CAME	AC,AC-2			;TEST PROD=177400000000
  6462	036525	003 13 0 00 000401 		ER3	AC,401
  6463	036526	255 10 0 00 036530 		JOV	.+2			;EXAMINE AROV FLAG
  6464	036527	013 10 0 00 000401 		ER13	AC-3,401		;AROV WAS NOT SET
  6465	036530	255 01 0 00 036532 		JFOV	.+2			;EXAMINE FOV FLAG
  6466	036531	013 10 0 00 000401 		ER13	AC-3,401		;FOV WAS NOT SET
  6467	036532	321 15 0 00 036514 		JUMPL	AC+2,P400		;LOOP ON ERROR SWITCH
  6468
  6469					;TEST FMP
  6470					;AR=000400000000
  6471					;BR=000400000000
  6472					;CORR PROD=177400000000 AND OVERFLOW
  6473					;ERR PROD=600400000000 AND OVERFLOW
  6474
  6475			000012			AC=12
  6476						SAVEAC	(1,1)^
  6477	036533	201 14 0 00 036533 		MOVEI	AC+2,.
  6478	036534	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6479	036535	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6480	036536	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6481
  6482	036537	255 10 0 00 036540 	P500:	JFCL	10,.+1			;CLEAR AROV, EXEC NEXT INST
  6483	036540	205 10 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6484	036541	205 12 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6485	036542	205 11 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6486	036543	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC) X C(E)
  6487	036544	265 07 0 00 036545 		JSP	AC-3,.+1		;SAVE FLAGS
  6488	036545	255 10 0 00 036547 		JFCL	10,.+2			;TEST AROV FLAG
  6489	036546	013 07 0 00 000501 		ER13	AC-3,501		;NOT OVERFLOW
  6490	036547	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD=177400000000
  6491	036550	003 12 0 00 000501 		ER3	AC,501
  6492	036551	321 14 0 00 036537 		JUMPL	AC+2,P500		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0186

  6493					;TEST FMP
  6494					;AR=200400000000
  6495					;BR=000400000000
  6496					;CORR PROD=377400000000 AND OVERFLOW
  6497					;ERR PROD=1774000000000 AND NOT OVERFLOW
  6498
  6499			000005			AC=5
  6500						SAVEAC (1,1)^
  6501	036552	201 07 0 00 036552 		MOVEI	AC+2,.
  6502	036553	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6503	036554	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6504	036555	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6505
  6506	036556	255 10 0 00 036557 	P600:	JFCL	10,.+1			;CLR AROV,EXEC NEXT INST
  6507	036557	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  6508	036560	205 05 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  6509	036561	205 04 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6510	036562	160 05 0 00 000004 		FMP	AC,AC-1			;C(AC) X C(E)
  6511	036563	265 02 0 00 036564 		JSP	AC-3,.+1		;SAVE FLAGS
  6512	036564	255 10 0 00 036566 		JFCL	10,.+2			;TEST AROV FLAG
  6513	036565	013 02 0 00 000601 		ER13	AC-3,601		;AROV NOT SET
  6514	036566	312 05 0 00 000003 		CAME	AC,AC-2			;TEST PROD=377400000000
  6515	036567	003 05 0 00 000601 		ER3	AC,601
  6516	036570	321 07 0 00 036556 		JUMPL	AC+2,P600		;LOOP ON ERROR SWITCH
  6517
  6518					;TEST FMP
  6519					;AR=000400000000
  6520					;BR=000400000000
  6521					;CORRECT PROD=177400000000 AND OVERFLOW
  6522					;FAILURE OF EITHER RESULTS IN AN
  6523					;ERROR PROD=144400000000 AND OVERFLOW
  6524
  6525			000011			AC=11
  6526						SAVEAC	(1,1)^
  6527	036571	201 13 0 00 036571 		MOVEI	AC+2,.
  6528	036572	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6529	036573	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6530	036574	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6531
  6532	036575	205 07 0 00 177400 	P700:	MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6533	036576	205 11 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6534	036577	205 10 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6535	036600	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC) X C(E)
  6536	036601	265 06 0 00 036602 		JSP	AC-3,.+1		;SAVE FLAGS
  6537	036602	255 10 0 00 036604 		JOV	.+2			;EXAMINE AROV FLAG
  6538	036603	013 06 0 00 000701 		ER13	AC-3,701		;AROV NOT SET
  6539	036604	255 01 0 00 036606 		JFOV	.+2			;EXAMINE FOV FLAG
  6540	036605	013 06 0 00 000701 		ER13	AC-3,701		;FOV NOT SET
  6541	036606	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD=144400000000
  6542	036607	003 11 0 00 000701 		ER3	AC,701
  6543	036610	321 13 0 00 036575 		JUMPL	AC+2,P700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0187

  6544					;TEST FMP
  6545					;AR=000400000000
  6546					;BR=000400000000
  6547					;FAILURE OF A BIT TO SET RESULTS
  6548					;IN A PROD=176.4, 173.4, 137.4,
  6549					;165.4,153.4
  6550					;CORRECT PROD=177400000000 AND OVERFLOW
  6551					;NOTE-FAILURE TO INH FP EXP ADD LEVEL
  6552					;(TEST NOT FP EXP ADD
  6553					;MAY LOOK LIKE BIT 8 FAILING TO SET
  6554
  6555			000010			AC=10
  6556						SAVEAC	(1,1)^
  6557	036611	201 12 0 00 036611 		MOVEI	AC+2,.
  6558	036612	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6559	036613	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6560	036614	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6561
  6562			001000		SN=1000
  6563			201400			ZZ=201400
  6564
  6565					P1000:	REPEAT	^D2,			;TEST SC8,6 SET
  6566					<SN=SN+1
  6567						ZZ=ZZ-3000
  6568						MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6569						MOVSI	AC,400			;SETUP AC
  6570						MOVSI	AC-1,400		;SETUP BR
  6571						FMP	AC,AC-1			;C(AC) X C(E)
  6572						CAMN	AC,AC-2			;TEST PROD
  6573						ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  6574						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6575					>
  6576			001001		SN=SN+1
  6577			176400			ZZ=ZZ-3000
  6578	036615	205 06 0 00 176400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6579	036616	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6580	036617	205 07 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6581	036620	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  6582	036621	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD
  6583	036622	003 10 0 00 001001 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  6584	036623	321 12 0 00 036615 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6585
  6586			001002		SN=SN+1
  6587			173400			ZZ=ZZ-3000
  6588	036624	205 06 0 00 173400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6589	036625	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6590	036626	205 07 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6591	036627	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  6592	036630	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD
  6593	036631	003 10 0 00 001002 		ER3	AC,SN			;BIT UNDER TEST FAILED TO SET
  6594	036632	321 12 0 00 036624 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6595
  6596					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-1
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0188

  6597			001100		SN=1100
  6598			011400			ZZ=11400
  6599
  6600					P1100:	REPEAT	^D2,			;TEST SC3, 2 SET
  6601					<SN=SN+1
  6602						ZZ=ZZ+26000
  6603						MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6604						MOVSI	AC,400			;SETUP AC
  6605						MOVSI	AC-1,400		;SETUP BR
  6606						FMP	AC,AC-1			;C(AC) X C(E)
  6607						CAMN	AC,AC-2			;TEST PROD
  6608						ER3	AC,SN			;BIT UNDER TEST FAILED
  6609						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6610					>
  6611			001101		SN=SN+1
  6612			037400			ZZ=ZZ+26000
  6613	036633	205 06 0 00 037400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6614	036634	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6615	036635	205 07 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6616	036636	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  6617	036637	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD
  6618	036640	003 10 0 00 001101 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6619	036641	321 12 0 00 036633 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6620
  6621			001102		SN=SN+1
  6622			065400			ZZ=ZZ+26000
  6623	036642	205 06 0 00 065400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6624	036643	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6625	036644	205 07 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6626	036645	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  6627	036646	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD
  6628	036647	003 10 0 00 001102 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6629	036650	321 12 0 00 036642 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6630
  6631
  6632										;TEST SC1 SET
  6633	036651	205 06 0 00 153400 	P1200:	MOVSI	AC-2,153400		;SETUP FOR COMPARISON
  6634	036652	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6635	036653	205 07 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6636	036654	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) + C(E)
  6637	036655	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD
  6638	036656	003 10 0 00 001201 		ER3	AC,1201			;SC1 FAILED TO SET
  6639	036657	321 12 0 00 036651 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0189

  6640					;TEST FMP
  6641					;AR=000400000000
  6642					;BR=000400000000
  6643					;CORR PROD=177400000000 AND OVERFLOW
  6644					;FAILURE RESULTS IN LOSS OF MULTIPLICAND
  6645					;AND AN NR ALL ZERO COND
  6646
  6647			000007			AC=7
  6648						SAVEAC	(1,1)^
  6649	036660	201 11 0 00 036660 		MOVEI	AC+2,.
  6650	036661	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6651	036662	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6652	036663	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6653
  6654	036664	205 07 0 00 000400 	P1300:	MOVSI	AC,400			;SETUP AC
  6655	036665	205 06 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6656	036666	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC) X C(E)
  6657	036667	336 00 0 00 000007 		SKIPN	AC			;TEST PROD=0
  6658	036670	003 07 0 00 001301 		ER3	AC,1301
  6659	036671	321 11 0 00 036664 		JUMPL	AC+2,P1300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0190

  6660					;TEST FMP - EXP CAL
  6661					;AR=200400000000
  6662					;BR=000400000000
  6663					;CORR PROD=377400000000 AND OVERFLOW
  6664					;ERR PROD=177400000000 AND OVERFLOW
  6665
  6666			000006			AC=6
  6667						SAVEAC	(1,1)^
  6668	036672	201 10 0 00 036672 		MOVEI	AC+2,.
  6669	036673	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6670	036674	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6671	036675	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6672
  6673	036676	255 10 0 00 036677 	P1400:	JFCL	10,.+1			;CLEAR AROV, EXEC NEXT INST
  6674	036677	205 04 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6675	036700	205 06 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  6676	036701	205 05 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6677	036702	160 06 0 00 000005 		FMP	AC,AC-1			;C(AC) X C(E)
  6678	036703	265 03 0 00 036704 		JSP	AC-3,.+1		;SAVE FLAGS
  6679	036704	255 10 0 00 036706 		JFCL	10,.+2			;TEST AROV FLAG
  6680	036705	013 03 0 00 001401 		ER13	AC-3,1401		;NOT OVERFLOW
  6681	036706	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST PROD=177400000000
  6682	036707	003 06 0 00 001401 		ER3	AC,1401
  6683	036710	321 10 0 00 036676 		JUMPL	AC+2,P1400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 8
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0191

  6684					;TEST FMP - EXP CAL
  6685					;TEST ABILITY TO SET INDIVIDUAL BITS
  6686					;OF FE AND SC
  6687					;AR=177400000000
  6688					;BR=000400000000
  6689					;CORR PROD=376400000000 AND UNDERFLOW
  6690					;ERR PRODS=375.4, 374.4, 372.4,
  6691					;366.4, 356.4, 336.4, 276.4, 176.4, 376.4 (CORR PROD, NOT UNDERFLOW)
  6692
  6693			000014			AC=14
  6694						SAVEAC	(1,1)^
  6695	036711	201 16 0 00 036711 		MOVEI	AC+2,.
  6696	036712	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6697	036713	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6698	036714	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6699
  6700			001500		SN=1500
  6701			376400			ZZ=376400
  6702
  6703					P1500:	REPEAT	^D2,			;TEST BITS 8, 7 SET
  6704					<SN=SN+1
  6705						ZZ=ZZ-1000
  6706						MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6707						MOVSI	AC,177400		;SETUP AC
  6708						MOVSI	AC-1,400		;SETUP BR
  6709						FMP	AC,AC-1			;C(AC) X C(E)
  6710						CAMN	AC,AC-2			;TEST PROD
  6711						ER3	AC,SN			;BIT UNDER TEST FAILED
  6712						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6713					>
  6714			001501		SN=SN+1
  6715			375400			ZZ=ZZ-1000
  6716	036715	205 12 0 00 375400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6717	036716	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6718	036717	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6719	036720	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6720	036721	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6721	036722	003 14 0 00 001501 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6722	036723	321 16 0 00 036715 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6723
  6724			001502		SN=SN+1
  6725			374400			ZZ=ZZ-1000
  6726	036724	205 12 0 00 374400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6727	036725	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6728	036726	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6729	036727	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6730	036730	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6731	036731	003 14 0 00 001502 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6732	036732	321 16 0 00 036724 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6733
  6734					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 8-1
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0192

  6735										;TEST BIT 6 SET
  6736	036733	205 12 0 00 372400 	P1600:	MOVSI	AC-2,372400		;SETUP FOR COMPARISON
  6737	036734	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6738	036735	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6739	036736	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6740	036737	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6741	036740	003 14 0 00 001601 		ER3	AC,1601			;FE BIT 6 FAILED TO SET
  6742	036741	321 16 0 00 036733 		JUMPL	AC+2,P1600		;LOOP ON ERROR SWITCH
  6743
  6744			001700		SN=1700
  6745			367400			ZZ=367400
  6746
  6747					P1700:	REPEAT	^D2,			;TEST BITS 5-4 SET
  6748					<SN=SN+1
  6749						ZZ=ZZ-1000
  6750						MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6751						MOVSI	AC,177400		;SETUP AC
  6752						MOVSI	AC-1,400		;SETUP BR
  6753						FMP	AC,AC-1			;C(AC) X C(E)
  6754						CAMN	AC,AC-2			;TEST PROD
  6755						ER3	AC,SN			;BIT UNDER TEST FAILED
  6756						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6757					>
  6758			001701		SN=SN+1
  6759			366400			ZZ=ZZ-1000
  6760	036742	205 12 0 00 366400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6761	036743	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6762	036744	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6763	036745	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6764	036746	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6765	036747	003 14 0 00 001701 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6766	036750	321 16 0 00 036742 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6767
  6768			001702		SN=SN+1
  6769			365400			ZZ=ZZ-1000
  6770	036751	205 12 0 00 365400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6771	036752	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6772	036753	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6773	036754	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6774	036755	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6775	036756	003 14 0 00 001702 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6776	036757	321 16 0 00 036751 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6777
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0193

  6778			002000		SN=2000
  6779			376400			ZZ=376400
  6780
  6781					P2000:	REPEAT	^D2,			;TEST BITS 3,2 SET
  6782					<SN=SN+1
  6783						ZZ=ZZ-40000
  6784						MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6785						MOVSI	AC,177400		;SETUP AC
  6786						MOVSI	AC-1,400		;SETUP BR
  6787						FMP	AC,AC-1			;C(AC) X C(E)
  6788						CAMN	AC,AC-2			;TEST PROD
  6789						ER3	AC,SN			;BIT UNDER TEST FAILED
  6790						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6791					>
  6792			002001		SN=SN+1
  6793			336400			ZZ=ZZ-40000
  6794	036760	205 12 0 00 336400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6795	036761	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6796	036762	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6797	036763	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6798	036764	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6799	036765	003 14 0 00 002001 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6800	036766	321 16 0 00 036760 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6801
  6802			002002		SN=SN+1
  6803			276400			ZZ=ZZ-40000
  6804	036767	205 12 0 00 276400 		MOVSI	AC-2,ZZ			;SETUP FOR COMPARISON
  6805	036770	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6806	036771	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6807	036772	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6808	036773	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6809	036774	003 14 0 00 002002 		ER3	AC,SN			;BIT UNDER TEST FAILED
  6810	036775	321 16 0 00 036767 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  6811
  6812
  6813										;TEST BIT 1 SET
  6814	036776	205 12 0 00 176400 	P2100:	MOVSI	AC-2,176400		;SETUP FOR COMPARISON
  6815	036777	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6816	037000	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6817	037001	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6818	037002	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD
  6819	037003	003 14 0 00 002101 		ER3	AC,2101			;BIT UNDER TEST FAILED
  6820	037004	321 16 0 00 036776 		JUMPL	AC+2,P2100		;LOOP ON ERROR SWITCH
  6821					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9-1
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0194

  6822
  6823										;TEST BIT 0 SET
  6824	037005	254 02 1 00 070641 	P2200:	JRST	2,@[.+1]		;CLEAR ARFXU FLAG
  6825	037006	205 12 0 00 376400 		MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  6826	037007	205 14 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  6827	037010	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6828	037011	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6829	037012	265 11 0 00 037013 		JSP	AC-3,.+1		;STORE FLAGS AND PC
  6830	037013	607 11 0 00 000100 		TLNN	AC-3,FXU		;EXAMINE FXU FLAG
  6831	037014	013 11 0 00 002201 		ER13	AC-3,2201		;FXU NOT SET
  6832	037015	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD=376400000000
  6833	037016	003 14 0 00 002201 		ER3	AC,2201			;BIT 0 FAILED TO SET
  6834	037017	254 02 0 11 000005 		JRST	2,5(AC-3)		;CLEAR AROV, ARFOV FLAGS
  6835	037020	321 16 0 00 037005 		JUMPL	AC+2,P2200		;LOOP ON ERROR SWITCH
  6836
  6837					;TEST FMP - EXP CAL
  6838					;AR=377400000000
  6839					;BR=000400000000
  6840					;CORR PROD=176400000000
  6841					;ERR PROD=142400000000
  6842
  6843			000014			AC=14
  6844						SAVEAC	(1,1)^
  6845	037021	201 16 0 00 037021 		MOVEI	AC+2,.
  6846	037022	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6847	037023	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6848	037024	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6849
  6850	037025	205 12 0 00 142400 	P2300:	MOVSI	AC-2,142400		;SETUP FOR COMPARISON
  6851	037026	205 14 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  6852	037027	205 13 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6853	037030	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  6854	037031	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD=142400000000
  6855	037032	003 14 0 00 002301 		ER3	AC,2301
  6856	037033	321 16 0 00 037025 		JUMPL	AC+2,P2300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 10
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0195

  6857					;TEST FMP - EXP CAL
  6858					;TEST ABILITY TO CLEAR SC BITS 7, 5, 4
  6859					;AR=377400000000
  6860					;BR=000400000000
  6861					;CORR PROD=176400000000
  6862					;ERR PRODS=112.4, 120.4, 130.4
  6863
  6864			000013			AC=13
  6865						SAVEAC	(1,1)^
  6866	037034	201 15 0 00 037034 		MOVEI	AC+2,.
  6867	037035	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6868	037036	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6869	037037	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6870
  6871										;TEST SC7 CLEARING
  6872	037040	205 11 0 00 112400 	P2400:	MOVSI	AC-2,112400		;SETUP FOR COMPARISON
  6873	037041	205 13 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  6874	037042	205 12 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6875	037043	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC) X C(E)
  6876	037044	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST PROD=112400000000
  6877	037045	003 13 0 00 002401 		ER3	AC,2401			;SC7 FAILED TO CLEAR
  6878	037046	321 15 0 00 037040 		JUMPL	AC+2,P2400		;LOOP ON ERROR SWITCH
  6879
  6880										;TEST SC5 CLEARING
  6881	037047	205 11 0 00 120400 	P2500:	MOVSI	AC-2,120400		;SETUP FOR COMPARISON
  6882	037050	205 13 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  6883	037051	205 12 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6884	037052	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC) X C(E)
  6885	037053	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST PROD=120400000000
  6886	037054	003 13 0 00 002501 		ER3	AC,2501			;SC5 FAILED TO CLEAR
  6887	037055	321 15 0 00 037047 		JUMPL	AC+2,P2500		;LOOP ON ERROR SWITCH
  6888										;TEST SC4 CLEARING
  6889	037056	205 11 0 00 130400 	P2600:	MOVSI	AC-2,130400		;SETUP FOR COMPARISON
  6890	037057	205 13 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  6891	037060	205 12 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6892	037061	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC) X C(E)
  6893	037062	316 13 0 00 000011 		CAMN	AC,AC-2			;TEST PROD=130400000000
  6894	037063	003 13 0 00 002601 		ER3	AC,2601			;SC4 FAILED TO CLEAR
  6895	037064	321 15 0 00 037056 		JUMPL	AC+2,P2600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 11
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0196

  6896					;TEST FMP - EXP CAL
  6897					;AR=377400000000
  6898					;BR=000400000000
  6899					;CORR PROD=176400000000
  6900					;ERR PROD=601400000000
  6901
  6902			000012			AC=12
  6903						SAVEAC	(1,1)^
  6904	037065	201 14 0 00 037065 		MOVEI	AC+2,.
  6905	037066	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6906	037067	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6907	037070	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6908
  6909	037071	205 10 0 00 601400 	P2700:	MOVSI	AC-2,601400		;SETUP FOR COMPARISON
  6910	037072	205 12 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  6911	037073	205 11 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6912	037074	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC) X C(E)
  6913	037075	316 12 0 00 000010 		CAMN	AC,AC-2			;TEST PROD=601400000000
  6914	037076	003 12 0 00 002701 		ER3	AC,2701
  6915	037077	321 14 0 00 037071 		JUMPL	AC+2,P2700		;LOOP ON ERROR SWITCH
  6916
  6917					;TEST FMP - EXP CAL
  6918					;AR=577400000000
  6919					;BR=000400000000
  6920					;CORR PROD=377400000000 AND UNDERFLOW
  6921					;ERR PROD=376400000000
  6922
  6923			000011			AC=11
  6924						SAVEAC	(1,1)^
  6925	037100	201 13 0 00 037100 		MOVEI	AC+2,.
  6926	037101	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6927	037102	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6928	037103	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6929
  6930	037104	205 07 0 00 376400 	P3000:	MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  6931	037105	205 11 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  6932	037106	205 10 0 00 000400 		MOVSI	AC-1,400		;SETUP BR
  6933	037107	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC) X C(E)
  6934	037110	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST PROD=376400000000
  6935	037111	003 11 0 00 003001 		ER3	AC,3001
  6936	037112	321 13 0 00 037104 		JUMPL	AC+2,P3000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 12
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0197

  6937					;TEST FMP - EXP CAL
  6938					;AR=000400000000
  6939					;BR=200400000000
  6940					;CORR PROD=377400000000 AND UNDERFLOW
  6941					;ERR PROD=177400000000 AND OVERFLOW
  6942
  6943			000010			AC=10
  6944						SAVEAC	(1,1)^
  6945	037113	201 12 0 00 037113 		MOVEI	AC+2,.
  6946	037114	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6947	037115	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6948	037116	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6949
  6950	037117	255 10 0 00 037120 	P3100:	JFCL	10,.+1			;CLEAR AROV, EXEC NEXT INST
  6951	037120	205 06 0 00 177400 		MOVSI	AC-2,177400		;SETUP FOR COMPARISON
  6952	037121	205 10 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6953	037122	205 07 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  6954	037123	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  6955	037124	265 05 0 00 037125 		JSP	AC-3,.+1		;READ FLAGS
  6956	037125	255 10 0 00 037127 		JFCL	10,.+2			;TEST FOR OVERFLOW
  6957	037126	013 05 0 00 003101 		ER13	AC-3,3101		;AROV NOT SET
  6958	037127	607 05 0 00 000100 		TLNN	AC-3,FXU		;EXAMINE FXU FLAG
  6959	037130	013 05 0 00 003101 		ER13	AC-3,3101		;FXU NOT SET
  6960	037131	316 10 0 00 000006 		CAMN	AC,AC-2			;TEST PROD=177400000000
  6961	037132	003 10 0 00 003101 		ER3	AC,3101
  6962	037133	321 12 0 00 037117 		JUMPL	AC+2,P3100		;LOOP ON ERROR SWITCH
  6963
  6964					;TEST FMP - EXP CAL
  6965					;AR=000400000000
  6966					;BR=200400000000
  6967					;CORR PROD=377400000000 AND UNDERFLOW
  6968					;ERR PROD=376400000000 AND OVER/UNDERFLOW NOT
  6969
  6970			000007			AC=7
  6971						SAVEAC	(1,1)^
  6972	037134	201 11 0 00 037134 		MOVEI	AC+2,.
  6973	037135	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6974	037136	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6975	037137	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6976
  6977	037140	205 05 0 00 376400 	P3200:	MOVSI	AC-2,376400		;SETUP FOR COMPARISON
  6978	037141	205 07 0 00 000400 		MOVSI	AC,400			;SETUP AC
  6979	037142	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  6980	037143	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC) X C(E)
  6981	037144	316 07 0 00 000005 		CAMN	AC,AC-2			;TEST PROD=376400000000
  6982	037145	003 07 0 00 003201 		ER3	AC,3201			;FP EXP ADD ASSERTED
  6983	037146	321 11 0 00 037140 		JUMPL	AC+2,P3200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 13
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0198

  6984					;TEST FMP - EXP CAL
  6985					;AR=200400000000 (+1/2)
  6986					;BR=577400000000 (-1/2)
  6987					;CORR PROD=600400000000 (-1/4)
  6988					;ERR PROD=401400000000
  6989
  6990			000006			AC=6
  6991						SAVEAC	(1,1)^
  6992	037147	201 10 0 00 037147 		MOVEI	AC+2,.
  6993	037150	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  6994	037151	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  6995	037152	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  6996
  6997	037153	205 04 0 00 401400 	P3300:	MOVSI	AC-2,401400		;SETUP FOR COMPARISON
  6998	037154	205 06 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  6999	037155	205 05 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  7000	037156	160 06 0 00 000005 		FMP	AC,AC-1			;C(AC) X C(E)
  7001	037157	316 06 0 00 000004 		CAMN	AC,AC-2			;TEST PROD=401400000000
  7002	037160	003 06 0 00 003301 		ER3	AC,3301			;FP EXP ADD FAILED
  7003	037161	321 10 0 00 037153 		JUMPL	AC+2,P3300		;LOOP ON ERROR SWITCH
  7004
  7005					;TEST FMP - EXP CAL
  7006					;AR=200400000000
  7007					;BR=200400000000
  7008					;CORR PROD=177400000000
  7009					;ERR PROD=377400000000 AND UNDERFLOW
  7010
  7011			000005			AC=5
  7012						SAVEAC	(1,1)^
  7013	037162	201 07 0 00 037162 		MOVEI	AC+2,.
  7014	037163	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7015	037164	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7016	037165	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7017
  7018	037166	254 02 1 00 070642 	P3400:	JRST	2,@[.+1]		;CLEAR AR FXU, EXEC NEXT INST
  7019	037167	205 03 0 00 377400 		MOVSI	AC-2,377400		;SETUP FOR COMPARISON
  7020	037170	205 05 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7021	037171	205 04 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7022	037172	160 05 0 00 000004 		FMP	AC,AC-1			;C(AC) X C(E)
  7023	037173	265 02 0 00 037174 		JSP	AC-3,.+1		;STORE FLAGS, PC
  7024	037174	603 02 0 00 000100 		TLNE	AC-3,FXU		;EXAMINE FXU FLAG
  7025	037175	013 02 0 00 003401 		ER13	AC-3,3401		;FXU IS SET
  7026	037176	316 05 0 00 000003 		CAMN	AC,AC-2			;TEST PROD=377400000000
  7027	037177	003 05 0 00 003401 		ER3	AC,3401
  7028	037200	254 02 0 02 000005 		JRST	2,5(AC-3)		;CLEAR AROV, ARFOV FLAGS
  7029	037201	321 07 0 00 037166 		JUMPL	AC+2,P3400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 14
DFKCA2	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0199

  7030
  7031					;TEST FMP - EXP CAL
  7032					;AR=200400000000 (+1/2)
  7033					;BR=205400000000 (+20)
  7034					;CORR PROD=204400000000 (+10)
  7035					;ERR PROD=372400000000 AND OVERFLOW
  7036
  7037			000014			AC=14
  7038						SAVEAC	(1,1)^
  7039	037202	201 16 0 00 037202 		MOVEI	AC+2,.
  7040	037203	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7041	037204	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7042	037205	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7043
  7044	037206	255 10 0 00 037207 	P3500:	JFCL	10,.+1			;CLEAR AROV, EXEC NEXT INST
  7045	037207	205 12 0 00 372400 		MOVSI	AC-2,372400		;SETUP FOR COMPARISON
  7046	037210	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7047	037211	205 13 0 00 205400 		MOVSI	AC-1,205400		;SETUP BR
  7048	037212	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  7049	037213	265 11 0 00 037214 		JSP	AC-3,.+1		;SAVE FLAGS
  7050	037214	255 10 0 00 037216 		JFCL	10,.+2			;TEST AROV
  7051	037215	254 00 0 00 037217 		JRST	.+2
  7052	037216	013 11 0 00 003501 		ER13	AC-3,3501		;AROV SET
  7053	037217	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD=372400000000
  7054	037220	003 14 0 00 003501 		ER3	AC,3501
  7055	037221	321 16 0 00 037206 		JUMPL	AC+2,P3500		;LOOP ON ERROR SWITCH
  7056
  7057					;TEST FMP
  7058					;AR=0
  7059					;BR=577400000000
  7060					;CORR PROD=0 (NR ALL ZERO COND)
  7061					;ERR PROD=312400000000 AND UNDERFLOW
  7062
  7063			000014			AC=14
  7064						SAVEAC	(1,1)^
  7065	037222	201 16 0 00 037222 		MOVEI	AC+2,.
  7066	037223	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7067	037224	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7068	037225	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7069
  7070	037226	205 12 0 00 312400 	P3600:	MOVSI	AC-2,312400		;SETUP FOR COMPARISON
  7071	037227	400 14 0 00 000000 		SETZ	AC,			;SETUP AC
  7072	037230	205 13 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  7073	037231	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC) X C(E)
  7074	037232	316 14 0 00 000012 		CAMN	AC,AC-2			;TEST PROD=312400000000
  7075	037233	003 14 0 00 003601 		ER3	AC,3601
  7076	037234	321 16 0 00 037226 		JUMPL	AC+2,P3600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 15
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0200

  7077					SUBTTL  PART IIIB-GEN TEST-FMP,FDV
  7078
  7079					;PART IIIB-GENTEST -FMP, FDV
  7080					;TEST FMP-EXPCAL
  7081					;NR NORMAL
  7082					;TWO POSITIVES, INCREASING BR EXPONENT
  7083					;AR=200400000000
  7084					;BR=201.4,202.4,204.4,210.4,220.4
  7085					;240.4,300.4
  7086					;PRODS=200.4,201.4,203.4,207.4,217.4
  7087					;237.4,277.4
  7088
  7089			000014			AC=14
  7090						SAVEAC	(1,1)^
  7091	037235	201 16 0 00 037235 		MOVEI	AC+2,.
  7092	037236	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7093	037237	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7094	037240	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7095			003700		SN=3700
  7096			000400			ZZ=400
  7097
  7098					P3700:	REPEAT	^D7,			;TEST FMP
  7099					<SN=SN+1
  7100						ZZ=ZZ+ZZ
  7101						XX=ZZ-1000
  7102						MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7103						MOVSI	AC,200400		;SETUP AC
  7104						MOVSI	AC-1,200400+ZZ		;SETUP BR
  7105						FMP	AC,AC-1			;C(AC)XC(E)
  7106						CAME	AC,AC-2			;TEST PROD
  7107						ER3	AC,SN			;FMP FAILED
  7108						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7109					>
  7110			003701		SN=SN+1
  7111			001000			ZZ=ZZ+ZZ
  7112			000000			XX=ZZ-1000
  7113	037241	205 12 0 00 200400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7114	037242	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7115	037243	205 13 0 00 201400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7116	037244	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7117	037245	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7118	037246	003 14 0 00 003701 		ER3	AC,SN			;FMP FAILED
  7119	037247	321 16 0 00 037241 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7120
  7121			003702		SN=SN+1
  7122			002000			ZZ=ZZ+ZZ
  7123			001000			XX=ZZ-1000
  7124	037250	205 12 0 00 201400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7125	037251	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7126	037252	205 13 0 00 202400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7127	037253	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7128	037254	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7129	037255	003 14 0 00 003702 		ER3	AC,SN			;FMP FAILED
  7130	037256	321 16 0 00 037250 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7131
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 15-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0201

  7132			003703		SN=SN+1
  7133			004000			ZZ=ZZ+ZZ
  7134			003000			XX=ZZ-1000
  7135	037257	205 12 0 00 203400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7136	037260	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7137	037261	205 13 0 00 204400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7138	037262	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7139	037263	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7140	037264	003 14 0 00 003703 		ER3	AC,SN			;FMP FAILED
  7141	037265	321 16 0 00 037257 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7142
  7143			003704		SN=SN+1
  7144			010000			ZZ=ZZ+ZZ
  7145			007000			XX=ZZ-1000
  7146	037266	205 12 0 00 207400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7147	037267	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7148	037270	205 13 0 00 210400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7149	037271	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7150	037272	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7151	037273	003 14 0 00 003704 		ER3	AC,SN			;FMP FAILED
  7152	037274	321 16 0 00 037266 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7153
  7154			003705		SN=SN+1
  7155			020000			ZZ=ZZ+ZZ
  7156			017000			XX=ZZ-1000
  7157	037275	205 12 0 00 217400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7158	037276	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7159	037277	205 13 0 00 220400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7160	037300	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7161	037301	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7162	037302	003 14 0 00 003705 		ER3	AC,SN			;FMP FAILED
  7163	037303	321 16 0 00 037275 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7164
  7165			003706		SN=SN+1
  7166			040000			ZZ=ZZ+ZZ
  7167			037000			XX=ZZ-1000
  7168	037304	205 12 0 00 237400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7169	037305	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7170	037306	205 13 0 00 240400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7171	037307	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7172	037310	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7173	037311	003 14 0 00 003706 		ER3	AC,SN			;FMP FAILED
  7174	037312	321 16 0 00 037304 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7175
  7176			003707		SN=SN+1
  7177			100000			ZZ=ZZ+ZZ
  7178			077000			XX=ZZ-1000
  7179	037313	205 12 0 00 277400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7180	037314	205 14 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7181	037315	205 13 0 00 300400 		MOVSI	AC-1,200400+ZZ		;SETUP BR
  7182	037316	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7183	037317	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7184	037320	003 14 0 00 003707 		ER3	AC,SN			;FMP FAILED
  7185	037321	321 16 0 00 037313 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7186
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0202

  7187					;TEST FMP-EXP CAL
  7188					;NR NORMAL
  7189					;TWO POSITIVES, INCREASING AR EXPONENT
  7190					;AR=201.4,202.4,204.4,210.4,220.4,
  7191					;240.4,300.4
  7192					;BR=200400000000
  7193					;PRODS=200.4 201.4,203.4,207.4,217.4,237.4,277.4
  7194
  7195			000014			AC=14
  7196						SAVEAC	(1,1)^
  7197	037322	201 16 0 00 037322 		MOVEI	AC+2,.
  7198	037323	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7199	037324	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7200	037325	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7201			004000		SN=4000
  7202			000400			ZZ=400
  7203
  7204					P4000:	REPEAT	^D7,			;TEST FMP
  7205					<SN=SN+1
  7206						ZZ=ZZ+ZZ
  7207						XX=ZZ-1000
  7208						MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7209						MOVSI	AC,200400+ZZ		;SETUP AC
  7210						MOVSI	AC-1,200400		;SETUP BR
  7211						FMP	AC,AC-1			;C(AC)XC(E)
  7212						CAME	AC,AC-2			;TEST PROD
  7213						ER3	AC,SN			;FMP FAILED
  7214						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7215					>
  7216			004001		SN=SN+1
  7217			001000			ZZ=ZZ+ZZ
  7218			000000			XX=ZZ-1000
  7219	037326	205 12 0 00 200400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7220	037327	205 14 0 00 201400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7221	037330	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7222	037331	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7223	037332	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7224	037333	003 14 0 00 004001 		ER3	AC,SN			;FMP FAILED
  7225	037334	321 16 0 00 037326 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7226
  7227			004002		SN=SN+1
  7228			002000			ZZ=ZZ+ZZ
  7229			001000			XX=ZZ-1000
  7230	037335	205 12 0 00 201400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7231	037336	205 14 0 00 202400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7232	037337	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7233	037340	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7234	037341	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7235	037342	003 14 0 00 004002 		ER3	AC,SN			;FMP FAILED
  7236	037343	321 16 0 00 037335 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7237
  7238			004003		SN=SN+1
  7239			004000			ZZ=ZZ+ZZ
  7240			003000			XX=ZZ-1000
  7241	037344	205 12 0 00 203400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0203

  7242	037345	205 14 0 00 204400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7243	037346	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7244	037347	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7245	037350	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7246	037351	003 14 0 00 004003 		ER3	AC,SN			;FMP FAILED
  7247	037352	321 16 0 00 037344 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7248
  7249			004004		SN=SN+1
  7250			010000			ZZ=ZZ+ZZ
  7251			007000			XX=ZZ-1000
  7252	037353	205 12 0 00 207400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7253	037354	205 14 0 00 210400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7254	037355	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7255	037356	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7256	037357	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7257	037360	003 14 0 00 004004 		ER3	AC,SN			;FMP FAILED
  7258	037361	321 16 0 00 037353 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7259
  7260			004005		SN=SN+1
  7261			020000			ZZ=ZZ+ZZ
  7262			017000			XX=ZZ-1000
  7263	037362	205 12 0 00 217400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7264	037363	205 14 0 00 220400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7265	037364	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7266	037365	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7267	037366	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7268	037367	003 14 0 00 004005 		ER3	AC,SN			;FMP FAILED
  7269	037370	321 16 0 00 037362 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7270
  7271			004006		SN=SN+1
  7272			040000			ZZ=ZZ+ZZ
  7273			037000			XX=ZZ-1000
  7274	037371	205 12 0 00 237400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7275	037372	205 14 0 00 240400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7276	037373	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7277	037374	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7278	037375	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7279	037376	003 14 0 00 004006 		ER3	AC,SN			;FMP FAILED
  7280	037377	321 16 0 00 037371 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7281
  7282			004007		SN=SN+1
  7283			100000			ZZ=ZZ+ZZ
  7284			077000			XX=ZZ-1000
  7285	037400	205 12 0 00 277400 		MOVSI	AC-2,200400+XX		;SETUP FOR COMPARISON
  7286	037401	205 14 0 00 300400 		MOVSI	AC,200400+ZZ		;SETUP AC
  7287	037402	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7288	037403	160 14 0 00 000013 		FMP	AC,AC-1			;C(AC)XC(E)
  7289	037404	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7290	037405	003 14 0 00 004007 		ER3	AC,SN			;FMP FAILED
  7291	037406	321 16 0 00 037400 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7292
  7293					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16-2
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0204

  7294					;TEST FMP - EXP CAL
  7295					;FP EXP ADD, NR NORMAL
  7296					;AR=200400000000
  7297					;BR=577.4,576.4,575.4
  7298					;PRODS=600.4,577.4,576.4
  7299
  7300			000013			AC=13
  7301						SAVEAC	(1,1)^
  7302	037407	201 15 0 00 037407 		MOVEI	AC+2,.
  7303	037410	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7304	037411	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7305	037412	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7306			004100		SN=4100
  7307			601400			XX=601400
  7308			600400			ZZ=600400
  7309
  7310					P4100:	REPEAT	^D3,			;TEST FMP
  7311					<SN=SN+1
  7312						XX=XX-1000
  7313						ZZ=ZZ-1000
  7314						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7315						MOVSI	AC,200400		;SETUP AC
  7316						MOVSI	AC-1,ZZ			;SETUP BR
  7317						FMP	AC,AC-1			;C(AC)XC(E)
  7318						CAME	AC,AC-2			;TEST PROD
  7319						ER3	AC,SN			;FMP FAILED
  7320						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7321					>
  7322			004101		SN=SN+1
  7323			600400			XX=XX-1000
  7324			577400			ZZ=ZZ-1000
  7325	037413	205 11 0 00 600400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7326	037414	205 13 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7327	037415	205 12 0 00 577400 		MOVSI	AC-1,ZZ			;SETUP BR
  7328	037416	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC)XC(E)
  7329	037417	312 13 0 00 000011 		CAME	AC,AC-2			;TEST PROD
  7330	037420	003 13 0 00 004101 		ER3	AC,SN			;FMP FAILED
  7331	037421	321 15 0 00 037413 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7332
  7333			004102		SN=SN+1
  7334			577400			XX=XX-1000
  7335			576400			ZZ=ZZ-1000
  7336	037422	205 11 0 00 577400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7337	037423	205 13 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  7338	037424	205 12 0 00 576400 		MOVSI	AC-1,ZZ			;SETUP BR
  7339	037425	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC)XC(E)
  7340	037426	312 13 0 00 000011 		CAME	AC,AC-2			;TEST PROD
  7341	037427	003 13 0 00 004102 		ER3	AC,SN			;FMP FAILED
  7342	037430	321 15 0 00 037422 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7343
  7344			004103		SN=SN+1
  7345			576400			XX=XX-1000
  7346			575400			ZZ=ZZ-1000
  7347	037431	205 11 0 00 576400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7348	037432	205 13 0 00 200400 		MOVSI	AC,200400		;SETUP AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16-3
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0205

  7349	037433	205 12 0 00 575400 		MOVSI	AC-1,ZZ			;SETUP BR
  7350	037434	160 13 0 00 000012 		FMP	AC,AC-1			;C(AC)XC(E)
  7351	037435	312 13 0 00 000011 		CAME	AC,AC-2			;TEST PROD
  7352	037436	003 13 0 00 004103 		ER3	AC,SN			;FMP FAILED
  7353	037437	321 15 0 00 037431 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7354
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 17
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0206

  7355					;TEST FMP
  7356					;AR=200777777777,6,5,4
  7357					;BR=200400000000
  7358					;PRODS=177777777777,6,5,4
  7359
  7360			000012			AC=12
  7361						SAVEAC	(1,1)^
  7362	037440	201 14 0 00 037440 		MOVEI	AC+2,.
  7363	037441	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7364	037442	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7365	037443	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7366			004200		SN=4200
  7367			000000			ZZ=0
  7368					P4200:	REPEAT	^D4,			;TEST FMP
  7369					<SN=SN+1
  7370						ZZ=ZZ-1
  7371						HRLI	AC-2,177777		;SETUP AC-2
  7372						HRRI	AC-2,ZZ			;FOR COMPARISON
  7373						HRLI	AC,200777		;SETUP
  7374						HRRI	AC,ZZ			;AC
  7375						MOVSI	AC-1,200400		;SETUP BR
  7376						FMP	AC,AC-1			;C(AC)XC(E)
  7377						CAME	AC,AC-2			;TEST PROD
  7378						ER3	AC,SN			;FMP FAILED
  7379						JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7380					>
  7381			004201		SN=SN+1
  7382		777777	777777			ZZ=ZZ-1
  7383	037444	505 10 0 00 177777 		HRLI	AC-2,177777		;SETUP AC-2
  7384	037445	541 10 0 00 777777 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7385	037446	505 12 0 00 200777 		HRLI	AC,200777		;SETUP
  7386	037447	541 12 0 00 777777 		HRRI	AC,ZZ			;AC
  7387	037450	205 11 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7388	037451	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC)XC(E)
  7389	037452	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  7390	037453	003 12 0 00 004201 		ER3	AC,SN			;FMP FAILED
  7391	037454	321 14 0 00 037444 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7392
  7393			004202		SN=SN+1
  7394		777777	777776			ZZ=ZZ-1
  7395	037455	505 10 0 00 177777 		HRLI	AC-2,177777		;SETUP AC-2
  7396	037456	541 10 0 00 777776 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7397	037457	505 12 0 00 200777 		HRLI	AC,200777		;SETUP
  7398	037460	541 12 0 00 777776 		HRRI	AC,ZZ			;AC
  7399	037461	205 11 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7400	037462	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC)XC(E)
  7401	037463	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  7402	037464	003 12 0 00 004202 		ER3	AC,SN			;FMP FAILED
  7403	037465	321 14 0 00 037455 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7404
  7405			004203		SN=SN+1
  7406		777777	777775			ZZ=ZZ-1
  7407	037466	505 10 0 00 177777 		HRLI	AC-2,177777		;SETUP AC-2
  7408	037467	541 10 0 00 777775 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7409	037470	505 12 0 00 200777 		HRLI	AC,200777		;SETUP
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 17-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0207

  7410	037471	541 12 0 00 777775 		HRRI	AC,ZZ			;AC
  7411	037472	205 11 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7412	037473	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC)XC(E)
  7413	037474	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  7414	037475	003 12 0 00 004203 		ER3	AC,SN			;FMP FAILED
  7415	037476	321 14 0 00 037466 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7416
  7417			004204		SN=SN+1
  7418		777777	777774			ZZ=ZZ-1
  7419	037477	505 10 0 00 177777 		HRLI	AC-2,177777		;SETUP AC-2
  7420	037500	541 10 0 00 777774 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7421	037501	505 12 0 00 200777 		HRLI	AC,200777		;SETUP
  7422	037502	541 12 0 00 777774 		HRRI	AC,ZZ			;AC
  7423	037503	205 11 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7424	037504	160 12 0 00 000011 		FMP	AC,AC-1			;C(AC)XC(E)
  7425	037505	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  7426	037506	003 12 0 00 004204 		ER3	AC,SN			;FMP FAILED
  7427	037507	321 14 0 00 037477 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7428
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 18
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0208

  7429					;TEST FMP-EXP CAL
  7430					;NR ALL ZERO
  7431					;AR=0
  7432					;BR=200400000000
  7433					;PROD=0
  7434
  7435			000011			AC=11
  7436						SAVEAC	(1,1)^
  7437	037510	201 13 0 00 037510 		MOVEI	AC+2,.
  7438	037511	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7439	037512	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7440	037513	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7441
  7442	037514	400 11 0 00 000000 	P4300:	SETZ	AC,			;SETUP AC
  7443	037515	205 10 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7444	037516	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)XC(E)
  7445	037517	332 00 0 00 000011 		SKIPE	AC			;TEST PROD
  7446	037520	003 11 0 00 004301 		ER3	AC,4301			;FMP FAILED
  7447	037521	321 13 0 00 037514 		JUMPL	AC+2,P4300		;LOOP ON ERROR SWITCH
  7448
  7449					;TEST FMP-EXP CAL
  7450					;NEGATIVE AR EXP
  7451					;AR=577400000000
  7452					;BR=200400000000
  7453					;PROD=600400000000
  7454
  7455			000010			AC=10
  7456						SAVEAC	(1,1)^
  7457	037522	201 12 0 00 037522 		MOVEI	AC+2,.
  7458	037523	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7459	037524	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7460	037525	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7461
  7462	037526	205 06 0 00 600400 	P4400:	MOVSI	AC-2,600400		;SETUP FOR COMPARISON
  7463	037527	205 10 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  7464	037530	205 07 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7465	037531	160 10 0 00 000007 		FMP	AC,AC-1			;C(AC) X C(E)
  7466	037532	312 10 0 00 000006 		CAME	AC,AC-2			;TEST PROD
  7467	037533	003 10 0 00 004401 		ER3	AC,4401			;FMP FAILED
  7468	037534	321 12 0 00 037526 		JUMPL	AC+2,P4400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 19
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0209

  7469					;TEST FMP-EXP CAL
  7470					;TWO NEGATIVES-INCREASING AR EXPONENT
  7471					;AR=501.7,502.7,503.7,504.7,505.7
  7472					;BR=500400000000
  7473					;PRODS=372.4,371.4,370.4,367.4,366.4
  7474
  7475			000011			AC=11
  7476						SAVEAC	(1,1)^
  7477	037535	201 13 0 00 037535 		MOVEI	AC+2,.
  7478	037536	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7479	037537	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7480	037540	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7481			004500		SN=4500
  7482			373400			XX=373400
  7483			500700			ZZ=500700
  7484
  7485					P4500:	REPEAT	^D5,			;TEST FMP
  7486					<SN=SN+1
  7487						XX=XX-1000
  7488						ZZ=ZZ+1000
  7489						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7490						MOVSI	AC,ZZ			;SETUP AC
  7491						MOVSI	AC-1,500400		;SETUP BR
  7492						FMP	AC,AC-1			;C(AC)+C(E)
  7493						CAME	AC,AC-2			;TEST PROD
  7494						ER3	AC,SN			;FMP FAILED
  7495						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7496					>
  7497			004501		SN=SN+1
  7498			372400			XX=XX-1000
  7499			501700			ZZ=ZZ+1000
  7500	037541	205 07 0 00 372400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7501	037542	205 11 0 00 501700 		MOVSI	AC,ZZ			;SETUP AC
  7502	037543	205 10 0 00 500400 		MOVSI	AC-1,500400		;SETUP BR
  7503	037544	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)+C(E)
  7504	037545	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  7505	037546	003 11 0 00 004501 		ER3	AC,SN			;FMP FAILED
  7506	037547	321 13 0 00 037541 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7507
  7508			004502		SN=SN+1
  7509			371400			XX=XX-1000
  7510			502700			ZZ=ZZ+1000
  7511	037550	205 07 0 00 371400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7512	037551	205 11 0 00 502700 		MOVSI	AC,ZZ			;SETUP AC
  7513	037552	205 10 0 00 500400 		MOVSI	AC-1,500400		;SETUP BR
  7514	037553	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)+C(E)
  7515	037554	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  7516	037555	003 11 0 00 004502 		ER3	AC,SN			;FMP FAILED
  7517	037556	321 13 0 00 037550 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7518
  7519			004503		SN=SN+1
  7520			370400			XX=XX-1000
  7521			503700			ZZ=ZZ+1000
  7522	037557	205 07 0 00 370400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7523	037560	205 11 0 00 503700 		MOVSI	AC,ZZ			;SETUP AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 19-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0210

  7524	037561	205 10 0 00 500400 		MOVSI	AC-1,500400		;SETUP BR
  7525	037562	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)+C(E)
  7526	037563	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  7527	037564	003 11 0 00 004503 		ER3	AC,SN			;FMP FAILED
  7528	037565	321 13 0 00 037557 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7529
  7530			004504		SN=SN+1
  7531			367400			XX=XX-1000
  7532			504700			ZZ=ZZ+1000
  7533	037566	205 07 0 00 367400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7534	037567	205 11 0 00 504700 		MOVSI	AC,ZZ			;SETUP AC
  7535	037570	205 10 0 00 500400 		MOVSI	AC-1,500400		;SETUP BR
  7536	037571	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)+C(E)
  7537	037572	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  7538	037573	003 11 0 00 004504 		ER3	AC,SN			;FMP FAILED
  7539	037574	321 13 0 00 037566 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7540
  7541			004505		SN=SN+1
  7542			366400			XX=XX-1000
  7543			505700			ZZ=ZZ+1000
  7544	037575	205 07 0 00 366400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7545	037576	205 11 0 00 505700 		MOVSI	AC,ZZ			;SETUP AC
  7546	037577	205 10 0 00 500400 		MOVSI	AC-1,500400		;SETUP BR
  7547	037600	160 11 0 00 000010 		FMP	AC,AC-1			;C(AC)+C(E)
  7548	037601	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  7549	037602	003 11 0 00 004505 		ER3	AC,SN			;FMP FAILED
  7550	037603	321 13 0 00 037575 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7551
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0211

  7552					;TEST FMP-EXP CAL
  7553					;TWO POSITIVES
  7554					;AR MANTISSA DECREASING
  7555					;NR NORM TEST
  7556					;AR=200.2,200.1,200.04,200.02,200.01,200.004,200.002
  7557					;BR=200400000000
  7558					;PRODS=176.4,175.4,174.4,173.4,172.4,171.4,170.4
  7559
  7560			000007			AC=7
  7561						SAVEAC	(1,1)^
  7562	037604	201 11 0 00 037604 		MOVEI	AC+2,.
  7563	037605	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7564	037606	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7565	037607	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7566			004600		SN=4600
  7567			177400			XX=177400
  7568			000400			ZZ=400
  7569
  7570					P4600:	REPEAT	^D7,			;TEST FMP
  7571					<SN=SN+1
  7572						XX=XX-1000
  7573						ZZ=ZZ/2
  7574						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7575						MOVSI	AC,200000+ZZ		;SETUP AC
  7576						MOVSI	AC-1,200400		;SETUP BR
  7577						FMP	AC,AC-1			;C(AC)XC(E)
  7578						CAME	AC,AC-2			;TEST PROD
  7579						ER3	AC,SN			;FMP FAILED
  7580						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7581					>
  7582			004601		SN=SN+1
  7583			176400			XX=XX-1000
  7584			000200			ZZ=ZZ/2
  7585	037610	205 05 0 00 176400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7586	037611	205 07 0 00 200200 		MOVSI	AC,200000+ZZ		;SETUP AC
  7587	037612	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7588	037613	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7589	037614	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7590	037615	003 07 0 00 004601 		ER3	AC,SN			;FMP FAILED
  7591	037616	321 11 0 00 037610 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7592
  7593			004602		SN=SN+1
  7594			175400			XX=XX-1000
  7595			000100			ZZ=ZZ/2
  7596	037617	205 05 0 00 175400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7597	037620	205 07 0 00 200100 		MOVSI	AC,200000+ZZ		;SETUP AC
  7598	037621	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7599	037622	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7600	037623	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7601	037624	003 07 0 00 004602 		ER3	AC,SN			;FMP FAILED
  7602	037625	321 11 0 00 037617 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7603
  7604			004603		SN=SN+1
  7605			174400			XX=XX-1000
  7606			000040			ZZ=ZZ/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0212

  7607	037626	205 05 0 00 174400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7608	037627	205 07 0 00 200040 		MOVSI	AC,200000+ZZ		;SETUP AC
  7609	037630	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7610	037631	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7611	037632	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7612	037633	003 07 0 00 004603 		ER3	AC,SN			;FMP FAILED
  7613	037634	321 11 0 00 037626 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7614
  7615			004604		SN=SN+1
  7616			173400			XX=XX-1000
  7617			000020			ZZ=ZZ/2
  7618	037635	205 05 0 00 173400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7619	037636	205 07 0 00 200020 		MOVSI	AC,200000+ZZ		;SETUP AC
  7620	037637	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7621	037640	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7622	037641	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7623	037642	003 07 0 00 004604 		ER3	AC,SN			;FMP FAILED
  7624	037643	321 11 0 00 037635 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7625
  7626			004605		SN=SN+1
  7627			172400			XX=XX-1000
  7628			000010			ZZ=ZZ/2
  7629	037644	205 05 0 00 172400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7630	037645	205 07 0 00 200010 		MOVSI	AC,200000+ZZ		;SETUP AC
  7631	037646	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7632	037647	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7633	037650	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7634	037651	003 07 0 00 004605 		ER3	AC,SN			;FMP FAILED
  7635	037652	321 11 0 00 037644 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7636
  7637			004606		SN=SN+1
  7638			171400			XX=XX-1000
  7639			000004			ZZ=ZZ/2
  7640	037653	205 05 0 00 171400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7641	037654	205 07 0 00 200004 		MOVSI	AC,200000+ZZ		;SETUP AC
  7642	037655	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7643	037656	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7644	037657	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7645	037660	003 07 0 00 004606 		ER3	AC,SN			;FMP FAILED
  7646	037661	321 11 0 00 037653 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7647
  7648			004607		SN=SN+1
  7649			170400			XX=XX-1000
  7650			000002			ZZ=ZZ/2
  7651	037662	205 05 0 00 170400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7652	037663	205 07 0 00 200002 		MOVSI	AC,200000+ZZ		;SETUP AC
  7653	037664	205 06 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7654	037665	160 07 0 00 000006 		FMP	AC,AC-1			;C(AC)XC(E)
  7655	037666	312 07 0 00 000005 		CAME	AC,AC-2			;TEST PROD
  7656	037667	003 07 0 00 004607 		ER3	AC,SN			;FMP FAILED
  7657	037670	321 11 0 00 037662 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  7658
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 21
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0213

  7659					;TEST FMP-EXP CAL
  7660					;AR=500.7,500.77
  7661					;BR=200400000000
  7662					;PRODS=503.4,506.4
  7663
  7664			000006			AC=6
  7665						SAVEAC	(1,1)^
  7666	037671	201 10 0 00 037671 		MOVEI	AC+2,.
  7667	037672	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7668	037673	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7669	037674	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7670			004700		SN=4700
  7671			500400			XX=500400
  7672			500610			ZZ=500610
  7673
  7674					P4700:	REPEAT	^D2,			;TEST FMP
  7675					<SN=SN+1
  7676						XX=XX+3000
  7677						ZZ=ZZ+70
  7678						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7679						MOVSI	AC,ZZ			;SETUP AC
  7680						MOVSI	AC-1,200400		;SETUP BR
  7681						FMP	AC,AC-1			;C(AC)XC(E)
  7682						CAME	AC,AC-2			;TEST PROD
  7683						ER3	AC,SN			;FMP FAILED
  7684						CAME	AC-1,[200400,,0];EXAMINE C(E)
  7685						ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7686						JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7687					>
  7688			004701		SN=SN+1
  7689			503400			XX=XX+3000
  7690			500700			ZZ=ZZ+70
  7691	037675	205 04 0 00 503400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7692	037676	205 06 0 00 500700 		MOVSI	AC,ZZ			;SETUP AC
  7693	037677	205 05 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7694	037700	160 06 0 00 000005 		FMP	AC,AC-1			;C(AC)XC(E)
  7695	037701	312 06 0 00 000004 		CAME	AC,AC-2			;TEST PROD
  7696	037702	003 06 0 00 004701 		ER3	AC,SN			;FMP FAILED
  7697	037703	312 05 0 00 070614 		CAME	AC-1,[200400,,0];EXAMINE C(E)
  7698	037704	005 05 0 00 004701 		ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7699	037705	321 10 0 00 037675 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7700
  7701			004702		SN=SN+1
  7702			506400			XX=XX+3000
  7703			500770			ZZ=ZZ+70
  7704	037706	205 04 0 00 506400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  7705	037707	205 06 0 00 500770 		MOVSI	AC,ZZ			;SETUP AC
  7706	037710	205 05 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  7707	037711	160 06 0 00 000005 		FMP	AC,AC-1			;C(AC)XC(E)
  7708	037712	312 06 0 00 000004 		CAME	AC,AC-2			;TEST PROD
  7709	037713	003 06 0 00 004702 		ER3	AC,SN			;FMP FAILED
  7710	037714	312 05 0 00 070614 		CAME	AC-1,[200400,,0];EXAMINE C(E)
  7711	037715	005 05 0 00 004702 		ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7712	037716	321 10 0 00 037706 		JUMPL	AC+2,.-^D8		;LOOP ON ERROR SWITCH
  7713
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 21-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0214

  7714					;TEST ECO49
  7715					;TEST UNDERFLOW
  7716					;AR=000400000000
  7717					;BR=000400000000
  7718					;FLAGS=440100
  7719					;SMALLEST NORMALIZED NUMBER SQUARED SHOULD CAUSE UNDERFLOW
  7720
  7721			000006			AC=6
  7722						SAVEAC	(1,1)^
  7723	037717	201 10 0 00 037717 		MOVEI	AC+2,.
  7724	037720	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7725	037721	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7726	037722	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7727
  7728	037723	254 02 1 00 037724 	P5000:	JRST	2,@.+1			;CLEAR PC FLAGS
  7729	037724	000000	037725			XWD	0,.+1
  7730	037725	205 06 0 00 000400 		MOVSI	AC,000400		;GET SMALLEST NORMALIZED NUMBER
  7731	037726	160 06 0 00 000006 		FMP	AC,AC			;SQUARE IT AND CAUSE UNDERFLOW
  7732	037727	265 04 0 00 037730 		JSP	AC-2,.+1		;GET PC FLAGS
  7733	037730	607 04 0 00 000100 		TLNN	AC-2,FXU		;UNDERFLOW SHOULD BE A ONE
  7734	037731	013 04 0 00 005001 		ER13	AC-2,5001		;ERROR
  7735	037732	321 10 0 00 037723 		JUMPL	AC+2,P5000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 22
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0215

  7736					;TEST FMPB
  7737					;AR=200775000000
  7738					;BR=200775000000
  7739					;PROD=200772011000
  7740
  7741			000005			AC=5
  7742						SAVEAC	(1,1)^
  7743	037733	201 07 0 00 037733 		MOVEI	AC+2,.
  7744	037734	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7745	037735	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7746	037736	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7747
  7748	037737	505 03 0 00 200772 	P5100:	HRLI	AC-2,200772		;SETUP AC-2
  7749	037740	541 03 0 00 011000 		HRRI	AC-2,11000		;FOR COMPARISON
  7750	037741	205 05 0 00 200775 		MOVSI	AC,200775		;SETUP AC
  7751	037742	205 04 0 00 200775 		MOVSI	AC-1,200775		;SETUP BR
  7752	037743	163 05 0 00 000004 		FMPB	AC,AC-1			;C(AC)XC(E)
  7753	037744	312 05 0 00 000003 		CAME	AC,AC-2			;TEST PROD (AC)
  7754	037745	003 05 0 00 005101 		ER3	AC,5101			;C(AC) FAILED
  7755	037746	312 04 0 00 000003 		CAME	AC-1,AC-2		;TEST PROD (E)
  7756	037747	005 04 0 00 005101 		ER5	AC-1,5101		;C(E) FAILED
  7757	037750	321 07 0 00 037737 		JUMPL	AC+2,P5100		;LOOP ON ERROR SWITCH
  7758
  7759					;TEST FMPB
  7760					;AR=200774000000
  7761					;BR=200774000000
  7762					;PROD=200770020000
  7763
  7764			000014			AC=14
  7765						SAVEAC	(1,1)^
  7766	037751	201 16 0 00 037751 		MOVEI	AC+2,.
  7767	037752	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7768	037753	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7769	037754	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7770
  7771	037755	505 12 0 00 200770 	P5200:	HRLI	AC-2,200770		;SETUP AC-2
  7772	037756	541 12 0 00 020000 		HRRI	AC-2,20000		;FOR COMPARISON
  7773	037757	205 14 0 00 200774 		MOVSI	AC,200774		;SETUP AC
  7774	037760	205 13 0 00 200774 		MOVSI	AC-1,200774		;SETUP BR
  7775	037761	163 14 0 00 000013 		FMPB	AC,AC-1			;C(AC)XC(E)
  7776	037762	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD (AC)
  7777	037763	003 14 0 00 005201 		ER3	AC,5201			;C(AC) FAILED
  7778	037764	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST PROD (E)
  7779	037765	005 13 0 00 005201 		ER5	AC-1,5201		;C(E) FAILED
  7780	037766	321 16 0 00 037755 		JUMPL	AC+2,P5200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 23
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0216

  7781					;TEST FMPM
  7782					;AR=200773000000
  7783					;BR=200773000000
  7784					;PROD=200766031000
  7785
  7786			000014			AC=14
  7787						SAVEAC	(1,1)^
  7788	037767	201 16 0 00 037767 		MOVEI	AC+2,.
  7789	037770	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7790	037771	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7791	037772	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7792
  7793	037773	505 12 0 00 200766 	P5300:	HRLI	AC-2,200766		;SETUP AC-2
  7794	037774	541 12 0 00 031000 		HRRI	AC-2,31000		;FOR COMPARISON
  7795	037775	205 14 0 00 200773 		MOVSI	AC,200773		;SETUP AC
  7796	037776	205 13 0 00 200773 		MOVSI	AC-1,200773		;SETUP BR
  7797	037777	162 14 0 00 000013 		FMPM	AC,AC-1			;C(AC)XC(E)
  7798	040000	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST PROD
  7799	040001	005 13 0 00 005301 		ER5	AC-1,5301		;FMPM FAILED
  7800	040002	321 16 0 00 037773 		JUMPL	AC+2,P5300		;LOOP ON ERROR SWITCH
  7801
  7802					;TEST FMPM
  7803					;AR=177477000000
  7804					;BR=200700000000
  7805					;PROD=177427100000
  7806
  7807			000013			AC=13
  7808						SAVEAC	(1,1)^
  7809	040003	201 15 0 00 040003 		MOVEI	AC+2,.
  7810	040004	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7811	040005	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7812	040006	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7813
  7814	040007	505 11 0 00 177427 	P5400:	HRLI	AC-2,177427		;SETUP AC-2
  7815	040010	541 11 0 00 100000 		HRRI	AC-2,100000		;FOR COMPARISON
  7816	040011	205 13 0 00 177477 		MOVSI	AC,177477		;SETUP AC
  7817	040012	205 12 0 00 200700 		MOVSI	AC-1,200700		;SETUP BR
  7818	040013	162 13 0 00 000012 		FMPM	AC,AC-1			;C(AC)XC(E)
  7819	040014	312 13 0 00 070643 		CAME	AC,[177477,,0]		;EXAMINE C(AC)
  7820	040015	003 13 0 00 005401 		ER3	AC,5401			;C(AC) WAS CLOBBERED
  7821	040016	312 12 0 00 000011 		CAME	AC-1,AC-2		;TEST PROD
  7822	040017	005 12 0 00 005401 		ER5	AC-1,5401		;FMPM FAILED
  7823	040020	321 15 0 00 040007 		JUMPL	AC+2,P5400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0217

  7824					;TEST FMPR
  7825					;(NOT ROUND COND)
  7826					;AR=200777777777
  7827					;BR=200000000002
  7828					;PROD=146777777777
  7829
  7830			000006			AC=6
  7831						SAVEAC	(1,1)^
  7832	040021	201 10 0 00 040021 		MOVEI	AC+2,.
  7833	040022	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7834	040023	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7835	040024	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7836
  7837	040025	505 04 0 00 146777 	P6100:	HRLI	AC-2,146777		;SETUP AC-2
  7838	040026	541 04 0 00 777777 		HRRI	AC-2,-1			;FOR COMPARISON
  7839	040027	505 06 0 00 200777 		HRLI	AC,200777		;SETUP
  7840	040030	541 06 0 00 777777 		HRRI	AC,-1			;AC
  7841	040031	205 05 0 00 200000 		MOVSI	AC-1,200000		;SETUP
  7842	040032	271 05 0 00 000002 		ADDI	AC-1,2			;BR
  7843	040033	164 06 0 00 000005 		FMPR	AC,AC-1			;C(AC)XC(E)
  7844	040034	312 06 0 00 000004 		CAME	AC,AC-2			;TEST PROD
  7845	040035	003 06 0 00 006101 		ER3	AC,6101			;FMPR FAILED
  7846	040036	321 10 0 00 040025 		JUMPL	AC+2,P6100		;LOOP ON ERROR SWITCH
  7847					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0218

  7848					;TEST FMPR
  7849					;AR=200700000000
  7850					;BR=200400000077,(76)
  7851					;PROD=177700000156,(155)
  7852
  7853			000014			AC=14
  7854						SAVEAC	(1,1)^
  7855	040037	201 16 0 00 040037 		MOVEI	AC+2,.
  7856	040040	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7857	040041	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7858	040042	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7859			006200		SN=6200
  7860			000100			XX=100
  7861			000157			ZZ=157
  7862
  7863					P6200:	REPEAT	^D2,			;TEST FMPR
  7864					<SN=SN+1
  7865						XX=XX-1
  7866						ZZ=ZZ-1
  7867						HRLI	AC-2,177700		;SETUP AC-2
  7868						HRRI	AC-2,ZZ			;FOR COMPARISON
  7869						MOVSI	AC,200700		;SETUP AC
  7870						HRLI	AC-1,200400		;SETUP
  7871						HRRI	AC-1,XX			;BR
  7872						FMPR	AC,AC-1			;C(AC)XC(E)
  7873						CAME	AC,AC-2			;TEST PROD
  7874						ER3	AC,SN			;FMPR FAILED
  7875						CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  7876						ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7877						JUMPL	AC-2,.-^D10		;LOOP ON ERROR SWITCH
  7878					>
  7879			006201		SN=SN+1
  7880			000077			XX=XX-1
  7881			000156			ZZ=ZZ-1
  7882	040043	505 12 0 00 177700 		HRLI	AC-2,177700		;SETUP AC-2
  7883	040044	541 12 0 00 000156 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7884	040045	205 14 0 00 200700 		MOVSI	AC,200700		;SETUP AC
  7885	040046	505 13 0 00 200400 		HRLI	AC-1,200400		;SETUP
  7886	040047	541 13 0 00 000077 		HRRI	AC-1,XX			;BR
  7887	040050	164 14 0 00 000013 		FMPR	AC,AC-1			;C(AC)XC(E)
  7888	040051	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7889	040052	003 14 0 00 006201 		ER3	AC,SN			;FMPR FAILED
  7890	040053	312 13 0 00 070644 		CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  7891	040054	005 13 0 00 006201 		ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7892	040055	321 12 0 00 040043 		JUMPL	AC-2,.-^D10		;LOOP ON ERROR SWITCH
  7893
  7894			006202		SN=SN+1
  7895			000076			XX=XX-1
  7896			000155			ZZ=ZZ-1
  7897	040056	505 12 0 00 177700 		HRLI	AC-2,177700		;SETUP AC-2
  7898	040057	541 12 0 00 000155 		HRRI	AC-2,ZZ			;FOR COMPARISON
  7899	040060	205 14 0 00 200700 		MOVSI	AC,200700		;SETUP AC
  7900	040061	505 13 0 00 200400 		HRLI	AC-1,200400		;SETUP
  7901	040062	541 13 0 00 000076 		HRRI	AC-1,XX			;BR
  7902	040063	164 14 0 00 000013 		FMPR	AC,AC-1			;C(AC)XC(E)
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-2
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0219

  7903	040064	312 14 0 00 000012 		CAME	AC,AC-2			;TEST PROD
  7904	040065	003 14 0 00 006202 		ER3	AC,SN			;FMPR FAILED
  7905	040066	312 13 0 00 070645 		CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  7906	040067	005 13 0 00 006202 		ER5	AC-1,SN			;C(E) WAS CLOBBERED
  7907	040070	321 12 0 00 040056 		JUMPL	AC-2,.-^D10		;LOOP ON ERROR SWITCH
  7908
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0220

  7909					;TEST FMPRM
  7910					;AR=200700000000
  7911					;BR=200400000075
  7912					;PROD=177700000153
  7913
  7914			000014			AC=14
  7915						SAVEAC	(1,1)^
  7916	040071	201 16 0 00 040071 		MOVEI	AC+2,.
  7917	040072	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7918	040073	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7919	040074	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7920
  7921	040075	505 12 0 00 177700 	P6300:	HRLI	AC-2,177700		;SETUP AC-2
  7922	040076	541 12 0 00 000153 		HRRI	AC-2,153		;FOR COMPARISON
  7923	040077	205 14 0 00 200700 		MOVSI	AC,200700		;SETUP AC
  7924	040100	505 13 0 00 200400 		HRLI	AC-1,200400		;SETUP
  7925	040101	541 13 0 00 000075 		HRRI	AC-1,75			;BR
  7926	040102	166 14 0 00 000013 		FMPRM	AC,AC-1			;C(AC)XC(E)
  7927	040103	312 14 0 00 070646 		CAME	AC,[200700,,0]		;EXAMINE C(AC)
  7928	040104	003 14 0 00 006301 		ER3	AC,6301			;C(AC) WAS CLOBBERED
  7929	040105	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST PROD
  7930	040106	005 13 0 00 006301 		ER5	AC-1,6301		;FMPRM FAILED
  7931	040107	321 16 0 00 040075 		JUMPL	AC+2,P6300		;LOOP ON ERROR SWITCH
  7932
  7933					;TEST FMPRB
  7934					;AR=577400000000
  7935					;BR=600400000000
  7936					;PROD=176400000000
  7937
  7938			000013			AC=13
  7939						SAVEAC	(1,1)^
  7940	040110	201 15 0 00 040110 		MOVEI	AC+2,.
  7941	040111	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7942	040112	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7943	040113	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7944
  7945	040114	205 11 0 00 176400 	P6400:	MOVSI	AC-2,176400		;SETUP FOR COMPARISON
  7946	040115	205 13 0 00 577400 		MOVSI	AC,577400		;SETUP AC
  7947	040116	205 12 0 00 600400 		MOVSI	AC-1,600400		;SETUP BR
  7948	040117	167 13 0 00 000012 		FMPRB	AC,AC-1			;C(AC)XC(E)
  7949	040120	312 13 0 00 000011 		CAME	AC,AC-2			;TEST PROD (AC)
  7950	040121	003 13 0 00 006401 		ER3	AC,6401			;C(AC) FAILED
  7951	040122	312 12 0 00 000011 		CAME	AC-1,AC-2		;TEST PROD (E)
  7952	040123	005 12 0 00 006401 		ER5	AC-1,6401		;FMPRB FAILED
  7953	040124	321 15 0 00 040114 		JUMPL	AC+2,P6400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0221

  7954					;TEST FMPRI
  7955					;AR=600400000077,(76)
  7956					;E=177600
  7957					;PRODS=602200000136,(135),
  7958
  7959			000012			AC=12
  7960						SAVEAC	(1,1)^
  7961	040125	201 14 0 00 040125 		MOVEI	AC+2,.
  7962	040126	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  7963	040127	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  7964	040130	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  7965			006500		SN=6500
  7966			000137			XX=137
  7967			000100			ZZ=100
  7968
  7969					P6500:	REPEAT	^D2,			;TEST FMPRI
  7970					<SN=SN+1
  7971						XX=XX-1
  7972						ZZ=ZZ-1
  7973						HRLI	AC-2,602200		;SETUP AC-2
  7974						HRRI	AC-2,XX			;FOR COMPARISON
  7975						HRLI	AC,600400		;SETUP
  7976						HRRI	AC,ZZ			;AC
  7977						FMPRI	AC,177600		;C(AC)X E
  7978						CAME	AC,AC-2			;TEST PROD
  7979						ER3	AC,SN			;FMPRI FAILED
  7980						JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  7981					>
  7982			006501		SN=SN+1
  7983			000136			XX=XX-1
  7984			000077			ZZ=ZZ-1
  7985	040131	505 10 0 00 602200 		HRLI	AC-2,602200		;SETUP AC-2
  7986	040132	541 10 0 00 000136 		HRRI	AC-2,XX			;FOR COMPARISON
  7987	040133	505 12 0 00 600400 		HRLI	AC,600400		;SETUP
  7988	040134	541 12 0 00 000077 		HRRI	AC,ZZ			;AC
  7989	040135	165 12 0 00 177600 		FMPRI	AC,177600		;C(AC)X E
  7990	040136	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  7991	040137	003 12 0 00 006501 		ER3	AC,SN			;FMPRI FAILED
  7992	040140	321 14 0 00 040131 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  7993
  7994			006502		SN=SN+1
  7995			000135			XX=XX-1
  7996			000076			ZZ=ZZ-1
  7997	040141	505 10 0 00 602200 		HRLI	AC-2,602200		;SETUP AC-2
  7998	040142	541 10 0 00 000135 		HRRI	AC-2,XX			;FOR COMPARISON
  7999	040143	505 12 0 00 600400 		HRLI	AC,600400		;SETUP
  8000	040144	541 12 0 00 000076 		HRRI	AC,ZZ			;AC
  8001	040145	165 12 0 00 177600 		FMPRI	AC,177600		;C(AC)X E
  8002	040146	312 12 0 00 000010 		CAME	AC,AC-2			;TEST PROD
  8003	040147	003 12 0 00 006502 		ER3	AC,SN			;FMPRI FAILED
  8004	040150	321 14 0 00 040141 		JUMPL	AC+2,.-7		;LOOP ON ERROR SWITCH
  8005
  8006					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0222

  8007					;TEST FMPRI
  8008					;AR=600400000000
  8009					;E=576400,575400
  8010					;PROD=177400000000,200400000000
  8011
  8012			000011			AC=11
  8013						SAVEAC	(1,1)^
  8014	040151	201 13 0 00 040151 		MOVEI	AC+2,.
  8015	040152	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8016	040153	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8017	040154	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8018
  8019			006600		SN=6600
  8020			176400			XX=176400
  8021			577400			ZZ=577400
  8022
  8023					P6600:	REPEAT	^D2,			;TEST FMPRI
  8024					<SN=SN+1
  8025						XX=XX+1000
  8026						ZZ=ZZ-1000
  8027						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8028						MOVSI	AC,600400		;SETUP AC
  8029						FMPRI	AC,ZZ			;C(AC)X E
  8030						CAME	AC,AC-2			;TEST PROD
  8031						ER3	AC,6601			;FMPRI FAILED
  8032						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  8033					
  8034					>
  8035			006601		SN=SN+1
  8036			177400			XX=XX+1000
  8037			576400			ZZ=ZZ-1000
  8038	040155	205 07 0 00 177400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8039	040156	205 11 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  8040	040157	165 11 0 00 576400 		FMPRI	AC,ZZ			;C(AC)X E
  8041	040160	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  8042	040161	003 11 0 00 006601 		ER3	AC,6601			;FMPRI FAILED
  8043	040162	321 13 0 00 040155 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  8044
  8045
  8046			006602		SN=SN+1
  8047			200400			XX=XX+1000
  8048			575400			ZZ=ZZ-1000
  8049	040163	205 07 0 00 200400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8050	040164	205 11 0 00 600400 		MOVSI	AC,600400		;SETUP AC
  8051	040165	165 11 0 00 575400 		FMPRI	AC,ZZ			;C(AC)X E
  8052	040166	312 11 0 00 000007 		CAME	AC,AC-2			;TEST PROD
  8053	040167	003 11 0 00 006601 		ER3	AC,6601			;FMPRI FAILED
  8054	040170	321 13 0 00 040163 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  8055
  8056
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0223

  8057					;TEST ECO49
  8058					;TEST CLEAR MQ LOGIC
  8059					;AR=400000000001
  8060					;E=1.0
  8061					;PROD=400000000001
  8062					;ERROR PROD=777400000000
  8063					;FLAGS=0
  8064
  8065			000011			AC=11
  8066						SAVEAC	(1,1)^
  8067	040171	201 13 0 00 040171 		MOVEI	AC+2,.
  8068	040172	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8069	040173	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8070	040174	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8071
  8072	040175	254 02 1 00 040176 	P6700:	JRST	2,@.+1			;CLEAR PC FLAGS
  8073	040176	000000	040177			XWD	0,.+1
  8074	040177	200 11 0 00 070647 		MOVE	AC,[XWD 400000,000001]	;GET LARGEST NEGATIVE FP NUMBER
  8075	040200	165 11 0 00 201400 		FMPRI	AC,(1.0)		;MULTIPLY IT BY ONE
  8076	040201	316 11 0 00 070650 		CAMN	AC,[XWD 777400,0]	;CLEAR MQ LOGIC WORKING
  8077	040202	003 11 0 00 006701 		ER3	AC,6701			;NO
  8078	040203	312 11 0 00 070647 		CAME	AC,[XWD 400000,000001]	;CORRECT ANSWER
  8079	040204	003 11 0 00 006701 		ER3	AC,6701			;NO
  8080	040205	265 07 0 00 040206 		JSP	AC-2,.+1		;GET PC FLAGS
  8081	040206	603 07 0 00 640140 		TLNE	AC-2,640140		;ARE ALL FLAGS ZERO
  8082	040207	013 07 0 00 006701 		ER13	AC-2,6701		;NO, THEY SHOULD BE
  8083	040210	255 10 0 00 040212 		JOV	.+2			;EXAMINE ARCV FLAG
  8084	040211	254 00 0 00 040213 		JRST	.+2
  8085	040212	013 07 0 00 006701 		ER13	AC-2,6701		;AROV IS SET
  8086	040213	321 13 0 00 040175 		JUMPL	AC+2,P6700		;LOOP ON ERROR SWITCH
  8087					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0224

  8088					;TEST FDV
  8089					;AR=200.4,201.4,202.4
  8090					;BR=200.4,201.4,202.4
  8091					;QUOT=201400000000
  8092
  8093			000014			AC=14
  8094						SAVEAC	(1,1)^
  8095	040214	201 16 0 00 040214 		MOVEI	AC+2,.
  8096	040215	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8097	040216	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8098	040217	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8099			007000		SN=7000
  8100			177400			ZZ=177400
  8101
  8102					P7000:	REPEAT ^D3,			;TEST FDV
  8103					<SN=SN+1
  8104						ZZ=ZZ+1000
  8105						MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  8106						MOVSI	AC,ZZ			;SETUP AC
  8107						MOVSI	AC-1,ZZ			;SETUP BR
  8108						FDV	AC,AC-1			;C(AC)/C(E)
  8109						CAME	AC,AC-2			;TEST QUOT
  8110						ER3	AC,7001			;FDV FAILED
  8111						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8112					>
  8113			007001		SN=SN+1
  8114			200400			ZZ=ZZ+1000
  8115	040220	205 12 0 00 201400 		MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  8116	040221	205 14 0 00 200400 		MOVSI	AC,ZZ			;SETUP AC
  8117	040222	205 13 0 00 200400 		MOVSI	AC-1,ZZ			;SETUP BR
  8118	040223	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8119	040224	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8120	040225	003 14 0 00 007001 		ER3	AC,7001			;FDV FAILED
  8121	040226	321 16 0 00 040220 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8122
  8123			007002		SN=SN+1
  8124			201400			ZZ=ZZ+1000
  8125	040227	205 12 0 00 201400 		MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  8126	040230	205 14 0 00 201400 		MOVSI	AC,ZZ			;SETUP AC
  8127	040231	205 13 0 00 201400 		MOVSI	AC-1,ZZ			;SETUP BR
  8128	040232	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8129	040233	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8130	040234	003 14 0 00 007001 		ER3	AC,7001			;FDV FAILED
  8131	040235	321 16 0 00 040227 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8132
  8133			007003		SN=SN+1
  8134			202400			ZZ=ZZ+1000
  8135	040236	205 12 0 00 201400 		MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  8136	040237	205 14 0 00 202400 		MOVSI	AC,ZZ			;SETUP AC
  8137	040240	205 13 0 00 202400 		MOVSI	AC-1,ZZ			;SETUP BR
  8138	040241	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8139	040242	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8140	040243	003 14 0 00 007001 		ER3	AC,7001			;FDV FAILED
  8141	040244	321 16 0 00 040236 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8142
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0225

  8143					;TEST FDV
  8144					;AR=201.4,202.4,203.4
  8145					;BR=200400000000
  8146					;QUOT=202.4,203.4,204.4
  8147
  8148			000014			AC=14
  8149						SAVEAC	(1,1)^
  8150	040245	201 16 0 00 040245 		MOVEI	AC+2,.
  8151	040246	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8152	040247	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8153	040250	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8154			007100		SN=7100
  8155			201400			XX=201400
  8156			200400			ZZ=200400
  8157
  8158					P7100:	REPEAT ^D3,			;TEST FDV
  8159					<SN=SN+1
  8160						XX=XX+1000
  8161						ZZ=ZZ+1000
  8162						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8163						MOVSI	AC,ZZ			;SETUP AC
  8164						MOVSI	AC-1,200400		;SETUP BR
  8165						FDV	AC,AC-1			;C(AC)/C(E)
  8166						CAME	AC,AC-2			;TEST QUOT
  8167						ER3	AC,7101			;FDV FAILED
  8168						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8169					>
  8170			007101		SN=SN+1
  8171			202400			XX=XX+1000
  8172			201400			ZZ=ZZ+1000
  8173	040251	205 12 0 00 202400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8174	040252	205 14 0 00 201400 		MOVSI	AC,ZZ			;SETUP AC
  8175	040253	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8176	040254	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8177	040255	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8178	040256	003 14 0 00 007101 		ER3	AC,7101			;FDV FAILED
  8179	040257	321 16 0 00 040251 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8180
  8181			007102		SN=SN+1
  8182			203400			XX=XX+1000
  8183			202400			ZZ=ZZ+1000
  8184	040260	205 12 0 00 203400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8185	040261	205 14 0 00 202400 		MOVSI	AC,ZZ			;SETUP AC
  8186	040262	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8187	040263	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8188	040264	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8189	040265	003 14 0 00 007101 		ER3	AC,7101			;FDV FAILED
  8190	040266	321 16 0 00 040260 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8191
  8192			007103		SN=SN+1
  8193			204400			XX=XX+1000
  8194			203400			ZZ=ZZ+1000
  8195	040267	205 12 0 00 204400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8196	040270	205 14 0 00 203400 		MOVSI	AC,ZZ			;SETUP AC
  8197	040271	205 13 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0226

  8198	040272	170 14 0 00 000013 		FDV	AC,AC-1			;C(AC)/C(E)
  8199	040273	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8200	040274	003 14 0 00 007101 		ER3	AC,7101			;FDV FAILED
  8201	040275	321 16 0 00 040267 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8202
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0227

  8203					;TEST FDV
  8204					;AR=200.6,200.7,200.74
  8205					;BR=200400000000
  8206					;QUOT=201.6,201.7,201.74
  8207
  8208			000013			AC=13
  8209						SAVEAC	(1,1)^
  8210	040276	201 15 0 00 040276 		MOVEI	AC+2,.
  8211	040277	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8212	040300	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8213	040301	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8214			007200		SN=7200
  8215			000200			WW=200
  8216			201400			XX=201400
  8217			200400			ZZ=200400
  8218
  8219					P7200:	REPEAT ^D3,			;TEST FDV
  8220					<SN=SN+1
  8221						XX=XX+WW
  8222						ZZ=ZZ+WW
  8223						WW=WW/2
  8224						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8225						MOVSI	AC,ZZ			;SETUP AC
  8226						MOVSI	AC-1,200400		;SETUP BR
  8227						FDV	AC,AC-1			;C(AC)/C(E)
  8228						CAME	AC,AC-2			;TEST QUOT
  8229						ER3	AC,SN			;FDV FAILED
  8230						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8231					>
  8232			007201		SN=SN+1
  8233			201600			XX=XX+WW
  8234			200600			ZZ=ZZ+WW
  8235			000100			WW=WW/2
  8236	040302	205 11 0 00 201600 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8237	040303	205 13 0 00 200600 		MOVSI	AC,ZZ			;SETUP AC
  8238	040304	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8239	040305	170 13 0 00 000012 		FDV	AC,AC-1			;C(AC)/C(E)
  8240	040306	312 13 0 00 000011 		CAME	AC,AC-2			;TEST QUOT
  8241	040307	003 13 0 00 007201 		ER3	AC,SN			;FDV FAILED
  8242	040310	321 15 0 00 040302 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8243
  8244			007202		SN=SN+1
  8245			201700			XX=XX+WW
  8246			200700			ZZ=ZZ+WW
  8247			000040			WW=WW/2
  8248	040311	205 11 0 00 201700 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8249	040312	205 13 0 00 200700 		MOVSI	AC,ZZ			;SETUP AC
  8250	040313	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8251	040314	170 13 0 00 000012 		FDV	AC,AC-1			;C(AC)/C(E)
  8252	040315	312 13 0 00 000011 		CAME	AC,AC-2			;TEST QUOT
  8253	040316	003 13 0 00 007202 		ER3	AC,SN			;FDV FAILED
  8254	040317	321 15 0 00 040311 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8255
  8256			007203		SN=SN+1
  8257			201740			XX=XX+WW
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0228

  8258			200740			ZZ=ZZ+WW
  8259			000020			WW=WW/2
  8260	040320	205 11 0 00 201740 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8261	040321	205 13 0 00 200740 		MOVSI	AC,ZZ			;SETUP AC
  8262	040322	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8263	040323	170 13 0 00 000012 		FDV	AC,AC-1			;C(AC)/C(E)
  8264	040324	312 13 0 00 000011 		CAME	AC,AC-2			;TEST QUOT
  8265	040325	003 13 0 00 007203 		ER3	AC,SN			;FDV FAILED
  8266	040326	321 15 0 00 040320 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8267
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0229

  8268					;TEST FDV
  8269					;AR=200.4,200.6
  8270					;BR=577400000000
  8271					;QUOT=576.4,576.2
  8272
  8273			000012			AC=12
  8274						SAVEAC	(1,1)^
  8275	040327	201 14 0 00 040327 		MOVEI	AC+2,.
  8276	040330	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8277	040331	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8278	040332	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8279
  8280			007300		SN=7300
  8281			576600			XX=576600
  8282			200200			ZZ=200200
  8283
  8284					P7300:	REPEAT ^D2,			;TEST FDV
  8285					<SN=SN+1
  8286						XX=XX-200
  8287						ZZ=ZZ+200
  8288						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8289						MOVSI	AC,ZZ			;SETUP AC
  8290						MOVSI	AC-1,577400		;SETUP BR
  8291						FDV	AC,AC-1			;C(AC)/C(E)
  8292						CAME	AC,AC-2			;TEST QUOT
  8293						ER3	AC,SN			;FDV FAILED
  8294						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8295					>
  8296			007301		SN=SN+1
  8297			576400			XX=XX-200
  8298			200400			ZZ=ZZ+200
  8299	040333	205 10 0 00 576400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8300	040334	205 12 0 00 200400 		MOVSI	AC,ZZ			;SETUP AC
  8301	040335	205 11 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  8302	040336	170 12 0 00 000011 		FDV	AC,AC-1			;C(AC)/C(E)
  8303	040337	312 12 0 00 000010 		CAME	AC,AC-2			;TEST QUOT
  8304	040340	003 12 0 00 007301 		ER3	AC,SN			;FDV FAILED
  8305	040341	321 14 0 00 040333 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8306
  8307			007302		SN=SN+1
  8308			576200			XX=XX-200
  8309			200600			ZZ=ZZ+200
  8310	040342	205 10 0 00 576200 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8311	040343	205 12 0 00 200600 		MOVSI	AC,ZZ			;SETUP AC
  8312	040344	205 11 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  8313	040345	170 12 0 00 000011 		FDV	AC,AC-1			;C(AC)/C(E)
  8314	040346	312 12 0 00 000010 		CAME	AC,AC-2			;TEST QUOT
  8315	040347	003 12 0 00 007302 		ER3	AC,SN			;FDV FAILED
  8316	040350	321 14 0 00 040342 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8317
  8318					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0230

  8319					;TEST FDV
  8320					;AR=177400000000
  8321					;BR=204400000000
  8322					;QUOT=1744000000
  8323
  8324
  8325			000011			AC=11
  8326						SAVEAC (1,1)^
  8327	040351	201 13 0 00 040351 		MOVEI	AC+2,.
  8328	040352	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8329	040353	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8330	040354	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8331
  8332	040355	205 07 0 00 174400 	P7400:	MOVSI	AC-2,174400		;SETUP FOR COMPARISON
  8333	040356	205 11 0 00 177400 		MOVSI	AC,177400		;SETUP AC
  8334	040357	205 10 0 00 204400 		MOVSI	AC-1,204400		;SETUP BR
  8335	040360	170 11 0 00 000010 		FDV	AC,AC-1			;C(AC)/C(E)
  8336	040361	312 11 0 00 000007 		CAME	AC,AC-2			;TEST QUOT
  8337	040362	003 11 0 00 007401 		ER3	AC,7401			;FDV FAILED
  8338	040363	321 13 0 00 040355 		JUMPL	AC+2,P7400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0231

  8339					;TEST FDV
  8340					;AR=576400000000
  8341					;BR=200600000000
  8342					;QUOT=576252525252
  8343
  8344			000010			AC=10
  8345						SAVEAC (1,1)^
  8346	040364	201 12 0 00 040364 		MOVEI	AC+2,.
  8347	040365	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8348	040366	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8349	040367	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8350
  8351	040370	505 06 0 00 576252 	P7500:	HRLI	AC-2,576252		;SETUP AC-2
  8352	040371	541 06 0 00 525252 		HRRI	AC-2,525252		;FOR COMPARISON
  8353	040372	205 10 0 00 576400 		MOVSI	AC,576400		;SETUP AC
  8354	040373	205 07 0 00 200600 		MOVSI	AC-1,200600		;SETUP BR
  8355	040374	170 10 0 00 000007 		FDV	AC,AC-1			;C(AC)/C(E)
  8356	040375	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT
  8357	040376	003 10 0 00 007501 		ER3	AC,7501			;FDV FAILED
  8358	040377	321 12 0 00 040370 		JUMPL	AC+2,P7500		;LOOP ON ERROR SWITCH
  8359					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0232

  8360					;TEST FDV
  8361					;AR=600.6,600.4
  8362					;BR=577400000000
  8363					;QUOT=177.4,200.4
  8364
  8365
  8366			000007			AC=7
  8367						SAVEAC	(1,1)^
  8368	040400	201 11 0 00 040400 		MOVEI	AC+2,.
  8369	040401	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8370	040402	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8371	040403	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8372			007600		SN=7600
  8373			176400			XX=176400
  8374			601000			ZZ=601000
  8375
  8376					P7600:	REPEAT ^D2,			;TEST FDV
  8377					<SN=SN+1
  8378						XX=XX+1000
  8379						ZZ=ZZ-200
  8380						MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8381						MOVSI	AC,ZZ			;SETUP AC
  8382						MOVSI	AC-1,577400		;SETUP BR
  8383						FDV	AC,AC-1			;C(AC)/C(E)
  8384						CAME	AC,AC-2			;TEST QUOT
  8385						ER3	AC,SN			;FDV FAILED
  8386						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8387					>
  8388			007601		SN=SN+1
  8389			177400			XX=XX+1000
  8390			600600			ZZ=ZZ-200
  8391	040404	205 05 0 00 177400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8392	040405	205 07 0 00 600600 		MOVSI	AC,ZZ			;SETUP AC
  8393	040406	205 06 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  8394	040407	170 07 0 00 000006 		FDV	AC,AC-1			;C(AC)/C(E)
  8395	040410	312 07 0 00 000005 		CAME	AC,AC-2			;TEST QUOT
  8396	040411	003 07 0 00 007601 		ER3	AC,SN			;FDV FAILED
  8397	040412	321 11 0 00 040404 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8398
  8399			007602		SN=SN+1
  8400			200400			XX=XX+1000
  8401			600400			ZZ=ZZ-200
  8402	040413	205 05 0 00 200400 		MOVSI	AC-2,XX			;SETUP FOR COMPARISON
  8403	040414	205 07 0 00 600400 		MOVSI	AC,ZZ			;SETUP AC
  8404	040415	205 06 0 00 577400 		MOVSI	AC-1,577400		;SETUP BR
  8405	040416	170 07 0 00 000006 		FDV	AC,AC-1			;C(AC)/C(E)
  8406	040417	312 07 0 00 000005 		CAME	AC,AC-2			;TEST QUOT
  8407	040420	003 07 0 00 007602 		ER3	AC,SN			;FDV FAILED
  8408	040421	321 11 0 00 040413 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8409
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0233

  8410					;TEST FDV
  8411					;AR=377400777777
  8412					;BR=577400777777
  8413					;QUOT=777375773771
  8414
  8415			000006			AC=6
  8416						SAVEAC (1,1)^
  8417	040422	201 10 0 00 040422 		MOVEI	AC+2,.
  8418	040423	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8419	040424	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8420	040425	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8421
  8422	040426	505 04 0 00 777375 	P7700:	HRLI	AC-2,777375		;SETUP AC-2
  8423	040427	541 04 0 00 773771 		HRRI	AC-2,773771		;FOR COMPARISON
  8424	040430	505 06 0 00 377400 		HRLI	AC,377400		;SETUP
  8425	040431	541 06 0 00 777777 		HRRI	AC,-1			;AC
  8426	040432	505 05 0 00 577400 		HRLI	AC-1,577400		;SETUP
  8427	040433	541 05 0 00 777777 		HRRI	AC-1,-1			;BR
  8428	040434	170 06 0 00 000005 		FDV	AC,AC-1			;C(AC)/C(E)
  8429	040435	312 06 0 00 000004 		CAME	AC,AC-2			;TEST QUOT
  8430	040436	003 06 0 00 007701 		ER3	AC,7701			;FDV FAILED
  8431	040437	312 05 0 00 070651 		CAME	AC-1,[577400,,-1]	;EXAMINE C(E)
  8432	040440	005 05 0 00 007701 		ER5	AC-1,7701		;C(E) WAS CLOBBERED
  8433	040441	321 10 0 00 040426 		JUMPL	AC+2,P7700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 33
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0234

  8434					;TEST ECO49
  8435					;TEST FDV DIVIDE CHECK
  8436					;AR=201400000000, 1.0
  8437					;BR=0
  8438					;FLAGS=440040
  8439
  8440			000006			AC=6
  8441						SAVEAC	(1,1)^
  8442	040442	201 10 0 00 040442 		MOVEI	AC+2,.
  8443	040443	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8444	040444	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8445	040445	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8446
  8447	040446	254 02 1 00 040447 	P10000:	JRST	2,@.+1			;CLEAR PC FLAGS
  8448	040447	000000	040450			XWD	0,.+1
  8449	040450	205 06 0 00 201400 		MOVSI	AC,201400		;SETUP DVND
  8450	040451	201 05 0 00 000000 		MOVEI	AC-1,0			;SETUP DVSR
  8451	040452	170 06 0 00 000005 		FDV	AC,AC-1			;FLOATING DIVIDE 1.0 BY 0
  8452	040453	265 04 0 00 040454 		JSP	AC-2,.+1		;STORE PC AND FLAGS
  8453	040454	607 04 0 00 000040 		TLNN	AC-2,40			;TEST BIT 12
  8454	040455	013 04 0 00 010001 		ER13	AC-2,10001		;AR DCK FAILED TO SET
  8455	040456	321 10 0 00 040446 		JUMPL	AC+2,P10000		;LOOP ON ERROR SWITCH
  8456
  8457
  8458					;TEST ECO49
  8459					;TEST UNDERFLOW
  8460					;AR=377400000000
  8461					;BR=000400000000
  8462					;FLAGS=440000
  8463
  8464			000006			AC=6
  8465						SAVEAC	(1,1)^
  8466	040457	201 10 0 00 040457 		MOVEI	AC+2,.
  8467	040460	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8468	040461	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8469	040462	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8470
  8471	040463	254 02 1 00 040464 	P10100:	JRST	2,@.+1			;CLEAR PC FLAGS
  8472	040464	000000	040465			XWD	0,.+1
  8473	040465	205 06 0 00 377400 		MOVSI	AC,377400		;SETUP DVND
  8474	040466	205 05 0 00 000400 		MOVSI	AC-1,000400		;SETUP DVSR
  8475	040467	170 06 0 00 000005 		FDV	AC,AC-1			;FLOATING DIVIDE
  8476	040470	265 04 0 00 040471 		JSP	AC-2,.+1		;GET PC FLAGS
  8477	040471	603 04 0 00 000100 		TLNE	AC-2,FXU		;UNDERFLOW SHOULD BE 0
  8478	040472	013 04 0 00 010101 		ER13	AC-2,10101		;ERROR
  8479	040473	321 10 0 00 040463 		JUMPL	AC+2,P10100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 34
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0235

  8480					;TEST FDVM
  8481					;AR=577775000000,577774000000
  8482					;BR=577777000000
  8483					;QUOT=577777000000
  8484
  8485			000005			AC=5
  8486						SAVEAC	(1,1)^
  8487	040474	201 07 0 00 040474 		MOVEI	AC+2,.
  8488	040475	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8489	040476	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8490	040477	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8491			010200		SN=10200
  8492			577776			ZZ=577776
  8493
  8494					P10200:	REPEAT ^D2,			;TEST FDVM
  8495					<SN=SN+1
  8496						ZZ=ZZ-1
  8497						MOVSI	AC-2,577777		;SETUP FOR COMPARISON
  8498						MOVSI	AC,ZZ			;SETUP AC
  8499						MOVSI	AC-1,577777		;SETUP BR
  8500						FDVM	AC,AC-1			;C(AC)/C(E)
  8501						CAME	AC-1,AC-2		;TEST QUOT
  8502						ER5	AC-1,SN			;FDVM FAILED
  8503						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8504					>
  8505			010201		SN=SN+1
  8506			577775			ZZ=ZZ-1
  8507	040500	205 03 0 00 577777 		MOVSI	AC-2,577777		;SETUP FOR COMPARISON
  8508	040501	205 05 0 00 577775 		MOVSI	AC,ZZ			;SETUP AC
  8509	040502	205 04 0 00 577777 		MOVSI	AC-1,577777		;SETUP BR
  8510	040503	172 05 0 00 000004 		FDVM	AC,AC-1			;C(AC)/C(E)
  8511	040504	312 04 0 00 000003 		CAME	AC-1,AC-2		;TEST QUOT
  8512	040505	005 04 0 00 010201 		ER5	AC-1,SN			;FDVM FAILED
  8513	040506	321 07 0 00 040500 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8514
  8515			010202		SN=SN+1
  8516			577774			ZZ=ZZ-1
  8517	040507	205 03 0 00 577777 		MOVSI	AC-2,577777		;SETUP FOR COMPARISON
  8518	040510	205 05 0 00 577774 		MOVSI	AC,ZZ			;SETUP AC
  8519	040511	205 04 0 00 577777 		MOVSI	AC-1,577777		;SETUP BR
  8520	040512	172 05 0 00 000004 		FDVM	AC,AC-1			;C(AC)/C(E)
  8521	040513	312 04 0 00 000003 		CAME	AC-1,AC-2		;TEST QUOT
  8522	040514	005 04 0 00 010202 		ER5	AC-1,SN			;FDVM FAILED
  8523	040515	321 07 0 00 040507 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8524
  8525					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 34-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0236

  8526					;TEST FDVM
  8527					;AR=210777777777
  8528					;BR=170750000000
  8529					;QUOT=221414456123
  8530
  8531			000014			AC=14
  8532						SAVEAC (1,1)^
  8533	040516	201 16 0 00 040516 		MOVEI	AC+2,.
  8534	040517	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8535	040520	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8536	040521	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8537
  8538	040522	505 12 0 00 221414 	P10300:	HRLI	AC-2,221414		;SETUP AC-2
  8539	040523	541 12 0 00 456123 		HRRI	AC-2,456123		;FOR COMPARISON
  8540	040524	505 14 0 00 210777 		HRLI	AC,210777		;SETUP
  8541	040525	541 14 0 00 777777 		HRRI	AC,-1			;AC
  8542	040526	205 13 0 00 170750 		MOVSI	AC-1,170750		;SETUP BR
  8543	040527	172 14 0 00 000013 		FDVM	AC,AC-1			;C(AC)/C(E)
  8544	040530	312 14 0 00 070652 		CAME	AC,[210777,,-1]		;EXAMINE C(AC)
  8545	040531	003 14 0 00 010301 		ER3	AC,10301		;C(AC) WAS CLOBBERED
  8546	040532	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST QUOT
  8547	040533	005 13 0 00 010301 		ER5	AC-1,10301		;FDVM FAILED
  8548	040534	321 16 0 00 040522 		JUMPL	AC+2,P10300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 35
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0237

  8549					;TEST FDVB
  8550					;AR=210777777777
  8551					;BR=170555000000
  8552					;QUOT=221547063714
  8553
  8554			000014			AC=14
  8555						SAVEAC (1,1)^
  8556	040535	201 16 0 00 040535 		MOVEI	AC+2,.
  8557	040536	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8558	040537	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8559	040540	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8560
  8561	040541	505 12 0 00 221547 	P10400:	HRLI	AC-2,221547		;SETUP AC-2
  8562	040542	541 12 0 00 063714 		HRRI	AC-2,63714		;FOR COMPARISON
  8563	040543	505 14 0 00 210777 		HRLI	AC,210777		;SETUP
  8564	040544	541 14 0 00 777777 		HRRI	AC,-1			;AC
  8565	040545	205 13 0 00 170555 		MOVSI	AC-1,170555		;SETUP BR
  8566	040546	173 14 0 00 000013 		FDVB	AC,AC-1			;C(AC)/C(E)
  8567	040547	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT(AC)
  8568	040550	003 14 0 00 010401 		ER3	AC,10401		;C(AC) FAILED
  8569	040551	312 13 0 00 000012 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8570	040552	005 13 0 00 010401 		ER5	AC-1,10401		;FDVB FAILED
  8571	040553	321 16 0 00 040541 		JUMPL	AC+2,P10400		;LOOP ON ERROR SWITCH
  8572
  8573					;TEST FDVB
  8574					;AR=577000555555
  8575					;BR=200400000000
  8576					;QUOT=576000555555
  8577
  8578			000013			AC=13
  8579						SAVEAC (1,1)^
  8580	040554	201 15 0 00 040554 		MOVEI	AC+2,.
  8581	040555	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8582	040556	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8583	040557	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8584
  8585	040560	505 11 0 00 576000 	P10500:	HRLI	AC-2,576000		;SETUP AC-2
  8586	040561	541 11 0 00 555555 		HRRI	AC-2,555555		;FOR COMPARISON
  8587	040562	505 13 0 00 577000 		HRLI	AC,577000		;SETUP
  8588	040563	541 13 0 00 555555 		HRRI	AC,555555		;AC
  8589	040564	205 12 0 00 200400 		MOVSI	AC-1,200400		;SETUP BR
  8590	040565	173 13 0 00 000012 		FDVB	AC,AC-1			;C(AC)/C(E)
  8591	040566	312 13 0 00 000011 		CAME	AC,AC-2			;TEST QUOT(AC)
  8592	040567	003 13 0 00 010501 		ER3	AC,10501		;C(AC) FAILED
  8593	040570	312 12 0 00 000011 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8594	040571	005 12 0 00 010501 		ER5	AC-1,10501		;FDVB FAILED
  8595	040572	321 15 0 00 040560 		JUMPL	AC+2,P10500		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 36
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0238

  8596					;TEST FDVR
  8597					;AR=200777777777
  8598					;BR=200777777776,200777777774
  8599					;QUOT=201400000001,201400000002
  8600
  8601			000006			AC=6
  8602						SAVEAC	(1,1)^
  8603	040573	201 10 0 00 040573 		MOVEI	AC+2,.
  8604	040574	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8605	040575	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8606	040576	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8607
  8608			011200		SN=11200
  8609			000000			XX=0
  8610			000002			ZZ=2
  8611
  8612					P11200:	REPEAT ^D2,			;TEST FDVR
  8613					<SN=SN+1
  8614						XX=XX+1
  8615						ZZ=ZZ-2
  8616						IFE	ZZ,<ZZ=-2>
  8617						HRLI	AC-2,201400		;SETUP AC-2
  8618						HRRI	AC-2,XX			;FOR COMPARISON
  8619						HRLI	AC,200777		;SETUP
  8620						HRRI	AC,-1			;AC
  8621						HRLI	AC-1,200777		;SETUP
  8622						HRRI	AC-1,ZZ			;BR
  8623						FDVR	AC,AC-1			;C(AC)/C(E)
  8624						CAME	AC,AC-2			;TEST QUOT
  8625						ER3	AC,SN			;FDVR FAILED
  8626						JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8627					>
  8628			011201		SN=SN+1
  8629			000001			XX=XX+1
  8630			000000			ZZ=ZZ-2
  8631		777777	777776			IFE	ZZ,<ZZ=-2>
  8632	040577	505 04 0 00 201400 		HRLI	AC-2,201400		;SETUP AC-2
  8633	040600	541 04 0 00 000001 		HRRI	AC-2,XX			;FOR COMPARISON
  8634	040601	505 06 0 00 200777 		HRLI	AC,200777		;SETUP
  8635	040602	541 06 0 00 777777 		HRRI	AC,-1			;AC
  8636	040603	505 05 0 00 200777 		HRLI	AC-1,200777		;SETUP
  8637	040604	541 05 0 00 777776 		HRRI	AC-1,ZZ			;BR
  8638	040605	174 06 0 00 000005 		FDVR	AC,AC-1			;C(AC)/C(E)
  8639	040606	312 06 0 00 000004 		CAME	AC,AC-2			;TEST QUOT
  8640	040607	003 06 0 00 011201 		ER3	AC,SN			;FDVR FAILED
  8641	040610	321 10 0 00 040577 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8642
  8643			011202		SN=SN+1
  8644			000002			XX=XX+1
  8645		777777	777774			ZZ=ZZ-2
  8646						IFE	ZZ,<ZZ=-2>
  8647	040611	505 04 0 00 201400 		HRLI	AC-2,201400		;SETUP AC-2
  8648	040612	541 04 0 00 000002 		HRRI	AC-2,XX			;FOR COMPARISON
  8649	040613	505 06 0 00 200777 		HRLI	AC,200777		;SETUP
  8650	040614	541 06 0 00 777777 		HRRI	AC,-1			;AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 36-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0239

  8651	040615	505 05 0 00 200777 		HRLI	AC-1,200777		;SETUP
  8652	040616	541 05 0 00 777774 		HRRI	AC-1,ZZ			;BR
  8653	040617	174 06 0 00 000005 		FDVR	AC,AC-1			;C(AC)/C(E)
  8654	040620	312 06 0 00 000004 		CAME	AC,AC-2			;TEST QUOT
  8655	040621	003 06 0 00 011202 		ER3	AC,SN			;FDVR FAILED
  8656	040622	321 10 0 00 040611 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8657
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0240

  8658					;TEST FDVR
  8659					;AR=210777777777
  8660					;BR=170555000000
  8661					;QUOT=221547063715
  8662
  8663			000005			AC=5
  8664						SAVEAC (1,1)^
  8665	040623	201 07 0 00 040623 		MOVEI	AC+2,.
  8666	040624	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8667	040625	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8668	040626	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8669
  8670	040627	505 03 0 00 221547 	P11300:	HRLI	AC-2,221547		;SETUP AC-2
  8671	040630	541 03 0 00 063715 		HRRI	AC-2,63715		;FOR COMPARISON
  8672	040631	505 05 0 00 210777 		HRLI	AC,210777		;SETUP
  8673	040632	541 05 0 00 777777 		HRRI	AC,-1			;AC
  8674	040633	205 04 0 00 170555 		MOVSI	AC-1,170555		;SETUP BR
  8675	040634	174 05 0 00 000004 		FDVR	AC,AC-1			;C(AC)/C(E)
  8676	040635	312 05 0 00 000003 		CAME	AC,AC-2			;TEST QUOT
  8677	040636	003 05 0 00 011301 		ER3	AC,11301		;FDVR FAILED
  8678	040637	321 07 0 00 040627 		JUMPL	AC+2,P11300		;LOOP ON ERROR SWITCH
  8679
  8680					;TEST FDVR
  8681					;AR=210777777776
  8682					;BR=170555000000
  8683					;QUOT=221547063714(NOT ROUND)
  8684
  8685			000014			AC=14
  8686						SAVEAC	(1,1)^
  8687	040640	201 16 0 00 040640 		MOVEI	AC+2,.
  8688	040641	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8689	040642	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8690	040643	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8691
  8692	040644	505 12 0 00 221547 	P11400:	HRLI	AC-2,221547		;SETUP AC-2
  8693	040645	541 12 0 00 063714 		HRRI	AC-2,63714		;FOR COMPARISON
  8694	040646	505 14 0 00 210777 		HRLI	AC,210777		;SETUP
  8695	040647	541 14 0 00 777776 		HRRI	AC,-2			;AC
  8696	040650	205 13 0 00 170555 		MOVSI	AC-1,170555		;SETUP BR
  8697	040651	174 14 0 00 000013 		FDVR	AC,AC-1			;C(AC)/C(E)
  8698	040652	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8699	040653	003 14 0 00 011401 		ER3	AC,11401		;FDVR FAILED
  8700	040654	321 16 0 00 040644 		JUMPL	AC+2,P11400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 38
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0241

  8701					;TEST FDVR
  8702					;AR=210777777777
  8703					;BR=170555600000
  8704					;QUOT=221546272703
  8705
  8706			000014			AC=14
  8707						SAVEAC (1,1)^
  8708	040655	201 16 0 00 040655 		MOVEI	AC+2,.
  8709	040656	202 16 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8710	040657	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8711	040660	202 16 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8712
  8713	040661	505 12 0 00 221546 	P11500:	HRLI	AC-2,221546		;SETUP AC-2
  8714	040662	541 12 0 00 272703 		HRRI	AC-2,272703		;FOR COMPARISON
  8715	040663	505 14 0 00 210777 		HRLI	AC,210777		;SETUP
  8716	040664	541 14 0 00 777777 		HRRI	AC,-1			;AC
  8717	040665	505 13 0 00 170555 		HRLI	AC-1,170555		;SETUP
  8718	040666	541 13 0 00 600000 		HRRI	AC-1,600000		;BR
  8719	040667	174 14 0 00 000013 		FDVR	AC,AC-1			;C(AC)/C(E)
  8720	040670	312 14 0 00 000012 		CAME	AC,AC-2			;TEST QUOT
  8721	040671	003 14 0 00 011501 		ER3	AC,11501		;FDVR FAILED
  8722	040672	312 13 0 00 070653 		CAME	AC-1,[170555,,600000] ;EXAMINE C(E)
  8723	040673	005 13 0 00 011501 		ER5	AC-1,11501		;C(E) WAS CLOBBERED
  8724	040674	321 16 0 00 040661 		JUMPL	AC+2,P11500		;LOOP ON ERROR SWITCH
  8725
  8726					;TEST FDVRM
  8727					;AR=210777777777
  8728					;BR=170557000000
  8729					;QUOT=221545111741
  8730
  8731			000013			AC=13
  8732						SAVEAC (1,1)^
  8733	040675	201 15 0 00 040675 		MOVEI	AC+2,.
  8734	040676	202 15 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8735	040677	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8736	040700	202 15 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8737
  8738	040701	505 11 0 00 221545 	P11600:	HRLI	AC-2,221545		;SETUP AC-2
  8739	040702	541 11 0 00 111741 		HRRI	AC-2,111741		;FOR COMPARISON
  8740	040703	505 13 0 00 210777 		HRLI	AC,210777		;SETUP
  8741	040704	541 13 0 00 777777 		HRRI	AC,-1			;AC
  8742	040705	205 12 0 00 170557 		MOVSI	AC-1,170557		;SETUP BR
  8743	040706	176 13 0 00 000012 		FDVRM	AC,AC-1			;C(AC)/C(E)
  8744	040707	312 12 0 00 000011 		CAME	AC-1,AC-2		;TEST QUOT
  8745	040710	005 12 0 00 011601 		ER5	AC-1,11601		;FDVRM FAILED
  8746	040711	321 15 0 00 040701 		JUMPL	AC+2,P11600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 39
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0242

  8747					;TEST FDVRM
  8748					;AR=210777777777
  8749					;BR=170560000000
  8750					;QUOT=221544131026
  8751
  8752			000012			AC=12
  8753						SAVEAC (1,1)^
  8754	040712	201 14 0 00 040712 		MOVEI	AC+2,.
  8755	040713	202 14 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8756	040714	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8757	040715	202 14 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8758
  8759	040716	505 10 0 00 221544 	P11700:	HRLI	AC-2,221544		;SETUP AC-2
  8760	040717	541 10 0 00 131026 		HRRI	AC-2,131026		;FOR COMPARISON
  8761	040720	505 12 0 00 210777 		HRLI	AC,210777		;SETUP
  8762	040721	541 12 0 00 777777 		HRRI	AC,-1			;AC
  8763	040722	205 11 0 00 170560 		MOVSI	AC-1,170560		;SETUP BR
  8764	040723	176 12 0 00 000011 		FDVRM	AC,AC-1			;C(AC)/C(E)
  8765	040724	312 12 0 00 070652 		CAME	AC,[210777,,-1]		;EXAMINE C(AC)
  8766	040725	003 12 0 00 011701 		ER3	AC,11701		;C(AC) WAS CLOBBERED
  8767	040726	312 11 0 00 000010 		CAME	AC-1,AC-2		;TEST QUOT
  8768	040727	005 11 0 00 011701 		ER5	AC-1,11701		;FDVRM FAILED
  8769	040730	321 14 0 00 040716 		JUMPL	AC+2,P11700		;LOOP ON ERROR SWITCH
  8770
  8771					;TEST FDVRB
  8772					;AR=377400000000
  8773					;BR=100777000000
  8774					;QUOT=077400400401
  8775
  8776			000011			AC=11
  8777						SAVEAC (1,1)^
  8778	040731	201 13 0 00 040731 		MOVEI	AC+2,.
  8779	040732	202 13 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8780	040733	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8781	040734	202 13 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8782
  8783	040735	505 07 0 00 077400 	P12000:	HRLI	AC-2,77400		;SETUP AC-2
  8784	040736	541 07 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8785	040737	205 11 0 00 377400 		MOVSI	AC,377400		;SETUP AC
  8786	040740	205 10 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8787	040741	177 11 0 00 000010 		FDVRB	AC,AC-1			;C(AC(/C(E)
  8788	040742	316 11 0 00 000007 		CAMN	AC,AC-2			;TEST QUOT(AC)
  8789	040743	312 10 0 00 000007 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8790	040744	005 10 0 00 012001 		ER5	AC-1,12001		;FDVRB FAILED
  8791	040745	321 13 0 00 040735 		JUMPL	AC+2,P12000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0243

  8792					;TEST FDVRB
  8793					;AR=376.4,375.4,374.4,373.4,372.4
  8794					;BR=100777000000
  8795					;QUOT=076,075,074,073,072:400400401
  8796
  8797			000010			AC=10
  8798						SAVEAC	(1,1)^
  8799	040746	201 12 0 00 040746 		MOVEI	AC+2,.
  8800	040747	202 12 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8801	040750	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8802	040751	202 12 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8803
  8804			012100		SN=12100
  8805			077400			XX=77400
  8806			377400			ZZ=377400
  8807
  8808					P12100:	REPEAT ^D5,			;TEST FDVRB
  8809					<SN=SN+1
  8810						XX=XX-1000
  8811						ZZ=ZZ-1000
  8812						HRLI	AC-2,XX			;SETUP AC-2
  8813						HRRI	AC-2,400401		;FOR COMPARISON
  8814						MOVSI	AC,ZZ			;SETUP AC
  8815						MOVSI	AC-1,100777		;SETUP BR
  8816						FDVRB	AC,AC-1			;C(AC)/C(E)
  8817						CAME	AC,AC-2			;TEST QUOT(AC)
  8818						ER3	AC,SN			;C(AC) FAILED
  8819						CAME	AC-1,AC-2		;TEST QUOT(E)
  8820						ER5	AC-1,SN			;FDVRB FAILED
  8821						JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8822					>
  8823			012101		SN=SN+1
  8824			076400			XX=XX-1000
  8825			376400			ZZ=ZZ-1000
  8826	040752	505 06 0 00 076400 		HRLI	AC-2,XX			;SETUP AC-2
  8827	040753	541 06 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8828	040754	205 10 0 00 376400 		MOVSI	AC,ZZ			;SETUP AC
  8829	040755	205 07 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8830	040756	177 10 0 00 000007 		FDVRB	AC,AC-1			;C(AC)/C(E)
  8831	040757	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT(AC)
  8832	040760	003 10 0 00 012101 		ER3	AC,SN			;C(AC) FAILED
  8833	040761	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8834	040762	005 07 0 00 012101 		ER5	AC-1,SN			;FDVRB FAILED
  8835	040763	321 12 0 00 040752 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8836
  8837			012102		SN=SN+1
  8838			075400			XX=XX-1000
  8839			375400			ZZ=ZZ-1000
  8840	040764	505 06 0 00 075400 		HRLI	AC-2,XX			;SETUP AC-2
  8841	040765	541 06 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8842	040766	205 10 0 00 375400 		MOVSI	AC,ZZ			;SETUP AC
  8843	040767	205 07 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8844	040770	177 10 0 00 000007 		FDVRB	AC,AC-1			;C(AC)/C(E)
  8845	040771	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT(AC)
  8846	040772	003 10 0 00 012102 		ER3	AC,SN			;C(AC) FAILED
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0244

  8847	040773	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8848	040774	005 07 0 00 012102 		ER5	AC-1,SN			;FDVRB FAILED
  8849	040775	321 12 0 00 040764 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8850
  8851			012103		SN=SN+1
  8852			074400			XX=XX-1000
  8853			374400			ZZ=ZZ-1000
  8854	040776	505 06 0 00 074400 		HRLI	AC-2,XX			;SETUP AC-2
  8855	040777	541 06 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8856	041000	205 10 0 00 374400 		MOVSI	AC,ZZ			;SETUP AC
  8857	041001	205 07 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8858	041002	177 10 0 00 000007 		FDVRB	AC,AC-1			;C(AC)/C(E)
  8859	041003	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT(AC)
  8860	041004	003 10 0 00 012103 		ER3	AC,SN			;C(AC) FAILED
  8861	041005	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8862	041006	005 07 0 00 012103 		ER5	AC-1,SN			;FDVRB FAILED
  8863	041007	321 12 0 00 040776 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8864
  8865			012104		SN=SN+1
  8866			073400			XX=XX-1000
  8867			373400			ZZ=ZZ-1000
  8868	041010	505 06 0 00 073400 		HRLI	AC-2,XX			;SETUP AC-2
  8869	041011	541 06 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8870	041012	205 10 0 00 373400 		MOVSI	AC,ZZ			;SETUP AC
  8871	041013	205 07 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8872	041014	177 10 0 00 000007 		FDVRB	AC,AC-1			;C(AC)/C(E)
  8873	041015	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT(AC)
  8874	041016	003 10 0 00 012104 		ER3	AC,SN			;C(AC) FAILED
  8875	041017	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8876	041020	005 07 0 00 012104 		ER5	AC-1,SN			;FDVRB FAILED
  8877	041021	321 12 0 00 041010 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8878
  8879			012105		SN=SN+1
  8880			072400			XX=XX-1000
  8881			372400			ZZ=ZZ-1000
  8882	041022	505 06 0 00 072400 		HRLI	AC-2,XX			;SETUP AC-2
  8883	041023	541 06 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8884	041024	205 10 0 00 372400 		MOVSI	AC,ZZ			;SETUP AC
  8885	041025	205 07 0 00 100777 		MOVSI	AC-1,100777		;SETUP BR
  8886	041026	177 10 0 00 000007 		FDVRB	AC,AC-1			;C(AC)/C(E)
  8887	041027	312 10 0 00 000006 		CAME	AC,AC-2			;TEST QUOT(AC)
  8888	041030	003 10 0 00 012105 		ER3	AC,SN			;C(AC) FAILED
  8889	041031	312 07 0 00 000006 		CAME	AC-1,AC-2		;TEST QUOT(E)
  8890	041032	005 07 0 00 012105 		ER5	AC-1,SN			;FDVRB FAILED
  8891	041033	321 12 0 00 041022 		JUMPL	AC+2,.-^D9		;LOOP ON ERROR SWITCH
  8892
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0245

  8893					;TEST FDVRI
  8894					;AR=210777000000
  8895					;E=210777
  8896					;QUOT=201400000000
  8897
  8898			000007			AC=7
  8899						SAVEAC (1,1)^
  8900	041034	201 11 0 00 041034 		MOVEI	AC+2,.
  8901	041035	202 11 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8902	041036	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8903	041037	202 11 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8904
  8905	041040	205 05 0 00 201400 	P12200:	MOVSI	AC-2,201400		;SETUP FOR COMPARISON
  8906	041041	205 07 0 00 210777 		MOVSI	AC,210777		;SETUP AC
  8907	041042	175 07 0 00 210777 		FDVRI	AC,210777		;C(AC)/E
  8908	041043	312 07 0 00 000005 		CAME	AC,AC-2			;TEST QUOT
  8909	041044	003 07 0 00 012201 		ER3	AC,12201		;FDVRI FAILED
  8910	041045	321 11 0 00 041040 		JUMPL	AC+2,P12200		;LOOP ON ERROR SWITCH
  8911
  8912					;TEST FDVRI
  8913					;AR=200400000000
  8914					;E=210777
  8915					;QUOT=170400400401
  8916
  8917			000006			AC=6
  8918						SAVEAC (1,1)^
  8919	041046	201 10 0 00 041046 		MOVEI	AC+2,.
  8920	041047	202 10 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8921	041050	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8922	041051	202 10 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8923
  8924	041052	505 04 0 00 170400 	P12300:	HRLI	AC-2,170400		;SETUP AC-2
  8925	041053	541 04 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8926	041054	205 06 0 00 200400 		MOVSI	AC,200400		;SETUP AC
  8927	041055	175 06 0 00 210777 		FDVRI	AC,210777		;C(AC)/E
  8928	041056	312 06 0 00 000004 		CAME	AC,AC-2			;TEST QUOT
  8929	041057	003 06 0 00 012301 		ER3	AC,12301		;FDVRI FAILED
  8930	041060	321 10 0 00 041052 		JUMPL	AC+2,P12300		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0246

  8931					;TEST FDVRI
  8932					;AR=371.4,370.4,367.4
  8933					;E=100777
  8934					;QUOT=071,070,067:400400401
  8935
  8936			000005			AC=5
  8937						SAVEAC	(1,1)^
  8938	041061	201 07 0 00 041061 		MOVEI	AC+2,.
  8939	041062	202 07 0 00 030051 		MOVEM	AC+2,TESTPC		;SETUP SUBTEST PC
  8940	041063	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17		;INFORM ERROR ROUTINE WHICH
  8941	041064	202 07 0 00 073775 		MOVEM	AC+2,ERRLOP#		;AC IS USED FOR ITERATION^
  8942
  8943			012400		SN=12400
  8944			072400			XX=72400
  8945			372400			ZZ=372400
  8946
  8947					P12400:	REPEAT ^D3,			;TEST FDVRI
  8948					<SN=SN+1
  8949						XX=XX-1000
  8950						ZZ=ZZ-1000
  8951						HRLI	AC-2,XX			;SETUP AC-2
  8952						HRRI	AC-2,400401		;FOR COMPARISON
  8953						MOVSI	AC,ZZ			;SETUP AC
  8954						FDVRI	AC,100777		;C(AC)/E
  8955						CAME	AC,AC-2			;TEST QUOT
  8956						ER3	AC,SN			;FDVRI FAILED
  8957						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8958					>
  8959			012401		SN=SN+1
  8960			071400			XX=XX-1000
  8961			371400			ZZ=ZZ-1000
  8962	041065	505 03 0 00 071400 		HRLI	AC-2,XX			;SETUP AC-2
  8963	041066	541 03 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8964	041067	205 05 0 00 371400 		MOVSI	AC,ZZ			;SETUP AC
  8965	041070	175 05 0 00 100777 		FDVRI	AC,100777		;C(AC)/E
  8966	041071	312 05 0 00 000003 		CAME	AC,AC-2			;TEST QUOT
  8967	041072	003 05 0 00 012401 		ER3	AC,SN			;FDVRI FAILED
  8968	041073	321 07 0 00 041065 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8969
  8970			012402		SN=SN+1
  8971			070400			XX=XX-1000
  8972			370400			ZZ=ZZ-1000
  8973	041074	505 03 0 00 070400 		HRLI	AC-2,XX			;SETUP AC-2
  8974	041075	541 03 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
  8975	041076	205 05 0 00 370400 		MOVSI	AC,ZZ			;SETUP AC
  8976	041077	175 05 0 00 100777 		FDVRI	AC,100777		;C(AC)/E
  8977	041100	312 05 0 00 000003 		CAME	AC,AC-2			;TEST QUOT
  8978	041101	003 05 0 00 012402 		ER3	AC,SN			;FDVRI FAILED
  8979	041102	321 07 0 00 041074 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8980
  8981			012403		SN=SN+1
  8982			067400			XX=XX-1000
  8983			367400			ZZ=ZZ-1000
  8984	041103	505 03 0 00 067400 		HRLI	AC-2,XX			;SETUP AC-2
  8985	041104	541 03 0 00 400401 		HRRI	AC-2,400401		;FOR COMPARISON
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-1
DFKCA2	MAC	 3-Oct-80 13:56		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0247

  8986	041105	205 05 0 00 367400 		MOVSI	AC,ZZ			;SETUP AC
  8987	041106	175 05 0 00 100777 		FDVRI	AC,100777		;C(AC)/E
  8988	041107	312 05 0 00 000003 		CAME	AC,AC-2			;TEST QUOT
  8989	041110	003 05 0 00 012403 		ER3	AC,SN			;FDVRI FAILED
  8990	041111	321 07 0 00 041103 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  8991
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF 0                                         SEQ 0248

  8992					SUBTTL	DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
  8993
  8994					DEFINE	SAVEAC	(A,B)<
  8995						MOVEI	SAC,.
  8996						MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
  8997						MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
  8998						MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION>
  8999
  9000					;CHECK THAT 'FIX AC,E' DOES NOT MODIFY C(E)
  9001			000004		CC00:	AC=4
  9002			000010			SAC=<AC+4>&17
  9003						SAVEAC	(1,1)^
  9004	041112	201 10 0 00 041112 		MOVEI	SAC,.
  9005	041113	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
  9006	041114	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
  9007	041115	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
  9008
  9009					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION DOES NOT DESTROY C(E)
  9010
  9011	041116	200 02 0 00 070654 	Q10:	MOVE	AC-2,[233525,,252525]	;LOAD 'E' WITH DATA
  9012						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN E TO FIX PT AND STORE IN AC
  9013	041117	122 04 0 00 000002 
  9014	041120	312 02 0 00 070654 		CAME	AC-2,[233525,,252525]	;WAS FLT PT NBR MODIFIED
  9015	041121	005 02 0 00 000011 		ER5	AC-2,11			;C(E) WAS CLOBBERED
  9016	041122	321 10 0 00 041116 		JUMPL	SAC,Q10			;LOOP ON ERROR SWITCH
  9017
  9018					;CONVERT A FLOAT POINT NO. OF ZEROS TO FIXED PT
  9019
  9020			000004			AC=4
  9021			000010			SAC=<AC+4>&17
  9022						SAVEAC	(1,1)^
  9023	041123	201 10 0 00 041123 		MOVEI	SAC,.
  9024	041124	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
  9025	041125	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
  9026	041126	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
  9027
  9028					;THIS TEST VERIFIES THAT A FLT PT NO. OF 0 CONVERTED TO FIX PT BY
  9029					;FIX, REMAINS 0.
  9030
  9031	041127	402 00 0 00 000002 	Q100:	SETZM	AC-2			;INITIALIZE FLT PT NBR IN 'E'
  9032	041130	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO OF 0 TO FIX PT
  9033	041131	302 04 0 00 000000 		CAIE	AC,0			;WAS FLT PT 0 CONVERTED CORRECTLY?
  9034	041132	003 04 0 00 000101 		ER3	AC,101			;FIX PT NBR IS INCORRECT
  9035	041133	321 10 0 00 041127 		JUMPL	SAC,Q100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0249

  9036					SUBTTL	DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
  9037
  9038			000200		SN=200
  9039			200400			XX=200400
  9040			000000			YY=0
  9041
  9042					Q200:	REPEAT	^D18,<
  9043					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9044					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9045					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9046					
  9047					SN=SN+1
  9048						XX=XX+1000
  9049						YY=YY+YY
  9050						IFE	YY,<YY=1>
  9051						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9052						HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9053						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9054					AC
  9055						CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9056						ER3	AC,SN			;FIX PT NBR INCORRECT
  9057						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9058					>
  9059
  9060					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9061					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9062					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9063
  9064			000201		SN=SN+1
  9065			201400			XX=XX+1000
  9066			000000			YY=YY+YY
  9067			000001			IFE	YY,<YY=1>
  9068	041134	205 02 0 00 201400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9069	041135	551 03 0 00 000001 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9070						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9071	041136	122 04 0 00 000002 	AC
  9072	041137	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9073	041140	003 04 0 00 000201 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9074	041141	321 10 0 00 041134 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9075
  9076
  9077					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9078					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9079					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9080
  9081			000202		SN=SN+1
  9082			202400			XX=XX+1000
  9083			000002			YY=YY+YY
  9084						IFE	YY,<YY=1>
  9085	041142	205 02 0 00 202400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9086	041143	551 03 0 00 000002 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9087						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9088	041144	122 04 0 00 000002 	AC
  9089	041145	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9090	041146	003 04 0 00 000202 		ER3	AC,SN			;FIX PT NBR INCORRECT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0250

  9091	041147	321 10 0 00 041142 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9092
  9093
  9094					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9095					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9096					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9097
  9098			000203		SN=SN+1
  9099			203400			XX=XX+1000
  9100			000004			YY=YY+YY
  9101						IFE	YY,<YY=1>
  9102	041150	205 02 0 00 203400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9103	041151	551 03 0 00 000004 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9104						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9105	041152	122 04 0 00 000002 	AC
  9106	041153	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9107	041154	003 04 0 00 000203 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9108	041155	321 10 0 00 041150 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9109
  9110
  9111					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9112					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9113					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9114
  9115			000204		SN=SN+1
  9116			204400			XX=XX+1000
  9117			000010			YY=YY+YY
  9118						IFE	YY,<YY=1>
  9119	041156	205 02 0 00 204400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9120	041157	551 03 0 00 000010 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9121						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9122	041160	122 04 0 00 000002 	AC
  9123	041161	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9124	041162	003 04 0 00 000204 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9125	041163	321 10 0 00 041156 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9126
  9127
  9128					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9129					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9130					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9131
  9132			000205		SN=SN+1
  9133			205400			XX=XX+1000
  9134			000020			YY=YY+YY
  9135						IFE	YY,<YY=1>
  9136	041164	205 02 0 00 205400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9137	041165	551 03 0 00 000020 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9138						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9139	041166	122 04 0 00 000002 	AC
  9140	041167	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9141	041170	003 04 0 00 000205 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9142	041171	321 10 0 00 041164 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9143
  9144
  9145					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0251

  9146					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9147					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9148
  9149			000206		SN=SN+1
  9150			206400			XX=XX+1000
  9151			000040			YY=YY+YY
  9152						IFE	YY,<YY=1>
  9153	041172	205 02 0 00 206400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9154	041173	551 03 0 00 000040 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9155						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9156	041174	122 04 0 00 000002 	AC
  9157	041175	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9158	041176	003 04 0 00 000206 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9159	041177	321 10 0 00 041172 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9160
  9161
  9162					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9163					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9164					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9165
  9166			000207		SN=SN+1
  9167			207400			XX=XX+1000
  9168			000100			YY=YY+YY
  9169						IFE	YY,<YY=1>
  9170	041200	205 02 0 00 207400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9171	041201	551 03 0 00 000100 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9172						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9173	041202	122 04 0 00 000002 	AC
  9174	041203	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9175	041204	003 04 0 00 000207 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9176	041205	321 10 0 00 041200 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9177
  9178
  9179					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9180					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9181					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9182
  9183			000210		SN=SN+1
  9184			210400			XX=XX+1000
  9185			000200			YY=YY+YY
  9186						IFE	YY,<YY=1>
  9187	041206	205 02 0 00 210400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9188	041207	551 03 0 00 000200 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9189						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9190	041210	122 04 0 00 000002 	AC
  9191	041211	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9192	041212	003 04 0 00 000210 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9193	041213	321 10 0 00 041206 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9194
  9195
  9196					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9197					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9198					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9199
  9200			000211		SN=SN+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0252

  9201			211400			XX=XX+1000
  9202			000400			YY=YY+YY
  9203						IFE	YY,<YY=1>
  9204	041214	205 02 0 00 211400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9205	041215	551 03 0 00 000400 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9206						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9207	041216	122 04 0 00 000002 	AC
  9208	041217	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9209	041220	003 04 0 00 000211 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9210	041221	321 10 0 00 041214 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9211
  9212
  9213					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9214					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9215					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9216
  9217			000212		SN=SN+1
  9218			212400			XX=XX+1000
  9219			001000			YY=YY+YY
  9220						IFE	YY,<YY=1>
  9221	041222	205 02 0 00 212400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9222	041223	551 03 0 00 001000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9223						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9224	041224	122 04 0 00 000002 	AC
  9225	041225	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9226	041226	003 04 0 00 000212 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9227	041227	321 10 0 00 041222 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9228
  9229
  9230					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9231					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9232					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9233
  9234			000213		SN=SN+1
  9235			213400			XX=XX+1000
  9236			002000			YY=YY+YY
  9237						IFE	YY,<YY=1>
  9238	041230	205 02 0 00 213400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9239	041231	551 03 0 00 002000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9240						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9241	041232	122 04 0 00 000002 	AC
  9242	041233	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9243	041234	003 04 0 00 000213 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9244	041235	321 10 0 00 041230 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9245
  9246
  9247					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9248					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9249					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9250
  9251			000214		SN=SN+1
  9252			214400			XX=XX+1000
  9253			004000			YY=YY+YY
  9254						IFE	YY,<YY=1>
  9255	041236	205 02 0 00 214400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0253

  9256	041237	551 03 0 00 004000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9257						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9258	041240	122 04 0 00 000002 	AC
  9259	041241	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9260	041242	003 04 0 00 000214 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9261	041243	321 10 0 00 041236 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9262
  9263
  9264					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9265					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9266					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9267
  9268			000215		SN=SN+1
  9269			215400			XX=XX+1000
  9270			010000			YY=YY+YY
  9271						IFE	YY,<YY=1>
  9272	041244	205 02 0 00 215400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9273	041245	551 03 0 00 010000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9274						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9275	041246	122 04 0 00 000002 	AC
  9276	041247	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9277	041250	003 04 0 00 000215 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9278	041251	321 10 0 00 041244 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9279
  9280
  9281					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9282					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9283					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9284
  9285			000216		SN=SN+1
  9286			216400			XX=XX+1000
  9287			020000			YY=YY+YY
  9288						IFE	YY,<YY=1>
  9289	041252	205 02 0 00 216400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9290	041253	551 03 0 00 020000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9291						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9292	041254	122 04 0 00 000002 	AC
  9293	041255	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9294	041256	003 04 0 00 000216 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9295	041257	321 10 0 00 041252 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9296
  9297
  9298					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9299					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9300					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9301
  9302			000217		SN=SN+1
  9303			217400			XX=XX+1000
  9304			040000			YY=YY+YY
  9305						IFE	YY,<YY=1>
  9306	041260	205 02 0 00 217400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9307	041261	551 03 0 00 040000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9308						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9309	041262	122 04 0 00 000002 	AC
  9310	041263	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0254

  9311	041264	003 04 0 00 000217 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9312	041265	321 10 0 00 041260 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9313
  9314
  9315					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9316					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9317					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9318
  9319			000220		SN=SN+1
  9320			220400			XX=XX+1000
  9321			100000			YY=YY+YY
  9322						IFE	YY,<YY=1>
  9323	041266	205 02 0 00 220400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9324	041267	551 03 0 00 100000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9325						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9326	041270	122 04 0 00 000002 	AC
  9327	041271	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9328	041272	003 04 0 00 000220 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9329	041273	321 10 0 00 041266 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9330
  9331
  9332					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9333					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9334					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9335
  9336			000221		SN=SN+1
  9337			221400			XX=XX+1000
  9338			200000			YY=YY+YY
  9339						IFE	YY,<YY=1>
  9340	041274	205 02 0 00 221400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9341	041275	551 03 0 00 200000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9342						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9343	041276	122 04 0 00 000002 	AC
  9344	041277	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9345	041300	003 04 0 00 000221 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9346	041301	321 10 0 00 041274 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9347
  9348
  9349					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9350					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9351					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9352
  9353			000222		SN=SN+1
  9354			222400			XX=XX+1000
  9355			400000			YY=YY+YY
  9356						IFE	YY,<YY=1>
  9357	041302	205 02 0 00 222400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9358	041303	551 03 0 00 400000 		HRRZI	AC-1,YY			;RESULT FOR COMPARISON
  9359						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9360	041304	122 04 0 00 000002 	AC
  9361	041305	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9362	041306	003 04 0 00 000222 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9363	041307	321 10 0 00 041302 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9364
  9365					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0255

  9366			000300		SN=300
  9367			000000			YY=0
  9368
  9369					Q300:	REPEAT	^D17,<
  9370					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9371					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9372					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9373					
  9374					SN=SN+1
  9375						XX=XX+1000
  9376						YY=YY+YY
  9377						IFE	YY,<YY=1>
  9378						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9379						MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9380						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9381					AC
  9382						CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9383						ER3	AC,SN			;FIX PT NBR INCORRECT
  9384						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9385					>
  9386
  9387					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9388					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9389					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9390
  9391			000301		SN=SN+1
  9392			223400			XX=XX+1000
  9393			000000			YY=YY+YY
  9394			000001			IFE	YY,<YY=1>
  9395	041310	205 02 0 00 223400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9396	041311	205 03 0 00 000001 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9397						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9398	041312	122 04 0 00 000002 	AC
  9399	041313	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9400	041314	003 04 0 00 000301 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9401	041315	321 10 0 00 041310 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9402
  9403
  9404					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9405					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9406					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9407
  9408			000302		SN=SN+1
  9409			224400			XX=XX+1000
  9410			000002			YY=YY+YY
  9411						IFE	YY,<YY=1>
  9412	041316	205 02 0 00 224400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9413	041317	205 03 0 00 000002 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9414						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9415	041320	122 04 0 00 000002 	AC
  9416	041321	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9417	041322	003 04 0 00 000302 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9418	041323	321 10 0 00 041316 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9419
  9420
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0256

  9421					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9422					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9423					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9424
  9425			000303		SN=SN+1
  9426			225400			XX=XX+1000
  9427			000004			YY=YY+YY
  9428						IFE	YY,<YY=1>
  9429	041324	205 02 0 00 225400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9430	041325	205 03 0 00 000004 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9431						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9432	041326	122 04 0 00 000002 	AC
  9433	041327	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9434	041330	003 04 0 00 000303 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9435	041331	321 10 0 00 041324 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9436
  9437
  9438					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9439					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9440					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9441
  9442			000304		SN=SN+1
  9443			226400			XX=XX+1000
  9444			000010			YY=YY+YY
  9445						IFE	YY,<YY=1>
  9446	041332	205 02 0 00 226400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9447	041333	205 03 0 00 000010 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9448						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9449	041334	122 04 0 00 000002 	AC
  9450	041335	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9451	041336	003 04 0 00 000304 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9452	041337	321 10 0 00 041332 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9453
  9454
  9455					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9456					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9457					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9458
  9459			000305		SN=SN+1
  9460			227400			XX=XX+1000
  9461			000020			YY=YY+YY
  9462						IFE	YY,<YY=1>
  9463	041340	205 02 0 00 227400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9464	041341	205 03 0 00 000020 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9465						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9466	041342	122 04 0 00 000002 	AC
  9467	041343	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9468	041344	003 04 0 00 000305 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9469	041345	321 10 0 00 041340 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9470
  9471
  9472					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9473					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9474					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9475
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0257

  9476			000306		SN=SN+1
  9477			230400			XX=XX+1000
  9478			000040			YY=YY+YY
  9479						IFE	YY,<YY=1>
  9480	041346	205 02 0 00 230400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9481	041347	205 03 0 00 000040 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9482						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9483	041350	122 04 0 00 000002 	AC
  9484	041351	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9485	041352	003 04 0 00 000306 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9486	041353	321 10 0 00 041346 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9487
  9488
  9489					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9490					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9491					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9492
  9493			000307		SN=SN+1
  9494			231400			XX=XX+1000
  9495			000100			YY=YY+YY
  9496						IFE	YY,<YY=1>
  9497	041354	205 02 0 00 231400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9498	041355	205 03 0 00 000100 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9499						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9500	041356	122 04 0 00 000002 	AC
  9501	041357	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9502	041360	003 04 0 00 000307 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9503	041361	321 10 0 00 041354 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9504
  9505
  9506					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9507					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9508					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9509
  9510			000310		SN=SN+1
  9511			232400			XX=XX+1000
  9512			000200			YY=YY+YY
  9513						IFE	YY,<YY=1>
  9514	041362	205 02 0 00 232400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9515	041363	205 03 0 00 000200 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9516						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9517	041364	122 04 0 00 000002 	AC
  9518	041365	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9519	041366	003 04 0 00 000310 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9520	041367	321 10 0 00 041362 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9521
  9522
  9523					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9524					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9525					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9526
  9527			000311		SN=SN+1
  9528			233400			XX=XX+1000
  9529			000400			YY=YY+YY
  9530						IFE	YY,<YY=1>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-9
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0258

  9531	041370	205 02 0 00 233400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9532	041371	205 03 0 00 000400 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9533						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9534	041372	122 04 0 00 000002 	AC
  9535	041373	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9536	041374	003 04 0 00 000311 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9537	041375	321 10 0 00 041370 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9538
  9539
  9540					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9541					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9542					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9543
  9544			000312		SN=SN+1
  9545			234400			XX=XX+1000
  9546			001000			YY=YY+YY
  9547						IFE	YY,<YY=1>
  9548	041376	205 02 0 00 234400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9549	041377	205 03 0 00 001000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9550						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9551	041400	122 04 0 00 000002 	AC
  9552	041401	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9553	041402	003 04 0 00 000312 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9554	041403	321 10 0 00 041376 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9555
  9556
  9557					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9558					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9559					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9560
  9561			000313		SN=SN+1
  9562			235400			XX=XX+1000
  9563			002000			YY=YY+YY
  9564						IFE	YY,<YY=1>
  9565	041404	205 02 0 00 235400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9566	041405	205 03 0 00 002000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9567						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9568	041406	122 04 0 00 000002 	AC
  9569	041407	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9570	041410	003 04 0 00 000313 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9571	041411	321 10 0 00 041404 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9572
  9573
  9574					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9575					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9576					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9577
  9578			000314		SN=SN+1
  9579			236400			XX=XX+1000
  9580			004000			YY=YY+YY
  9581						IFE	YY,<YY=1>
  9582	041412	205 02 0 00 236400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9583	041413	205 03 0 00 004000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9584						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9585	041414	122 04 0 00 000002 	AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-10
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0259

  9586	041415	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9587	041416	003 04 0 00 000314 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9588	041417	321 10 0 00 041412 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9589
  9590
  9591					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9592					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9593					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9594
  9595			000315		SN=SN+1
  9596			237400			XX=XX+1000
  9597			010000			YY=YY+YY
  9598						IFE	YY,<YY=1>
  9599	041420	205 02 0 00 237400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9600	041421	205 03 0 00 010000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9601						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9602	041422	122 04 0 00 000002 	AC
  9603	041423	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9604	041424	003 04 0 00 000315 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9605	041425	321 10 0 00 041420 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9606
  9607
  9608					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9609					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9610					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9611
  9612			000316		SN=SN+1
  9613			240400			XX=XX+1000
  9614			020000			YY=YY+YY
  9615						IFE	YY,<YY=1>
  9616	041426	205 02 0 00 240400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9617	041427	205 03 0 00 020000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9618						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9619	041430	122 04 0 00 000002 	AC
  9620	041431	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9621	041432	003 04 0 00 000316 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9622	041433	321 10 0 00 041426 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9623
  9624
  9625					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9626					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9627					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9628
  9629			000317		SN=SN+1
  9630			241400			XX=XX+1000
  9631			040000			YY=YY+YY
  9632						IFE	YY,<YY=1>
  9633	041434	205 02 0 00 241400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9634	041435	205 03 0 00 040000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9635						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9636	041436	122 04 0 00 000002 	AC
  9637	041437	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9638	041440	003 04 0 00 000317 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9639	041441	321 10 0 00 041434 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9640
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-11
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES                           SEQ 0260

  9641
  9642					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9643					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9644					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9645
  9646			000320		SN=SN+1
  9647			242400			XX=XX+1000
  9648			100000			YY=YY+YY
  9649						IFE	YY,<YY=1>
  9650	041442	205 02 0 00 242400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9651	041443	205 03 0 00 100000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9652						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9653	041444	122 04 0 00 000002 	AC
  9654	041445	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9655	041446	003 04 0 00 000320 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9656	041447	321 10 0 00 041442 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9657
  9658
  9659					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9660					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9661					;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
  9662
  9663			000321		SN=SN+1
  9664			243400			XX=XX+1000
  9665			200000			YY=YY+YY
  9666						IFE	YY,<YY=1>
  9667	041450	205 02 0 00 243400 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9668	041451	205 03 0 00 200000 		MOVSI	AC-1,YY			;RESULT FOR COMPARISON
  9669						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN 
  9670	041452	122 04 0 00 000002 	AC
  9671	041453	312 04 0 00 000003 		CAME	AC,AC-1			;FAILURE IF TESTED BIT IS NOT SET
  9672	041454	003 04 0 00 000321 		ER3	AC,SN			;FIX PT NBR INCORRECT
  9673	041455	321 10 0 00 041450 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9674
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0261

  9675					SUBTTL	DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
  9676
  9677					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9678
  9679			000500		SN=500
  9680			200000			XX=200000
  9681			001000			YY=1000
  9682
  9683					Q500:	REPEAT	^D9,<
  9684					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9685					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9686					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9687					
  9688					SN=SN+1
  9689						XX=XX+1000
  9690						YY=YY/2
  9691						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9692						TLO	AC-2,YY			;RESULT FOR COMPARISON
  9693						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9694					AC
  9695						CAIE	AC,1			;IS RESULT IN AC = 1?
  9696						ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9697						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9698					>
  9699
  9700					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9701					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9702					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9703
  9704			000501		SN=SN+1
  9705			201000			XX=XX+1000
  9706			000400			YY=YY/2
  9707	041456	205 02 0 00 201000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9708	041457	661 02 0 00 000400 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9709						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9710	041460	122 04 0 00 000002 	AC
  9711	041461	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9712	041462	003 04 0 00 000501 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9713	041463	321 10 0 00 041456 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9714
  9715
  9716					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9717					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9718					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9719
  9720			000502		SN=SN+1
  9721			202000			XX=XX+1000
  9722			000200			YY=YY/2
  9723	041464	205 02 0 00 202000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9724	041465	661 02 0 00 000200 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9725						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9726	041466	122 04 0 00 000002 	AC
  9727	041467	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9728	041470	003 04 0 00 000502 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9729	041471	321 10 0 00 041464 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0262

  9730
  9731
  9732					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9733					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9734					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9735
  9736			000503		SN=SN+1
  9737			203000			XX=XX+1000
  9738			000100			YY=YY/2
  9739	041472	205 02 0 00 203000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9740	041473	661 02 0 00 000100 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9741						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9742	041474	122 04 0 00 000002 	AC
  9743	041475	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9744	041476	003 04 0 00 000503 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9745	041477	321 10 0 00 041472 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9746
  9747
  9748					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9749					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9750					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9751
  9752			000504		SN=SN+1
  9753			204000			XX=XX+1000
  9754			000040			YY=YY/2
  9755	041500	205 02 0 00 204000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9756	041501	661 02 0 00 000040 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9757						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9758	041502	122 04 0 00 000002 	AC
  9759	041503	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9760	041504	003 04 0 00 000504 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9761	041505	321 10 0 00 041500 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9762
  9763
  9764					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9765					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9766					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9767
  9768			000505		SN=SN+1
  9769			205000			XX=XX+1000
  9770			000020			YY=YY/2
  9771	041506	205 02 0 00 205000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9772	041507	661 02 0 00 000020 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9773						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9774	041510	122 04 0 00 000002 	AC
  9775	041511	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9776	041512	003 04 0 00 000505 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9777	041513	321 10 0 00 041506 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9778
  9779
  9780					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9781					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9782					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9783
  9784			000506		SN=SN+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0263

  9785			206000			XX=XX+1000
  9786			000010			YY=YY/2
  9787	041514	205 02 0 00 206000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9788	041515	661 02 0 00 000010 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9789						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9790	041516	122 04 0 00 000002 	AC
  9791	041517	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9792	041520	003 04 0 00 000506 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9793	041521	321 10 0 00 041514 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9794
  9795
  9796					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9797					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9798					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9799
  9800			000507		SN=SN+1
  9801			207000			XX=XX+1000
  9802			000004			YY=YY/2
  9803	041522	205 02 0 00 207000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9804	041523	661 02 0 00 000004 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9805						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9806	041524	122 04 0 00 000002 	AC
  9807	041525	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9808	041526	003 04 0 00 000507 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9809	041527	321 10 0 00 041522 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9810
  9811
  9812					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9813					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9814					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9815
  9816			000510		SN=SN+1
  9817			210000			XX=XX+1000
  9818			000002			YY=YY/2
  9819	041530	205 02 0 00 210000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9820	041531	661 02 0 00 000002 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9821						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9822	041532	122 04 0 00 000002 	AC
  9823	041533	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9824	041534	003 04 0 00 000510 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9825	041535	321 10 0 00 041530 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9826
  9827
  9828					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9829					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9830					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9831
  9832			000511		SN=SN+1
  9833			211000			XX=XX+1000
  9834			000001			YY=YY/2
  9835	041536	205 02 0 00 211000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9836	041537	661 02 0 00 000001 		TLO	AC-2,YY			;RESULT FOR COMPARISON
  9837						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9838	041540	122 04 0 00 000002 	AC
  9839	041541	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0264

  9840	041542	003 04 0 00 000511 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9841	041543	321 10 0 00 041536 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9842
  9843					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0265

  9844			000600		SN=600
  9845			000000			YY=0
  9846
  9847					Q600:	REPEAT	^D18,<
  9848					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9849					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9850					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9851					
  9852					SN=SN+1
  9853						XX=XX+1000
  9854						YY=YY/2
  9855						IFE	YY,<YY=400000>
  9856						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9857						HRRI	AC-2,YY
  9858						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9859					AC
  9860						CAIE	AC,1			;IS RESULT IN AC = 1?
  9861						ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9862						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9863					>
  9864
  9865					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9866					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9867					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9868
  9869			000601		SN=SN+1
  9870			212000			XX=XX+1000
  9871			000000			YY=YY/2
  9872			400000			IFE	YY,<YY=400000>
  9873	041544	205 02 0 00 212000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9874	041545	541 02 0 00 400000 		HRRI	AC-2,YY
  9875						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9876	041546	122 04 0 00 000002 	AC
  9877	041547	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9878	041550	003 04 0 00 000601 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9879	041551	321 10 0 00 041544 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9880
  9881
  9882					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9883					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9884					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9885
  9886			000602		SN=SN+1
  9887			213000			XX=XX+1000
  9888			200000			YY=YY/2
  9889						IFE	YY,<YY=400000>
  9890	041552	205 02 0 00 213000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9891	041553	541 02 0 00 200000 		HRRI	AC-2,YY
  9892						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9893	041554	122 04 0 00 000002 	AC
  9894	041555	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9895	041556	003 04 0 00 000602 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9896	041557	321 10 0 00 041552 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9897
  9898
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0266

  9899					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9900					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9901					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9902
  9903			000603		SN=SN+1
  9904			214000			XX=XX+1000
  9905			100000			YY=YY/2
  9906						IFE	YY,<YY=400000>
  9907	041560	205 02 0 00 214000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9908	041561	541 02 0 00 100000 		HRRI	AC-2,YY
  9909						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9910	041562	122 04 0 00 000002 	AC
  9911	041563	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9912	041564	003 04 0 00 000603 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9913	041565	321 10 0 00 041560 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9914
  9915
  9916					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9917					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9918					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9919
  9920			000604		SN=SN+1
  9921			215000			XX=XX+1000
  9922			040000			YY=YY/2
  9923						IFE	YY,<YY=400000>
  9924	041566	205 02 0 00 215000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9925	041567	541 02 0 00 040000 		HRRI	AC-2,YY
  9926						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9927	041570	122 04 0 00 000002 	AC
  9928	041571	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9929	041572	003 04 0 00 000604 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9930	041573	321 10 0 00 041566 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9931
  9932
  9933					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9934					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9935					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9936
  9937			000605		SN=SN+1
  9938			216000			XX=XX+1000
  9939			020000			YY=YY/2
  9940						IFE	YY,<YY=400000>
  9941	041574	205 02 0 00 216000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9942	041575	541 02 0 00 020000 		HRRI	AC-2,YY
  9943						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9944	041576	122 04 0 00 000002 	AC
  9945	041577	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9946	041600	003 04 0 00 000605 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9947	041601	321 10 0 00 041574 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9948
  9949
  9950					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9951					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9952					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9953
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0267

  9954			000606		SN=SN+1
  9955			217000			XX=XX+1000
  9956			010000			YY=YY/2
  9957						IFE	YY,<YY=400000>
  9958	041602	205 02 0 00 217000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9959	041603	541 02 0 00 010000 		HRRI	AC-2,YY
  9960						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9961	041604	122 04 0 00 000002 	AC
  9962	041605	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9963	041606	003 04 0 00 000606 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9964	041607	321 10 0 00 041602 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9965
  9966
  9967					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9968					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9969					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9970
  9971			000607		SN=SN+1
  9972			220000			XX=XX+1000
  9973			004000			YY=YY/2
  9974						IFE	YY,<YY=400000>
  9975	041610	205 02 0 00 220000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9976	041611	541 02 0 00 004000 		HRRI	AC-2,YY
  9977						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9978	041612	122 04 0 00 000002 	AC
  9979	041613	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9980	041614	003 04 0 00 000607 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9981	041615	321 10 0 00 041610 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9982
  9983
  9984					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
  9985					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
  9986					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
  9987
  9988			000610		SN=SN+1
  9989			221000			XX=XX+1000
  9990			002000			YY=YY/2
  9991						IFE	YY,<YY=400000>
  9992	041616	205 02 0 00 221000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
  9993	041617	541 02 0 00 002000 		HRRI	AC-2,YY
  9994						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
  9995	041620	122 04 0 00 000002 	AC
  9996	041621	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
  9997	041622	003 04 0 00 000610 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
  9998	041623	321 10 0 00 041616 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
  9999
 10000
 10001					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10002					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10003					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10004
 10005			000611		SN=SN+1
 10006			222000			XX=XX+1000
 10007			001000			YY=YY/2
 10008						IFE	YY,<YY=400000>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0268

 10009	041624	205 02 0 00 222000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10010	041625	541 02 0 00 001000 		HRRI	AC-2,YY
 10011						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10012	041626	122 04 0 00 000002 	AC
 10013	041627	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10014	041630	003 04 0 00 000611 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10015	041631	321 10 0 00 041624 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10016
 10017
 10018					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10019					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10020					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10021
 10022			000612		SN=SN+1
 10023			223000			XX=XX+1000
 10024			000400			YY=YY/2
 10025						IFE	YY,<YY=400000>
 10026	041632	205 02 0 00 223000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10027	041633	541 02 0 00 000400 		HRRI	AC-2,YY
 10028						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10029	041634	122 04 0 00 000002 	AC
 10030	041635	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10031	041636	003 04 0 00 000612 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10032	041637	321 10 0 00 041632 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10033
 10034
 10035					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10036					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10037					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10038
 10039			000613		SN=SN+1
 10040			224000			XX=XX+1000
 10041			000200			YY=YY/2
 10042						IFE	YY,<YY=400000>
 10043	041640	205 02 0 00 224000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10044	041641	541 02 0 00 000200 		HRRI	AC-2,YY
 10045						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10046	041642	122 04 0 00 000002 	AC
 10047	041643	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10048	041644	003 04 0 00 000613 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10049	041645	321 10 0 00 041640 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10050
 10051
 10052					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10053					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10054					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10055
 10056			000614		SN=SN+1
 10057			225000			XX=XX+1000
 10058			000100			YY=YY/2
 10059						IFE	YY,<YY=400000>
 10060	041646	205 02 0 00 225000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10061	041647	541 02 0 00 000100 		HRRI	AC-2,YY
 10062						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10063	041650	122 04 0 00 000002 	AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0269

 10064	041651	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10065	041652	003 04 0 00 000614 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10066	041653	321 10 0 00 041646 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10067
 10068
 10069					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10070					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10071					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10072
 10073			000615		SN=SN+1
 10074			226000			XX=XX+1000
 10075			000040			YY=YY/2
 10076						IFE	YY,<YY=400000>
 10077	041654	205 02 0 00 226000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10078	041655	541 02 0 00 000040 		HRRI	AC-2,YY
 10079						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10080	041656	122 04 0 00 000002 	AC
 10081	041657	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10082	041660	003 04 0 00 000615 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10083	041661	321 10 0 00 041654 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10084
 10085
 10086					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10087					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10088					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10089
 10090			000616		SN=SN+1
 10091			227000			XX=XX+1000
 10092			000020			YY=YY/2
 10093						IFE	YY,<YY=400000>
 10094	041662	205 02 0 00 227000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10095	041663	541 02 0 00 000020 		HRRI	AC-2,YY
 10096						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10097	041664	122 04 0 00 000002 	AC
 10098	041665	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10099	041666	003 04 0 00 000616 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10100	041667	321 10 0 00 041662 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10101
 10102
 10103					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10104					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10105					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10106
 10107			000617		SN=SN+1
 10108			230000			XX=XX+1000
 10109			000010			YY=YY/2
 10110						IFE	YY,<YY=400000>
 10111	041670	205 02 0 00 230000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10112	041671	541 02 0 00 000010 		HRRI	AC-2,YY
 10113						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10114	041672	122 04 0 00 000002 	AC
 10115	041673	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10116	041674	003 04 0 00 000617 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10117	041675	321 10 0 00 041670 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10118
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 4-9
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1                                  SEQ 0270

 10119
 10120					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10121					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10122					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10123
 10124			000620		SN=SN+1
 10125			231000			XX=XX+1000
 10126			000004			YY=YY/2
 10127						IFE	YY,<YY=400000>
 10128	041676	205 02 0 00 231000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10129	041677	541 02 0 00 000004 		HRRI	AC-2,YY
 10130						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10131	041700	122 04 0 00 000002 	AC
 10132	041701	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10133	041702	003 04 0 00 000620 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10134	041703	321 10 0 00 041676 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10135
 10136
 10137					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10138					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10139					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10140
 10141			000621		SN=SN+1
 10142			232000			XX=XX+1000
 10143			000002			YY=YY/2
 10144						IFE	YY,<YY=400000>
 10145	041704	205 02 0 00 232000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10146	041705	541 02 0 00 000002 		HRRI	AC-2,YY
 10147						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10148	041706	122 04 0 00 000002 	AC
 10149	041707	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10150	041710	003 04 0 00 000621 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10151	041711	321 10 0 00 041704 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10152
 10153
 10154					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10155					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10156					;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
 10157
 10158			000622		SN=SN+1
 10159			233000			XX=XX+1000
 10160			000001			YY=YY/2
 10161						IFE	YY,<YY=400000>
 10162	041712	205 02 0 00 233000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10163	041713	541 02 0 00 000001 		HRRI	AC-2,YY
 10164						FIX	AC,AC-2			;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN 
 10165	041714	122 04 0 00 000002 	AC
 10166	041715	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT IN AC = 1?
 10167	041716	003 04 0 00 000622 		ER3	AC,SN			;FIX PT NBR NOT EQUAL TO 1
 10168	041717	321 10 0 00 041712 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 10169
 10170
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0271

 10171					SUBTTL	DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
 10172
 10173			000700		SN=700
 10174			577000			XX=577000
 10175			000000			ZZ=0
 10176
 10177					Q700:	REPEAT	^D2,<
 10178					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10179					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10180					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10181					
 10182					SN=SN+1
 10183						XX=XX-1000
 10184						ZZ=<ZZ+ZZ>&777777
 10185						IFE	ZZ,<ZZ=777777>
 10186						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10187						TLO	AC-2,400
 10188						HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10189						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10190						CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10191						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10192						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10193					>
 10194
 10195					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10196					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10197					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10198
 10199			000701		SN=SN+1
 10200			576000			XX=XX-1000
 10201			000000			ZZ=<ZZ+ZZ>&777777
 10202			777777			IFE	ZZ,<ZZ=777777>
 10203	041720	205 02 0 00 576000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10204	041721	661 02 0 00 000400 		TLO	AC-2,400
 10205	041722	561 03 0 00 777777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10206	041723	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10207	041724	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10208	041725	003 04 0 00 000701 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10209	041726	321 10 0 00 041720 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10210
 10211
 10212					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10213					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10214					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10215
 10216			000702		SN=SN+1
 10217			575000			XX=XX-1000
 10218			777776			ZZ=<ZZ+ZZ>&777777
 10219						IFE	ZZ,<ZZ=777777>
 10220	041727	205 02 0 00 575000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10221	041730	661 02 0 00 000400 		TLO	AC-2,400
 10222	041731	561 03 0 00 777776 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10223	041732	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10224	041733	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10225	041734	003 04 0 00 000702 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0272

 10226	041735	321 10 0 00 041727 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10227
 10228					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0273

 10229			001000		SN=1000
 10230			576000			XX=576000
 10231			000000			YY=0
 10232			777776			ZZ=777776
 10233
 10234					Q1000:	REPEAT	^D8,<
 10235					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10236					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10237					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10238					
 10239					SN=SN+1
 10240						XX=XX-1000
 10241						YY=YY!<YY/2>
 10242						ZZ=<ZZ+ZZ+1>&777777
 10243						IFE	YY,<YY=200>
 10244						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10245						TLO	AC-2,YY
 10246						HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10247						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10248						CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10249						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10250						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10251					>
 10252
 10253					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10254					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10255					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10256
 10257			001001		SN=SN+1
 10258			575000			XX=XX-1000
 10259			000000			YY=YY!<YY/2>
 10260			777775			ZZ=<ZZ+ZZ+1>&777777
 10261			000200			IFE	YY,<YY=200>
 10262	041736	205 02 0 00 575000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10263	041737	661 02 0 00 000200 		TLO	AC-2,YY
 10264	041740	561 03 0 00 777775 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10265	041741	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10266	041742	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10267	041743	003 04 0 00 001001 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10268	041744	321 10 0 00 041736 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10269
 10270
 10271					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10272					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10273					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10274
 10275			001002		SN=SN+1
 10276			574000			XX=XX-1000
 10277			000300			YY=YY!<YY/2>
 10278			777773			ZZ=<ZZ+ZZ+1>&777777
 10279						IFE	YY,<YY=200>
 10280	041745	205 02 0 00 574000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10281	041746	661 02 0 00 000300 		TLO	AC-2,YY
 10282	041747	561 03 0 00 777773 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10283	041750	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0274

 10284	041751	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10285	041752	003 04 0 00 001002 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10286	041753	321 10 0 00 041745 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10287
 10288
 10289					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10290					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10291					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10292
 10293			001003		SN=SN+1
 10294			573000			XX=XX-1000
 10295			000340			YY=YY!<YY/2>
 10296			777767			ZZ=<ZZ+ZZ+1>&777777
 10297						IFE	YY,<YY=200>
 10298	041754	205 02 0 00 573000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10299	041755	661 02 0 00 000340 		TLO	AC-2,YY
 10300	041756	561 03 0 00 777767 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10301	041757	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10302	041760	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10303	041761	003 04 0 00 001003 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10304	041762	321 10 0 00 041754 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10305
 10306
 10307					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10308					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10309					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10310
 10311			001004		SN=SN+1
 10312			572000			XX=XX-1000
 10313			000360			YY=YY!<YY/2>
 10314			777757			ZZ=<ZZ+ZZ+1>&777777
 10315						IFE	YY,<YY=200>
 10316	041763	205 02 0 00 572000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10317	041764	661 02 0 00 000360 		TLO	AC-2,YY
 10318	041765	561 03 0 00 777757 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10319	041766	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10320	041767	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10321	041770	003 04 0 00 001004 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10322	041771	321 10 0 00 041763 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10323
 10324
 10325					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10326					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10327					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10328
 10329			001005		SN=SN+1
 10330			571000			XX=XX-1000
 10331			000370			YY=YY!<YY/2>
 10332			777737			ZZ=<ZZ+ZZ+1>&777777
 10333						IFE	YY,<YY=200>
 10334	041772	205 02 0 00 571000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10335	041773	661 02 0 00 000370 		TLO	AC-2,YY
 10336	041774	561 03 0 00 777737 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10337	041775	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10338	041776	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0275

 10339	041777	003 04 0 00 001005 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10340	042000	321 10 0 00 041772 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10341
 10342
 10343					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10344					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10345					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10346
 10347			001006		SN=SN+1
 10348			570000			XX=XX-1000
 10349			000374			YY=YY!<YY/2>
 10350			777677			ZZ=<ZZ+ZZ+1>&777777
 10351						IFE	YY,<YY=200>
 10352	042001	205 02 0 00 570000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10353	042002	661 02 0 00 000374 		TLO	AC-2,YY
 10354	042003	561 03 0 00 777677 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10355	042004	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10356	042005	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10357	042006	003 04 0 00 001006 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10358	042007	321 10 0 00 042001 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10359
 10360
 10361					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10362					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10363					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10364
 10365			001007		SN=SN+1
 10366			567000			XX=XX-1000
 10367			000376			YY=YY!<YY/2>
 10368			777577			ZZ=<ZZ+ZZ+1>&777777
 10369						IFE	YY,<YY=200>
 10370	042010	205 02 0 00 567000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10371	042011	661 02 0 00 000376 		TLO	AC-2,YY
 10372	042012	561 03 0 00 777577 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10373	042013	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10374	042014	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10375	042015	003 04 0 00 001007 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10376	042016	321 10 0 00 042010 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10377
 10378
 10379					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10380					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10381					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10382
 10383			001010		SN=SN+1
 10384			566000			XX=XX-1000
 10385			000377			YY=YY!<YY/2>
 10386			777377			ZZ=<ZZ+ZZ+1>&777777
 10387						IFE	YY,<YY=200>
 10388	042017	205 02 0 00 566000 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10389	042020	661 02 0 00 000377 		TLO	AC-2,YY
 10390	042021	561 03 0 00 777377 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10391	042022	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT 
 10392	042023	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10393	042024	003 04 0 00 001010 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 5-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0276

 10394	042025	321 10 0 00 042017 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10395
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0277

 10396			001100		SN=1100
 10397			566377			XX=566377
 10398			000000			YY=0
 10399			777377			ZZ=777377
 10400
 10401					Q1100:	REPEAT	^D9,<
 10402					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10403					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10404					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10405					
 10406					SN=SN+1
 10407						XX=XX-1000
 10408						YY=YY!<YY/2>
 10409						ZZ=<ZZ+ZZ+1>&777777
 10410						IFE	YY,<YY=400000>
 10411						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10412						HRRI	AC-2,YY
 10413						HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10414						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10415						CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10416						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10417						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10418					>
 10419
 10420					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10421					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10422					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10423
 10424			001101		SN=SN+1
 10425			565377			XX=XX-1000
 10426			000000			YY=YY!<YY/2>
 10427			776777			ZZ=<ZZ+ZZ+1>&777777
 10428			400000			IFE	YY,<YY=400000>
 10429	042026	205 02 0 00 565377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10430	042027	541 02 0 00 400000 		HRRI	AC-2,YY
 10431	042030	561 03 0 00 776777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10432	042031	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10433	042032	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10434	042033	003 04 0 00 001101 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10435	042034	321 10 0 00 042026 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10436
 10437
 10438					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10439					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10440					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10441
 10442			001102		SN=SN+1
 10443			564377			XX=XX-1000
 10444			600000			YY=YY!<YY/2>
 10445			775777			ZZ=<ZZ+ZZ+1>&777777
 10446						IFE	YY,<YY=400000>
 10447	042035	205 02 0 00 564377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10448	042036	541 02 0 00 600000 		HRRI	AC-2,YY
 10449	042037	561 03 0 00 775777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10450	042040	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0278

 10451	042041	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10452	042042	003 04 0 00 001102 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10453	042043	321 10 0 00 042035 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10454
 10455
 10456					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10457					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10458					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10459
 10460			001103		SN=SN+1
 10461			563377			XX=XX-1000
 10462			700000			YY=YY!<YY/2>
 10463			773777			ZZ=<ZZ+ZZ+1>&777777
 10464						IFE	YY,<YY=400000>
 10465	042044	205 02 0 00 563377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10466	042045	541 02 0 00 700000 		HRRI	AC-2,YY
 10467	042046	561 03 0 00 773777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10468	042047	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10469	042050	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10470	042051	003 04 0 00 001103 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10471	042052	321 10 0 00 042044 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10472
 10473
 10474					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10475					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10476					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10477
 10478			001104		SN=SN+1
 10479			562377			XX=XX-1000
 10480			740000			YY=YY!<YY/2>
 10481			767777			ZZ=<ZZ+ZZ+1>&777777
 10482						IFE	YY,<YY=400000>
 10483	042053	205 02 0 00 562377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10484	042054	541 02 0 00 740000 		HRRI	AC-2,YY
 10485	042055	561 03 0 00 767777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10486	042056	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10487	042057	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10488	042060	003 04 0 00 001104 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10489	042061	321 10 0 00 042053 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10490
 10491
 10492					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10493					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10494					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10495
 10496			001105		SN=SN+1
 10497			561377			XX=XX-1000
 10498			760000			YY=YY!<YY/2>
 10499			757777			ZZ=<ZZ+ZZ+1>&777777
 10500						IFE	YY,<YY=400000>
 10501	042062	205 02 0 00 561377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10502	042063	541 02 0 00 760000 		HRRI	AC-2,YY
 10503	042064	561 03 0 00 757777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10504	042065	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10505	042066	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0279

 10506	042067	003 04 0 00 001105 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10507	042070	321 10 0 00 042062 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10508
 10509
 10510					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10511					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10512					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10513
 10514			001106		SN=SN+1
 10515			560377			XX=XX-1000
 10516			770000			YY=YY!<YY/2>
 10517			737777			ZZ=<ZZ+ZZ+1>&777777
 10518						IFE	YY,<YY=400000>
 10519	042071	205 02 0 00 560377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10520	042072	541 02 0 00 770000 		HRRI	AC-2,YY
 10521	042073	561 03 0 00 737777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10522	042074	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10523	042075	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10524	042076	003 04 0 00 001106 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10525	042077	321 10 0 00 042071 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10526
 10527
 10528					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10529					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10530					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10531
 10532			001107		SN=SN+1
 10533			557377			XX=XX-1000
 10534			774000			YY=YY!<YY/2>
 10535			677777			ZZ=<ZZ+ZZ+1>&777777
 10536						IFE	YY,<YY=400000>
 10537	042100	205 02 0 00 557377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10538	042101	541 02 0 00 774000 		HRRI	AC-2,YY
 10539	042102	561 03 0 00 677777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10540	042103	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10541	042104	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10542	042105	003 04 0 00 001107 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10543	042106	321 10 0 00 042100 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10544
 10545
 10546					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10547					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10548					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10549
 10550			001110		SN=SN+1
 10551			556377			XX=XX-1000
 10552			776000			YY=YY!<YY/2>
 10553			577777			ZZ=<ZZ+ZZ+1>&777777
 10554						IFE	YY,<YY=400000>
 10555	042107	205 02 0 00 556377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10556	042110	541 02 0 00 776000 		HRRI	AC-2,YY
 10557	042111	561 03 0 00 577777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10558	042112	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10559	042113	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10560	042114	003 04 0 00 001110 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 6-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0280

 10561	042115	321 10 0 00 042107 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10562
 10563
 10564					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10565					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10566					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10567
 10568			001111		SN=SN+1
 10569			555377			XX=XX-1000
 10570			777000			YY=YY!<YY/2>
 10571			377777			ZZ=<ZZ+ZZ+1>&777777
 10572						IFE	YY,<YY=400000>
 10573	042116	205 02 0 00 555377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10574	042117	541 02 0 00 777000 		HRRI	AC-2,YY
 10575	042120	561 03 0 00 377777 		HRROI	AC-1,ZZ			;RESULT FOR COMPARISON
 10576	042121	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
 10577	042122	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10578	042123	003 04 0 00 001111 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10579	042124	321 10 0 00 042116 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10580
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0281

 10581
 10582
 10583			001200		SN=1200
 10584			000000			ZZ=0
 10585
 10586					Q1200:	REPEAT	^D9,<
 10587					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10588					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10589					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10590					
 10591					SN=SN+1
 10592						XX=XX-1000
 10593						YY=YY!<YY/2>
 10594						ZZ=<ZZ+ZZ+1>&777777
 10595						IFE	<ZZ-1>,<ZZ=777776>
 10596						MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10597						HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10598						HRLOI	AC-1,ZZ
 10599						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10600						CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10601						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10602						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10603					>
 10604
 10605					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10606					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10607					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10608
 10609			001201		SN=SN+1
 10610			554377			XX=XX-1000
 10611			777400			YY=YY!<YY/2>
 10612			000001			ZZ=<ZZ+ZZ+1>&777777
 10613			777776			IFE	<ZZ-1>,<ZZ=777776>
 10614	042125	205 02 0 00 554377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10615	042126	541 02 0 00 777400 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10616	042127	525 03 0 00 777776 		HRLOI	AC-1,ZZ
 10617	042130	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10618	042131	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10619	042132	003 04 0 00 001201 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10620	042133	321 10 0 00 042125 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10621
 10622
 10623					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10624					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10625					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10626
 10627			001202		SN=SN+1
 10628			553377			XX=XX-1000
 10629			777600			YY=YY!<YY/2>
 10630			777775			ZZ=<ZZ+ZZ+1>&777777
 10631						IFE	<ZZ-1>,<ZZ=777776>
 10632	042134	205 02 0 00 553377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10633	042135	541 02 0 00 777600 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10634	042136	525 03 0 00 777775 		HRLOI	AC-1,ZZ
 10635	042137	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0282

 10636	042140	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10637	042141	003 04 0 00 001202 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10638	042142	321 10 0 00 042134 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10639
 10640
 10641					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10642					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10643					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10644
 10645			001203		SN=SN+1
 10646			552377			XX=XX-1000
 10647			777700			YY=YY!<YY/2>
 10648			777773			ZZ=<ZZ+ZZ+1>&777777
 10649						IFE	<ZZ-1>,<ZZ=777776>
 10650	042143	205 02 0 00 552377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10651	042144	541 02 0 00 777700 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10652	042145	525 03 0 00 777773 		HRLOI	AC-1,ZZ
 10653	042146	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10654	042147	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10655	042150	003 04 0 00 001203 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10656	042151	321 10 0 00 042143 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10657
 10658
 10659					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10660					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10661					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10662
 10663			001204		SN=SN+1
 10664			551377			XX=XX-1000
 10665			777740			YY=YY!<YY/2>
 10666			777767			ZZ=<ZZ+ZZ+1>&777777
 10667						IFE	<ZZ-1>,<ZZ=777776>
 10668	042152	205 02 0 00 551377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10669	042153	541 02 0 00 777740 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10670	042154	525 03 0 00 777767 		HRLOI	AC-1,ZZ
 10671	042155	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10672	042156	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10673	042157	003 04 0 00 001204 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10674	042160	321 10 0 00 042152 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10675
 10676
 10677					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10678					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10679					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10680
 10681			001205		SN=SN+1
 10682			550377			XX=XX-1000
 10683			777760			YY=YY!<YY/2>
 10684			777757			ZZ=<ZZ+ZZ+1>&777777
 10685						IFE	<ZZ-1>,<ZZ=777776>
 10686	042161	205 02 0 00 550377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10687	042162	541 02 0 00 777760 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10688	042163	525 03 0 00 777757 		HRLOI	AC-1,ZZ
 10689	042164	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10690	042165	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0283

 10691	042166	003 04 0 00 001205 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10692	042167	321 10 0 00 042161 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10693
 10694
 10695					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10696					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10697					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10698
 10699			001206		SN=SN+1
 10700			547377			XX=XX-1000
 10701			777770			YY=YY!<YY/2>
 10702			777737			ZZ=<ZZ+ZZ+1>&777777
 10703						IFE	<ZZ-1>,<ZZ=777776>
 10704	042170	205 02 0 00 547377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10705	042171	541 02 0 00 777770 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10706	042172	525 03 0 00 777737 		HRLOI	AC-1,ZZ
 10707	042173	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10708	042174	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10709	042175	003 04 0 00 001206 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10710	042176	321 10 0 00 042170 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10711
 10712
 10713					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10714					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10715					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10716
 10717			001207		SN=SN+1
 10718			546377			XX=XX-1000
 10719			777774			YY=YY!<YY/2>
 10720			777677			ZZ=<ZZ+ZZ+1>&777777
 10721						IFE	<ZZ-1>,<ZZ=777776>
 10722	042177	205 02 0 00 546377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10723	042200	541 02 0 00 777774 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10724	042201	525 03 0 00 777677 		HRLOI	AC-1,ZZ
 10725	042202	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10726	042203	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10727	042204	003 04 0 00 001207 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10728	042205	321 10 0 00 042177 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10729
 10730
 10731					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10732					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10733					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10734
 10735			001210		SN=SN+1
 10736			545377			XX=XX-1000
 10737			777776			YY=YY!<YY/2>
 10738			777577			ZZ=<ZZ+ZZ+1>&777777
 10739						IFE	<ZZ-1>,<ZZ=777776>
 10740	042206	205 02 0 00 545377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10741	042207	541 02 0 00 777776 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10742	042210	525 03 0 00 777577 		HRLOI	AC-1,ZZ
 10743	042211	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10744	042212	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10745	042213	003 04 0 00 001210 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0284

 10746	042214	321 10 0 00 042206 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10747
 10748
 10749					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10750					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10751					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10752
 10753			001211		SN=SN+1
 10754			544377			XX=XX-1000
 10755			777777			YY=YY!<YY/2>
 10756			777377			ZZ=<ZZ+ZZ+1>&777777
 10757						IFE	<ZZ-1>,<ZZ=777776>
 10758	042215	205 02 0 00 544377 		MOVSI	AC-2,XX			;INITIALIZE FLT PT NBR
 10759	042216	541 02 0 00 777777 		HRRI	AC-2,YY			;RESULT FOR COMPARISON
 10760	042217	525 03 0 00 777377 		HRLOI	AC-1,ZZ
 10761	042220	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10762	042221	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10763	042222	003 04 0 00 001211 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10764	042223	321 10 0 00 042215 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10765
 10766					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0285

 10767			001300		SN=1300
 10768			544377			XX=544377
 10769			777377			ZZ=777377
 10770			777777			WW=777777
 10771
 10772					Q1300:	REPEAT	^D8,<
 10773					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10774					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10775					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10776					
 10777					SN=SN+1
 10778						XX=XX-1000
 10779						ZZ=<ZZ+ZZ+1>&777777
 10780						WW=<WW+WW>&777777
 10781						HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10782						HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10783						HRRI	AC-1,WW
 10784						FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10785						CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10786						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10787						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10788					>
 10789
 10790					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10791					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10792					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10793
 10794			001301		SN=SN+1
 10795			543377			XX=XX-1000
 10796			776777			ZZ=<ZZ+ZZ+1>&777777
 10797			777776			WW=<WW+WW>&777777
 10798	042224	525 02 0 00 543377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10799	042225	505 03 0 00 776777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10800	042226	541 03 0 00 777776 		HRRI	AC-1,WW
 10801	042227	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10802	042230	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10803	042231	003 04 0 00 001301 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10804	042232	321 10 0 00 042224 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10805
 10806
 10807					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10808					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10809					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10810
 10811			001302		SN=SN+1
 10812			542377			XX=XX-1000
 10813			775777			ZZ=<ZZ+ZZ+1>&777777
 10814			777774			WW=<WW+WW>&777777
 10815	042233	525 02 0 00 542377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10816	042234	505 03 0 00 775777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10817	042235	541 03 0 00 777774 		HRRI	AC-1,WW
 10818	042236	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10819	042237	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10820	042240	003 04 0 00 001302 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10821	042241	321 10 0 00 042233 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0286

 10822
 10823
 10824					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10825					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10826					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10827
 10828			001303		SN=SN+1
 10829			541377			XX=XX-1000
 10830			773777			ZZ=<ZZ+ZZ+1>&777777
 10831			777770			WW=<WW+WW>&777777
 10832	042242	525 02 0 00 541377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10833	042243	505 03 0 00 773777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10834	042244	541 03 0 00 777770 		HRRI	AC-1,WW
 10835	042245	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10836	042246	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10837	042247	003 04 0 00 001303 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10838	042250	321 10 0 00 042242 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10839
 10840
 10841					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10842					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10843					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10844
 10845			001304		SN=SN+1
 10846			540377			XX=XX-1000
 10847			767777			ZZ=<ZZ+ZZ+1>&777777
 10848			777760			WW=<WW+WW>&777777
 10849	042251	525 02 0 00 540377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10850	042252	505 03 0 00 767777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10851	042253	541 03 0 00 777760 		HRRI	AC-1,WW
 10852	042254	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10853	042255	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10854	042256	003 04 0 00 001304 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10855	042257	321 10 0 00 042251 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10856
 10857
 10858					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10859					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10860					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10861
 10862			001305		SN=SN+1
 10863			537377			XX=XX-1000
 10864			757777			ZZ=<ZZ+ZZ+1>&777777
 10865			777740			WW=<WW+WW>&777777
 10866	042260	525 02 0 00 537377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10867	042261	505 03 0 00 757777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10868	042262	541 03 0 00 777740 		HRRI	AC-1,WW
 10869	042263	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10870	042264	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10871	042265	003 04 0 00 001305 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10872	042266	321 10 0 00 042260 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10873
 10874
 10875					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10876					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0287

 10877					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10878
 10879			001306		SN=SN+1
 10880			536377			XX=XX-1000
 10881			737777			ZZ=<ZZ+ZZ+1>&777777
 10882			777700			WW=<WW+WW>&777777
 10883	042267	525 02 0 00 536377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10884	042270	505 03 0 00 737777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10885	042271	541 03 0 00 777700 		HRRI	AC-1,WW
 10886	042272	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10887	042273	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10888	042274	003 04 0 00 001306 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10889	042275	321 10 0 00 042267 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10890
 10891
 10892					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10893					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10894					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10895
 10896			001307		SN=SN+1
 10897			535377			XX=XX-1000
 10898			677777			ZZ=<ZZ+ZZ+1>&777777
 10899			777600			WW=<WW+WW>&777777
 10900	042276	525 02 0 00 535377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10901	042277	505 03 0 00 677777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10902	042300	541 03 0 00 777600 		HRRI	AC-1,WW
 10903	042301	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10904	042302	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10905	042303	003 04 0 00 001307 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10906	042304	321 10 0 00 042276 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10907
 10908
 10909					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10910					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10911					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10912
 10913			001310		SN=SN+1
 10914			534377			XX=XX-1000
 10915			577777			ZZ=<ZZ+ZZ+1>&777777
 10916			777400			WW=<WW+WW>&777777
 10917	042305	525 02 0 00 534377 		HRLOI	AC-2,XX			;INITIALIZE FLT PT NBR
 10918	042306	505 03 0 00 577777 		HRLI	AC-1,ZZ			;RESULT FOR COMPARISON
 10919	042307	541 03 0 00 777400 		HRRI	AC-1,WW
 10920	042310	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10921	042311	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10922	042312	003 04 0 00 001310 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 10923	042313	321 10 0 00 042305 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 10924
 10925					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 7-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS                          SEQ 0288

 10926					;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
 10927					;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
 10928					;DATA:	RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
 10929
 10930	042314	525 02 0 00 243777 	Q1400:	HRLOI	AC-2,243777		;INITIALIZE FLT PT NBR
 10931	042315	505 03 0 00 377777 		HRLI	AC-1,377777		;RESULT FOR COMPARISON
 10932	042316	541 03 0 00 777400 		HRRI	AC-1,777400
 10933	042317	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT
 10934	042320	312 04 0 00 000003 		CAME	AC,AC-1			;IS TESTED BIT CLEAR?
 10935	042321	003 04 0 00 001401 		ER3	AC,1401			;FAILURE IF TESTED BIT IS NOT CLEAR
 10936	042322	321 10 0 00 042314 		JUMPL	SAC,Q1400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0289

 10937					SUBTTL	DIAGNOSTIC SECTION - FIX - TRUNCATION
 10938
 10939					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 10940					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 10941					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 10942					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 10943					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 10944					;CONVERTED.
 10945
 10946	042323	205 02 0 00 576000 	Q1500:	MOVSI	AC-2,576000		;SET-UP FLT PT NBR
 10947	042324	541 02 0 00 000001 		HRRI	AC-2,1
 10948	042325	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 10949	042326	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 10950										;TRUNCATE RESULT, AND PLACE IN AC
 10951	042327	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT TRUNCATED?
 10952	042330	003 04 0 00 001501 		ER3	AC,1501			;TRUNCATION FAILED IN CONVERSION
 10953	042331	321 10 0 00 042323 		JUMPL	SAC,Q1500		;LOOP ON ERROR SWITCH
 10954
 10955					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 10956					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 10957					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 10958					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 10959					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 10960					;CONVERTED.
 10961
 10962	042332	515 02 0 00 576200 	Q1600:	HRLZI	AC-2,576200		;SET-UP FLT PT NBR
 10963	042333	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 10964	042334	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 10965										;TRUNCATE RESULT, AND PLACE IN AC
 10966	042335	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT TRUNCATED?
 10967	042336	003 04 0 00 001601 		ER3	AC,1601			;TRUNCATION FAILED IN CONVERSION
 10968	042337	321 10 0 00 042332 		JUMPL	SAC,Q1600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 9
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0290

 10969					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 10970					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 10971					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 10972					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 10973					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 10974					;CONVERTED.
 10975
 10976	042340	205 02 0 00 576200 	Q1700:	MOVSI	AC-2,576200		;SET-UP FLT PT NBR
 10977	042341	541 02 0 00 000001 		HRRI	AC-2,1
 10978	042342	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 10979	042343	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 10980										;TRUNCATE RESULT, AND PLACE IN AC
 10981	042344	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT TRUNCATED?
 10982	042345	003 04 0 00 001701 		ER3	AC,1701			;TRUNCATION FAILED IN CONVERSION
 10983	042346	321 10 0 00 042340 		JUMPL	SAC,Q1700		;LOOP ON ERROR SWITCH
 10984
 10985					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 10986					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 10987					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 10988					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 10989					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 10990					;CONVERTED.
 10991
 10992	042347	205 02 0 00 577000 	Q2000:	MOVSI	AC-2,577000		;SET-UP FLT PT NBR
 10993	042350	541 02 0 00 000001 		HRRI	AC-2,1			;SET-UP EXPECTED RESULT
 10994	042351	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 10995										;TRUNCATE RESULT, AND PLACE IN AC
 10996	042352	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 10997	042353	003 04 0 00 002001 		ER3	AC,2001			;TRUNCATION FAILED IN CONVERSION
 10998	042354	321 10 0 00 042347 		JUMPL	SAC,Q2000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 10
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0291

 10999					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11000					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11001					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11002					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11003					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11004					;CONVERTED.
 11005
 11006	042355	205 02 0 00 577400 	Q2100:	MOVSI	AC-2,577400		;SET-UP FLT PT NBR
 11007	042356	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11008										;TRUNCATE RESULT, AND PLACE IN AC
 11009	042357	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 11010	042360	003 04 0 00 002101 		ER3	AC,2101			;TRUNCATION FAILED IN CONVERSION
 11011	042361	321 10 0 00 042355 		JUMPL	SAC,Q2100		;LOOP ON ERROR SWITCH
 11012
 11013					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11014					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11015					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11016					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11017					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11018					;CONVERTED.
 11019
 11020	042362	205 02 0 00 600000 	Q2200:	MOVSI	AC-2,600000		;SET-UP FLT PT NBR
 11021	042363	541 02 0 00 000001 		HRRI	AC-2,1
 11022	042364	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11023										;TRUNCATE RESULT, AND PLACE IN AC
 11024	042365	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 11025	042366	003 04 0 00 002201 		ER3	AC,2201			;TRUNCATION FAILED IN CONVERSION
 11026	042367	321 10 0 00 042362 		JUMPL	SAC,Q2200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 11
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0292

 11027					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11028					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11029					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11030					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11031					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11032					;CONVERTED.
 11033
 11034	042370	525 02 0 00 177777 	Q2300:	HRLOI	AC-2,177777		;SET-UP FLT PT NBR
 11035	042371	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11036										;TRUNCATE RESULT, AND PLACE IN AC
 11037	042372	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 11038	042373	003 04 0 00 002301 		ER3	AC,2301			;TRUNCATION FAILED IN CONVERSION
 11039	042374	321 10 0 00 042370 		JUMPL	SAC,Q2300		;LOOP ON ERROR SWITCH
 11040
 11041					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11042					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11043					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11044					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11045					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11046					;CONVERTED.
 11047
 11048	042375	205 02 0 00 200400 	Q2400:	MOVSI	AC-2,200400		;SET-UP FLT PT NBR
 11049	042376	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11050										;TRUNCATE RESULT, AND PLACE IN AC
 11051	042377	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 11052	042400	003 04 0 00 002401 		ER3	AC,2401			;TRUNCATION FAILED IN CONVERSION
 11053	042401	321 10 0 00 042375 		JUMPL	SAC,Q2400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 12
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0293

 11054					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11055					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11056					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11057					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11058					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11059					;CONVERTED.
 11060
 11061	042402	525 02 0 00 200777 	Q2500:	HRLOI	AC-2,200777		;SET-UP FLT PT NBR
 11062	042403	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11063										;TRUNCATE RESULT, AND PLACE IN AC
 11064	042404	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT TRUNCATED?
 11065	042405	003 04 0 00 002501 		ER3	AC,2501			;TRUNCATION FAILED IN CONVERSION
 11066	042406	321 10 0 00 042402 		JUMPL	SAC,Q2500		;LOOP ON ERROR SWITCH
 11067
 11068					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11069					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11070					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11071					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11072					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11073					;CONVERTED.
 11074
 11075	042407	525 02 0 00 201577 	Q2600:	HRLOI	AC-2,201577		;SET-UP FLT PT NBR
 11076	042410	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11077										;TRUNCATE RESULT, AND PLACE IN AC
 11078	042411	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT TRUNCATED?
 11079	042412	003 04 0 00 002601 		ER3	AC,2601			;TRUNCATION FAILED IN CONVERSION
 11080	042413	321 10 0 00 042407 		JUMPL	SAC,Q2600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 13
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - TRUNCATION                                              SEQ 0294

 11081					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11082					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11083					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11084					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11085					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11086					;CONVERTED.
 11087
 11088	042414	205 02 0 00 201600 	Q2700:	MOVSI	AC-2,201600		;SET-UP FLT PT NBR
 11089	042415	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11090										;TRUNCATE RESULT, AND PLACE IN AC
 11091	042416	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT TRUNCATED?
 11092	042417	003 04 0 00 002701 		ER3	AC,2701			;TRUNCATION FAILED IN CONVERSION
 11093	042420	321 10 0 00 042414 		JUMPL	SAC,Q2700		;LOOP ON ERROR SWITCH
 11094
 11095					;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
 11096					;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
 11097					;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
 11098					;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
 11099					;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
 11100					;CONVERTED.
 11101
 11102	042421	525 02 0 00 201777 	Q3000:	HRLOI	AC-2,201777		;SET-UP FLT PT NBR
 11103	042422	122 04 0 00 000002 		FIX	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11104										;TRUNCATE RESULT, AND PLACE IN AC
 11105	042423	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT TRUNCATED?
 11106	042424	003 04 0 00 003001 		ER3	AC,3001			;TRUNCATION FAILED IN CONVERSION
 11107	042425	321 10 0 00 042421 		JUMPL	SAC,Q3000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 14
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS                                    SEQ 0295

 11108					SUBTTL	DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
 11109
 11110					;VERIFY THAT 'FIX AC,E' OPERATES FOR 'E' BEYOND THE 'AC' RANGE
 11111
 11112						SAVEAC^
 11113	042426	201 10 0 00 042426 		MOVEI	SAC,.
 11114	042427	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 11115	042430	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 11116	042431	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 11117	042432	515 02 0 00 576200 	Q3010:	HRLZI	AC-2,576200
 11118	042433	202 02 0 00 070346 		MOVEM	AC-2,TSTWD		;LOAD 'E' WITH DATA
 11119	042434	476 00 0 00 000003 		SETOM	AC-1			;RESULT FOR COMPARISON
 11120						FIX	AC,TSTWD		;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN 
 11121	042435	122 04 0 00 070346 	AC
 11122	042436	312 04 0 00 000003 		CAME	AC,AC-1			;DID 'FIX' GET CORRECT C(E)?
 11123	042437	003 04 0 00 003011 		ER3	AC,3011			;FAILURE TO GET C(E)
 11124	042440	321 10 0 00 042432 		JUMPL	SAC,Q3010		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 15
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0296

 11125					SUBTTL	DIAGNOSTIC SECTION - FIXR - ROUNDING
 11126
 11127					;CHECK THAT 'FIXR AC,E' DOES NOT MODIFY C(E)
 11128
 11129	042441	200 02 0 00 070654 	Q3050:	MOVE	AC-2,[233525,,252525]	;LOAD 'E' WITH DATA
 11130						FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN 
 11131	042442	126 04 0 00 000002 	AC
 11132	042443	312 02 0 00 070654 		CAME	AC-2,[233525,,252525]	;WAS FLT PT NO. MODIFIED?
 11133	042444	005 02 0 00 003051 		ER5	AC-2,3051		;C(E) WAS CLOBBERED
 11134	042445	321 10 0 00 042441 		JUMPL	SAC,Q3050		;LOOP ON ERROR SWITCH
 11135
 11136					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11137					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11138					;THE RESULT IS ROUNDED DOWN TO 'N'
 11139					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11140					;THE RESULT IS ROUNDED UP TO "N+1"
 11141					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11142					;BEING CONVERTED
 11143
 11144	042446	205 02 0 00 576000 	Q3100:	MOVSI	AC-2,576000		;SET-UP FLT PT NBR
 11145	042447	541 02 0 00 000001 		HRRI	AC-2,1
 11146	042450	561 03 0 00 777776 		HRROI	AC-1,-2			;SET-UP EXPECTED RESULT
 11147	042451	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11148										;ROUND RESULT, AND PLACE IN AC
 11149	042452	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT ROUNDED?
 11150	042453	003 04 0 00 003101 		ER3	AC,3101			;ROUNDING FAILED IN CONVERSION
 11151	042454	321 10 0 00 042446 		JUMPL	SAC,Q3100		;LOOP ON ERROR SWITCH
 11152
 11153					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11154					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11155					;THE RESULT IS ROUNDED DOWN TO 'N'
 11156					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11157					;THE RESULT IS ROUNDED UP TO "N+1"
 11158					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11159					;BEING CONVERTED
 11160
 11161	042455	205 02 0 00 576200 	Q3200:	MOVSI	AC-2,576200		;SET-UP FLT PT NBR
 11162	042456	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 11163	042457	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11164										;ROUND RESULT, AND PLACE IN AC
 11165	042460	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT ROUNDED?
 11166	042461	003 04 0 00 003201 		ER3	AC,3201			;ROUNDING FAILED IN CONVERSION
 11167	042462	321 10 0 00 042455 		JUMPL	SAC,Q3200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 16
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0297

 11168					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11169					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11170					;THE RESULT IS ROUNDED DOWN TO 'N'
 11171					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11172					;THE RESULT IS ROUNDED UP TO "N+1"
 11173					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11174					;BEING CONVERTED
 11175
 11176	042463	205 02 0 00 576200 	Q3300:	MOVSI	AC-2,576200		;SET-UP FLT PT NBR
 11177	042464	541 02 0 00 000001 		HRRI	AC-2,1
 11178	042465	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 11179	042466	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11180										;ROUND RESULT, AND PLACE IN AC
 11181	042467	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT ROUNDED?
 11182	042470	003 04 0 00 003301 		ER3	AC,3301			;ROUNDING FAILED IN CONVERSION
 11183	042471	321 10 0 00 042463 		JUMPL	SAC,Q3300		;LOOP ON ERROR SWITCH
 11184
 11185					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11186					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11187					;THE RESULT IS ROUNDED DOWN TO 'N'
 11188					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11189					;THE RESULT IS ROUNDED UP TO "N+1"
 11190					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11191					;BEING CONVERTED
 11192
 11193	042472	205 02 0 00 577000 	Q3400:	MOVSI	AC-2,577000		;SET-UP FLT PT NBR
 11194	042473	541 02 0 00 000001 		HRRI	AC-2,1
 11195	042474	476 00 0 00 000003 		SETOM	AC-1			;SET-UP EXPECTED RESULT
 11196	042475	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11197										;ROUND RESULT, AND PLACE IN AC
 11198	042476	312 04 0 00 000003 		CAME	AC,AC-1			;IS RESULT ROUNDED?
 11199	042477	003 04 0 00 003401 		ER3	AC,3401			;ROUNDING FAILED IN CONVERSION
 11200	042500	321 10 0 00 042472 		JUMPL	SAC,Q3400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 17
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0298

 11201					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11202					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11203					;THE RESULT IS ROUNDED DOWN TO 'N'
 11204					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11205					;THE RESULT IS ROUNDED UP TO "N+1"
 11206					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11207					;BEING CONVERTED
 11208
 11209	042501	205 02 0 00 577400 	Q3500:	MOVSI	AC-2,577400		;SET-UP FLT PT NBR
 11210	042502	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11211										;ROUND RESULT, AND PLACE IN AC
 11212	042503	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT ROUNDED?
 11213	042504	003 04 0 00 003501 		ER3	AC,3501			;ROUNDING FAILED IN CONVERSION
 11214	042505	321 10 0 00 042501 		JUMPL	SAC,Q3500		;LOOP ON ERROR SWITCH
 11215
 11216					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11217					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11218					;THE RESULT IS ROUNDED DOWN TO 'N'
 11219					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11220					;THE RESULT IS ROUNDED UP TO "N+1"
 11221					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11222					;BEING CONVERTED
 11223
 11224	042506	205 02 0 00 600000 	Q3600:	MOVSI	AC-2,600000		;SET-UP FLT PT NBR
 11225	042507	541 02 0 00 000001 		HRRI	AC-2,1
 11226	042510	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11227										;ROUND RESULT, AND PLACE IN AC
 11228	042511	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT ROUNDED?
 11229	042512	003 04 0 00 003601 		ER3	AC,3601			;ROUNDING FAILED IN CONVERSION
 11230	042513	321 10 0 00 042506 		JUMPL	SAC,Q3600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 18
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0299

 11231					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11232					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11233					;THE RESULT IS ROUNDED DOWN TO 'N'
 11234					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11235					;THE RESULT IS ROUNDED UP TO "N+1"
 11236					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11237					;BEING CONVERTED
 11238
 11239	042514	525 02 0 00 177777 	Q3700:	HRLOI	AC-2,177777		;SET-UP FLT PT NBR
 11240	042515	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11241										;ROUND RESULT, AND PLACE IN AC
 11242	042516	302 04 0 00 000000 		CAIE	AC,0			;IS RESULT ROUNDED?
 11243	042517	003 04 0 00 003701 		ER3	AC,3701			;ROUNDING FAILED IN CONVERSION
 11244	042520	321 10 0 00 042514 		JUMPL	SAC,Q3700		;LOOP ON ERROR SWITCH
 11245
 11246					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11247					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11248					;THE RESULT IS ROUNDED DOWN TO 'N'
 11249					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11250					;THE RESULT IS ROUNDED UP TO "N+1"
 11251					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11252					;BEING CONVERTED
 11253
 11254	042521	205 02 0 00 200400 	Q4000:	MOVSI	AC-2,200400		;SET-UP FLT PT NBR
 11255	042522	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11256										;ROUND RESULT, AND PLACE IN AC
 11257	042523	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT ROUNDED?
 11258	042524	003 04 0 00 004001 		ER3	AC,4001			;ROUNDING FAILED IN CONVERSION
 11259	042525	321 10 0 00 042521 		JUMPL	SAC,Q4000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 19
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0300

 11260					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11261					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11262					;THE RESULT IS ROUNDED DOWN TO 'N'
 11263					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11264					;THE RESULT IS ROUNDED UP TO "N+1"
 11265					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11266					;BEING CONVERTED
 11267
 11268	042526	525 02 0 00 200777 	Q4100:	HRLOI	AC-2,200777		;SET-UP FLT PT NBR
 11269	042527	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11270										;ROUND RESULT, AND PLACE IN AC
 11271	042530	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT ROUNDED?
 11272	042531	003 04 0 00 004101 		ER3	AC,4101			;ROUNDING FAILED IN CONVERSION
 11273	042532	321 10 0 00 042526 		JUMPL	SAC,Q4100		;LOOP ON ERROR SWITCH
 11274
 11275					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11276					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11277					;THE RESULT IS ROUNDED DOWN TO 'N'
 11278					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11279					;THE RESULT IS ROUNDED UP TO "N+1"
 11280					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11281					;BEING CONVERTED
 11282
 11283	042533	525 02 0 00 201577 	Q4200:	HRLOI	AC-2,201577		;SET-UP FLT PT NBR
 11284	042534	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11285										;ROUND RESULT, AND PLACE IN AC
 11286	042535	302 04 0 00 000001 		CAIE	AC,1			;IS RESULT ROUNDED?
 11287	042536	003 04 0 00 004201 		ER3	AC,4201			;ROUNDING FAILED IN CONVERSION
 11288	042537	321 10 0 00 042533 		JUMPL	SAC,Q4200		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 20
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - ROUNDING                                               SEQ 0301

 11289					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11290					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11291					;THE RESULT IS ROUNDED DOWN TO 'N'
 11292					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11293					;THE RESULT IS ROUNDED UP TO "N+1"
 11294					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11295					;BEING CONVERTED
 11296
 11297	042540	205 02 0 00 201600 	Q4300:	MOVSI	AC-2,201600		;SET-UP FLT PT NBR
 11298	042541	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11299										;ROUND RESULT, AND PLACE IN AC
 11300	042542	302 04 0 00 000002 		CAIE	AC,2			;IS RESULT ROUNDED?
 11301	042543	003 04 0 00 004301 		ER3	AC,4301			;ROUNDING FAILED IN CONVERSION
 11302	042544	321 10 0 00 042540 		JUMPL	SAC,Q4300		;LOOP ON ERROR SWITCH
 11303
 11304					;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
 11305					;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
 11306					;THE RESULT IS ROUNDED DOWN TO 'N'
 11307					;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
 11308					;THE RESULT IS ROUNDED UP TO "N+1"
 11309					;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
 11310					;BEING CONVERTED
 11311
 11312	042545	525 02 0 00 201777 	Q4400:	HRLOI	AC-2,201777		;SET-UP FLT PT NBR
 11313	042546	126 04 0 00 000002 		FIXR	AC,AC-2			;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
 11314										;ROUND RESULT, AND PLACE IN AC
 11315	042547	302 04 0 00 000002 		CAIE	AC,2			;IS RESULT ROUNDED?
 11316	042550	003 04 0 00 004401 		ER3	AC,4401			;ROUNDING FAILED IN CONVERSION
 11317	042551	321 10 0 00 042545 		JUMPL	SAC,Q4400		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 21
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS                                   SEQ 0302

 11318					SUBTTL	DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
 11319
 11320					;CHECK THAT 'FIXR AC,E' OPERATES FOR 'E' BEYOND AC RANGE
 11321
 11322	042552	205 02 0 00 576000 	Q4410:	MOVSI	AC-2,576000		;LOAD 'E' WITH DATA
 11323	042553	541 02 0 00 000001 		HRRI	AC-2,1
 11324	042554	202 02 0 00 070346 		MOVEM	AC-2,TSTWD
 11325	042555	561 03 0 00 777776 		HRROI	AC-1,-2			;RESULT FOR COMPARISON
 11326						FIXR	AC,TSTWD		;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN 
 11327	042556	126 04 0 00 070346 	AC
 11328	042557	312 04 0 00 000003 		CAME	AC,AC-1			;DID FIXR GET CORRECT C(E)?
 11329	042560	003 04 0 00 004411 		ER3	AC,4411			;FAILURE TO GET C(E)
 11330	042561	321 10 0 00 042552 		JUMPL	SAC,Q4410		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 22
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW                                     SEQ 0303

 11331					SUBTTL	DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
 11332
 11333					;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
 11334					;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
 11335
 11336					;CHECK ABILITY TO CLEAR AROV BEFORE TESTING INTERACTION WITH 'FIX'
 11337
 11338	042562	255 10 0 00 042563 	Q4500:	JOV	.+1			;CLEAR ARITH OVFL FLG
 11339	042563	265 04 0 00 042564 		JSP	AC,.+1			;READ FLAGS
 11340	042564	255 10 0 00 042566 		JOV	.+2			;TEST AROV FLAG
 11341	042565	254 00 0 00 042567 		JRST	.+2			;SKIP ERROR CALL IF FLAG IS OK
 11342	042566	013 04 0 00 004501 		ER13	AC,4501			;ARITH OVFL FLG SET
 11343	042567	321 10 0 00 042562 		JUMPL	SAC,Q4500		;LOOP ON ERROR SWITCH
 11344
 11345					;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
 11346					;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
 11347
 11348	042570	255 10 0 00 042571 	Q4600:	JOV	.+1			;CLEAR ARITH OVFL FLG
 11349	042571	205 02 0 00 244400 		MOVSI	AC-2,244400		;INITIALIZE FLOATING PT WORD
 11350	042572	477 04 0 00 000003 		SETOB	AC,AC-1			;SET-UP RESULT
 11351	042573	122 04 0 00 000002 		FIX	AC,AC-2			;*FIX SHOULD SET AROV
 11352	042574	312 04 0 00 000003 		CAME	AC,AC-1			;TEST AC
 11353	042575	003 04 0 00 004601 		ER3	AC,4601			;C(AC) WAS MODIFIED
 11354	042576	265 05 0 00 042577 		JSP	AC+1,.+1		;READ FLAGS
 11355	042577	255 10 0 00 042601 		JOV	.+2			;TEST ARITH OVFL FLG
 11356	042600	013 05 0 00 004601 		ER13	AC+1,4601		;ARITH OVFL FLAG CLEAR
 11357	042601	321 10 0 00 042570 		JUMPL	SAC,Q4600		;LOOP ON ERROR SWITCH
 11358
 11359					;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
 11360					;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
 11361
 11362	042602	255 10 0 00 042603 	Q4700:	JOV	.+1			;CLEAR ARITH OVFL FLG
 11363	042603	525 02 0 00 243777 		HRLOI	AC-2,243777		;INITIALIZE FLT. PT. WORD
 11364	042604	561 03 0 00 777400 		HRROI	AC-1,777400		;SET UP RESULT
 11365	042605	621 03 0 00 400000 		TLZ	AC-1,AROV
 11366	042606	122 04 0 00 000002 		FIX	AC,AC-2			;*FIX SHOULD NOT SET AROV
 11367	042607	312 04 0 00 000003 		CAME	AC,AC-1			;TEST AC
 11368	042610	003 04 0 00 004701 		ER3	AC,4701			;C(AC) INCORRECT
 11369	042611	265 05 0 00 042612 		JSP	AC+1,.+1		;READ FLAGS
 11370	042612	255 10 0 00 042614 		JOV	.+2			;TEST ARITH OVFL FLG
 11371	042613	254 00 0 00 042615 		JRST	.+2			;SKIP ERROR CALL IF AROV IS CLEAR
 11372	042614	013 05 0 00 004701 		ER13	AC+1,4701		;ARITH OVFL FLAG SET
 11373	042615	321 10 0 00 042602 		JUMPL	SAC,Q4700		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 23
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW                                     SEQ 0304

 11374					;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
 11375					;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
 11376
 11377	042616	255 10 0 00 042617 	Q5000:	JOV	.+1			;CLEAR ARITH OVFL FLG
 11378	042617	205 02 0 00 533400 		MOVSI	AC-2,533400		;INIT FLT. PT. WORD
 11379	042620	477 04 0 00 000003 		SETOB	AC,AC-1			;SET-UP RESULT
 11380	042621	122 04 0 00 000002 		FIX	AC,AC-2			;*FIX SHOULD SET AROV
 11381	042622	312 04 0 00 000003 		CAME	AC,AC-1			;TEST AC
 11382	042623	003 04 0 00 005001 		ER3	AC,5001			;C(AC) WAS MODIFIED
 11383	042624	265 05 0 00 042625 		JSP	AC+1,.+1		;READ FLAGS
 11384	042625	255 10 0 00 042627 		JOV	.+2			;TEST ARITH OVFL FLG
 11385	042626	013 05 0 00 005001 		ER13	AC+1,5001		;ARITH OVFL FLG CLEAR
 11386	042627	321 10 0 00 042616 		JUMPL	SAC,Q5000		;LOOP ON ERROR SWITCH
 11387
 11388					;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
 11389					;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
 11390
 11391	042630	255 10 0 00 042631 	Q5100:	JOV	.+1			;CLEAR ARITH OVFL FLG
 11392	042631	205 02 0 00 534000 		MOVSI	AC-2,534000		;INITIALIZE FLT. PT. WORD
 11393	042632	660 02 0 00 000001 		TRO	AC-2,1
 11394	042633	551 03 0 00 000400 		HRRZI	AC-1,400		;SET-UP RESULT
 11395	042634	661 03 0 00 400000 		TLO	AC-1,AROV
 11396	042635	122 04 0 00 000002 		FIX	AC,AC-2			;*FIX SHOULD NOT SET AROV
 11397	042636	312 04 0 00 000003 		CAME	AC,AC-1			;TEST AC
 11398	042637	003 04 0 00 005101 		ER3	AC,5101			;C(AC) INCORRECT
 11399	042640	265 05 0 00 042641 		JSP	AC+1,.+1		;READ FLAGS
 11400	042641	255 10 0 00 042643 		JOV	.+2			;TEST ARITH OVFL FLG
 11401	042642	254 00 0 00 042644 		JRST	.+2			;SKIP ERROR CALL IF AROV IS CLEAR
 11402	042643	013 05 0 00 005101 		ER13	AC+1,5101		;ARITH OVFL FLG SET
 11403	042644	321 10 0 00 042630 		JUMPL	SAC,Q5100		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0305

 11404					SUBTTL	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
 11405
 11406					;CHECK THAT 'FLTR AC,E' DOES NOT MODIFY C(E)
 11407
 11408	042645	200 02 0 00 070655 	Q5150:	MOVE	AC-2,[252525,,252525]	;LOAD 'E' WITH DATA
 11409	042646	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11410	042647	312 02 0 00 070655 		CAME	AC-2,[252525,,252525]	;WAS FIX PT NO. MODIFIED?
 11411	042650	005 02 0 00 005151 		ER5	AC-2,5151		;C(E) WAS CLOBBERED
 11412	042651	321 10 0 00 042645 		JUMPL	SAC,Q5150		;LOOP ON ERROR SWITCH
 11413
 11414					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11415
 11416			005200		SN=5200
 11417			400000			XX=400000
 11418			244400			YY=244400
 11419
 11420					Q5200:	REPEAT	^D17,<
 11421					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11422					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11423					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11424					
 11425					SN=SN+1
 11426						XX=XX/2
 11427						YY=YY-1000
 11428						MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11429						MOVSI	AC-1,YY			;SET-UP RESULT
 11430						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11431						CAME	AC,AC-1			;TEST EXPONENT
 11432						ER3	AC,SN			;INCORRECT EXPONENT
 11433						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11434					>
 11435
 11436					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11437					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11438					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11439
 11440			005201		SN=SN+1
 11441			200000			XX=XX/2
 11442			243400			YY=YY-1000
 11443	042652	205 02 0 00 200000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11444	042653	205 03 0 00 243400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11445	042654	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11446	042655	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11447	042656	003 04 0 00 005201 		ER3	AC,SN			;INCORRECT EXPONENT
 11448	042657	321 10 0 00 042652 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11449
 11450
 11451					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11452					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11453					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11454
 11455			005202		SN=SN+1
 11456			100000			XX=XX/2
 11457			242400			YY=YY-1000
 11458	042660	205 02 0 00 100000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0306

 11459	042661	205 03 0 00 242400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11460	042662	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11461	042663	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11462	042664	003 04 0 00 005202 		ER3	AC,SN			;INCORRECT EXPONENT
 11463	042665	321 10 0 00 042660 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11464
 11465
 11466					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11467					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11468					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11469
 11470			005203		SN=SN+1
 11471			040000			XX=XX/2
 11472			241400			YY=YY-1000
 11473	042666	205 02 0 00 040000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11474	042667	205 03 0 00 241400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11475	042670	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11476	042671	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11477	042672	003 04 0 00 005203 		ER3	AC,SN			;INCORRECT EXPONENT
 11478	042673	321 10 0 00 042666 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11479
 11480
 11481					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11482					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11483					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11484
 11485			005204		SN=SN+1
 11486			020000			XX=XX/2
 11487			240400			YY=YY-1000
 11488	042674	205 02 0 00 020000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11489	042675	205 03 0 00 240400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11490	042676	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11491	042677	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11492	042700	003 04 0 00 005204 		ER3	AC,SN			;INCORRECT EXPONENT
 11493	042701	321 10 0 00 042674 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11494
 11495
 11496					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11497					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11498					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11499
 11500			005205		SN=SN+1
 11501			010000			XX=XX/2
 11502			237400			YY=YY-1000
 11503	042702	205 02 0 00 010000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11504	042703	205 03 0 00 237400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11505	042704	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11506	042705	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11507	042706	003 04 0 00 005205 		ER3	AC,SN			;INCORRECT EXPONENT
 11508	042707	321 10 0 00 042702 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11509
 11510
 11511					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11512					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11513					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0307

 11514
 11515			005206		SN=SN+1
 11516			004000			XX=XX/2
 11517			236400			YY=YY-1000
 11518	042710	205 02 0 00 004000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11519	042711	205 03 0 00 236400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11520	042712	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11521	042713	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11522	042714	003 04 0 00 005206 		ER3	AC,SN			;INCORRECT EXPONENT
 11523	042715	321 10 0 00 042710 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11524
 11525
 11526					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11527					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11528					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11529
 11530			005207		SN=SN+1
 11531			002000			XX=XX/2
 11532			235400			YY=YY-1000
 11533	042716	205 02 0 00 002000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11534	042717	205 03 0 00 235400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11535	042720	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11536	042721	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11537	042722	003 04 0 00 005207 		ER3	AC,SN			;INCORRECT EXPONENT
 11538	042723	321 10 0 00 042716 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11539
 11540
 11541					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11542					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11543					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11544
 11545			005210		SN=SN+1
 11546			001000			XX=XX/2
 11547			234400			YY=YY-1000
 11548	042724	205 02 0 00 001000 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11549	042725	205 03 0 00 234400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11550	042726	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11551	042727	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11552	042730	003 04 0 00 005210 		ER3	AC,SN			;INCORRECT EXPONENT
 11553	042731	321 10 0 00 042724 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11554
 11555
 11556					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11557					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11558					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11559
 11560			005211		SN=SN+1
 11561			000400			XX=XX/2
 11562			233400			YY=YY-1000
 11563	042732	205 02 0 00 000400 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11564	042733	205 03 0 00 233400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11565	042734	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11566	042735	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11567	042736	003 04 0 00 005211 		ER3	AC,SN			;INCORRECT EXPONENT
 11568	042737	321 10 0 00 042732 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0308

 11569
 11570
 11571					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11572					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11573					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11574
 11575			005212		SN=SN+1
 11576			000200			XX=XX/2
 11577			232400			YY=YY-1000
 11578	042740	205 02 0 00 000200 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11579	042741	205 03 0 00 232400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11580	042742	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11581	042743	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11582	042744	003 04 0 00 005212 		ER3	AC,SN			;INCORRECT EXPONENT
 11583	042745	321 10 0 00 042740 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11584
 11585
 11586					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11587					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11588					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11589
 11590			005213		SN=SN+1
 11591			000100			XX=XX/2
 11592			231400			YY=YY-1000
 11593	042746	205 02 0 00 000100 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11594	042747	205 03 0 00 231400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11595	042750	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11596	042751	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11597	042752	003 04 0 00 005213 		ER3	AC,SN			;INCORRECT EXPONENT
 11598	042753	321 10 0 00 042746 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11599
 11600
 11601					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11602					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11603					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11604
 11605			005214		SN=SN+1
 11606			000040			XX=XX/2
 11607			230400			YY=YY-1000
 11608	042754	205 02 0 00 000040 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11609	042755	205 03 0 00 230400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11610	042756	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11611	042757	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11612	042760	003 04 0 00 005214 		ER3	AC,SN			;INCORRECT EXPONENT
 11613	042761	321 10 0 00 042754 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11614
 11615
 11616					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11617					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11618					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11619
 11620			005215		SN=SN+1
 11621			000020			XX=XX/2
 11622			227400			YY=YY-1000
 11623	042762	205 02 0 00 000020 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0309

 11624	042763	205 03 0 00 227400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11625	042764	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11626	042765	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11627	042766	003 04 0 00 005215 		ER3	AC,SN			;INCORRECT EXPONENT
 11628	042767	321 10 0 00 042762 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11629
 11630
 11631					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11632					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11633					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11634
 11635			005216		SN=SN+1
 11636			000010			XX=XX/2
 11637			226400			YY=YY-1000
 11638	042770	205 02 0 00 000010 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11639	042771	205 03 0 00 226400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11640	042772	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11641	042773	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11642	042774	003 04 0 00 005216 		ER3	AC,SN			;INCORRECT EXPONENT
 11643	042775	321 10 0 00 042770 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11644
 11645
 11646					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11647					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11648					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11649
 11650			005217		SN=SN+1
 11651			000004			XX=XX/2
 11652			225400			YY=YY-1000
 11653	042776	205 02 0 00 000004 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11654	042777	205 03 0 00 225400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11655	043000	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11656	043001	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11657	043002	003 04 0 00 005217 		ER3	AC,SN			;INCORRECT EXPONENT
 11658	043003	321 10 0 00 042776 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11659
 11660
 11661					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11662					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11663					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11664
 11665			005220		SN=SN+1
 11666			000002			XX=XX/2
 11667			224400			YY=YY-1000
 11668	043004	205 02 0 00 000002 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11669	043005	205 03 0 00 224400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11670	043006	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11671	043007	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11672	043010	003 04 0 00 005220 		ER3	AC,SN			;INCORRECT EXPONENT
 11673	043011	321 10 0 00 043004 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11674
 11675
 11676					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11677					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11678					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0310

 11679
 11680			005221		SN=SN+1
 11681			000001			XX=XX/2
 11682			223400			YY=YY-1000
 11683	043012	205 02 0 00 000001 		MOVSI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11684	043013	205 03 0 00 223400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11685	043014	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11686	043015	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11687	043016	003 04 0 00 005221 		ER3	AC,SN			;INCORRECT EXPONENT
 11688	043017	321 10 0 00 043012 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 11689
 11690					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0311

 11691			005300		SN=5300
 11692			000000			XX=0
 11693			223400			YY=223400
 11694
 11695					Q5300:	REPEAT	^D18,<
 11696					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11697					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11698					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11699					
 11700					SN=SN+1
 11701						XX=XX/2
 11702						YY=YY-1000
 11703						IFE	XX,<XX=400000>
 11704						HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11705						MOVSI	AC-1,YY			;SET-UP RESULT
 11706						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11707						CAME	AC,AC-1			;TEST EXPONENT
 11708						ER3	AC,SN			;INCORRECT EXPONENT
 11709						JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11710					>
 11711
 11712					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11713					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11714					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11715
 11716			005301		SN=SN+1
 11717			000000			XX=XX/2
 11718			222400			YY=YY-1000
 11719			400000			IFE	XX,<XX=400000>
 11720	043020	551 02 0 00 400000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11721	043021	205 03 0 00 222400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11722	043022	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11723	043023	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11724	043024	003 04 0 00 005301 		ER3	AC,SN			;INCORRECT EXPONENT
 11725	043025	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11726
 11727
 11728					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11729					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11730					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11731
 11732			005302		SN=SN+1
 11733			200000			XX=XX/2
 11734			221400			YY=YY-1000
 11735						IFE	XX,<XX=400000>
 11736	043026	551 02 0 00 200000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11737	043027	205 03 0 00 221400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11738	043030	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11739	043031	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11740	043032	003 04 0 00 005302 		ER3	AC,SN			;INCORRECT EXPONENT
 11741	043033	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11742
 11743
 11744					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11745					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0312

 11746					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11747
 11748			005303		SN=SN+1
 11749			100000			XX=XX/2
 11750			220400			YY=YY-1000
 11751						IFE	XX,<XX=400000>
 11752	043034	551 02 0 00 100000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11753	043035	205 03 0 00 220400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11754	043036	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11755	043037	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11756	043040	003 04 0 00 005303 		ER3	AC,SN			;INCORRECT EXPONENT
 11757	043041	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11758
 11759
 11760					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11761					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11762					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11763
 11764			005304		SN=SN+1
 11765			040000			XX=XX/2
 11766			217400			YY=YY-1000
 11767						IFE	XX,<XX=400000>
 11768	043042	551 02 0 00 040000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11769	043043	205 03 0 00 217400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11770	043044	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11771	043045	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11772	043046	003 04 0 00 005304 		ER3	AC,SN			;INCORRECT EXPONENT
 11773	043047	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11774
 11775
 11776					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11777					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11778					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11779
 11780			005305		SN=SN+1
 11781			020000			XX=XX/2
 11782			216400			YY=YY-1000
 11783						IFE	XX,<XX=400000>
 11784	043050	551 02 0 00 020000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11785	043051	205 03 0 00 216400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11786	043052	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11787	043053	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11788	043054	003 04 0 00 005305 		ER3	AC,SN			;INCORRECT EXPONENT
 11789	043055	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11790
 11791
 11792					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11793					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11794					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11795
 11796			005306		SN=SN+1
 11797			010000			XX=XX/2
 11798			215400			YY=YY-1000
 11799						IFE	XX,<XX=400000>
 11800	043056	551 02 0 00 010000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0313

 11801	043057	205 03 0 00 215400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11802	043060	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11803	043061	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11804	043062	003 04 0 00 005306 		ER3	AC,SN			;INCORRECT EXPONENT
 11805	043063	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11806
 11807
 11808					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11809					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11810					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11811
 11812			005307		SN=SN+1
 11813			004000			XX=XX/2
 11814			214400			YY=YY-1000
 11815						IFE	XX,<XX=400000>
 11816	043064	551 02 0 00 004000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11817	043065	205 03 0 00 214400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11818	043066	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11819	043067	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11820	043070	003 04 0 00 005307 		ER3	AC,SN			;INCORRECT EXPONENT
 11821	043071	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11822
 11823
 11824					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11825					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11826					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11827
 11828			005310		SN=SN+1
 11829			002000			XX=XX/2
 11830			213400			YY=YY-1000
 11831						IFE	XX,<XX=400000>
 11832	043072	551 02 0 00 002000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11833	043073	205 03 0 00 213400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11834	043074	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11835	043075	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11836	043076	003 04 0 00 005310 		ER3	AC,SN			;INCORRECT EXPONENT
 11837	043077	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11838
 11839
 11840					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11841					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11842					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11843
 11844			005311		SN=SN+1
 11845			001000			XX=XX/2
 11846			212400			YY=YY-1000
 11847						IFE	XX,<XX=400000>
 11848	043100	551 02 0 00 001000 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11849	043101	205 03 0 00 212400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11850	043102	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11851	043103	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11852	043104	003 04 0 00 005311 		ER3	AC,SN			;INCORRECT EXPONENT
 11853	043105	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11854
 11855
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-9
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0314

 11856					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11857					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11858					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11859
 11860			005312		SN=SN+1
 11861			000400			XX=XX/2
 11862			211400			YY=YY-1000
 11863						IFE	XX,<XX=400000>
 11864	043106	551 02 0 00 000400 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11865	043107	205 03 0 00 211400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11866	043110	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11867	043111	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11868	043112	003 04 0 00 005312 		ER3	AC,SN			;INCORRECT EXPONENT
 11869	043113	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11870
 11871
 11872					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11873					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11874					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11875
 11876			005313		SN=SN+1
 11877			000200			XX=XX/2
 11878			210400			YY=YY-1000
 11879						IFE	XX,<XX=400000>
 11880	043114	551 02 0 00 000200 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11881	043115	205 03 0 00 210400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11882	043116	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11883	043117	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11884	043120	003 04 0 00 005313 		ER3	AC,SN			;INCORRECT EXPONENT
 11885	043121	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11886
 11887
 11888					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11889					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11890					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11891
 11892			005314		SN=SN+1
 11893			000100			XX=XX/2
 11894			207400			YY=YY-1000
 11895						IFE	XX,<XX=400000>
 11896	043122	551 02 0 00 000100 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11897	043123	205 03 0 00 207400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11898	043124	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11899	043125	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11900	043126	003 04 0 00 005314 		ER3	AC,SN			;INCORRECT EXPONENT
 11901	043127	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11902
 11903
 11904					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11905					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11906					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11907
 11908			005315		SN=SN+1
 11909			000040			XX=XX/2
 11910			206400			YY=YY-1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-10
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0315

 11911						IFE	XX,<XX=400000>
 11912	043130	551 02 0 00 000040 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11913	043131	205 03 0 00 206400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11914	043132	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11915	043133	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11916	043134	003 04 0 00 005315 		ER3	AC,SN			;INCORRECT EXPONENT
 11917	043135	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11918
 11919
 11920					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11921					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11922					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11923
 11924			005316		SN=SN+1
 11925			000020			XX=XX/2
 11926			205400			YY=YY-1000
 11927						IFE	XX,<XX=400000>
 11928	043136	551 02 0 00 000020 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11929	043137	205 03 0 00 205400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11930	043140	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11931	043141	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11932	043142	003 04 0 00 005316 		ER3	AC,SN			;INCORRECT EXPONENT
 11933	043143	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11934
 11935
 11936					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11937					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11938					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11939
 11940			005317		SN=SN+1
 11941			000010			XX=XX/2
 11942			204400			YY=YY-1000
 11943						IFE	XX,<XX=400000>
 11944	043144	551 02 0 00 000010 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11945	043145	205 03 0 00 204400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11946	043146	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11947	043147	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11948	043150	003 04 0 00 005317 		ER3	AC,SN			;INCORRECT EXPONENT
 11949	043151	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11950
 11951
 11952					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11953					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11954					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11955
 11956			005320		SN=SN+1
 11957			000004			XX=XX/2
 11958			203400			YY=YY-1000
 11959						IFE	XX,<XX=400000>
 11960	043152	551 02 0 00 000004 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11961	043153	205 03 0 00 203400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11962	043154	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11963	043155	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11964	043156	003 04 0 00 005320 		ER3	AC,SN			;INCORRECT EXPONENT
 11965	043157	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 24-11
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS                SEQ 0316

 11966
 11967
 11968					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11969					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11970					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11971
 11972			005321		SN=SN+1
 11973			000002			XX=XX/2
 11974			202400			YY=YY-1000
 11975						IFE	XX,<XX=400000>
 11976	043160	551 02 0 00 000002 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11977	043161	205 03 0 00 202400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11978	043162	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11979	043163	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11980	043164	003 04 0 00 005321 		ER3	AC,SN			;INCORRECT EXPONENT
 11981	043165	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11982
 11983
 11984					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 11985					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 11986					;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
 11987
 11988			005322		SN=SN+1
 11989			000001			XX=XX/2
 11990			201400			YY=YY-1000
 11991						IFE	XX,<XX=400000>
 11992	043166	551 02 0 00 000001 		HRRZI	AC-2,XX			;INITIALIZE FIXED PT WORD
 11993	043167	205 03 0 00 201400 		MOVSI	AC-1,YY			;SET-UP RESULT
 11994	043170	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 11995	043171	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 11996	043172	003 04 0 00 005322 		ER3	AC,SN			;INCORRECT EXPONENT
 11997	043173	321 10 0 00 777773 		JUMPL	SAC,-5			;LOOP ON ERROR SWITCH
 11998
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0317

 11999					SUBTTL	DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
 12000
 12001					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12002
 12003			005400		SN=5400
 12004			000000			XX=0
 12005			532400			YY=532400
 12006
 12007					Q5400:	REPEAT	^D18,<
 12008					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12009					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12010					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12011					
 12012					SN=SN+1
 12013						XX=XX!<XX/2>
 12014						YY=YY+1000
 12015						IFE	XX,<XX=400000>
 12016						MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12017						MOVSI	AC-1,YY			;SET-UP RESULT
 12018						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12019						CAME	AC,AC-1			;TEST EXPONENT
 12020						ER3	AC,SN			;INCORRECT EXPONENT
 12021						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12022					>
 12023
 12024					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12025					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12026					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12027
 12028			005401		SN=SN+1
 12029			000000			XX=XX!<XX/2>
 12030			533400			YY=YY+1000
 12031			400000			IFE	XX,<XX=400000>
 12032	043174	205 02 0 00 400000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12033	043175	205 03 0 00 533400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12034	043176	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12035	043177	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12036	043200	003 04 0 00 005401 		ER3	AC,SN			;INCORRECT EXPONENT
 12037	043201	321 10 0 00 043174 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12038
 12039
 12040					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12041					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12042					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12043
 12044			005402		SN=SN+1
 12045			600000			XX=XX!<XX/2>
 12046			534400			YY=YY+1000
 12047						IFE	XX,<XX=400000>
 12048	043202	205 02 0 00 600000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12049	043203	205 03 0 00 534400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12050	043204	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12051	043205	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12052	043206	003 04 0 00 005402 		ER3	AC,SN			;INCORRECT EXPONENT
 12053	043207	321 10 0 00 043202 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0318

 12054
 12055
 12056					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12057					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12058					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12059
 12060			005403		SN=SN+1
 12061			700000			XX=XX!<XX/2>
 12062			535400			YY=YY+1000
 12063						IFE	XX,<XX=400000>
 12064	043210	205 02 0 00 700000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12065	043211	205 03 0 00 535400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12066	043212	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12067	043213	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12068	043214	003 04 0 00 005403 		ER3	AC,SN			;INCORRECT EXPONENT
 12069	043215	321 10 0 00 043210 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12070
 12071
 12072					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12073					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12074					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12075
 12076			005404		SN=SN+1
 12077			740000			XX=XX!<XX/2>
 12078			536400			YY=YY+1000
 12079						IFE	XX,<XX=400000>
 12080	043216	205 02 0 00 740000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12081	043217	205 03 0 00 536400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12082	043220	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12083	043221	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12084	043222	003 04 0 00 005404 		ER3	AC,SN			;INCORRECT EXPONENT
 12085	043223	321 10 0 00 043216 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12086
 12087
 12088					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12089					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12090					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12091
 12092			005405		SN=SN+1
 12093			760000			XX=XX!<XX/2>
 12094			537400			YY=YY+1000
 12095						IFE	XX,<XX=400000>
 12096	043224	205 02 0 00 760000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12097	043225	205 03 0 00 537400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12098	043226	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12099	043227	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12100	043230	003 04 0 00 005405 		ER3	AC,SN			;INCORRECT EXPONENT
 12101	043231	321 10 0 00 043224 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12102
 12103
 12104					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12105					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12106					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12107
 12108			005406		SN=SN+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0319

 12109			770000			XX=XX!<XX/2>
 12110			540400			YY=YY+1000
 12111						IFE	XX,<XX=400000>
 12112	043232	205 02 0 00 770000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12113	043233	205 03 0 00 540400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12114	043234	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12115	043235	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12116	043236	003 04 0 00 005406 		ER3	AC,SN			;INCORRECT EXPONENT
 12117	043237	321 10 0 00 043232 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12118
 12119
 12120					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12121					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12122					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12123
 12124			005407		SN=SN+1
 12125			774000			XX=XX!<XX/2>
 12126			541400			YY=YY+1000
 12127						IFE	XX,<XX=400000>
 12128	043240	205 02 0 00 774000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12129	043241	205 03 0 00 541400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12130	043242	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12131	043243	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12132	043244	003 04 0 00 005407 		ER3	AC,SN			;INCORRECT EXPONENT
 12133	043245	321 10 0 00 043240 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12134
 12135
 12136					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12137					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12138					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12139
 12140			005410		SN=SN+1
 12141			776000			XX=XX!<XX/2>
 12142			542400			YY=YY+1000
 12143						IFE	XX,<XX=400000>
 12144	043246	205 02 0 00 776000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12145	043247	205 03 0 00 542400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12146	043250	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12147	043251	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12148	043252	003 04 0 00 005410 		ER3	AC,SN			;INCORRECT EXPONENT
 12149	043253	321 10 0 00 043246 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12150
 12151
 12152					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12153					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12154					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12155
 12156			005411		SN=SN+1
 12157			777000			XX=XX!<XX/2>
 12158			543400			YY=YY+1000
 12159						IFE	XX,<XX=400000>
 12160	043254	205 02 0 00 777000 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12161	043255	205 03 0 00 543400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12162	043256	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12163	043257	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0320

 12164	043260	003 04 0 00 005411 		ER3	AC,SN			;INCORRECT EXPONENT
 12165	043261	321 10 0 00 043254 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12166
 12167
 12168					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12169					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12170					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12171
 12172			005412		SN=SN+1
 12173			777400			XX=XX!<XX/2>
 12174			544400			YY=YY+1000
 12175						IFE	XX,<XX=400000>
 12176	043262	205 02 0 00 777400 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12177	043263	205 03 0 00 544400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12178	043264	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12179	043265	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12180	043266	003 04 0 00 005412 		ER3	AC,SN			;INCORRECT EXPONENT
 12181	043267	321 10 0 00 043262 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12182
 12183
 12184					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12185					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12186					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12187
 12188			005413		SN=SN+1
 12189			777600			XX=XX!<XX/2>
 12190			545400			YY=YY+1000
 12191						IFE	XX,<XX=400000>
 12192	043270	205 02 0 00 777600 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12193	043271	205 03 0 00 545400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12194	043272	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12195	043273	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12196	043274	003 04 0 00 005413 		ER3	AC,SN			;INCORRECT EXPONENT
 12197	043275	321 10 0 00 043270 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12198
 12199
 12200					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12201					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12202					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12203
 12204			005414		SN=SN+1
 12205			777700			XX=XX!<XX/2>
 12206			546400			YY=YY+1000
 12207						IFE	XX,<XX=400000>
 12208	043276	205 02 0 00 777700 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12209	043277	205 03 0 00 546400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12210	043300	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12211	043301	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12212	043302	003 04 0 00 005414 		ER3	AC,SN			;INCORRECT EXPONENT
 12213	043303	321 10 0 00 043276 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12214
 12215
 12216					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12217					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12218					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0321

 12219
 12220			005415		SN=SN+1
 12221			777740			XX=XX!<XX/2>
 12222			547400			YY=YY+1000
 12223						IFE	XX,<XX=400000>
 12224	043304	205 02 0 00 777740 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12225	043305	205 03 0 00 547400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12226	043306	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12227	043307	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12228	043310	003 04 0 00 005415 		ER3	AC,SN			;INCORRECT EXPONENT
 12229	043311	321 10 0 00 043304 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12230
 12231
 12232					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12233					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12234					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12235
 12236			005416		SN=SN+1
 12237			777760			XX=XX!<XX/2>
 12238			550400			YY=YY+1000
 12239						IFE	XX,<XX=400000>
 12240	043312	205 02 0 00 777760 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12241	043313	205 03 0 00 550400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12242	043314	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12243	043315	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12244	043316	003 04 0 00 005416 		ER3	AC,SN			;INCORRECT EXPONENT
 12245	043317	321 10 0 00 043312 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12246
 12247
 12248					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12249					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12250					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12251
 12252			005417		SN=SN+1
 12253			777770			XX=XX!<XX/2>
 12254			551400			YY=YY+1000
 12255						IFE	XX,<XX=400000>
 12256	043320	205 02 0 00 777770 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12257	043321	205 03 0 00 551400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12258	043322	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12259	043323	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12260	043324	003 04 0 00 005417 		ER3	AC,SN			;INCORRECT EXPONENT
 12261	043325	321 10 0 00 043320 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12262
 12263
 12264					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12265					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12266					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12267
 12268			005420		SN=SN+1
 12269			777774			XX=XX!<XX/2>
 12270			552400			YY=YY+1000
 12271						IFE	XX,<XX=400000>
 12272	043326	205 02 0 00 777774 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12273	043327	205 03 0 00 552400 		MOVSI	AC-1,YY			;SET-UP RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0322

 12274	043330	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12275	043331	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12276	043332	003 04 0 00 005420 		ER3	AC,SN			;INCORRECT EXPONENT
 12277	043333	321 10 0 00 043326 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12278
 12279
 12280					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12281					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12282					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12283
 12284			005421		SN=SN+1
 12285			777776			XX=XX!<XX/2>
 12286			553400			YY=YY+1000
 12287						IFE	XX,<XX=400000>
 12288	043334	205 02 0 00 777776 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12289	043335	205 03 0 00 553400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12290	043336	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12291	043337	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12292	043340	003 04 0 00 005421 		ER3	AC,SN			;INCORRECT EXPONENT
 12293	043341	321 10 0 00 043334 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12294
 12295
 12296					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12297					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12298					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12299
 12300			005422		SN=SN+1
 12301			777777			XX=XX!<XX/2>
 12302			554400			YY=YY+1000
 12303						IFE	XX,<XX=400000>
 12304	043342	205 02 0 00 777777 		MOVSI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12305	043343	205 03 0 00 554400 		MOVSI	AC-1,YY			;SET-UP RESULT
 12306	043344	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12307	043345	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12308	043346	003 04 0 00 005422 		ER3	AC,SN			;INCORRECT EXPONENT
 12309	043347	321 10 0 00 043342 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12310
 12311					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0323

 12312			005500		SN=5500
 12313			000000			XX=0
 12314			554000			YY=554000
 12315
 12316					Q5500:	REPEAT ^D18,<
 12317					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12318					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12319					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12320					
 12321					SN=SN+1
 12322						XX=XX!<XX/2>
 12323						YY=YY+1000
 12324						IFE	XX,<XX=400000>
 12325						HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12326						MOVSI	AC-1,YY+400		;SET-UP RESULT
 12327						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12328						CAME	AC,AC-1			;TEST EXPONENT
 12329						ER3	AC,SN			;INCORRECT EXPONENT
 12330						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12331					>
 12332
 12333					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12334					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12335					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12336
 12337			005501		SN=SN+1
 12338			000000			XX=XX!<XX/2>
 12339			555000			YY=YY+1000
 12340			400000			IFE	XX,<XX=400000>
 12341	043350	561 02 0 00 400000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12342	043351	205 03 0 00 555400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12343	043352	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12344	043353	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12345	043354	003 04 0 00 005501 		ER3	AC,SN			;INCORRECT EXPONENT
 12346	043355	321 10 0 00 043350 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12347
 12348
 12349					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12350					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12351					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12352
 12353			005502		SN=SN+1
 12354			600000			XX=XX!<XX/2>
 12355			556000			YY=YY+1000
 12356						IFE	XX,<XX=400000>
 12357	043356	561 02 0 00 600000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12358	043357	205 03 0 00 556400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12359	043360	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12360	043361	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12361	043362	003 04 0 00 005502 		ER3	AC,SN			;INCORRECT EXPONENT
 12362	043363	321 10 0 00 043356 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12363
 12364
 12365					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12366					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0324

 12367					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12368
 12369			005503		SN=SN+1
 12370			700000			XX=XX!<XX/2>
 12371			557000			YY=YY+1000
 12372						IFE	XX,<XX=400000>
 12373	043364	561 02 0 00 700000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12374	043365	205 03 0 00 557400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12375	043366	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12376	043367	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12377	043370	003 04 0 00 005503 		ER3	AC,SN			;INCORRECT EXPONENT
 12378	043371	321 10 0 00 043364 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12379
 12380
 12381					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12382					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12383					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12384
 12385			005504		SN=SN+1
 12386			740000			XX=XX!<XX/2>
 12387			560000			YY=YY+1000
 12388						IFE	XX,<XX=400000>
 12389	043372	561 02 0 00 740000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12390	043373	205 03 0 00 560400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12391	043374	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12392	043375	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12393	043376	003 04 0 00 005504 		ER3	AC,SN			;INCORRECT EXPONENT
 12394	043377	321 10 0 00 043372 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12395
 12396
 12397					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12398					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12399					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12400
 12401			005505		SN=SN+1
 12402			760000			XX=XX!<XX/2>
 12403			561000			YY=YY+1000
 12404						IFE	XX,<XX=400000>
 12405	043400	561 02 0 00 760000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12406	043401	205 03 0 00 561400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12407	043402	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12408	043403	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12409	043404	003 04 0 00 005505 		ER3	AC,SN			;INCORRECT EXPONENT
 12410	043405	321 10 0 00 043400 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12411
 12412
 12413					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12414					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12415					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12416
 12417			005506		SN=SN+1
 12418			770000			XX=XX!<XX/2>
 12419			562000			YY=YY+1000
 12420						IFE	XX,<XX=400000>
 12421	043406	561 02 0 00 770000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0325

 12422	043407	205 03 0 00 562400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12423	043410	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12424	043411	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12425	043412	003 04 0 00 005506 		ER3	AC,SN			;INCORRECT EXPONENT
 12426	043413	321 10 0 00 043406 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12427
 12428
 12429					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12430					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12431					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12432
 12433			005507		SN=SN+1
 12434			774000			XX=XX!<XX/2>
 12435			563000			YY=YY+1000
 12436						IFE	XX,<XX=400000>
 12437	043414	561 02 0 00 774000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12438	043415	205 03 0 00 563400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12439	043416	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12440	043417	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12441	043420	003 04 0 00 005507 		ER3	AC,SN			;INCORRECT EXPONENT
 12442	043421	321 10 0 00 043414 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12443
 12444
 12445					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12446					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12447					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12448
 12449			005510		SN=SN+1
 12450			776000			XX=XX!<XX/2>
 12451			564000			YY=YY+1000
 12452						IFE	XX,<XX=400000>
 12453	043422	561 02 0 00 776000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12454	043423	205 03 0 00 564400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12455	043424	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12456	043425	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12457	043426	003 04 0 00 005510 		ER3	AC,SN			;INCORRECT EXPONENT
 12458	043427	321 10 0 00 043422 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12459
 12460
 12461					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12462					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12463					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12464
 12465			005511		SN=SN+1
 12466			777000			XX=XX!<XX/2>
 12467			565000			YY=YY+1000
 12468						IFE	XX,<XX=400000>
 12469	043430	561 02 0 00 777000 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12470	043431	205 03 0 00 565400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12471	043432	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12472	043433	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12473	043434	003 04 0 00 005511 		ER3	AC,SN			;INCORRECT EXPONENT
 12474	043435	321 10 0 00 043430 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12475
 12476
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-9
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0326

 12477					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12478					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12479					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12480
 12481			005512		SN=SN+1
 12482			777400			XX=XX!<XX/2>
 12483			566000			YY=YY+1000
 12484						IFE	XX,<XX=400000>
 12485	043436	561 02 0 00 777400 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12486	043437	205 03 0 00 566400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12487	043440	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12488	043441	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12489	043442	003 04 0 00 005512 		ER3	AC,SN			;INCORRECT EXPONENT
 12490	043443	321 10 0 00 043436 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12491
 12492
 12493					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12494					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12495					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12496
 12497			005513		SN=SN+1
 12498			777600			XX=XX!<XX/2>
 12499			567000			YY=YY+1000
 12500						IFE	XX,<XX=400000>
 12501	043444	561 02 0 00 777600 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12502	043445	205 03 0 00 567400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12503	043446	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12504	043447	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12505	043450	003 04 0 00 005513 		ER3	AC,SN			;INCORRECT EXPONENT
 12506	043451	321 10 0 00 043444 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12507
 12508
 12509					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12510					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12511					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12512
 12513			005514		SN=SN+1
 12514			777700			XX=XX!<XX/2>
 12515			570000			YY=YY+1000
 12516						IFE	XX,<XX=400000>
 12517	043452	561 02 0 00 777700 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12518	043453	205 03 0 00 570400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12519	043454	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12520	043455	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12521	043456	003 04 0 00 005514 		ER3	AC,SN			;INCORRECT EXPONENT
 12522	043457	321 10 0 00 043452 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12523
 12524
 12525					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12526					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12527					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12528
 12529			005515		SN=SN+1
 12530			777740			XX=XX!<XX/2>
 12531			571000			YY=YY+1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-10
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0327

 12532						IFE	XX,<XX=400000>
 12533	043460	561 02 0 00 777740 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12534	043461	205 03 0 00 571400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12535	043462	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12536	043463	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12537	043464	003 04 0 00 005515 		ER3	AC,SN			;INCORRECT EXPONENT
 12538	043465	321 10 0 00 043460 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12539
 12540
 12541					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12542					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12543					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12544
 12545			005516		SN=SN+1
 12546			777760			XX=XX!<XX/2>
 12547			572000			YY=YY+1000
 12548						IFE	XX,<XX=400000>
 12549	043466	561 02 0 00 777760 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12550	043467	205 03 0 00 572400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12551	043470	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12552	043471	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12553	043472	003 04 0 00 005516 		ER3	AC,SN			;INCORRECT EXPONENT
 12554	043473	321 10 0 00 043466 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12555
 12556
 12557					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12558					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12559					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12560
 12561			005517		SN=SN+1
 12562			777770			XX=XX!<XX/2>
 12563			573000			YY=YY+1000
 12564						IFE	XX,<XX=400000>
 12565	043474	561 02 0 00 777770 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12566	043475	205 03 0 00 573400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12567	043476	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12568	043477	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12569	043500	003 04 0 00 005517 		ER3	AC,SN			;INCORRECT EXPONENT
 12570	043501	321 10 0 00 043474 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12571
 12572
 12573					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12574					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12575					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12576
 12577			005520		SN=SN+1
 12578			777774			XX=XX!<XX/2>
 12579			574000			YY=YY+1000
 12580						IFE	XX,<XX=400000>
 12581	043502	561 02 0 00 777774 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12582	043503	205 03 0 00 574400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12583	043504	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12584	043505	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12585	043506	003 04 0 00 005520 		ER3	AC,SN			;INCORRECT EXPONENT
 12586	043507	321 10 0 00 043502 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-11
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0328

 12587
 12588
 12589					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12590					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12591					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12592
 12593			005521		SN=SN+1
 12594			777776			XX=XX!<XX/2>
 12595			575000			YY=YY+1000
 12596						IFE	XX,<XX=400000>
 12597	043510	561 02 0 00 777776 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12598	043511	205 03 0 00 575400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12599	043512	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12600	043513	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12601	043514	003 04 0 00 005521 		ER3	AC,SN			;INCORRECT EXPONENT
 12602	043515	321 10 0 00 043510 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12603
 12604
 12605					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12606					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12607					;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
 12608
 12609			005522		SN=SN+1
 12610			777777			XX=XX!<XX/2>
 12611			576000			YY=YY+1000
 12612						IFE	XX,<XX=400000>
 12613	043516	561 02 0 00 777777 		HRROI	AC-2,XX			;INITIALIZE FIXED POINT WORD
 12614	043517	205 03 0 00 576400 		MOVSI	AC-1,YY+400		;SET-UP RESULT
 12615	043520	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12616	043521	312 04 0 00 000003 		CAME	AC,AC-1			;TEST EXPONENT
 12617	043522	003 04 0 00 005522 		ER3	AC,SN			;INCORRECT EXPONENT
 12618	043523	321 10 0 00 043516 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 12619
 12620					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 25-12
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS                SEQ 0329

 12621					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 0
 12622					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12623					;FLOAT A WORD OF ALL ZEROS
 12624
 12625	043524	403 02 0 00 000003 	Q5600:	SETZB	AC-2,AC-1		;INITIALIZE FIXED POINT WORD
 12626	043525	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. 0 IN 'E' TO FLT PT
 12627	043526	312 04 0 00 000003 		CAME	AC,AC-1			;EXAMINE RESULT FOR 0
 12628	043527	003 04 0 00 005601 		ER3	AC,5601			;CONVERSION FAILED
 12629	043530	321 10 0 00 043524 		JUMPL	SAC,Q5600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0330

 12630					SUBTTL	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
 12631
 12632					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12633					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12634					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12635
 12636	043531	201 02 0 00 777400 	Q5700:	MOVEI	AC-2,777400		;INITIALIZE FIX PT WORD
 12637	043532	505 02 0 00 377777 		HRLI	AC-2,377777
 12638	043533	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP RESULT
 12639	043534	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12640	043535	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12641	043536	003 04 0 00 005701 		ER3	AC,5701			;FRACTION NOT ALL ONES
 12642	043537	321 10 0 00 043531 		JUMPL	SAC,Q5700		;LOOP ON ERROR SWITCH
 12643
 12644			006000		SN=6000
 12645			777200			XX=777200
 12646			000000			YY=0
 12647
 12648					Q6000:	REPEAT	^D10,<
 12649					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12650					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12651					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12652					
 12653					SN=SN+1
 12654						XX=<XX+XX+400>&777777
 12655						YY=<YY+YY+1>&777777
 12656						IFE	<YY-1>,<YY=777776>
 12657						HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12658						TLZ	AC-2,1B18
 12659						HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12660						HRRI	AC-1,YY
 12661						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12662						CAME	AC,AC-1			;TEST FRACTION
 12663						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12664						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12665					>
 12666
 12667					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12668					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12669					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12670
 12671			006001		SN=SN+1
 12672			777000			XX=<XX+XX+400>&777777
 12673			000001			YY=<YY+YY+1>&777777
 12674			777776			IFE	<YY-1>,<YY=777776>
 12675	043540	561 02 0 00 777000 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12676	043541	621 02 0 00 400000 		TLZ	AC-2,1B18
 12677	043542	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12678	043543	541 03 0 00 777776 		HRRI	AC-1,YY
 12679	043544	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12680	043545	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12681	043546	003 04 0 00 006001 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12682	043547	321 10 0 00 043540 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12683
 12684
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0331

 12685					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12686					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12687					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12688
 12689			006002		SN=SN+1
 12690			776400			XX=<XX+XX+400>&777777
 12691			777775			YY=<YY+YY+1>&777777
 12692						IFE	<YY-1>,<YY=777776>
 12693	043550	561 02 0 00 776400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12694	043551	621 02 0 00 400000 		TLZ	AC-2,1B18
 12695	043552	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12696	043553	541 03 0 00 777775 		HRRI	AC-1,YY
 12697	043554	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12698	043555	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12699	043556	003 04 0 00 006002 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12700	043557	321 10 0 00 043550 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12701
 12702
 12703					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12704					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12705					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12706
 12707			006003		SN=SN+1
 12708			775400			XX=<XX+XX+400>&777777
 12709			777773			YY=<YY+YY+1>&777777
 12710						IFE	<YY-1>,<YY=777776>
 12711	043560	561 02 0 00 775400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12712	043561	621 02 0 00 400000 		TLZ	AC-2,1B18
 12713	043562	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12714	043563	541 03 0 00 777773 		HRRI	AC-1,YY
 12715	043564	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12716	043565	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12717	043566	003 04 0 00 006003 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12718	043567	321 10 0 00 043560 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12719
 12720
 12721					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12722					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12723					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12724
 12725			006004		SN=SN+1
 12726			773400			XX=<XX+XX+400>&777777
 12727			777767			YY=<YY+YY+1>&777777
 12728						IFE	<YY-1>,<YY=777776>
 12729	043570	561 02 0 00 773400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12730	043571	621 02 0 00 400000 		TLZ	AC-2,1B18
 12731	043572	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12732	043573	541 03 0 00 777767 		HRRI	AC-1,YY
 12733	043574	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12734	043575	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12735	043576	003 04 0 00 006004 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12736	043577	321 10 0 00 043570 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12737
 12738
 12739					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0332

 12740					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12741					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12742
 12743			006005		SN=SN+1
 12744			767400			XX=<XX+XX+400>&777777
 12745			777757			YY=<YY+YY+1>&777777
 12746						IFE	<YY-1>,<YY=777776>
 12747	043600	561 02 0 00 767400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12748	043601	621 02 0 00 400000 		TLZ	AC-2,1B18
 12749	043602	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12750	043603	541 03 0 00 777757 		HRRI	AC-1,YY
 12751	043604	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12752	043605	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12753	043606	003 04 0 00 006005 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12754	043607	321 10 0 00 043600 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12755
 12756
 12757					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12758					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12759					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12760
 12761			006006		SN=SN+1
 12762			757400			XX=<XX+XX+400>&777777
 12763			777737			YY=<YY+YY+1>&777777
 12764						IFE	<YY-1>,<YY=777776>
 12765	043610	561 02 0 00 757400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12766	043611	621 02 0 00 400000 		TLZ	AC-2,1B18
 12767	043612	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12768	043613	541 03 0 00 777737 		HRRI	AC-1,YY
 12769	043614	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12770	043615	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12771	043616	003 04 0 00 006006 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12772	043617	321 10 0 00 043610 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12773
 12774
 12775					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12776					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12777					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12778
 12779			006007		SN=SN+1
 12780			737400			XX=<XX+XX+400>&777777
 12781			777677			YY=<YY+YY+1>&777777
 12782						IFE	<YY-1>,<YY=777776>
 12783	043620	561 02 0 00 737400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12784	043621	621 02 0 00 400000 		TLZ	AC-2,1B18
 12785	043622	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12786	043623	541 03 0 00 777677 		HRRI	AC-1,YY
 12787	043624	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12788	043625	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12789	043626	003 04 0 00 006007 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12790	043627	321 10 0 00 043620 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12791
 12792
 12793					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12794					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0333

 12795					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12796
 12797			006010		SN=SN+1
 12798			677400			XX=<XX+XX+400>&777777
 12799			777577			YY=<YY+YY+1>&777777
 12800						IFE	<YY-1>,<YY=777776>
 12801	043630	561 02 0 00 677400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12802	043631	621 02 0 00 400000 		TLZ	AC-2,1B18
 12803	043632	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12804	043633	541 03 0 00 777577 		HRRI	AC-1,YY
 12805	043634	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12806	043635	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12807	043636	003 04 0 00 006010 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12808	043637	321 10 0 00 043630 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12809
 12810
 12811					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12812					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12813					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12814
 12815			006011		SN=SN+1
 12816			577400			XX=<XX+XX+400>&777777
 12817			777377			YY=<YY+YY+1>&777777
 12818						IFE	<YY-1>,<YY=777776>
 12819	043640	561 02 0 00 577400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12820	043641	621 02 0 00 400000 		TLZ	AC-2,1B18
 12821	043642	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12822	043643	541 03 0 00 777377 		HRRI	AC-1,YY
 12823	043644	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12824	043645	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12825	043646	003 04 0 00 006011 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12826	043647	321 10 0 00 043640 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12827
 12828
 12829					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12830					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12831					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12832
 12833			006012		SN=SN+1
 12834			377400			XX=<XX+XX+400>&777777
 12835			776777			YY=<YY+YY+1>&777777
 12836						IFE	<YY-1>,<YY=777776>
 12837	043650	561 02 0 00 377400 		HRROI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12838	043651	621 02 0 00 400000 		TLZ	AC-2,1B18
 12839	043652	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT7
 12840	043653	541 03 0 00 776777 		HRRI	AC-1,YY
 12841	043654	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12842	043655	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12843	043656	003 04 0 00 006012 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12844	043657	321 10 0 00 043650 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12845
 12846					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0334

 12847			006100		SN=6100
 12848			000000			XX=0
 12849			776777			YY=776777
 12850					Q6100:	REPEAT	^D8,<
 12851					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12852					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12853					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12854					
 12855					SN=SN+1
 12856						XX=<XX+XX+1>&377777
 12857						YY=<YY+YY+1>&777777
 12858						IFE	<XX-1>,<XX=377776>
 12859						HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12860						HRRI	AC-2,777400
 12861						HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12862						HRRI	AC-1,YY
 12863						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12864						CAME	AC,AC-1			;TEST FRACTION
 12865						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12866						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12867					>
 12868
 12869					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12870					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12871					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12872
 12873			006101		SN=SN+1
 12874			000001			XX=<XX+XX+1>&377777
 12875			775777			YY=<YY+YY+1>&777777
 12876			377776			IFE	<XX-1>,<XX=377776>
 12877	043660	525 02 0 00 377776 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12878	043661	541 02 0 00 777400 		HRRI	AC-2,777400
 12879	043662	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12880	043663	541 03 0 00 775777 		HRRI	AC-1,YY
 12881	043664	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12882	043665	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12883	043666	003 04 0 00 006101 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12884	043667	321 10 0 00 043660 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12885
 12886
 12887					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12888					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12889					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12890
 12891			006102		SN=SN+1
 12892			377775			XX=<XX+XX+1>&377777
 12893			773777			YY=<YY+YY+1>&777777
 12894						IFE	<XX-1>,<XX=377776>
 12895	043670	525 02 0 00 377775 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12896	043671	541 02 0 00 777400 		HRRI	AC-2,777400
 12897	043672	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12898	043673	541 03 0 00 773777 		HRRI	AC-1,YY
 12899	043674	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12900	043675	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12901	043676	003 04 0 00 006102 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0335

 12902	043677	321 10 0 00 043670 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12903
 12904
 12905					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12906					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12907					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12908
 12909			006103		SN=SN+1
 12910			377773			XX=<XX+XX+1>&377777
 12911			767777			YY=<YY+YY+1>&777777
 12912						IFE	<XX-1>,<XX=377776>
 12913	043700	525 02 0 00 377773 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12914	043701	541 02 0 00 777400 		HRRI	AC-2,777400
 12915	043702	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12916	043703	541 03 0 00 767777 		HRRI	AC-1,YY
 12917	043704	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12918	043705	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12919	043706	003 04 0 00 006103 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12920	043707	321 10 0 00 043700 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12921
 12922
 12923					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12924					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12925					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12926
 12927			006104		SN=SN+1
 12928			377767			XX=<XX+XX+1>&377777
 12929			757777			YY=<YY+YY+1>&777777
 12930						IFE	<XX-1>,<XX=377776>
 12931	043710	525 02 0 00 377767 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12932	043711	541 02 0 00 777400 		HRRI	AC-2,777400
 12933	043712	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12934	043713	541 03 0 00 757777 		HRRI	AC-1,YY
 12935	043714	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12936	043715	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12937	043716	003 04 0 00 006104 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12938	043717	321 10 0 00 043710 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12939
 12940
 12941					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12942					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12943					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12944
 12945			006105		SN=SN+1
 12946			377757			XX=<XX+XX+1>&377777
 12947			737777			YY=<YY+YY+1>&777777
 12948						IFE	<XX-1>,<XX=377776>
 12949	043720	525 02 0 00 377757 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12950	043721	541 02 0 00 777400 		HRRI	AC-2,777400
 12951	043722	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12952	043723	541 03 0 00 737777 		HRRI	AC-1,YY
 12953	043724	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12954	043725	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12955	043726	003 04 0 00 006105 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12956	043727	321 10 0 00 043720 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 26-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0336

 12957
 12958
 12959					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12960					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12961					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12962
 12963			006106		SN=SN+1
 12964			377737			XX=<XX+XX+1>&377777
 12965			677777			YY=<YY+YY+1>&777777
 12966						IFE	<XX-1>,<XX=377776>
 12967	043730	525 02 0 00 377737 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12968	043731	541 02 0 00 777400 		HRRI	AC-2,777400
 12969	043732	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12970	043733	541 03 0 00 677777 		HRRI	AC-1,YY
 12971	043734	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12972	043735	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12973	043736	003 04 0 00 006106 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12974	043737	321 10 0 00 043730 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12975
 12976
 12977					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12978					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12979					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12980
 12981			006107		SN=SN+1
 12982			377677			XX=<XX+XX+1>&377777
 12983			577777			YY=<YY+YY+1>&777777
 12984						IFE	<XX-1>,<XX=377776>
 12985	043740	525 02 0 00 377677 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 12986	043741	541 02 0 00 777400 		HRRI	AC-2,777400
 12987	043742	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 12988	043743	541 03 0 00 577777 		HRRI	AC-1,YY
 12989	043744	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 12990	043745	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 12991	043746	003 04 0 00 006107 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 12992	043747	321 10 0 00 043740 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 12993
 12994
 12995					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 12996					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 12997					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 12998
 12999			006110		SN=SN+1
 13000			377577			XX=<XX+XX+1>&377777
 13001			377777			YY=<YY+YY+1>&777777
 13002						IFE	<XX-1>,<XX=377776>
 13003	043750	525 02 0 00 377577 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13004	043751	541 02 0 00 777400 		HRRI	AC-2,777400
 13005	043752	525 03 0 00 243777 		HRLOI	AC-1,243777		;SET-UP EXPECTED RESULT
 13006	043753	541 03 0 00 377777 		HRRI	AC-1,YY
 13007	043754	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13008	043755	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13009	043756	003 04 0 00 006110 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13010	043757	321 10 0 00 043750 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13011
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0337

 13012			006200		SN=6200
 13013			377577			XX=377577
 13014			000000			YY=0
 13015
 13016					Q6200:	REPEAT	^D8,<
 13017					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13018					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13019					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13020					
 13021					SN=SN+1
 13022						XX=<XX+XX+1>&377777
 13023						YY=<YY+YY+1>&777
 13024						IFE	<YY-1>,<YY=776>
 13025						HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13026						HRRI	AC-2,777400
 13027						HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13028						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13029						CAME	AC,AC-1			;TEST FRACTION
 13030						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13031						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13032					>
 13033
 13034					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13035					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13036					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13037
 13038			006201		SN=SN+1
 13039			377377			XX=<XX+XX+1>&377777
 13040			000001			YY=<YY+YY+1>&777
 13041			000776			IFE	<YY-1>,<YY=776>
 13042	043760	525 02 0 00 377377 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13043	043761	541 02 0 00 777400 		HRRI	AC-2,777400
 13044	043762	525 03 0 00 243776 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13045	043763	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13046	043764	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13047	043765	003 04 0 00 006201 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13048	043766	321 10 0 00 043760 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13049
 13050
 13051					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13052					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13053					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13054
 13055			006202		SN=SN+1
 13056			376777			XX=<XX+XX+1>&377777
 13057			000775			YY=<YY+YY+1>&777
 13058						IFE	<YY-1>,<YY=776>
 13059	043767	525 02 0 00 376777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13060	043770	541 02 0 00 777400 		HRRI	AC-2,777400
 13061	043771	525 03 0 00 243775 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13062	043772	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13063	043773	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13064	043774	003 04 0 00 006202 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13065	043775	321 10 0 00 043767 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13066
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0338

 13067
 13068					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13069					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13070					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13071
 13072			006203		SN=SN+1
 13073			375777			XX=<XX+XX+1>&377777
 13074			000773			YY=<YY+YY+1>&777
 13075						IFE	<YY-1>,<YY=776>
 13076	043776	525 02 0 00 375777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13077	043777	541 02 0 00 777400 		HRRI	AC-2,777400
 13078	044000	525 03 0 00 243773 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13079	044001	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13080	044002	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13081	044003	003 04 0 00 006203 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13082	044004	321 10 0 00 043776 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13083
 13084
 13085					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13086					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13087					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13088
 13089			006204		SN=SN+1
 13090			373777			XX=<XX+XX+1>&377777
 13091			000767			YY=<YY+YY+1>&777
 13092						IFE	<YY-1>,<YY=776>
 13093	044005	525 02 0 00 373777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13094	044006	541 02 0 00 777400 		HRRI	AC-2,777400
 13095	044007	525 03 0 00 243767 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13096	044010	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13097	044011	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13098	044012	003 04 0 00 006204 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13099	044013	321 10 0 00 044005 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13100
 13101
 13102					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13103					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13104					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13105
 13106			006205		SN=SN+1
 13107			367777			XX=<XX+XX+1>&377777
 13108			000757			YY=<YY+YY+1>&777
 13109						IFE	<YY-1>,<YY=776>
 13110	044014	525 02 0 00 367777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13111	044015	541 02 0 00 777400 		HRRI	AC-2,777400
 13112	044016	525 03 0 00 243757 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13113	044017	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13114	044020	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13115	044021	003 04 0 00 006205 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13116	044022	321 10 0 00 044014 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13117
 13118
 13119					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13120					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13121					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 27-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS                        SEQ 0339

 13122
 13123			006206		SN=SN+1
 13124			357777			XX=<XX+XX+1>&377777
 13125			000737			YY=<YY+YY+1>&777
 13126						IFE	<YY-1>,<YY=776>
 13127	044023	525 02 0 00 357777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13128	044024	541 02 0 00 777400 		HRRI	AC-2,777400
 13129	044025	525 03 0 00 243737 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13130	044026	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13131	044027	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13132	044030	003 04 0 00 006206 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13133	044031	321 10 0 00 044023 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13134
 13135
 13136					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13137					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13138					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13139
 13140			006207		SN=SN+1
 13141			337777			XX=<XX+XX+1>&377777
 13142			000677			YY=<YY+YY+1>&777
 13143						IFE	<YY-1>,<YY=776>
 13144	044032	525 02 0 00 337777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13145	044033	541 02 0 00 777400 		HRRI	AC-2,777400
 13146	044034	525 03 0 00 243677 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13147	044035	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13148	044036	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13149	044037	003 04 0 00 006207 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13150	044040	321 10 0 00 044032 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13151
 13152
 13153					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13154					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13155					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
 13156
 13157			006210		SN=SN+1
 13158			277777			XX=<XX+XX+1>&377777
 13159			000577			YY=<YY+YY+1>&777
 13160						IFE	<YY-1>,<YY=776>
 13161	044041	525 02 0 00 277777 		HRLOI	AC-2,XX			;INITIALIZE FIX PT. NBR.
 13162	044042	541 02 0 00 777400 		HRRI	AC-2,777400
 13163	044043	525 03 0 00 243577 		HRLOI	AC-1,243000+YY		;SET-UP EXPECTED RESULT
 13164	044044	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
 13165	044045	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13166	044046	003 04 0 00 006210 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 13167	044047	321 10 0 00 044041 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13168
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0340

 13169					SUBTTL	DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
 13170
 13171					;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS
 13172
 13173			006300		SN=6300
 13174			000200			XX=200
 13175			000000			YY=0
 13176
 13177					Q6300:	REPEAT	^D10,<
 13178					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13179					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13180					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13181					
 13182					SN=SN+1
 13183						XX=XX+XX
 13184						YY=YY+YY
 13185						IFE	YY,<YY=1>
 13186						MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13187						HRRI	AC-2,XX
 13188						MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13189						HRRI	AC-1,YY
 13190						FLTR	AC,AC-2			;CONVERT TO FLT PT
 13191						CAME	AC,AC-1			;TEST FRACTION
 13192						ER3	AC,SN			;FAILURE
 13193						JUMPL	SAC,.-7			;LOOP ON ERROR
 13194					>
 13195
 13196					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13197					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13198					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13199
 13200			006301		SN=SN+1
 13201			000400			XX=XX+XX
 13202			000000			YY=YY+YY
 13203			000001			IFE	YY,<YY=1>
 13204	044050	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13205	044051	541 02 0 00 000400 		HRRI	AC-2,XX
 13206	044052	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13207	044053	541 03 0 00 000001 		HRRI	AC-1,YY
 13208	044054	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13209	044055	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13210	044056	003 04 0 00 006301 		ER3	AC,SN			;FAILURE
 13211	044057	321 10 0 00 044050 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13212
 13213
 13214					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13215					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13216					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13217
 13218			006302		SN=SN+1
 13219			001000			XX=XX+XX
 13220			000002			YY=YY+YY
 13221						IFE	YY,<YY=1>
 13222	044060	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13223	044061	541 02 0 00 001000 		HRRI	AC-2,XX
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0341

 13224	044062	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13225	044063	541 03 0 00 000002 		HRRI	AC-1,YY
 13226	044064	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13227	044065	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13228	044066	003 04 0 00 006302 		ER3	AC,SN			;FAILURE
 13229	044067	321 10 0 00 044060 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13230
 13231
 13232					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13233					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13234					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13235
 13236			006303		SN=SN+1
 13237			002000			XX=XX+XX
 13238			000004			YY=YY+YY
 13239						IFE	YY,<YY=1>
 13240	044070	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13241	044071	541 02 0 00 002000 		HRRI	AC-2,XX
 13242	044072	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13243	044073	541 03 0 00 000004 		HRRI	AC-1,YY
 13244	044074	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13245	044075	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13246	044076	003 04 0 00 006303 		ER3	AC,SN			;FAILURE
 13247	044077	321 10 0 00 044070 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13248
 13249
 13250					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13251					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13252					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13253
 13254			006304		SN=SN+1
 13255			004000			XX=XX+XX
 13256			000010			YY=YY+YY
 13257						IFE	YY,<YY=1>
 13258	044100	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13259	044101	541 02 0 00 004000 		HRRI	AC-2,XX
 13260	044102	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13261	044103	541 03 0 00 000010 		HRRI	AC-1,YY
 13262	044104	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13263	044105	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13264	044106	003 04 0 00 006304 		ER3	AC,SN			;FAILURE
 13265	044107	321 10 0 00 044100 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13266
 13267
 13268					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13269					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13270					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13271
 13272			006305		SN=SN+1
 13273			010000			XX=XX+XX
 13274			000020			YY=YY+YY
 13275						IFE	YY,<YY=1>
 13276	044110	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13277	044111	541 02 0 00 010000 		HRRI	AC-2,XX
 13278	044112	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0342

 13279	044113	541 03 0 00 000020 		HRRI	AC-1,YY
 13280	044114	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13281	044115	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13282	044116	003 04 0 00 006305 		ER3	AC,SN			;FAILURE
 13283	044117	321 10 0 00 044110 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13284
 13285
 13286					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13287					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13288					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13289
 13290			006306		SN=SN+1
 13291			020000			XX=XX+XX
 13292			000040			YY=YY+YY
 13293						IFE	YY,<YY=1>
 13294	044120	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13295	044121	541 02 0 00 020000 		HRRI	AC-2,XX
 13296	044122	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13297	044123	541 03 0 00 000040 		HRRI	AC-1,YY
 13298	044124	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13299	044125	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13300	044126	003 04 0 00 006306 		ER3	AC,SN			;FAILURE
 13301	044127	321 10 0 00 044120 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13302
 13303
 13304					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13305					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13306					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13307
 13308			006307		SN=SN+1
 13309			040000			XX=XX+XX
 13310			000100			YY=YY+YY
 13311						IFE	YY,<YY=1>
 13312	044130	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13313	044131	541 02 0 00 040000 		HRRI	AC-2,XX
 13314	044132	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13315	044133	541 03 0 00 000100 		HRRI	AC-1,YY
 13316	044134	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13317	044135	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13318	044136	003 04 0 00 006307 		ER3	AC,SN			;FAILURE
 13319	044137	321 10 0 00 044130 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13320
 13321
 13322					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13323					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13324					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13325
 13326			006310		SN=SN+1
 13327			100000			XX=XX+XX
 13328			000200			YY=YY+YY
 13329						IFE	YY,<YY=1>
 13330	044140	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13331	044141	541 02 0 00 100000 		HRRI	AC-2,XX
 13332	044142	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13333	044143	541 03 0 00 000200 		HRRI	AC-1,YY
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0343

 13334	044144	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13335	044145	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13336	044146	003 04 0 00 006310 		ER3	AC,SN			;FAILURE
 13337	044147	321 10 0 00 044140 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13338
 13339
 13340					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13341					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13342					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13343
 13344			006311		SN=SN+1
 13345			200000			XX=XX+XX
 13346			000400			YY=YY+YY
 13347						IFE	YY,<YY=1>
 13348	044150	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13349	044151	541 02 0 00 200000 		HRRI	AC-2,XX
 13350	044152	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13351	044153	541 03 0 00 000400 		HRRI	AC-1,YY
 13352	044154	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13353	044155	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13354	044156	003 04 0 00 006311 		ER3	AC,SN			;FAILURE
 13355	044157	321 10 0 00 044150 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13356
 13357
 13358					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13359					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13360					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13361
 13362			006312		SN=SN+1
 13363			400000			XX=XX+XX
 13364			001000			YY=YY+YY
 13365						IFE	YY,<YY=1>
 13366	044160	205 02 0 00 200000 		MOVSI	AC-2,1B19		;INITIALIZE FIX PT NBR.
 13367	044161	541 02 0 00 400000 		HRRI	AC-2,XX
 13368	044162	205 03 0 00 243400 		MOVSI	AC-1,243400		;SETUP EXPECTED RESULT
 13369	044163	541 03 0 00 001000 		HRRI	AC-1,YY
 13370	044164	127 04 0 00 000002 		FLTR	AC,AC-2			;CONVERT TO FLT PT
 13371	044165	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13372	044166	003 04 0 00 006312 		ER3	AC,SN			;FAILURE
 13373	044167	321 10 0 00 044160 		JUMPL	SAC,.-7			;LOOP ON ERROR
 13374
 13375					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0344

 13376			006400		SN=6400
 13377			000000			XX=0
 13378			001000			YY=1000
 13379
 13380					Q6400:	REPEAT	^D8,<
 13381					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13382					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13383					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13384					
 13385					SN=SN+1
 13386						XX=XX+XX
 13387						YY=YY+YY
 13388						IFE	XX,<XX=1>
 13389						MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13390						MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13391						HRRI	AC-1,YY
 13392						FLTR	AC,AC-2			;*FIXED TO FLOAT
 13393						CAME	AC,AC-1			;TEST FRACTION
 13394						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13395						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13396					>
 13397
 13398					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13399					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13400					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13401
 13402			006401		SN=SN+1
 13403			000000			XX=XX+XX
 13404			002000			YY=YY+YY
 13405			000001			IFE	XX,<XX=1>
 13406	044170	205 02 0 00 200001 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13407	044171	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13408	044172	541 03 0 00 002000 		HRRI	AC-1,YY
 13409	044173	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13410	044174	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13411	044175	003 04 0 00 006401 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13412	044176	321 10 0 00 044170 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13413
 13414
 13415					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13416					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13417					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13418
 13419			006402		SN=SN+1
 13420			000002			XX=XX+XX
 13421			004000			YY=YY+YY
 13422						IFE	XX,<XX=1>
 13423	044177	205 02 0 00 200002 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13424	044200	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13425	044201	541 03 0 00 004000 		HRRI	AC-1,YY
 13426	044202	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13427	044203	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13428	044204	003 04 0 00 006402 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13429	044205	321 10 0 00 044177 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13430
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0345

 13431
 13432					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13433					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13434					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13435
 13436			006403		SN=SN+1
 13437			000004			XX=XX+XX
 13438			010000			YY=YY+YY
 13439						IFE	XX,<XX=1>
 13440	044206	205 02 0 00 200004 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13441	044207	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13442	044210	541 03 0 00 010000 		HRRI	AC-1,YY
 13443	044211	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13444	044212	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13445	044213	003 04 0 00 006403 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13446	044214	321 10 0 00 044206 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13447
 13448
 13449					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13450					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13451					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13452
 13453			006404		SN=SN+1
 13454			000010			XX=XX+XX
 13455			020000			YY=YY+YY
 13456						IFE	XX,<XX=1>
 13457	044215	205 02 0 00 200010 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13458	044216	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13459	044217	541 03 0 00 020000 		HRRI	AC-1,YY
 13460	044220	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13461	044221	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13462	044222	003 04 0 00 006404 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13463	044223	321 10 0 00 044215 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13464
 13465
 13466					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13467					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13468					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13469
 13470			006405		SN=SN+1
 13471			000020			XX=XX+XX
 13472			040000			YY=YY+YY
 13473						IFE	XX,<XX=1>
 13474	044224	205 02 0 00 200020 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13475	044225	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13476	044226	541 03 0 00 040000 		HRRI	AC-1,YY
 13477	044227	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13478	044230	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13479	044231	003 04 0 00 006405 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13480	044232	321 10 0 00 044224 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13481
 13482
 13483					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13484					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13485					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 28-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0346

 13486
 13487			006406		SN=SN+1
 13488			000040			XX=XX+XX
 13489			100000			YY=YY+YY
 13490						IFE	XX,<XX=1>
 13491	044233	205 02 0 00 200040 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13492	044234	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13493	044235	541 03 0 00 100000 		HRRI	AC-1,YY
 13494	044236	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13495	044237	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13496	044240	003 04 0 00 006406 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13497	044241	321 10 0 00 044233 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13498
 13499
 13500					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13501					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13502					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13503
 13504			006407		SN=SN+1
 13505			000100			XX=XX+XX
 13506			200000			YY=YY+YY
 13507						IFE	XX,<XX=1>
 13508	044242	205 02 0 00 200100 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13509	044243	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13510	044244	541 03 0 00 200000 		HRRI	AC-1,YY
 13511	044245	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13512	044246	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13513	044247	003 04 0 00 006407 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13514	044250	321 10 0 00 044242 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13515
 13516
 13517					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
 13518					;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13519					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13520
 13521			006410		SN=SN+1
 13522			000200			XX=XX+XX
 13523			400000			YY=YY+YY
 13524						IFE	XX,<XX=1>
 13525	044251	205 02 0 00 200200 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13526	044252	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 13527	044253	541 03 0 00 400000 		HRRI	AC-1,YY
 13528	044254	127 04 0 00 000002 		FLTR	AC,AC-2			;*FIXED TO FLOAT
 13529	044255	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13530	044256	003 04 0 00 006410 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13531	044257	321 10 0 00 044251 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13532
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0347

 13533			006500		SN=6500
 13534			000200			XX=200
 13535			000000			YY=0
 13536
 13537					Q6500:	REPEAT	^D8,<
 13538					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13539					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13540					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13541					
 13542					SN=SN+1
 13543						XX=XX+XX
 13544						YY=YY+YY
 13545						IFE	YY,<YY=1>
 13546						MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13547						MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13548						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13549					 RESULT IN AC
 13550						CAME	AC,AC-1			;TEST FRACTION
 13551						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13552						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13553					>
 13554
 13555					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13556					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13557					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13558
 13559			006501		SN=SN+1
 13560			000400			XX=XX+XX
 13561			000000			YY=YY+YY
 13562			000001			IFE	YY,<YY=1>
 13563	044260	205 02 0 00 200400 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13564	044261	205 03 0 00 243401 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13565						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13566	044262	127 04 0 00 000002 	 RESULT IN AC
 13567	044263	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13568	044264	003 04 0 00 006501 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13569	044265	321 10 0 00 044260 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13570
 13571
 13572					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13573					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13574					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13575
 13576			006502		SN=SN+1
 13577			001000			XX=XX+XX
 13578			000002			YY=YY+YY
 13579						IFE	YY,<YY=1>
 13580	044266	205 02 0 00 201000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13581	044267	205 03 0 00 243402 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13582						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13583	044270	127 04 0 00 000002 	 RESULT IN AC
 13584	044271	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13585	044272	003 04 0 00 006502 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13586	044273	321 10 0 00 044266 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13587
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0348

 13588
 13589					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13590					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13591					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13592
 13593			006503		SN=SN+1
 13594			002000			XX=XX+XX
 13595			000004			YY=YY+YY
 13596						IFE	YY,<YY=1>
 13597	044274	205 02 0 00 202000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13598	044275	205 03 0 00 243404 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13599						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13600	044276	127 04 0 00 000002 	 RESULT IN AC
 13601	044277	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13602	044300	003 04 0 00 006503 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13603	044301	321 10 0 00 044274 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13604
 13605
 13606					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13607					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13608					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13609
 13610			006504		SN=SN+1
 13611			004000			XX=XX+XX
 13612			000010			YY=YY+YY
 13613						IFE	YY,<YY=1>
 13614	044302	205 02 0 00 204000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13615	044303	205 03 0 00 243410 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13616						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13617	044304	127 04 0 00 000002 	 RESULT IN AC
 13618	044305	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13619	044306	003 04 0 00 006504 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13620	044307	321 10 0 00 044302 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13621
 13622
 13623					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13624					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13625					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13626
 13627			006505		SN=SN+1
 13628			010000			XX=XX+XX
 13629			000020			YY=YY+YY
 13630						IFE	YY,<YY=1>
 13631	044310	205 02 0 00 210000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13632	044311	205 03 0 00 243420 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13633						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13634	044312	127 04 0 00 000002 	 RESULT IN AC
 13635	044313	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13636	044314	003 04 0 00 006505 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13637	044315	321 10 0 00 044310 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13638
 13639
 13640					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13641					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13642					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 29-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES                         SEQ 0349

 13643
 13644			006506		SN=SN+1
 13645			020000			XX=XX+XX
 13646			000040			YY=YY+YY
 13647						IFE	YY,<YY=1>
 13648	044316	205 02 0 00 220000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13649	044317	205 03 0 00 243440 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13650						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13651	044320	127 04 0 00 000002 	 RESULT IN AC
 13652	044321	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13653	044322	003 04 0 00 006506 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13654	044323	321 10 0 00 044316 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13655
 13656
 13657					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13658					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13659					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13660
 13661			006507		SN=SN+1
 13662			040000			XX=XX+XX
 13663			000100			YY=YY+YY
 13664						IFE	YY,<YY=1>
 13665	044324	205 02 0 00 240000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13666	044325	205 03 0 00 243500 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13667						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13668	044326	127 04 0 00 000002 	 RESULT IN AC
 13669	044327	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13670	044330	003 04 0 00 006507 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13671	044331	321 10 0 00 044324 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13672
 13673
 13674					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13675					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13676					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
 13677
 13678			006510		SN=SN+1
 13679			100000			XX=XX+XX
 13680			000200			YY=YY+YY
 13681						IFE	YY,<YY=1>
 13682	044332	205 02 0 00 300000 		MOVSI	AC-2,1B19+XX		;INITIALIZE FIX PT. NBR.
 13683	044333	205 03 0 00 243600 		MOVSI	AC-1,243400+YY		;SET-UP EXPECTED RESULT
 13684						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13685	044334	127 04 0 00 000002 	 RESULT IN AC
 13686	044335	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13687	044336	003 04 0 00 006510 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13688	044337	321 10 0 00 044332 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 13689
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0350

 13690					SUBTTL	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
 13691
 13692					;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS
 13693
 13694			006600		SN=6600
 13695			000200			XX=200
 13696			000000			YY=0
 13697
 13698					Q6600:	REPEAT	^D10,<
 13699					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13700					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13701					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13702					
 13703					SN=SN+1
 13704						XX=XX+XX
 13705						YY=YY+YY
 13706						IFE	YY,<YY=1>
 13707						MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13708						HRRI	AC-2,XX
 13709						MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13710						HRRI	AC-1,YY
 13711						FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13712						CAME	AC,AC-1			;TEST FRACTION
 13713						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13714						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13715					>
 13716
 13717					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13718					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13719					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13720
 13721			006601		SN=SN+1
 13722			000400			XX=XX+XX
 13723			000000			YY=YY+YY
 13724			000001			IFE	YY,<YY=1>
 13725	044340	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13726	044341	541 02 0 00 000400 		HRRI	AC-2,XX
 13727	044342	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13728	044343	541 03 0 00 000001 		HRRI	AC-1,YY
 13729	044344	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13730	044345	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13731	044346	003 04 0 00 006601 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13732	044347	321 10 0 00 044340 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13733
 13734
 13735					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13736					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13737					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13738
 13739			006602		SN=SN+1
 13740			001000			XX=XX+XX
 13741			000002			YY=YY+YY
 13742						IFE	YY,<YY=1>
 13743	044350	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13744	044351	541 02 0 00 001000 		HRRI	AC-2,XX
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0351

 13745	044352	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13746	044353	541 03 0 00 000002 		HRRI	AC-1,YY
 13747	044354	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13748	044355	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13749	044356	003 04 0 00 006602 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13750	044357	321 10 0 00 044350 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13751
 13752
 13753					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13754					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13755					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13756
 13757			006603		SN=SN+1
 13758			002000			XX=XX+XX
 13759			000004			YY=YY+YY
 13760						IFE	YY,<YY=1>
 13761	044360	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13762	044361	541 02 0 00 002000 		HRRI	AC-2,XX
 13763	044362	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13764	044363	541 03 0 00 000004 		HRRI	AC-1,YY
 13765	044364	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13766	044365	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13767	044366	003 04 0 00 006603 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13768	044367	321 10 0 00 044360 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13769
 13770
 13771					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13772					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13773					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13774
 13775			006604		SN=SN+1
 13776			004000			XX=XX+XX
 13777			000010			YY=YY+YY
 13778						IFE	YY,<YY=1>
 13779	044370	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13780	044371	541 02 0 00 004000 		HRRI	AC-2,XX
 13781	044372	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13782	044373	541 03 0 00 000010 		HRRI	AC-1,YY
 13783	044374	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13784	044375	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13785	044376	003 04 0 00 006604 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13786	044377	321 10 0 00 044370 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13787
 13788
 13789					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13790					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13791					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13792
 13793			006605		SN=SN+1
 13794			010000			XX=XX+XX
 13795			000020			YY=YY+YY
 13796						IFE	YY,<YY=1>
 13797	044400	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13798	044401	541 02 0 00 010000 		HRRI	AC-2,XX
 13799	044402	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0352

 13800	044403	541 03 0 00 000020 		HRRI	AC-1,YY
 13801	044404	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13802	044405	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13803	044406	003 04 0 00 006605 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13804	044407	321 10 0 00 044400 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13805
 13806
 13807					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13808					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13809					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13810
 13811			006606		SN=SN+1
 13812			020000			XX=XX+XX
 13813			000040			YY=YY+YY
 13814						IFE	YY,<YY=1>
 13815	044410	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13816	044411	541 02 0 00 020000 		HRRI	AC-2,XX
 13817	044412	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13818	044413	541 03 0 00 000040 		HRRI	AC-1,YY
 13819	044414	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13820	044415	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13821	044416	003 04 0 00 006606 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13822	044417	321 10 0 00 044410 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13823
 13824
 13825					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13826					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13827					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13828
 13829			006607		SN=SN+1
 13830			040000			XX=XX+XX
 13831			000100			YY=YY+YY
 13832						IFE	YY,<YY=1>
 13833	044420	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13834	044421	541 02 0 00 040000 		HRRI	AC-2,XX
 13835	044422	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13836	044423	541 03 0 00 000100 		HRRI	AC-1,YY
 13837	044424	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13838	044425	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13839	044426	003 04 0 00 006607 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13840	044427	321 10 0 00 044420 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13841
 13842
 13843					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13844					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13845					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13846
 13847			006610		SN=SN+1
 13848			100000			XX=XX+XX
 13849			000200			YY=YY+YY
 13850						IFE	YY,<YY=1>
 13851	044430	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13852	044431	541 02 0 00 100000 		HRRI	AC-2,XX
 13853	044432	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13854	044433	541 03 0 00 000200 		HRRI	AC-1,YY
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0353

 13855	044434	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13856	044435	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13857	044436	003 04 0 00 006610 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13858	044437	321 10 0 00 044430 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13859
 13860
 13861					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13862					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13863					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13864
 13865			006611		SN=SN+1
 13866			200000			XX=XX+XX
 13867			000400			YY=YY+YY
 13868						IFE	YY,<YY=1>
 13869	044440	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13870	044441	541 02 0 00 200000 		HRRI	AC-2,XX
 13871	044442	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13872	044443	541 03 0 00 000400 		HRRI	AC-1,YY
 13873	044444	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13874	044445	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13875	044446	003 04 0 00 006611 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13876	044447	321 10 0 00 044440 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13877
 13878
 13879					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13880					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13881					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13882
 13883			006612		SN=SN+1
 13884			400000			XX=XX+XX
 13885			001000			YY=YY+YY
 13886						IFE	YY,<YY=1>
 13887	044450	205 02 0 00 400000 		MOVSI	AC-2,1B18		;INITIALIZE FIX PT. NBR.
 13888	044451	541 02 0 00 400000 		HRRI	AC-2,XX
 13889	044452	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13890	044453	541 03 0 00 001000 		HRRI	AC-1,YY
 13891	044454	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 13892	044455	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13893	044456	003 04 0 00 006612 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13894	044457	321 10 0 00 044450 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 13895
 13896					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0354

 13897			006700		SN=6700
 13898			000000			XX=0
 13899			001000			YY=1000
 13900
 13901					Q6700:	REPEAT	^D8,<
 13902					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13903					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13904					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13905					
 13906					SN=SN+1
 13907						XX=XX+XX
 13908						YY=YY+YY
 13909						IFE	XX,<XX=1>
 13910						MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 13911						MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13912						HRRI	AC-1,YY
 13913						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13914					 RESULT IN AC
 13915						CAME	AC,AC-1			;TEST FRACTION
 13916						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13917						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13918					>
 13919
 13920					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13921					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13922					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13923
 13924			006701		SN=SN+1
 13925			000000			XX=XX+XX
 13926			002000			YY=YY+YY
 13927			000001			IFE	XX,<XX=1>
 13928	044460	205 02 0 00 400001 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 13929	044461	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13930	044462	541 03 0 00 002000 		HRRI	AC-1,YY
 13931						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13932	044463	127 04 0 00 000002 	 RESULT IN AC
 13933	044464	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13934	044465	003 04 0 00 006701 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13935	044466	321 10 0 00 044460 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13936
 13937
 13938					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13939					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13940					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13941
 13942			006702		SN=SN+1
 13943			000002			XX=XX+XX
 13944			004000			YY=YY+YY
 13945						IFE	XX,<XX=1>
 13946	044467	205 02 0 00 400002 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 13947	044470	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13948	044471	541 03 0 00 004000 		HRRI	AC-1,YY
 13949						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13950	044472	127 04 0 00 000002 	 RESULT IN AC
 13951	044473	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0355

 13952	044474	003 04 0 00 006702 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13953	044475	321 10 0 00 044467 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13954
 13955
 13956					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13957					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13958					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13959
 13960			006703		SN=SN+1
 13961			000004			XX=XX+XX
 13962			010000			YY=YY+YY
 13963						IFE	XX,<XX=1>
 13964	044476	205 02 0 00 400004 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 13965	044477	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13966	044500	541 03 0 00 010000 		HRRI	AC-1,YY
 13967						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13968	044501	127 04 0 00 000002 	 RESULT IN AC
 13969	044502	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13970	044503	003 04 0 00 006703 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13971	044504	321 10 0 00 044476 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13972
 13973
 13974					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13975					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13976					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13977
 13978			006704		SN=SN+1
 13979			000010			XX=XX+XX
 13980			020000			YY=YY+YY
 13981						IFE	XX,<XX=1>
 13982	044505	205 02 0 00 400010 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 13983	044506	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 13984	044507	541 03 0 00 020000 		HRRI	AC-1,YY
 13985						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 13986	044510	127 04 0 00 000002 	 RESULT IN AC
 13987	044511	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 13988	044512	003 04 0 00 006704 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 13989	044513	321 10 0 00 044505 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 13990
 13991
 13992					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 13993					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 13994					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 13995
 13996			006705		SN=SN+1
 13997			000020			XX=XX+XX
 13998			040000			YY=YY+YY
 13999						IFE	XX,<XX=1>
 14000	044514	205 02 0 00 400020 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14001	044515	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 14002	044516	541 03 0 00 040000 		HRRI	AC-1,YY
 14003						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14004	044517	127 04 0 00 000002 	 RESULT IN AC
 14005	044520	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14006	044521	003 04 0 00 006705 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0356

 14007	044522	321 10 0 00 044514 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14008
 14009
 14010					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14011					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14012					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14013
 14014			006706		SN=SN+1
 14015			000040			XX=XX+XX
 14016			100000			YY=YY+YY
 14017						IFE	XX,<XX=1>
 14018	044523	205 02 0 00 400040 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14019	044524	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 14020	044525	541 03 0 00 100000 		HRRI	AC-1,YY
 14021						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14022	044526	127 04 0 00 000002 	 RESULT IN AC
 14023	044527	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14024	044530	003 04 0 00 006706 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14025	044531	321 10 0 00 044523 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14026
 14027
 14028					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14029					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14030					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14031
 14032			006707		SN=SN+1
 14033			000100			XX=XX+XX
 14034			200000			YY=YY+YY
 14035						IFE	XX,<XX=1>
 14036	044532	205 02 0 00 400100 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14037	044533	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 14038	044534	541 03 0 00 200000 		HRRI	AC-1,YY
 14039						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14040	044535	127 04 0 00 000002 	 RESULT IN AC
 14041	044536	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14042	044537	003 04 0 00 006707 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14043	044540	321 10 0 00 044532 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14044
 14045
 14046					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14047					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14048					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14049
 14050			006710		SN=SN+1
 14051			000200			XX=XX+XX
 14052			400000			YY=YY+YY
 14053						IFE	XX,<XX=1>
 14054	044541	205 02 0 00 400200 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14055	044542	205 03 0 00 534000 		MOVSI	AC-1,534000		;SET-UP EXPECTED RESULT
 14056	044543	541 03 0 00 400000 		HRRI	AC-1,YY
 14057						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14058	044544	127 04 0 00 000002 	 RESULT IN AC
 14059	044545	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14060	044546	003 04 0 00 006710 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14061	044547	321 10 0 00 044541 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 30-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0357

 14062
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0358

 14063			007000		SN=7000
 14064			000200			XX=200
 14065			000000			YY=0
 14066
 14067					Q7000:	REPEAT	^D8,<
 14068					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14069					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14070					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14071					
 14072					SN=SN+1
 14073						XX=XX+XX
 14074						YY=YY+YY
 14075						IFE	YY,<YY=1>
 14076						MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14077						MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14078						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14079					 RESULT IN AC
 14080						CAME	AC,AC-1			;TEST FRACTION
 14081						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14082						JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14083					>
 14084
 14085					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14086					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14087					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14088
 14089			007001		SN=SN+1
 14090			000400			XX=XX+XX
 14091			000000			YY=YY+YY
 14092			000001			IFE	YY,<YY=1>
 14093	044550	205 02 0 00 400400 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14094	044551	205 03 0 00 534001 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14095						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14096	044552	127 04 0 00 000002 	 RESULT IN AC
 14097	044553	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14098	044554	003 04 0 00 007001 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14099	044555	321 10 0 00 044550 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14100
 14101
 14102					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14103					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14104					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14105
 14106			007002		SN=SN+1
 14107			001000			XX=XX+XX
 14108			000002			YY=YY+YY
 14109						IFE	YY,<YY=1>
 14110	044556	205 02 0 00 401000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14111	044557	205 03 0 00 534002 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14112						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14113	044560	127 04 0 00 000002 	 RESULT IN AC
 14114	044561	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14115	044562	003 04 0 00 007002 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14116	044563	321 10 0 00 044556 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14117
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0359

 14118
 14119					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14120					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14121					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14122
 14123			007003		SN=SN+1
 14124			002000			XX=XX+XX
 14125			000004			YY=YY+YY
 14126						IFE	YY,<YY=1>
 14127	044564	205 02 0 00 402000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14128	044565	205 03 0 00 534004 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14129						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14130	044566	127 04 0 00 000002 	 RESULT IN AC
 14131	044567	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14132	044570	003 04 0 00 007003 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14133	044571	321 10 0 00 044564 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14134
 14135
 14136					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14137					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14138					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14139
 14140			007004		SN=SN+1
 14141			004000			XX=XX+XX
 14142			000010			YY=YY+YY
 14143						IFE	YY,<YY=1>
 14144	044572	205 02 0 00 404000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14145	044573	205 03 0 00 534010 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14146						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14147	044574	127 04 0 00 000002 	 RESULT IN AC
 14148	044575	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14149	044576	003 04 0 00 007004 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14150	044577	321 10 0 00 044572 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14151
 14152
 14153					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14154					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14155					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14156
 14157			007005		SN=SN+1
 14158			010000			XX=XX+XX
 14159			000020			YY=YY+YY
 14160						IFE	YY,<YY=1>
 14161	044600	205 02 0 00 410000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14162	044601	205 03 0 00 534020 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14163						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14164	044602	127 04 0 00 000002 	 RESULT IN AC
 14165	044603	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14166	044604	003 04 0 00 007005 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14167	044605	321 10 0 00 044600 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14168
 14169
 14170					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14171					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14172					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 31-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES                         SEQ 0360

 14173
 14174			007006		SN=SN+1
 14175			020000			XX=XX+XX
 14176			000040			YY=YY+YY
 14177						IFE	YY,<YY=1>
 14178	044606	205 02 0 00 420000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14179	044607	205 03 0 00 534040 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14180						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14181	044610	127 04 0 00 000002 	 RESULT IN AC
 14182	044611	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14183	044612	003 04 0 00 007006 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14184	044613	321 10 0 00 044606 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14185
 14186
 14187					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14188					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14189					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14190
 14191			007007		SN=SN+1
 14192			040000			XX=XX+XX
 14193			000100			YY=YY+YY
 14194						IFE	YY,<YY=1>
 14195	044614	205 02 0 00 440000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14196	044615	205 03 0 00 534100 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14197						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14198	044616	127 04 0 00 000002 	 RESULT IN AC
 14199	044617	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14200	044620	003 04 0 00 007007 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14201	044621	321 10 0 00 044614 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14202
 14203
 14204					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14205					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14206					;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
 14207
 14208			007010		SN=SN+1
 14209			100000			XX=XX+XX
 14210			000200			YY=YY+YY
 14211						IFE	YY,<YY=1>
 14212	044622	205 02 0 00 500000 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14213	044623	205 03 0 00 534200 		MOVSI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14214						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14215	044624	127 04 0 00 000002 	 RESULT IN AC
 14216	044625	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14217	044626	003 04 0 00 007010 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT SET
 14218	044627	321 10 0 00 044622 		JUMPL	SAC,.-5			;LOOP ON ERROR SWITCH
 14219
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0361

 14220					SUBTTL	DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
 14221
 14222					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14223					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14224					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14225
 14226	044630	205 02 0 00 577777 	Q7100:	MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14227	044631	541 02 0 00 777400 		HRRI	AC-2,777400
 14228	044632	525 03 0 00 534377 		HRLOI	AC-1,534377		;SET-UP EXPECTED RESULT
 14229						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14230	044633	127 04 0 00 000002 	 RESULT IN AC
 14231	044634	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14232	044635	003 04 0 00 007101 		ER3	AC,7101			;FAILURE IF TESTED BIT IS NOT CLEAR
 14233	044636	321 10 0 00 044630 		JUMPL	SAC,Q7100		;LOOP ON ERROR SWITCH
 14234
 14235			007200		SN=7200
 14236			777200			XX=777200
 14237			000000			YY=0
 14238
 14239					Q7200:	REPEAT	^D10,<
 14240					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14241					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14242					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14243					
 14244					SN=SN+1
 14245						XX=<XX+XX+400>&777777
 14246						YY=<YY+YY+1>&777777
 14247						IFE	<YY-1>,<YY=777776>
 14248						MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14249						HRRI	AC-2,XX
 14250						MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14251						HRRI	AC-1,YY
 14252						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14253					 RESULT IN AC
 14254						CAME	AC,AC-1			;TEST FRACTION
 14255						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14256						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14257					>
 14258
 14259					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14260					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14261					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14262
 14263			007201		SN=SN+1
 14264			777000			XX=<XX+XX+400>&777777
 14265			000001			YY=<YY+YY+1>&777777
 14266			777776			IFE	<YY-1>,<YY=777776>
 14267	044637	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14268	044640	541 02 0 00 777000 		HRRI	AC-2,XX
 14269	044641	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14270	044642	541 03 0 00 777776 		HRRI	AC-1,YY
 14271						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14272	044643	127 04 0 00 000002 	 RESULT IN AC
 14273	044644	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14274	044645	003 04 0 00 007201 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0362

 14275	044646	321 10 0 00 044637 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14276
 14277
 14278					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14279					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14280					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14281
 14282			007202		SN=SN+1
 14283			776400			XX=<XX+XX+400>&777777
 14284			777775			YY=<YY+YY+1>&777777
 14285						IFE	<YY-1>,<YY=777776>
 14286	044647	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14287	044650	541 02 0 00 776400 		HRRI	AC-2,XX
 14288	044651	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14289	044652	541 03 0 00 777775 		HRRI	AC-1,YY
 14290						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14291	044653	127 04 0 00 000002 	 RESULT IN AC
 14292	044654	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14293	044655	003 04 0 00 007202 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14294	044656	321 10 0 00 044647 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14295
 14296
 14297					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14298					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14299					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14300
 14301			007203		SN=SN+1
 14302			775400			XX=<XX+XX+400>&777777
 14303			777773			YY=<YY+YY+1>&777777
 14304						IFE	<YY-1>,<YY=777776>
 14305	044657	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14306	044660	541 02 0 00 775400 		HRRI	AC-2,XX
 14307	044661	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14308	044662	541 03 0 00 777773 		HRRI	AC-1,YY
 14309						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14310	044663	127 04 0 00 000002 	 RESULT IN AC
 14311	044664	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14312	044665	003 04 0 00 007203 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14313	044666	321 10 0 00 044657 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14314
 14315
 14316					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14317					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14318					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14319
 14320			007204		SN=SN+1
 14321			773400			XX=<XX+XX+400>&777777
 14322			777767			YY=<YY+YY+1>&777777
 14323						IFE	<YY-1>,<YY=777776>
 14324	044667	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14325	044670	541 02 0 00 773400 		HRRI	AC-2,XX
 14326	044671	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14327	044672	541 03 0 00 777767 		HRRI	AC-1,YY
 14328						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14329	044673	127 04 0 00 000002 	 RESULT IN AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0363

 14330	044674	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14331	044675	003 04 0 00 007204 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14332	044676	321 10 0 00 044667 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14333
 14334
 14335					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14336					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14337					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14338
 14339			007205		SN=SN+1
 14340			767400			XX=<XX+XX+400>&777777
 14341			777757			YY=<YY+YY+1>&777777
 14342						IFE	<YY-1>,<YY=777776>
 14343	044677	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14344	044700	541 02 0 00 767400 		HRRI	AC-2,XX
 14345	044701	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14346	044702	541 03 0 00 777757 		HRRI	AC-1,YY
 14347						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14348	044703	127 04 0 00 000002 	 RESULT IN AC
 14349	044704	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14350	044705	003 04 0 00 007205 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14351	044706	321 10 0 00 044677 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14352
 14353
 14354					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14355					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14356					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14357
 14358			007206		SN=SN+1
 14359			757400			XX=<XX+XX+400>&777777
 14360			777737			YY=<YY+YY+1>&777777
 14361						IFE	<YY-1>,<YY=777776>
 14362	044707	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14363	044710	541 02 0 00 757400 		HRRI	AC-2,XX
 14364	044711	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14365	044712	541 03 0 00 777737 		HRRI	AC-1,YY
 14366						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14367	044713	127 04 0 00 000002 	 RESULT IN AC
 14368	044714	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14369	044715	003 04 0 00 007206 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14370	044716	321 10 0 00 044707 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14371
 14372
 14373					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14374					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14375					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14376
 14377			007207		SN=SN+1
 14378			737400			XX=<XX+XX+400>&777777
 14379			777677			YY=<YY+YY+1>&777777
 14380						IFE	<YY-1>,<YY=777776>
 14381	044717	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14382	044720	541 02 0 00 737400 		HRRI	AC-2,XX
 14383	044721	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14384	044722	541 03 0 00 777677 		HRRI	AC-1,YY
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0364

 14385						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14386	044723	127 04 0 00 000002 	 RESULT IN AC
 14387	044724	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14388	044725	003 04 0 00 007207 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14389	044726	321 10 0 00 044717 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14390
 14391
 14392					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14393					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14394					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14395
 14396			007210		SN=SN+1
 14397			677400			XX=<XX+XX+400>&777777
 14398			777577			YY=<YY+YY+1>&777777
 14399						IFE	<YY-1>,<YY=777776>
 14400	044727	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14401	044730	541 02 0 00 677400 		HRRI	AC-2,XX
 14402	044731	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14403	044732	541 03 0 00 777577 		HRRI	AC-1,YY
 14404						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14405	044733	127 04 0 00 000002 	 RESULT IN AC
 14406	044734	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14407	044735	003 04 0 00 007210 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14408	044736	321 10 0 00 044727 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14409
 14410
 14411					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14412					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14413					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14414
 14415			007211		SN=SN+1
 14416			577400			XX=<XX+XX+400>&777777
 14417			777377			YY=<YY+YY+1>&777777
 14418						IFE	<YY-1>,<YY=777776>
 14419	044737	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14420	044740	541 02 0 00 577400 		HRRI	AC-2,XX
 14421	044741	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14422	044742	541 03 0 00 777377 		HRRI	AC-1,YY
 14423						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14424	044743	127 04 0 00 000002 	 RESULT IN AC
 14425	044744	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14426	044745	003 04 0 00 007211 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14427	044746	321 10 0 00 044737 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14428
 14429
 14430					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14431					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14432					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14433
 14434			007212		SN=SN+1
 14435			377400			XX=<XX+XX+400>&777777
 14436			776777			YY=<YY+YY+1>&777777
 14437						IFE	<YY-1>,<YY=777776>
 14438	044747	205 02 0 00 577777 		MOVSI	AC-2,577777		;INITIALIZE FIX PT. NBR.
 14439	044750	541 02 0 00 377400 		HRRI	AC-2,XX
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0365

 14440	044751	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14441	044752	541 03 0 00 776777 		HRRI	AC-1,YY
 14442						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14443	044753	127 04 0 00 000002 	 RESULT IN AC
 14444	044754	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14445	044755	003 04 0 00 007212 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14446	044756	321 10 0 00 044747 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14447
 14448					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0366

 14449			007300		SN=7300
 14450			000000			XX=0
 14451			776777			YY=776777
 14452
 14453					Q7300:	REPEAT	^D8,<
 14454					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14455					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14456					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14457					
 14458					SN=SN+1
 14459						XX=<XX+XX+1>&177777
 14460						YY=<YY+YY+1>&777777
 14461						IFE	<XX-1>,<XX=177776>
 14462						MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14463						HRRI	AC-2,777400
 14464						MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14465						HRRI	AC-1,YY
 14466						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14467					 RESULT IN AC
 14468						CAME	AC,AC-1			;TEST FRACTION
 14469						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14470						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14471					>
 14472
 14473					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14474					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14475					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14476
 14477			007301		SN=SN+1
 14478			000001			XX=<XX+XX+1>&177777
 14479			775777			YY=<YY+YY+1>&777777
 14480			177776			IFE	<XX-1>,<XX=177776>
 14481	044757	205 02 0 00 577776 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14482	044760	541 02 0 00 777400 		HRRI	AC-2,777400
 14483	044761	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14484	044762	541 03 0 00 775777 		HRRI	AC-1,YY
 14485						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14486	044763	127 04 0 00 000002 	 RESULT IN AC
 14487	044764	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14488	044765	003 04 0 00 007301 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14489	044766	321 10 0 00 044757 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14490
 14491
 14492					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14493					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14494					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14495
 14496			007302		SN=SN+1
 14497			177775			XX=<XX+XX+1>&177777
 14498			773777			YY=<YY+YY+1>&777777
 14499						IFE	<XX-1>,<XX=177776>
 14500	044767	205 02 0 00 577775 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14501	044770	541 02 0 00 777400 		HRRI	AC-2,777400
 14502	044771	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14503	044772	541 03 0 00 773777 		HRRI	AC-1,YY
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0367

 14504						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14505	044773	127 04 0 00 000002 	 RESULT IN AC
 14506	044774	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14507	044775	003 04 0 00 007302 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14508	044776	321 10 0 00 044767 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14509
 14510
 14511					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14512					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14513					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14514
 14515			007303		SN=SN+1
 14516			177773			XX=<XX+XX+1>&177777
 14517			767777			YY=<YY+YY+1>&777777
 14518						IFE	<XX-1>,<XX=177776>
 14519	044777	205 02 0 00 577773 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14520	045000	541 02 0 00 777400 		HRRI	AC-2,777400
 14521	045001	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14522	045002	541 03 0 00 767777 		HRRI	AC-1,YY
 14523						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14524	045003	127 04 0 00 000002 	 RESULT IN AC
 14525	045004	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14526	045005	003 04 0 00 007303 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14527	045006	321 10 0 00 044777 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14528
 14529
 14530					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14531					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14532					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14533
 14534			007304		SN=SN+1
 14535			177767			XX=<XX+XX+1>&177777
 14536			757777			YY=<YY+YY+1>&777777
 14537						IFE	<XX-1>,<XX=177776>
 14538	045007	205 02 0 00 577767 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14539	045010	541 02 0 00 777400 		HRRI	AC-2,777400
 14540	045011	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14541	045012	541 03 0 00 757777 		HRRI	AC-1,YY
 14542						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14543	045013	127 04 0 00 000002 	 RESULT IN AC
 14544	045014	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14545	045015	003 04 0 00 007304 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14546	045016	321 10 0 00 045007 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14547
 14548
 14549					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14550					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14551					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14552
 14553			007305		SN=SN+1
 14554			177757			XX=<XX+XX+1>&177777
 14555			737777			YY=<YY+YY+1>&777777
 14556						IFE	<XX-1>,<XX=177776>
 14557	045017	205 02 0 00 577757 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14558	045020	541 02 0 00 777400 		HRRI	AC-2,777400
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-7
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0368

 14559	045021	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14560	045022	541 03 0 00 737777 		HRRI	AC-1,YY
 14561						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14562	045023	127 04 0 00 000002 	 RESULT IN AC
 14563	045024	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14564	045025	003 04 0 00 007305 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14565	045026	321 10 0 00 045017 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14566
 14567
 14568					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14569					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14570					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14571
 14572			007306		SN=SN+1
 14573			177737			XX=<XX+XX+1>&177777
 14574			677777			YY=<YY+YY+1>&777777
 14575						IFE	<XX-1>,<XX=177776>
 14576	045027	205 02 0 00 577737 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14577	045030	541 02 0 00 777400 		HRRI	AC-2,777400
 14578	045031	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14579	045032	541 03 0 00 677777 		HRRI	AC-1,YY
 14580						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14581	045033	127 04 0 00 000002 	 RESULT IN AC
 14582	045034	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14583	045035	003 04 0 00 007306 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14584	045036	321 10 0 00 045027 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14585
 14586
 14587					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14588					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14589					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14590
 14591			007307		SN=SN+1
 14592			177677			XX=<XX+XX+1>&177777
 14593			577777			YY=<YY+YY+1>&777777
 14594						IFE	<XX-1>,<XX=177776>
 14595	045037	205 02 0 00 577677 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14596	045040	541 02 0 00 777400 		HRRI	AC-2,777400
 14597	045041	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14598	045042	541 03 0 00 577777 		HRRI	AC-1,YY
 14599						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14600	045043	127 04 0 00 000002 	 RESULT IN AC
 14601	045044	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14602	045045	003 04 0 00 007307 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14603	045046	321 10 0 00 045037 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14604
 14605
 14606					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14607					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14608					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14609
 14610			007310		SN=SN+1
 14611			177577			XX=<XX+XX+1>&177777
 14612			377777			YY=<YY+YY+1>&777777
 14613						IFE	<XX-1>,<XX=177776>
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 32-8
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0369

 14614	045047	205 02 0 00 577577 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14615	045050	541 02 0 00 777400 		HRRI	AC-2,777400
 14616	045051	205 03 0 00 534377 		MOVSI	AC-1,534377		;SET-UP EXPECTED RESULT
 14617	045052	541 03 0 00 377777 		HRRI	AC-1,YY
 14618						FLTR	AC,AC-2			;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
 14619	045053	127 04 0 00 000002 	 RESULT IN AC
 14620	045054	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14621	045055	003 04 0 00 007310 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14622	045056	321 10 0 00 045047 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 14623
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 33
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0370

 14624
 14625			007400		SN=7400
 14626			177577			XX=177577
 14627			000000			YY=0
 14628
 14629					Q7400:	REPEAT	^D8,<
 14630					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14631					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14632					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14633					
 14634					SN=SN+1
 14635						XX=<XX+XX+1>&177777
 14636						YY=<YY+YY+1>&377
 14637						IFE	<YY-1>,<YY=376>
 14638						MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14639						HRRI	AC-2,777400
 14640						HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14641						FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14642						CAME	AC,AC-1			;TEST FRACTION
 14643						ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14644						JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14645					>
 14646
 14647					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14648					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14649					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14650
 14651			007401		SN=SN+1
 14652			177377			XX=<XX+XX+1>&177777
 14653			000001			YY=<YY+YY+1>&377
 14654			000376			IFE	<YY-1>,<YY=376>
 14655	045057	205 02 0 00 577377 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14656	045060	541 02 0 00 777400 		HRRI	AC-2,777400
 14657	045061	525 03 0 00 534376 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14658	045062	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14659	045063	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14660	045064	003 04 0 00 007401 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14661	045065	321 10 0 00 045057 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14662
 14663
 14664					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14665					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14666					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14667
 14668			007402		SN=SN+1
 14669			176777			XX=<XX+XX+1>&177777
 14670			000375			YY=<YY+YY+1>&377
 14671						IFE	<YY-1>,<YY=376>
 14672	045066	205 02 0 00 576777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14673	045067	541 02 0 00 777400 		HRRI	AC-2,777400
 14674	045070	525 03 0 00 534375 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14675	045071	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14676	045072	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14677	045073	003 04 0 00 007402 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14678	045074	321 10 0 00 045066 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 33-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0371

 14679
 14680
 14681					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14682					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14683					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14684
 14685			007403		SN=SN+1
 14686			175777			XX=<XX+XX+1>&177777
 14687			000373			YY=<YY+YY+1>&377
 14688						IFE	<YY-1>,<YY=376>
 14689	045075	205 02 0 00 575777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14690	045076	541 02 0 00 777400 		HRRI	AC-2,777400
 14691	045077	525 03 0 00 534373 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14692	045100	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14693	045101	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14694	045102	003 04 0 00 007403 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14695	045103	321 10 0 00 045075 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14696
 14697
 14698					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14699					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14700					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14701
 14702			007404		SN=SN+1
 14703			173777			XX=<XX+XX+1>&177777
 14704			000367			YY=<YY+YY+1>&377
 14705						IFE	<YY-1>,<YY=376>
 14706	045104	205 02 0 00 573777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14707	045105	541 02 0 00 777400 		HRRI	AC-2,777400
 14708	045106	525 03 0 00 534367 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14709	045107	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14710	045110	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14711	045111	003 04 0 00 007404 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14712	045112	321 10 0 00 045104 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14713
 14714
 14715					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14716					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14717					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14718
 14719			007405		SN=SN+1
 14720			167777			XX=<XX+XX+1>&177777
 14721			000357			YY=<YY+YY+1>&377
 14722						IFE	<YY-1>,<YY=376>
 14723	045113	205 02 0 00 567777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14724	045114	541 02 0 00 777400 		HRRI	AC-2,777400
 14725	045115	525 03 0 00 534357 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14726	045116	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14727	045117	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14728	045120	003 04 0 00 007405 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14729	045121	321 10 0 00 045113 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14730
 14731
 14732					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14733					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 33-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS                        SEQ 0372

 14734					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14735
 14736			007406		SN=SN+1
 14737			157777			XX=<XX+XX+1>&177777
 14738			000337			YY=<YY+YY+1>&377
 14739						IFE	<YY-1>,<YY=376>
 14740	045122	205 02 0 00 557777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14741	045123	541 02 0 00 777400 		HRRI	AC-2,777400
 14742	045124	525 03 0 00 534337 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14743	045125	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14744	045126	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14745	045127	003 04 0 00 007406 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14746	045130	321 10 0 00 045122 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14747
 14748
 14749					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14750					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14751					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14752
 14753			007407		SN=SN+1
 14754			137777			XX=<XX+XX+1>&177777
 14755			000277			YY=<YY+YY+1>&377
 14756						IFE	<YY-1>,<YY=376>
 14757	045131	205 02 0 00 537777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14758	045132	541 02 0 00 777400 		HRRI	AC-2,777400
 14759	045133	525 03 0 00 534277 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14760	045134	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14761	045135	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14762	045136	003 04 0 00 007407 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14763	045137	321 10 0 00 045131 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14764
 14765
 14766					;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
 14767					;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
 14768					;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
 14769
 14770			007410		SN=SN+1
 14771			077777			XX=<XX+XX+1>&177777
 14772			000177			YY=<YY+YY+1>&377
 14773						IFE	<YY-1>,<YY=376>
 14774	045140	205 02 0 00 477777 		MOVSI	AC-2,1B18+XX		;INITIALIZE FIX PT. NBR.
 14775	045141	541 02 0 00 777400 		HRRI	AC-2,777400
 14776	045142	525 03 0 00 534177 		HRLOI	AC-1,534000+YY		;SET-UP EXPECTED RESULT
 14777	045143	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX TO FLT
 14778	045144	312 04 0 00 000003 		CAME	AC,AC-1			;TEST FRACTION
 14779	045145	003 04 0 00 007410 		ER3	AC,SN			;FAILURE IF TESTED BIT IS NOT CLEAR
 14780	045146	321 10 0 00 045140 		JUMPL	SAC,.-6			;LOOP ON ERROR SWITCH
 14781
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 34
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - ROUNDING                                               SEQ 0373

 14782					SUBTTL	DIAGNOSTIC SECTION - FLTR - ROUNDING
 14783
 14784					;TEST FOR ROUNDING
 14785					;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
 14786					;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
 14787					;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
 14788					;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
 14789
 14790
 14791	045147	205 02 0 00 200000 	Q7500:	MOVSI	AC-2,1B19		;INITIALIZE FIX PT. NBR.
 14792	045150	541 02 0 00 000177 		HRRI	AC-2,177
 14793	045151	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 14794	045152	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
 14795										;ROUND RESULT, AND PLACE IN AC.
 14796	045153	312 04 0 00 000003 		CAME	AC,AC-1			;WAS FRACTION ROUNDED DOWN?
 14797	045154	003 04 0 00 007501 		ER3	AC,7501			;RESULT DID NOT ROUND DOWN
 14798	045155	321 10 0 00 045147 		JUMPL	SAC,Q7500		;LOOP ON ERROR SWITCH
 14799
 14800					;TEST FOR ROUNDING
 14801					;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
 14802					;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
 14803					;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
 14804					;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
 14805	045156	205 02 0 00 200000 	Q7600:	MOVSI	AC-2,1B19		;INITIALIZE FIX PT. NBR.
 14806	045157	541 02 0 00 000200 		HRRI	AC-2,200
 14807	045160	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 14808	045161	541 03 0 00 000001 		HRRI	AC-1,1
 14809	045162	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
 14810										;ROUND RESULT, AND PLACE IN AC.
 14811	045163	312 04 0 00 000003 		CAME	AC,AC-1			;WAS FRACTION ROUNDED UP?
 14812	045164	003 04 0 00 007601 		ER3	AC,7601			;RESULT DID NOT ROUND UP
 14813	045165	321 10 0 00 045156 		JUMPL	SAC,Q7600		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 35
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - ROUNDING                                               SEQ 0374

 14814					;TEST FOR ROUNDING
 14815					;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
 14816					;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
 14817					;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
 14818					;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
 14819	045166	561 02 0 00 777600 	Q7700:	HRROI	AC-2,777600		;INITIALIZE FIX PT. NBR.
 14820	045167	621 02 0 00 200000 		TLZ	AC-2,1B19
 14821	045170	525 03 0 00 534377 		HRLOI	AC-1,534377		;SET-UP EXPECTED RESULT
 14822	045171	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
 14823										;ROUND RESULT, AND PLACE IN AC.
 14824	045172	312 04 0 00 000003 		CAME	AC,AC-1			;WAS FRACTION ROUNDED DOWN?
 14825	045173	003 04 0 00 007701 		ER3	AC,7701			;RESULT DID NOT ROUND DOWN
 14826	045174	321 10 0 00 045166 		JUMPL	SAC,Q7700		;LOOP ON ERROR SWITCH
 14827
 14828					;TEST FOR ROUNDING
 14829					;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
 14830					;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
 14831					;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
 14832					;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
 14833	045175	561 02 0 00 777601 	Q10000:	HRROI	AC-2,777601		;INITIALIZE FIX PT. NBR.
 14834	045176	621 02 0 00 200000 		TLZ	AC-2,1B19
 14835	045177	515 03 0 00 534400 		HRLZI	AC-1,534400		;SET-UP EXPECTED RESULT
 14836	045200	127 04 0 00 000002 		FLTR	AC,AC-2			;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
 14837										;ROUND RESULT, AND PLACE IN AC.
 14838	045201	312 04 0 00 000003 		CAME	AC,AC-1			;WAS FRACTION ROUNDED UP?
 14839	045202	003 04 0 00 010001 		ER3	AC,10001		;RESULT DID NOT ROUND UP
 14840	045203	321 10 0 00 045175 		JUMPL	SAC,Q10000		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 36
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS                                   SEQ 0375

 14841					SUBTTL	DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
 14842
 14843					;VERIFY THAT 'FLTR AC,E' OPERATES FOR 'E' BEYOND 'AC' RANGE
 14844
 14845	045204	205 02 0 00 200000 	Q10010:	MOVSI	AC-2,1B19		;INITIALIZE FIX PT NO.
 14846	045205	541 02 0 00 000177 		HRRI	AC-2,177
 14847	045206	202 02 0 00 070346 		MOVEM	AC-2,TSTWD
 14848	045207	205 03 0 00 243400 		MOVSI	AC-1,243400		;SET-UP EXPECTED RESULT
 14849						FLTR	AC,TSTWD		;*CONVERT FIX PT NO. IN 'E' TO FLT PT AND STORE IN 
 14850	045210	127 04 0 00 070346 	AC
 14851	045211	312 04 0 00 000003 		CAME	AC,AC-1			;DID FLTR GET CORRECT C(E)?
 14852	045212	003 04 0 00 010011 		ER3	AC,10011		;FAILURE TO GET C(E)
 14853	045213	321 10 0 00 045204 		JUMPL	SAC,Q10010		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS                                 SEQ 0376

 14854					SUBTTL	DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
 14855
 14856					;CHECK THAT 'DMOVE AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
 14857
 14858	045214	200 02 0 00 070656 	Q10050:	MOVE	AC-2,[631463,,146314]	;INITIALIZE C(E), C(E+1)
 14859	045215	200 03 0 00 070657 		MOVE	AC-1,[424242,,131313]
 14860	045216	120 04 0 00 000002 		DMOVE	AC,AC-2			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 14861	045217	312 02 0 00 070656 		CAME	AC-2,[631463,,146314]	;WAS C(E) MODIFIED?
 14862	045220	005 02 0 00 010051 		ER5	AC-2,10051		;C(E) WAS CLOBBERED
 14863	045221	312 03 0 00 070657 		CAME	AC-1,[424242,,131313]	;WAS C(E+1) MODIFIED?
 14864	045222	006 03 0 00 010051 		ER6	AC-1,10051		;C(E+1) WAS CLOBBERED
 14865	045223	321 10 0 00 045214 		JUMPL	SAC,Q10050
 14866					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS                                 SEQ 0377

 14867						DMVE	1010,0,0,0,0^
 14868					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14869					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14870					;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD 0,0] IS MOVED
 14871					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14872					;0(AC) AND 0(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14873					;[XWD 0,0] AND [XWD 0,0], RESPECTIVELY.  THE TEST PASSES IF THESE
 14874					;COMPARISONS AGREE.
 14875
 14876	045224	200 11 0 00 070660 	Q10100:	MOVE	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 14877	045225	200 12 0 00 070660 		MOVE	AC+6,[XWD 0,0]		;FOR COMPARISON
 14878	045226	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14879	045227	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14880						DMOVE	AC,[XWD 0,0		;*MOVE DOUBLE WORD 0,0 ; 0,0
 14881	045230	120 04 0 00 070663 			    XWD 0,0]		;FROM MEMORY TO AC, AC+1
 14882	045231	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14883	045232	003 04 0 00 010101 		ER3	AC,10101			;FAIL IF CONTENTS(AC) NOT = 0,0
 14884	045233	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14885	045234	004 05 0 00 010102 		ER4	AC+1,10102		;FAIL IF CONTENTS(AC+1) NOT = 0,0
 14886	045235	321 10 0 00 045224 		JUMPL	SAC,Q10100		;LOOP ON ERROR SWITCH^
 14887
 14888						DMVE	1020,-1,-1,-1,-1^
 14889					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14890					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14891					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
 14892					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14893					;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14894					;[XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.  THE TEST PASSES IF THESE
 14895					;COMPARISONS AGREE.
 14896
 14897	045236	200 11 0 00 070665 	Q10200:	MOVE	AC+5,[XWD -1,-1]		;INITIALIZE TEST WORDS
 14898	045237	200 12 0 00 070665 		MOVE	AC+6,[XWD -1,-1]		;FOR COMPARISON
 14899	045240	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14900	045241	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14901						DMOVE	AC,[XWD -1,-1		;*MOVE DOUBLE WORD -1,-1 ; -1,-1
 14902	045242	120 04 0 00 070665 			    XWD -1,-1]		;FROM MEMORY TO AC, AC+1
 14903	045243	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14904	045244	003 04 0 00 010201 		ER3	AC,10201			;FAIL IF CONTENTS(AC) NOT = -1,-1
 14905	045245	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14906	045246	004 05 0 00 010202 		ER4	AC+1,10202		;FAIL IF CONTENTS(AC+1) NOT = -1,-1
 14907	045247	321 10 0 00 045236 		JUMPL	SAC,Q10200		;LOOP ON ERROR SWITCH^
 14908					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS                                 SEQ 0378

 14909						DMVE	1030,0,0,-1,-1^
 14910					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14911					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14912					;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD -1,-1] IS MOVED
 14913					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14914					;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14915					;[XWD 0,0] AND [XWD -1,-1], RESPECTIVELY.  THE TEST PASSES IF THESE
 14916					;COMPARISONS AGREE.
 14917
 14918	045250	200 11 0 00 070660 	Q10300:	MOVE	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 14919	045251	200 12 0 00 070665 		MOVE	AC+6,[XWD -1,-1]		;FOR COMPARISON
 14920	045252	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14921	045253	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14922						DMOVE	AC,[XWD 0,0		;*MOVE DOUBLE WORD 0,0 ; -1,-1
 14923	045254	120 04 0 00 070664 			    XWD -1,-1]		;FROM MEMORY TO AC, AC+1
 14924	045255	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14925	045256	003 04 0 00 010301 		ER3	AC,10301			;FAIL IF CONTENTS(AC) NOT = 0,0
 14926	045257	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14927	045260	004 05 0 00 010302 		ER4	AC+1,10302		;FAIL IF CONTENTS(AC+1) NOT = -1,-1
 14928	045261	321 10 0 00 045250 		JUMPL	SAC,Q10300		;LOOP ON ERROR SWITCH^
 14929
 14930						DMVE	1040,-1,-1,0,0^
 14931					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14932					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14933					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD 0,0] IS MOVED
 14934					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14935					;0(AC) AND 0(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14936					;[XWD -1,-1] AND [XWD 0,0], RESPECTIVELY.  THE TEST PASSES IF THESE
 14937					;COMPARISONS AGREE.
 14938
 14939	045262	200 11 0 00 070665 	Q10400:	MOVE	AC+5,[XWD -1,-1]		;INITIALIZE TEST WORDS
 14940	045263	200 12 0 00 070660 		MOVE	AC+6,[XWD 0,0]		;FOR COMPARISON
 14941	045264	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14942	045265	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14943						DMOVE	AC,[XWD -1,-1		;*MOVE DOUBLE WORD -1,-1 ; 0,0
 14944	045266	120 04 0 00 070666 			    XWD 0,0]		;FROM MEMORY TO AC, AC+1
 14945	045267	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14946	045270	003 04 0 00 010401 		ER3	AC,10401			;FAIL IF CONTENTS(AC) NOT = -1,-1
 14947	045271	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14948	045272	004 05 0 00 010402 		ER4	AC+1,10402		;FAIL IF CONTENTS(AC+1) NOT = 0,0
 14949	045273	321 10 0 00 045262 		JUMPL	SAC,Q10400		;LOOP ON ERROR SWITCH^
 14950					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 37-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS                                 SEQ 0379

 14951						DMVE	1050,252525,252525,525252,525252^
 14952					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14953					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14954					;THEN, THE DATA SPECIFIED BY [XWD 252525,252525] AND [XWD 525252,525252] IS MOVED
 14955					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14956					;525252(AC) AND 525252(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14957					;[XWD 252525,252525] AND [XWD 525252,525252], RESPECTIVELY.  THE TEST PASSES IF THESE
 14958					;COMPARISONS AGREE.
 14959
 14960	045274	200 11 0 00 070655 	Q10500:	MOVE	AC+5,[XWD 252525,252525]		;INITIALIZE TEST WORDS
 14961	045275	200 12 0 00 070670 		MOVE	AC+6,[XWD 525252,525252]		;FOR COMPARISON
 14962	045276	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14963	045277	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14964						DMOVE	AC,[XWD 252525,252525		;*MOVE DOUBLE WORD 252525,252525 ; 525252,5
 14965					25252
 14966	045300	120 04 0 00 070671 			    XWD 525252,525252]		;FROM MEMORY TO AC, AC+1
 14967	045301	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14968	045302	003 04 0 00 010501 		ER3	AC,10501			;FAIL IF CONTENTS(AC) NOT = 252525,252525
 14969	045303	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14970	045304	004 05 0 00 010502 		ER4	AC+1,10502		;FAIL IF CONTENTS(AC+1) NOT = 525252,525252
 14971	045305	321 10 0 00 045274 		JUMPL	SAC,Q10500		;LOOP ON ERROR SWITCH^
 14972
 14973						DMVE	1060,525252,525252,252525,252525^
 14974					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 14975					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 14976					;THEN, THE DATA SPECIFIED BY [XWD 525252,525252] AND [XWD 252525,252525] IS MOVED
 14977					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 14978					;252525(AC) AND 252525(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
 14979					;[XWD 525252,525252] AND [XWD 252525,252525], RESPECTIVELY.  THE TEST PASSES IF THESE
 14980					;COMPARISONS AGREE.
 14981
 14982	045306	200 11 0 00 070670 	Q10600:	MOVE	AC+5,[XWD 525252,525252]		;INITIALIZE TEST WORDS
 14983	045307	200 12 0 00 070655 		MOVE	AC+6,[XWD 252525,252525]		;FOR COMPARISON
 14984	045310	200 04 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 14985	045311	200 05 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 14986						DMOVE	AC,[XWD 525252,525252		;*MOVE DOUBLE WORD 525252,525252 ; 252525,2
 14987					52525
 14988	045312	120 04 0 00 070670 			    XWD 252525,252525]		;FROM MEMORY TO AC, AC+1
 14989	045313	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 14990	045314	003 04 0 00 010601 		ER3	AC,10601			;FAIL IF CONTENTS(AC) NOT = 525252,525252
 14991	045315	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 14992	045316	004 05 0 00 010602 		ER4	AC+1,10602		;FAIL IF CONTENTS(AC+1) NOT = 252525,252525
 14993	045317	321 10 0 00 045306 		JUMPL	SAC,Q10600		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 38
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0                                         SEQ 0380

 14994					SUBTTL	DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
 14995
 14996					;CHECK DMOVE FOR AC=17 AND AC+1=0
 14997
 14998			000017			AC=17
 14999			000003			SAC=<AC+4>&17
 15000						SAVEAC (1,1)^
 15001	045320	201 03 0 00 045320 		MOVEI	SAC,.
 15002	045321	202 03 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 15003	045322	201 03 0 00 000003 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 15004	045323	202 03 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 15005
 15006						DMVE17	1070,1071,-1,-1,-1,-1^
 15007					;THIS MACRO TESTS THE DMOVE INSTRUCTION
 15008					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15009					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
 15010					;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
 15011					;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST
 15012					;WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
 15013					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15014
 15015	045324	202 17 0 00 074005 	Q10710:	MOVEM	AC,%SV17#		;SAVE AC17
 15016	045325	200 04 0 00 070665 	Q10700:	MOVE	AC+5,[XWD -1,-1]		;INITIALIZE TEST WORDS
 15017	045326	200 05 0 00 070665 		MOVE	AC+6,[XWD -1,-1]		;FOR COMPARISON
 15018	045327	200 17 0 00 070661 		MOVE	AC,[XWD 707070,707070]
 15019	045330	200 00 0 00 070662 		MOVE	AC+1,[XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15020						DMOVE	AC,[XWD -1,-1		;*MOVE DOUBLE WORD -1,-1 ; -1,-1
 15021	045331	120 17 0 00 070665 			    XWD -1,-1]		;FROM MEMORY TO AC, AC+1
 15022	045332	316 17 0 00 000004 	Q10713:	CAMN	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15023	045333	254 00 0 00 045337 		JRST	.+4			;HERE IF NO ERROR
 15024	045334	202 17 0 00 000016 		MOVEM	AC,AC-1			;STORE INCORRECT RESLUTS
 15025	045335	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 15026	045336	003 16 0 00 010701 		ER3	AC-1,10701		;FAIL IF CONTENTS(AC) NOT = -1,-1
 15027	045337	316 00 0 00 000005 		CAMN	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15028	045340	254 00 0 00 045344 		JRST	.+4			;HERE IF NO ERROR
 15029	045341	202 00 0 00 000016 		MOVEM	AC+1,AC-1		;STORE INCORRECT WORD
 15030	045342	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 15031	045343	004 16 0 00 010702 		ER4	AC-1,10702
 15032	045344	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE AC UNCONDITIONALLY
 15033	045345	321 03 0 00 045324 		JUMPL	SAC,Q10710		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 39
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS                                      SEQ 0381

 15034					SUBTTL	DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
 15035
 15036					;CHECK DMOVE WHERE 'E' IS WITHIN THE 'AC' RANGE
 15037
 15038			000004			AC=4
 15039			000010			SAC=<AC+4>&17
 15040						SAVEAC(1,1)^
 15041	045346	201 10 0 00 045346 		MOVEI	SAC,.
 15042	045347	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 15043	045350	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 15044	045351	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 15045			000002			E=AC-2
 15046
 15047			011000		SN=11000
 15048			000001			E=<E-1>&17
 15049
 15050					Q11000:	REPEAT	^D5,
 15051					<SN=SN+1
 15052						E=<E+1>&17
 15053						SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15054						SETOB	E,E+1			;INITIALIZE E,E+1
 15055						HRRZI	E+1,-1
 15056						SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15057						HRRZI	AC+6,-1
 15058						DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15059						CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15060						ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
 15061						CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15062						ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15063						JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15064					>
 15065			011001		SN=SN+1
 15066			000002			E=<E+1>&17
 15067	045352	403 04 0 00 000005 		SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15068	045353	477 02 0 00 000003 		SETOB	E,E+1			;INITIALIZE E,E+1
 15069	045354	551 03 0 00 777777 		HRRZI	E+1,-1
 15070	045355	477 11 0 00 000012 		SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15071	045356	551 12 0 00 777777 		HRRZI	AC+6,-1
 15072	045357	120 04 0 00 000002 		DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15073	045360	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15074	045361	003 04 0 00 011001 		ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
 15075	045362	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15076	045363	004 05 0 00 011001 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15077	045364	321 10 0 00 045354 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15078
 15079			011002		SN=SN+1
 15080			000003			E=<E+1>&17
 15081	045365	403 04 0 00 000005 		SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15082	045366	477 03 0 00 000004 		SETOB	E,E+1			;INITIALIZE E,E+1
 15083	045367	551 04 0 00 777777 		HRRZI	E+1,-1
 15084	045370	477 11 0 00 000012 		SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15085	045371	551 12 0 00 777777 		HRRZI	AC+6,-1
 15086	045372	120 04 0 00 000003 		DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15087	045373	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15088	045374	003 04 0 00 011002 		ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 39-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS                                      SEQ 0382

 15089	045375	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15090	045376	004 05 0 00 011002 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15091	045377	321 10 0 00 045367 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15092
 15093			011003		SN=SN+1
 15094			000004			E=<E+1>&17
 15095	045400	403 04 0 00 000005 		SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15096	045401	477 04 0 00 000005 		SETOB	E,E+1			;INITIALIZE E,E+1
 15097	045402	551 05 0 00 777777 		HRRZI	E+1,-1
 15098	045403	477 11 0 00 000012 		SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15099	045404	551 12 0 00 777777 		HRRZI	AC+6,-1
 15100	045405	120 04 0 00 000004 		DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15101	045406	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15102	045407	003 04 0 00 011003 		ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
 15103	045410	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15104	045411	004 05 0 00 011003 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15105	045412	321 10 0 00 045402 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15106
 15107			011004		SN=SN+1
 15108			000005			E=<E+1>&17
 15109	045413	403 04 0 00 000005 		SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15110	045414	477 05 0 00 000006 		SETOB	E,E+1			;INITIALIZE E,E+1
 15111	045415	551 06 0 00 777777 		HRRZI	E+1,-1
 15112	045416	477 11 0 00 000012 		SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15113	045417	551 12 0 00 777777 		HRRZI	AC+6,-1
 15114	045420	120 04 0 00 000005 		DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15115	045421	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15116	045422	003 04 0 00 011004 		ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
 15117	045423	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15118	045424	004 05 0 00 011004 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15119	045425	321 10 0 00 045415 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15120
 15121			011005		SN=SN+1
 15122			000006			E=<E+1>&17
 15123	045426	403 04 0 00 000005 		SETZB	AC,AC+1			;INITIALIZE AC,AC+1
 15124	045427	477 06 0 00 000007 		SETOB	E,E+1			;INITIALIZE E,E+1
 15125	045430	551 07 0 00 777777 		HRRZI	E+1,-1
 15126	045431	477 11 0 00 000012 		SETOB	AC+5,<AC+6>&17		;INITIALIZE TEST WORDS FOR COMPARISON
 15127	045432	551 12 0 00 777777 		HRRZI	AC+6,-1
 15128	045433	120 04 0 00 000006 		DMOVE	AC,E			;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
 15129	045434	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVE GET CORRECT C(E)?
 15130	045435	003 04 0 00 011005 		ER3	AC,SN			;FAIL IF C(AC) NOT = -1,-1
 15131	045436	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVE GET CORRECT C(E+1)?
 15132	045437	004 05 0 00 011005 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 0,-1
 15133	045440	321 10 0 00 045430 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15134
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0383

 15135					SUBTTL	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
 15136
 15137					;CHECK THAT 'DMOVN AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
 15138
 15139					Q11050:	DMOVE	AC-2,[631463,,146314	;INITIALIZE C(E), C(E+1)
 15140	045441	120 02 0 00 070656 			      424242,,131313]
 15141						DMOVN	AC,AC-2			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15142	045442	121 04 0 00 000002 	C+1
 15143	045443	312 02 0 00 070656 		CAME	AC-2,[631463,,146314]	;WAS C(E) MODIFIED?
 15144	045444	005 02 0 00 011051 		ER5	AC-2,11051		;C(E) WAS CLOBBERED
 15145	045445	312 03 0 00 070657 		CAME	AC-1,[424242,,131313]	;WAS C(E+1) MODIFIED?
 15146	045446	006 03 0 00 011052 		ER6	AC-1,11052		;C(E+1) WAS CLOBBERED
 15147	045447	321 10 0 00 045441 		JUMPL	SAC,Q11050		;LOOP ON ERROR SWITCH
 15148					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0384

 15149						DMVN	1110,0,0,0,0^
 15150					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15151					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15152					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15153					;[XWD 0,0] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15154					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15155					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15156					;WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
 15157					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15158
 15159					Q11100:	DMOVE	AC,[XWD 707070,707070
 15160	045450	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15161	045451	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15162						IFIDN	<0,0><0,0>,<
 15163	045452	400 12 0 00 000000 		SETZ	AC+6,
 15164	045453	271 11 0 00 000001 		ADDI	AC+5,1	>
 15165						IFIDN	<0,0><400000,0>,<
 15166						SETZ	AC+6,
 15167						ADDI	AC+5,1	>
 15168						IFDIF	<0,0><0,0>,<
 15169						IFDIF	<0,0><400000,0>,<
 15170						MOVN	AC+6,[XWD 0,0]
 15171						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15172						DMOVN	AC,[XWD 0,0		;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
 15173	045454	121 04 0 00 070663 			    XWD 0,0]		;0,0 FROM MEMORY TO AC, AC+1
 15174	045455	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15175						ER3	AC,11101			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
 15176	045456	003 04 0 00 011101 	,0
 15177	045457	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15178	045460	004 05 0 00 011102 		ER4	AC+1,11102		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
 15179	045461	321 10 0 00 045450 		JUMPL	SAC,Q11100		;LOOP ON ERROR SWITCH^
 15180					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0385

 15181						DMVN	1120,0,0,0,1^
 15182					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15183					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15184					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15185					;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15186					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15187					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15188					;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
 15189					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15190
 15191					Q11200:	DMOVE	AC,[XWD 707070,707070
 15192	045462	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15193	045463	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15194						IFIDN	<0,1><0,0>,<
 15195						SETZ	AC+6,
 15196						ADDI	AC+5,1	>
 15197						IFIDN	<0,1><400000,0>,<
 15198						SETZ	AC+6,
 15199						ADDI	AC+5,1	>
 15200						IFDIF	<0,1><0,0>,<
 15201						IFDIF	<0,1><400000,0>,<
 15202	045464	210 12 0 00 070673 		MOVN	AC+6,[XWD 0,1]
 15203	045465	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15204						DMOVN	AC,[XWD 0,0		;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
 15205	045466	121 04 0 00 070674 			    XWD 0,1]		;0,1 FROM MEMORY TO AC, AC+1
 15206	045467	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15207						ER3	AC,11201			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
 15208	045470	003 04 0 00 011201 	,0
 15209	045471	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15210	045472	004 05 0 00 011202 		ER4	AC+1,11202		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
 15211	045473	321 10 0 00 045462 		JUMPL	SAC,Q11200		;LOOP ON ERROR SWITCH^
 15212					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0386

 15213						DMVN	1130,-1,-1,0,1^
 15214					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15215					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15216					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15217					;[XWD -1,-1] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15218					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15219					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15220					;WORDS [XWD -1,-1] AND [XWD 0,1], RESPECTIVELY.
 15221					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15222
 15223					Q11300:	DMOVE	AC,[XWD 707070,707070
 15224	045474	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15225	045475	460 11 0 00 070665 		SETCM	AC+5,[XWD -1,-1]		;INITIALIZE TEST WORDS FOR COMPARISON
 15226						IFIDN	<0,1><0,0>,<
 15227						SETZ	AC+6,
 15228						ADDI	AC+5,1	>
 15229						IFIDN	<0,1><400000,0>,<
 15230						SETZ	AC+6,
 15231						ADDI	AC+5,1	>
 15232						IFDIF	<0,1><0,0>,<
 15233						IFDIF	<0,1><400000,0>,<
 15234	045476	210 12 0 00 070673 		MOVN	AC+6,[XWD 0,1]
 15235	045477	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15236						DMOVN	AC,[XWD -1,-1		;*MOVE NEGATIVE OF DOUBLE WORD -1,-1 ;
 15237	045500	121 04 0 00 070676 			    XWD 0,1]		;0,1 FROM MEMORY TO AC, AC+1
 15238	045501	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15239						ER3	AC,11301			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF -
 15240	045502	003 04 0 00 011301 	1,-1
 15241	045503	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15242	045504	004 05 0 00 011302 		ER4	AC+1,11302		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
 15243	045505	321 10 0 00 045474 		JUMPL	SAC,Q11300		;LOOP ON ERROR SWITCH^
 15244					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0387

 15245						DMVN	1140,0,1,0,0^
 15246					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15247					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15248					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15249					;[XWD 0,1] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15250					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15251					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15252					;WORDS [XWD 0,1] AND [XWD 0,0], RESPECTIVELY.
 15253					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15254
 15255					Q11400:	DMOVE	AC,[XWD 707070,707070
 15256	045506	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15257	045507	460 11 0 00 070673 		SETCM	AC+5,[XWD 0,1]		;INITIALIZE TEST WORDS FOR COMPARISON
 15258						IFIDN	<0,0><0,0>,<
 15259	045510	400 12 0 00 000000 		SETZ	AC+6,
 15260	045511	271 11 0 00 000001 		ADDI	AC+5,1	>
 15261						IFIDN	<0,0><400000,0>,<
 15262						SETZ	AC+6,
 15263						ADDI	AC+5,1	>
 15264						IFDIF	<0,0><0,0>,<
 15265						IFDIF	<0,0><400000,0>,<
 15266						MOVN	AC+6,[XWD 0,0]
 15267						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15268						DMOVN	AC,[XWD 0,1		;*MOVE NEGATIVE OF DOUBLE WORD 0,1 ;
 15269	045512	121 04 0 00 070673 			    XWD 0,0]		;0,0 FROM MEMORY TO AC, AC+1
 15270	045513	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15271						ER3	AC,11401			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
 15272	045514	003 04 0 00 011401 	,1
 15273	045515	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15274	045516	004 05 0 00 011402 		ER4	AC+1,11402		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
 15275	045517	321 10 0 00 045506 		JUMPL	SAC,Q11400		;LOOP ON ERROR SWITCH^
 15276					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0388

 15277						DMVN	1150,525252,525252,252525,252526^
 15278					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15279					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15280					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15281					;[XWD 525252,525252] AND [XWD 252525,252526] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15282					;THE DMOVN INSTRUCTION.  252525(AC) AND 252525(AC+1) ARE THEN COMPARED
 15283					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15284					;WORDS [XWD 525252,525252] AND [XWD 252525,252526], RESPECTIVELY.
 15285					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15286
 15287					Q11500:	DMOVE	AC,[XWD 707070,707070
 15288	045520	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15289						SETCM	AC+5,[XWD 525252,525252]		;INITIALIZE TEST WORDS FOR COMPARIS
 15290	045521	460 11 0 00 070670 	ON
 15291						IFIDN	<252525,252526><0,0>,<
 15292						SETZ	AC+6,
 15293						ADDI	AC+5,1	>
 15294						IFIDN	<252525,252526><400000,0>,<
 15295						SETZ	AC+6,
 15296						ADDI	AC+5,1	>
 15297						IFDIF	<252525,252526><0,0>,<
 15298						IFDIF	<252525,252526><400000,0>,<
 15299	045522	210 12 0 00 070700 		MOVN	AC+6,[XWD 252525,252526]
 15300	045523	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15301						DMOVN	AC,[XWD 525252,525252		;*MOVE NEGATIVE OF DOUBLE WORD 525252,52525
 15302					2 ;
 15303	045524	121 04 0 00 070701 			    XWD 252525,252526]		;252525,252526 FROM MEMORY TO AC, AC+1
 15304	045525	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15305						ER3	AC,11501			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 5
 15306	045526	003 04 0 00 011501 	25252,525252
 15307	045527	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15308	045530	004 05 0 00 011502 		ER4	AC+1,11502		;FAIL IF CONTENTS(AC+1) NOT = MINUS 252525,252526
 15309	045531	321 10 0 00 045520 		JUMPL	SAC,Q11500		;LOOP ON ERROR SWITCH^
 15310					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 40-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0389

 15311						DMVN	1160,252525,252525,525252,525253^
 15312					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15313					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15314					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15315					;[XWD 252525,252525] AND [XWD 525252,525253] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15316					;THE DMOVN INSTRUCTION.  525252(AC) AND 525252(AC+1) ARE THEN COMPARED
 15317					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15318					;WORDS [XWD 252525,252525] AND [XWD 525252,525253], RESPECTIVELY.
 15319					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15320
 15321					Q11600:	DMOVE	AC,[XWD 707070,707070
 15322	045532	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15323						SETCM	AC+5,[XWD 252525,252525]		;INITIALIZE TEST WORDS FOR COMPARIS
 15324	045533	460 11 0 00 070655 	ON
 15325						IFIDN	<525252,525253><0,0>,<
 15326						SETZ	AC+6,
 15327						ADDI	AC+5,1	>
 15328						IFIDN	<525252,525253><400000,0>,<
 15329						SETZ	AC+6,
 15330						ADDI	AC+5,1	>
 15331						IFDIF	<525252,525253><0,0>,<
 15332						IFDIF	<525252,525253><400000,0>,<
 15333	045534	210 12 0 00 070703 		MOVN	AC+6,[XWD 525252,525253]
 15334	045535	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15335						DMOVN	AC,[XWD 252525,252525		;*MOVE NEGATIVE OF DOUBLE WORD 252525,25252
 15336					5 ;
 15337	045536	121 04 0 00 070704 			    XWD 525252,525253]		;525252,525253 FROM MEMORY TO AC, AC+1
 15338	045537	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15339						ER3	AC,11601			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 2
 15340	045540	003 04 0 00 011601 	52525,252525
 15341	045541	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15342	045542	004 05 0 00 011602 		ER4	AC+1,11602		;FAIL IF CONTENTS(AC+1) NOT = MINUS 525252,525253
 15343	045543	321 10 0 00 045532 		JUMPL	SAC,Q11600		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 41
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0                                         SEQ 0390

 15344					SUBTTL	DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
 15345
 15346					;CHECK DMOVN FOR AC=17 AND AC+1=0
 15347
 15348			000017			AC=17
 15349			000003			SAC=<AC+4>&17
 15350						SAVEAC	(1,1)^
 15351	045544	201 03 0 00 045544 		MOVEI	SAC,.
 15352	045545	202 03 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 15353	045546	201 03 0 00 000003 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 15354	045547	202 03 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 15355
 15356						DMVN17	1170,0,0,0,1^
 15357					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15358					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15359					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15360					;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15361					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15362					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15363					;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
 15364					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15365
 15366	045550	202 17 0 00 074005 	Q11700:	MOVEM	AC,%SV17		;SAVE P
 15367						DMOVE	AC,[XWD 707070,707070
 15368	045551	120 17 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15369	045552	460 04 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15370						IFIDN	<0,1><0,0>,<
 15371						SETZ	AC+6,
 15372						ADDI	AC+5,1	>
 15373						IFIDN	<0,1><400000,0>,<
 15374						SETZ	AC+6,
 15375						ADDI	AC+5,1	>
 15376						IFDIF	<0,1><0,0>,<
 15377						IFDIF	<0,1><400000,0>,<
 15378	045553	210 05 0 00 070673 		MOVN	AC+6,[XWD 0,1]
 15379	045554	621 05 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15380						DMOVN	AC,[XWD 0,0		;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
 15381	045555	121 17 0 00 070674 			    XWD 0,1]		;0,1 FROM MEMORY TO AC, AC+1
 15382	045556	316 17 0 00 000004 		CAMN	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15383	045557	254 00 0 00 045563 		JRST	.+4			;HERE IF TESTS OK
 15384	045560	202 17 0 00 000016 		MOVEM	AC,AC-1			;SAVE BAD WORD
 15385	045561	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 15386	045562	003 16 0 00 011701 		ER3	AC-1,11701		;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
 15387	045563	316 00 0 00 000005 		CAMN	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15388	045564	254 00 0 00 045570 		JRST	.+4			;HERE IF TESTS OK
 15389	045565	202 17 0 00 000016 		MOVEM	AC,AC-1
 15390	045566	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 15391	045567	004 00 0 00 011702 		ER4	AC+1,11702		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
 15392	045570	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P UNCODITIONALLY
 15393	045571	321 03 0 00 045550 		JUMPL	SAC,Q11700		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS                                      SEQ 0391

 15394					SUBTTL	DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
 15395
 15396					;CHECK DMOVN WHERE 'E' IS WITHIN THE 'AC' RANGE
 15397
 15398			000004			AC=4
 15399			000010			SAC=<AC+4>&17
 15400						SAVEAC	(1,1)^
 15401	045572	201 10 0 00 045572 		MOVEI	SAC,.
 15402	045573	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 15403	045574	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 15404	045575	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 15405			000002			E=AC-2
 15406
 15407			012000		SN=12000
 15408			000001			E=<E-1>&17
 15409
 15410					Q12000:	REPEAT	^D5,
 15411					<SN=SN+1
 15412						E=<E+1>&17
 15413						DMOVE	AC,[XWD 707070,707070
 15414							    XWD 070707,070707]	;INITIALIZE AC,AC+1
 15415						SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15416						MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15417						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15418						DMOVE	E,[XWD 0,0
 15419							   XWD 0,-1]		;INITIALIZE E,E+1
 15420						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15421					C+1
 15422						CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15423						ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15424						CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15425						ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15426						JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15427					>
 15428			012001		SN=SN+1
 15429			000002			E=<E+1>&17
 15430						DMOVE	AC,[XWD 707070,707070
 15431	045576	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE AC,AC+1
 15432	045577	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15433	045600	210 12 0 00 070706 		MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15434	045601	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15435						DMOVE	E,[XWD 0,0
 15436	045602	120 02 0 00 070707 			   XWD 0,-1]		;INITIALIZE E,E+1
 15437						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15438	045603	121 04 0 00 000002 	C+1
 15439	045604	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15440	045605	003 04 0 00 012001 		ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15441	045606	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15442	045607	004 05 0 00 012001 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15443	045610	321 10 0 00 045600 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15444
 15445			012002		SN=SN+1
 15446			000003			E=<E+1>&17
 15447						DMOVE	AC,[XWD 707070,707070
 15448	045611	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE AC,AC+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS                                      SEQ 0392

 15449	045612	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15450	045613	210 12 0 00 070706 		MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15451	045614	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15452						DMOVE	E,[XWD 0,0
 15453	045615	120 03 0 00 070707 			   XWD 0,-1]		;INITIALIZE E,E+1
 15454						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15455	045616	121 04 0 00 000003 	C+1
 15456	045617	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15457	045620	003 04 0 00 012002 		ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15458	045621	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15459	045622	004 05 0 00 012002 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15460	045623	321 10 0 00 045613 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15461
 15462			012003		SN=SN+1
 15463			000004			E=<E+1>&17
 15464						DMOVE	AC,[XWD 707070,707070
 15465	045624	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE AC,AC+1
 15466	045625	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15467	045626	210 12 0 00 070706 		MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15468	045627	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15469						DMOVE	E,[XWD 0,0
 15470	045630	120 04 0 00 070707 			   XWD 0,-1]		;INITIALIZE E,E+1
 15471						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15472	045631	121 04 0 00 000004 	C+1
 15473	045632	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15474	045633	003 04 0 00 012003 		ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15475	045634	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15476	045635	004 05 0 00 012003 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15477	045636	321 10 0 00 045626 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15478
 15479			012004		SN=SN+1
 15480			000005			E=<E+1>&17
 15481						DMOVE	AC,[XWD 707070,707070
 15482	045637	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE AC,AC+1
 15483	045640	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15484	045641	210 12 0 00 070706 		MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15485	045642	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15486						DMOVE	E,[XWD 0,0
 15487	045643	120 05 0 00 070707 			   XWD 0,-1]		;INITIALIZE E,E+1
 15488						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15489	045644	121 04 0 00 000005 	C+1
 15490	045645	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15491	045646	003 04 0 00 012004 		ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15492	045647	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15493	045650	004 05 0 00 012004 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15494	045651	321 10 0 00 045641 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15495
 15496			012005		SN=SN+1
 15497			000006			E=<E+1>&17
 15498						DMOVE	AC,[XWD 707070,707070
 15499	045652	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE AC,AC+1
 15500	045653	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS
 15501	045654	210 12 0 00 070706 		MOVN	AC+6,[XWD 0,-1]		;FOR COMPARISON
 15502	045655	621 12 0 00 400000 		TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD
 15503						DMOVE	E,[XWD 0,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 42-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS                                      SEQ 0393

 15504	045656	120 06 0 00 070707 			   XWD 0,-1]		;INITIALIZE E,E+1
 15505						DMOVN	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
 15506	045657	121 04 0 00 000006 	C+1
 15507	045660	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;DID DMOVN GET CORRECT C(E)?
 15508	045661	003 04 0 00 012005 		ER3	AC,SN			;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
 15509	045662	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;DID DMOVN GET CORRECT C(E+1)?
 15510	045663	004 05 0 00 012005 		ER4	AC+1,SN			;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
 15511	045664	321 10 0 00 045654 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH
 15512
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0394

 15513					SUBTTL	DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
 15514
 15515						DMVN	1210,400000,0,0,0^
 15516					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15517					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15518					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15519					;[XWD 400000,0] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15520					;THE DMOVN INSTRUCTION.  0(AC) AND 0(AC+1) ARE THEN COMPARED
 15521					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15522					;WORDS [XWD 400000,0] AND [XWD 0,0], RESPECTIVELY.
 15523					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15524
 15525					Q12100:	DMOVE	AC,[XWD 707070,707070
 15526	045665	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15527	045666	460 11 0 00 070711 		SETCM	AC+5,[XWD 400000,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15528						IFIDN	<0,0><0,0>,<
 15529	045667	400 12 0 00 000000 		SETZ	AC+6,
 15530	045670	271 11 0 00 000001 		ADDI	AC+5,1	>
 15531						IFIDN	<0,0><400000,0>,<
 15532						SETZ	AC+6,
 15533						ADDI	AC+5,1	>
 15534						IFDIF	<0,0><0,0>,<
 15535						IFDIF	<0,0><400000,0>,<
 15536						MOVN	AC+6,[XWD 0,0]
 15537						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15538						DMOVN	AC,[XWD 400000,0		;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
 15539	045671	121 04 0 00 070711 			    XWD 0,0]		;0,0 FROM MEMORY TO AC, AC+1
 15540	045672	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15541						ER3	AC,12101			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 4
 15542	045673	003 04 0 00 012101 	00000,0
 15543	045674	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15544	045675	004 05 0 00 012102 		ER4	AC+1,12102		;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
 15545	045676	321 10 0 00 045665 		JUMPL	SAC,Q12100		;LOOP ON ERROR SWITCH^
 15546					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0395

 15547						DMVN	1220,0,0,400000,0^
 15548					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15549					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15550					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15551					;[XWD 0,0] AND [XWD 400000,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15552					;THE DMOVN INSTRUCTION.  400000(AC) AND 400000(AC+1) ARE THEN COMPARED
 15553					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15554					;WORDS [XWD 0,0] AND [XWD 400000,0], RESPECTIVELY.
 15555					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15556
 15557					Q12200:	DMOVE	AC,[XWD 707070,707070
 15558	045677	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15559	045700	460 11 0 00 070660 		SETCM	AC+5,[XWD 0,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15560						IFIDN	<400000,0><0,0>,<
 15561						SETZ	AC+6,
 15562						ADDI	AC+5,1	>
 15563						IFIDN	<400000,0><400000,0>,<
 15564	045701	400 12 0 00 000000 		SETZ	AC+6,
 15565	045702	271 11 0 00 000001 		ADDI	AC+5,1	>
 15566						IFDIF	<400000,0><0,0>,<
 15567						IFDIF	<400000,0><400000,0>,<
 15568						MOVN	AC+6,[XWD 400000,0]
 15569						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15570						DMOVN	AC,[XWD 0,0		;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
 15571	045703	121 04 0 00 070712 			    XWD 400000,0]		;400000,0 FROM MEMORY TO AC, AC+1
 15572	045704	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15573						ER3	AC,12201			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
 15574	045705	003 04 0 00 012201 	,0
 15575	045706	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15576	045707	004 05 0 00 012202 		ER4	AC+1,12202		;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
 15577	045710	321 10 0 00 045677 		JUMPL	SAC,Q12200		;LOOP ON ERROR SWITCH^
 15578					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 43-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS                                 SEQ 0396

 15579						DMVN	1230,400000,0,400000,0^
 15580					;THIS MACRO TESTS THE DMOVN INSTRUCTION
 15581					;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
 15582					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 15583					;[XWD 400000,0] AND [XWD 400000,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
 15584					;THE DMOVN INSTRUCTION.  400000(AC) AND 400000(AC+1) ARE THEN COMPARED
 15585					;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 15586					;WORDS [XWD 400000,0] AND [XWD 400000,0], RESPECTIVELY.
 15587					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15588
 15589					Q12300:	DMOVE	AC,[XWD 707070,707070
 15590	045711	120 04 0 00 070661 			    XWD 070707,070707]  ;INITIALIZE AC,AC+1
 15591	045712	460 11 0 00 070711 		SETCM	AC+5,[XWD 400000,0]		;INITIALIZE TEST WORDS FOR COMPARISON
 15592						IFIDN	<400000,0><0,0>,<
 15593						SETZ	AC+6,
 15594						ADDI	AC+5,1	>
 15595						IFIDN	<400000,0><400000,0>,<
 15596	045713	400 12 0 00 000000 		SETZ	AC+6,
 15597	045714	271 11 0 00 000001 		ADDI	AC+5,1	>
 15598						IFDIF	<400000,0><0,0>,<
 15599						IFDIF	<400000,0><400000,0>,<
 15600						MOVN	AC+6,[XWD 400000,0]
 15601						TLZ	AC+6,1B18		;CLEAR SIGN BIT OF LOW ORDER WORD >>
 15602						DMOVN	AC,[XWD 400000,0		;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
 15603	045715	121 04 0 00 070713 			    XWD 400000,0]		;400000,0 FROM MEMORY TO AC, AC+1
 15604	045716	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS AC LOADED CORRECTLY?
 15605						ER3	AC,12301			;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 4
 15606	045717	003 04 0 00 012301 	00000,0
 15607	045720	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS AC+1 LOADED CORRECTLY?
 15608	045721	004 05 0 00 012302 		ER4	AC+1,12302		;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
 15609	045722	321 10 0 00 045711 		JUMPL	SAC,Q12300		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS                              SEQ 0397

 15610					SUBTTL	DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
 15611
 15612					;CHECK ABILITY TO CLEAR OVFL AND CRY FLAGS BEFORE TESTING INTERACTION WITH DMOVN
 15613
 15614	045723	255 17 0 00 045724 	Q12400:	JFCL	17,.+1			;CLEAR OVFL AND CRY FLAGS
 15615	045724	265 04 0 00 045725 		JSP	AC,.+1			;READ FLAGS
 15616	045725	603 04 0 00 700000 		TLNE	AC,7B20			;TEST OVFL AND CRY FLAGS
 15617	045726	013 04 0 00 012401 		ER13	AC,12401		;FAIL IF OVFL OR CRY FLG SET
 15618	045727	321 10 0 00 045723 		JUMPL	SAC,Q12400		;LOOP ON ERROR SWITCH
 15619
 15620						DMVNF	1250,0,0,0,0,300000,310000,300000,310000^
 15621					;**KI10**
 15622					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 15623					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15624					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15625					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 15626
 15627					;**KL10**
 15628					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 15629					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15630					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15631					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 15632
 15633	045730	255 17 0 00 045731 	Q12500:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 15634						DMOVN	AC+1,[XWD 0,0		;*DMOVN TEST
 15635	045731	121 05 0 00 070663 			      XWD 0,0]
 15636	045732	265 04 0 00 045733 		JSP	AC,.+1			;READ FLAGS
 15637	045733	621 04 0 00 027777 	Q12501:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 15638	045734	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 15639	045735	254 00 0 00 045747 		JRST	Q12504			;YES
 15640	045736	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 15641	045737	254 00 0 00 045744 		JRST	Q12503			;YES
 15642					;KI10 EXEC MODE
 15643	045740	312 04 0 00 070715 		CAME	AC,[300000,,Q12501]
 15644	045741	013 04 0 00 012501 		ER13	AC,12501			;FAIL IF OVFL OR CRY0,1 FLG SET
 15645	045742	321 10 0 00 045730 	Q12502:	JUMPL	SAC,Q12500		;LOOP ON ERROR SWITCH
 15646	045743	254 00 0 00 045757 		JRST	Q12506
 15647					;KL10 EXEC MODE
 15648	045744	312 04 0 00 070715 	Q12503:	CAME	AC,[300000,,Q12501]
 15649	045745	013 04 0 00 012501 		ER13	AC,12501			;FAIL IF FLAGS NOT SET
 15650	045746	254 00 0 00 045742 		JRST	Q12502
 15651					;KL10/KI10 USER MODE
 15652	045747	332 00 0 00 030041 	Q12504:	SKIPE	KLFLG			;KL10 ?
 15653	045750	254 00 0 00 045754 		JRST	Q12505			;YES
 15654					;KI10 USER MODE
 15655	045751	312 04 0 00 070716 		CAME	AC,[310000,,Q12501]
 15656	045752	013 04 0 00 012501 		ER13	AC,12501			;FAIL IF ANY FLAGS SET
 15657	045753	254 00 0 00 045742 		JRST	Q12502
 15658					;KL10 USER MODE
 15659	045754	312 04 0 00 070716 	Q12505:	CAME	AC,[310000,,Q12501]
 15660	045755	013 04 0 00 012501 		ER13	AC,12501			;FAIL IF FLAGS NOT SET
 15661	045756	254 00 0 00 045742 		JRST	Q12502
 15662
 15663	045757	254 00 0 00 045760 	Q12506:	JRST	.+1^
 15664					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS                              SEQ 0398

 15665						DMVNF	1260,400000,0,0,0,500000,510000,100000,510000^
 15666					;**KI10**
 15667					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 15668					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15669					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15670					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 15671
 15672					;**KL10**
 15673					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 15674					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15675					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15676					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 15677
 15678	045760	255 17 0 00 045761 	Q12600:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 15679						DMOVN	AC+1,[XWD 400000,0		;*DMOVN TEST
 15680	045761	121 05 0 00 070711 			      XWD 0,0]
 15681	045762	265 04 0 00 045763 		JSP	AC,.+1			;READ FLAGS
 15682	045763	621 04 0 00 027777 	Q12601:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 15683	045764	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 15684	045765	254 00 0 00 045777 		JRST	Q12604			;YES
 15685	045766	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 15686	045767	254 00 0 00 045774 		JRST	Q12603			;YES
 15687					;KI10 EXEC MODE
 15688	045770	312 04 0 00 070717 		CAME	AC,[500000,,Q12601]
 15689	045771	013 04 0 00 012601 		ER13	AC,12601			;FAIL IF OVFL OR CRY0,1 FLG SET
 15690	045772	321 10 0 00 045760 	Q12602:	JUMPL	SAC,Q12600		;LOOP ON ERROR SWITCH
 15691	045773	254 00 0 00 046007 		JRST	Q12606
 15692					;KL10 EXEC MODE
 15693	045774	312 04 0 00 070720 	Q12603:	CAME	AC,[100000,,Q12601]
 15694	045775	013 04 0 00 012601 		ER13	AC,12601			;FAIL IF FLAGS NOT SET
 15695	045776	254 00 0 00 045772 		JRST	Q12602
 15696					;KL10/KI10 USER MODE
 15697	045777	332 00 0 00 030041 	Q12604:	SKIPE	KLFLG			;KL10 ?
 15698	046000	254 00 0 00 046004 		JRST	Q12605			;YES
 15699					;KI10 USER MODE
 15700	046001	312 04 0 00 070721 		CAME	AC,[510000,,Q12601]
 15701	046002	013 04 0 00 012601 		ER13	AC,12601			;FAIL IF ANY FLAGS SET
 15702	046003	254 00 0 00 045772 		JRST	Q12602
 15703					;KL10 USER MODE
 15704	046004	312 04 0 00 070721 	Q12605:	CAME	AC,[510000,,Q12601]
 15705	046005	013 04 0 00 012601 		ER13	AC,12601			;FAIL IF FLAGS NOT SET
 15706	046006	254 00 0 00 045772 		JRST	Q12602
 15707
 15708	046007	254 00 0 00 046010 	Q12606:	JRST	.+1^
 15709					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS                              SEQ 0399

 15710						DMVNF	1270,0,0,400000,0,300000,310000,300000,310000^
 15711					;**KI10**
 15712					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 15713					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15714					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15715					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 15716
 15717					;**KL10**
 15718					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 15719					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15720					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15721					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 15722
 15723	046010	255 17 0 00 046011 	Q12700:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 15724						DMOVN	AC+1,[XWD 0,0		;*DMOVN TEST
 15725	046011	121 05 0 00 070712 			      XWD 400000,0]
 15726	046012	265 04 0 00 046013 		JSP	AC,.+1			;READ FLAGS
 15727	046013	621 04 0 00 027777 	Q12701:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 15728	046014	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 15729	046015	254 00 0 00 046027 		JRST	Q12704			;YES
 15730	046016	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 15731	046017	254 00 0 00 046024 		JRST	Q12703			;YES
 15732					;KI10 EXEC MODE
 15733	046020	312 04 0 00 070722 		CAME	AC,[300000,,Q12701]
 15734	046021	013 04 0 00 012701 		ER13	AC,12701			;FAIL IF OVFL OR CRY0,1 FLG SET
 15735	046022	321 10 0 00 046010 	Q12702:	JUMPL	SAC,Q12700		;LOOP ON ERROR SWITCH
 15736	046023	254 00 0 00 046037 		JRST	Q12706
 15737					;KL10 EXEC MODE
 15738	046024	312 04 0 00 070722 	Q12703:	CAME	AC,[300000,,Q12701]
 15739	046025	013 04 0 00 012701 		ER13	AC,12701			;FAIL IF FLAGS NOT SET
 15740	046026	254 00 0 00 046022 		JRST	Q12702
 15741					;KL10/KI10 USER MODE
 15742	046027	332 00 0 00 030041 	Q12704:	SKIPE	KLFLG			;KL10 ?
 15743	046030	254 00 0 00 046034 		JRST	Q12705			;YES
 15744					;KI10 USER MODE
 15745	046031	312 04 0 00 070723 		CAME	AC,[310000,,Q12701]
 15746	046032	013 04 0 00 012701 		ER13	AC,12701			;FAIL IF ANY FLAGS SET
 15747	046033	254 00 0 00 046022 		JRST	Q12702
 15748					;KL10 USER MODE
 15749	046034	312 04 0 00 070723 	Q12705:	CAME	AC,[310000,,Q12701]
 15750	046035	013 04 0 00 012701 		ER13	AC,12701			;FAIL IF FLAGS NOT SET
 15751	046036	254 00 0 00 046022 		JRST	Q12702
 15752
 15753	046037	254 00 0 00 046040 	Q12706:	JRST	.+1^
 15754					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 44-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS                              SEQ 0400

 15755						DMVNF	1300,400000,0,400000,0,500000,510000,100000,510000^
 15756					;**KI10**
 15757					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 15758					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15759					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15760					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 15761
 15762					;**KL10**
 15763					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 15764					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 15765					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 15766					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 15767
 15768	046040	255 17 0 00 046041 	Q13000:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 15769						DMOVN	AC+1,[XWD 400000,0		;*DMOVN TEST
 15770	046041	121 05 0 00 070713 			      XWD 400000,0]
 15771	046042	265 04 0 00 046043 		JSP	AC,.+1			;READ FLAGS
 15772	046043	621 04 0 00 027777 	Q13001:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 15773	046044	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 15774	046045	254 00 0 00 046057 		JRST	Q13004			;YES
 15775	046046	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 15776	046047	254 00 0 00 046054 		JRST	Q13003			;YES
 15777					;KI10 EXEC MODE
 15778	046050	312 04 0 00 070724 		CAME	AC,[500000,,Q13001]
 15779	046051	013 04 0 00 013001 		ER13	AC,13001			;FAIL IF OVFL OR CRY0,1 FLG SET
 15780	046052	321 10 0 00 046040 	Q13002:	JUMPL	SAC,Q13000		;LOOP ON ERROR SWITCH
 15781	046053	254 00 0 00 046067 		JRST	Q13006
 15782					;KL10 EXEC MODE
 15783	046054	312 04 0 00 070725 	Q13003:	CAME	AC,[100000,,Q13001]
 15784	046055	013 04 0 00 013001 		ER13	AC,13001			;FAIL IF FLAGS NOT SET
 15785	046056	254 00 0 00 046052 		JRST	Q13002
 15786					;KL10/KI10 USER MODE
 15787	046057	332 00 0 00 030041 	Q13004:	SKIPE	KLFLG			;KL10 ?
 15788	046060	254 00 0 00 046064 		JRST	Q13005			;YES
 15789					;KI10 USER MODE
 15790	046061	312 04 0 00 070726 		CAME	AC,[510000,,Q13001]
 15791	046062	013 04 0 00 013001 		ER13	AC,13001			;FAIL IF ANY FLAGS SET
 15792	046063	254 00 0 00 046052 		JRST	Q13002
 15793					;KL10 USER MODE
 15794	046064	312 04 0 00 070726 	Q13005:	CAME	AC,[510000,,Q13001]
 15795	046065	013 04 0 00 013001 		ER13	AC,13001			;FAIL IF FLAGS NOT SET
 15796	046066	254 00 0 00 046052 		JRST	Q13002
 15797
 15798	046067	254 00 0 00 046070 	Q13006:	JRST	.+1^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS                                SEQ 0401

 15799					SUBTTL	DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
 15800
 15801					;CHECK THAT 'DMOVEM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
 15802
 15803					Q13050:	DMOVE	AC,[631463,,146314	;INITIALIZE C(AC), C(AC+1)
 15804	046070	120 04 0 00 070656 			    424242,,131313]
 15805	046071	124 04 0 00 000002 		DMOVEM	AC,AC-2			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 15806	046072	312 04 0 00 070656 		CAME	AC,[631463,,146314]	;WAS C(AC) MODIFIED?
 15807	046073	003 04 0 00 013051 		ER3	AC,13051		;C(AC) WAS CLOBBERED
 15808	046074	312 05 0 00 070657 		CAME	AC+1,[424242,,131313]	;WAS C(AC+1) MODIFIED?
 15809	046075	004 05 0 00 013051 		ER4	AC+1,13051		;C(AC+1) WAS CLOBBERED
 15810	046076	321 10 0 00 046070 		JUMPL	SAC,Q13050		;LOOP ON ERROR SWITCH
 15811					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS                                SEQ 0402

 15812						DMVM	1310,0,0,0,0^
 15813					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15814					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15815					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15816					;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD 0,0] IS MOVED
 15817					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15818					;THE DMOVEM INSTRUCTION.  0(TSTWD) AND 0(TSTWD+1) ARE THEN
 15819					;COMPARED WITH THE TEST WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
 15820					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15821
 15822					Q13100:	DMOVE	AC,[XWD 707070,707070
 15823	046077	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15824	046100	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15825	046101	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15826						DMOVE	AC,[XWD 0,0
 15827	046102	120 04 0 00 070663 			    XWD 0,0]		;INITIALIZE AC,AC+1
 15828	046103	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15829										;TO MEMORY (TSTWD, TSTWD+1)
 15830	046104	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15831	046105	312 04 0 00 070660 		CAME	AC,[XWD 0,0]		;WAS TSTWD LOADED CORRECTLY?
 15832	046106	005 04 0 00 013101 		ER5	AC,13101			;FAIL IF CONTENTS(TSTWD) NOT = 0,0
 15833	046107	312 05 0 00 070660 		CAME	AC+1,[XWD 0,0]		;WAS TSTWD+1 LOADED CORRECTLY?
 15834	046110	006 05 0 00 013102 		ER6	AC+1,13102		;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
 15835	046111	321 10 0 00 046077 		JUMPL	SAC,Q13100		;LOOP ON ERROR SWITCH^
 15836
 15837						DMVM	1320,-1,-1,-1,-1^
 15838					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15839					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15840					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15841					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
 15842					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15843					;THE DMOVEM INSTRUCTION.  -1(TSTWD) AND -1(TSTWD+1) ARE THEN
 15844					;COMPARED WITH THE TEST WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
 15845					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15846
 15847					Q13200:	DMOVE	AC,[XWD 707070,707070
 15848	046112	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15849	046113	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15850	046114	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15851						DMOVE	AC,[XWD -1,-1
 15852	046115	120 04 0 00 070665 			    XWD -1,-1]		;INITIALIZE AC,AC+1
 15853	046116	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15854										;TO MEMORY (TSTWD, TSTWD+1)
 15855	046117	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15856	046120	312 04 0 00 070665 		CAME	AC,[XWD -1,-1]		;WAS TSTWD LOADED CORRECTLY?
 15857	046121	005 04 0 00 013201 		ER5	AC,13201			;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
 15858	046122	312 05 0 00 070665 		CAME	AC+1,[XWD -1,-1]		;WAS TSTWD+1 LOADED CORRECTLY?
 15859	046123	006 05 0 00 013202 		ER6	AC+1,13202		;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
 15860	046124	321 10 0 00 046112 		JUMPL	SAC,Q13200		;LOOP ON ERROR SWITCH^
 15861					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS                                SEQ 0403

 15862						DMVM	1330,0,0,-1,-1^
 15863					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15864					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15865					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15866					;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD -1,-1] IS MOVED
 15867					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15868					;THE DMOVEM INSTRUCTION.  -1(TSTWD) AND -1(TSTWD+1) ARE THEN
 15869					;COMPARED WITH THE TEST WORDS [XWD 0,0] AND [XWD -1,-1], RESPECTIVELY.
 15870					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15871
 15872					Q13300:	DMOVE	AC,[XWD 707070,707070
 15873	046125	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15874	046126	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15875	046127	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15876						DMOVE	AC,[XWD 0,0
 15877	046130	120 04 0 00 070664 			    XWD -1,-1]		;INITIALIZE AC,AC+1
 15878	046131	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15879										;TO MEMORY (TSTWD, TSTWD+1)
 15880	046132	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15881	046133	312 04 0 00 070660 		CAME	AC,[XWD 0,0]		;WAS TSTWD LOADED CORRECTLY?
 15882	046134	005 04 0 00 013301 		ER5	AC,13301			;FAIL IF CONTENTS(TSTWD) NOT = 0,0
 15883	046135	312 05 0 00 070665 		CAME	AC+1,[XWD -1,-1]		;WAS TSTWD+1 LOADED CORRECTLY?
 15884	046136	006 05 0 00 013302 		ER6	AC+1,13302		;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
 15885	046137	321 10 0 00 046125 		JUMPL	SAC,Q13300		;LOOP ON ERROR SWITCH^
 15886
 15887						DMVM	1340,-1,-1,0,0^
 15888					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15889					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15890					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15891					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD 0,0] IS MOVED
 15892					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15893					;THE DMOVEM INSTRUCTION.  0(TSTWD) AND 0(TSTWD+1) ARE THEN
 15894					;COMPARED WITH THE TEST WORDS [XWD -1,-1] AND [XWD 0,0], RESPECTIVELY.
 15895					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15896
 15897					Q13400:	DMOVE	AC,[XWD 707070,707070
 15898	046140	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15899	046141	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15900	046142	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15901						DMOVE	AC,[XWD -1,-1
 15902	046143	120 04 0 00 070666 			    XWD 0,0]		;INITIALIZE AC,AC+1
 15903	046144	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15904										;TO MEMORY (TSTWD, TSTWD+1)
 15905	046145	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15906	046146	312 04 0 00 070665 		CAME	AC,[XWD -1,-1]		;WAS TSTWD LOADED CORRECTLY?
 15907	046147	005 04 0 00 013401 		ER5	AC,13401			;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
 15908	046150	312 05 0 00 070660 		CAME	AC+1,[XWD 0,0]		;WAS TSTWD+1 LOADED CORRECTLY?
 15909	046151	006 05 0 00 013402 		ER6	AC+1,13402		;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
 15910	046152	321 10 0 00 046140 		JUMPL	SAC,Q13400		;LOOP ON ERROR SWITCH^
 15911					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 45-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS                                SEQ 0404

 15912						DMVM	1350,252525,252525,525252,525252^
 15913					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15914					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15915					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15916					;THEN, THE DATA SPECIFIED BY [XWD 252525,252525] AND [XWD 525252,525252] IS MOVED
 15917					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15918					;THE DMOVEM INSTRUCTION.  525252(TSTWD) AND 525252(TSTWD+1) ARE THEN
 15919					;COMPARED WITH THE TEST WORDS [XWD 252525,252525] AND [XWD 525252,525252], RESPECTIVELY.
 15920					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15921
 15922					Q13500:	DMOVE	AC,[XWD 707070,707070
 15923	046153	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15924	046154	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15925	046155	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15926						DMOVE	AC,[XWD 252525,252525
 15927	046156	120 04 0 00 070671 			    XWD 525252,525252]		;INITIALIZE AC,AC+1
 15928	046157	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15929										;TO MEMORY (TSTWD, TSTWD+1)
 15930	046160	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15931	046161	312 04 0 00 070655 		CAME	AC,[XWD 252525,252525]		;WAS TSTWD LOADED CORRECTLY?
 15932						ER5	AC,13501			;FAIL IF CONTENTS(TSTWD) NOT = 252525,25252
 15933	046162	005 04 0 00 013501 	5
 15934	046163	312 05 0 00 070670 		CAME	AC+1,[XWD 525252,525252]		;WAS TSTWD+1 LOADED CORRECTLY?
 15935	046164	006 05 0 00 013502 		ER6	AC+1,13502		;FAIL IF CONTENTS(TSTWD+1) NOT = 525252,525252
 15936	046165	321 10 0 00 046153 		JUMPL	SAC,Q13500		;LOOP ON ERROR SWITCH^
 15937
 15938						DMVM	1360,525252,525252,252525,252525^
 15939					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15940					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15941					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15942					;THEN, THE DATA SPECIFIED BY [XWD 525252,525252] AND [XWD 252525,252525] IS MOVED
 15943					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
 15944					;THE DMOVEM INSTRUCTION.  252525(TSTWD) AND 252525(TSTWD+1) ARE THEN
 15945					;COMPARED WITH THE TEST WORDS [XWD 525252,525252] AND [XWD 252525,252525], RESPECTIVELY.
 15946					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15947
 15948					Q13600:	DMOVE	AC,[XWD 707070,707070
 15949	046166	120 04 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15950	046167	202 04 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15951	046170	202 05 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15952						DMOVE	AC,[XWD 525252,525252
 15953	046171	120 04 0 00 070670 			    XWD 252525,252525]		;INITIALIZE AC,AC+1
 15954	046172	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15955										;TO MEMORY (TSTWD, TSTWD+1)
 15956	046173	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15957	046174	312 04 0 00 070670 		CAME	AC,[XWD 525252,525252]		;WAS TSTWD LOADED CORRECTLY?
 15958						ER5	AC,13601			;FAIL IF CONTENTS(TSTWD) NOT = 525252,52525
 15959	046175	005 04 0 00 013601 	2
 15960	046176	312 05 0 00 070655 		CAME	AC+1,[XWD 252525,252525]		;WAS TSTWD+1 LOADED CORRECTLY?
 15961	046177	006 05 0 00 013602 		ER6	AC+1,13602		;FAIL IF CONTENTS(TSTWD+1) NOT = 252525,252525
 15962	046200	321 10 0 00 046166 		JUMPL	SAC,Q13600		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 46
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0                                        SEQ 0405

 15963					SUBTTL	DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
 15964
 15965					;CHECK DMOVEM FOR AC=17 AND AC+1=0
 15966
 15967			000017			AC=17
 15968			000003			SAC=<AC+4>&17
 15969						SAVEAC	(1,1)^
 15970	046201	201 03 0 00 046201 		MOVEI	SAC,.
 15971	046202	202 03 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 15972	046203	201 03 0 00 000003 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 15973	046204	202 03 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 15974
 15975						DMVM17	1370,-1,-1,-1,-1^
 15976					;THIS MACRO TESTS THE DMOVEM INSTRUCTION
 15977					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 15978					;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
 15979					;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
 15980					;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
 15981					;-1(TSTWD) AND -1(TSTWD+1) ARE THEN COMPARED WITH THE TEST
 15982					;WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
 15983					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 15984
 15985	046205	202 17 0 00 074005 	Q13700:	MOVEM	AC,%SV17		;SAVE AC17 CAUSE IT HAS PDP
 15986						DMOVE	AC,[XWD 707070,707070
 15987	046206	120 17 0 00 070661 			    XWD 070707,070707]	;INITIALIZE TEST WORDS
 15988	046207	202 17 0 00 070346 		MOVEM	AC,TSTWD		;TSTWD, TSTWD+1 ARE IN MEMORY JUST
 15989	046210	202 00 0 00 070347 		MOVEM	AC+1,TSTWD+1		;AFTER THE FINAL TEST OF THIS PROGRAM
 15990						DMOVE	AC,[XWD -1,-1
 15991	046211	120 17 0 00 070665 			    XWD -1,-1]		;INITIALIZE AC,AC+1
 15992	046212	124 17 0 00 070346 		DMOVEM	AC,TSTWD		;*MOVE DOUBLE WORD FROM AC, AC+1
 15993										;TO MEMORY (TSTWD, TSTWD+1)
 15994	046213	120 17 0 00 070346 		DMOVE	AC,TSTWD		;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
 15995	046214	316 17 0 00 070665 		CAMN	AC,[XWD -1,-1]		;WAS TSTWD LOADED CORRECTLY?
 15996	046215	254 00 0 00 046221 		JRST	.+4			;HERE IF TESTS OK
 15997	046216	202 17 0 00 000016 		MOVEM	AC,AC-1			;SAVE BAD WORD
 15998	046217	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 15999	046220	005 16 0 00 013701 		ER5	AC-1,13701		;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
 16000	046221	316 00 0 00 070665 		CAMN	AC+1,[XWD -1,-1]		;WAS TSTWD+1 LOADED CORRECTLY?
 16001	046222	254 00 0 00 046226 		JRST	.+4			;HERE IF TESTS OK
 16002	046223	202 17 0 00 000016 		MOVEM	AC,AC-1			;SAVE BAD WORD
 16003	046224	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 16004	046225	006 00 0 00 013702 		ER6	AC+1,13702		;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
 16005	046226	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE AC UNCONDITIONALLY
 16006	046227	321 03 0 00 046205 		JUMPL	SAC,Q13700		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 47
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS                                     SEQ 0406

 16007					SUBTTL	DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
 16008
 16009					;CHECK DMOVEM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16010
 16011			000004			AC=4
 16012			000010			SAC=<AC+4>&17
 16013						SAVEAC	(1,1)^
 16014	046230	201 10 0 00 046230 		MOVEI	SAC,.
 16015	046231	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 16016	046232	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 16017	046233	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 16018			000002			E=<AC-2>&17
 16019
 16020			014000		SN=14000
 16021			000001			E=<E-1>&17
 16022
 16023					Q14000:	REPEAT	^D5,<
 16024					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16025					
 16026					SN=SN+1
 16027						E=<E+1>&17
 16028						DMOVE	E,[XWD 707070,707070
 16029							   XWD 070707,070707]	;INITIALIZE E,E+1
 16030						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16031							    XWD 0,-1]
 16032						DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16033						CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16034						ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16035						IFN	<E-<AC+1>>,<
 16036						CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16037						IFE	<E-<AC+1>>,<
 16038						GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16039						ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16040						JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 16041					>
 16042
 16043					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16044
 16045			014001		SN=SN+1
 16046			000002			E=<E+1>&17
 16047						DMOVE	E,[XWD 707070,707070
 16048	046234	120 02 0 00 070661 			   XWD 070707,070707]	;INITIALIZE E,E+1
 16049						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16050	046235	120 04 0 00 070727 			    XWD 0,-1]
 16051	046236	124 04 0 00 000002 		DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16052	046237	312 02 0 00 070665 		CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16053	046240	005 02 0 00 014001 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16054						IFN	<E-<AC+1>>,<
 16055	046241	312 03 0 00 070706 		CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16056						IFE	<E-<AC+1>>,<
 16057						GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16058	046242	006 03 0 00 014001 		ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16059	046243	321 10 0 00 046234 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 16060
 16061
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 47-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS                                     SEQ 0407

 16062					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16063
 16064			014002		SN=SN+1
 16065			000003			E=<E+1>&17
 16066						DMOVE	E,[XWD 707070,707070
 16067	046244	120 03 0 00 070661 			   XWD 070707,070707]	;INITIALIZE E,E+1
 16068						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16069	046245	120 04 0 00 070727 			    XWD 0,-1]
 16070	046246	124 04 0 00 000003 		DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16071	046247	312 03 0 00 070665 		CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16072	046250	005 03 0 00 014002 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16073						IFN	<E-<AC+1>>,<
 16074	046251	312 04 0 00 070706 		CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16075						IFE	<E-<AC+1>>,<
 16076						GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16077	046252	006 04 0 00 014002 		ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16078	046253	321 10 0 00 046244 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 16079
 16080
 16081					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16082
 16083			014003		SN=SN+1
 16084			000004			E=<E+1>&17
 16085						DMOVE	E,[XWD 707070,707070
 16086	046254	120 04 0 00 070661 			   XWD 070707,070707]	;INITIALIZE E,E+1
 16087						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16088	046255	120 04 0 00 070727 			    XWD 0,-1]
 16089	046256	124 04 0 00 000004 		DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16090	046257	312 04 0 00 070665 		CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16091	046260	005 04 0 00 014003 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16092						IFN	<E-<AC+1>>,<
 16093	046261	312 05 0 00 070706 		CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16094						IFE	<E-<AC+1>>,<
 16095						GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16096	046262	006 05 0 00 014003 		ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16097	046263	321 10 0 00 046254 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 16098
 16099
 16100					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16101
 16102			014004		SN=SN+1
 16103			000005			E=<E+1>&17
 16104						DMOVE	E,[XWD 707070,707070
 16105	046264	120 05 0 00 070661 			   XWD 070707,070707]	;INITIALIZE E,E+1
 16106						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16107	046265	120 04 0 00 070727 			    XWD 0,-1]
 16108	046266	124 04 0 00 000005 		DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16109	046267	312 05 0 00 070665 		CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16110	046270	005 05 0 00 014004 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16111						IFN	<E-<AC+1>>,<
 16112						CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16113						IFE	<E-<AC+1>>,<
 16114	046271	260 17 0 00 046305 		GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16115	046272	006 06 0 00 014004 		ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16116	046273	321 10 0 00 046264 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 47-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS                                     SEQ 0408

 16117
 16118
 16119					;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
 16120
 16121			014005		SN=SN+1
 16122			000006			E=<E+1>&17
 16123						DMOVE	E,[XWD 707070,707070
 16124	046274	120 06 0 00 070661 			   XWD 070707,070707]	;INITIALIZE E,E+1
 16125						DMOVE	AC,[XWD	-1,-1		;INITIALIZE AC, AC+1
 16126	046275	120 04 0 00 070727 			    XWD 0,-1]
 16127	046276	124 04 0 00 000006 		DMOVEM	AC,E			;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
 16128	046277	312 06 0 00 070665 		CAME	E,[XWD -1,-1]		;WAS 'E' UPDATED CORRECTLY?
 16129	046300	005 06 0 00 014005 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO -1,-1
 16130						IFN	<E-<AC+1>>,<
 16131	046301	312 07 0 00 070706 		CAME	E+1,[XWD 0,-1]		;FAIL IF C(E+1) IS NOT = 0,-1>
 16132						IFE	<E-<AC+1>>,<
 16133						GO	Q14001			;THIS CASE DIFFERENT KI/KL>
 16134	046302	006 07 0 00 014005 		ER6	E+1,SN			;'E+1' WAS NOT UPDATED CORRECTLY
 16135	046303	321 10 0 00 046274 		JUMPL	SAC,.-7			;LOOP ON ERROR SWITCH
 16136
 16137	046304	254 00 0 00 046315 		JRST	Q14021
 16138
 16139	046305	332 00 0 00 030041 	Q14001:	SKIPE	KLFLG			;KL10 ?
 16140	046306	254 00 0 00 046312 		JRST	Q14003			;YES
 16141
 16142	046307	316 06 0 00 070665 	Q14002:	CAMN	6,[-1,,-1]		;KI10
 16143	046310	350 00 0 17 000000 		AOS	(P)			;PASSED, SKIP RETURN OVER ERROR
 16144	046311	263 17 0 00 000000 		RTN
 16145
 16146	046312	316 06 0 00 070706 	Q14003:	CAMN	6,[0,,-1]		;KL10
 16147	046313	350 00 0 17 000000 		AOS	(P)			;PASSED, SKIP RETURN OVER ERROR
 16148	046314	263 17 0 00 000000 		RTN
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 48
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVEM - BIS FLAG                                             SEQ 0409

 16149					SUBTTL	DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
 16150
 16151	046315	332 00 0 00 030041 	Q14021:	SKIPE	KLFLG			;KL10 ?
 16152	046316	254 00 0 00 046340 		JRST	Q14050			;YES
 16153
 16154					;**KI10 ONLY TEST**
 16155					;VERIFY THAT C(E) IS NOT MODIFIED BY "DMOVEM AC,E" IF 'BIS'
 16156					;FLAG IS SET; AND THAT THE SECOND PART OF "DMOVEM" CLEARS 'BIS'.
 16157
 16158			000004			AC=4
 16159			000010			SAC=<AC+4>&17
 16160						SAVEAC	(1,1)^
 16161	046317	201 10 0 00 046317 		MOVEI	SAC,.
 16162	046320	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 16163	046321	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 16164	046322	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 16165			000002			E=<AC-2>&17
 16166
 16167					Q14020:	DMOVE	AC,[631463,,146314
 16168	046323	120 04 0 00 070656 			    424242,,131313]	;INITIALIZE AC,AC+1
 16169	046324	477 02 0 00 000003 		SETOB	E,<E+1>&17		;INITIALIZE E,E+1
 16170	046325	254 02 1 00 046326 		JRSTF	@.+1			;SET 'BIS' FLAG
 16171	046326	020000	046327			XWD	BIS,.+1
 16172						DMOVEM	AC,E			;*DMOVEM SHOULD MODIFY ONLY 'E+1' AND CLEAR BIS FLA
 16173	046327	124 04 0 00 000002 	G
 16174	046330	312 02 0 00 070665 		CAME	E,[-1,,-1]		;WAS C(E) MODIFIED?
 16175	046331	005 02 0 00 014021 		ER5	E,14021			;YES, C(E) WAS MODIFIED
 16176	046332	312 03 0 00 000005 		CAME	E+1,<AC+1>&17		;WAS C(E+1) MODIFIED?
 16177	046333	006 03 0 00 014021 		ER6	E+1,14021		;NO, C(E+1) WAS NOT MODIFIED
 16178	046334	265 06 0 00 046335 		JSP	AC+2,.+1		;READ FLAGS
 16179	046335	603 06 0 00 020000 		TLNE	AC+2,BIS		;IS 'BIS' FLAG CLEAR
 16180	046336	013 06 0 00 014021 		ER13	AC+2,14021		;NO
 16181	046337	321 10 0 00 046323 		JUMPL	SAC,Q14020		;LOOP ON ERROR SWITCH
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0410

 16182					SUBTTL	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
 16183
 16184					;CHECK THAT 'DMOVNM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
 16185
 16186					Q14050:	DMOVE	AC,[631463,,146314	;INITIALIZE AC, AC+1
 16187	046340	120 04 0 00 070656 			    424242,,131313]
 16188						DMOVNM	AC,AC-2			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16189	046341	125 04 0 00 000002 	ORY
 16190	046342	312 04 0 00 070656 		CAME	AC,[631463,,146314]	;WAS C(AC) MODIFIED?
 16191	046343	003 04 0 00 014051 		ER3	AC,14051		;C(AC) WAS CLOBBERED
 16192	046344	312 05 0 00 070657 		CAME	AC+1,[424242,,131313]	;WAS C(AC+1) MODIFIED?
 16193	046345	004 05 0 00 014051 		ER4	AC+1,14051		;C(AC+1) WAS CLOBBERED
 16194	046346	321 10 0 00 046340 		JUMPL	SAC,Q14050		;LOOP ON ERROR
 16195					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0411

 16196						DMVNM	1410,0,0,0,0^
 16197					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16198					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16199					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16200					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16201					;[XWD 0,0] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
 16202					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16203					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16204					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16205					;WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
 16206					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16207
 16208					Q14100:	DMOVE	AC,[XWD 707070,707070
 16209	046347	120 04 0 00 070661 			    XWD 070707,070707]
 16210	046350	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16211						DMOVE	AC,[XWD 0,0
 16212	046351	120 04 0 00 070663 			    XWD 0,0]		;INITIALIZE AC,AC+1
 16213						DMOVN	AC+5,[XWD 0,0
 16214	046352	121 11 0 00 070663 			      XWD 0,0]		;SET-UP TO CHECK RESULTS
 16215	046353	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16216										;TO MEMORY (TSTWD, TSTWD+1)
 16217	046354	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16218	046355	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16219						ER5	AC,14101			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16220	046356	005 04 0 00 014101 	F 0,0
 16221	046357	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16222	046360	006 05 0 00 014102 		ER6	AC+1,14102		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
 16223	046361	321 10 0 00 046347 		JUMPL	SAC,Q14100		;LOOP ON ERROR SWITCH^
 16224					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0412

 16225						DMVNM	1420,0,0,0,1^
 16226					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16227					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16228					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16229					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16230					;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
 16231					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16232					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16233					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16234					;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
 16235					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16236
 16237					Q14200:	DMOVE	AC,[XWD 707070,707070
 16238	046362	120 04 0 00 070661 			    XWD 070707,070707]
 16239	046363	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16240						DMOVE	AC,[XWD 0,0
 16241	046364	120 04 0 00 070674 			    XWD 0,1]		;INITIALIZE AC,AC+1
 16242						DMOVN	AC+5,[XWD 0,0
 16243	046365	121 11 0 00 070674 			      XWD 0,1]		;SET-UP TO CHECK RESULTS
 16244	046366	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16245										;TO MEMORY (TSTWD, TSTWD+1)
 16246	046367	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16247	046370	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16248						ER5	AC,14201			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16249	046371	005 04 0 00 014201 	F 0,0
 16250	046372	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16251	046373	006 05 0 00 014202 		ER6	AC+1,14202		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
 16252	046374	321 10 0 00 046362 		JUMPL	SAC,Q14200		;LOOP ON ERROR SWITCH^
 16253					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0413

 16254						DMVNM	1430,-1,-1,0,1^
 16255					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16256					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16257					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16258					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16259					;[XWD -1,-1] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
 16260					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16261					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16262					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16263					;WORDS [XWD -1,-1] AND [XWD 0,1], RESPECTIVELY.
 16264					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16265
 16266					Q14300:	DMOVE	AC,[XWD 707070,707070
 16267	046375	120 04 0 00 070661 			    XWD 070707,070707]
 16268	046376	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16269						DMOVE	AC,[XWD -1,-1
 16270	046377	120 04 0 00 070676 			    XWD 0,1]		;INITIALIZE AC,AC+1
 16271						DMOVN	AC+5,[XWD -1,-1
 16272	046400	121 11 0 00 070676 			      XWD 0,1]		;SET-UP TO CHECK RESULTS
 16273	046401	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16274										;TO MEMORY (TSTWD, TSTWD+1)
 16275	046402	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16276	046403	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16277						ER5	AC,14301			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16278	046404	005 04 0 00 014301 	F -1,-1
 16279	046405	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16280	046406	006 05 0 00 014302 		ER6	AC+1,14302		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
 16281	046407	321 10 0 00 046375 		JUMPL	SAC,Q14300		;LOOP ON ERROR SWITCH^
 16282					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-4
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0414

 16283						DMVNM	1440,0,1,0,0^
 16284					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16285					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16286					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16287					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16288					;[XWD 0,1] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
 16289					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16290					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16291					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16292					;WORDS [XWD 0,1] AND [XWD 0,0], RESPECTIVELY.
 16293					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16294
 16295					Q14400:	DMOVE	AC,[XWD 707070,707070
 16296	046410	120 04 0 00 070661 			    XWD 070707,070707]
 16297	046411	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16298						DMOVE	AC,[XWD 0,1
 16299	046412	120 04 0 00 070673 			    XWD 0,0]		;INITIALIZE AC,AC+1
 16300						DMOVN	AC+5,[XWD 0,1
 16301	046413	121 11 0 00 070673 			      XWD 0,0]		;SET-UP TO CHECK RESULTS
 16302	046414	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16303										;TO MEMORY (TSTWD, TSTWD+1)
 16304	046415	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16305	046416	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16306						ER5	AC,14401			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16307	046417	005 04 0 00 014401 	F 0,1
 16308	046420	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16309	046421	006 05 0 00 014402 		ER6	AC+1,14402		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
 16310	046422	321 10 0 00 046410 		JUMPL	SAC,Q14400		;LOOP ON ERROR SWITCH^
 16311					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-5
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0415

 16312						DMVNM	1450,525252,525252,252525,252526^
 16313					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16314					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16315					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16316					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16317					;[XWD 525252,525252] AND [XWD 252525,252526] IS MOVED FROM AC, AC+1 TO MEMORY
 16318					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16319					;252525(TSTWD) AND 252525(TSTWD+1) ARE THEN COMPARED WITH THE
 16320					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16321					;WORDS [XWD 525252,525252] AND [XWD 252525,252526], RESPECTIVELY.
 16322					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16323
 16324					Q14500:	DMOVE	AC,[XWD 707070,707070
 16325	046423	120 04 0 00 070661 			    XWD 070707,070707]
 16326	046424	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16327						DMOVE	AC,[XWD 525252,525252
 16328	046425	120 04 0 00 070701 			    XWD 252525,252526]		;INITIALIZE AC,AC+1
 16329						DMOVN	AC+5,[XWD 525252,525252
 16330	046426	121 11 0 00 070701 			      XWD 252525,252526]		;SET-UP TO CHECK RESULTS
 16331	046427	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16332										;TO MEMORY (TSTWD, TSTWD+1)
 16333	046430	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16334	046431	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16335						ER5	AC,14501			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16336	046432	005 04 0 00 014501 	F 525252,525252
 16337	046433	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16338	046434	006 05 0 00 014502 		ER6	AC+1,14502		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 252525,252526
 16339	046435	321 10 0 00 046423 		JUMPL	SAC,Q14500		;LOOP ON ERROR SWITCH^
 16340					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 49-6
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0416

 16341						DMVNM	1460,252525,252525,525252,525253^
 16342					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16343					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16344					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16345					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16346					;[XWD 252525,252525] AND [XWD 525252,525253] IS MOVED FROM AC, AC+1 TO MEMORY
 16347					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16348					;525252(TSTWD) AND 525252(TSTWD+1) ARE THEN COMPARED WITH THE
 16349					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16350					;WORDS [XWD 252525,252525] AND [XWD 525252,525253], RESPECTIVELY.
 16351					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16352
 16353					Q14600:	DMOVE	AC,[XWD 707070,707070
 16354	046436	120 04 0 00 070661 			    XWD 070707,070707]
 16355	046437	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16356						DMOVE	AC,[XWD 252525,252525
 16357	046440	120 04 0 00 070704 			    XWD 525252,525253]		;INITIALIZE AC,AC+1
 16358						DMOVN	AC+5,[XWD 252525,252525
 16359	046441	121 11 0 00 070704 			      XWD 525252,525253]		;SET-UP TO CHECK RESULTS
 16360	046442	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16361										;TO MEMORY (TSTWD, TSTWD+1)
 16362	046443	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16363	046444	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16364						ER5	AC,14601			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16365	046445	005 04 0 00 014601 	F 252525,252525
 16366	046446	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16367	046447	006 05 0 00 014602 		ER6	AC+1,14602		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 525252,525253
 16368	046450	321 10 0 00 046436 		JUMPL	SAC,Q14600		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 50
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0                                        SEQ 0417

 16369					SUBTTL	DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
 16370
 16371					;CHECK DMOVNM FOR AC=17 AND AC+1=0
 16372
 16373			000017			AC=17
 16374			000003			SAC=<AC+4>&17
 16375						SAVEAC	(1,1)^
 16376	046451	201 03 0 00 046451 		MOVEI	SAC,.
 16377	046452	202 03 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 16378	046453	201 03 0 00 000003 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 16379	046454	202 03 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 16380
 16381						DMVNM17	1470,0,0,0,1^
 16382					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16383					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16384					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16385					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16386					;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
 16387					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16388					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16389					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16390					;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
 16391					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16392
 16393					Q14700:	DMOVE	AC,[XWD 707070,707070
 16394	046455	120 17 0 00 070661 			    XWD 070707,070707]
 16395	046456	124 17 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16396						DMOVE	AC,[XWD 0,0
 16397	046457	120 17 0 00 070674 			    XWD 0,1]		;INITIALIZE AC,AC+1
 16398						DMOVN	AC+5,[XWD 0,0
 16399	046460	121 04 0 00 070674 			      XWD 0,1]		;SET-UP TO CHECK RESULTS
 16400	046461	125 17 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16401										;TO MEMORY (TSTWD, TSTWD+1)
 16402
 16403	046462	120 17 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16404	046463	316 17 0 00 000004 		CAMN	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16405	046464	254 00 0 00 046470 		JRST	.+4
 16406	046465	202 17 0 00 000016 		MOVEM	AC,AC-1			;SAVE BAD WORD
 16407	046466	200 17 0 00 074005 		MOVE	AC,%SV17		;RESTORE P
 16408	046467	005 16 0 00 014701 		ER5	AC-1,14701		;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
 16409	046470	316 00 0 00 000005 		CAMN	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16410	046471	254 00 0 00 046475 		JRST	.+4			;HERE IF TESTS OK
 16411	046472	202 17 0 00 000016 		MOVEM	AC,AC-1			;SAVE BAD WORD
 16412	046473	200 17 0 00 074005 		MOVE	AC,%SV17
 16413	046474	006 00 0 00 014702 		ER6	AC+1,14702		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
 16414	046475	200 17 0 00 074005 		MOVE	AC,%SV17
 16415	046476	321 03 0 00 046455 		JUMPL	SAC,Q14700		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS                                     SEQ 0418

 16416					SUBTTL	DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
 16417
 16418					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16419
 16420			000004			AC=4
 16421			000010			SAC=<AC+4>&17
 16422						SAVEAC	(1,1)^
 16423	046477	201 10 0 00 046477 		MOVEI	SAC,.
 16424	046500	202 10 0 00 030051 		MOVEM	SAC,TESTPC		;SETUP SUBTEST PC
 16425	046501	201 10 0 00 000010 		MOVEI	SAC,SAC			;INFORM ERROR ROUTINE WHICH
 16426	046502	202 10 0 00 073775 		MOVEM	SAC,ERRLOP#		;AC IS USED FOR ITERATION^
 16427			000002			E=AC-2
 16428
 16429			015000		SN=15000
 16430			000001			E=<E-1>&17
 16431
 16432					Q15000:	REPEAT	^D5,<
 16433					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16434					
 16435					SN=SN+1
 16436						E=<E+1>&17
 16437						DMOVE	E,[XWD 707070,707070
 16438							  XWD 070707,070707]	;INITIALIZE E,E+1
 16439						DMOVE	AC,[XWD 0,0
 16440							  XWD 0,-1]		;INITIALIZE AC,AC+1
 16441						DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16442						IFE	<E-<AC+1>>,<
 16443						SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16444						MOVNM	AC+5,<AC+6>&17>
 16445						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16446					ORY
 16447						CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16448						ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16449						CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16450						ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16451						IFN	<E-<AC+1>>,<
 16452						JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16453						IFE	<E-<AC+1>>,<
 16454						JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16455					>
 16456
 16457					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16458
 16459			015001		SN=SN+1
 16460			000002			E=<E+1>&17
 16461						DMOVE	E,[XWD 707070,707070
 16462	046503	120 02 0 00 070661 			  XWD 070707,070707]	;INITIALIZE E,E+1
 16463						DMOVE	AC,[XWD 0,0
 16464	046504	120 04 0 00 070707 			  XWD 0,-1]		;INITIALIZE AC,AC+1
 16465	046505	121 11 0 00 000004 		DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16466						IFE	<E-<AC+1>>,<
 16467						SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16468						MOVNM	AC+5,<AC+6>&17>
 16469						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16470	046506	125 04 0 00 000002 	ORY
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS                                     SEQ 0419

 16471	046507	312 02 0 00 000011 		CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16472	046510	005 02 0 00 015001 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16473	046511	312 03 0 00 000012 		CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16474	046512	006 03 0 00 015001 		ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16475						IFN	<E-<AC+1>>,<
 16476	046513	321 10 0 00 046503 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16477						IFE	<E-<AC+1>>,<
 16478						JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16479
 16480
 16481					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16482
 16483			015002		SN=SN+1
 16484			000003			E=<E+1>&17
 16485						DMOVE	E,[XWD 707070,707070
 16486	046514	120 03 0 00 070661 			  XWD 070707,070707]	;INITIALIZE E,E+1
 16487						DMOVE	AC,[XWD 0,0
 16488	046515	120 04 0 00 070707 			  XWD 0,-1]		;INITIALIZE AC,AC+1
 16489	046516	121 11 0 00 000004 		DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16490						IFE	<E-<AC+1>>,<
 16491						SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16492						MOVNM	AC+5,<AC+6>&17>
 16493						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16494	046517	125 04 0 00 000003 	ORY
 16495	046520	312 03 0 00 000011 		CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16496	046521	005 03 0 00 015002 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16497	046522	312 04 0 00 000012 		CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16498	046523	006 04 0 00 015002 		ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16499						IFN	<E-<AC+1>>,<
 16500	046524	321 10 0 00 046514 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16501						IFE	<E-<AC+1>>,<
 16502						JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16503
 16504
 16505					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16506
 16507			015003		SN=SN+1
 16508			000004			E=<E+1>&17
 16509						DMOVE	E,[XWD 707070,707070
 16510	046525	120 04 0 00 070661 			  XWD 070707,070707]	;INITIALIZE E,E+1
 16511						DMOVE	AC,[XWD 0,0
 16512	046526	120 04 0 00 070707 			  XWD 0,-1]		;INITIALIZE AC,AC+1
 16513	046527	121 11 0 00 000004 		DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16514						IFE	<E-<AC+1>>,<
 16515						SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16516						MOVNM	AC+5,<AC+6>&17>
 16517						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16518	046530	125 04 0 00 000004 	ORY
 16519	046531	312 04 0 00 000011 		CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16520	046532	005 04 0 00 015003 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16521	046533	312 05 0 00 000012 		CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16522	046534	006 05 0 00 015003 		ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16523						IFN	<E-<AC+1>>,<
 16524	046535	321 10 0 00 046525 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16525						IFE	<E-<AC+1>>,<
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 51-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS                                     SEQ 0420

 16526						JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16527
 16528
 16529					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16530
 16531			015004		SN=SN+1
 16532			000005			E=<E+1>&17
 16533						DMOVE	E,[XWD 707070,707070
 16534	046536	120 05 0 00 070661 			  XWD 070707,070707]	;INITIALIZE E,E+1
 16535						DMOVE	AC,[XWD 0,0
 16536	046537	120 04 0 00 070707 			  XWD 0,-1]		;INITIALIZE AC,AC+1
 16537	046540	121 11 0 00 000004 		DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16538						IFE	<E-<AC+1>>,<
 16539	046541	336 00 0 00 030041 		SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16540	046542	212 11 0 00 000012 		MOVNM	AC+5,<AC+6>&17>
 16541						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16542	046543	125 04 0 00 000005 	ORY
 16543	046544	312 05 0 00 000011 		CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16544	046545	005 05 0 00 015004 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16545	046546	312 06 0 00 000012 		CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16546	046547	006 06 0 00 015004 		ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16547						IFN	<E-<AC+1>>,<
 16548						JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16549						IFE	<E-<AC+1>>,<
 16550	046550	321 10 0 00 046536 		JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16551
 16552
 16553					;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
 16554
 16555			015005		SN=SN+1
 16556			000006			E=<E+1>&17
 16557						DMOVE	E,[XWD 707070,707070
 16558	046551	120 06 0 00 070661 			  XWD 070707,070707]	;INITIALIZE E,E+1
 16559						DMOVE	AC,[XWD 0,0
 16560	046552	120 04 0 00 070707 			  XWD 0,-1]		;INITIALIZE AC,AC+1
 16561	046553	121 11 0 00 000004 		DMOVN	AC+5,AC			;INITIALIZE TEST RESULTS
 16562						IFE	<E-<AC+1>>,<
 16563						SKIPN	KLFLG			;DON'T DO NEXT INST IF KL10
 16564						MOVNM	AC+5,<AC+6>&17>
 16565						DMOVNM	AC,E			;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
 16566	046554	125 04 0 00 000006 	ORY
 16567	046555	312 06 0 00 000011 		CAME	E,AC+5			;WAS 'E' UPDATED CORRECTLY?
 16568	046556	005 06 0 00 015005 		ER5	E,SN			;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
 16569	046557	312 07 0 00 000012 		CAME	E+1,AC+6		;WAS 'E+1' UPDATED CORRECTLY?
 16570	046560	006 07 0 00 015005 		ER6	E+1,SN			;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
 16571						IFN	<E-<AC+1>>,<
 16572	046561	321 10 0 00 046551 		JUMPL	SAC,.-^D8		;LOOP ON ERROR SWITCH>
 16573						IFE	<E-<AC+1>>,<
 16574						JUMPL	SAC,.-^D10		;LOOP ON ERROR SWITCH>
 16575
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0421

 16576					SUBTTL	DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
 16577
 16578						DMVNM	1510,400000,0,0,0^
 16579					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16580					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16581					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16582					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16583					;[XWD 400000,0] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
 16584					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16585					;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
 16586					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16587					;WORDS [XWD 400000,0] AND [XWD 0,0], RESPECTIVELY.
 16588					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16589
 16590					Q15100:	DMOVE	AC,[XWD 707070,707070
 16591	046562	120 04 0 00 070661 			    XWD 070707,070707]
 16592	046563	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16593						DMOVE	AC,[XWD 400000,0
 16594	046564	120 04 0 00 070711 			    XWD 0,0]		;INITIALIZE AC,AC+1
 16595						DMOVN	AC+5,[XWD 400000,0
 16596	046565	121 11 0 00 070711 			      XWD 0,0]		;SET-UP TO CHECK RESULTS
 16597	046566	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16598										;TO MEMORY (TSTWD, TSTWD+1)
 16599	046567	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16600	046570	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16601						ER5	AC,15101			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16602	046571	005 04 0 00 015101 	F 400000,0
 16603	046572	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16604	046573	006 05 0 00 015102 		ER6	AC+1,15102		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
 16605	046574	321 10 0 00 046562 		JUMPL	SAC,Q15100		;LOOP ON ERROR SWITCH^
 16606					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0422

 16607						DMVNM	1520,0,0,400000,0^
 16608					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16609					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16610					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16611					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16612					;[XWD 0,0] AND [XWD 400000,0] IS MOVED FROM AC, AC+1 TO MEMORY
 16613					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16614					;400000(TSTWD) AND 400000(TSTWD+1) ARE THEN COMPARED WITH THE
 16615					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16616					;WORDS [XWD 0,0] AND [XWD 400000,0], RESPECTIVELY.
 16617					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16618
 16619					Q15200:	DMOVE	AC,[XWD 707070,707070
 16620	046575	120 04 0 00 070661 			    XWD 070707,070707]
 16621	046576	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16622						DMOVE	AC,[XWD 0,0
 16623	046577	120 04 0 00 070712 			    XWD 400000,0]		;INITIALIZE AC,AC+1
 16624						DMOVN	AC+5,[XWD 0,0
 16625	046600	121 11 0 00 070712 			      XWD 400000,0]		;SET-UP TO CHECK RESULTS
 16626	046601	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16627										;TO MEMORY (TSTWD, TSTWD+1)
 16628	046602	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16629	046603	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16630						ER5	AC,15201			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16631	046604	005 04 0 00 015201 	F 0,0
 16632	046605	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16633	046606	006 05 0 00 015202 		ER6	AC+1,15202		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
 16634	046607	321 10 0 00 046575 		JUMPL	SAC,Q15200		;LOOP ON ERROR SWITCH^
 16635					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 52-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS                                SEQ 0423

 16636						DMVNM	1530,400000,0,400000,0^
 16637					;THIS MACRO TESTS THE DMOVNM INSTRUCTION
 16638					;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
 16639					;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
 16640					;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
 16641					;[XWD 400000,0] AND [XWD 400000,0] IS MOVED FROM AC, AC+1 TO MEMORY
 16642					;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
 16643					;400000(TSTWD) AND 400000(TSTWD+1) ARE THEN COMPARED WITH THE
 16644					;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
 16645					;WORDS [XWD 400000,0] AND [XWD 400000,0], RESPECTIVELY.
 16646					;THE TEST PASSES IF THESE COMPARISONS AGREE.
 16647
 16648					Q15300:	DMOVE	AC,[XWD 707070,707070
 16649	046610	120 04 0 00 070661 			    XWD 070707,070707]
 16650	046611	124 04 0 00 070346 		DMOVEM	AC,TSTWD		;INITIALIZE TEST WORDS
 16651						DMOVE	AC,[XWD 400000,0
 16652	046612	120 04 0 00 070713 			    XWD 400000,0]		;INITIALIZE AC,AC+1
 16653						DMOVN	AC+5,[XWD 400000,0
 16654	046613	121 11 0 00 070713 			      XWD 400000,0]		;SET-UP TO CHECK RESULTS
 16655	046614	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
 16656										;TO MEMORY (TSTWD, TSTWD+1)
 16657	046615	120 04 0 00 070346 		DMOVE	AC,TSTWD		;PUT TEST RESULTS IN AC,AC+1
 16658	046616	312 04 0 00 000011 		CAME	AC,<AC+5>&17		;WAS TSTWD LOADED CORRECTLY?
 16659						ER5	AC,15301			;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
 16660	046617	005 04 0 00 015301 	F 400000,0
 16661	046620	312 05 0 00 000012 		CAME	AC+1,<AC+6>&17		;WAS TSTWD+1 LOADED CORRECTLY?
 16662	046621	006 05 0 00 015302 		ER6	AC+1,15302		;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
 16663	046622	321 10 0 00 046610 		JUMPL	SAC,Q15300		;LOOP ON ERROR SWITCH^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 53
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS                             SEQ 0424

 16664					SUBTTL	DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
 16665
 16666						DMVNMF	1540,0,0,0,0,300000,310000,300000,310000^
 16667					;**KI10**
 16668					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 16669					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16670					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16671					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 16672
 16673					;**KL10**
 16674					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 16675					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16676					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16677					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 16678
 16679	046623	255 17 0 00 046624 	Q15400:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 16680						DMOVE	AC,[XWD 0,0
 16681	046624	120 04 0 00 070663 			    XWD 0,0]		;SETUP INITIAL
 16682	046625	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*DMOVNM TEST
 16683	046626	265 04 0 00 046627 		JSP	AC,.+1			;READ FLAGS
 16684	046627	621 04 0 00 027777 	Q15401:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 16685	046630	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 16686	046631	254 00 0 00 046643 		JRST	Q15404			;YES
 16687	046632	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 16688	046633	254 00 0 00 046640 		JRST	Q15403			;YES
 16689					;KI10 EXEC MODE
 16690	046634	312 04 0 00 070731 		CAME	AC,[300000,,Q15401]
 16691	046635	013 04 0 00 015401 		ER13	AC,15401			;FAIL IF OVFL OR CRY0,1 FLG SET
 16692	046636	321 10 0 00 046623 	Q15402:	JUMPL	SAC,Q15400		;LOOP ON ERROR SWITCH
 16693	046637	254 00 0 00 046653 		JRST	Q15406
 16694					;KL10 EXEC MODE
 16695	046640	312 04 0 00 070731 	Q15403:	CAME	AC,[300000,,Q15401]
 16696	046641	013 04 0 00 015401 		ER13	AC,15401			;FAIL IF FLAGS NOT SET
 16697	046642	254 00 0 00 046636 		JRST	Q15402
 16698					;KL10/KI10 USER MODE
 16699	046643	332 00 0 00 030041 	Q15404:	SKIPE	KLFLG			;KL10 ?
 16700	046644	254 00 0 00 046650 		JRST	Q15405			;YES
 16701					;KI10 USER MODE
 16702	046645	312 04 0 00 070732 		CAME	AC,[310000,,Q15401]
 16703	046646	013 04 0 00 015401 		ER13	AC,15401			;FAIL IF ANY FLAGS SET
 16704	046647	254 00 0 00 046636 		JRST	Q15402
 16705					;KL10 USER MODE
 16706	046650	312 04 0 00 070732 	Q15405:	CAME	AC,[310000,,Q15401]
 16707	046651	013 04 0 00 015401 		ER13	AC,15401			;FAIL IF FLAGS NOT SET
 16708	046652	254 00 0 00 046636 		JRST	Q15402
 16709
 16710	046653	254 00 0 00 046654 	Q15406:	JRST	.+1^
 16711					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 53-1
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS                             SEQ 0425

 16712						DMVNMF	1550,400000,0,0,0,500000,510000,100000,510000^
 16713					;**KI10**
 16714					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 16715					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16716					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16717					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 16718
 16719					;**KL10**
 16720					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 16721					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16722					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16723					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 16724
 16725	046654	255 17 0 00 046655 	Q15500:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 16726						DMOVE	AC,[XWD 400000,0
 16727	046655	120 04 0 00 070711 			    XWD 0,0]		;SETUP INITIAL
 16728	046656	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*DMOVNM TEST
 16729	046657	265 04 0 00 046660 		JSP	AC,.+1			;READ FLAGS
 16730	046660	621 04 0 00 027777 	Q15501:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 16731	046661	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 16732	046662	254 00 0 00 046674 		JRST	Q15504			;YES
 16733	046663	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 16734	046664	254 00 0 00 046671 		JRST	Q15503			;YES
 16735					;KI10 EXEC MODE
 16736	046665	312 04 0 00 070733 		CAME	AC,[500000,,Q15501]
 16737	046666	013 04 0 00 015501 		ER13	AC,15501			;FAIL IF OVFL OR CRY0,1 FLG SET
 16738	046667	321 10 0 00 046654 	Q15502:	JUMPL	SAC,Q15500		;LOOP ON ERROR SWITCH
 16739	046670	254 00 0 00 046704 		JRST	Q15506
 16740					;KL10 EXEC MODE
 16741	046671	312 04 0 00 070734 	Q15503:	CAME	AC,[100000,,Q15501]
 16742	046672	013 04 0 00 015501 		ER13	AC,15501			;FAIL IF FLAGS NOT SET
 16743	046673	254 00 0 00 046667 		JRST	Q15502
 16744					;KL10/KI10 USER MODE
 16745	046674	332 00 0 00 030041 	Q15504:	SKIPE	KLFLG			;KL10 ?
 16746	046675	254 00 0 00 046701 		JRST	Q15505			;YES
 16747					;KI10 USER MODE
 16748	046676	312 04 0 00 070735 		CAME	AC,[510000,,Q15501]
 16749	046677	013 04 0 00 015501 		ER13	AC,15501			;FAIL IF ANY FLAGS SET
 16750	046700	254 00 0 00 046667 		JRST	Q15502
 16751					;KL10 USER MODE
 16752	046701	312 04 0 00 070735 	Q15505:	CAME	AC,[510000,,Q15501]
 16753	046702	013 04 0 00 015501 		ER13	AC,15501			;FAIL IF FLAGS NOT SET
 16754	046703	254 00 0 00 046667 		JRST	Q15502
 16755
 16756	046704	254 00 0 00 046705 	Q15506:	JRST	.+1^
 16757					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 53-2
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS                             SEQ 0426

 16758						DMVNMF	1560,0,0,400000,0,300000,310000,300000,310000^
 16759					;**KI10**
 16760					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 16761					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16762					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16763					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 16764
 16765					;**KL10**
 16766					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 16767					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16768					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16769					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 16770
 16771	046705	255 17 0 00 046706 	Q15600:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 16772						DMOVE	AC,[XWD 0,0
 16773	046706	120 04 0 00 070712 			    XWD 400000,0]		;SETUP INITIAL
 16774	046707	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*DMOVNM TEST
 16775	046710	265 04 0 00 046711 		JSP	AC,.+1			;READ FLAGS
 16776	046711	621 04 0 00 027777 	Q15601:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 16777	046712	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 16778	046713	254 00 0 00 046725 		JRST	Q15604			;YES
 16779	046714	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 16780	046715	254 00 0 00 046722 		JRST	Q15603			;YES
 16781					;KI10 EXEC MODE
 16782	046716	312 04 0 00 070736 		CAME	AC,[300000,,Q15601]
 16783	046717	013 04 0 00 015601 		ER13	AC,15601			;FAIL IF OVFL OR CRY0,1 FLG SET
 16784	046720	321 10 0 00 046705 	Q15602:	JUMPL	SAC,Q15600		;LOOP ON ERROR SWITCH
 16785	046721	254 00 0 00 046735 		JRST	Q15606
 16786					;KL10 EXEC MODE
 16787	046722	312 04 0 00 070736 	Q15603:	CAME	AC,[300000,,Q15601]
 16788	046723	013 04 0 00 015601 		ER13	AC,15601			;FAIL IF FLAGS NOT SET
 16789	046724	254 00 0 00 046720 		JRST	Q15602
 16790					;KL10/KI10 USER MODE
 16791	046725	332 00 0 00 030041 	Q15604:	SKIPE	KLFLG			;KL10 ?
 16792	046726	254 00 0 00 046732 		JRST	Q15605			;YES
 16793					;KI10 USER MODE
 16794	046727	312 04 0 00 070737 		CAME	AC,[310000,,Q15601]
 16795	046730	013 04 0 00 015601 		ER13	AC,15601			;FAIL IF ANY FLAGS SET
 16796	046731	254 00 0 00 046720 		JRST	Q15602
 16797					;KL10 USER MODE
 16798	046732	312 04 0 00 070737 	Q15605:	CAME	AC,[310000,,Q15601]
 16799	046733	013 04 0 00 015601 		ER13	AC,15601			;FAIL IF FLAGS NOT SET
 16800	046734	254 00 0 00 046720 		JRST	Q15602
 16801
 16802	046735	254 00 0 00 046736 	Q15606:	JRST	.+1^
 16803					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 53-3
DFKCA3	MAC	 3-Oct-80 13:56		DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS                             SEQ 0427

 16804						DMVNMF	1570,400000,0,400000,0,500000,510000,100000,510000^
 16805					;**KI10**
 16806					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
 16807					;OR CARRY FLAGS ON THE KI10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16808					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16809					;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
 16810
 16811					;**KL10**
 16812					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
 16813					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
 16814					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
 16815					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
 16816
 16817	046736	255 17 0 00 046737 	Q15700:	JFCL	17,.+1			;CLEAR OVFL AND CRY0,1 FLAGS
 16818						DMOVE	AC,[XWD 400000,0
 16819	046737	120 04 0 00 070713 			    XWD 400000,0]		;SETUP INITIAL
 16820	046740	125 04 0 00 070346 		DMOVNM	AC,TSTWD		;*DMOVNM TEST
 16821	046741	265 04 0 00 046742 		JSP	AC,.+1			;READ FLAGS
 16822	046742	621 04 0 00 027777 	Q15701:	TLZ	AC,027777		;CLEAR EXTRA JUNK
 16823	046743	603 04 0 00 010000 		TLNE	AC,USERF		;IN USER MODE ?
 16824	046744	254 00 0 00 046756 		JRST	Q15704			;YES
 16825	046745	332 00 0 00 030041 		SKIPE	KLFLG			;KL10 ?
 16826	046746	254 00 0 00 046753 		JRST	Q15703			;YES
 16827					;KI10 EXEC MODE
 16828	046747	312 04 0 00 070740 		CAME	AC,[500000,,Q15701]
 16829	046750	013 04 0 00 015701 		ER13	AC,15701			;FAIL IF OVFL OR CRY0,1 FLG SET
 16830	046751	321 10 0 00 046736 	Q15702:	JUMPL	SAC,Q15700		;LOOP ON ERROR SWITCH
 16831	046752	254 00 0 00 046766 		JRST	Q15706
 16832					;KL10 EXEC MODE
 16833	046753	312 04 0 00 070741 	Q15703:	CAME	AC,[100000,,Q15701]
 16834	046754	013 04 0 00 015701 		ER13	AC,15701			;FAIL IF FLAGS NOT SET
 16835	046755	254 00 0 00 046751 		JRST	Q15702
 16836					;KL10/KI10 USER MODE
 16837	046756	332 00 0 00 030041 	Q15704:	SKIPE	KLFLG			;KL10 ?
 16838	046757	254 00 0 00 046763 		JRST	Q15705			;YES
 16839					;KI10 USER MODE
 16840	046760	312 04 0 00 070742 		CAME	AC,[510000,,Q15701]
 16841	046761	013 04 0 00 015701 		ER13	AC,15701			;FAIL IF ANY FLAGS SET
 16842	046762	254 00 0 00 046751 		JRST	Q15702
 16843					;KL10 USER MODE
 16844	046763	312 04 0 00 070742 	Q15705:	CAME	AC,[510000,,Q15701]
 16845	046764	013 04 0 00 015701 		ER13	AC,15701			;FAIL IF FLAGS NOT SET
 16846	046765	254 00 0 00 046751 		JRST	Q15702
 16847
 16848	046766	254 00 0 00 046767 	Q15706:	JRST	.+1^
 16849
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0428

 16850					SUBTTL	TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
 16851
 16852					DEFINE	SAVEAC	(A,B)<
 16853						MOVEI	AC+4,.
 16854						MOVEM	AC+4,TESTPC		;SETUP SUBTEST PC
 16855						MOVEI	AC+4,<AC+4>&17		;INFORM ERROR ROUTINE WHICH
 16856						MOVEM	AC+4,ERRLOP#		;AC IS USED FOR ITERATION>
 16857
 16858			000004			AC=4
 16859	046767				CD00:	SAVEAC	(1,1)^
 16860	046767	201 10 0 00 046767 		MOVEI	AC+4,.
 16861	046770	202 10 0 00 030051 		MOVEM	AC+4,TESTPC		;SETUP SUBTEST PC
 16862	046771	201 10 0 00 000010 		MOVEI	AC+4,<AC+4>&17		;INFORM ERROR ROUTINE WHICH
 16863	046772	202 10 0 00 073775 		MOVEM	AC+4,ERRLOP#		;AC IS USED FOR ITERATION^
 16864
 16865					;ADD A WORD OF ALL ZEROS TO A WORD OF ALL ZEROS
 16866						DFA	1,0,0,0,0,0,0,0,0,0,0,0,0^
 16867					R100:	DMOVE	AC,[0,,0
 16868	046773	120 04 0 00 070663 			0,,0]
 16869						DFAD	AC,[0,,0
 16870	046774	110 04 0 00 070663 			0,,0]
 16871	046775	312 04 0 00 070660 		CAME	AC,[0,,0]
 16872	046776	003 04 0 00 000101 		ER3	AC,101
 16873	046777	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16874	047000	004 05 0 00 000101 		ER4	AC+1,101
 16875	047001	321 10 0 00 046773 		JUMPL	AC+4,R100		;LOOP ON ERROR SWITCH^
 16876					PAGE
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-1
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0429

 16877					;RIPPLE ONES TESTS (TO A WORD OF ALL ZEROS, ADD A RIPPLED ONE)
 16878			000200		T=200
 16879			001000			XX=1000
 16880			201400			ZZ=201400
 16881
 16882					R200:	REPEAT	^D9,
 16883					<T=T+1
 16884						XX=XX/2
 16885						ZZ=ZZ-1000
 16886						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0
 16887					>
 16888			000201		T=T+1
 16889			000400			XX=XX/2
 16890			200400			ZZ=ZZ-1000
 16891						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16892						DMOVE	AC,[200000,,0
 16893	047002	120 04 0 00 070743 			0,,0]
 16894						DFAD	AC,[200000+XX,,0
 16895	047003	110 04 0 00 070745 			0,,0]
 16896	047004	312 04 0 00 070614 		CAME	AC,[ZZ,,0]
 16897	047005	003 04 0 00 000201 		ER3	AC,T
 16898	047006	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16899	047007	004 05 0 00 000201 		ER4	AC+1,T
 16900	047010	321 10 0 00 047002 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16901
 16902			000202		T=T+1
 16903			000200			XX=XX/2
 16904			177400			ZZ=ZZ-1000
 16905						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16906						DMOVE	AC,[200000,,0
 16907	047011	120 04 0 00 070743 			0,,0]
 16908						DFAD	AC,[200000+XX,,0
 16909	047012	110 04 0 00 070747 			0,,0]
 16910	047013	312 04 0 00 070636 		CAME	AC,[ZZ,,0]
 16911	047014	003 04 0 00 000202 		ER3	AC,T
 16912	047015	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16913	047016	004 05 0 00 000202 		ER4	AC+1,T
 16914	047017	321 10 0 00 047011 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16915
 16916			000203		T=T+1
 16917			000100			XX=XX/2
 16918			176400			ZZ=ZZ-1000
 16919						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16920						DMOVE	AC,[200000,,0
 16921	047020	120 04 0 00 070743 			0,,0]
 16922						DFAD	AC,[200000+XX,,0
 16923	047021	110 04 0 00 070751 			0,,0]
 16924	047022	312 04 0 00 070753 		CAME	AC,[ZZ,,0]
 16925	047023	003 04 0 00 000203 		ER3	AC,T
 16926	047024	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16927	047025	004 05 0 00 000203 		ER4	AC+1,T
 16928	047026	321 10 0 00 047020 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16929
 16930			000204		T=T+1
 16931			000040			XX=XX/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-2
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0430

 16932			175400			ZZ=ZZ-1000
 16933						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16934						DMOVE	AC,[200000,,0
 16935	047027	120 04 0 00 070743 			0,,0]
 16936						DFAD	AC,[200000+XX,,0
 16937	047030	110 04 0 00 070754 			0,,0]
 16938	047031	312 04 0 00 070756 		CAME	AC,[ZZ,,0]
 16939	047032	003 04 0 00 000204 		ER3	AC,T
 16940	047033	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16941	047034	004 05 0 00 000204 		ER4	AC+1,T
 16942	047035	321 10 0 00 047027 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16943
 16944			000205		T=T+1
 16945			000020			XX=XX/2
 16946			174400			ZZ=ZZ-1000
 16947						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16948						DMOVE	AC,[200000,,0
 16949	047036	120 04 0 00 070743 			0,,0]
 16950						DFAD	AC,[200000+XX,,0
 16951	047037	110 04 0 00 070757 			0,,0]
 16952	047040	312 04 0 00 070761 		CAME	AC,[ZZ,,0]
 16953	047041	003 04 0 00 000205 		ER3	AC,T
 16954	047042	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16955	047043	004 05 0 00 000205 		ER4	AC+1,T
 16956	047044	321 10 0 00 047036 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16957
 16958			000206		T=T+1
 16959			000010			XX=XX/2
 16960			173400			ZZ=ZZ-1000
 16961						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16962						DMOVE	AC,[200000,,0
 16963	047045	120 04 0 00 070743 			0,,0]
 16964						DFAD	AC,[200000+XX,,0
 16965	047046	110 04 0 00 070762 			0,,0]
 16966	047047	312 04 0 00 070764 		CAME	AC,[ZZ,,0]
 16967	047050	003 04 0 00 000206 		ER3	AC,T
 16968	047051	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16969	047052	004 05 0 00 000206 		ER4	AC+1,T
 16970	047053	321 10 0 00 047045 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16971
 16972			000207		T=T+1
 16973			000004			XX=XX/2
 16974			172400			ZZ=ZZ-1000
 16975						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16976						DMOVE	AC,[200000,,0
 16977	047054	120 04 0 00 070743 			0,,0]
 16978						DFAD	AC,[200000+XX,,0
 16979	047055	110 04 0 00 070765 			0,,0]
 16980	047056	312 04 0 00 070767 		CAME	AC,[ZZ,,0]
 16981	047057	003 04 0 00 000207 		ER3	AC,T
 16982	047060	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16983	047061	004 05 0 00 000207 		ER4	AC+1,T
 16984	047062	321 10 0 00 047054 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16985
 16986			000210		T=T+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-3
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0431

 16987			000002			XX=XX/2
 16988			171400			ZZ=ZZ-1000
 16989						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 16990						DMOVE	AC,[200000,,0
 16991	047063	120 04 0 00 070743 			0,,0]
 16992						DFAD	AC,[200000+XX,,0
 16993	047064	110 04 0 00 070770 			0,,0]
 16994	047065	312 04 0 00 070772 		CAME	AC,[ZZ,,0]
 16995	047066	003 04 0 00 000210 		ER3	AC,T
 16996	047067	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 16997	047070	004 05 0 00 000210 		ER4	AC+1,T
 16998	047071	321 10 0 00 047063 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 16999
 17000			000211		T=T+1
 17001			000001			XX=XX/2
 17002			170400			ZZ=ZZ-1000
 17003						DFARP	T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
 17004						DMOVE	AC,[200000,,0
 17005	047072	120 04 0 00 070743 			0,,0]
 17006						DFAD	AC,[200000+XX,,0
 17007	047073	110 04 0 00 070773 			0,,0]
 17008	047074	312 04 0 00 070775 		CAME	AC,[ZZ,,0]
 17009	047075	003 04 0 00 000211 		ER3	AC,T
 17010	047076	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17011	047077	004 05 0 00 000211 		ER4	AC+1,T
 17012	047100	321 10 0 00 047072 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17013
 17014
 17015		000001	000000			XX=1000000
 17016
 17017						REPEAT	^D18,
 17018					<T=T+1
 17019						XX=XX/2
 17020						ZZ=ZZ-1000
 17021						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0
 17022					>
 17023			000212		T=T+1
 17024			400000			XX=XX/2
 17025			167400			ZZ=ZZ-1000
 17026						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17027						DMOVE	AC,[200000,,0
 17028	047101	120 04 0 00 070743 			0,,0]
 17029						DFAD	AC,[200000,,XX
 17030	047102	110 04 0 00 070776 			0,,0]
 17031	047103	312 04 0 00 071000 		CAME	AC,[ZZ,,0]
 17032	047104	003 04 0 00 000212 		ER3	AC,T
 17033	047105	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17034	047106	004 05 0 00 000212 		ER4	AC+1,T
 17035	047107	321 10 0 00 047101 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17036
 17037			000213		T=T+1
 17038			200000			XX=XX/2
 17039			166400			ZZ=ZZ-1000
 17040						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17041						DMOVE	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-4
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0432

 17042	047110	120 04 0 00 070743 			0,,0]
 17043						DFAD	AC,[200000,,XX
 17044	047111	110 04 0 00 071001 			0,,0]
 17045	047112	312 04 0 00 071003 		CAME	AC,[ZZ,,0]
 17046	047113	003 04 0 00 000213 		ER3	AC,T
 17047	047114	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17048	047115	004 05 0 00 000213 		ER4	AC+1,T
 17049	047116	321 10 0 00 047110 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17050
 17051			000214		T=T+1
 17052			100000			XX=XX/2
 17053			165400			ZZ=ZZ-1000
 17054						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17055						DMOVE	AC,[200000,,0
 17056	047117	120 04 0 00 070743 			0,,0]
 17057						DFAD	AC,[200000,,XX
 17058	047120	110 04 0 00 071004 			0,,0]
 17059	047121	312 04 0 00 071006 		CAME	AC,[ZZ,,0]
 17060	047122	003 04 0 00 000214 		ER3	AC,T
 17061	047123	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17062	047124	004 05 0 00 000214 		ER4	AC+1,T
 17063	047125	321 10 0 00 047117 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17064
 17065			000215		T=T+1
 17066			040000			XX=XX/2
 17067			164400			ZZ=ZZ-1000
 17068						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17069						DMOVE	AC,[200000,,0
 17070	047126	120 04 0 00 070743 			0,,0]
 17071						DFAD	AC,[200000,,XX
 17072	047127	110 04 0 00 071007 			0,,0]
 17073	047130	312 04 0 00 071011 		CAME	AC,[ZZ,,0]
 17074	047131	003 04 0 00 000215 		ER3	AC,T
 17075	047132	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17076	047133	004 05 0 00 000215 		ER4	AC+1,T
 17077	047134	321 10 0 00 047126 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17078
 17079			000216		T=T+1
 17080			020000			XX=XX/2
 17081			163400			ZZ=ZZ-1000
 17082						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17083						DMOVE	AC,[200000,,0
 17084	047135	120 04 0 00 070743 			0,,0]
 17085						DFAD	AC,[200000,,XX
 17086	047136	110 04 0 00 071012 			0,,0]
 17087	047137	312 04 0 00 071014 		CAME	AC,[ZZ,,0]
 17088	047140	003 04 0 00 000216 		ER3	AC,T
 17089	047141	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17090	047142	004 05 0 00 000216 		ER4	AC+1,T
 17091	047143	321 10 0 00 047135 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17092
 17093			000217		T=T+1
 17094			010000			XX=XX/2
 17095			162400			ZZ=ZZ-1000
 17096						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-5
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0433

 17097						DMOVE	AC,[200000,,0
 17098	047144	120 04 0 00 070743 			0,,0]
 17099						DFAD	AC,[200000,,XX
 17100	047145	110 04 0 00 071015 			0,,0]
 17101	047146	312 04 0 00 071017 		CAME	AC,[ZZ,,0]
 17102	047147	003 04 0 00 000217 		ER3	AC,T
 17103	047150	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17104	047151	004 05 0 00 000217 		ER4	AC+1,T
 17105	047152	321 10 0 00 047144 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17106
 17107			000220		T=T+1
 17108			004000			XX=XX/2
 17109			161400			ZZ=ZZ-1000
 17110						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17111						DMOVE	AC,[200000,,0
 17112	047153	120 04 0 00 070743 			0,,0]
 17113						DFAD	AC,[200000,,XX
 17114	047154	110 04 0 00 071020 			0,,0]
 17115	047155	312 04 0 00 071022 		CAME	AC,[ZZ,,0]
 17116	047156	003 04 0 00 000220 		ER3	AC,T
 17117	047157	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17118	047160	004 05 0 00 000220 		ER4	AC+1,T
 17119	047161	321 10 0 00 047153 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17120
 17121			000221		T=T+1
 17122			002000			XX=XX/2
 17123			160400			ZZ=ZZ-1000
 17124						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17125						DMOVE	AC,[200000,,0
 17126	047162	120 04 0 00 070743 			0,,0]
 17127						DFAD	AC,[200000,,XX
 17128	047163	110 04 0 00 071023 			0,,0]
 17129	047164	312 04 0 00 071025 		CAME	AC,[ZZ,,0]
 17130	047165	003 04 0 00 000221 		ER3	AC,T
 17131	047166	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17132	047167	004 05 0 00 000221 		ER4	AC+1,T
 17133	047170	321 10 0 00 047162 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17134
 17135			000222		T=T+1
 17136			001000			XX=XX/2
 17137			157400			ZZ=ZZ-1000
 17138						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17139						DMOVE	AC,[200000,,0
 17140	047171	120 04 0 00 070743 			0,,0]
 17141						DFAD	AC,[200000,,XX
 17142	047172	110 04 0 00 071026 			0,,0]
 17143	047173	312 04 0 00 071030 		CAME	AC,[ZZ,,0]
 17144	047174	003 04 0 00 000222 		ER3	AC,T
 17145	047175	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17146	047176	004 05 0 00 000222 		ER4	AC+1,T
 17147	047177	321 10 0 00 047171 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17148
 17149			000223		T=T+1
 17150			000400			XX=XX/2
 17151			156400			ZZ=ZZ-1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-6
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0434

 17152						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17153						DMOVE	AC,[200000,,0
 17154	047200	120 04 0 00 070743 			0,,0]
 17155						DFAD	AC,[200000,,XX
 17156	047201	110 04 0 00 071031 			0,,0]
 17157	047202	312 04 0 00 071033 		CAME	AC,[ZZ,,0]
 17158	047203	003 04 0 00 000223 		ER3	AC,T
 17159	047204	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17160	047205	004 05 0 00 000223 		ER4	AC+1,T
 17161	047206	321 10 0 00 047200 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17162
 17163			000224		T=T+1
 17164			000200			XX=XX/2
 17165			155400			ZZ=ZZ-1000
 17166						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17167						DMOVE	AC,[200000,,0
 17168	047207	120 04 0 00 070743 			0,,0]
 17169						DFAD	AC,[200000,,XX
 17170	047210	110 04 0 00 071034 			0,,0]
 17171	047211	312 04 0 00 071036 		CAME	AC,[ZZ,,0]
 17172	047212	003 04 0 00 000224 		ER3	AC,T
 17173	047213	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17174	047214	004 05 0 00 000224 		ER4	AC+1,T
 17175	047215	321 10 0 00 047207 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17176
 17177			000225		T=T+1
 17178			000100			XX=XX/2
 17179			154400			ZZ=ZZ-1000
 17180						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17181						DMOVE	AC,[200000,,0
 17182	047216	120 04 0 00 070743 			0,,0]
 17183						DFAD	AC,[200000,,XX
 17184	047217	110 04 0 00 071037 			0,,0]
 17185	047220	312 04 0 00 071041 		CAME	AC,[ZZ,,0]
 17186	047221	003 04 0 00 000225 		ER3	AC,T
 17187	047222	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17188	047223	004 05 0 00 000225 		ER4	AC+1,T
 17189	047224	321 10 0 00 047216 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17190
 17191			000226		T=T+1
 17192			000040			XX=XX/2
 17193			153400			ZZ=ZZ-1000
 17194						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17195						DMOVE	AC,[200000,,0
 17196	047225	120 04 0 00 070743 			0,,0]
 17197						DFAD	AC,[200000,,XX
 17198	047226	110 04 0 00 071042 			0,,0]
 17199	047227	312 04 0 00 071044 		CAME	AC,[ZZ,,0]
 17200	047230	003 04 0 00 000226 		ER3	AC,T
 17201	047231	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17202	047232	004 05 0 00 000226 		ER4	AC+1,T
 17203	047233	321 10 0 00 047225 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17204
 17205			000227		T=T+1
 17206			000020			XX=XX/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-7
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0435

 17207			152400			ZZ=ZZ-1000
 17208						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17209						DMOVE	AC,[200000,,0
 17210	047234	120 04 0 00 070743 			0,,0]
 17211						DFAD	AC,[200000,,XX
 17212	047235	110 04 0 00 071045 			0,,0]
 17213	047236	312 04 0 00 071047 		CAME	AC,[ZZ,,0]
 17214	047237	003 04 0 00 000227 		ER3	AC,T
 17215	047240	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17216	047241	004 05 0 00 000227 		ER4	AC+1,T
 17217	047242	321 10 0 00 047234 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17218
 17219			000230		T=T+1
 17220			000010			XX=XX/2
 17221			151400			ZZ=ZZ-1000
 17222						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17223						DMOVE	AC,[200000,,0
 17224	047243	120 04 0 00 070743 			0,,0]
 17225						DFAD	AC,[200000,,XX
 17226	047244	110 04 0 00 071050 			0,,0]
 17227	047245	312 04 0 00 071052 		CAME	AC,[ZZ,,0]
 17228	047246	003 04 0 00 000230 		ER3	AC,T
 17229	047247	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17230	047250	004 05 0 00 000230 		ER4	AC+1,T
 17231	047251	321 10 0 00 047243 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17232
 17233			000231		T=T+1
 17234			000004			XX=XX/2
 17235			150400			ZZ=ZZ-1000
 17236						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17237						DMOVE	AC,[200000,,0
 17238	047252	120 04 0 00 070743 			0,,0]
 17239						DFAD	AC,[200000,,XX
 17240	047253	110 04 0 00 071053 			0,,0]
 17241	047254	312 04 0 00 071055 		CAME	AC,[ZZ,,0]
 17242	047255	003 04 0 00 000231 		ER3	AC,T
 17243	047256	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17244	047257	004 05 0 00 000231 		ER4	AC+1,T
 17245	047260	321 10 0 00 047252 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17246
 17247			000232		T=T+1
 17248			000002			XX=XX/2
 17249			147400			ZZ=ZZ-1000
 17250						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17251						DMOVE	AC,[200000,,0
 17252	047261	120 04 0 00 070743 			0,,0]
 17253						DFAD	AC,[200000,,XX
 17254	047262	110 04 0 00 071056 			0,,0]
 17255	047263	312 04 0 00 071060 		CAME	AC,[ZZ,,0]
 17256	047264	003 04 0 00 000232 		ER3	AC,T
 17257	047265	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17258	047266	004 05 0 00 000232 		ER4	AC+1,T
 17259	047267	321 10 0 00 047261 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17260
 17261			000233		T=T+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-8
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0436

 17262			000001			XX=XX/2
 17263			146400			ZZ=ZZ-1000
 17264						DFARP	T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
 17265						DMOVE	AC,[200000,,0
 17266	047270	120 04 0 00 070743 			0,,0]
 17267						DFAD	AC,[200000,,XX
 17268	047271	110 04 0 00 071061 			0,,0]
 17269	047272	312 04 0 00 071063 		CAME	AC,[ZZ,,0]
 17270	047273	003 04 0 00 000233 		ER3	AC,T
 17271	047274	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17272	047275	004 05 0 00 000233 		ER4	AC+1,T
 17273	047276	321 10 0 00 047270 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17274
 17275
 17276			400000			XX=400000
 17277
 17278			000234		T=T+1
 17279						DFARP	T,200000,0,0,0,200000,0,XX,0,0,0,0,0^
 17280						DMOVE	AC,[200000,,0
 17281	047277	120 04 0 00 070743 			0,,0]
 17282						DFAD	AC,[200000,,0
 17283	047300	110 04 0 00 071064 			XX,,0]
 17284	047301	312 04 0 00 070660 		CAME	AC,[0,,0]
 17285	047302	003 04 0 00 000234 		ER3	AC,T
 17286	047303	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17287	047304	004 05 0 00 000234 		ER4	AC+1,T
 17288	047305	321 10 0 00 047277 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17289
 17290						REPEAT	^D17,
 17291					<T=T+1
 17292						XX=XX/2
 17293						ZZ=ZZ-1000
 17294						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0
 17295					>
 17296			000235		T=T+1
 17297			200000			XX=XX/2
 17298			145400			ZZ=ZZ-1000
 17299						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17300						DMOVE	AC,[200000,,0
 17301	047306	120 04 0 00 070743 			0,,0]
 17302						DFAD	AC,[200000,,0
 17303	047307	110 04 0 00 071066 			XX,,0]
 17304	047310	312 04 0 00 071070 		CAME	AC,[ZZ,,0]
 17305	047311	003 04 0 00 000235 		ER3	AC,T
 17306	047312	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17307	047313	004 05 0 00 000235 		ER4	AC+1,T
 17308	047314	321 10 0 00 047306 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17309
 17310			000236		T=T+1
 17311			100000			XX=XX/2
 17312			144400			ZZ=ZZ-1000
 17313						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17314						DMOVE	AC,[200000,,0
 17315	047315	120 04 0 00 070743 			0,,0]
 17316						DFAD	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-9
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0437

 17317	047316	110 04 0 00 071071 			XX,,0]
 17318	047317	312 04 0 00 071073 		CAME	AC,[ZZ,,0]
 17319	047320	003 04 0 00 000236 		ER3	AC,T
 17320	047321	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17321	047322	004 05 0 00 000236 		ER4	AC+1,T
 17322	047323	321 10 0 00 047315 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17323
 17324			000237		T=T+1
 17325			040000			XX=XX/2
 17326			143400			ZZ=ZZ-1000
 17327						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17328						DMOVE	AC,[200000,,0
 17329	047324	120 04 0 00 070743 			0,,0]
 17330						DFAD	AC,[200000,,0
 17331	047325	110 04 0 00 071074 			XX,,0]
 17332	047326	312 04 0 00 071076 		CAME	AC,[ZZ,,0]
 17333	047327	003 04 0 00 000237 		ER3	AC,T
 17334	047330	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17335	047331	004 05 0 00 000237 		ER4	AC+1,T
 17336	047332	321 10 0 00 047324 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17337
 17338			000240		T=T+1
 17339			020000			XX=XX/2
 17340			142400			ZZ=ZZ-1000
 17341						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17342						DMOVE	AC,[200000,,0
 17343	047333	120 04 0 00 070743 			0,,0]
 17344						DFAD	AC,[200000,,0
 17345	047334	110 04 0 00 071077 			XX,,0]
 17346	047335	312 04 0 00 071101 		CAME	AC,[ZZ,,0]
 17347	047336	003 04 0 00 000240 		ER3	AC,T
 17348	047337	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17349	047340	004 05 0 00 000240 		ER4	AC+1,T
 17350	047341	321 10 0 00 047333 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17351
 17352			000241		T=T+1
 17353			010000			XX=XX/2
 17354			141400			ZZ=ZZ-1000
 17355						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17356						DMOVE	AC,[200000,,0
 17357	047342	120 04 0 00 070743 			0,,0]
 17358						DFAD	AC,[200000,,0
 17359	047343	110 04 0 00 071102 			XX,,0]
 17360	047344	312 04 0 00 071104 		CAME	AC,[ZZ,,0]
 17361	047345	003 04 0 00 000241 		ER3	AC,T
 17362	047346	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17363	047347	004 05 0 00 000241 		ER4	AC+1,T
 17364	047350	321 10 0 00 047342 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17365
 17366			000242		T=T+1
 17367			004000			XX=XX/2
 17368			140400			ZZ=ZZ-1000
 17369						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17370						DMOVE	AC,[200000,,0
 17371	047351	120 04 0 00 070743 			0,,0]
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-10
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0438

 17372						DFAD	AC,[200000,,0
 17373	047352	110 04 0 00 071105 			XX,,0]
 17374	047353	312 04 0 00 071107 		CAME	AC,[ZZ,,0]
 17375	047354	003 04 0 00 000242 		ER3	AC,T
 17376	047355	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17377	047356	004 05 0 00 000242 		ER4	AC+1,T
 17378	047357	321 10 0 00 047351 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17379
 17380			000243		T=T+1
 17381			002000			XX=XX/2
 17382			137400			ZZ=ZZ-1000
 17383						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17384						DMOVE	AC,[200000,,0
 17385	047360	120 04 0 00 070743 			0,,0]
 17386						DFAD	AC,[200000,,0
 17387	047361	110 04 0 00 071110 			XX,,0]
 17388	047362	312 04 0 00 071112 		CAME	AC,[ZZ,,0]
 17389	047363	003 04 0 00 000243 		ER3	AC,T
 17390	047364	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17391	047365	004 05 0 00 000243 		ER4	AC+1,T
 17392	047366	321 10 0 00 047360 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17393
 17394			000244		T=T+1
 17395			001000			XX=XX/2
 17396			136400			ZZ=ZZ-1000
 17397						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17398						DMOVE	AC,[200000,,0
 17399	047367	120 04 0 00 070743 			0,,0]
 17400						DFAD	AC,[200000,,0
 17401	047370	110 04 0 00 071113 			XX,,0]
 17402	047371	312 04 0 00 071115 		CAME	AC,[ZZ,,0]
 17403	047372	003 04 0 00 000244 		ER3	AC,T
 17404	047373	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17405	047374	004 05 0 00 000244 		ER4	AC+1,T
 17406	047375	321 10 0 00 047367 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17407
 17408			000245		T=T+1
 17409			000400			XX=XX/2
 17410			135400			ZZ=ZZ-1000
 17411						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17412						DMOVE	AC,[200000,,0
 17413	047376	120 04 0 00 070743 			0,,0]
 17414						DFAD	AC,[200000,,0
 17415	047377	110 04 0 00 071116 			XX,,0]
 17416	047400	312 04 0 00 071120 		CAME	AC,[ZZ,,0]
 17417	047401	003 04 0 00 000245 		ER3	AC,T
 17418	047402	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17419	047403	004 05 0 00 000245 		ER4	AC+1,T
 17420	047404	321 10 0 00 047376 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17421
 17422			000246		T=T+1
 17423			000200			XX=XX/2
 17424			134400			ZZ=ZZ-1000
 17425						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17426						DMOVE	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-11
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0439

 17427	047405	120 04 0 00 070743 			0,,0]
 17428						DFAD	AC,[200000,,0
 17429	047406	110 04 0 00 071121 			XX,,0]
 17430	047407	312 04 0 00 071123 		CAME	AC,[ZZ,,0]
 17431	047410	003 04 0 00 000246 		ER3	AC,T
 17432	047411	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17433	047412	004 05 0 00 000246 		ER4	AC+1,T
 17434	047413	321 10 0 00 047405 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17435
 17436			000247		T=T+1
 17437			000100			XX=XX/2
 17438			133400			ZZ=ZZ-1000
 17439						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17440						DMOVE	AC,[200000,,0
 17441	047414	120 04 0 00 070743 			0,,0]
 17442						DFAD	AC,[200000,,0
 17443	047415	110 04 0 00 071124 			XX,,0]
 17444	047416	312 04 0 00 071126 		CAME	AC,[ZZ,,0]
 17445	047417	003 04 0 00 000247 		ER3	AC,T
 17446	047420	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17447	047421	004 05 0 00 000247 		ER4	AC+1,T
 17448	047422	321 10 0 00 047414 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17449
 17450			000250		T=T+1
 17451			000040			XX=XX/2
 17452			132400			ZZ=ZZ-1000
 17453						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17454						DMOVE	AC,[200000,,0
 17455	047423	120 04 0 00 070743 			0,,0]
 17456						DFAD	AC,[200000,,0
 17457	047424	110 04 0 00 071127 			XX,,0]
 17458	047425	312 04 0 00 071131 		CAME	AC,[ZZ,,0]
 17459	047426	003 04 0 00 000250 		ER3	AC,T
 17460	047427	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17461	047430	004 05 0 00 000250 		ER4	AC+1,T
 17462	047431	321 10 0 00 047423 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17463
 17464			000251		T=T+1
 17465			000020			XX=XX/2
 17466			131400			ZZ=ZZ-1000
 17467						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17468						DMOVE	AC,[200000,,0
 17469	047432	120 04 0 00 070743 			0,,0]
 17470						DFAD	AC,[200000,,0
 17471	047433	110 04 0 00 071132 			XX,,0]
 17472	047434	312 04 0 00 071134 		CAME	AC,[ZZ,,0]
 17473	047435	003 04 0 00 000251 		ER3	AC,T
 17474	047436	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17475	047437	004 05 0 00 000251 		ER4	AC+1,T
 17476	047440	321 10 0 00 047432 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17477
 17478			000252		T=T+1
 17479			000010			XX=XX/2
 17480			130400			ZZ=ZZ-1000
 17481						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-12
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0440

 17482						DMOVE	AC,[200000,,0
 17483	047441	120 04 0 00 070743 			0,,0]
 17484						DFAD	AC,[200000,,0
 17485	047442	110 04 0 00 071135 			XX,,0]
 17486	047443	312 04 0 00 071137 		CAME	AC,[ZZ,,0]
 17487	047444	003 04 0 00 000252 		ER3	AC,T
 17488	047445	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17489	047446	004 05 0 00 000252 		ER4	AC+1,T
 17490	047447	321 10 0 00 047441 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17491
 17492			000253		T=T+1
 17493			000004			XX=XX/2
 17494			127400			ZZ=ZZ-1000
 17495						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17496						DMOVE	AC,[200000,,0
 17497	047450	120 04 0 00 070743 			0,,0]
 17498						DFAD	AC,[200000,,0
 17499	047451	110 04 0 00 071140 			XX,,0]
 17500	047452	312 04 0 00 071142 		CAME	AC,[ZZ,,0]
 17501	047453	003 04 0 00 000253 		ER3	AC,T
 17502	047454	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17503	047455	004 05 0 00 000253 		ER4	AC+1,T
 17504	047456	321 10 0 00 047450 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17505
 17506			000254		T=T+1
 17507			000002			XX=XX/2
 17508			126400			ZZ=ZZ-1000
 17509						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17510						DMOVE	AC,[200000,,0
 17511	047457	120 04 0 00 070743 			0,,0]
 17512						DFAD	AC,[200000,,0
 17513	047460	110 04 0 00 071143 			XX,,0]
 17514	047461	312 04 0 00 071145 		CAME	AC,[ZZ,,0]
 17515	047462	003 04 0 00 000254 		ER3	AC,T
 17516	047463	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17517	047464	004 05 0 00 000254 		ER4	AC+1,T
 17518	047465	321 10 0 00 047457 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17519
 17520			000255		T=T+1
 17521			000001			XX=XX/2
 17522			125400			ZZ=ZZ-1000
 17523						DFARP	T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
 17524						DMOVE	AC,[200000,,0
 17525	047466	120 04 0 00 070743 			0,,0]
 17526						DFAD	AC,[200000,,0
 17527	047467	110 04 0 00 071146 			XX,,0]
 17528	047470	312 04 0 00 071150 		CAME	AC,[ZZ,,0]
 17529	047471	003 04 0 00 000255 		ER3	AC,T
 17530	047472	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17531	047473	004 05 0 00 000255 		ER4	AC+1,T
 17532	047474	321 10 0 00 047466 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17533
 17534
 17535		000001	000000			XX=1000000
 17536
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-13
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0441

 17537						REPEAT	^D18,
 17538					<T=T+1
 17539						XX=XX/2
 17540						ZZ=ZZ-1000
 17541						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0
 17542					>
 17543			000256		T=T+1
 17544			400000			XX=XX/2
 17545			124400			ZZ=ZZ-1000
 17546						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17547						DMOVE	AC,[200000,,0
 17548	047475	120 04 0 00 070743 			0,,0]
 17549						DFAD	AC,[200000,,0
 17550	047476	110 04 0 00 071151 			0,,XX]
 17551	047477	312 04 0 00 071153 		CAME	AC,[ZZ,,0]
 17552	047500	003 04 0 00 000256 		ER3	AC,T
 17553	047501	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17554	047502	004 05 0 00 000256 		ER4	AC+1,T
 17555	047503	321 10 0 00 047475 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17556
 17557			000257		T=T+1
 17558			200000			XX=XX/2
 17559			123400			ZZ=ZZ-1000
 17560						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17561						DMOVE	AC,[200000,,0
 17562	047504	120 04 0 00 070743 			0,,0]
 17563						DFAD	AC,[200000,,0
 17564	047505	110 04 0 00 071154 			0,,XX]
 17565	047506	312 04 0 00 071156 		CAME	AC,[ZZ,,0]
 17566	047507	003 04 0 00 000257 		ER3	AC,T
 17567	047510	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17568	047511	004 05 0 00 000257 		ER4	AC+1,T
 17569	047512	321 10 0 00 047504 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17570
 17571			000260		T=T+1
 17572			100000			XX=XX/2
 17573			122400			ZZ=ZZ-1000
 17574						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17575						DMOVE	AC,[200000,,0
 17576	047513	120 04 0 00 070743 			0,,0]
 17577						DFAD	AC,[200000,,0
 17578	047514	110 04 0 00 071157 			0,,XX]
 17579	047515	312 04 0 00 071161 		CAME	AC,[ZZ,,0]
 17580	047516	003 04 0 00 000260 		ER3	AC,T
 17581	047517	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17582	047520	004 05 0 00 000260 		ER4	AC+1,T
 17583	047521	321 10 0 00 047513 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17584
 17585			000261		T=T+1
 17586			040000			XX=XX/2
 17587			121400			ZZ=ZZ-1000
 17588						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17589						DMOVE	AC,[200000,,0
 17590	047522	120 04 0 00 070743 			0,,0]
 17591						DFAD	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-14
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0442

 17592	047523	110 04 0 00 071162 			0,,XX]
 17593	047524	312 04 0 00 071164 		CAME	AC,[ZZ,,0]
 17594	047525	003 04 0 00 000261 		ER3	AC,T
 17595	047526	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17596	047527	004 05 0 00 000261 		ER4	AC+1,T
 17597	047530	321 10 0 00 047522 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17598
 17599			000262		T=T+1
 17600			020000			XX=XX/2
 17601			120400			ZZ=ZZ-1000
 17602						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17603						DMOVE	AC,[200000,,0
 17604	047531	120 04 0 00 070743 			0,,0]
 17605						DFAD	AC,[200000,,0
 17606	047532	110 04 0 00 071165 			0,,XX]
 17607	047533	312 04 0 00 071167 		CAME	AC,[ZZ,,0]
 17608	047534	003 04 0 00 000262 		ER3	AC,T
 17609	047535	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17610	047536	004 05 0 00 000262 		ER4	AC+1,T
 17611	047537	321 10 0 00 047531 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17612
 17613			000263		T=T+1
 17614			010000			XX=XX/2
 17615			117400			ZZ=ZZ-1000
 17616						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17617						DMOVE	AC,[200000,,0
 17618	047540	120 04 0 00 070743 			0,,0]
 17619						DFAD	AC,[200000,,0
 17620	047541	110 04 0 00 071170 			0,,XX]
 17621	047542	312 04 0 00 071172 		CAME	AC,[ZZ,,0]
 17622	047543	003 04 0 00 000263 		ER3	AC,T
 17623	047544	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17624	047545	004 05 0 00 000263 		ER4	AC+1,T
 17625	047546	321 10 0 00 047540 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17626
 17627			000264		T=T+1
 17628			004000			XX=XX/2
 17629			116400			ZZ=ZZ-1000
 17630						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17631						DMOVE	AC,[200000,,0
 17632	047547	120 04 0 00 070743 			0,,0]
 17633						DFAD	AC,[200000,,0
 17634	047550	110 04 0 00 071173 			0,,XX]
 17635	047551	312 04 0 00 071175 		CAME	AC,[ZZ,,0]
 17636	047552	003 04 0 00 000264 		ER3	AC,T
 17637	047553	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17638	047554	004 05 0 00 000264 		ER4	AC+1,T
 17639	047555	321 10 0 00 047547 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17640
 17641			000265		T=T+1
 17642			002000			XX=XX/2
 17643			115400			ZZ=ZZ-1000
 17644						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17645						DMOVE	AC,[200000,,0
 17646	047556	120 04 0 00 070743 			0,,0]
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-15
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0443

 17647						DFAD	AC,[200000,,0
 17648	047557	110 04 0 00 071176 			0,,XX]
 17649	047560	312 04 0 00 071200 		CAME	AC,[ZZ,,0]
 17650	047561	003 04 0 00 000265 		ER3	AC,T
 17651	047562	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17652	047563	004 05 0 00 000265 		ER4	AC+1,T
 17653	047564	321 10 0 00 047556 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17654
 17655			000266		T=T+1
 17656			001000			XX=XX/2
 17657			114400			ZZ=ZZ-1000
 17658						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17659						DMOVE	AC,[200000,,0
 17660	047565	120 04 0 00 070743 			0,,0]
 17661						DFAD	AC,[200000,,0
 17662	047566	110 04 0 00 071201 			0,,XX]
 17663	047567	312 04 0 00 071203 		CAME	AC,[ZZ,,0]
 17664	047570	003 04 0 00 000266 		ER3	AC,T
 17665	047571	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17666	047572	004 05 0 00 000266 		ER4	AC+1,T
 17667	047573	321 10 0 00 047565 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17668
 17669			000267		T=T+1
 17670			000400			XX=XX/2
 17671			113400			ZZ=ZZ-1000
 17672						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17673						DMOVE	AC,[200000,,0
 17674	047574	120 04 0 00 070743 			0,,0]
 17675						DFAD	AC,[200000,,0
 17676	047575	110 04 0 00 071204 			0,,XX]
 17677	047576	312 04 0 00 071206 		CAME	AC,[ZZ,,0]
 17678	047577	003 04 0 00 000267 		ER3	AC,T
 17679	047600	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17680	047601	004 05 0 00 000267 		ER4	AC+1,T
 17681	047602	321 10 0 00 047574 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17682
 17683			000270		T=T+1
 17684			000200			XX=XX/2
 17685			112400			ZZ=ZZ-1000
 17686						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17687						DMOVE	AC,[200000,,0
 17688	047603	120 04 0 00 070743 			0,,0]
 17689						DFAD	AC,[200000,,0
 17690	047604	110 04 0 00 071207 			0,,XX]
 17691	047605	312 04 0 00 071211 		CAME	AC,[ZZ,,0]
 17692	047606	003 04 0 00 000270 		ER3	AC,T
 17693	047607	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17694	047610	004 05 0 00 000270 		ER4	AC+1,T
 17695	047611	321 10 0 00 047603 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17696
 17697			000271		T=T+1
 17698			000100			XX=XX/2
 17699			111400			ZZ=ZZ-1000
 17700						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17701						DMOVE	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-16
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0444

 17702	047612	120 04 0 00 070743 			0,,0]
 17703						DFAD	AC,[200000,,0
 17704	047613	110 04 0 00 071212 			0,,XX]
 17705	047614	312 04 0 00 071214 		CAME	AC,[ZZ,,0]
 17706	047615	003 04 0 00 000271 		ER3	AC,T
 17707	047616	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17708	047617	004 05 0 00 000271 		ER4	AC+1,T
 17709	047620	321 10 0 00 047612 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17710
 17711			000272		T=T+1
 17712			000040			XX=XX/2
 17713			110400			ZZ=ZZ-1000
 17714						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17715						DMOVE	AC,[200000,,0
 17716	047621	120 04 0 00 070743 			0,,0]
 17717						DFAD	AC,[200000,,0
 17718	047622	110 04 0 00 071215 			0,,XX]
 17719	047623	312 04 0 00 071217 		CAME	AC,[ZZ,,0]
 17720	047624	003 04 0 00 000272 		ER3	AC,T
 17721	047625	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17722	047626	004 05 0 00 000272 		ER4	AC+1,T
 17723	047627	321 10 0 00 047621 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17724
 17725			000273		T=T+1
 17726			000020			XX=XX/2
 17727			107400			ZZ=ZZ-1000
 17728						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17729						DMOVE	AC,[200000,,0
 17730	047630	120 04 0 00 070743 			0,,0]
 17731						DFAD	AC,[200000,,0
 17732	047631	110 04 0 00 071220 			0,,XX]
 17733	047632	312 04 0 00 071222 		CAME	AC,[ZZ,,0]
 17734	047633	003 04 0 00 000273 		ER3	AC,T
 17735	047634	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17736	047635	004 05 0 00 000273 		ER4	AC+1,T
 17737	047636	321 10 0 00 047630 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17738
 17739			000274		T=T+1
 17740			000010			XX=XX/2
 17741			106400			ZZ=ZZ-1000
 17742						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17743						DMOVE	AC,[200000,,0
 17744	047637	120 04 0 00 070743 			0,,0]
 17745						DFAD	AC,[200000,,0
 17746	047640	110 04 0 00 071223 			0,,XX]
 17747	047641	312 04 0 00 071225 		CAME	AC,[ZZ,,0]
 17748	047642	003 04 0 00 000274 		ER3	AC,T
 17749	047643	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17750	047644	004 05 0 00 000274 		ER4	AC+1,T
 17751	047645	321 10 0 00 047637 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17752
 17753			000275		T=T+1
 17754			000004			XX=XX/2
 17755			105400			ZZ=ZZ-1000
 17756						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 2-17
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0445

 17757						DMOVE	AC,[200000,,0
 17758	047646	120 04 0 00 070743 			0,,0]
 17759						DFAD	AC,[200000,,0
 17760	047647	110 04 0 00 071226 			0,,XX]
 17761	047650	312 04 0 00 071230 		CAME	AC,[ZZ,,0]
 17762	047651	003 04 0 00 000275 		ER3	AC,T
 17763	047652	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17764	047653	004 05 0 00 000275 		ER4	AC+1,T
 17765	047654	321 10 0 00 047646 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17766
 17767			000276		T=T+1
 17768			000002			XX=XX/2
 17769			104400			ZZ=ZZ-1000
 17770						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17771						DMOVE	AC,[200000,,0
 17772	047655	120 04 0 00 070743 			0,,0]
 17773						DFAD	AC,[200000,,0
 17774	047656	110 04 0 00 071231 			0,,XX]
 17775	047657	312 04 0 00 071233 		CAME	AC,[ZZ,,0]
 17776	047660	003 04 0 00 000276 		ER3	AC,T
 17777	047661	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17778	047662	004 05 0 00 000276 		ER4	AC+1,T
 17779	047663	321 10 0 00 047655 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17780
 17781			000277		T=T+1
 17782			000001			XX=XX/2
 17783			103400			ZZ=ZZ-1000
 17784						DFARP	T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
 17785						DMOVE	AC,[200000,,0
 17786	047664	120 04 0 00 070743 			0,,0]
 17787						DFAD	AC,[200000,,0
 17788	047665	110 04 0 00 071234 			0,,XX]
 17789	047666	312 04 0 00 071236 		CAME	AC,[ZZ,,0]
 17790	047667	003 04 0 00 000277 		ER3	AC,T
 17791	047670	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17792	047671	004 05 0 00 000277 		ER4	AC+1,T
 17793	047672	321 10 0 00 047664 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17794
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0446

 17795					;RIPPLE ONES TEST (TO A RIPPLED ONE, ADD A WORD OF ALL ZEROS)
 17796			000300		T=300
 17797			001000			XX=1000
 17798			201400			ZZ=201400
 17799
 17800					R300:	REPEAT	^D9,
 17801					<T=T+1
 17802						XX=XX/2
 17803						ZZ=ZZ-1000
 17804						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0
 17805					>
 17806			000301		T=T+1
 17807			000400			XX=XX/2
 17808			200400			ZZ=ZZ-1000
 17809						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17810						DMOVE	AC,[200000+XX,,0
 17811	047673	120 04 0 00 070745 			0,,0]
 17812						DFAD	AC,[200000,,0
 17813	047674	110 04 0 00 070743 			0,,0]
 17814	047675	312 04 0 00 070614 		CAME	AC,[ZZ,,0]
 17815	047676	003 04 0 00 000301 		ER3	AC,T
 17816	047677	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17817	047700	004 05 0 00 000301 		ER4	AC+1,T
 17818	047701	321 10 0 00 047673 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17819
 17820			000302		T=T+1
 17821			000200			XX=XX/2
 17822			177400			ZZ=ZZ-1000
 17823						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17824						DMOVE	AC,[200000+XX,,0
 17825	047702	120 04 0 00 070747 			0,,0]
 17826						DFAD	AC,[200000,,0
 17827	047703	110 04 0 00 070743 			0,,0]
 17828	047704	312 04 0 00 070636 		CAME	AC,[ZZ,,0]
 17829	047705	003 04 0 00 000302 		ER3	AC,T
 17830	047706	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17831	047707	004 05 0 00 000302 		ER4	AC+1,T
 17832	047710	321 10 0 00 047702 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17833
 17834			000303		T=T+1
 17835			000100			XX=XX/2
 17836			176400			ZZ=ZZ-1000
 17837						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17838						DMOVE	AC,[200000+XX,,0
 17839	047711	120 04 0 00 070751 			0,,0]
 17840						DFAD	AC,[200000,,0
 17841	047712	110 04 0 00 070743 			0,,0]
 17842	047713	312 04 0 00 070753 		CAME	AC,[ZZ,,0]
 17843	047714	003 04 0 00 000303 		ER3	AC,T
 17844	047715	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17845	047716	004 05 0 00 000303 		ER4	AC+1,T
 17846	047717	321 10 0 00 047711 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17847
 17848			000304		T=T+1
 17849			000040			XX=XX/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-1
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0447

 17850			175400			ZZ=ZZ-1000
 17851						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17852						DMOVE	AC,[200000+XX,,0
 17853	047720	120 04 0 00 070754 			0,,0]
 17854						DFAD	AC,[200000,,0
 17855	047721	110 04 0 00 070743 			0,,0]
 17856	047722	312 04 0 00 070756 		CAME	AC,[ZZ,,0]
 17857	047723	003 04 0 00 000304 		ER3	AC,T
 17858	047724	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17859	047725	004 05 0 00 000304 		ER4	AC+1,T
 17860	047726	321 10 0 00 047720 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17861
 17862			000305		T=T+1
 17863			000020			XX=XX/2
 17864			174400			ZZ=ZZ-1000
 17865						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17866						DMOVE	AC,[200000+XX,,0
 17867	047727	120 04 0 00 070757 			0,,0]
 17868						DFAD	AC,[200000,,0
 17869	047730	110 04 0 00 070743 			0,,0]
 17870	047731	312 04 0 00 070761 		CAME	AC,[ZZ,,0]
 17871	047732	003 04 0 00 000305 		ER3	AC,T
 17872	047733	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17873	047734	004 05 0 00 000305 		ER4	AC+1,T
 17874	047735	321 10 0 00 047727 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17875
 17876			000306		T=T+1
 17877			000010			XX=XX/2
 17878			173400			ZZ=ZZ-1000
 17879						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17880						DMOVE	AC,[200000+XX,,0
 17881	047736	120 04 0 00 070762 			0,,0]
 17882						DFAD	AC,[200000,,0
 17883	047737	110 04 0 00 070743 			0,,0]
 17884	047740	312 04 0 00 070764 		CAME	AC,[ZZ,,0]
 17885	047741	003 04 0 00 000306 		ER3	AC,T
 17886	047742	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17887	047743	004 05 0 00 000306 		ER4	AC+1,T
 17888	047744	321 10 0 00 047736 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17889
 17890			000307		T=T+1
 17891			000004			XX=XX/2
 17892			172400			ZZ=ZZ-1000
 17893						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17894						DMOVE	AC,[200000+XX,,0
 17895	047745	120 04 0 00 070765 			0,,0]
 17896						DFAD	AC,[200000,,0
 17897	047746	110 04 0 00 070743 			0,,0]
 17898	047747	312 04 0 00 070767 		CAME	AC,[ZZ,,0]
 17899	047750	003 04 0 00 000307 		ER3	AC,T
 17900	047751	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17901	047752	004 05 0 00 000307 		ER4	AC+1,T
 17902	047753	321 10 0 00 047745 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17903
 17904			000310		T=T+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-2
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0448

 17905			000002			XX=XX/2
 17906			171400			ZZ=ZZ-1000
 17907						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17908						DMOVE	AC,[200000+XX,,0
 17909	047754	120 04 0 00 070770 			0,,0]
 17910						DFAD	AC,[200000,,0
 17911	047755	110 04 0 00 070743 			0,,0]
 17912	047756	312 04 0 00 070772 		CAME	AC,[ZZ,,0]
 17913	047757	003 04 0 00 000310 		ER3	AC,T
 17914	047760	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17915	047761	004 05 0 00 000310 		ER4	AC+1,T
 17916	047762	321 10 0 00 047754 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17917
 17918			000311		T=T+1
 17919			000001			XX=XX/2
 17920			170400			ZZ=ZZ-1000
 17921						DFARP	T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
 17922						DMOVE	AC,[200000+XX,,0
 17923	047763	120 04 0 00 070773 			0,,0]
 17924						DFAD	AC,[200000,,0
 17925	047764	110 04 0 00 070743 			0,,0]
 17926	047765	312 04 0 00 070775 		CAME	AC,[ZZ,,0]
 17927	047766	003 04 0 00 000311 		ER3	AC,T
 17928	047767	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17929	047770	004 05 0 00 000311 		ER4	AC+1,T
 17930	047771	321 10 0 00 047763 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17931
 17932
 17933		000001	000000			XX=1000000
 17934
 17935						REPEAT	^D18,
 17936					<T=T+1
 17937						XX=XX/2
 17938						ZZ=ZZ-1000
 17939						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0
 17940					>
 17941			000312		T=T+1
 17942			400000			XX=XX/2
 17943			167400			ZZ=ZZ-1000
 17944						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 17945						DMOVE	AC,[200000,,XX
 17946	047772	120 04 0 00 070776 			0,,0]
 17947						DFAD	AC,[200000,,0
 17948	047773	110 04 0 00 070743 			0,,0]
 17949	047774	312 04 0 00 071000 		CAME	AC,[ZZ,,0]
 17950	047775	003 04 0 00 000312 		ER3	AC,T
 17951	047776	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17952	047777	004 05 0 00 000312 		ER4	AC+1,T
 17953	050000	321 10 0 00 047772 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17954
 17955			000313		T=T+1
 17956			200000			XX=XX/2
 17957			166400			ZZ=ZZ-1000
 17958						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 17959						DMOVE	AC,[200000,,XX
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-3
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0449

 17960	050001	120 04 0 00 071001 			0,,0]
 17961						DFAD	AC,[200000,,0
 17962	050002	110 04 0 00 070743 			0,,0]
 17963	050003	312 04 0 00 071003 		CAME	AC,[ZZ,,0]
 17964	050004	003 04 0 00 000313 		ER3	AC,T
 17965	050005	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17966	050006	004 05 0 00 000313 		ER4	AC+1,T
 17967	050007	321 10 0 00 050001 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17968
 17969			000314		T=T+1
 17970			100000			XX=XX/2
 17971			165400			ZZ=ZZ-1000
 17972						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 17973						DMOVE	AC,[200000,,XX
 17974	050010	120 04 0 00 071004 			0,,0]
 17975						DFAD	AC,[200000,,0
 17976	050011	110 04 0 00 070743 			0,,0]
 17977	050012	312 04 0 00 071006 		CAME	AC,[ZZ,,0]
 17978	050013	003 04 0 00 000314 		ER3	AC,T
 17979	050014	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17980	050015	004 05 0 00 000314 		ER4	AC+1,T
 17981	050016	321 10 0 00 050010 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17982
 17983			000315		T=T+1
 17984			040000			XX=XX/2
 17985			164400			ZZ=ZZ-1000
 17986						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 17987						DMOVE	AC,[200000,,XX
 17988	050017	120 04 0 00 071007 			0,,0]
 17989						DFAD	AC,[200000,,0
 17990	050020	110 04 0 00 070743 			0,,0]
 17991	050021	312 04 0 00 071011 		CAME	AC,[ZZ,,0]
 17992	050022	003 04 0 00 000315 		ER3	AC,T
 17993	050023	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 17994	050024	004 05 0 00 000315 		ER4	AC+1,T
 17995	050025	321 10 0 00 050017 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 17996
 17997			000316		T=T+1
 17998			020000			XX=XX/2
 17999			163400			ZZ=ZZ-1000
 18000						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18001						DMOVE	AC,[200000,,XX
 18002	050026	120 04 0 00 071012 			0,,0]
 18003						DFAD	AC,[200000,,0
 18004	050027	110 04 0 00 070743 			0,,0]
 18005	050030	312 04 0 00 071014 		CAME	AC,[ZZ,,0]
 18006	050031	003 04 0 00 000316 		ER3	AC,T
 18007	050032	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18008	050033	004 05 0 00 000316 		ER4	AC+1,T
 18009	050034	321 10 0 00 050026 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18010
 18011			000317		T=T+1
 18012			010000			XX=XX/2
 18013			162400			ZZ=ZZ-1000
 18014						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-4
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0450

 18015						DMOVE	AC,[200000,,XX
 18016	050035	120 04 0 00 071015 			0,,0]
 18017						DFAD	AC,[200000,,0
 18018	050036	110 04 0 00 070743 			0,,0]
 18019	050037	312 04 0 00 071017 		CAME	AC,[ZZ,,0]
 18020	050040	003 04 0 00 000317 		ER3	AC,T
 18021	050041	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18022	050042	004 05 0 00 000317 		ER4	AC+1,T
 18023	050043	321 10 0 00 050035 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18024
 18025			000320		T=T+1
 18026			004000			XX=XX/2
 18027			161400			ZZ=ZZ-1000
 18028						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18029						DMOVE	AC,[200000,,XX
 18030	050044	120 04 0 00 071020 			0,,0]
 18031						DFAD	AC,[200000,,0
 18032	050045	110 04 0 00 070743 			0,,0]
 18033	050046	312 04 0 00 071022 		CAME	AC,[ZZ,,0]
 18034	050047	003 04 0 00 000320 		ER3	AC,T
 18035	050050	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18036	050051	004 05 0 00 000320 		ER4	AC+1,T
 18037	050052	321 10 0 00 050044 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18038
 18039			000321		T=T+1
 18040			002000			XX=XX/2
 18041			160400			ZZ=ZZ-1000
 18042						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18043						DMOVE	AC,[200000,,XX
 18044	050053	120 04 0 00 071023 			0,,0]
 18045						DFAD	AC,[200000,,0
 18046	050054	110 04 0 00 070743 			0,,0]
 18047	050055	312 04 0 00 071025 		CAME	AC,[ZZ,,0]
 18048	050056	003 04 0 00 000321 		ER3	AC,T
 18049	050057	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18050	050060	004 05 0 00 000321 		ER4	AC+1,T
 18051	050061	321 10 0 00 050053 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18052
 18053			000322		T=T+1
 18054			001000			XX=XX/2
 18055			157400			ZZ=ZZ-1000
 18056						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18057						DMOVE	AC,[200000,,XX
 18058	050062	120 04 0 00 071026 			0,,0]
 18059						DFAD	AC,[200000,,0
 18060	050063	110 04 0 00 070743 			0,,0]
 18061	050064	312 04 0 00 071030 		CAME	AC,[ZZ,,0]
 18062	050065	003 04 0 00 000322 		ER3	AC,T
 18063	050066	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18064	050067	004 05 0 00 000322 		ER4	AC+1,T
 18065	050070	321 10 0 00 050062 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18066
 18067			000323		T=T+1
 18068			000400			XX=XX/2
 18069			156400			ZZ=ZZ-1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-5
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0451

 18070						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18071						DMOVE	AC,[200000,,XX
 18072	050071	120 04 0 00 071031 			0,,0]
 18073						DFAD	AC,[200000,,0
 18074	050072	110 04 0 00 070743 			0,,0]
 18075	050073	312 04 0 00 071033 		CAME	AC,[ZZ,,0]
 18076	050074	003 04 0 00 000323 		ER3	AC,T
 18077	050075	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18078	050076	004 05 0 00 000323 		ER4	AC+1,T
 18079	050077	321 10 0 00 050071 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18080
 18081			000324		T=T+1
 18082			000200			XX=XX/2
 18083			155400			ZZ=ZZ-1000
 18084						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18085						DMOVE	AC,[200000,,XX
 18086	050100	120 04 0 00 071034 			0,,0]
 18087						DFAD	AC,[200000,,0
 18088	050101	110 04 0 00 070743 			0,,0]
 18089	050102	312 04 0 00 071036 		CAME	AC,[ZZ,,0]
 18090	050103	003 04 0 00 000324 		ER3	AC,T
 18091	050104	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18092	050105	004 05 0 00 000324 		ER4	AC+1,T
 18093	050106	321 10 0 00 050100 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18094
 18095			000325		T=T+1
 18096			000100			XX=XX/2
 18097			154400			ZZ=ZZ-1000
 18098						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18099						DMOVE	AC,[200000,,XX
 18100	050107	120 04 0 00 071037 			0,,0]
 18101						DFAD	AC,[200000,,0
 18102	050110	110 04 0 00 070743 			0,,0]
 18103	050111	312 04 0 00 071041 		CAME	AC,[ZZ,,0]
 18104	050112	003 04 0 00 000325 		ER3	AC,T
 18105	050113	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18106	050114	004 05 0 00 000325 		ER4	AC+1,T
 18107	050115	321 10 0 00 050107 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18108
 18109			000326		T=T+1
 18110			000040			XX=XX/2
 18111			153400			ZZ=ZZ-1000
 18112						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18113						DMOVE	AC,[200000,,XX
 18114	050116	120 04 0 00 071042 			0,,0]
 18115						DFAD	AC,[200000,,0
 18116	050117	110 04 0 00 070743 			0,,0]
 18117	050120	312 04 0 00 071044 		CAME	AC,[ZZ,,0]
 18118	050121	003 04 0 00 000326 		ER3	AC,T
 18119	050122	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18120	050123	004 05 0 00 000326 		ER4	AC+1,T
 18121	050124	321 10 0 00 050116 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18122
 18123			000327		T=T+1
 18124			000020			XX=XX/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-6
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0452

 18125			152400			ZZ=ZZ-1000
 18126						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18127						DMOVE	AC,[200000,,XX
 18128	050125	120 04 0 00 071045 			0,,0]
 18129						DFAD	AC,[200000,,0
 18130	050126	110 04 0 00 070743 			0,,0]
 18131	050127	312 04 0 00 071047 		CAME	AC,[ZZ,,0]
 18132	050130	003 04 0 00 000327 		ER3	AC,T
 18133	050131	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18134	050132	004 05 0 00 000327 		ER4	AC+1,T
 18135	050133	321 10 0 00 050125 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18136
 18137			000330		T=T+1
 18138			000010			XX=XX/2
 18139			151400			ZZ=ZZ-1000
 18140						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18141						DMOVE	AC,[200000,,XX
 18142	050134	120 04 0 00 071050 			0,,0]
 18143						DFAD	AC,[200000,,0
 18144	050135	110 04 0 00 070743 			0,,0]
 18145	050136	312 04 0 00 071052 		CAME	AC,[ZZ,,0]
 18146	050137	003 04 0 00 000330 		ER3	AC,T
 18147	050140	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18148	050141	004 05 0 00 000330 		ER4	AC+1,T
 18149	050142	321 10 0 00 050134 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18150
 18151			000331		T=T+1
 18152			000004			XX=XX/2
 18153			150400			ZZ=ZZ-1000
 18154						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18155						DMOVE	AC,[200000,,XX
 18156	050143	120 04 0 00 071053 			0,,0]
 18157						DFAD	AC,[200000,,0
 18158	050144	110 04 0 00 070743 			0,,0]
 18159	050145	312 04 0 00 071055 		CAME	AC,[ZZ,,0]
 18160	050146	003 04 0 00 000331 		ER3	AC,T
 18161	050147	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18162	050150	004 05 0 00 000331 		ER4	AC+1,T
 18163	050151	321 10 0 00 050143 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18164
 18165			000332		T=T+1
 18166			000002			XX=XX/2
 18167			147400			ZZ=ZZ-1000
 18168						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18169						DMOVE	AC,[200000,,XX
 18170	050152	120 04 0 00 071056 			0,,0]
 18171						DFAD	AC,[200000,,0
 18172	050153	110 04 0 00 070743 			0,,0]
 18173	050154	312 04 0 00 071060 		CAME	AC,[ZZ,,0]
 18174	050155	003 04 0 00 000332 		ER3	AC,T
 18175	050156	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18176	050157	004 05 0 00 000332 		ER4	AC+1,T
 18177	050160	321 10 0 00 050152 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18178
 18179			000333		T=T+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-7
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0453

 18180			000001			XX=XX/2
 18181			146400			ZZ=ZZ-1000
 18182						DFARP	T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
 18183						DMOVE	AC,[200000,,XX
 18184	050161	120 04 0 00 071061 			0,,0]
 18185						DFAD	AC,[200000,,0
 18186	050162	110 04 0 00 070743 			0,,0]
 18187	050163	312 04 0 00 071063 		CAME	AC,[ZZ,,0]
 18188	050164	003 04 0 00 000333 		ER3	AC,T
 18189	050165	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18190	050166	004 05 0 00 000333 		ER4	AC+1,T
 18191	050167	321 10 0 00 050161 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18192
 18193
 18194			400000			XX=400000
 18195
 18196			000334		T=T+1
 18197						DFARP	T,200000,0,XX,0,200000,0,0,0,0,0,0,0^
 18198						DMOVE	AC,[200000,,0
 18199	050170	120 04 0 00 071064 			XX,,0]
 18200						DFAD	AC,[200000,,0
 18201	050171	110 04 0 00 070743 			0,,0]
 18202	050172	312 04 0 00 070660 		CAME	AC,[0,,0]
 18203	050173	003 04 0 00 000334 		ER3	AC,T
 18204	050174	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18205	050175	004 05 0 00 000334 		ER4	AC+1,T
 18206	050176	321 10 0 00 050170 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18207
 18208						REPEAT	^D17,
 18209					<T=T+1
 18210						XX=XX/2
 18211						ZZ=ZZ-1000
 18212						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0
 18213					
 18214					>
 18215			000335		T=T+1
 18216			200000			XX=XX/2
 18217			145400			ZZ=ZZ-1000
 18218						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18219						DMOVE	AC,[200000,,0
 18220	050177	120 04 0 00 071066 			XX,,0]
 18221						DFAD	AC,[200000,,0
 18222	050200	110 04 0 00 070743 			0,,0]
 18223	050201	312 04 0 00 071070 		CAME	AC,[ZZ,,0]
 18224	050202	003 04 0 00 000335 		ER3	AC,T
 18225	050203	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18226	050204	004 05 0 00 000335 		ER4	AC+1,T
 18227	050205	321 10 0 00 050177 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18228
 18229
 18230			000336		T=T+1
 18231			100000			XX=XX/2
 18232			144400			ZZ=ZZ-1000
 18233						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18234						DMOVE	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-8
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0454

 18235	050206	120 04 0 00 071071 			XX,,0]
 18236						DFAD	AC,[200000,,0
 18237	050207	110 04 0 00 070743 			0,,0]
 18238	050210	312 04 0 00 071073 		CAME	AC,[ZZ,,0]
 18239	050211	003 04 0 00 000336 		ER3	AC,T
 18240	050212	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18241	050213	004 05 0 00 000336 		ER4	AC+1,T
 18242	050214	321 10 0 00 050206 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18243
 18244
 18245			000337		T=T+1
 18246			040000			XX=XX/2
 18247			143400			ZZ=ZZ-1000
 18248						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18249						DMOVE	AC,[200000,,0
 18250	050215	120 04 0 00 071074 			XX,,0]
 18251						DFAD	AC,[200000,,0
 18252	050216	110 04 0 00 070743 			0,,0]
 18253	050217	312 04 0 00 071076 		CAME	AC,[ZZ,,0]
 18254	050220	003 04 0 00 000337 		ER3	AC,T
 18255	050221	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18256	050222	004 05 0 00 000337 		ER4	AC+1,T
 18257	050223	321 10 0 00 050215 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18258
 18259
 18260			000340		T=T+1
 18261			020000			XX=XX/2
 18262			142400			ZZ=ZZ-1000
 18263						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18264						DMOVE	AC,[200000,,0
 18265	050224	120 04 0 00 071077 			XX,,0]
 18266						DFAD	AC,[200000,,0
 18267	050225	110 04 0 00 070743 			0,,0]
 18268	050226	312 04 0 00 071101 		CAME	AC,[ZZ,,0]
 18269	050227	003 04 0 00 000340 		ER3	AC,T
 18270	050230	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18271	050231	004 05 0 00 000340 		ER4	AC+1,T
 18272	050232	321 10 0 00 050224 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18273
 18274
 18275			000341		T=T+1
 18276			010000			XX=XX/2
 18277			141400			ZZ=ZZ-1000
 18278						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18279						DMOVE	AC,[200000,,0
 18280	050233	120 04 0 00 071102 			XX,,0]
 18281						DFAD	AC,[200000,,0
 18282	050234	110 04 0 00 070743 			0,,0]
 18283	050235	312 04 0 00 071104 		CAME	AC,[ZZ,,0]
 18284	050236	003 04 0 00 000341 		ER3	AC,T
 18285	050237	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18286	050240	004 05 0 00 000341 		ER4	AC+1,T
 18287	050241	321 10 0 00 050233 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18288
 18289
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-9
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0455

 18290			000342		T=T+1
 18291			004000			XX=XX/2
 18292			140400			ZZ=ZZ-1000
 18293						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18294						DMOVE	AC,[200000,,0
 18295	050242	120 04 0 00 071105 			XX,,0]
 18296						DFAD	AC,[200000,,0
 18297	050243	110 04 0 00 070743 			0,,0]
 18298	050244	312 04 0 00 071107 		CAME	AC,[ZZ,,0]
 18299	050245	003 04 0 00 000342 		ER3	AC,T
 18300	050246	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18301	050247	004 05 0 00 000342 		ER4	AC+1,T
 18302	050250	321 10 0 00 050242 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18303
 18304
 18305			000343		T=T+1
 18306			002000			XX=XX/2
 18307			137400			ZZ=ZZ-1000
 18308						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18309						DMOVE	AC,[200000,,0
 18310	050251	120 04 0 00 071110 			XX,,0]
 18311						DFAD	AC,[200000,,0
 18312	050252	110 04 0 00 070743 			0,,0]
 18313	050253	312 04 0 00 071112 		CAME	AC,[ZZ,,0]
 18314	050254	003 04 0 00 000343 		ER3	AC,T
 18315	050255	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18316	050256	004 05 0 00 000343 		ER4	AC+1,T
 18317	050257	321 10 0 00 050251 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18318
 18319
 18320			000344		T=T+1
 18321			001000			XX=XX/2
 18322			136400			ZZ=ZZ-1000
 18323						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18324						DMOVE	AC,[200000,,0
 18325	050260	120 04 0 00 071113 			XX,,0]
 18326						DFAD	AC,[200000,,0
 18327	050261	110 04 0 00 070743 			0,,0]
 18328	050262	312 04 0 00 071115 		CAME	AC,[ZZ,,0]
 18329	050263	003 04 0 00 000344 		ER3	AC,T
 18330	050264	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18331	050265	004 05 0 00 000344 		ER4	AC+1,T
 18332	050266	321 10 0 00 050260 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18333
 18334
 18335			000345		T=T+1
 18336			000400			XX=XX/2
 18337			135400			ZZ=ZZ-1000
 18338						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18339						DMOVE	AC,[200000,,0
 18340	050267	120 04 0 00 071116 			XX,,0]
 18341						DFAD	AC,[200000,,0
 18342	050270	110 04 0 00 070743 			0,,0]
 18343	050271	312 04 0 00 071120 		CAME	AC,[ZZ,,0]
 18344	050272	003 04 0 00 000345 		ER3	AC,T
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-10
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0456

 18345	050273	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18346	050274	004 05 0 00 000345 		ER4	AC+1,T
 18347	050275	321 10 0 00 050267 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18348
 18349
 18350			000346		T=T+1
 18351			000200			XX=XX/2
 18352			134400			ZZ=ZZ-1000
 18353						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18354						DMOVE	AC,[200000,,0
 18355	050276	120 04 0 00 071121 			XX,,0]
 18356						DFAD	AC,[200000,,0
 18357	050277	110 04 0 00 070743 			0,,0]
 18358	050300	312 04 0 00 071123 		CAME	AC,[ZZ,,0]
 18359	050301	003 04 0 00 000346 		ER3	AC,T
 18360	050302	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18361	050303	004 05 0 00 000346 		ER4	AC+1,T
 18362	050304	321 10 0 00 050276 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18363
 18364
 18365			000347		T=T+1
 18366			000100			XX=XX/2
 18367			133400			ZZ=ZZ-1000
 18368						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18369						DMOVE	AC,[200000,,0
 18370	050305	120 04 0 00 071124 			XX,,0]
 18371						DFAD	AC,[200000,,0
 18372	050306	110 04 0 00 070743 			0,,0]
 18373	050307	312 04 0 00 071126 		CAME	AC,[ZZ,,0]
 18374	050310	003 04 0 00 000347 		ER3	AC,T
 18375	050311	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18376	050312	004 05 0 00 000347 		ER4	AC+1,T
 18377	050313	321 10 0 00 050305 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18378
 18379
 18380			000350		T=T+1
 18381			000040			XX=XX/2
 18382			132400			ZZ=ZZ-1000
 18383						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18384						DMOVE	AC,[200000,,0
 18385	050314	120 04 0 00 071127 			XX,,0]
 18386						DFAD	AC,[200000,,0
 18387	050315	110 04 0 00 070743 			0,,0]
 18388	050316	312 04 0 00 071131 		CAME	AC,[ZZ,,0]
 18389	050317	003 04 0 00 000350 		ER3	AC,T
 18390	050320	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18391	050321	004 05 0 00 000350 		ER4	AC+1,T
 18392	050322	321 10 0 00 050314 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18393
 18394
 18395			000351		T=T+1
 18396			000020			XX=XX/2
 18397			131400			ZZ=ZZ-1000
 18398						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18399						DMOVE	AC,[200000,,0
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-11
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0457

 18400	050323	120 04 0 00 071132 			XX,,0]
 18401						DFAD	AC,[200000,,0
 18402	050324	110 04 0 00 070743 			0,,0]
 18403	050325	312 04 0 00 071134 		CAME	AC,[ZZ,,0]
 18404	050326	003 04 0 00 000351 		ER3	AC,T
 18405	050327	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18406	050330	004 05 0 00 000351 		ER4	AC+1,T
 18407	050331	321 10 0 00 050323 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18408
 18409
 18410			000352		T=T+1
 18411			000010			XX=XX/2
 18412			130400			ZZ=ZZ-1000
 18413						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18414						DMOVE	AC,[200000,,0
 18415	050332	120 04 0 00 071135 			XX,,0]
 18416						DFAD	AC,[200000,,0
 18417	050333	110 04 0 00 070743 			0,,0]
 18418	050334	312 04 0 00 071137 		CAME	AC,[ZZ,,0]
 18419	050335	003 04 0 00 000352 		ER3	AC,T
 18420	050336	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18421	050337	004 05 0 00 000352 		ER4	AC+1,T
 18422	050340	321 10 0 00 050332 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18423
 18424
 18425			000353		T=T+1
 18426			000004			XX=XX/2
 18427			127400			ZZ=ZZ-1000
 18428						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18429						DMOVE	AC,[200000,,0
 18430	050341	120 04 0 00 071140 			XX,,0]
 18431						DFAD	AC,[200000,,0
 18432	050342	110 04 0 00 070743 			0,,0]
 18433	050343	312 04 0 00 071142 		CAME	AC,[ZZ,,0]
 18434	050344	003 04 0 00 000353 		ER3	AC,T
 18435	050345	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18436	050346	004 05 0 00 000353 		ER4	AC+1,T
 18437	050347	321 10 0 00 050341 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18438
 18439
 18440			000354		T=T+1
 18441			000002			XX=XX/2
 18442			126400			ZZ=ZZ-1000
 18443						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18444						DMOVE	AC,[200000,,0
 18445	050350	120 04 0 00 071143 			XX,,0]
 18446						DFAD	AC,[200000,,0
 18447	050351	110 04 0 00 070743 			0,,0]
 18448	050352	312 04 0 00 071145 		CAME	AC,[ZZ,,0]
 18449	050353	003 04 0 00 000354 		ER3	AC,T
 18450	050354	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18451	050355	004 05 0 00 000354 		ER4	AC+1,T
 18452	050356	321 10 0 00 050350 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18453
 18454
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-12
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0458

 18455			000355		T=T+1
 18456			000001			XX=XX/2
 18457			125400			ZZ=ZZ-1000
 18458						DFARP	T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
 18459						DMOVE	AC,[200000,,0
 18460	050357	120 04 0 00 071146 			XX,,0]
 18461						DFAD	AC,[200000,,0
 18462	050360	110 04 0 00 070743 			0,,0]
 18463	050361	312 04 0 00 071150 		CAME	AC,[ZZ,,0]
 18464	050362	003 04 0 00 000355 		ER3	AC,T
 18465	050363	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18466	050364	004 05 0 00 000355 		ER4	AC+1,T
 18467	050365	321 10 0 00 050357 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18468
 18469
 18470
 18471		000001	000000			XX=1000000
 18472
 18473						REPEAT	^D18,
 18474					<T=T+1
 18475						XX=XX/2
 18476						ZZ=ZZ-1000
 18477						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0
 18478					>
 18479			000356		T=T+1
 18480			400000			XX=XX/2
 18481			124400			ZZ=ZZ-1000
 18482						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18483						DMOVE	AC,[200000,,0
 18484	050366	120 04 0 00 071151 			0,,XX]
 18485						DFAD	AC,[200000,,0
 18486	050367	110 04 0 00 070743 			0,,0]
 18487	050370	312 04 0 00 071153 		CAME	AC,[ZZ,,0]
 18488	050371	003 04 0 00 000356 		ER3	AC,T
 18489	050372	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18490	050373	004 05 0 00 000356 		ER4	AC+1,T
 18491	050374	321 10 0 00 050366 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18492
 18493			000357		T=T+1
 18494			200000			XX=XX/2
 18495			123400			ZZ=ZZ-1000
 18496						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18497						DMOVE	AC,[200000,,0
 18498	050375	120 04 0 00 071154 			0,,XX]
 18499						DFAD	AC,[200000,,0
 18500	050376	110 04 0 00 070743 			0,,0]
 18501	050377	312 04 0 00 071156 		CAME	AC,[ZZ,,0]
 18502	050400	003 04 0 00 000357 		ER3	AC,T
 18503	050401	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18504	050402	004 05 0 00 000357 		ER4	AC+1,T
 18505	050403	321 10 0 00 050375 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18506
 18507			000360		T=T+1
 18508			100000			XX=XX/2
 18509			122400			ZZ=ZZ-1000
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-13
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0459

 18510						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18511						DMOVE	AC,[200000,,0
 18512	050404	120 04 0 00 071157 			0,,XX]
 18513						DFAD	AC,[200000,,0
 18514	050405	110 04 0 00 070743 			0,,0]
 18515	050406	312 04 0 00 071161 		CAME	AC,[ZZ,,0]
 18516	050407	003 04 0 00 000360 		ER3	AC,T
 18517	050410	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18518	050411	004 05 0 00 000360 		ER4	AC+1,T
 18519	050412	321 10 0 00 050404 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18520
 18521			000361		T=T+1
 18522			040000			XX=XX/2
 18523			121400			ZZ=ZZ-1000
 18524						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18525						DMOVE	AC,[200000,,0
 18526	050413	120 04 0 00 071162 			0,,XX]
 18527						DFAD	AC,[200000,,0
 18528	050414	110 04 0 00 070743 			0,,0]
 18529	050415	312 04 0 00 071164 		CAME	AC,[ZZ,,0]
 18530	050416	003 04 0 00 000361 		ER3	AC,T
 18531	050417	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18532	050420	004 05 0 00 000361 		ER4	AC+1,T
 18533	050421	321 10 0 00 050413 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18534
 18535			000362		T=T+1
 18536			020000			XX=XX/2
 18537			120400			ZZ=ZZ-1000
 18538						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18539						DMOVE	AC,[200000,,0
 18540	050422	120 04 0 00 071165 			0,,XX]
 18541						DFAD	AC,[200000,,0
 18542	050423	110 04 0 00 070743 			0,,0]
 18543	050424	312 04 0 00 071167 		CAME	AC,[ZZ,,0]
 18544	050425	003 04 0 00 000362 		ER3	AC,T
 18545	050426	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18546	050427	004 05 0 00 000362 		ER4	AC+1,T
 18547	050430	321 10 0 00 050422 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18548
 18549			000363		T=T+1
 18550			010000			XX=XX/2
 18551			117400			ZZ=ZZ-1000
 18552						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18553						DMOVE	AC,[200000,,0
 18554	050431	120 04 0 00 071170 			0,,XX]
 18555						DFAD	AC,[200000,,0
 18556	050432	110 04 0 00 070743 			0,,0]
 18557	050433	312 04 0 00 071172 		CAME	AC,[ZZ,,0]
 18558	050434	003 04 0 00 000363 		ER3	AC,T
 18559	050435	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18560	050436	004 05 0 00 000363 		ER4	AC+1,T
 18561	050437	321 10 0 00 050431 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18562
 18563			000364		T=T+1
 18564			004000			XX=XX/2
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-14
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0460

 18565			116400			ZZ=ZZ-1000
 18566						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18567						DMOVE	AC,[200000,,0
 18568	050440	120 04 0 00 071173 			0,,XX]
 18569						DFAD	AC,[200000,,0
 18570	050441	110 04 0 00 070743 			0,,0]
 18571	050442	312 04 0 00 071175 		CAME	AC,[ZZ,,0]
 18572	050443	003 04 0 00 000364 		ER3	AC,T
 18573	050444	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18574	050445	004 05 0 00 000364 		ER4	AC+1,T
 18575	050446	321 10 0 00 050440 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18576
 18577			000365		T=T+1
 18578			002000			XX=XX/2
 18579			115400			ZZ=ZZ-1000
 18580						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18581						DMOVE	AC,[200000,,0
 18582	050447	120 04 0 00 071176 			0,,XX]
 18583						DFAD	AC,[200000,,0
 18584	050450	110 04 0 00 070743 			0,,0]
 18585	050451	312 04 0 00 071200 		CAME	AC,[ZZ,,0]
 18586	050452	003 04 0 00 000365 		ER3	AC,T
 18587	050453	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18588	050454	004 05 0 00 000365 		ER4	AC+1,T
 18589	050455	321 10 0 00 050447 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18590
 18591			000366		T=T+1
 18592			001000			XX=XX/2
 18593			114400			ZZ=ZZ-1000
 18594						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18595						DMOVE	AC,[200000,,0
 18596	050456	120 04 0 00 071201 			0,,XX]
 18597						DFAD	AC,[200000,,0
 18598	050457	110 04 0 00 070743 			0,,0]
 18599	050460	312 04 0 00 071203 		CAME	AC,[ZZ,,0]
 18600	050461	003 04 0 00 000366 		ER3	AC,T
 18601	050462	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18602	050463	004 05 0 00 000366 		ER4	AC+1,T
 18603	050464	321 10 0 00 050456 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18604
 18605			000367		T=T+1
 18606			000400			XX=XX/2
 18607			113400			ZZ=ZZ-1000
 18608						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18609						DMOVE	AC,[200000,,0
 18610	050465	120 04 0 00 071204 			0,,XX]
 18611						DFAD	AC,[200000,,0
 18612	050466	110 04 0 00 070743 			0,,0]
 18613	050467	312 04 0 00 071206 		CAME	AC,[ZZ,,0]
 18614	050470	003 04 0 00 000367 		ER3	AC,T
 18615	050471	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18616	050472	004 05 0 00 000367 		ER4	AC+1,T
 18617	050473	321 10 0 00 050465 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18618
 18619			000370		T=T+1
DFKCA	KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 	MACRO %53(1026) 13:57  3-Oct-80 Page 3-15
DFKCA4	MAC	 3-Oct-80 13:57		TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS     SEQ 0461

 18620			000200			XX=XX/2
 18621			112400			ZZ=ZZ-1000
 18622						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18623						DMOVE	AC,[200000,,0
 18624	050474	120 04 0 00 071207 			0,,XX]
 18625						DFAD	AC,[200000,,0
 18626	050475	110 04 0 00 070743 			0,,0]
 18627	050476	312 04 0 00 071211 		CAME	AC,[ZZ,,0]
 18628	050477	003 04 0 00 000370 		ER3	AC,T
 18629	050500	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18630	050501	004 05 0 00 000370 		ER4	AC+1,T
 18631	050502	321 10 0 00 050474 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18632
 18633			000371		T=T+1
 18634			000100			XX=XX/2
 18635			111400			ZZ=ZZ-1000
 18636						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18637						DMOVE	AC,[200000,,0
 18638	050503	120 04 0 00 071212 			0,,XX]
 18639						DFAD	AC,[200000,,0
 18640	050504	110 04 0 00 070743 			0,,0]
 18641	050505	312 04 0 00 071214 		CAME	AC,[ZZ,,0]
 18642	050506	003 04 0 00 000371 		ER3	AC,T
 18643	050507	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18644	050510	004 05 0 00 000371 		ER4	AC+1,T
 18645	050511	321 10 0 00 050503 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18646
 18647			000372		T=T+1
 18648			000040			XX=XX/2
 18649			110400			ZZ=ZZ-1000
 18650						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18651						DMOVE	AC,[200000,,0
 18652	050512	120 04 0 00 071215 			0,,XX]
 18653						DFAD	AC,[200000,,0
 18654	050513	110 04 0 00 070743 			0,,0]
 18655	050514	312 04 0 00 071217 		CAME	AC,[ZZ,,0]
 18656	050515	003 04 0 00 000372 		ER3	AC,T
 18657	050516	312 05 0 00 070660 		CAME	AC+1,[0,,0]
 18658	050517	004 05 0 00 000372 		ER4	AC+1,T
 18659	050520	321 10 0 00 050512 		JUMPL	AC+4,.-^D6		;LOOP ON ERROR SWITCH^
 18660
 18661			000373		T=T+1
 18662			000020			XX=XX/2
 18663			107400			ZZ=ZZ-1000
 18664						DFARP	T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
 18665						DMOVE	AC,[200000,,0
 18666	050521	120 04 0 00 071220 			0,,XX]
 18667						DFAD	AC,[200000,,0
 18668	050522	110 04 0 00 070743 			0,,0]
 18669	050523	312 04 0 00 071222 		CAME	AC,[ZZ,,0]
 18670	050524	003 04 0 00 000373 		ER3	AC,T