Google
 

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






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

	PRODUCT CODE:		AH-F827A-DD

	DIAGNOSTIC CODE:	DFKCC

	PRODUCT NAME:	 	DFKCCA0 DECSYSTEM10 KL10 ADVANCED
				INSTRUCTION DIAGNOSTIC #3
				(EXTENDED INSTRUCTION)

	VERSION:		0.2

	DATE RELEASED:		JANUARY 1987

	MAINTAINED BY:		DIAGNOSTIC ENGINEERING

	AUTHOR:			JOHN R. KIRCHOFF

		        COPYRIGHT (C) 1979

	        DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

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

	DIGITAL EQUIPMENT CORPORATION ASSUMES NO  RESPONSIBILITY FOR THE
	USE  OR  RELIABILITY  OF  ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
	SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
			TABLE OF CONTENTS                                                                                  SEQ 0002
			-----------------

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	OPERATIONAL VARIATIONS

8.0	LISTING
1.0	ABSTRACT                                                                                                           SEQ 0003

	THIS DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
	THIRD OF A SERIES OF ADVANCED INSTRUCTION DIAGNOSTICS FOR
	THE KL10.  THIS ADVANCED INSTRUCTION DIAGNOSTIC PERFORMS
	TESTING OF THE KL10 MICRO-CODE FOR THE EXTENDED INSTRUCTION SET.

	THIS INSTRUCTION SET IS FOR HANDLING STRINGS.  ALL STRING
	INSTRUCTIONS ARE IN THE EXTENDED INSTRUCTION SET, AND ALL
	THEREFORE HAVE A TWO WORD FORMAT, THE FIRST WORD BEING
	EXTEND.  THE SECOND INSTRUCTION WORD, WHOSE OWN EFFECTIVE
	ADDRESS IS E1, IS AT LOCATION E0, WHICH IS THE EFFECTIVE ADDRESS
	OF THE EXTEND.  AN INSTRUCTION THAT "OFFSETS" USES E1 AS A
	SIGNED OFFSET, IN WHICH BIT 18 IS THE SIGN.  AN INSTRUCTION THAT
	"TRANSLATES" OR "EDITS" MAKES USE OF A TRANSLATION TABLE THAT
	BEGINS AT E1.

	THE INSTRUCTIONS TESTED ARE:

	MOVES:

	MOVSLJ	-	MOVE STRING LEFT JUSTIFIED
	MOVSO	-	MOVE STING OFFSET
	MOVST	-	MOVE STRING TRANSLATED
	MOVSRJ	-	MOVE STRING RIGHT JUSTIFIED

	COMPARE STRINGS:

	CMPSL	-	SKIP IF STRING 1 LESS THAN STRING 2
	CMPSE	-	SKIP IF STRING 1 EQUAL TO STRING 2
	CMPSLE	-	SKIP IF STRING 1 LESS THAN OR EQUAL TO STING 2
	CMPSGE	-	SKIP IF STRING 1 GREATER THAN OR EQUAL TO STING 2
	CMPSN	-	SKIP IF STRING 1 NOT EQUAL TO STING 2
	CMPSG	-	SKIP IF STRING 1 GREATER THAN STRING 2

	DECIMAL CONVERSIONS:

	CVTBDO	-	CONVERT BINARY TO DECIMAL OFFSET
	CVTBDT	-	CONVERT BINARY TO DECIMAL TRANSLATED
	CVTDBO	-	CONVERT DECIMAL TO BINARY OFFSET
	CVTDBT	-	CONVERT DECIMAL TO BINARY TRANSLATED

	STRING EDITING:

	EDIT	-	EDIT STRING
2.0	REQUIREMENTS                                                                                                       SEQ 0004

2.1	EQUIPMENT

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

	CONSOLE PROCESSOR
	CONSOLE TELETYPE
	LOAD DEVICE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

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

	FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
3.2	STARTING PROCEDURE                                                                                                 SEQ 0005

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

	B.  EXEC MODE

	    STAND-ALONE STARTING ADDRESS IS 30000.

	C.  USER MODE

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

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

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

		    SPECIFY LH SWITCHES IN OCTAL-

		    SPECIFY RH SWITCHES IN OCTAL- TYPE 0 

******			(THERE ARE NO RH SWITCHES)

		    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.

3.3	OPERATING PROCEDURE

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

	B.  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.
4.0	DATA SWITCH FUNCTIONS                                                                                              SEQ 0006

	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 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	0	FAST CYCLE (1 PASS)
			1	REPETITION COUNT OF 10

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

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

	12   MODDVC		NOT USED

	13   INHCSH	0	ALLOW CACHE USE
			1	INHIBIT CACHE
5.0	ERRORS                                                                                                             SEQ 0007

	ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THERE ARE
	TWO TYPES OF PROGRAM ERROR PRINTOUT.
	THE FIRST TYPE IS THE STANDARD SUBROUTINE PACKAGE ERROR MACRO
	PRINTOUT. IT IS USED FOR REPORTING ERRORS IN THE MUUO TRAP TESTING
	AND THE PAGE FAIL TEST.
	PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
	NUMBER AND THE CONTENTS OF AN APPLICABLE AC (CORRECT DATA,
	ACTUAL DATA,	AND THE DISCREPANCY BETWEEN THE TWO.)

	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.

	THE SECOND TYPE IS IMPLEMENTED COMPLETELY IN THE PROGRAM.
	THIS TYPE OF ERROR REPORT IS USED IN ALL INSTRUCTION CASE
	TESTING, AND THE INTERRUPTABILITY TEST.
	PRINTOUT FOR CASE TESTING ERROR CONTAINS THE INITIAL AC BLOCK
	DATA, ACTUAL AC BLOCK RESULT, AND CORRECT AC BLOCK RESULT.
	DEPENDING ON THE INSTRUCTION THE SOURCE,DESTINATION AND SIMULATED
	DESTINATION STRINGS ARE PRINTED. E0+1 AND E0+2 WORDS ARE PRINTED
	IF APPLICABLE. IF THE INSTRUCTION TOOK AN INCORRECT SKIP OR NON-
	SKIP RETURN THIS IS ALSO PRINTED.

6.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE
	CONSOLE PROCESSOR.

7.0	OPERATIONAL VARIATIONS                                                                                             SEQ 0008

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
	    RELIABILITY AND ACCEPTANCE TESTS FOR THE EXTENDED
	    INSTRUCTION SET MICRO-CODE. THE FOLLOWING INFORMATION MAY
	    BE USEFUL:

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

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

	    IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
	    RETURN TO SMMON COMMAND MODE.
7.0	OPERATIONAL VARIATIONS (CON'T)                                                                                     SEQ 0009

	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.

8.0	LISTING
		HISTORY FILE FOR DFKCC
		----------------------                                                                                     SEQ 0010
---------------------------------------------------------------

CODE:		MAINDEC-10-DFKCC

TITLE:		DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3
		EXTENDED INSTRUCTIONS

VERSION:	0.1

DATE:		SEPTEMBER 1979

AUTHOR:		JOHN R. KIRCHOFF

REASON:		ORIGINAL RELEASE OF THIS PROGRAM FOR KL-10.
---------------------------------------------------------------

CODE:		MAINDEC-10-DFKCC

TITLE:		DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3
		EXTENDED INSTRUCTIONS

VERSION:	0.2

DATE:		JANUARY 1987

UPDATE AUTHOR:	STEVE BEEMAN

REASON:		Program was failing on machines with MCA20 when
		1 or 2 selected quadrants of cache were enabled
---------------------------------------------------------------
DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 1             
                                                                                                                           SEQ 0011




















				   DOCUMENT
				**************
				  DFKCC  LST
				**************

















		    COPYRIGHT 1987
		    DIGITAL EQUIPMENT CORPORATION
		    MAYNARD, MASS. 01754

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 2             
                                                                                                                           SEQ 0012

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


	1	

	29	DIAGNOSTIC PARAMETERS

	60	PROGRAM PARAMETERS

	479	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977

	514	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976

	720	ERROR HANDLING UUO DEFINITIONS, JAN 5,1976

	758	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977

	1086	PROGRAM CONTROL SECTION

	1128	MUUO TRAP TESTING

	1398	EXTEND INSTRUCTION CASE TESTING

	3134	PAGE FAIL TESTING

	3987	INSTRUCTION SIMULATORS

	4655	INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES

	5112	MUUO AND PAGE FAIL HANDLERS

	5358	PROGRAM SUPPORT ROUTINES

	5731	PROGRAM PRINT ROUTINES

	5909	GENERAL PROGRAM TABLE STORAGE

	6033	INSTRUCTION SPECIFIC STORAGE AREA

	6509	INSTRUCTION CASE TABLES

	6714	*STOR* RESERVED STORAGE, JULY 19,1977
DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 3             
                                                                                                                           SEQ 0013
		*****************************************************************
	1	MAINDEC-10-DFKCC
		*****************************************************************

		*****************************************************************
	29	DIAGNOSTIC PARAMETERS
		*****************************************************************

		*****************************************************************
	60	PROGRAM PARAMETERS
		*****************************************************************

		63	ACCUMULATOR ASSIGNMENTS

		100	CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF

		148	CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF

		237	INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)

		245	EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS

		264	EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES

		327	PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL

		*****************************************************************
	479	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
		*****************************************************************

		484	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

		*****************************************************************
	514	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
		*****************************************************************

		517	SPECIAL SUBPROGRAM LINKAGES

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

		560	SUBROUTINE INITIALIZATION CALL

		566	HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).

		573	TERMINAL INPUT UUO'S
			ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
			CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 4             
                                                                                                                           SEQ 0014
		589	TERMINAL OUTPUT UUO'S.

		655	SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
				CONSERVES CORE OVER ASCIZ

		660	CONSOLE SWITCH INPUT UUO.
			READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
			 USER MODE.

		666	CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
			EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.

		672	KL10 ONLY CACHE OPERATION UUO'S

		677	END OF PASS/PROGRAM UUOS

		680	DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.

		685	MEMORY MANAGEMENT UUO'S
			UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
			ADDRESS CONVERSION, ETC...

		697	DEVICE CODE MODIFICATION UUO
			ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
			IOT'S TO A DIFFERENT DEVICE CODE.

		707	"DIAMON" FILE SELECTION AND READ UUOS

		714	KI10 ONLY UUO FOR PRINTING MARGIN VALUES

		*****************************************************************
	720	ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
		*****************************************************************

		723	ERROR HANDLER PARAMETERS

		732	THE ERROR HANDLER MACROS

		734	A MACRO TO REPORT AN ERROR AND LOOP

		745	A MACRO TO REPORT AN ERROR AND NOT LOOP

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 5             
                                                                                                                           SEQ 0015
		*****************************************************************
	758	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
		*****************************************************************

		763	PROGRAM STARTING ADDRESSES
			THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
			NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
			OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
			MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.

		796	PROGRAM FIXED PARAMETER AREA

		816	PROGRAM VARIABLE PARAMETER AREA

		836	SPECIAL PROGRAM DISPATCH ADDRESSES

		867	PROCESSOR CONTROL STORAGE

		887	UUO DISPATCH TABLE

		907	MEMORY MANAGMENT STORAGE

		917	PRINT CONTROL STORAGE

		940	THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
			TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
				MOVEI	NAME
				PNTA		;OR PNTAF

		971	USER MODE OUTPUT FILE INFORMATION

		980	DISK UPDATE MODE FILE INFORMATION

		988	PUSHDOWN LIST CONTROL INFORMATION

		996	POWER LINE CLOCK FREQUENCY FLAG

		1002	KL10 CACHE CONTROL FLAGS

		1009	NUMBER INPUT DIGIT FLAG

		1015	KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION

		1021	ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS

		1029	SPECIAL USERS UUO INTERCEPT INSTRUCTION

		1034	USER MODE MONITOR TYPE FLAG

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 6             
                                                                                                                           SEQ 0016
		1040	SPECIAL USERS MUUO INTERCEPT INSTRUCTION

		1046	SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION

		1052	"SWITCH" CALL USAGE CONTROL

		1058	SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS

		1065	SM10 (KS-10) PROCESSOR TYPE FLAG

		1071	RIGHT HALF SWITCHES PROMPT TABLE ADDRESS

		1077	SPECIAL FUTURE EXPANSION ROOM

		1081	END OF FIXED STORAGE

		*****************************************************************
	1086	PROGRAM CONTROL SECTION
		*****************************************************************

		1089	START - INITIALIZATION ROUTINE

		1110	STARTA - PROGRAM PASS CONTROL SECTION

		*****************************************************************
	1128	MUUO TRAP TESTING
		*****************************************************************

		1131	TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST
			
				THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE 
				EXTENDED INSTRUCTION SET AS INSTRUCTIONS.
				FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE.
				EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO.
				IF IT DOES NOT AN ERROR PRINTOUT OCCURS.

		1179	TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST
			
				THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED
				OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE
				SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING,
				BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.)
				IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED
				FOR THE E0 WORD AN ERROR PRINTOUT OCCURS.

		1244	TEST 3 -- ILLEGAL AC FIELD TRAP TEST
			
				THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS
				WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE
				EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT
				DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE
				KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN
				POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP
				IF NOT EQUAL TO ZERO.)

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 7             
                                                                                                                           SEQ 0017
			
				NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0
				      IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS
				      MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE
				      BITS HAS NO EFFECT ON THE INSTRUCTION).

		1272	TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9

		1324	TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9

		1366	TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)

		*****************************************************************
	1398	EXTEND INSTRUCTION CASE TESTING
		*****************************************************************

		1401	EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION
			
				THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES
				SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES.
			
				EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM
				A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER
				VALUES, PATTERNS, OFFSETS, ETC.).
			
				WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR
				(ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION
				IS THEN EXECUTED.
			
				THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN
				AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM").
			
				EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN
				THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC.
			
				ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS
				WITH THE NEXT CASE IN SEQUENCE.  THE FAILURE INFORMATION IS PRINTED
				BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT").
			
				THE INITIAL AC BLOCK IS STORED IN ORIGSV.
				THE RESULTS OF THE  SIMULATOR ARE STORED IN RESSV.
				AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION.
				AC7 HOLDS THE CASE TABLE INFORMATION.
				 THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION. 

		1432	TEST 4 -- COMPARE STRING INSTRUCTION TEST
			
				THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
				SIX COMPARE INSTRUCTIONS.

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 8             
                                                                                                                           SEQ 0018
		1639	TEST 5 -- MOVE STRING INSTRUCTION TEST
			
				THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
				FOUR MOVE STRING INSTRUCTIONS.

		1913	TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
			
				THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
				TWO CVTDBX INSTRUCTIONS.

		2105	TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
			
				THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
				TWO CVTBDX INSTRUCTIONS.

		2239	TEST 8 -- EDIT INSTRUCTION TEST
			
				THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF
				SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE.
			
				EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
				EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
				EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
				EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
				EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
				EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
				EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
				EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
				EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
				EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
				EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST

		2262	EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
			
				THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF
				THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS
				OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION
				OF THE FIRST WORD WILL BE FILLED WITH SIGST.

		2334	EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
			
				THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE:
					EXCHMD STOP,
					EXCHMD EXCHMD STOP,
					EXCHMD EXCHMD EXCHMD STOP,
					EXCHMD EXCHMD EXCHMD EXCHMD STOP.
			
				THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE]
				AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS
				WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE
				OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE
				WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE.

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 9             
                                                                                                                           SEQ 0019
		2413	EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
			
				THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED:
				1. S=1
				2. S=0, E0+2=0
				3. S=0, E0+2 NOT =0
			
				THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR
				VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE
				EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED
				WITH THE STOP OPERATOR.

		2490	EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
			
				THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS
				OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE
				FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE
				TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD.

		2562	EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
			
				THERE ARE THREE  EXECUTION PATHS THAT MUST BE TESTED:
				1. S=1
				2. S=0, E0+1=0
				3. S=0, E0+1 NOT =0
			
				THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS
				NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE
				PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE
				EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE
				CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING.

		2640	INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING

		2690	EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
			
				THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES:
					NOP STOP,
					NOP NOP STOP,
					NOP NOP NOP STOP,
					NOP NOP NOP NOP STOP.
			
				THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED 
				WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO
				INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE
				INSTRUCTION.

		2768	EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
			
				THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
				ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
				FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
				THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 10            
                                                                                                                           SEQ 0020
		2840	EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
			
				THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
				ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
				FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
				THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.

		2912	EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
			
				THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
				ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
				FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
				THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.

		2984	EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
			
				THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES
				FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND
				THE S,N AND M FLAGS.
			
				COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED:
				1. S,N AND M FLAGS
				2. E0+1 = AND NOT =0
				3. E0+2 = AND NOT =0
				4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE.

		3061	EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
			
				THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED
				VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED
				AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC
				BYTES TESTED ARE 2XX,3XX,4XX,006.

		*****************************************************************
	3134	PAGE FAIL TESTING
		*****************************************************************

		3139	TEST 9 -- PAGE FAIL RECOVERY TEST
			
				THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION
				USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX).
			
				WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST,
				MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS,
				AND AT THE E0+1 (FILLER) BYTES.
			
				THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75.
				
				THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401
				(WHICH DOES NOT EXIST).
			
				A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000.
			
				THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 11            
                                                                                                                           SEQ 0021
				THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND
				THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY
				ARE NOT CORRECT AN ERROR PRINTOUT OCCURS.
			
				THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401.
				PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000.
			
				WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE
				SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED.
				(SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR
				CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.)
			
				THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK
				ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR
				PRINTOUT OCCURS.

		3182	PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS

		3343	PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS

		3504	PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS

		3665	PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS

		3826	PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS

		*****************************************************************
	3987	INSTRUCTION SIMULATORS
		*****************************************************************

		3990	INSTRUCTION SIMULATORS -- GENERAL INFORMATION
			
				EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH
				THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO
				AC'S 10-14.
			
				THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED
				IS CONTAINED IN THE E0 WORD (BITS 0,8).
			
				FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING
				THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF
				"DESTIN" TO MAKE ERROR COMPARISON POSSIBLE.
			
				THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE
				LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE.
			
				RETURN IS +1 ALWAYS.
			
				CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
				MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
				CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
				CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
				EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 12            
                                                                                                                           SEQ 0022
		4016	CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
			
				THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED
				USING 3 FLAGS AND A SKIP TABLE, SKPTAB.
			
				WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO
				STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3.
			
				SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE
				INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT
				SKPTAB WORD.
			
				IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR
				HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED.

		4100	MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS

		4244	CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS

		4343	CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS

		4494	EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION

		*****************************************************************
	4655	INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
		*****************************************************************

		4658	INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
				-- GENERAL INFORMATION
			
				EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER
				ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE
				ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST.
			
				ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE:
					1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4
					2. ACTUAL RESULT BLOCK IN AC'S 10-14
					3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4
					4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2
					5. SIMULATED DESTIN STRING IN SIMDES
					6. ACTUAL DESTIN STRING IN DESTIN
			
				GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS:
			
					1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME
					   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
					2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER
					   ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS
					3. PNTSTR -- PRINTS STRING OF BYTES
					   ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER
					   IN AC2, RTN+1 ALWAYS
					4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS
					   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
					5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 13            
                                                                                                                           SEQ 0023
					   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
			
				CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
					OF THE EXTEND COMPARE INSTRUCION.
				MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
					OF THE EXTEND MOVXX INSTRUCTIONS.
				CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
					OF THE CVTDBX INSTRUCTIONS.
				CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
					OF THE CVTBDX INSTRUCTIONS.
				EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
					OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.

		4700	CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
				OF THE EXTEND COMPARE INSTRUCION.

		4769	MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
				OF THE EXTEND MOVXX INSTRUCTIONS.

		4856	CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
				OF THE CVTDBX INSTRUCTIONS.

		4916	CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
				OF THE CVTBDX INSTRUCTIONS.

		5000	EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
				OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
				THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX.
				MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE
				EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS. 

		*****************************************************************
	5112	MUUO AND PAGE FAIL HANDLERS
		*****************************************************************

		5115	MUUOHS - MUUO HANDLER INITIALIZATION
				CODE TO SETUP MUUO HANDLER IN EXEC MODE

		5157	MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)

		5186	MUUOHX - UNEXPECTED MUUO ERROR REPORTING

		5216	LUUOH - LUUO HANDLER

		5228	LUUOHX - UNEXPECTED LUUO ERROR REPORTING

		5248	PFHAND -- PAGE FAIL HANDLER
			
				IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK
				IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY.
			
				ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST
				THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES
				AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 14            
                                                                                                                           SEQ 0024
			
				ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
				IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
				NAME TABLE.

		5312	PFPNT -- PAGE FAIL ERROR PRINTER
			
				ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
				IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
				NAME TABLE.

		*****************************************************************
	5358	PROGRAM SUPPORT ROUTINES
		*****************************************************************

		5361	EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION
				ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE. 
			
				UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE
				CASE TABLE PARAMETER WORD.
			
				RETURN IS ALWAYS +1.

		5507	PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
				ENTRY WITH SCRIPT TABLE INDEX IN INSTR

		5526	CDBTN -- USED IN CVTDBT PF TEST

		5533	CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR

		5541	COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
				FINAL AC BLOCK WITH THAT OF THE SIMULATOR

		5570	CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
				IF IT IS A TRANSLATE INSTRUCTION.
			
				TAKE OPCODE IN AC0, RTN +1 ALWAYS

		5589	PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
				SET UP RELOCATION DATA IN THE TABLE,
				SET PAGING AND TRAP ENABLE,
				AND LOAD THE USER BASE REGISTER

		5626	PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
				ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY

		5653	SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16

		5691	CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 15            
                                                                                                                           SEQ 0025
		5712	COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS

		*****************************************************************
	5731	PROGRAM PRINT ROUTINES
		*****************************************************************

		5734	PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS

		5765	PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH

		5776	PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE

		5796	PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH
				ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED
				AND AC2 CONTAINS THE BYTE POINTER TO BE USED.

		5829	PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)=  CASE TABLE ADDR)

		5846	RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)

		5862	PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
				LOCATED AT E1 FOR LENGTH OF 20

		*****************************************************************
	5909	GENERAL PROGRAM TABLE STORAGE
		*****************************************************************

		5932	EXTENDED OPERATOR OPCODE TABLE

		5954	SOFTWARE INTERRUPT TABLE AREA

		5977	EXECUTE INSTRUCTION STORAGE (EO,E1)

		5991	SIXBIT EXTENDED OPERATOR MNEMONIC TABLE

		6012	ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
				OF EXTEND INSTRUCTIONS

		6020	SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
				DESTINATION STRINGS

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 16            
                                                                                                                           SEQ 0026
		*****************************************************************
	6033	INSTRUCTION SPECIFIC STORAGE AREA
		*****************************************************************

		6036	SKPTAB -- INSTRUCTION SKIP TABLE

		6049	BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS.
				USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS
				INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.)

		6066	PATTBL -- EDIT INSTRUCTION PATTERN TABLE

		6073	EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE
				TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X"
				IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED.

		6133	OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR

		6142	DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS

		6166	DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION

		6196	LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS

		6205	STRING PATTERNS FOR CMPXX INSTRUCTIONS

		6214	PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES

		6234	EDIT INSTRUCTION BYTE POINTERS

		6250	PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST

		6391	PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE 
				RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.

		*****************************************************************
	6509	INSTRUCTION CASE TABLES
		*****************************************************************

		6512	CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS

		6560	MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS

		6591	CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS

		6629	CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS

		6667	EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION

DFKCC  LST                                                              DECDOC VER  00.25   12-JAN-87 13:20:13   PAGE 17            
                                                                                                                           SEQ 0027
		*****************************************************************
	6714	*STOR* RESERVED STORAGE, JULY 19,1977
		*****************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCCT	MAC	 8-Jan-87 14:37		MAINDEC-10-DFKCC                                                                   SEQ 0028

     1					SUBTTL	MAINDEC-10-DFKCC
     2
     3			000000			MCNVER==0
     4			000002			DECVER==2
     5
     6						XLIST
     7						LIST
     8
     9						NAME	\MCNVER,\DECVER^
    10
    11					TITLE	DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2^
    12
    13					;COPYRIGHT (C) 1979
    14					;DIGITAL EQUIPMENT CORPORATION
    15					;MARLBORO, MASS. 01754
    16
    17					;AUTHOR:	JOHN R. KIRCHOFF
    18
    19					;MAINTAINER:	LARGE SYSTEMS DIAGNOSTIC ENGINEERING
    20
    21	000137					LOC 137
    22	000137	000000	000002		MCNVER,,DECVER
    23
    24						SEARCH	MONSYM
    25						SEARCH	MACSYM
    26						NOSYM
    27
    28					IF2,<PRINTX [STARTING PASS 2]>
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCCT	MAC	 8-Jan-87 14:37		DIAGNOSTIC PARAMETERS                                                              SEQ 0029

    29					SUBTTL	DIAGNOSTIC PARAMETERS
    30
    31			000001		EXCASB==1			;ASSEMBLE FOR EXEC MODE OPERATION
    32			000001		USRASB==1			;ASSEMBLE FOR USER MODE OPERATION
    33			000100		DEBUG==100			;SAVE AN AREA FOR DEBUG (CALLED PATCH)
    34			000001		ITERAT==1			;USER MODE PROGRAM ITERATIONS
    35			000001		PGMEND==1			;THE ASSEMBLY PROGRAM END STATEMENT
    36			000001		KL10==1				;ASSEMBLE FOR KL10
    37			000001		KL10P0==1
    38
    39			030000		SADR1=	BEGIN
    40			030000		SADR2=	BEGIN
    41			030000		SADR3=	BEGIN
    42			030007		SADR4=	SRTDDT
    43			030061		SADR5=	$BEND2
    44			030007		SADR6=	SRTDDT
    45		254200	030000		SADR7=	HALT BEGIN
    46		254200	030000		SADR8=	HALT BEGIN
    47		254200	030000		SADR9=	HALT BEGIN
    48		254200	030000		SADR10=	HALT BEGIN
    49		254200	030000		SADR11=	HALT BEGIN
    50			000000		PAREA1=	0
    51			000017		PAREA2=	17
    52		444653	434300		PAREA3=	SIXBIT /DFKCC/
    53		605664	000000		PAREA4=	SIXBIT /PNT/
    54			000000		PAREA5=	0
    55			000000		PAREA6=	0
    56
    57			000134		.JBINT=134			;TOPS-10 ERROR INTERCEPTING BLOCK
    58
    59		367640	000000		OPDEF	REPTLP	[SOJG REPT,]	;REPEAT LOOP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0030

    60					SUBTTL PROGRAM PARAMETERS
    61
    62					; **********************************************************************
    63					;*ACCUMULATOR ASSIGNMENTS
    64					; **********************************************************************
    65
    66			000010		SLEN=	10
    67			000010		AC=	10
    68			000010		BDH=	10
    69			000010		PADDR=	10
    70			000011		SP=	11
    71			000011		BDL=	11
    72			000013		DLEN=	13
    73			000013		DBH=	13
    74			000013		MA=	13
    75			000014		DP=	14
    76			000014		DBL=	14
    77
    78			000002		SLEN1=	2
    79			000003		SP1=	3
    80			000005		DLEN1=	5
    81			000004		DP1=	4
    82			000001		OP1=	1
    83
    84			000000		AC0=	0
    85			000001		AC1=	1
    86			000002		AC2=	2
    87			000003		AC3=	3
    88			000004		AC4=	4
    89			000005		AC5=	5
    90			000006		AC6=	6
    91			000007		AC7=	7
    92			000010		AC10=	10
    93			000011		AC11=	11
    94			000012		AC12=	12
    95			000013		AC13=	13
    96			000014		AC14=	14
    97			000015		AC15=	15
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0031

    98
    99					; **********************************************************************
   100					;*CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF
   101					; **********************************************************************
   102
   103					; **************************************************
   104					;STRING LENGTH INDICATOR BITS
   105					; **************************************************
   106
   107		400000	000000		EQLEN==	1B0			;STRINGS ARE OF EQUAL LENGTH
   108		200000	000000		SZERO==	1B1			;SOURCE STRING IS ZERO IN LENGTH
   109		100000	000000		DZERO==	1B2			;DESTINATION STRING IS ZERO IN LENGTH
   110		040000	000000		DSZER==	1B3			;SOURCE AND DESTINATION STRING ARE ZERO LENGTH
   111		020000	000000		SLONG==	1B4			;SOURCE STRING IS LONGER THAN DESTIN
   112
   113					; **************************************************
   114					;PATTERN DEFINITION BITS
   115					; **************************************************
   116
   117		010000	000000		ALTPT==	1B5			;PATTERN IS ALTERNATING 1'S AND 0'S
   118		004000	000000		ONEPT==	1B6			;PATTERN IS ALL ONE'S
   119		002000	000000		ONESPT== 1B7			;PATTERN IS EQUAL TO 0,,1
   120
   121					; **************************************************
   122					;FILLER TYPE INDICATOR BITS
   123					; **************************************************
   124
   125		001000	000000		EQFIL==	1B8			;FILLER IS EQUAL TO PATTERN
   126		000400	000000		LFILL==	1B9			;FILLER IS SMALL
   127		000200	000000		GFILL==	1B10			;FILLER IS LARGE
   128
   129					; **************************************************
   130					;BYTE SIZE INDICATOR BITS
   131					; **************************************************
   132
   133		000100	000000		S44==	1B11			;SOURCE BYTE SIZE IS FULL WORD (0= 5 BIT)
   134		000040	000000		D44==	1B12			;DESTIN BYTE SIZE IS FULL WORD (0= 5 BIT)
   135
   136					; **************************************************
   137					;FIRST AND LAST BYTE ADJUST INDICATOR BITS
   138					; **************************************************
   139
   140		000020	000000		ALS==	1B13			;ADJUST LAST BYTE IN SOURCE STRING
   141		000010	000000		ALD==	1B14			;ADJUST LAST BYTE IN DESTINATION STRING
   142		000004	000000		AFS==	1B15			;ADJUST FIRST BYTE IN SOURCE STRING
   143
   144		000002	000000		B0==	1B16			;INDICATOR OF WHERE INTIAL BINARY DATA GOES
   145		000001	000000		HW==	1B17			;INITIAL BINARY DATA TO HIGH OR LOW WORD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0032

   146
   147					; **********************************************************************
   148					;*CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
   149					; **********************************************************************
   150
   151					; **************************************************
   152					;INITIAL FLAG BITS (FOR TRANSLATE INSTRUCTIONS)
   153					; **************************************************
   154
   155		400000	000000		SFL==	1B0
   156		100000	000000		MFL==	1B2
   157		040000	000000		NFL==	1B3
   158
   159					; **************************************************
   160					;TRANSLATION TABLE CONTROL BITS (FOR TRANSLATE INSTRUCTIONS)
   161					;SPECIFIES FUNCTIONS FOR TWO HALFWORDS OF THE TRANSLATION TABLE
   162					; **************************************************
   163
   164		020000	000000		C1==	1B4
   165		010000	000000		C2==	1B5
   166		004000	000000		C3==	1B6
   167		002000	000000		C4==	1B7
   168		001000	000000		C5==	1B8
   169		000400	000000		C6==	1B9
   170
   171					; **************************************************
   172					;DATA SELECTION TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
   173					; **************************************************
   174
   175			000400		DATA0==	1B27
   176			000200		DATA1==	1B28
   177			000100		DATA2==	1B29
   178			000700		DATA==	1B27!1B28!1B29		
   179
   180					; **************************************************
   181					;STRING LENGTH TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
   182					; **************************************************
   183
   184			000040		STRL0==	1B30
   185			000020		STRL1==	1B31
   186			000060		STRL==	1B30!1B31
   187
   188					; **************************************************
   189					;BYTE OFFSET TABLE INDEX  BITS (FOR MOVXX AND CVTXX INSTRUCTIONS)
   190					; **************************************************
   191
   192			000010		OFF0==	1B32
   193			000004		OFF1==	1B33
   194			000014		OFF==	1B32!1B33
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0033

   195
   196					; **********************************************************************
   197					; CONT'D - CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
   198					; **********************************************************************
   199
   200					; **************************************************
   201					;INITIAL PATTERN BYTE # DEFINITION BITS (USED IN EDIT INSTRUCTION)
   202					; **************************************************
   203
   204			000002		PB1==	1B34
   205			000001		PB2==	1B35
   206			000003		PB==	1B34!1B35
   207
   208					; **********************************************************************
   209					;BIT DEFINITIONS USED TO SPECIFY FLAG & TRANSLATION TABLE CONTROL BITS
   210					;IN CASE TABLES
   211					; **********************************************************************
   212
   213			400000		SFL1==	400000
   214			200000		MFL1==	200000
   215			100000		NFL1==	100000
   216
   217			040000		C1A==	040000
   218			020000		C2A==	020000
   219			010000		C3A==	010000
   220			004000		C4A==	004000
   221			002000		C5A==	002000
   222			001000		C6A==	001000
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0034

   223
   224					; **********************************************************************
   225					;DEFINITION OF THE NUMBER OF PLACES THAT THE INDEX TYPE BITS IN THE
   226					;	CASE WORD MUST BE SHIFTED TO ISOLATE THEM IN THE RIGHT-MOST
   227					;	PART OF THE WORD.FACILITATES EASY ALTERATION OF THE CASE TABLE
   228					;	BIT DEFINITIONS FOR MAINTAINANCE PURPOSES.
   229					; **********************************************************************
   230
   231		777777	777776		OFFSH==		-2
   232		777777	777774		STRLSH==	-4
   233		777777	777772		DATASH==	-6
   234			000000		PBSH==		0
   235
   236					; **********************************************************************
   237					;*INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)
   238					; **********************************************************************
   239
   240			000004		GF==	1B33			;SET IF STR1 > STR2
   241			000002		EF==	1B34			;SET IF STR1 = STR2
   242			000001		LF==	1B35			;SET IF STR1 < STR2
   243
   244					; *******************************************************************
   245					;*EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS
   246					; *******************************************************************
   247
   248			000000		STOP==		0
   249			000001		SELECT==	1
   250			000002		SIGST==		2
   251			000003		FLDSEP==	3
   252			000004		EXCHMD==	4
   253			000005		NOP==		5
   254			000100		MESSAG==	100
   255			000500		SKPM==		500
   256			000600		SKPN==		600
   257			000700		SKPA==		700
   258			000200		NOP1==		200
   259			000300		NOP2==		300
   260			000400		NOP3==		400
   261			000006		NOP4==		006
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0035

   262
   263					; **********************************************************************
   264					;*EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES
   265					; **********************************************************************
   266
   267					DEFINE	EDMOD	(%TITL,%TIT1,TITLN,TABWD,FILWD,BYTNM)<			LALL
   268					
   269					%TITL:	MOVEI	.
   270						MOVEM	TESTPC
   271					
   272						MOVEI	AC0,BYTNM		;INDEX TO BYTE TYPE TABLE
   273						MOVEM	BYTYPE		;STORE
   274					
   275						SETZM	OFFSET
   276						CAIN	AC0,1		;EXCHMD OPERATOR?
   277						SETOM	OFFSET		;YES
   278					
   279						HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
   280						HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
   281					
   282					%TIT1:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
   283						SETZM	SKPWD2
   284					
   285						GO	CLRSTR		;CLEAR STRING BYTES
   286					
   287						MOVE	AC2,FILWD	;TABLE FILLER BYTE TYPE
   288						MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
   289						MOVE	AC0,[PATTBL,,PATTBL+1]
   290						BLT	AC0,PATTBL+^D9
   291					
   292						GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
   293					
   294						LDB	AC3,PATBN	;GET THE CURRENT PB#
   295						MOVE	AC1,TABWD(AC3)	;GET TABLE TEST WORD
   296						MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
   297					
   298						SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
   299						MOVE	MA,[POINT 0,SOURCE] ;YES
   300					
   301						MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
   302						BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0036

   303					
   304					; **************************************************
   305						GO	EDTSIM		;SIMULATE THE INSTRUCTION
   306						SETOM	SKPWD1
   307					; **************************************************
   308					
   309						SKIPE	OFFSET		;EXCHMD OPERATOR?
   310						GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
   311					
   312					; **************************************************
   313						EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
   314						SETOM	SKPWD2
   315					; **************************************************
   316					
   317						GO	EDTCOM		;COMPARE THE RESULTS
   318						ERROR	%TIT1,13,0,0,,,EDTPNT
   319														LALL
   320						AOBJN	AC7,%TIT1	;DO THE NEXT CASE
   321					
   322						SETZM	OFFSET
   323						JRST	TITLN		;FINISHED - GO TO NEXT SUBMODULE
   324														SALL>
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0037

   325
   326					; **********************************************************************
   327					;*PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL
   328					; **********************************************************************
   329
   330					DEFINE PFMAC (INS,PFC,COR,CAS,PRE,TRAN)<				LALL
   331					
   332					PRE'ST:	MOVEI	.
   333						MOVEM	TESTPC
   334					
   335						SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
   336					
   337						HRLZI	AC1,INS		;AC1/-# PRE INSTR,,0
   338						HRRI	AC1,PRE'TAB	;AC1/-# PRE INSTR,,OPCODE TABLE ADDR
   339					
   340						SETZM	E0
   341						SETZM	E0+1
   342					
   343					PRE'PF0:	HRREI	AC2,PFC		;AC2/-# PAGE FAIL CASES
   344					
   345						MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
   346						CAIN	AC0,017
   347						SUBI	AC2,1
   348					
   349						CAIE	AC0,004		;EDIT INSTRUCTION?
   350						JRST	PRE'PFA
   351					
   352						MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
   353						MOVEM	AC0,PATTBL
   354						MOVE	AC0,[PATTBL,,PATTBL+1]
   355						BLT	AC0,PATTBL+^D8
   356					
   357						MOVE	AC0,STOPWD
   358						MOVEM	AC0,PATTBL+^D9
   359					
   360					PRE'PFA:	MOVEI	AC3,CAS	;INITIAL AC BLOCK TABLE
   361						MOVEI	AC4,COR	;ADDR OF INTERMEDIATE RESULT TABLE
   362					
   363						SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
   364						SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0038

   365					
   366					; **************************************************
   367					;SET UP THE SOURCE AND DESTINATION STRINGS
   368					; **************************************************
   369					
   370						GO	CLRSTR
   371					
   372						SETZM	75750		;CLEAR THE FAIL STRING AREA
   373						MOVE	AC0,[75750,,75751]
   374						BLT	AC0,76100
   375					
   376					PRE'PF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
   377					
   378						MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
   379						MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
   380					
   381						GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
   382					
   383						SKIPE	FILLF		;FILLER FAILURE CASE?
   384						DPB	AC0,[POINT 9,400777,8] ;YES
   385					
   386						SKIPN	FILLF
   387						DPB	AC0,E0OP	;NO
   388					
   389						SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
   390						JRST	PRE'PC		;NO
   391					
   392						MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
   393						SKIPE	FILLF		;FILLER FAILURE CASE?
   394						HRRM	AC0,400777	;YES
   395						HRRM	AC0,E0		;NO
   396					
   397						MOVE	AC0,[1,,1]
   398						GO	TRAN		;SETUP THE TRANSLATION TABLE
   399						OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0039

   400					
   401					PRE'PC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
   402						BLT	AC0,ORIGSV+4
   403					
   404						SKIPE	FILLF		;FILLER FAILURE CASE?
   405						MOVE	AC0,[0,,PRE'PC2] ;YES
   406						SKIPN	FILLF
   407						MOVE	AC0,[0,,PRE'PC1] ;NO
   408						MOVEM	FAILOC#		;STORE IT
   409					
   410						SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
   411						SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
   412					
   413						MOVEI	PRE'PFX
   414						MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
   415					
   416						GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
   417					
   418						SKIPE	FILLF		;FILLER FAILURE CASE?
   419						JRST	PRE'PC2		;YES
   420					
   421					; **************************************************
   422					PRE'PC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
   423						SETOM	SKPWD2		;NOTE SKIP RETURN
   424					; **************************************************
   425					
   426						JRST	PRE'PF3
   427					
   428					; **************************************************
   429					PRE'PC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
   430						SETOM	SKPWD2		;NOTE SKIP RETURN
   431					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCCT	MAC	 8-Jan-87 14:37		PROGRAM PARAMETERS                                                                 SEQ 0040

   432					
   433					; **************************************************
   434					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
   435					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
   436					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
   437					;INSTRUCTION AND TO HERE.
   438					; **************************************************
   439					
   440					PRE'PF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
   441						JRST	DO'PRE		;YES - OK
   442					
   443						ERROR	PRE'PF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS
   444														LALL
   445						JRST	PRE'NXT		;GO DO THE NEXT CASE
   446					
   447					PRE'PFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
   448						JRST	PRE'PF9	;YES, CHECK INTERMEDIATE RESULTS
   449					
   450						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT
   451						ERLP2	PRE'PF0
   452														LALL
   453						JRST	PRE'NXT
   454					
   455					PRE'PF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT
   456						ERLP2	PRE'PF0
   457														LALL
   458						JRST	PRE'NXT
   459					
   460					; **************************************************
   461					DO'PRE:	GO	PRE'SIM		;SIMULATE THE INSTRUCTION
   462						SETOM	SKPWD1		;NOTE A SKIP RETURN
   463					; **************************************************
   464					
   465						GO	COMAC		;COMPARE THE FINAL RESULTS
   466						ERROR	PRE'PF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT
   467														LALL
   468					PRE'NXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
   469						ADDM	AC0,AC4
   470						ADDI	AC0,1
   471						ADDM	AC0,AC3
   472					
   473						AOJL	AC2,PRE'PF1	;DO THE NEXT PF CASE
   474					
   475						AOBJN	AC1,PRE'PF0	;DO THE NEXT INSTRUCTION
   476						SETZM	OFFSET
   477														SALL>
   478					;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
PARAM	KLM	29-Sep-86 15:26		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977                                SEQ 0041

   479					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
   480
   481					DEFINE	S,<;*********************************************************************>
   482
   483					S^;*********************************************************************^
   484					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   485					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   486					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   487					S^;*********************************************************************^
   488
   489			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   490			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   491			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   492
   493			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   494			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   495			010000		DING==	010000			;RING BELL ON ERROR
   496
   497			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   498			002000		ERSTOP==002000			;HALT ON TEST ERROR
   499			001000		PALERS==001000			;PRINT ALL ERRORS
   500
   501			000400		RELIAB==000400			;RELIABILITY MODE
   502			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   503			000100		INHPAG==000100			;INHIBIT PAGING
   504
   505			000040		MODDVC==000040			;MODIFY DEVICE CODE
   506			000020		INHCSH==000020			;INHIBIT CACHE
   507			000010		OPRSEL==000010			;OPERATOR SELECTION
   508
   509			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   510
   511			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   512
   513									;SWITCH 17 RESERVED !!!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 2
PARAM	KLM	29-Sep-86 15:26		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0042

   514					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
   515
   516					S^;*********************************************************************^
   517					;*SPECIAL SUBPROGRAM LINKAGES
   518					S^;*********************************************************************^
   519
   520			027772		FSELNK=	27772	;FILE SELECT LINK
   521			027773		FRDLNK=	27773	;FILE READ LINK
   522			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   523			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   524			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   525			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   526
   527					S^;*********************************************************************^
   528					;*SPECIAL SUBROUTINE FATAL HALTS
   529					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   530					S^;*********************************************************************^
   531
   532					;ADDRESS   TAG	REASON
   533					;---------------------
   534
   535					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   536					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   537					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   538					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   539					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   540					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   541					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   542					; 1017  EOPERR	;END OF PROGRAM ERROR
   543					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   544
   545					S^;*********************************************************************^
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 3
PARAM	KLM	29-Sep-86 15:26		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0043

   546					S^;*********************************************************************^
   547					;OPERATOR DEFINITIONS (NON-UUO'S)
   548					S^;*********************************************************************^
   549
   550		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   551		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   552		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   553		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   554		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   555		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   556		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   557		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   558
   559					S^;*********************************************************************^
   560					;*SUBROUTINE INITIALIZATION CALL
   561					S^;*********************************************************************^
   562
   563		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   564
   565					S^;*********************************************************************^
   566					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   567					S^;*********************************************************************^
   568
   569		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   570		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   571
   572					S^;*********************************************************************^
   573					;*TERMINAL INPUT UUO'S
   574					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   575					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   576					S^;*********************************************************************^
   577
   578		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   579		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   580		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   581		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   582		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   583		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   584		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   585		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   586		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   587		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
   588		037500	000003		OPDEF	TTICLR	[37B8!12B12!3]	;TTY, CLEAR INPUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 4
PARAM	KLM	29-Sep-86 15:26		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0044

   589					;*TERMINAL OUTPUT UUO'S.
   590
   591		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   592		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   593		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   594		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   595		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   596		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   597		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   598		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   599		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   600		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   601		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   602		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   603		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   604		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   605		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   606		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   607		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   608		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   609		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   610		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   611		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   612		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   613		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   614		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   615		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   616		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   617		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   618		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   619		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   620		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   621		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   622		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   623		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   624		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   625		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   626		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   627		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   628		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   629		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   630		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   631		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   632		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 5
PARAM	KLM	29-Sep-86 15:26		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0045

   633		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   634		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   635		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   636		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   637		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   638		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   639		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   640		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   641		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   642		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   643		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   644		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   645		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   646
   647		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   648
   649					DEFINE	PMSG	(ARG),<
   650						PSIXM	[SIXBIT\ARG'_\]>
   651
   652					DEFINE	PMSGF	(ARG),<
   653						PSIXMF	[SIXBIT\ARG'_\]>
   654
   655					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   656					;*	CONSERVES CORE OVER ASCIZ
   657
   658					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   659
   660					;*CONSOLE SWITCH INPUT UUO.
   661					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   662					;* USER MODE.
   663
   664		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   665
   666					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   667					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   668
   669		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   670		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   671
   672					;*KL10 ONLY CACHE OPERATION UUO'S
   673
   674		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   675		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   676		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 6
PARAM	KLM	29-Sep-86 15:26		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0046

   677					;*END OF PASS/PROGRAM UUOS
   678
   679					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   680					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   681
   682		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   683		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   684
   685					;*MEMORY MANAGEMENT UUO'S
   686					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   687					;*ADDRESS CONVERSION, ETC...
   688
   689		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   690		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   691		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   692		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   693		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   694		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   695		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   696
   697					;*DEVICE CODE MODIFICATION UUO
   698					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   699					;*IOT'S TO A DIFFERENT DEVICE CODE.
   700
   701		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   702		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   703
   704			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   705			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   706
   707					;*"DIAMON" FILE SELECTION AND READ UUOS
   708
   709		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   710		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   711		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   712		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   713
   714					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   715
   716		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   717
   718						XLIST
   719					IFNDEF	KLOLD,<LIST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 7
PARAM	KLM	29-Sep-86 15:26		ERROR HANDLING UUO DEFINITIONS, JAN 5,1976                                         SEQ 0047

   720					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
   721
   722					S^;*********************************************************************^
   723					;*ERROR HANDLER PARAMETERS
   724					S^;*********************************************************************^
   725
   726		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   727		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   728		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   729		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   730		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   731
   732					;*THE ERROR HANDLER MACROS
   733
   734					;*A MACRO TO REPORT AN ERROR AND LOOP
   735
   736						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   737												SALL
   738						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   739							   CORECT,,ACTUAL
   740							   [SIXBIT\D'_\],,ERR]
   741												XALL
   742						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   743					>
   744
   745					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   746
   747						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   748												SALL
   749						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   750							   CORECT,,ACTUAL
   751							   [SIXBIT\D'_\],,ERR]
   752												XALL>
   753
   754					>;END OF KLOLD CONDITIONAL
   755
   756						XLIST
   757						LIST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0048

   758					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
   759
   760	030000					LOC	30000
   761
   762					S^;*********************************************************************^
   763					;*PROGRAM STARTING ADDRESSES
   764					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   765					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   766					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   767					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   768					S^;*********************************************************************^
   769
   770	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   771	030001	254 00 0 00 030600 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   772
   773	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   774
   775	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   776
   777	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   778
   779	030005	254 00 0 00 030000 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   780
   781	030006	254 00 0 00 030000 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   782
   783	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   784	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   785
   786	030010	254 00 0 00 030615 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   787	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   788	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   789
   790	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   791	030014	254200	030000		START2:	SADR8			; "
   792	030015	254200	030000		START3:	SADR9			; "
   793	030016	254200	030000		START4:	SADR10			; "
   794	030017	254200	030000		START5:	SADR11			; "
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 2
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0049

   795					S^;*********************************************************************^
   796					;*PROGRAM FIXED PARAMETER AREA
   797					S^;*********************************************************************^
   798
   799	030020	444653	434300		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   800	030021	605664	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   801	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   802	030023	000000	000017		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   803	030024	000000	000001		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   804	030025	000000	035535		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   805	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   806	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   807	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   808	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   809	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   810	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   811	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   812	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   813	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   814
   815					S^;*********************************************************************^
   816					;*PROGRAM VARIABLE PARAMETER AREA
   817					S^;*********************************************************************^
   818
   819	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   820	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   821	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   822	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   823	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   824	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   825	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   826	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   827	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   828	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   829	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   830	030052	000000	000000		ERRPC:	0		;ERROR PC
   831	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   832	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   833	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   834	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 3
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0050

   835					S^;*********************************************************************^
   836					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   837					S^;*********************************************************************^
   838
   839	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   840	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   841	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   842	030062	000000	030061		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   843	030063	000000	030007		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   844	030064				CPOPJ1:			;SKIP RETURN
   845	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   846	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   847	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   848	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   849	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   850	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   851	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   852	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   853	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   854	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   855	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   856	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   857	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   858	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   859	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   860	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   861
   862	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   863	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   864	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   865
   866					S^;*********************************************************************^
   867					;*PROCESSOR CONTROL STORAGE
   868					S^;*********************************************************************^
   869
   870	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   871	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   872	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   873	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   874	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   875
   876	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   877	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   878
   879	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   880	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   881	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   882	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   883	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   884	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   885	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 4
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0051

   886					S^;*********************************************************************^
   887					;*UUO DISPATCH TABLE
   888					S^;*********************************************************************^
   889						XLIST
   890						LIST
   891	030124	030070	030070		UUODIS:	LUUO1,,$UUOER
   892	030125	030070	030070			LUUO3,,LUUO2
   893	030126	030070	030070			LUUO5,,LUUO4
   894	030127	030070	030070			LUUO7,,LUUO6
   895	030130	030070	030070			LUUO11,,LUUO10
   896	030131	030070	030070			LUUO13,,LUUO12
   897	030132	030070	030070			LUUO15,,LUUO14
   898	030133	030070	030070			LUUO17,,LUUO16
   899	030134	030070	030070			LUUO21,,LUUO20
   900	030135	030070	030070			LUUO23,,LUUO22
   901	030136	030070	030070			LUUO25,,LUUO24
   902	030137	030070	030070			LUUO27,,LUUO26
   903	030140	030070	030070			LUUO31,,LUUO30
   904	030141	030070	030070			LUUO33,,LUUO32
   905
   906					S^;*********************************************************************^
   907					;*MEMORY MANAGMENT STORAGE
   908					S^;*********************************************************************^
   909
   910	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   911	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   912	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   913	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   914	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   915
   916					S^;*********************************************************************^
   917					;*PRINT CONTROL STORAGE
   918					S^;*********************************************************************^
   919
   920	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   921	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   922	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   923	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   924	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   925	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   926	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   927	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   928	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   929	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   930	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   931	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   932	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   933	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   934	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   935	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   936	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   937	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   938	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 5
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0052

   939					S^;*********************************************************************^
   940					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   941					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   942					;*	MOVEI	NAME
   943					;*	PNTA		;OR PNTAF
   944					S^;*********************************************************************^
   945
   946	030242				CRLF:	ASCII/
   947	030242	015 012 000 000 000 	/
   948	030243				CRLF2:	ASCII/
   949
   950	030243	015 012 015 012 000 	/
   951	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   952	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   953	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   954	030247	011 000 000 000 000 	TAB:	ASCII/	/
   955	030250				MINUS:
   956	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   957	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   958	030252	052 000 000 000 000 	AST:	ASCII/*/
   959	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   960	030254	050 000 000 000 000 	LFP:	ASCII/(/
   961	030255	051 000 000 000 000 	RTP:	ASCII/)/
   962	030256	007 0000000000 		BELL:	BYTE (7) 007
   963	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   964	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   965	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   966	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   967	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   968	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   969
   970					S^;*********************************************************************^
   971					;*USER MODE OUTPUT FILE INFORMATION
   972					S^;*********************************************************************^
   973
   974	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   975	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   976	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   977	030272					BLOCK	2
   978
   979					S^;*********************************************************************^
   980					;*DISK UPDATE MODE FILE INFORMATION
   981					S^;*********************************************************************^
   982
   983	030274				$IBUF:	BLOCK	3
   984	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   985	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   986	030301					BLOCK	2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 6
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0053

   987					S^;*********************************************************************^
   988					;*PUSHDOWN LIST CONTROL INFORMATION
   989					S^;*********************************************************************^
   990
   991	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   992	030304				PLISTS:	BLOCK	200
   993	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   994
   995					S^;*********************************************************************^
   996					;*POWER LINE CLOCK FREQUENCY FLAG
   997					S^;*********************************************************************^
   998
   999	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
  1000
  1001					S^;*********************************************************************^
  1002					;*KL10 CACHE CONTROL FLAGS
  1003					S^;*********************************************************************^
  1004
  1005	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
  1006	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
  1007
  1008					S^;*********************************************************************^
  1009					;*NUMBER INPUT DIGIT FLAG
  1010					S^;*********************************************************************^
  1011
  1012	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
  1013
  1014					S^;*********************************************************************^
  1015					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
  1016					S^;*********************************************************************^
  1017
  1018	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
  1019
  1020					S^;*********************************************************************^
  1021					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
  1022					S^;*********************************************************************^
  1023
  1024	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
  1025	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
  1026	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
  1027
  1028					S^;*********************************************************************^
  1029					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
  1030					S^;*********************************************************************^
  1031
  1032	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 7
FIXED	KLM	29-Sep-86 15:26		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977                           SEQ 0054

  1033					S^;*********************************************************************^
  1034					;*USER MODE MONITOR TYPE FLAG
  1035					S^;*********************************************************************^
  1036
  1037	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
  1038
  1039					S^;*********************************************************************^
  1040					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
  1041					S^;*********************************************************************^
  1042
  1043	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
  1044
  1045					S^;*********************************************************************^
  1046					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
  1047					S^;*********************************************************************^
  1048
  1049	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
  1050
  1051					S^;*********************************************************************^
  1052					;*"SWITCH" CALL USAGE CONTROL
  1053					S^;*********************************************************************^
  1054
  1055	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
  1056
  1057					S^;*********************************************************************^
  1058					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
  1059					S^;*********************************************************************^
  1060
  1061	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
  1062	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
  1063
  1064					S^;*********************************************************************^
  1065					;*SM10 (KS-10) PROCESSOR TYPE FLAG
  1066					S^;*********************************************************************^
  1067
  1068	030524	000000	000000		SM10:	0	;IF -1 THIS IS A KS-10
  1069
  1070					S^;*********************************************************************^
  1071					;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
  1072					S^;*********************************************************************^
  1073
  1074	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
  1075
  1076					S^;*********************************************************************^
  1077					;*SPECIAL FUTURE EXPANSION ROOM
  1078					S^;*********************************************************************^
  1079
  1080					S^;*********************************************************************^
  1081					;*END OF FIXED STORAGE
  1082					S^;*********************************************************************^
  1083
  1084	030577					LOC	30577
  1085	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM CONTROL SECTION                                                            SEQ 0055

  1086					SUBTTL	PROGRAM CONTROL SECTION
  1087													SALL
  1088					; **********************************************************************
  1089					;*START - INITIALIZATION ROUTINE
  1090					; **********************************************************************
  1091
  1092	030600	201 00 0 00 030600 	START:	MOVEI	START		;GET ADDRESS OF CURRENT PROGRAM SECTION
  1093	030601	202 00 0 00 030051 		MOVEM	TESTPC		;STORE IT
  1094
  1095	030602	265 00 0 00 030011 		PGMINT			;INITIALIZE PROGRAM
  1096
  1097	030603	402 00 0 00 041217 		SETZM	MIC202#
  1098	030604	332 00 0 00 030037 		SKIPE	USER		;USER MODE ?
  1099	030605	254 00 0 00 030615 		JRST	STARTA		;YES, CAN'T DO UCODE CHECK THEN
  1100
  1101	030606	7 000 00 0 00 000000 		BLKI	APR,0		;GET KL10 CPU ID INFO
  1102	030607	207 00 0 00 000000 		MOVSS			;SEPARATE MICROCODE VERSION NUMBER
  1103	030610	405 00 0 00 000777 		ANDI	777
  1104	030611	301 00 0 00 000202 		CAIL	202		;VERSION 202 OR LATER ?
  1105	030612	476 00 0 00 041217 		SETOM	MIC202		;YES, SET FLAG
  1106	030613	301 00 0 00 000230 		CAIL	230		;IF 230 OR GREATER
  1107	030614	402 00 0 00 041217 		SETZM	MIC202		;UCODE FIX 202 REMOVED
  1108
  1109					; **********************************************************************
  1110					;*STARTA - PROGRAM PASS CONTROL SECTION
  1111					; **********************************************************************
  1112
  1113	030615	260 17 0 00 034713 	STARTA:	GO	MUUOHS		;SET UP PROGRAM'S OWN MUUO HANDLER
  1114	030616	402 00 0 00 041220 		SETZM	OFFSET
  1115
  1116	030617	201 00 0 00 000001 		MOVEI	1		;INITIALIZE STRING LENGTH
  1117	030620	202 00 0 00 041230 		MOVEM	RLEN#
  1118	030621	402 00 0 00 041215 		SETZM	INCSKP#		;CLEAR SKIP RETURN FLAG
  1119
  1120	030622	037 10 0 00 000002 		SWITCH
  1121	030623	201 01 0 00 000012 		MOVEI	AC1,^D10
  1122	030624	607 00 0 00 000400 		TLNN	RELIAB		;RELIABILITY MODE?
  1123	030625	201 01 0 00 000001 		MOVEI	AC1,1		;NO - FAST CYCLE MODE
  1124	030626	202 01 0 00 041231 		MOVEM	AC1,RPEAT#
  1125
  1126	030627	254 00 0 00 030630 		JRST	TRAPT1		;START TESTING
  1127
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0056

  1128					SUBTTL	MUUO TRAP TESTING
  1129
  1130					; **********************************************************************
  1131					;*TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST
  1132					;*
  1133					;*	THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE 
  1134					;*	EXTENDED INSTRUCTION SET AS INSTRUCTIONS.
  1135					;*	FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE.
  1136					;*	EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO.
  1137					;*	IF IT DOES NOT AN ERROR PRINTOUT OCCURS.
  1138					; **********************************************************************
  1139														SALL
  1140			037317		T=	SIXBTZ	<EXTENDED OPERATOR EXECUTION TRAP TEST>
  1141
  1142	030630	201 00 0 00 030630 	TRAPT1:	MOVEI	.		;GET TEST ADDRESS
  1143	030631	202 00 0 00 030051 		MOVEM	TESTPC		;STORE IT
  1144	030632	200 15 0 00 041231 		MOVE	REPT,RPEAT	;GET LOOP COUNTER
  1145
  1146	030633	514 06 0 00 035557 	TRAP1:	HRLZ	AC6,OPTAB-1	;AC6/-TABLE LENGTH,,0
  1147	030634	541 06 0 00 035560 		HRRI	AC6,OPTAB	;AC6/-TABLE LENGTH,,TABLE ADDRESS
  1148
  1149	030635	200 00 0 00 000041 	TRAP1A:	MOVE	41		;SAVE SUBROUTINE PKG.TRAP ROUTINE ADDR
  1150	030636	202 00 0 00 041235 		MOVEM	SVLUUO#
  1151
  1152	030637	200 00 0 00 037326 		MOVE	[PUSHJ 17,LUUOH] ;GET ADDRESS OF LUUO HANDLER
  1153	030640	202 00 0 00 000041 		MOVEM	41		;SETUP FOR UUO INTERCEPTION
  1154
  1155	030641	476 00 0 00 041214 		SETOM	GOTRAP#		;INDICATE THAT TRAP IS EXPECTED
  1156	030642	200 00 0 06 000000 		MOVE	(AC6)		;RETRIEVE OPCODE FROM TABLE
  1157	030643	402 00 0 00 030645 		SETZM	EXLAB		;CLEAR INSTRUCTION WORD
  1158	030644	137 00 0 00 037327 		DPB	[POINT 9,EXLAB,8] ;INSERT IN NEXT LOCATION TO BE EXECUTED
  1159
  1160					; **************************************************
  1161	030645				EXLAB:	BLOCK	1		;WORD THAT HOLDS THE INSTRUCTION
  1162	030646	255 00 0 00 000000 		JFCL			;IN CASE INSTRUCTION DOESN'T TRAP
  1163					; **************************************************
  1164
  1165	030647	200 00 0 00 041235 		MOVE	SVLUUO		;RESTORE SUBROU. PKG.TRAP ROUTINE SETUP
  1166	030650	202 00 0 00 000041 		MOVEM	41
  1167
  1168	030651	332 00 0 00 041214 		SKIPE	GOTRAP		;IF GOTRAP=0 THEN INSTRUCTION TRAPPED
  1169						ERROR	(TRAP1A,13,EXLAB,0,^_
  1170					^CORRECT=INSTRUCTION,^_
  1171	030652	036 13 0 00 037345 	ILLEGAL INSTRUCTION EXECUTION FAILED TO CAUSE LUUO)
  1172	030653	035 00 0 00 030635 		ERLOOP	TRAP1A		;IF ERROR, LOOP TO TRAP1A
  1173	030654	253 01 0 00 030635 		AOBJN	1,TRAP1A	;GET THE NEXT OPCODE FROM THE TABLE
  1174
  1175	030655	367 15 0 00 030633 		REPTLP	TRAP1
  1176	030656	254 00 0 00 030657 		JRST	TRAPT2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0057

  1177
  1178					; **********************************************************************
  1179					;*TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST
  1180					;*
  1181					;*	THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED
  1182					;*	OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE
  1183					;*	SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING,
  1184					;*	BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.)
  1185					;*	IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED
  1186					;*	FOR THE E0 WORD AN ERROR PRINTOUT OCCURS.
  1187					; **********************************************************************
  1188														SALL
  1189			037350		T=	SIXBTZ	<ILLEGAL EXTENDED OPERATOR TRAP TEST>
  1190
  1191	030657	201 00 0 00 030657 	TRAPT2:	MOVEI	.		;GET TEST ADDRESS
  1192	030660	202 00 0 00 030051 		MOVEM	TESTPC		;STORE IT
  1193	030661	200 15 0 00 041231 		MOVE	REPT,RPEAT
  1194
  1195	030662	403 10 0 00 000011 	TRAP2:	SETZB	AC,AC+1		;CLEAR AC'S TO PROTECT THE PROGRAM IN 
  1196	030663	403 13 0 00 000014 		SETZB	AC+3,AC+4	;CASE NO MUUO'S OCCUR
  1197
  1198	030664	515 05 0 00 037000 		HRLZI	5,37000		;THIS VALUE IS AN OUT OF RANGE OPERATOR
  1199	030665	202 05 0 00 035625 		MOVEM	5,E0		;SETUP E0 FIELD
  1200
  1201	030666	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THAT WE EXPECT AN MUUO
  1202
  1203					; **************************************************
  1204	030667	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE EXTENDED INSTRUCTION
  1205	030670	255 00 0 00 000000 		JFCL			;IN CASE THE INSTRUCTION DOESN'T TRAP
  1206					; **************************************************
  1207
  1208	030671	332 00 0 00 041214 		SKIPE	GOTRAP
  1209						ERROR	(TRAP2,13,E0,0,^_
  1210					^CORRECT=INSTRUCTION,^_
  1211	030672	036 13 0 00 037365 	OUT OF RANGE OPERATOR FAILED TO TRAP)
  1212	030673	035 00 0 00 030662 		ERLOOP	TRAP2		;IF ERROR, LOOP TO TRAP2
  1213
  1214	030674	332 00 0 00 030524 		SKIPE	SM10		;KS-10?
  1215	030675	254 00 0 00 030700 		JRST	TRAP2A		;YES - SO CHECK BITS 9-12 IN E0 WORD
  1216
  1217	030676	367 15 0 00 030662 		REPTLP	TRAP2
  1218	030677	254 00 0 00 030714 		JRST	TRAPT3		;KL DOES NOT CHECK BITS 9-12
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0058

  1219
  1220	030700	403 10 0 00 000011 	TRAP2A:	SETZB	AC,AC+1		;CLEAR AC'S TO PROTECT THE PROGRAM IN 
  1221	030701	403 13 0 00 000014 		SETZB	AC+3,AC+4	;CASE NO MUUO'S OCCUR
  1222
  1223	030702	515 05 0 00 001740 		HRLZI	5,1740		;SET BITS IN E0 9,12 (SHOULD BE BLANK)
  1224	030703	202 05 0 00 035625 		MOVEM	5,E0		;SETUP EO FIELD
  1225
  1226	030704	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THAT WE EXPECT AN MUUO
  1227
  1228					; **************************************************
  1229	030705	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE EXTENDED INSTRUCTION
  1230	030706	255 00 0 00 000000 		JFCL			;IN CASE THE INSTRUCTION DOESN'T TRAP
  1231					; **************************************************
  1232
  1233	030707	332 00 0 00 041214 		SKIPE	GOTRAP		;GOTRAP=0 MEANS TRAP OCCURED
  1234						ERROR	(TRAP2A,13,E0,0,^_
  1235					^CORRECT=INSTRUCTION,^_
  1236					ILLEGAL AC FIELD BITS 9-12 FAILED TO TRAP)^
  1237	030710	036 13 0 00 037377 
  1238	030711	035 00 0 00 030700 		ERLOOP	TRAP2A		;IF ERROR, LOOP TO TRAP2A
  1239
  1240	030712	367 15 0 00 030662 		REPTLP	TRAP2
  1241	030713	254 00 0 00 030714 		JRST	TRAPT3
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0059

  1242
  1243					; **********************************************************************
  1244					;*TEST 3 -- ILLEGAL AC FIELD TRAP TEST
  1245					;*
  1246					;*	THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS
  1247					;*	WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE
  1248					;*	EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT
  1249					;*	DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE
  1250					;*	KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN
  1251					;*	POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP
  1252					;*	IF NOT EQUAL TO ZERO.)
  1253					;*
  1254					;*	NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0
  1255					;*	      IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS
  1256					;*	      MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE
  1257					;*	      BITS HAS NO EFFECT ON THE INSTRUCTION).
  1258					; **********************************************************************
  1259														SALL
  1260			037402		T=	SIXBTZ	<ILLEGAL AC FIELD TRAP TEST>
  1261
  1262	030714	201 00 0 00 030714 	TRAPT3:	MOVEI	.		;GET TEST ADDRESS
  1263	030715	202 00 0 00 030051 		MOVEM	TESTPC		;STORE IT
  1264	030716	200 15 0 00 041231 		MOVE	REPT,RPEAT
  1265
  1266	030717	135 11 0 00 037407 	TRAP3:	LDB	SP,[POINT 0,SOURCE,0] ;SETUP ACS TO PROTECT PROGRAM
  1267	030720	135 14 0 00 037410 		LDB	DP,[POINT 0,DESTIN,0] ;IN CASE THE INSTR DOESN'T TRAP
  1268
  1269	030721	403 10 0 00 000013 		SETZB	AC,AC+3		;CLEAR STRING LENGTH ACS
  1270
  1271					; **************************************************
  1272					;*TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9
  1273					; **************************************************
  1274
  1275	030722	515 06 0 00 777772 		HRLZI	AC6,-6		;AC6/- #CMP INSTR,,0
  1276	030723	541 06 0 00 035560 		HRRI	AC6,OPTAB	;AC6/- #CMP INSTR,,OPCODE TABLE ADDRESS
  1277
  1278	030724	201 04 0 00 000011 	CMPTRP:	MOVEI	AC4,^D9		;SETUP LOOP COUNTER
  1279	030725	205 05 0 00 001000 		MOVSI	AC5,(1B8)	;ILLEGAL BIT MASK
  1280
  1281	030726	402 00 0 00 035625 	CMPT1:	SETZM	E0		;CLEAR THE E0 FIELD FOR TEST
  1282
  1283	030727	200 07 0 06 000000 		MOVE	AC7,(AC6)		;GET COMPARE INSTRUCTION OPCODE
  1284	030730	137 07 0 00 036261 		DPB	AC7,E0OP	;PUT INSTRUCTION OPCODE IN E0
  1285	030731	434 10 0 00 000005 		OR	AC,AC5		;ILLEGAL SOURCE LENGTH BITS TO SLEN
  1286
  1287	030732	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THE MUUO IS EXPECTED
  1288
  1289					; **************************************************
  1290	030733	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION
  1291	030734	255 00 0 00 000000 		JFCL			;IN CASE THE INSTRUCTION DOESN'T TRAP
  1292					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0060

  1293
  1294	030735	332 00 0 00 041214 		SKIPE	GOTRAP		;GOTRAP=0 MEANS TRAP OCCURED
  1295						ERROR	(CMPTRP,13,AC,0,^_
  1296					^CORRECT=SOURCE LENGTH,^_
  1297	030736	036 13 0 00 037427 	ILLEGAL SOURCE LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)
  1298	030737	035 00 0 00 030724 		ERLOOP	CMPTRP		;IF ERROR, LOOP TO CMPTRP
  1299
  1300	030740	402 00 0 00 000010 		SETZM	AC		;RESET AC
  1301	030741	434 13 0 00 000005 		OR	AC+3,AC5	;ILLEGAL DESTINATION LENGTH BITS TO DLEN
  1302	030742	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THAT TRAP EXPECTED
  1303
  1304					; **************************************************
  1305	030743	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION
  1306	030744	255 00 0 00 000000 		JFCL			;IN CASE THE INSTRUCTION DOESN'T TRAP
  1307					; **************************************************
  1308
  1309	030745	332 00 0 00 041214 		SKIPE	GOTRAP		;GOTRAP=0 MEANS TRAP OCCURED
  1310						ERROR	(CMPTRP,13,AC+3,0,^_
  1311					^CORRECT=DESTINATION LENGTH,^_
  1312					ILLEGAL DESTIN LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)^
  1313	030746	036 13 0 00 037451 
  1314	030747	035 00 0 00 030724 		ERLOOP	CMPTRP		;IF ERROR, LOOP TO CMPTRP
  1315
  1316	030750	402 00 0 00 000013 		SETZM	AC+3		;RESET DESTINATION LENGTH AC
  1317	030751	242 05 0 00 000001 		LSH	AC5,1		;SETUP FOR NEXT BIT IN FIELD
  1318
  1319	030752	367 04 0 00 030726 		SOJG	AC4,CMPT1	;DO NEXT BIT IN FIELD
  1320
  1321	030753	253 06 0 00 030724 		AOBJN	AC6,CMPTRP	;GO TRY NEXT OPCODE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0061

  1322
  1323					; **************************************************
  1324					;*TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9
  1325					; **************************************************
  1326
  1327	030754	505 06 0 00 777774 	MVSTRP:	HRLI	AC6,-4		;AC6/- #MVS INSTR,,CURRENT TABLE ADDRESS
  1328
  1329	030755	205 05 0 00 001000 	MVS1:	MOVSI	AC5,(1B8)	;SETUP ILLEGAL BIT MASK
  1330	030756	201 04 0 00 000011 		MOVEI	AC4,^D9		;NUMBER OF BIT POSTIONS TO CHECK
  1331
  1332	030757	200 07 0 06 000000 	MVS2:	MOVE	AC7,(AC6)		;GET OPERATOR OPCODE
  1333	030760	402 00 0 00 035625 		SETZM	E0		;CLEAR OPERATOR FIELD
  1334	030761	137 07 0 00 036261 		DPB	AC7,E0OP	;PUT OPCODE IN BITS 0,9
  1335	030762	434 13 0 00 000005 		OR	AC+3,AC5	;SETUP ILLEGAL DESTINATION LENGTH
  1336
  1337	030763	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THAT MUUO IS EXPECTED
  1338
  1339					; **************************************************
  1340	030764	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION
  1341	030765	255 00 0 00 000000 		JFCL			;IN CASE THE TRAP DOESN'T OCCUR
  1342					; **************************************************
  1343
  1344	030766	332 00 0 00 041214 		SKIPE	GOTRAP		;GOTRAP=0 MEANS TRAP OCCURED
  1345						ERROR	(MVS2,13,AC+3,0,^_
  1346					^CORRECT=DESTINATION LENGTH,^_
  1347					ILLEGAL DLEN IN MOVE STRING INSTR DIDN'T CAUSE TRAP)^
  1348	030767	036 13 0 00 037465 
  1349	030770	035 00 0 00 030757 		ERLOOP	MVS2		;IF ERROR, LOOP TO MVS2
  1350
  1351	030771	242 05 0 00 000001 		LSH	AC5,1		;SETUP NEXT BIT
  1352
  1353	030772	367 04 0 00 030757 		SOJG	AC4,MVS2	;TEST NEXT BIT
  1354
  1355	030773	253 06 0 00 030755 		AOBJN	AC6,MVS1	;GO TRY NEXT OPCODE
  1356
  1357	030774	332 00 0 00 030524 		SKIPE	SM10		;KS-10?
  1358	030775	254 00 0 00 031001 		JRST	EDITRP		;YES
  1359
  1360	030776	035 02 0 00 030714 		ERLP2	TRAPT3		;KL-10 SO END OF THIS TEST
  1361	030777	367 15 0 00 030717 		REPTLP	TRAP3
  1362
  1363	031000	254 00 0 00 031022 		JRST	CMPMOD		;GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCCM	MAC	 8-Jan-87 15:04		MUUO TRAP TESTING                                                                  SEQ 0062

  1364
  1365					; **************************************************
  1366					;*TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)
  1367					; **************************************************
  1368
  1369	031001	201 07 0 00 000004 	EDITRP:	MOVEI	AC7,4		;GET EDIT INSTRUCTION OPCODE
  1370	031002	402 00 0 00 035625 		SETZM	E0		;CLEAR E0 FIELD
  1371	031003	137 07 0 00 036261 		DPB	AC7,E0OP	;PUT OPCODE IN BITS 0,9
  1372	031004	205 05 0 00 000001 		MOVSI	AC5,(1B17)	;ILLEGAL FIELD MASK
  1373	031005	201 04 0 00 000014 		MOVEI	AC4,^D12	;NUMBER OF ILLEGAL BITS TO CHECK
  1374
  1375	031006	402 00 0 00 000010 	EDIT1:	SETZM	AC		;CLEAR THE PATTERN POINTER REGISTER
  1376	031007	434 10 0 00 000005 		OR	AC,AC5		;SET THE ILLEGAL BIT
  1377	031010	476 00 0 00 041214 		SETOM	GOTRAP		;INDICATE THAT MUUO EXPECTED
  1378
  1379					; **************************************************
  1380	031011	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION
  1381	031012	255 00 0 00 000000 		JFCL			;IN CASE THE INSTRUCTION DOESN'T TRAP
  1382					; **************************************************
  1383
  1384	031013	332 00 0 00 041214 		SKIPE	GOTRAP		;GOTRAP=0 MEANS TRAP OCCURED
  1385						ERROR	(EDIT1,13,AC,0,^_
  1386					^CORRECT=PATTERN POINTER,^_
  1387					ILLEGAL PATTERN POINTER FIELD IN EDIT INSTR DIDN'T CAUSE TRAP)^
  1388	031014	036 13 0 00 037510 
  1389	031015	035 00 0 00 031006 		ERLOOP	EDIT1		;IF ERROR, LOOP TO EDIT1
  1390
  1391	031016	242 05 0 00 000001 		LSH	AC5,1		;SETUP NEXT BIT FIELD
  1392
  1393	031017	367 04 0 00 031006 		SOJG	AC4,EDIT1	;JUMP IF MORE FIELDS TO CHECK
  1394
  1395	031020	367 15 0 00 030717 		REPTLP	TRAP3
  1396	031021	254 00 0 00 031022 		JRST	CMPMOD
  1397
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0063

  1398					SUBTTL	EXTEND INSTRUCTION CASE TESTING
  1399
  1400					; **********************************************************************
  1401					;*EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION
  1402					;*
  1403					;*	THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES
  1404					;*	SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES.
  1405					;*
  1406					;*	EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM
  1407					;*	A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER
  1408					;*	VALUES, PATTERNS, OFFSETS, ETC.).
  1409					;*
  1410					;*	WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR
  1411					;*	(ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION
  1412					;*	IS THEN EXECUTED.
  1413					;*
  1414					;*	THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN
  1415					;*	AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM").
  1416					;*
  1417					;*	EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN
  1418					;*	THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC.
  1419					;*
  1420					;*	ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS
  1421					;*	WITH THE NEXT CASE IN SEQUENCE.  THE FAILURE INFORMATION IS PRINTED
  1422					;*	BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT").
  1423					;*
  1424					;*	THE INITIAL AC BLOCK IS STORED IN ORIGSV.
  1425					;*	THE RESULTS OF THE  SIMULATOR ARE STORED IN RESSV.
  1426					;*	AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION.
  1427					;*	AC7 HOLDS THE CASE TABLE INFORMATION.
  1428					;*	 THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION. 
  1429					; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0064

  1430
  1431					; **********************************************************************
  1432					;*TEST 4 -- COMPARE STRING INSTRUCTION TEST
  1433					;*
  1434					;*	THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
  1435					;*	SIX COMPARE INSTRUCTIONS.
  1436					; **********************************************************************
  1437														SALL
  1438			037513		T=	SIXBTZ	<COMPARE STRING INSTRUCTION TEST>
  1439
  1440	031022	201 00 0 00 031022 	CMPMOD:	MOVEI	.		;GET TEST ADDRESS
  1441	031023	202 00 0 00 030051 		MOVEM	TESTPC		;STORE IT
  1442	031024	200 15 0 00 041231 		MOVE	REPT,RPEAT
  1443
  1444	031025	515 06 0 00 777772 	CMPM:	HRLZI	AC6,-6		;AC6/- #CMP INSTR,,0
  1445	031026	541 06 0 00 035560 		HRRI	AC6,CMPTAB	;AC6/- #CMP INSTR,,OPCODE TABLE ADDR
  1446
  1447	031027	514 07 0 00 037046 	CMP1:	HRLZ	AC7,CMPCAS-1	;AC7/- #CMP CASES,,0
  1448	031030	541 07 0 00 037047 		HRRI	AC7,CMPCAS	;AC7/- #CMP CASES,,CASE TABLE ADDRESS
  1449
  1450	031031	200 00 0 06 000000 	CMP2:	MOVE	(AC6)		;RETRIEVE CURRENT COMPARE OPCODE
  1451	031032	137 00 0 00 036261 		DPB	E0OP		;PUT IN INSTRUCTION OPCODE FIELD
  1452
  1453	031033	260 17 0 00 035471 		GO	RANLEN		;STRING LENGTH TO AC0
  1454	031034	202 00 0 00 000010 		MOVEM	SLEN		;STORE IN STRING LENGTHS
  1455	031035	202 00 0 00 000013 		MOVEM	DLEN
  1456
  1457	031036	402 00 0 00 041233 		SETZM	SKPWD1#		;CLEAR SKIP INDICATOR WORDS
  1458	031037	402 00 0 00 041234 		SETZM	SKPWD2#
  1459	031040	402 00 0 00 035626 		SETZM	E0+1		;CLEAR FILLER WORDS
  1460	031041	402 00 0 00 035627 		SETZM	E0+2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0065

  1461
  1462					; **************************************************
  1463					;DETERMINE THE DESIRED PATTERN TYPE
  1464					; **************************************************
  1465
  1466	031042	200 01 0 07 000000 		MOVE	1,(AC7)		;RETRIEVE CURRENT CASE PARAMETER WORD
  1467	031043	607 01 0 00 010000 		TLNN	1,(ALTPT)	;ALTERNATING 1'S AND 0'S PATTERN?
  1468	031044	254 00 0 00 031047 		JRST	CHKB1		;NO
  1469
  1470	031045	200 00 0 00 036472 		MOVE	APAT		;YES - GET THE PATTERN
  1471	031046	254 00 0 00 031062 		JRST	CMPLEN		;CONTINUE
  1472
  1473	031047	607 01 0 00 002000 	CHKB1:	TLNN	1,(ONESPT)	;ONE'S PATTERN?
  1474	031050	254 00 0 00 031053 		JRST	CHKC1		;NO
  1475
  1476	031051	200 00 0 00 036473 		MOVE	BPAT		;YES - GET THE PATTERN
  1477	031052	254 00 0 00 031062 		JRST 	CMPLEN		;CONTINUE
  1478
  1479	031053	607 01 0 00 004000 	CHKC1:	TLNN	1,(ONEPT)	;ONE PATTERN (0,,1)?
  1480	031054	254 00 0 00 031057 		JRST	CMPER1		;NO - CASE TABLE ERROR
  1481
  1482	031055	200 00 0 00 036474 		MOVE	CPAT		;YES - GET THE PATTERN
  1483	031056	254 00 0 00 031062 		JRST	CMPLEN		;CONTINUE
  1484
  1485	031057	037 02 0 00 037521 	CMPER1:	PMSG	<^CMPXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
  1486	031060	253 07 0 00 031031 		AOBJN	AC7,CMP2
  1487	031061	254 00 0 00 031213 		JRST	MOVMOD		;NO CASES LEFT - GO TO NEXT TEST
  1488
  1489	031062	202 00 0 00 041224 	CMPLEN:	MOVEM	PATTERN#	;STORE CHOSEN PATTERN
  1490
  1491	031063	603 01 0 00 400000 		TLNE	1,(EQLEN)	;STRINGS OF EQUAL LENGTH?
  1492	031064	254 00 0 00 031132 		JRST	CMPBYT		;YES - THIS IS ALREADY SET UP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0066

  1493
  1494					; **************************************************
  1495					;STRINGS WILL BE OF UNEQUAL LENGTH SO NOW PICK A FILLER
  1496					; **************************************************
  1497
  1498	031065	607 01 0 00 001000 	CMPFIL:	TLNN	1,(EQFIL)	;FILLER = PATTERN?
  1499	031066	254 00 0 00 031071 		JRST	CMPF1		;NO
  1500
  1501	031067	200 00 0 00 041224 		MOVE	PATTERN		;YES - PATTERN TO AC0
  1502	031070	254 00 0 00 031104 		JRST	CMPL
  1503
  1504	031071	607 01 0 00 000400 	CMPF1:	TLNN	1,(LFILL)	;ZERO FILLER?
  1505	031072	254 00 0 00 031075 		JRST	CMPF2		;NO
  1506	031073	200 00 0 00 036475 		MOVE	DPAT		;YES - ZERO PATTERN TO AC0
  1507	031074	254 00 0 00 031104 		JRST	CMPL
  1508
  1509	031075	607 01 0 00 000200 	CMPF2:	TLNN	1,(GFILL)	;ONE'S FILLER
  1510	031076	254 00 0 00 031101 		JRST	CMPER2		;NO - CASE TABLE ERROR
  1511	031077	200 00 0 00 036473 		MOVE	BPAT		;YES - ONE'S PATTERN TO AC0
  1512	031100	254 00 0 00 031104 		JRST	CMPL
  1513
  1514	031101	037 02 0 00 037532 	CMPER2:	PMSG	<^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
  1515	031102	253 07 0 00 031031 		AOBJN	AC7,CMP2
  1516	031103	254 00 0 00 031213 		JRST	MOVMOD		;NO CASES LEFT - GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0067

  1517
  1518					; **************************************************
  1519					;NOW PUT THE FILLER (STORED IN AC0) INTO THE AC BLOCK
  1520					;THE FILLER GOES INTO E0+1 IF SLEN < DLEN AND INTO E0+2 IF SLEN > DLEN
  1521					; **************************************************
  1522
  1523	031104	607 01 0 00 200000 	CMPL:	TLNN	1,(SZERO)	;SOURCE LENGTH = 0?
  1524	031105	254 00 0 00 031111 		JRST	CMPL1		;NO
  1525	031106	402 00 0 00 000010 		SETZM	SLEN		;YES - ZERO SOURCE LENGTH
  1526	031107	202 00 0 00 035626 		MOVEM	E0+1		;SETUP FILLER
  1527	031110	254 00 0 00 031132 		JRST	CMPBYT
  1528
  1529	031111	607 01 0 00 100000 	CMPL1:	TLNN	1,(DZERO)	;DESTIN LENGTH = 0?
  1530	031112	254 00 0 00 031116 		JRST	CMPL2		;NO
  1531	031113	402 00 0 00 000013 		SETZM	DLEN		;YES - ZERO DESTINATION LENGTH
  1532	031114	202 00 0 00 035627 		MOVEM	E0+2		;SETUP FILLER
  1533	031115	254 00 0 00 031132 		JRST	CMPBYT
  1534
  1535	031116	607 01 0 00 040000 	CMPL2:	TLNN	1,(DSZER)	;BOTH SOURCE AND DESTIN LENGTH'S ZERO?
  1536	031117	254 00 0 00 031122 		JRST	CMPL3		;NO - BOTH MUST BE HAVE LENGTHS > 0
  1537	031120	403 10 0 00 000013 		SETZB	SLEN,DLEN	;YES - SET BOTH TRING LENGTHS TO ZERO
  1538	031121	254 00 0 00 031132 		JRST	CMPBYT
  1539
  1540	031122	607 01 0 00 020000 	CMPL3:	TLNN	1,(SLONG)	;DESTIN SHORTER THAN SOURCE?
  1541	031123	254 00 0 00 031127 		JRST	E0FIL1		;NO
  1542	031124	242 13 0 00 777777 		LSH	DLEN,-1		;DLEN=1/2 SLEN
  1543	031125	202 00 0 00 035627 		MOVEM	E0+2		;SETUP FILLER
  1544	031126	254 00 0 00 031132 		JRST	CMPBYT
  1545
  1546	031127	242 10 0 00 777777 	E0FIL1:	LSH	SLEN,-1		;SLEN=1/2 DLEN
  1547	031130	202 00 0 00 035626 		MOVEM	E0+1		;SETUP FILLER
  1548	031131	254 00 0 00 031132 		JRST	CMPBYT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 14
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0068

  1549
  1550					; **************************************************
  1551					;DETERMINE STRING BYTE SIZES
  1552					; **************************************************
  1553
  1554	031132	603 01 0 00 000100 	CMPBYT:	TLNE	1,(S44)		;FULL WORD SOURCE BYTES?
  1555	031133	254 00 0 00 031140 		JRST	CMPB1		;YES
  1556
  1557	031134	201 00 0 00 000037 		MOVEI	AC0,37
  1558	031135	406 00 0 00 035626 		ANDM	AC0,E0+1
  1559	031136	200 11 0 00 037543 		MOVE	SP,[POINT 5,SOURCE]
  1560	031137	334 00 0 00 000000 		SKIPA
  1561
  1562	031140	200 11 0 00 037544 	CMPB1:	MOVE	SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
  1563
  1564	031141	603 01 0 00 000040 		TLNE	1,(D44)		;FULL WORD DESTIN BYTE SIZE?
  1565	031142	254 00 0 00 031147 		JRST	CMPB2		;YES
  1566
  1567	031143	201 00 0 00 000037 		MOVEI	AC0,37
  1568	031144	406 00 0 00 035627 		ANDM	AC0,E0+2
  1569	031145	200 14 0 00 037545 		MOVE	DP,[POINT 5,DESTIN]
  1570	031146	334 00 0 00 000000 		SKIPA
  1571
  1572	031147	200 14 0 00 037546 	CMPB2:	MOVE	DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 15
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0069

  1573
  1574					; **************************************************
  1575					;PROCEED TO SET UP THE STRINGS
  1576					; **************************************************
  1577
  1578	031150	261 17 0 00 000006 	CMPSTR:	PUT	AC6		;NEED THAT SPARE AC!
  1579
  1580	031151	200 02 0 00 000010 		MOVE	SLEN1,SLEN	;COPY OF SOURCE STRING LENGTH
  1581	031152	200 03 0 00 000011 		MOVE	SP1,SP		;COPY OF SOURCE STRING POINTER
  1582	031153	200 00 0 00 041224 		MOVE	AC0,PATTERN	;COPY OF PATTERN
  1583	031154	402 00 0 00 000004 		SETZM	AC4		;CLEAR REWRITE BYTE WORD
  1584
  1585	031155	136 00 0 00 000003 		IDPB	AC0,SP1		;WRITE THE FIRST BYTE TO THE STRING
  1586
  1587	031156	377 00 0 00 000002 	CSET1:	SOSG	SLEN1
  1588	031157	254 00 0 00 031162 		JRST	CSET2		;JUMP IF LAST BYTE WRITTEN
  1589
  1590	031160	136 00 0 00 000003 		IDPB	AC0,SP1		;WRITE A BYTE
  1591	031161	254 00 0 00 031156 		JRST	CSET1		;GO FOR THE NEXT ONE
  1592
  1593	031162	603 01 0 00 000020 	CSET2:	TLNE	1,(ALS)		;ALTER THE LAST SOURCE BYTE?
  1594	031163	137 04 0 00 000003 		DPB	AC4,SP1		;YES - ZERO IT
  1595
  1596	031164	200 05 0 00 000013 		MOVE	DLEN1,DLEN	;COPY OF DESTINAION STRING LENGTH
  1597	031165	200 04 0 00 000014 		MOVE	DP1,DP		;COPY OF DESTIN STRING BYTE POINTER
  1598	031166	136 00 0 00 000004 		IDPB	AC0,DP1		;WRITE THE FIRST BYTE
  1599
  1600	031167	377 00 0 00 000005 	CSET3:	SOSG	DLEN1
  1601	031170	254 00 0 00 031173 		JRST	CSET4		;JUMP IF LAST BYTE WRITTEN
  1602
  1603	031171	136 00 0 00 000004 		IDPB	AC0,DP1		;WRITE A BYTE
  1604	031172	254 00 0 00 031167 		JRST	CSET3		;GO FOR THE NEXT ONE
  1605
  1606	031173	603 01 0 00 000010 	CSET4:	TLNE	1,(ALD)		;ALTER THE LAST DESTIN BYTE
  1607	031174	137 04 0 00 000004 		DPB	AC4,DP1		;YES - ZERO IT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 16
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0070

  1608
  1609					; **************************************************
  1610					;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
  1611					; **************************************************
  1612
  1613	031175	200 00 0 00 037547 		MOVE	AC0,[AC,,ORIGSV]
  1614	031176	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  1615
  1616	031177	262 17 0 00 000006 		GET	AC6		;RESTORE AC6
  1617
  1618					; **************************************************
  1619	031200	260 17 0 00 033505 		GO 	CMPSIM		;CALL THE COMPARE INSTR SIMULATOR
  1620	031201	476 00 0 00 041233 		SETOM	SKPWD1		;SIMULATED SKIP RETURN
  1621					; **************************************************
  1622
  1623					; **************************************************
  1624	031202	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  1625	031203	476 00 0 00 041234 		SETOM	SKPWD2		;REAL SKIP RETURN
  1626					; **************************************************
  1627
  1628	031204	260 17 0 00 034267 		GO	CMPCOM		;COMPARE THE RESULTS
  1629	031205	036 13 0 00 037550 		ERROR	CMP2,13,0,0,,,CMPPNT
  1630	031206	035 00 0 00 031031 		ERLOOP	CMP2		;IF ERROR, LOOP TO CMP2
  1631
  1632	031207	253 07 0 00 031031 		AOBJN	AC7,CMP2	;EXECUTE THE NEXT CASE
  1633	031210	253 06 0 00 031027 		AOBJN	AC6,CMP1	;EXECUTE THE CASES WITH THE NEXT OPCODE
  1634
  1635	031211	367 15 0 00 031025 		REPTLP	CMPM
  1636	031212	254 00 0 00 031213 		JRST	MOVMOD		;FINISHED - GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 17
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0071

  1637
  1638					; **********************************************************************
  1639					;*TEST 5 -- MOVE STRING INSTRUCTION TEST
  1640					;*
  1641					;*	THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
  1642					;*	FOUR MOVE STRING INSTRUCTIONS.
  1643					; **********************************************************************
  1644														SALL
  1645			037553		T=	SIXBTZ	<MOVE STRING INSTRUCTION TEST>
  1646
  1647	031213	201 00 0 00 031213 	MOVMOD:	MOVEI	.
  1648	031214	202 00 0 00 030051 		MOVEM	TESTPC
  1649	031215	200 15 0 00 041231 		MOVE	REPT,RPEAT
  1650
  1651	031216	515 06 0 00 777774 	MOVM:	HRLZI	AC6,-4		;AC6/- #MOV INSTR,,0
  1652	031217	541 06 0 00 035566 		HRRI	AC6,MOVTAB	;AC6/- #MOV INSTR,,OPCODE TABLE ADDR
  1653
  1654	031220	514 07 0 00 037116 	MOV1:	HRLZ	AC7,MOVCAS-1	;AC7/- #MOV CASES,,0
  1655	031221	541 07 0 00 037117 		HRRI	AC7,MOVCAS	;AC7/- #MOV CASES,,CASE TABLE ADDRESS
  1656
  1657	031222	260 17 0 00 035347 	MOV2:	GO	CLRSTR		;CLEAR THE SOURCE AND DESTINATION AREAS
  1658
  1659	031223	200 00 0 06 000000 		MOVE	(AC6)		;RETRIEVE CURRENT MOVE OPCODE
  1660	031224	137 00 0 00 036261 		DPB	E0OP		;PUT IN INSTRUCTION OPCODE FIELD
  1661
  1662	031225	402 00 0 00 041236 		SETZM	TRANFG
  1663	031226	306 00 0 00 000015 		CAIN	AC0,015		;MOVST INSTRUCTION?
  1664	031227	476 00 0 00 041236 		SETOM	TRANFG#		;YES - SET TRANSLATE FLAG
  1665
  1666	031230	260 17 0 00 035471 		GO	RANLEN		;STRING LENGTH TO AC0
  1667	031231	202 00 0 00 000010 		MOVEM	SLEN		;STORE IN STRING LENGTHS
  1668	031232	202 00 0 00 000013 		MOVEM	DLEN
  1669
  1670	031233	402 00 0 00 041233 		SETZM	SKPWD1#		;CLEAR SKIP INDICATOR WORDS
  1671	031234	402 00 0 00 041234 		SETZM	SKPWD2#
  1672	031235	402 00 0 00 035626 		SETZM	E0+1		;CLEAR FILLER WORD
  1673
  1674	031236	336 00 0 00 041236 		SKIPN	TRANFG		;MOVST?
  1675	031237	254 00 0 00 031242 		JRST	CHKA2		;NO
  1676
  1677	031240	201 00 0 00 000001 		MOVEI	AC0,1		;TRANSLATE PATTERN ALWAYS STARTS WITH 1
  1678	031241	254 00 0 00 031262 		JRST	MOVLEN		;AND INCREMENTS
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 18
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0072

  1679
  1680					; **************************************************
  1681					;DETERMINE THE DESIRED PATTERN TYPE
  1682					; **************************************************
  1683
  1684	031242	200 01 0 07 000000 	CHKA2:	MOVE	1,(AC7)		;RETRIEVE CURRENT CASE PARAMETER WORD
  1685	031243	607 01 0 00 010000 		TLNN	1,(ALTPT)	;ALTERNATING 1'S AND 0'S PATTERN?
  1686	031244	254 00 0 00 031247 		JRST	CHKB2		;NO
  1687	031245	200 00 0 00 036472 		MOVE	APAT		;YES - GET THE PATTERN
  1688	031246	254 00 0 00 031262 		JRST	MOVLEN		;CONTINUE
  1689
  1690	031247	607 01 0 00 002000 	CHKB2:	TLNN	1,(ONESPT)	;ONE'S PATTERN?
  1691	031250	254 00 0 00 031253 		JRST	CHKC2		;NO
  1692	031251	200 00 0 00 036473 		MOVE	BPAT		;YES - GET THE PATTERN
  1693	031252	254 00 0 00 031262 		JRST 	MOVLEN		;CONTINUE
  1694
  1695	031253	607 01 0 00 004000 	CHKC2:	TLNN	1,(ONEPT)	;ONE PATTERN (0,,1)?
  1696	031254	254 00 0 00 031257 		JRST	MOVER1		;NO - ERROR
  1697	031255	200 00 0 00 036474 		MOVE	CPAT		;YES - GET THE PATTERN
  1698	031256	254 00 0 00 031262 		JRST	MOVLEN		;CONTINUE
  1699
  1700	031257	037 02 0 00 037560 	MOVER1:	PMSG	<^MOVXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
  1701	031260	253 07 0 00 031222 		AOBJN	AC7,MOV2
  1702	031261	254 00 0 00 031454 		JRST	CDBMOD		;NO CASES LEFT - GO TO NEXT TEST
  1703
  1704	031262	202 00 0 00 041224 	MOVLEN:	MOVEM	PATTERN		;STORE CHOSEN PATTERN
  1705	031263	603 01 0 00 400000 		TLNE	1,(EQLEN)	;STRINGS OF EQUAL LENGTH?
  1706	031264	254 00 0 00 031326 		JRST	MOVBYT		;YES - ALREADY SET UP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 19
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0073

  1707
  1708					; **************************************************
  1709					;FIND OUT IF A FILLER IS NEEDED AND DETERMINE STRING LENGTHS
  1710					; **************************************************
  1711
  1712	031265	607 01 0 00 100000 	MOVL:	TLNN	1,(DZERO)	;DESTINATION LENGTH = ZERO?
  1713	031266	254 00 0 00 031271 		JRST	MOVL1		;NO
  1714	031267	402 00 0 00 000013 		SETZM	DLEN		;YES - ZERO DESTINATION LENGTH
  1715	031270	254 00 0 00 031326 		JRST	MOVBYT
  1716
  1717	031271	607 01 0 00 040000 	MOVL1:	TLNN	1,(DSZER)	;BOTH DESTIN AND SOURCE LENGTHS = 0?
  1718	031272	254 00 0 00 031275 		JRST	MOVL2		;NO
  1719	031273	403 10 0 00 000013 		SETZB	SLEN,DLEN	;YES - ZERO THEM BOTH
  1720	031274	254 00 0 00 031326 		JRST	MOVBYT
  1721
  1722	031275	607 01 0 00 020000 	MOVL2:	TLNN	1,(SLONG)	;SOURCE STRING LONGER THAN DESTIN?
  1723	031276	254 00 0 00 031301 		JRST	MOVL3		;NO
  1724	031277	242 13 0 00 777777 		LSH	DLEN,-1		;YES - DLEN = 1/2 SLEN
  1725	031300	254 00 0 00 031326 		JRST	MOVBYT
  1726
  1727	031301	607 01 0 00 200000 	MOVL3:	TLNN	1,(SZERO)	;SOURCE STRING LENGTH = 0?
  1728	031302	254 00 0 00 031305 		JRST	MOVL4		;NO
  1729	031303	402 00 0 00 000010 		SETZM	SLEN		;YES - ZERO SOURCE STRING LENGTH
  1730	031304	254 00 0 00 031306 		JRST	MOVFIL		;GET A FILLER
  1731
  1732	031305	242 10 0 00 777777 	MOVL4:	LSH	SLEN,-1		;SLEN = 1/2 DLEN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 20
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0074

  1733
  1734					; **************************************************
  1735					;NOW PICK A FILLER
  1736					; **************************************************
  1737
  1738	031306	607 01 0 00 001000 	MOVFIL:	TLNN	1,(EQFIL)	;FILLER = PATTERN?
  1739	031307	254 00 0 00 031312 		JRST	MOVF1		;NO
  1740	031310	200 00 0 00 041224 		MOVE	PATTERN		;YES - PATTERN TO AC0
  1741	031311	254 00 0 00 031325 		JRST	MOVF3
  1742
  1743	031312	607 01 0 00 000400 	MOVF1:	TLNN	1,(LFILL)	;ZERO FILLER?
  1744	031313	254 00 0 00 031316 		JRST	MOVF2		;NO
  1745	031314	200 00 0 00 036475 		MOVE	DPAT		;YES - ZERO PATTERN TO AC0
  1746	031315	254 00 0 00 031325 		JRST	MOVF3
  1747
  1748	031316	607 01 0 00 000200 	MOVF2:	TLNN	1,(GFILL)	;ONE'S FILLER
  1749	031317	254 00 0 00 031322 		JRST	MOVER2		;NO - ERROR
  1750	031320	200 00 0 00 036473 		MOVE	BPAT		;YES - ONE'S PATTERN TO AC0
  1751	031321	254 00 0 00 031325 		JRST	MOVF3
  1752
  1753	031322	037 02 0 00 037532 	MOVER2:	PMSG	<^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
  1754	031323	253 07 0 00 031222 		AOBJN	AC7,MOV2
  1755	031324	254 00 0 00 031454 		JRST	CDBMOD		;NO CASES LEFT - GO TO NEXT TEST
  1756
  1757	031325	202 00 0 00 035626 	MOVF3:	MOVEM	E0+1		;STORE THE FILLER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 21
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0075

  1758
  1759					; **************************************************
  1760					;DETERMINE STRING BYTE SIZES
  1761					; **************************************************
  1762
  1763	031326	332 00 0 00 041236 	MOVBYT:	SKIPE	TRANFG		;5 BIT BYTES IF MOVST
  1764	031327	254 00 0 00 031334 		JRST	MOVB1
  1765
  1766	031330	607 01 0 00 000100 		TLNN	1,(S44)		;FULL WORD SOURCE BYTES?
  1767	031331	254 00 0 00 031334 		JRST	MOVB1		;NO
  1768	031332	200 11 0 00 037544 		MOVE	SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
  1769	031333	334 00 0 00 000000 		SKIPA
  1770
  1771	031334	200 11 0 00 037543 	MOVB1:	MOVE	SP,[POINT 5,SOURCE]
  1772	031335	332 00 0 00 041236 		SKIPE	TRANFG
  1773	031336	254 00 0 00 031343 		JRST	MOVB2
  1774
  1775	031337	607 01 0 00 000040 		TLNN	1,(D44)		;FULL WORD DESTIN BYTE SIZE?
  1776	031340	254 00 0 00 031343 		JRST	MOVB2		;NO
  1777	031341	200 14 0 00 037546 		MOVE	DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
  1778	031342	334 00 0 00 000000 		SKIPA
  1779
  1780	031343	200 14 0 00 037545 	MOVB2:	MOVE	DP,[POINT 5,DESTIN]
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 22
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0076

  1781
  1782					; **************************************************
  1783					;PROCEED TO SET UP THE STRINGS
  1784					; **************************************************
  1785
  1786	031344	261 17 0 00 000006 	MOVSTR:	PUT	AC6		;NEED THAT SPARE AC!
  1787
  1788	031345	200 02 0 00 000010 		MOVE	SLEN1,SLEN	;COPY OF SOURCE STRING LENGTH
  1789	031346	200 03 0 00 000011 		MOVE	SP1,SP		;COPY OF SOURCE STRING POINTER
  1790	031347	200 00 0 00 041224 		MOVE	AC0,PATTERN	;COPY OF PATTERN
  1791
  1792	031350	136 00 0 00 000003 		IDPB	AC0,SP1		;WRITE THE FIRST BYTE TO THE STRING
  1793
  1794	031351	377 00 0 00 000002 	SET1:	SOSG	SLEN1
  1795	031352	254 00 0 00 031357 		JRST	MOVOP		;JUMP IF LAST BYTE WRITTEN
  1796
  1797	031353	332 00 0 00 041236 		SKIPE	TRANFG
  1798	031354	271 00 0 00 000001 		ADDI	AC0,1		;INCREMENT THE PATTERN IF MOVST
  1799
  1800	031355	136 00 0 00 000003 		IDPB	AC0,SP1		;WRITE A BYTE
  1801	031356	254 00 0 00 031351 		JRST	SET1		;GO FOR THE NEXT ONE
  1802
  1803	031357	200 00 0 06 000000 	MOVOP:	MOVE	AC0,(AC6)	;RETRIEVE THE CURRENT OPCODE
  1804	031360	302 00 0 00 000015 		CAIE	AC0,015		;MOVST INSTRUCTION?
  1805	031361	254 00 0 00 031411 		JRST	MOVOFF		;NO - SEE IF MOVSO
  1806
  1807	031362	201 00 0 00 035711 		MOVEI	AC0,E1		;GET ADDRESS OF TRANSLATION TABLE
  1808	031363	542 00 0 00 035625 		HRRM	AC0,E0		;STORE IT IN THE E0 FIELD
  1809
  1810					; **************************************************
  1811					;SET THE FLAGS IN AC FOR MOVST INSTRUCTION
  1812					; **************************************************
  1813
  1814	031364	602 01 0 00 400000 		TRNE	1,(SFL)		;SET THE S FLAG?
  1815	031365	434 10 0 00 035775 		OR	SLEN,BIT0	;YES
  1816
  1817	031366	602 01 0 00 040000 		TRNE	1,(NFL)		;SET THE N FLAG?
  1818	031367	434 10 0 00 035776 		OR	SLEN,BIT1	;YES
  1819
  1820	031370	602 01 0 00 100000 		TRNE	1,(MFL)		;SET THE M FLAG?
  1821	031371	434 10 0 00 035777 		OR	SLEN,BIT2	;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 23
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0077

  1822
  1823					; **************************************************
  1824					;SET THE CODE BITS IN THE TRANSLATION TABLE
  1825					; **************************************************
  1826
  1827	031372	402 00 0 00 000000 		SETZM	AC0		;TEMP LOC FOR CONTROL BITS
  1828
  1829	031373	602 01 0 00 020000 		TRNE	1,(C1)		;SETUP THE SECOND HALFWORD
  1830	031374	434 00 0 00 036000 		OR	BIT18
  1831
  1832	031375	602 01 0 00 010000 		TRNE	1,(C2)
  1833	031376	434 00 0 00 036001 		OR	BIT19
  1834
  1835	031377	602 01 0 00 004000 		TRNE	1,(C3)
  1836	031400	434 00 0 00 036002 		OR	BIT20
  1837
  1838	031401	602 01 0 00 002000 		TRNE	1,(C4)		;SETUP THE THIRD HALFWORD
  1839	031402	434 00 0 00 035775 		OR	BIT0
  1840
  1841	031403	602 01 0 00 001000 		TRNE	1,(C5)
  1842	031404	434 00 0 00 035776 		OR	BIT1
  1843
  1844	031405	602 01 0 00 000400 		TRNE	1,(C6)
  1845	031406	434 00 0 00 035777 		OR	BIT2
  1846
  1847	031407	260 17 0 00 031436 		GO	SETRAN		;YES - SET UP THE TRANSLATION TABLE
  1848	031410	254 00 0 00 031420 		JRST	GOMOV
  1849
  1850	031411	302 00 0 00 000014 	MOVOFF:	CAIE	AC0,014		;IS IT MOVSO?
  1851	031412	254 00 0 00 031420 		JRST	GOMOV		;NO - DON'T NEED AN OFFSET
  1852
  1853	031413	200 04 0 00 000001 		MOVE	AC4,AC1		;COPY OF PARAM WORD
  1854	031414	405 04 0 00 000014 		ANDI	AC4,OFF		;SAVE ONLY OFFSET INDEX
  1855	031415	242 04 0 00 777776 		LSH	AC4,OFFSH	;SHIFT INTO POSITION
  1856	031416	200 04 0 04 036410 		MOVE	AC4,OFFTAB(AC4)	;GET THE OFFSET WORD
  1857	031417	542 04 0 00 035625 		HRRM	AC4,E0		;PUT AS EFFECTIVE ADDRESS IN E0 WORD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 24
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0078

  1858
  1859					; **************************************************
  1860					;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
  1861					; **************************************************
  1862
  1863	031420	200 00 0 00 037547 	GOMOV:	MOVE	AC0,[AC,,ORIGSV]
  1864	031421	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  1865
  1866	031422	262 17 0 00 000006 		GET	AC6		;RESTORE AC6
  1867
  1868					; **************************************************
  1869	031423	260 17 0 00 033561 		GO 	MOVSIM		;CALL THE COMPARE INSTR SIMULATOR
  1870	031424	476 00 0 00 041233 		SETOM	SKPWD1		;SIMULATED SKIP RETURN
  1871					; **************************************************
  1872
  1873					; **************************************************
  1874	031425	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  1875	031426	476 00 0 00 041234 		SETOM	SKPWD2		;REAL SKIP RETURN
  1876					; **************************************************
  1877
  1878	031427	260 17 0 00 034345 		GO	MOVCOM		;COMPARE THE RESULTS
  1879	031430	036 13 0 00 037571 		ERROR	MOV2,13,0,0,,,MOVPNT
  1880	031431	035 00 0 00 031222 		ERLOOP	MOV2		;IF ERROR, LOOP TO MOV2
  1881
  1882	031432	253 07 0 00 031222 		AOBJN	AC7,MOV2	;EXECUTE THE NEXT CASE
  1883	031433	253 06 0 00 031220 		AOBJN	AC6,MOV1	;EXECUTE THE CASES WITH THE NEXT OPCODE
  1884
  1885	031434	367 15 0 00 031216 		REPTLP	MOVM
  1886	031435	254 00 0 00 031454 		JRST	CDBMOD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 25
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0079

  1887
  1888					; **************************************************
  1889					;SETRAN -- ROUTINE TO SETUP TRANSLATE TABLE FOR MOVST
  1890					;	TAKE TWO SPECIAL HALFWORDS IN AC0 , RETURNS +1 ALWAYS
  1891					; **************************************************
  1892
  1893	031436	261 17 0 00 000001 	SETRAN:	PUT	AC1
  1894	031437	261 17 0 00 000002 		PUT	AC2
  1895
  1896	031440	515 01 0 00 777770 		HRLZI	AC1,-10		;AC1/-TABLE LENGTH,,0
  1897	031441	541 01 0 00 035711 		HRRI	AC1,E1		;AC1/-TABLE LENGTH,,TABLE ADDRESS
  1898	031442	200 02 0 00 037574 		MOVE	AC2,[1,,1]
  1899
  1900	031443	202 02 0 01 000000 	SETLOC:	MOVEM	AC2,(AC1)
  1901	031444	253 01 0 00 031443 		AOBJN	AC1,SETLOC
  1902
  1903	031445	436 00 0 00 035711 		IORM	AC0,E1		;PUT 1ST HALFWORD IN FIRST LOCATION
  1904	031446	542 00 0 00 000002 		HRRM	AC2		;PATCH UP OTHER HALF OF WORD
  1905	031447	436 00 0 01 000000 		IORM	AC0,(AC1)
  1906	031450	506 00 0 00 000002 		HRLM	AC2
  1907
  1908	031451	262 17 0 00 000002 		GET	AC2
  1909	031452	262 17 0 00 000001 		GET	AC1
  1910	031453	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 26
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0080

  1911
  1912					; **********************************************************************
  1913					;*TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
  1914					;*
  1915					;*	THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
  1916					;*	TWO CVTDBX INSTRUCTIONS.
  1917					; **********************************************************************
  1918														SALL
  1919			037575		T=	SIXBTZ	<CONVERT DECIMAL TO BINARY INSTRUCTION TEST>
  1920
  1921	031454	201 00 0 00 031454 	CDBMOD:	MOVEI	.
  1922	031455	202 00 0 00 030051 		MOVEM	TESTPC
  1923	031456	200 15 0 00 041231 		MOVE	REPT,RPEAT
  1924
  1925	031457	515 06 0 00 777776 	CDBM:	HRLZI	AC6,-2		;AC6/- #CVTDBX INSTR,,0
  1926	031460	541 06 0 00 035573 		HRRI	AC6,CDBTAB	;AC6/- #CVTDBX INSTR,,OPCODE TABLE ADDR
  1927
  1928	031461	514 07 0 00 037145 	CDB1:	HRLZ	AC7,CDBCAS-1	;AC7/- #CVTDBX CASES,,0
  1929	031462	541 07 0 00 037146 		HRRI	AC7,CDBCAS	;AC7/- #CVTDBX CASES,,CASE TABLE ADDR
  1930
  1931	031463	402 00 0 00 035625 	CDB2:	SETZM	E0
  1932	031464	200 00 0 06 000000 		MOVE	(AC6)		;RETRIEVE CURRENT CVTDBX OPCODE
  1933	031465	137 00 0 00 036261 		DPB	AC0,E0OP	;DEPOSIT OPCODE IN FIELD
  1934
  1935	031466	402 00 0 00 041236 		SETZM	TRANFG		;CLEAR TRANSLATE FLAG
  1936	031467	306 00 0 00 000011 		CAIN	AC0,011		;CVTDBT INSTRUCTION?
  1937	031470	476 00 0 00 041236 		SETOM	TRANFG		;YES - SET THE FLAG
  1938
  1939	031471	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR THE SKIP INDICATOR FLAGS
  1940	031472	402 00 0 00 041234 		SETZM	SKPWD2
  1941
  1942					; **************************************************
  1943					;DETERMINE THE SOURCE STRING LENGTH
  1944					; **************************************************
  1945
  1946	031473	200 01 0 07 000000 		MOVE	AC1,(7)		;RETRIEVE CASE PARAMETER WORD
  1947	031474	200 05 0 00 000001 		MOVE	AC5,AC1
  1948	031475	405 05 0 00 000060 		ANDI	AC5,STRL	;SAVE ONLY INDEX TO LENGTH TABLE
  1949	031476	242 05 0 00 777774 		LSH	AC5,STRLSH	;SHIFT INTO POSITION
  1950	031477	200 10 0 05 036466 		MOVE	SLEN,LTAB(AC5)	;STRING LENGTH TO AC5
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 27
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0081

  1951
  1952					; **************************************************
  1953					;DETERMINE THE INITIAL BINARY DATA
  1954					; **************************************************
  1955
  1956	031500	602 01 0 00 000002 		TRNE	AC1,(B0)	;SET BIT 0?
  1957	031501	200 05 0 00 035775 		MOVE	AC5,BIT0	;YES
  1958
  1959	031502	606 01 0 00 000002 		TRNN	AC1,(B0)	;SET BIT 35?
  1960	031503	200 05 0 00 036000 		MOVE	AC5,BIT18	;YES
  1961
  1962	031504	602 01 0 00 000001 		TRNE	AC1,(HW)	;PUT INTO HIGH BINARY DATA?
  1963	031505	202 05 0 00 000013 		MOVEM	AC5,DBH		;YES
  1964
  1965	031506	606 01 0 00 000001 		TRNN	AC1,(HW)	;PUT INTO LOW BINARY DATA?
  1966	031507	202 05 0 00 000014 		MOVEM	AC5,DBL		;YES
  1967
  1968					; **************************************************
  1969					;DETERMINE THE STRING BYTE SIZE
  1970					; **************************************************
  1971
  1972	031510	603 01 0 00 000100 		TLNE	1,(S44)		;FULL WORD BYTE SIZE?
  1973	031511	200 11 0 00 037544 		MOVE	SP,[POINT 36,SOURCE] ;NO - 8 BIT BYTES
  1974
  1975	031512	607 01 0 00 000100 		TLNN	1,(S44)		;FULL WORD BYTE SIZE?
  1976	031513	200 11 0 00 037605 		MOVE	SP,[POINT 8,SOURCE] ;YES
  1977
  1978					; **************************************************
  1979					;DETERMINE THE S,N,M FLAGS
  1980					; **************************************************
  1981
  1982	031514	602 01 0 00 400000 		TRNE	1,(SFL)		;SET THE S FLAG?
  1983	031515	434 10 0 00 035775 		OR	SLEN,BIT0	;YES
  1984
  1985	031516	602 01 0 00 040000 		TRNE	1,(NFL)		;SET THE N FLAG?
  1986	031517	434 10 0 00 035776 		OR	SLEN,BIT1	;YES
  1987
  1988	031520	602 01 0 00 100000 		TRNE	1,(MFL)		;SET THE M FLAG?
  1989	031521	434 10 0 00 035777 		OR	SLEN,BIT2	;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 28
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0082

  1990
  1991					; **************************************************
  1992					;DETERMINE THE DATA TO BE CONVERTED
  1993					; **************************************************
  1994
  1995	031522	200 05 0 00 000001 		MOVE	AC5,AC1		;COPY OF PARAMETER WORD
  1996	031523	405 05 0 00 000700 		ANDI	AC5,DATA	;SAVE ONLY DATA TABLE INDEX BITS
  1997	031524	242 05 0 00 777772 		LSH	AC5,DATASH	;SHIFT INTO POSITION
  1998	031525	200 05 0 05 036414 		MOVE	AC5,DATTAB(AC5)	;AC5 HAS ADDRESS OF DATA STRING
  1999
  2000					; **************************************************
  2001					;SETUP THE SOURCE STRING
  2002					; **************************************************
  2003
  2004	031526	200 03 0 00 000010 		MOVE	AC3,SLEN	;COPY OF THE STRING LENGTH
  2005	031527	404 03 0 00 037606 		AND	AC3,[777,,777777] ;SAVE JUST THE LENGTH
  2006
  2007	031530	200 04 0 00 000011 		MOVE	AC4,SP		;COPY OF SOURCE BYTE POINTER
  2008
  2009	031531	361 03 0 00 031540 	CDB3:	SOJL	AC3,CDB3A
  2010
  2011	031532	402 00 0 00 000000 		SETZM	AC0
  2012	031533	134 00 0 00 000005 		ILDB	AC0,AC5		;GET A SOURCE BYTE
  2013
  2014	031534	332 00 0 00 041236 		SKIPE	TRANFG
  2015	031535	405 00 0 00 000017 		ANDI	AC0,17		;IF CVTDBT MAKE THE BYTE A TABLE INDEX
  2016
  2017	031536	136 00 0 00 000004 		IDPB	AC0,AC4		;PUT IT INTO THE SOURCE STRING
  2018	031537	254 00 0 00 031531 		JRST	CDB3
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 29
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0083

  2019
  2020					; **************************************************
  2021					;PICK AN OFFSET IF CVTDBO INSTRUCTION
  2022					; **************************************************
  2023
  2024	031540	332 00 0 00 041236 	CDB3A:	SKIPE	TRANFG		;INSTRUCTION CVTDBO?
  2025	031541	254 00 0 00 031550 		JRST	CDB4		;NO
  2026
  2027	031542	200 05 0 00 000001 		MOVE	AC5,AC1		;COPY OF PARAM WORD 
  2028	031543	405 05 0 00 000014 		ANDI	AC5,OFF
  2029	031544	242 05 0 00 777776 		LSH	AC5,OFFSH	;SHIFT INTO POSITION
  2030	031545	200 05 0 05 036410 		MOVE	AC5,OFFTAB(AC5)	;GET DESIRED OFFSET
  2031	031546	542 05 0 00 035625 		HRRM	AC5,E0		;STORE THE OFFSET
  2032	031547	254 00 0 00 031570 		JRST	GOCDB		;ALL SET UP - EXECUTE THE INSTR
  2033
  2034	031550	201 00 0 00 035711 	CDB4:	MOVEI	E1
  2035	031551	542 00 0 00 035625 		HRRM	E0		;STORE THE ADDR OF THE TRANSLATE TABLE
  2036
  2037	031552	402 00 0 00 000000 		SETZM	AC0		;TEMP LOC FOR CONTROL BITS
  2038	031553	602 01 0 00 020000 		TRNE	1,(C1)		;SETUP THE SPECIAL HALFWORD
  2039	031554	434 00 0 00 036000 		OR	BIT18
  2040
  2041	031555	602 01 0 00 010000 		TRNE	1,(C2)
  2042	031556	434 00 0 00 036001 		OR	BIT19
  2043
  2044	031557	602 01 0 00 004000 		TRNE	1,(C3)
  2045	031560	434 00 0 00 036002 		OR	BIT20
  2046
  2047	031561	602 01 0 00 002000 		TRNE	1,(C4)		
  2048	031562	434 00 0 00 035775 		OR	BIT0
  2049
  2050	031563	602 01 0 00 001000 		TRNE	1,(C5)
  2051	031564	434 00 0 00 035776 		OR	BIT1
  2052
  2053	031565	602 01 0 00 000400 		TRNE	1,(C6)
  2054	031566	434 00 0 00 035777 		OR	BIT2
  2055
  2056	031567	260 17 0 00 031605 		GO	CDBTRN		;GO SETUP THE TRANSLATION TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 30
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0084

  2057
  2058	031570	200 00 0 00 037547 	GOCDB:	MOVE	AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
  2059	031571	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  2060
  2061					; **************************************************
  2062	031572	260 17 0 00 033717 		GO	CDBSIM		;CALL THE CVTDBX SIMULATOR
  2063	031573	476 00 0 00 041233 		SETOM	SKPWD1
  2064					; **************************************************
  2065
  2066					; **************************************************
  2067	031574	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE REAL INSTRUCTION
  2068	031575	476 00 0 00 041234 		SETOM	SKPWD2
  2069					; **************************************************
  2070
  2071	031576	260 17 0 00 034442 		GO	CDBCOM		;COMPARE THE RESULTS
  2072	031577	036 13 0 00 037607 		ERROR	CDB2,13,0,0,,,CDBPNT
  2073	031600	035 00 0 00 031463 		ERLOOP	CDB2		;IF ERROR, LOOP TO CDB2
  2074
  2075	031601	253 07 0 00 031463 		AOBJN	AC7,CDB2	;EXECUTE THE NEXT CASE
  2076	031602	253 06 0 00 031461 		AOBJN	AC6,CDB1	;EXECUTE CASES WITH NEXT OPCODE
  2077
  2078	031603	367 15 0 00 031457 		REPTLP	CDBM
  2079	031604	254 00 0 00 031623 		JRST	CBDMOD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 31
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0085

  2080
  2081					; **************************************************
  2082					;CDBTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR CVTDBT
  2083					; **************************************************
  2084
  2085	031605	261 17 0 00 000001 	CDBTRN:	PUT	AC1
  2086	031606	261 17 0 00 000002 		PUT	AC2
  2087
  2088	031607	515 01 0 00 777770 		HRLZI	AC1,-10		;AC1/-TABLE LENGTH,,0
  2089	031610	541 01 0 00 035711 		HRRI	AC1,E1		;AC1/-TABLE LENGTH,,TABLE ADDRESS
  2090	031611	200 02 0 00 037612 		MOVE	AC2,[400000,,400001]
  2091
  2092	031612	202 02 0 01 000000 	SETLC1:	MOVEM	AC2,(AC1)
  2093	031613	253 02 0 00 031614 		AOBJN	AC2,.+1		;GET THE NEXT ENTRY
  2094	031614	253 02 0 00 031615 		AOBJN	AC2,.+1
  2095	031615	253 01 0 00 031612 		AOBJN	AC1,SETLC1
  2096
  2097	031616	502 00 0 00 035711 		HLLM	E1		;PUT 1ST HALFWORD IN 1ST LOCATION
  2098	031617	506 00 0 00 000000 		HRLM	AC1-1		;PUT 2ND HALFWORD IN LAST LOCATION
  2099
  2100	031620	262 17 0 00 000002 		GET	AC2
  2101	031621	262 17 0 00 000001 		GET	AC1
  2102	031622	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 32
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0086

  2103
  2104					; **********************************************************************
  2105					;*TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
  2106					;*
  2107					;*	THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
  2108					;*	TWO CVTBDX INSTRUCTIONS.
  2109					; **********************************************************************
  2110														SALL
  2111			037613		T=	SIXBTZ	<CONVERT BINARY TO DECIMAL INSTRUCTION TEST>
  2112
  2113	031623	201 00 0 00 031623 	CBDMOD:	MOVEI	.
  2114	031624	202 00 0 00 030051 		MOVEM	TESTPC
  2115	031625	200 15 0 00 041231 		MOVE	REPT,RPEAT
  2116
  2117	031626	515 06 0 00 777776 	CBDM:	HRLZI	AC6,-2		;AC6/- #CVTBDX INSTR,,0
  2118	031627	541 06 0 00 035575 		HRRI	AC6,CBDTAB	;AC6/- #CVTBDX INSTR,,OPCODE TABLE ADDR
  2119
  2120	031630	514 07 0 00 037206 	CBD1:	HRLZ	AC7,CBDCAS-1	;AC7/- #CVTBDX CASES,,0
  2121	031631	541 07 0 00 037207 		HRRI	AC7,CBDCAS	;AC7/- #CVTBDX CASES,,CASE TABLE ADDR
  2122
  2123	031632	260 17 0 00 035347 	CBD2:	GO	CLRSTR
  2124
  2125	031633	402 00 0 00 035625 		SETZM	E0
  2126	031634	200 00 0 06 000000 		MOVE	(AC6)		;RETRIEVE CURRENT CVTBDX OPCODE
  2127	031635	137 00 0 00 036261 		DPB	AC0,E0OP	;STORE THE OPCODE
  2128
  2129	031636	402 00 0 00 041236 		SETZM	TRANFG
  2130	031637	306 00 0 00 000013 		CAIN	AC0,013		;CVTBDT INSTR?
  2131	031640	476 00 0 00 041236 		SETOM	TRANFG		;YES
  2132
  2133	031641	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR THE SKIP INDICATOR WORDS
  2134	031642	402 00 0 00 041234 		SETZM	SKPWD2
  2135
  2136					; **************************************************
  2137					;DETERMINE THE DESTINATION STRING LENGTH
  2138					; **************************************************
  2139
  2140	031643	200 01 0 07 000000 		MOVE	AC1,(7)		;RETRIEVE THE PARAMETER WORD
  2141	031644	200 05 0 00 000001 		MOVE	AC5,AC1		;MAKE A COPY
  2142	031645	405 05 0 00 000060 		ANDI	AC5,STRL	;SAVE ONLY LENGTH INDEX
  2143	031646	242 05 0 00 777774 		LSH	AC5,STRLSH	;SHIFT INTO POSITION
  2144	031647	200 13 0 05 036466 		MOVE	DLEN,LTAB(AC5)	;STORE IT
  2145
  2146					; **************************************************
  2147					;DETERMINE THE STRING BYTE SIZE
  2148					; **************************************************
  2149
  2150	031650	603 01 0 00 000100 		TLNE	1,(S44)		;FULL WORD BYTE SIZE?
  2151	031651	200 14 0 00 037546 		MOVE	DP,[POINT 36,DESTIN] ;NO - 8 BIT BYTES
  2152	031652	607 01 0 00 000100 		TLNN	1,(S44)		;FULL WORD BYTE SIZE?
  2153	031653	200 14 0 00 037623 		MOVE	DP,[POINT 8,DESTIN] ;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 33
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0087

  2154
  2155					; **************************************************
  2156					;DETERMINE THE S,N,M FLAGS
  2157					; **************************************************
  2158
  2159	031654	602 01 0 00 400000 		TRNE	1,(SFL)		;SET THE S FLAG?
  2160	031655	434 13 0 00 035775 		OR	DLEN,BIT0	;YES
  2161
  2162	031656	602 01 0 00 040000 		TRNE	1,(NFL)		;SET THE N FLAG?
  2163	031657	434 13 0 00 035776 		OR	DLEN,BIT1	;YES
  2164
  2165	031660	602 01 0 00 100000 		TRNE	1,(MFL)		;SET THE M FLAG?
  2166	031661	434 13 0 00 035777 		OR	DLEN,BIT2	;YES
  2167
  2168					; **************************************************
  2169					;DETERMINE THE DATA TO BE CONVERTED
  2170					; **************************************************
  2171
  2172	031662	200 05 0 00 000001 		MOVE	AC5,1		;COPY OF PARAMETER WORD
  2173	031663	405 05 0 00 000700 		ANDI	AC5,DATA	;SAVE ONLY DATA TABLE INDEX BITS
  2174	031664	242 05 0 00 777772 		LSH	AC5,DATASH	;SHIFT INTO POSITION
  2175	031665	120 10 1 05 036436 		DMOVE	BDH,@DATCBD(AC5) ;GET HIGH AND LOW DATA INTO THE AC'S
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 34
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0088

  2176
  2177					; **************************************************
  2178					;PICK AN OFFSET IF CVTBDO INSTRUCTION
  2179					; **************************************************
  2180
  2181	031666	332 00 0 00 041236 	CBD3:	SKIPE	TRANFG		;INSTRUCTION CVTBDO?
  2182	031667	254 00 0 00 031676 		JRST	CBD4		;NO
  2183
  2184	031670	200 05 0 00 000001 		MOVE	AC5,AC1		;COPY OF PARAM WORD 
  2185	031671	405 05 0 00 000014 		ANDI	AC5,OFF		;JUST KEEP THE OFFSET BITS OF CASE WORD
  2186	031672	242 05 0 00 777776 		LSH	AC5,OFFSH	;SHIFT INTO POSITION
  2187	031673	200 05 0 05 036410 		MOVE	AC5,OFFTAB(AC5)	;GET DESIRED OFFSET
  2188	031674	542 05 0 00 035625 		HRRM	AC5,E0		;STORE THE OFFSET
  2189	031675	254 00 0 00 031716 		JRST	GOCBD		;ALL SET UP - EXECUTE THE INSTR
  2190
  2191	031676	201 00 0 00 035711 	CBD4:	MOVEI	E1
  2192	031677	542 00 0 00 035625 		HRRM	E0		;STORE LOCATION OF TRANSLATE TABLE
  2193
  2194	031700	402 00 0 00 000000 		SETZM	AC0		;TEMP LOC FOR CONTROL BITS
  2195	031701	602 01 0 00 020000 		TRNE	1,(C1)		;SETUP THE TWO HALFWORDS
  2196	031702	434 00 0 00 036000 		OR	BIT18
  2197
  2198	031703	602 01 0 00 010000 		TRNE	1,(C2)
  2199	031704	434 00 0 00 036001 		OR	BIT19
  2200
  2201	031705	602 01 0 00 004000 		TRNE	1,(C3)
  2202	031706	434 00 0 00 036002 		OR	BIT20
  2203
  2204	031707	602 01 0 00 002000 		TRNE	1,(C4)
  2205	031710	434 00 0 00 035775 		OR	BIT0
  2206
  2207	031711	602 01 0 00 001000 		TRNE	1,(C5)
  2208	031712	434 00 0 00 035776 		OR	BIT1
  2209
  2210	031713	602 01 0 00 000400 		TRNE	1,(C6)
  2211	031714	434 00 0 00 035777 		OR	BIT2
  2212
  2213	031715	260 17 0 00 035215 		GO	CBDTRN		;GO SETUP THE TRANSLATION TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 35
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0089

  2214
  2215	031716	200 00 0 00 037547 	GOCBD:	MOVE	AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
  2216	031717	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  2217
  2218					; **************************************************
  2219	031720	260 17 0 00 034016 		GO	CBDSIM		;CALL THE CVTBDX SIMULATOR
  2220	031721	476 00 0 00 041233 		SETOM	SKPWD1
  2221					; **************************************************
  2222
  2223					; **************************************************
  2224	031722	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE REAL INSTRUCTION
  2225	031723	476 00 0 00 041234 		SETOM	SKPWD2
  2226					; **************************************************
  2227
  2228	031724	260 17 0 00 034511 		GO	CBDCOM		;COMPARE THE RESULTS
  2229	031725	036 13 0 00 037624 		ERROR	CBD2,13,0,0,,,CBDPNT
  2230	031726	035 00 0 00 031632 		ERLOOP	CBD2		;IF ERROR, LOOP TO CBD2
  2231
  2232	031727	253 07 0 00 031632 		AOBJN	AC7,CBD2	;EXECUTE THE NEXT CASE
  2233	031730	253 06 0 00 031630 		AOBJN	AC6,CBD1	;EXECUTE CASES WITH NEXT OPCODE
  2234
  2235	031731	367 15 0 00 031626 		REPTLP	CBDM
  2236	031732	254 00 0 00 031733 		JRST	EDMODM
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 36
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0090

  2237
  2238					; **********************************************************************
  2239					;*TEST 8 -- EDIT INSTRUCTION TEST
  2240					;*
  2241					;*	THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF
  2242					;*	SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE.
  2243					;*
  2244					;*	EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
  2245					;*	EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
  2246					;*	EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
  2247					;*	EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
  2248					;*	EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
  2249					;*	EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
  2250					;*	EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
  2251					;*	EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
  2252					;*	EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
  2253					;*	EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
  2254					;*	EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
  2255					; **********************************************************************
  2256														SALL
  2257			037627		T=	SIXBTZ	<EDIT INSTRUCTION TEST>
  2258
  2259	031733	200 15 0 00 041231 	EDMODM:	MOVE	REPT,RPEAT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 37
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0091

  2260
  2261					; **********************************************************************
  2262					;*EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
  2263					;*
  2264					;*	THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF
  2265					;*	THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS
  2266					;*	OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION
  2267					;*	OF THE FIRST WORD WILL BE FILLED WITH SIGST.
  2268					; **********************************************************************
  2269														SALL
  2270			037633		T=	SIXBTZ	<EDIT - STOP (001) PATTERN BYTE TYPE TEST>
  2271
  2272						EDMOD(EDMOD1,EDM1,EDMOD2,ED1WD,SIGWD,0)
  2273
  2274	031734	201 00 0 00 031734 	EDMOD1:	MOVEI	.
  2275	031735	202 00 0 00 030051 		MOVEM	TESTPC
  2276
  2277	031736	201 00 0 00 000000 		MOVEI	AC0,0		;INDEX TO BYTE TYPE TABLE
  2278	031737	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2279
  2280	031740	402 00 0 00 041220 		SETZM	OFFSET
  2281	031741	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2282	031742	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2283
  2284	031743	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2285	031744	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2286
  2287	031745	402 00 0 00 041233 	EDM1:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2288	031746	402 00 0 00 041234 		SETZM	SKPWD2
  2289
  2290	031747	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2291
  2292	031750	200 02 0 00 036523 		MOVE	AC2,SIGWD	;TABLE FILLER BYTE TYPE
  2293	031751	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2294	031752	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2295	031753	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2296
  2297	031754	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2298
  2299	031755	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2300	031756	200 01 0 03 036334 		MOVE	AC1,ED1WD(AC3)	;GET TABLE TEST WORD
  2301	031757	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2302
  2303	031760	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2304	031761	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2305
  2306	031762	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2307	031763	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 38
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0092

  2308
  2309					; **************************************************
  2310	031764	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2311	031765	476 00 0 00 041233 		SETOM	SKPWD1
  2312					; **************************************************
  2313
  2314	031766	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2315	031767	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2316
  2317					; **************************************************
  2318	031770	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2319	031771	476 00 0 00 041234 		SETOM	SKPWD2
  2320					; **************************************************
  2321
  2322	031772	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2323						ERROR	EDM1,13,0,0,,,EDTPNT^
  2324												SALL
  2325	031773	036 13 0 00 037644 
  2326	031774	035 00 0 00 031745 		ERLOOP	EDM1		;IF ERROR, LOOP TO EDM1
  2327	031775	253 07 0 00 031745 		AOBJN	AC7,EDM1	;DO THE NEXT CASE
  2328
  2329	031776	402 00 0 00 041220 		SETZM	OFFSET
  2330	031777	254 00 0 00 032000 		JRST	EDMOD2		;FINISHED - GO TO NEXT SUBMODULE
  2331														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 39
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0093

  2332
  2333					; **********************************************************************
  2334					;*EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
  2335					;*
  2336					;*	THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE:
  2337					;*		EXCHMD STOP,
  2338					;*		EXCHMD EXCHMD STOP,
  2339					;*		EXCHMD EXCHMD EXCHMD STOP,
  2340					;*		EXCHMD EXCHMD EXCHMD EXCHMD STOP.
  2341					;*
  2342					;*	THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE]
  2343					;*	AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS
  2344					;*	WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE
  2345					;*	OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE
  2346					;*	WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE.
  2347					; **********************************************************************
  2348														SALL
  2349			037647		T=	SIXBTZ	<EDIT - EXCHMD (004) PATTERN BYTE TYPE TEST>
  2350
  2351						EDMOD(EDMOD2,EDM2,EDMOD3,ED2WD,STOPWD,1)
  2352
  2353	032000	201 00 0 00 032000 	EDMOD2:	MOVEI	.
  2354	032001	202 00 0 00 030051 		MOVEM	TESTPC
  2355
  2356	032002	201 00 0 00 000001 		MOVEI	AC0,1		;INDEX TO BYTE TYPE TABLE
  2357	032003	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2358
  2359	032004	402 00 0 00 041220 		SETZM	OFFSET
  2360	032005	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2361	032006	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2362
  2363	032007	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2364	032010	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2365
  2366	032011	402 00 0 00 041233 	EDM2:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2367	032012	402 00 0 00 041234 		SETZM	SKPWD2
  2368
  2369	032013	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2370
  2371	032014	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2372	032015	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2373	032016	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2374	032017	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2375
  2376	032020	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2377
  2378	032021	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2379	032022	200 01 0 03 036340 		MOVE	AC1,ED2WD(AC3)	;GET TABLE TEST WORD
  2380	032023	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2381
  2382	032024	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2383	032025	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2384
  2385	032026	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2386	032027	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 40
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0094

  2387
  2388					; **************************************************
  2389	032030	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2390	032031	476 00 0 00 041233 		SETOM	SKPWD1
  2391					; **************************************************
  2392
  2393	032032	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2394	032033	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2395
  2396					; **************************************************
  2397	032034	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2398	032035	476 00 0 00 041234 		SETOM	SKPWD2
  2399					; **************************************************
  2400
  2401	032036	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2402						ERROR	EDM2,13,0,0,,,EDTPNT^
  2403												SALL
  2404	032037	036 13 0 00 037657 
  2405	032040	035 00 0 00 032011 		ERLOOP	EDM2		;IF ERROR, LOOP TO EDM2
  2406	032041	253 07 0 00 032011 		AOBJN	AC7,EDM2	;DO THE NEXT CASE
  2407
  2408	032042	402 00 0 00 041220 		SETZM	OFFSET
  2409	032043	254 00 0 00 032044 		JRST	EDMOD3		;FINISHED - GO TO NEXT SUBMODULE
  2410														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 41
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0095

  2411
  2412					; **********************************************************************
  2413					;*EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
  2414					;*
  2415					;*	THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED:
  2416					;*	1. S=1
  2417					;*	2. S=0, E0+2=0
  2418					;*	3. S=0, E0+2 NOT =0
  2419					;*
  2420					;*	THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR
  2421					;*	VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE
  2422					;*	EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED
  2423					;*	WITH THE STOP OPERATOR.
  2424					; **********************************************************************
  2425														SALL
  2426			037662		T=	SIXBTZ	<EDIT - SIGST (002) PATTERN BYTE TYPE TEST>
  2427
  2428						EDMOD(EDMOD3,EDM3,EDMOD4,ED3WD,STOPWD,2)
  2429
  2430	032044	201 00 0 00 032044 	EDMOD3:	MOVEI	.
  2431	032045	202 00 0 00 030051 		MOVEM	TESTPC
  2432
  2433	032046	201 00 0 00 000002 		MOVEI	AC0,2		;INDEX TO BYTE TYPE TABLE
  2434	032047	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2435
  2436	032050	402 00 0 00 041220 		SETZM	OFFSET
  2437	032051	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2438	032052	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2439
  2440	032053	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2441	032054	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2442
  2443	032055	402 00 0 00 041233 	EDM3:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2444	032056	402 00 0 00 041234 		SETZM	SKPWD2
  2445
  2446	032057	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2447
  2448	032060	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2449	032061	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2450	032062	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2451	032063	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2452
  2453	032064	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2454
  2455	032065	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2456	032066	200 01 0 03 036344 		MOVE	AC1,ED3WD(AC3)	;GET TABLE TEST WORD
  2457	032067	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2458
  2459	032070	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2460	032071	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2461
  2462	032072	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2463	032073	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 42
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0096

  2464
  2465					; **************************************************
  2466	032074	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2467	032075	476 00 0 00 041233 		SETOM	SKPWD1
  2468					; **************************************************
  2469
  2470	032076	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2471	032077	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2472
  2473					; **************************************************
  2474	032100	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2475	032101	476 00 0 00 041234 		SETOM	SKPWD2
  2476					; **************************************************
  2477
  2478	032102	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2479						ERROR	EDM3,13,0,0,,,EDTPNT^
  2480												SALL
  2481	032103	036 13 0 00 037671 
  2482	032104	035 00 0 00 032055 		ERLOOP	EDM3		;IF ERROR, LOOP TO EDM3
  2483	032105	253 07 0 00 032055 		AOBJN	AC7,EDM3	;DO THE NEXT CASE
  2484
  2485	032106	402 00 0 00 041220 		SETZM	OFFSET
  2486	032107	254 00 0 00 032110 		JRST	EDMOD4		;FINISHED - GO TO NEXT SUBMODULE
  2487														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 43
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0097

  2488
  2489					; **********************************************************************
  2490					;*EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
  2491					;*
  2492					;*	THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS
  2493					;*	OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE
  2494					;*	FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE
  2495					;*	TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD.
  2496					; **********************************************************************
  2497														SALL
  2498			037674		T=	SIXBTZ	<EDIT - FLDSEP (003) PATTERN BYTE TYPE TEST>
  2499
  2500						EDMOD(EDMOD4,EDM4,EDMOD5,ED4WD,STOPWD,3)
  2501
  2502	032110	201 00 0 00 032110 	EDMOD4:	MOVEI	.
  2503	032111	202 00 0 00 030051 		MOVEM	TESTPC
  2504
  2505	032112	201 00 0 00 000003 		MOVEI	AC0,3		;INDEX TO BYTE TYPE TABLE
  2506	032113	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2507
  2508	032114	402 00 0 00 041220 		SETZM	OFFSET
  2509	032115	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2510	032116	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2511
  2512	032117	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2513	032120	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2514
  2515	032121	402 00 0 00 041233 	EDM4:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2516	032122	402 00 0 00 041234 		SETZM	SKPWD2
  2517
  2518	032123	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2519
  2520	032124	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2521	032125	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2522	032126	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2523	032127	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2524
  2525	032130	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2526
  2527	032131	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2528	032132	200 01 0 03 036350 		MOVE	AC1,ED4WD(AC3)	;GET TABLE TEST WORD
  2529	032133	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2530
  2531	032134	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2532	032135	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2533
  2534	032136	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2535	032137	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 44
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0098

  2536
  2537					; **************************************************
  2538	032140	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2539	032141	476 00 0 00 041233 		SETOM	SKPWD1
  2540					; **************************************************
  2541
  2542	032142	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2543	032143	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2544
  2545					; **************************************************
  2546	032144	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2547	032145	476 00 0 00 041234 		SETOM	SKPWD2
  2548					; **************************************************
  2549
  2550	032146	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2551						ERROR	EDM4,13,0,0,,,EDTPNT^
  2552												SALL
  2553	032147	036 13 0 00 037704 
  2554	032150	035 00 0 00 032121 		ERLOOP	EDM4		;IF ERROR, LOOP TO EDM4
  2555	032151	253 07 0 00 032121 		AOBJN	AC7,EDM4	;DO THE NEXT CASE
  2556
  2557	032152	402 00 0 00 041220 		SETZM	OFFSET
  2558	032153	254 00 0 00 032154 		JRST	EDMOD5		;FINISHED - GO TO NEXT SUBMODULE
  2559														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 45
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0099

  2560
  2561					; **********************************************************************
  2562					;*EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
  2563					;*
  2564					;*	THERE ARE THREE  EXECUTION PATHS THAT MUST BE TESTED:
  2565					;*	1. S=1
  2566					;*	2. S=0, E0+1=0
  2567					;*	3. S=0, E0+1 NOT =0
  2568					;*
  2569					;*	THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS
  2570					;*	NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE
  2571					;*	PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE
  2572					;*	EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE
  2573					;*	CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING.
  2574					; **********************************************************************
  2575														SALL
  2576			037707		T=	SIXBTZ	<EDIT - MESSAG (1XX) PATTERN BYTE TYPE TEST>
  2577
  2578						EDMOD(EDMOD5,EDM5,EDM5A,ED5WD,STOPWD,4)
  2579
  2580	032154	201 00 0 00 032154 	EDMOD5:	MOVEI	.
  2581	032155	202 00 0 00 030051 		MOVEM	TESTPC
  2582
  2583	032156	201 00 0 00 000004 		MOVEI	AC0,4		;INDEX TO BYTE TYPE TABLE
  2584	032157	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2585
  2586	032160	402 00 0 00 041220 		SETZM	OFFSET
  2587	032161	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2588	032162	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2589
  2590	032163	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2591	032164	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2592
  2593	032165	402 00 0 00 041233 	EDM5:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2594	032166	402 00 0 00 041234 		SETZM	SKPWD2
  2595
  2596	032167	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2597
  2598	032170	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2599	032171	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2600	032172	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2601	032173	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2602
  2603	032174	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2604
  2605	032175	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2606	032176	200 01 0 03 036354 		MOVE	AC1,ED5WD(AC3)	;GET TABLE TEST WORD
  2607	032177	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2608
  2609	032200	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2610	032201	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2611
  2612	032202	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2613	032203	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 46
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0100

  2614
  2615					; **************************************************
  2616	032204	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2617	032205	476 00 0 00 041233 		SETOM	SKPWD1
  2618					; **************************************************
  2619
  2620	032206	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2621	032207	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2622
  2623					; **************************************************
  2624	032210	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2625	032211	476 00 0 00 041234 		SETOM	SKPWD2
  2626					; **************************************************
  2627
  2628	032212	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2629						ERROR	EDM5,13,0,0,,,EDTPNT^
  2630												SALL
  2631	032213	036 13 0 00 037717 
  2632	032214	035 00 0 00 032165 		ERLOOP	EDM5		;IF ERROR, LOOP TO EDM5
  2633	032215	253 07 0 00 032165 		AOBJN	AC7,EDM5	;DO THE NEXT CASE
  2634
  2635	032216	402 00 0 00 041220 		SETZM	OFFSET
  2636	032217	254 00 0 00 032220 		JRST	EDM5A		;FINISHED - GO TO NEXT SUBMODULE
  2637														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 47
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0101

  2638
  2639					; **********************************************************************
  2640					;*INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING
  2641					; **********************************************************************
  2642
  2643	032220	260 17 0 00 035347 	EDM5A:	GO	CLRSTR		;CLEAR THE DESTINATION STRINGS
  2644
  2645	032221	200 00 0 00 037722 		MOVE	AC0,[MESSGS,,E0+1] ;SET UP THE 64 MESSAGE CHARACTERS
  2646	032222	251 00 0 00 035631 		BLT	AC0,E0+4
  2647
  2648	032223	201 00 0 00 000037 		MOVEI	AC0,37		;GET NEXT CODE
  2649	032224	541 01 0 00 035632 		HRRI	AC1,E0+5
  2650	032225	505 01 0 00 777731 		HRLI	AC1,-^D39
  2651
  2652	032226	202 00 0 01 000000 	FILE0:	MOVEM	AC0,(AC1)	;PUT INTO E0 TABLE
  2653	032227	271 00 0 00 000001 		ADDI	AC0,1
  2654	032230	253 01 0 00 032226 		AOBJN	AC1,FILE0
  2655
  2656	032231	201 01 0 00 000077 	PTMSET:	MOVEI	AC1,^D63	;SET UP THE PATTERN BYTE TABLE
  2657	032232	200 02 0 00 036515 		MOVE	AC2,PATPT	;GET BYTE POINTER
  2658
  2659	032233	201 00 0 00 000100 		MOVEI	AC0,100
  2660	032234	136 00 0 00 000002 	PTM1:	IDPB	AC0,AC2		;PUT THE BYTE IN THE TABLE
  2661	032235	271 00 0 00 000001 		ADDI	AC0,1
  2662	032236	367 01 0 00 032234 		SOJG	AC1,PTM1
  2663
  2664	032237	201 00 0 00 000000 		MOVEI	AC0,STOP	;FINISH UP WITH STOP
  2665	032240	136 00 0 00 000002 		IDPB	AC0,AC2		;OVERWRITE THE LAST BYTE WITH A STOP
  2666
  2667	032241	201 07 0 00 037310 		MOVEI	AC7,MCASE	;GET SPECIAL CASE PARAMETER WORD
  2668	032242	260 17 0 00 035070 		GO	EDTSET		;INITIALIZE THE AC BLOCK
  2669
  2670	032243	200 00 0 00 037547 		MOVE	AC0,[AC,,ORIGSV]
  2671	032244	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  2672
  2673					; **************************************************
  2674	032245	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2675	032246	476 00 0 00 041233 		SETOM	SKPWD1
  2676					; **************************************************
  2677
  2678					; **************************************************
  2679	032247	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE REAL INSTRUCTION
  2680	032250	476 00 0 00 041234 		SETOM	SKPWD2
  2681					; **************************************************
  2682
  2683	032251	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2684	032252	036 13 0 00 037717 		ERROR	EDM5A,13,0,0,,,EDTPNT
  2685	032253	035 00 0 00 032220 		ERLOOP	EDM5A		;IF ERROR, LOOP TO EDM5A
  2686
  2687	032254	254 00 0 00 032255 		JRST	EDMOD6		;GO TO NEXT SUBMODULE TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 48
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0102

  2688
  2689					; **********************************************************************
  2690					;*EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
  2691					;*
  2692					;*	THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES:
  2693					;*		NOP STOP,
  2694					;*		NOP NOP STOP,
  2695					;*		NOP NOP NOP STOP,
  2696					;*		NOP NOP NOP NOP STOP.
  2697					;*
  2698					;*	THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED 
  2699					;*	WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO
  2700					;*	INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE
  2701					;*	INSTRUCTION.
  2702					; **********************************************************************
  2703														SALL
  2704			037723		T=	SIXBTZ	<EDIT - NOP (005) PATTERN BYTE TYPE TEST>
  2705
  2706						EDMOD(EDMOD6,EDM6,EDMD7A,ED6WD,STOPWD,5)
  2707
  2708	032255	201 00 0 00 032255 	EDMOD6:	MOVEI	.
  2709	032256	202 00 0 00 030051 		MOVEM	TESTPC
  2710
  2711	032257	201 00 0 00 000005 		MOVEI	AC0,5		;INDEX TO BYTE TYPE TABLE
  2712	032260	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2713
  2714	032261	402 00 0 00 041220 		SETZM	OFFSET
  2715	032262	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2716	032263	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2717
  2718	032264	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2719	032265	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2720
  2721	032266	402 00 0 00 041233 	EDM6:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2722	032267	402 00 0 00 041234 		SETZM	SKPWD2
  2723
  2724	032270	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2725
  2726	032271	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2727	032272	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2728	032273	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2729	032274	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2730
  2731	032275	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2732
  2733	032276	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2734	032277	200 01 0 03 036360 		MOVE	AC1,ED6WD(AC3)	;GET TABLE TEST WORD
  2735	032300	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2736
  2737	032301	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2738	032302	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2739
  2740	032303	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2741	032304	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 49
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0103

  2742
  2743					; **************************************************
  2744	032305	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2745	032306	476 00 0 00 041233 		SETOM	SKPWD1
  2746					; **************************************************
  2747
  2748	032307	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2749	032310	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2750
  2751					; **************************************************
  2752	032311	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2753	032312	476 00 0 00 041234 		SETOM	SKPWD2
  2754					; **************************************************
  2755
  2756	032313	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2757						ERROR	EDM6,13,0,0,,,EDTPNT^
  2758												SALL
  2759	032314	036 13 0 00 037732 
  2760	032315	035 00 0 00 032266 		ERLOOP	EDM6		;IF ERROR, LOOP TO EDM6
  2761	032316	253 07 0 00 032266 		AOBJN	AC7,EDM6	;DO THE NEXT CASE
  2762
  2763	032317	402 00 0 00 041220 		SETZM	OFFSET
  2764	032320	254 00 0 00 032321 		JRST	EDMD7A		;FINISHED - GO TO NEXT SUBMODULE
  2765														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 50
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0104

  2766
  2767					; **********************************************************************
  2768					;*EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
  2769					;*
  2770					;*	THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
  2771					;*	ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
  2772					;*	FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
  2773					;*	THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
  2774					; **********************************************************************
  2775														SALL
  2776			037735		T=	SIXBTZ	<EDIT - SKPM (5XX) PATTERN BYTE TYPE TESTS>
  2777
  2778						EDMOD(EDMD7A,EDM7A,EDMD7B,ED7AWD,STOPWD,6)
  2779
  2780	032321	201 00 0 00 032321 	EDMD7A:	MOVEI	.
  2781	032322	202 00 0 00 030051 		MOVEM	TESTPC
  2782
  2783	032323	201 00 0 00 000006 		MOVEI	AC0,6		;INDEX TO BYTE TYPE TABLE
  2784	032324	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2785
  2786	032325	402 00 0 00 041220 		SETZM	OFFSET
  2787	032326	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2788	032327	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2789
  2790	032330	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2791	032331	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2792
  2793	032332	402 00 0 00 041233 	EDM7A:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2794	032333	402 00 0 00 041234 		SETZM	SKPWD2
  2795
  2796	032334	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2797
  2798	032335	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2799	032336	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2800	032337	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2801	032340	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2802
  2803	032341	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2804
  2805	032342	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2806	032343	200 01 0 03 036364 		MOVE	AC1,ED7AWD(AC3)	;GET TABLE TEST WORD
  2807	032344	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2808
  2809	032345	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2810	032346	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2811
  2812	032347	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2813	032350	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 51
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0105

  2814
  2815					; **************************************************
  2816	032351	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2817	032352	476 00 0 00 041233 		SETOM	SKPWD1
  2818					; **************************************************
  2819
  2820	032353	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2821	032354	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2822
  2823					; **************************************************
  2824	032355	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2825	032356	476 00 0 00 041234 		SETOM	SKPWD2
  2826					; **************************************************
  2827
  2828	032357	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2829						ERROR	EDM7A,13,0,0,,,EDTPNT^
  2830												SALL
  2831	032360	036 13 0 00 037744 
  2832	032361	035 00 0 00 032332 		ERLOOP	EDM7A		;IF ERROR, LOOP TO EDM7A
  2833	032362	253 07 0 00 032332 		AOBJN	AC7,EDM7A	;DO THE NEXT CASE
  2834
  2835	032363	402 00 0 00 041220 		SETZM	OFFSET
  2836	032364	254 00 0 00 032365 		JRST	EDMD7B		;FINISHED - GO TO NEXT SUBMODULE
  2837														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 52
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0106

  2838
  2839					; **********************************************************************
  2840					;*EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
  2841					;*
  2842					;*	THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
  2843					;*	ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
  2844					;*	FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
  2845					;*	THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
  2846					; **********************************************************************
  2847														SALL
  2848			037747		T=	SIXBTZ	<EDIT - SKPN (6XX) PATTERN BYTE TYPE TESTS>
  2849
  2850						EDMOD(EDMD7B,EDM7B,EDMD7C,ED7BWD,STOPWD,7)
  2851
  2852	032365	201 00 0 00 032365 	EDMD7B:	MOVEI	.
  2853	032366	202 00 0 00 030051 		MOVEM	TESTPC
  2854
  2855	032367	201 00 0 00 000007 		MOVEI	AC0,7		;INDEX TO BYTE TYPE TABLE
  2856	032370	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2857
  2858	032371	402 00 0 00 041220 		SETZM	OFFSET
  2859	032372	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2860	032373	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2861
  2862	032374	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2863	032375	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2864
  2865	032376	402 00 0 00 041233 	EDM7B:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2866	032377	402 00 0 00 041234 		SETZM	SKPWD2
  2867
  2868	032400	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2869
  2870	032401	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2871	032402	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2872	032403	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2873	032404	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2874
  2875	032405	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2876
  2877	032406	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2878	032407	200 01 0 03 036370 		MOVE	AC1,ED7BWD(AC3)	;GET TABLE TEST WORD
  2879	032410	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2880
  2881	032411	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2882	032412	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2883
  2884	032413	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2885	032414	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 53
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0107

  2886
  2887					; **************************************************
  2888	032415	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2889	032416	476 00 0 00 041233 		SETOM	SKPWD1
  2890					; **************************************************
  2891
  2892	032417	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2893	032420	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2894
  2895					; **************************************************
  2896	032421	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2897	032422	476 00 0 00 041234 		SETOM	SKPWD2
  2898					; **************************************************
  2899
  2900	032423	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2901						ERROR	EDM7B,13,0,0,,,EDTPNT^
  2902												SALL
  2903	032424	036 13 0 00 037756 
  2904	032425	035 00 0 00 032376 		ERLOOP	EDM7B		;IF ERROR, LOOP TO EDM7B
  2905	032426	253 07 0 00 032376 		AOBJN	AC7,EDM7B	;DO THE NEXT CASE
  2906
  2907	032427	402 00 0 00 041220 		SETZM	OFFSET
  2908	032430	254 00 0 00 032431 		JRST	EDMD7C		;FINISHED - GO TO NEXT SUBMODULE
  2909														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 54
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0108

  2910
  2911					; **********************************************************************
  2912					;*EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
  2913					;*
  2914					;*	THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
  2915					;*	ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
  2916					;*	FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
  2917					;*	THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
  2918					; **********************************************************************
  2919														SALL
  2920			037761		T=	SIXBTZ	<EDIT - SKPA (7XX) PATTERN BYTE TYPE TESTS>
  2921
  2922						EDMOD(EDMD7C,EDM7C,EDMOD8,ED7CWD,STOPWD,^D8)
  2923
  2924	032431	201 00 0 00 032431 	EDMD7C:	MOVEI	.
  2925	032432	202 00 0 00 030051 		MOVEM	TESTPC
  2926
  2927	032433	201 00 0 00 000010 		MOVEI	AC0,^D8		;INDEX TO BYTE TYPE TABLE
  2928	032434	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  2929
  2930	032435	402 00 0 00 041220 		SETZM	OFFSET
  2931	032436	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  2932	032437	476 00 0 00 041220 		SETOM	OFFSET		;YES
  2933
  2934	032440	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  2935	032441	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  2936
  2937	032442	402 00 0 00 041233 	EDM7C:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  2938	032443	402 00 0 00 041234 		SETZM	SKPWD2
  2939
  2940	032444	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  2941
  2942	032445	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  2943	032446	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  2944	032447	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  2945	032450	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  2946
  2947	032451	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  2948
  2949	032452	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  2950	032453	200 01 0 03 036374 		MOVE	AC1,ED7CWD(AC3)	;GET TABLE TEST WORD
  2951	032454	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  2952
  2953	032455	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  2954	032456	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  2955
  2956	032457	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  2957	032460	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 55
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0109

  2958
  2959					; **************************************************
  2960	032461	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  2961	032462	476 00 0 00 041233 		SETOM	SKPWD1
  2962					; **************************************************
  2963
  2964	032463	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  2965	032464	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  2966
  2967					; **************************************************
  2968	032465	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  2969	032466	476 00 0 00 041234 		SETOM	SKPWD2
  2970					; **************************************************
  2971
  2972	032467	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  2973						ERROR	EDM7C,13,0,0,,,EDTPNT^
  2974												SALL
  2975	032470	036 13 0 00 037770 
  2976	032471	035 00 0 00 032442 		ERLOOP	EDM7C		;IF ERROR, LOOP TO EDM7C
  2977	032472	253 07 0 00 032442 		AOBJN	AC7,EDM7C	;DO THE NEXT CASE
  2978
  2979	032473	402 00 0 00 041220 		SETZM	OFFSET
  2980	032474	254 00 0 00 032475 		JRST	EDMOD8		;FINISHED - GO TO NEXT SUBMODULE
  2981														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 56
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0110

  2982
  2983					; **********************************************************************
  2984					;*EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
  2985					;*
  2986					;*	THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES
  2987					;*	FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND
  2988					;*	THE S,N AND M FLAGS.
  2989					;*
  2990					;*	COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED:
  2991					;*	1. S,N AND M FLAGS
  2992					;*	2. E0+1 = AND NOT =0
  2993					;*	3. E0+2 = AND NOT =0
  2994					;*	4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE.
  2995					; **********************************************************************
  2996														SALL
  2997			037773		T=	SIXBTZ	<EDIT - SELECT (001) PATTERN BYTE TYPE TEST>
  2998
  2999						EDMOD(EDMOD8,EDM8,EDMOD9,ED8WD,STOPWD,^D9)
  3000
  3001	032475	201 00 0 00 032475 	EDMOD8:	MOVEI	.
  3002	032476	202 00 0 00 030051 		MOVEM	TESTPC
  3003
  3004	032477	201 00 0 00 000011 		MOVEI	AC0,^D9		;INDEX TO BYTE TYPE TABLE
  3005	032500	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  3006
  3007	032501	402 00 0 00 041220 		SETZM	OFFSET
  3008	032502	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  3009	032503	476 00 0 00 041220 		SETOM	OFFSET		;YES
  3010
  3011	032504	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  3012	032505	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  3013
  3014	032506	402 00 0 00 041233 	EDM8:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3015	032507	402 00 0 00 041234 		SETZM	SKPWD2
  3016
  3017	032510	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  3018
  3019	032511	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  3020	032512	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  3021	032513	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3022	032514	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  3023
  3024	032515	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  3025
  3026	032516	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  3027	032517	200 01 0 03 036400 		MOVE	AC1,ED8WD(AC3)	;GET TABLE TEST WORD
  3028	032520	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  3029
  3030	032521	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  3031	032522	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  3032
  3033	032523	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  3034	032524	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 57
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0111

  3035
  3036					; **************************************************
  3037	032525	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  3038	032526	476 00 0 00 041233 		SETOM	SKPWD1
  3039					; **************************************************
  3040
  3041	032527	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  3042	032530	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  3043
  3044					; **************************************************
  3045	032531	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3046	032532	476 00 0 00 041234 		SETOM	SKPWD2
  3047					; **************************************************
  3048
  3049	032533	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  3050						ERROR	EDM8,13,0,0,,,EDTPNT^
  3051												SALL
  3052	032534	036 13 0 00 040003 
  3053	032535	035 00 0 00 032506 		ERLOOP	EDM8		;IF ERROR, LOOP TO EDM8
  3054	032536	253 07 0 00 032506 		AOBJN	AC7,EDM8	;DO THE NEXT CASE
  3055
  3056	032537	402 00 0 00 041220 		SETZM	OFFSET
  3057	032540	254 00 0 00 032541 		JRST	EDMOD9		;FINISHED - GO TO NEXT SUBMODULE
  3058														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 58
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0112

  3059
  3060					; **********************************************************************
  3061					;*EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
  3062					;*
  3063					;*	THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED
  3064					;*	VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED
  3065					;*	AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC
  3066					;*	BYTES TESTED ARE 2XX,3XX,4XX,006.
  3067					; **********************************************************************
  3068														SALL
  3069			040006		T=	SIXBTZ	<EDIT - NON DEFINED PATTERN BYTE TYPE TEST>
  3070
  3071						EDMOD(EDMOD9,EDM9,PFTST,ED9WD,STOPWD,^D10)
  3072
  3073	032541	201 00 0 00 032541 	EDMOD9:	MOVEI	.
  3074	032542	202 00 0 00 030051 		MOVEM	TESTPC
  3075
  3076	032543	201 00 0 00 000012 		MOVEI	AC0,^D10		;INDEX TO BYTE TYPE TABLE
  3077	032544	202 00 0 00 036333 		MOVEM	BYTYPE		;STORE
  3078
  3079	032545	402 00 0 00 041220 		SETZM	OFFSET
  3080	032546	306 00 0 00 000001 		CAIN	AC0,1		;EXCHMD OPERATOR?
  3081	032547	476 00 0 00 041220 		SETOM	OFFSET		;YES
  3082
  3083	032550	514 07 0 00 037247 		HRLZ	AC7,EDTCAS-1	;AC7/- #CASES,,0
  3084	032551	541 07 0 00 037250 		HRRI	AC7,EDTCAS	;AC7/- #CASES,,CASE TABLE ADDRESS
  3085
  3086	032552	402 00 0 00 041233 	EDM9:	SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3087	032553	402 00 0 00 041234 		SETZM	SKPWD2
  3088
  3089	032554	260 17 0 00 035347 		GO	CLRSTR		;CLEAR STRING BYTES
  3090
  3091	032555	200 02 0 00 036522 		MOVE	AC2,STOPWD	;TABLE FILLER BYTE TYPE
  3092	032556	202 02 0 00 036307 		MOVEM	AC2,PATTBL	;STORE THE FILLER IN THE BYTE TABLE
  3093	032557	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3094	032560	251 00 0 00 036320 		BLT	AC0,PATTBL+^D9
  3095
  3096	032561	260 17 0 00 035070 		GO	EDTSET		;SET UP INSTRUCTION PARAMETERS
  3097
  3098	032562	135 03 0 00 036514 		LDB	AC3,PATBN	;GET THE CURRENT PB#
  3099	032563	200 01 0 03 036404 		MOVE	AC1,ED9WD(AC3)	;GET TABLE TEST WORD
  3100	032564	202 01 0 00 036307 		MOVEM	AC1,PATTBL	;STORE IT IN THE TABLE
  3101
  3102	032565	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD BYTE OPERATOR?
  3103	032566	200 13 0 00 037643 		MOVE	MA,[POINT 0,SOURCE] ;YES
  3104
  3105	032567	200 00 0 00 037547 		MOVE	AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
  3106	032570	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 59
DFKCCM	MAC	 8-Jan-87 15:04		EXTEND INSTRUCTION CASE TESTING                                                    SEQ 0113

  3107
  3108					; **************************************************
  3109	032571	260 17 0 00 034155 		GO	EDTSIM		;SIMULATE THE INSTRUCTION
  3110	032572	476 00 0 00 041233 		SETOM	SKPWD1
  3111					; **************************************************
  3112
  3113	032573	332 00 0 00 041220 		SKIPE	OFFSET		;EXCHMD OPERATOR?
  3114	032574	260 17 0 00 035347 		GO	CLRSTR		;YES - CLEAR STRING AREAS AGAIN
  3115
  3116					; **************************************************
  3117	032575	123 10 0 00 035625 		EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3118	032576	476 00 0 00 041234 		SETOM	SKPWD2
  3119					; **************************************************
  3120
  3121	032577	260 17 0 00 034577 		GO	EDTCOM		;COMPARE THE RESULTS
  3122						ERROR	EDM9,13,0,0,,,EDTPNT^
  3123												SALL
  3124	032600	036 13 0 00 040015 
  3125	032601	035 00 0 00 032552 		ERLOOP	EDM9		;IF ERROR, LOOP TO EDM9
  3126	032602	253 07 0 00 032552 		AOBJN	AC7,EDM9	;DO THE NEXT CASE
  3127
  3128	032603	402 00 0 00 041220 		SETZM	OFFSET
  3129	032604	254 00 0 00 032606 		JRST	PFTST		;FINISHED - GO TO NEXT SUBMODULE
  3130														SALL
  3131
  3132	032605	367 15 0 00 031734 		REPTLP	EDMOD1
  3133
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 60
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0114

  3134					SUBTTL	PAGE FAIL TESTING
  3135														SALL
  3136			040020		T= SIXBTZ<PAGE FAIL TESTING>
  3137
  3138					; **********************************************************************
  3139					;*TEST 9 -- PAGE FAIL RECOVERY TEST
  3140					;*
  3141					;*	THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION
  3142					;*	USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX).
  3143					;*
  3144					;*	WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST,
  3145					;*	MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS,
  3146					;*	AND AT THE E0+1 (FILLER) BYTES.
  3147					;*
  3148					;*	THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75.
  3149					;*	
  3150					;*	THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401
  3151					;*	(WHICH DOES NOT EXIST).
  3152					;*
  3153					;*	A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000.
  3154					;*
  3155					;*	THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF
  3156					;*	THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND
  3157					;*	THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY
  3158					;*	ARE NOT CORRECT AN ERROR PRINTOUT OCCURS.
  3159					;*
  3160					;*	THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401.
  3161					;*	PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000.
  3162					;*
  3163					;*	WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE
  3164					;*	SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED.
  3165					;*	(SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR
  3166					;*	CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.)
  3167					;*
  3168					;*	THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK
  3169					;*	ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR
  3170					;*	PRINTOUT OCCURS.
  3171					; **********************************************************************
  3172
  3173	032606	332 00 0 00 030037 	PFTST:	SKIPE	USER
  3174	032607	254 00 0 00 030057 		JRST	BEGEND		;NO PAGE FAIL TESTING IN USER MODE
  3175
  3176	032610	200 15 0 00 041231 		MOVE	REPT,RPEAT
  3177
  3178	032611	201 00 0 00 035006 		MOVEI	AC0,PFHAND	;SET UP ADDRESS OF PF HANDLER
  3179	032612	202 00 0 00 000502 		MOVEM	AC0,LPGFTR
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 61
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0115

  3180
  3181					; **********************************************************************
  3182					;*PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS
  3183					; **********************************************************************
  3184														SALL
  3185			040023		T=	SIXBTZ	<PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS>
  3186
  3187						PFMAC (-6,-7,PFRES1,PFBLK1,CMP,SETRAN)
  3188
  3189	032613	201 00 0 00 032613 	CMPST:	MOVEI	.
  3190	032614	202 00 0 00 030051 		MOVEM	TESTPC
  3191
  3192	032615	476 00 0 00 041220 		SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
  3193
  3194	032616	515 01 0 00 777772 		HRLZI	AC1,-6		;AC1/-# CMP INSTR,,0
  3195	032617	541 01 0 00 035560 		HRRI	AC1,CMPTAB	;AC1/-# CMP INSTR,,OPCODE TABLE ADDR
  3196
  3197	032620	402 00 0 00 035625 		SETZM	E0
  3198	032621	402 00 0 00 035626 		SETZM	E0+1
  3199
  3200	032622	571 02 0 00 777771 	CMPPF0:	HRREI	AC2,-7		;AC2/-# PAGE FAIL CASES
  3201
  3202	032623	200 00 0 01 000000 		MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
  3203	032624	306 00 0 00 000017 		CAIN	AC0,017
  3204	032625	275 02 0 00 000001 		SUBI	AC2,1
  3205
  3206	032626	302 00 0 00 000004 		CAIE	AC0,004		;EDIT INSTRUCTION?
  3207	032627	254 00 0 00 032636 		JRST	CMPPFA
  3208
  3209	032630	200 00 0 00 036524 		MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
  3210	032631	202 00 0 00 036307 		MOVEM	AC0,PATTBL
  3211	032632	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3212	032633	251 00 0 00 036317 		BLT	AC0,PATTBL+^D8
  3213
  3214	032634	200 00 0 00 036522 		MOVE	AC0,STOPWD
  3215	032635	202 00 0 00 036320 		MOVEM	AC0,PATTBL+^D9
  3216
  3217	032636	201 03 0 00 036525 	CMPPFA:	MOVEI	AC3,PFBLK1	;INITIAL AC BLOCK TABLE
  3218	032637	201 04 0 00 036707 		MOVEI	AC4,PFRES1	;ADDR OF INTERMEDIATE RESULT TABLE
  3219
  3220	032640	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3221	032641	402 00 0 00 041234 		SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 62
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0116

  3222
  3223					; **************************************************
  3224					;SET UP THE SOURCE AND DESTINATION STRINGS
  3225					; **************************************************
  3226
  3227	032642	260 17 0 00 035347 		GO	CLRSTR
  3228
  3229	032643	402 00 0 00 075750 		SETZM	75750		;CLEAR THE FAIL STRING AREA
  3230	032644	200 00 0 00 040033 		MOVE	AC0,[75750,,75751]
  3231	032645	251 00 0 00 076100 		BLT	AC0,76100
  3232
  3233	032646	260 17 0 00 035270 	CMPPF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
  3234
  3235	032647	200 00 0 01 000000 		MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
  3236	032650	202 00 0 00 041216 		MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
  3237
  3238	032651	260 17 0 00 035237 		GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
  3239
  3240	032652	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3241	032653	137 00 0 00 040034 		DPB	AC0,[POINT 9,400777,8] ;YES
  3242
  3243	032654	336 00 0 00 041213 		SKIPN	FILLF
  3244	032655	137 00 0 00 036261 		DPB	AC0,E0OP	;NO
  3245
  3246	032656	336 00 0 00 041236 		SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
  3247	032657	254 00 0 00 032667 		JRST	CMPPC		;NO
  3248
  3249	032660	201 00 0 00 035711 		MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
  3250	032661	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3251	032662	542 00 0 00 400777 		HRRM	AC0,400777	;YES
  3252	032663	542 00 0 00 035625 		HRRM	AC0,E0		;NO
  3253
  3254	032664	200 00 0 00 037574 		MOVE	AC0,[1,,1]
  3255	032665	260 17 0 00 031436 		GO	SETRAN		;SETUP THE TRANSLATION TABLE
  3256	032666	434 10 0 00 035775 		OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 63
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0117

  3257
  3258	032667	200 00 0 00 037547 	CMPPC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
  3259	032670	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  3260
  3261	032671	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3262	032672	200 00 0 00 040035 		MOVE	AC0,[0,,CMPPC2] ;YES
  3263	032673	336 00 0 00 041213 		SKIPN	FILLF
  3264	032674	200 00 0 00 040036 		MOVE	AC0,[0,,CMPPC1] ;NO
  3265	032675	202 00 0 00 041212 		MOVEM	FAILOC#		;STORE IT
  3266
  3267	032676	476 00 0 00 041227 		SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
  3268	032677	402 00 0 00 041225 		SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
  3269
  3270	032700	201 00 0 00 032717 		MOVEI	CMPPFX
  3271	032701	202 00 0 00 041226 		MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
  3272
  3273	032702	260 17 0 00 035257 		GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
  3274
  3275	032703	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3276	032704	254 00 0 00 032710 		JRST	CMPPC2		;YES
  3277
  3278					; **************************************************
  3279	032705	123 10 0 00 035625 	CMPPC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3280	032706	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3281					; **************************************************
  3282
  3283	032707	254 00 0 00 032712 		JRST	CMPPF3
  3284
  3285					; **************************************************
  3286	032710	123 10 0 00 400777 	CMPPC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
  3287	032711	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3288					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 64
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0118

  3289
  3290					; **************************************************
  3291					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
  3292					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
  3293					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
  3294					;INSTRUCTION AND TO HERE.
  3295					; **************************************************
  3296
  3297	032712	331 00 0 00 041227 	CMPPF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
  3298	032713	254 00 0 00 032727 		JRST	DOCMP		;YES - OK
  3299
  3300						ERROR	CMPPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
  3301												SALL
  3302	032714	036 13 0 00 040045 
  3303	032715	035 00 0 00 032622 		ERLOOP	CMPPF0		;IF ERROR, LOOP TO CMPPF0
  3304	032716	254 00 0 00 032734 		JRST	CMPNXT		;GO DO THE NEXT CASE
  3305
  3306	032717	336 00 0 00 041227 	CMPPFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
  3307	032720	254 00 0 00 032724 		JRST	CMPPF9	;YES, CHECK INTERMEDIATE RESULTS
  3308
  3309						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
  3310												SALL
  3311	032721	036 13 0 00 040057 
  3312	032722	035 02 0 00 032622 		ERLP2	CMPPF0
  3313	032723	254 00 0 00 032734 		JRST	CMPNXT
  3314
  3315	032724				CMPPF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
  3316												SALL
  3317	032724	036 13 0 00 040071 
  3318	032725	035 02 0 00 032622 		ERLP2	CMPPF0
  3319	032726	254 00 0 00 032734 		JRST	CMPNXT
  3320
  3321					; **************************************************
  3322	032727	260 17 0 00 033505 	DOCMP:	GO	CMPSIM		;SIMULATE THE INSTRUCTION
  3323	032730	476 00 0 00 041233 		SETOM	SKPWD1		;NOTE A SKIP RETURN
  3324					; **************************************************
  3325
  3326	032731	260 17 0 00 035220 		GO	COMAC		;COMPARE THE FINAL RESULTS
  3327						ERROR	CMPPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
  3328												SALL
  3329	032732	036 13 0 00 040100 
  3330	032733	035 00 0 00 032622 		ERLOOP	CMPPF0		;IF ERROR, LOOP TO CMPPF0
  3331	032734	201 00 0 00 000005 	CMPNXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
  3332	032735	272 00 0 00 000004 		ADDM	AC0,AC4
  3333	032736	271 00 0 00 000001 		ADDI	AC0,1
  3334	032737	272 00 0 00 000003 		ADDM	AC0,AC3
  3335
  3336	032740	341 02 0 00 032646 		AOJL	AC2,CMPPF1	;DO THE NEXT PF CASE
  3337
  3338	032741	253 01 0 00 032622 		AOBJN	AC1,CMPPF0	;DO THE NEXT INSTRUCTION
  3339	032742	402 00 0 00 041220 		SETZM	OFFSET
  3340														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 65
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0119

  3341
  3342					; **********************************************************************
  3343					;*PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS
  3344					; **********************************************************************
  3345														SALL
  3346			040103		T=	SIXBTZ	<PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS>
  3347
  3348						PFMAC(-4,-7,PFRES1,PFBLK1,MOV,SETRAN)
  3349
  3350	032743	201 00 0 00 032743 	MOVST:	MOVEI	.
  3351	032744	202 00 0 00 030051 		MOVEM	TESTPC
  3352
  3353	032745	476 00 0 00 041220 		SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
  3354
  3355	032746	515 01 0 00 777774 		HRLZI	AC1,-4		;AC1/-# MOV INSTR,,0
  3356	032747	541 01 0 00 035566 		HRRI	AC1,MOVTAB	;AC1/-# MOV INSTR,,OPCODE TABLE ADDR
  3357
  3358	032750	402 00 0 00 035625 		SETZM	E0
  3359	032751	402 00 0 00 035626 		SETZM	E0+1
  3360
  3361	032752	571 02 0 00 777771 	MOVPF0:	HRREI	AC2,-7		;AC2/-# PAGE FAIL CASES
  3362
  3363	032753	200 00 0 01 000000 		MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
  3364	032754	306 00 0 00 000017 		CAIN	AC0,017
  3365	032755	275 02 0 00 000001 		SUBI	AC2,1
  3366
  3367	032756	302 00 0 00 000004 		CAIE	AC0,004		;EDIT INSTRUCTION?
  3368	032757	254 00 0 00 032766 		JRST	MOVPFA
  3369
  3370	032760	200 00 0 00 036524 		MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
  3371	032761	202 00 0 00 036307 		MOVEM	AC0,PATTBL
  3372	032762	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3373	032763	251 00 0 00 036317 		BLT	AC0,PATTBL+^D8
  3374
  3375	032764	200 00 0 00 036522 		MOVE	AC0,STOPWD
  3376	032765	202 00 0 00 036320 		MOVEM	AC0,PATTBL+^D9
  3377
  3378	032766	201 03 0 00 036525 	MOVPFA:	MOVEI	AC3,PFBLK1	;INITIAL AC BLOCK TABLE
  3379	032767	201 04 0 00 036707 		MOVEI	AC4,PFRES1	;ADDR OF INTERMEDIATE RESULT TABLE
  3380
  3381	032770	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3382	032771	402 00 0 00 041234 		SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 66
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0120

  3383
  3384					; **************************************************
  3385					;SET UP THE SOURCE AND DESTINATION STRINGS
  3386					; **************************************************
  3387
  3388	032772	260 17 0 00 035347 		GO	CLRSTR
  3389
  3390	032773	402 00 0 00 075750 		SETZM	75750		;CLEAR THE FAIL STRING AREA
  3391	032774	200 00 0 00 040033 		MOVE	AC0,[75750,,75751]
  3392	032775	251 00 0 00 076100 		BLT	AC0,76100
  3393
  3394	032776	260 17 0 00 035270 	MOVPF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
  3395
  3396	032777	200 00 0 01 000000 		MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
  3397	033000	202 00 0 00 041216 		MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
  3398
  3399	033001	260 17 0 00 035237 		GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
  3400
  3401	033002	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3402	033003	137 00 0 00 040034 		DPB	AC0,[POINT 9,400777,8] ;YES
  3403
  3404	033004	336 00 0 00 041213 		SKIPN	FILLF
  3405	033005	137 00 0 00 036261 		DPB	AC0,E0OP	;NO
  3406
  3407	033006	336 00 0 00 041236 		SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
  3408	033007	254 00 0 00 033017 		JRST	MOVPC		;NO
  3409
  3410	033010	201 00 0 00 035711 		MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
  3411	033011	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3412	033012	542 00 0 00 400777 		HRRM	AC0,400777	;YES
  3413	033013	542 00 0 00 035625 		HRRM	AC0,E0		;NO
  3414
  3415	033014	200 00 0 00 037574 		MOVE	AC0,[1,,1]
  3416	033015	260 17 0 00 031436 		GO	SETRAN		;SETUP THE TRANSLATION TABLE
  3417	033016	434 10 0 00 035775 		OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 67
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0121

  3418
  3419	033017	200 00 0 00 037547 	MOVPC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
  3420	033020	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  3421
  3422	033021	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3423	033022	200 00 0 00 040113 		MOVE	AC0,[0,,MOVPC2] ;YES
  3424	033023	336 00 0 00 041213 		SKIPN	FILLF
  3425	033024	200 00 0 00 040114 		MOVE	AC0,[0,,MOVPC1] ;NO
  3426	033025	202 00 0 00 041212 		MOVEM	FAILOC#		;STORE IT
  3427
  3428	033026	476 00 0 00 041227 		SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
  3429	033027	402 00 0 00 041225 		SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
  3430
  3431	033030	201 00 0 00 033047 		MOVEI	MOVPFX
  3432	033031	202 00 0 00 041226 		MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
  3433
  3434	033032	260 17 0 00 035257 		GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
  3435
  3436	033033	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3437	033034	254 00 0 00 033040 		JRST	MOVPC2		;YES
  3438
  3439					; **************************************************
  3440	033035	123 10 0 00 035625 	MOVPC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3441	033036	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3442					; **************************************************
  3443
  3444	033037	254 00 0 00 033042 		JRST	MOVPF3
  3445
  3446					; **************************************************
  3447	033040	123 10 0 00 400777 	MOVPC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
  3448	033041	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3449					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 68
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0122

  3450
  3451					; **************************************************
  3452					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
  3453					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
  3454					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
  3455					;INSTRUCTION AND TO HERE.
  3456					; **************************************************
  3457
  3458	033042	331 00 0 00 041227 	MOVPF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
  3459	033043	254 00 0 00 033057 		JRST	DOMOV		;YES - OK
  3460
  3461						ERROR	MOVPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
  3462												SALL
  3463	033044	036 13 0 00 040115 
  3464	033045	035 00 0 00 032752 		ERLOOP	MOVPF0		;IF ERROR, LOOP TO MOVPF0
  3465	033046	254 00 0 00 033064 		JRST	MOVNXT		;GO DO THE NEXT CASE
  3466
  3467	033047	336 00 0 00 041227 	MOVPFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
  3468	033050	254 00 0 00 033054 		JRST	MOVPF9	;YES, CHECK INTERMEDIATE RESULTS
  3469
  3470						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
  3471												SALL
  3472	033051	036 13 0 00 040120 
  3473	033052	035 02 0 00 032752 		ERLP2	MOVPF0
  3474	033053	254 00 0 00 033064 		JRST	MOVNXT
  3475
  3476	033054				MOVPF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
  3477												SALL
  3478	033054	036 13 0 00 040123 
  3479	033055	035 02 0 00 032752 		ERLP2	MOVPF0
  3480	033056	254 00 0 00 033064 		JRST	MOVNXT
  3481
  3482					; **************************************************
  3483	033057	260 17 0 00 033561 	DOMOV:	GO	MOVSIM		;SIMULATE THE INSTRUCTION
  3484	033060	476 00 0 00 041233 		SETOM	SKPWD1		;NOTE A SKIP RETURN
  3485					; **************************************************
  3486
  3487	033061	260 17 0 00 035220 		GO	COMAC		;COMPARE THE FINAL RESULTS
  3488						ERROR	MOVPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
  3489												SALL
  3490	033062	036 13 0 00 040126 
  3491	033063	035 00 0 00 032752 		ERLOOP	MOVPF0		;IF ERROR, LOOP TO MOVPF0
  3492	033064	201 00 0 00 000005 	MOVNXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
  3493	033065	272 00 0 00 000004 		ADDM	AC0,AC4
  3494	033066	271 00 0 00 000001 		ADDI	AC0,1
  3495	033067	272 00 0 00 000003 		ADDM	AC0,AC3
  3496
  3497	033070	341 02 0 00 032776 		AOJL	AC2,MOVPF1	;DO THE NEXT PF CASE
  3498
  3499	033071	253 01 0 00 032752 		AOBJN	AC1,MOVPF0	;DO THE NEXT INSTRUCTION
  3500	033072	402 00 0 00 041220 		SETZM	OFFSET
  3501														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 69
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0123

  3502
  3503					; **********************************************************************
  3504					;*PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS
  3505					; **********************************************************************
  3506														SALL
  3507			040131		T=	SIXBTZ	<PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS>
  3508
  3509						PFMAC(-2,-3,PFRES2,PFBLK2,CDB,CDBTN)
  3510
  3511	033073	201 00 0 00 033073 	CDBST:	MOVEI	.
  3512	033074	202 00 0 00 030051 		MOVEM	TESTPC
  3513
  3514	033075	476 00 0 00 041220 		SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
  3515
  3516	033076	515 01 0 00 777776 		HRLZI	AC1,-2		;AC1/-# CDB INSTR,,0
  3517	033077	541 01 0 00 035573 		HRRI	AC1,CDBTAB	;AC1/-# CDB INSTR,,OPCODE TABLE ADDR
  3518
  3519	033100	402 00 0 00 035625 		SETZM	E0
  3520	033101	402 00 0 00 035626 		SETZM	E0+1
  3521
  3522	033102	571 02 0 00 777775 	CDBPF0:	HRREI	AC2,-3		;AC2/-# PAGE FAIL CASES
  3523
  3524	033103	200 00 0 01 000000 		MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
  3525	033104	306 00 0 00 000017 		CAIN	AC0,017
  3526	033105	275 02 0 00 000001 		SUBI	AC2,1
  3527
  3528	033106	302 00 0 00 000004 		CAIE	AC0,004		;EDIT INSTRUCTION?
  3529	033107	254 00 0 00 033116 		JRST	CDBPFA
  3530
  3531	033110	200 00 0 00 036524 		MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
  3532	033111	202 00 0 00 036307 		MOVEM	AC0,PATTBL
  3533	033112	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3534	033113	251 00 0 00 036317 		BLT	AC0,PATTBL+^D8
  3535
  3536	033114	200 00 0 00 036522 		MOVE	AC0,STOPWD
  3537	033115	202 00 0 00 036320 		MOVEM	AC0,PATTBL+^D9
  3538
  3539	033116	201 03 0 00 036605 	CDBPFA:	MOVEI	AC3,PFBLK2	;INITIAL AC BLOCK TABLE
  3540	033117	201 04 0 00 036757 		MOVEI	AC4,PFRES2	;ADDR OF INTERMEDIATE RESULT TABLE
  3541
  3542	033120	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3543	033121	402 00 0 00 041234 		SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 70
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0124

  3544
  3545					; **************************************************
  3546					;SET UP THE SOURCE AND DESTINATION STRINGS
  3547					; **************************************************
  3548
  3549	033122	260 17 0 00 035347 		GO	CLRSTR
  3550
  3551	033123	402 00 0 00 075750 		SETZM	75750		;CLEAR THE FAIL STRING AREA
  3552	033124	200 00 0 00 040033 		MOVE	AC0,[75750,,75751]
  3553	033125	251 00 0 00 076100 		BLT	AC0,76100
  3554
  3555	033126	260 17 0 00 035270 	CDBPF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
  3556
  3557	033127	200 00 0 01 000000 		MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
  3558	033130	202 00 0 00 041216 		MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
  3559
  3560	033131	260 17 0 00 035237 		GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
  3561
  3562	033132	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3563	033133	137 00 0 00 040034 		DPB	AC0,[POINT 9,400777,8] ;YES
  3564
  3565	033134	336 00 0 00 041213 		SKIPN	FILLF
  3566	033135	137 00 0 00 036261 		DPB	AC0,E0OP	;NO
  3567
  3568	033136	336 00 0 00 041236 		SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
  3569	033137	254 00 0 00 033147 		JRST	CDBPC		;NO
  3570
  3571	033140	201 00 0 00 035711 		MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
  3572	033141	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3573	033142	542 00 0 00 400777 		HRRM	AC0,400777	;YES
  3574	033143	542 00 0 00 035625 		HRRM	AC0,E0		;NO
  3575
  3576	033144	200 00 0 00 037574 		MOVE	AC0,[1,,1]
  3577	033145	260 17 0 00 035213 		GO	CDBTN		;SETUP THE TRANSLATION TABLE
  3578	033146	434 10 0 00 035775 		OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 71
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0125

  3579
  3580	033147	200 00 0 00 037547 	CDBPC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
  3581	033150	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  3582
  3583	033151	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3584	033152	200 00 0 00 040140 		MOVE	AC0,[0,,CDBPC2] ;YES
  3585	033153	336 00 0 00 041213 		SKIPN	FILLF
  3586	033154	200 00 0 00 040141 		MOVE	AC0,[0,,CDBPC1] ;NO
  3587	033155	202 00 0 00 041212 		MOVEM	FAILOC#		;STORE IT
  3588
  3589	033156	476 00 0 00 041227 		SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
  3590	033157	402 00 0 00 041225 		SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
  3591
  3592	033160	201 00 0 00 033177 		MOVEI	CDBPFX
  3593	033161	202 00 0 00 041226 		MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
  3594
  3595	033162	260 17 0 00 035257 		GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
  3596
  3597	033163	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3598	033164	254 00 0 00 033170 		JRST	CDBPC2		;YES
  3599
  3600					; **************************************************
  3601	033165	123 10 0 00 035625 	CDBPC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3602	033166	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3603					; **************************************************
  3604
  3605	033167	254 00 0 00 033172 		JRST	CDBPF3
  3606
  3607					; **************************************************
  3608	033170	123 10 0 00 400777 	CDBPC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
  3609	033171	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3610					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 72
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0126

  3611
  3612					; **************************************************
  3613					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
  3614					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
  3615					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
  3616					;INSTRUCTION AND TO HERE.
  3617					; **************************************************
  3618
  3619	033172	331 00 0 00 041227 	CDBPF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
  3620	033173	254 00 0 00 033207 		JRST	DOCDB		;YES - OK
  3621
  3622						ERROR	CDBPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
  3623												SALL
  3624	033174	036 13 0 00 040142 
  3625	033175	035 00 0 00 033102 		ERLOOP	CDBPF0		;IF ERROR, LOOP TO CDBPF0
  3626	033176	254 00 0 00 033214 		JRST	CDBNXT		;GO DO THE NEXT CASE
  3627
  3628	033177	336 00 0 00 041227 	CDBPFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
  3629	033200	254 00 0 00 033204 		JRST	CDBPF9	;YES, CHECK INTERMEDIATE RESULTS
  3630
  3631						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
  3632												SALL
  3633	033201	036 13 0 00 040145 
  3634	033202	035 02 0 00 033102 		ERLP2	CDBPF0
  3635	033203	254 00 0 00 033214 		JRST	CDBNXT
  3636
  3637	033204				CDBPF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
  3638												SALL
  3639	033204	036 13 0 00 040150 
  3640	033205	035 02 0 00 033102 		ERLP2	CDBPF0
  3641	033206	254 00 0 00 033214 		JRST	CDBNXT
  3642
  3643					; **************************************************
  3644	033207	260 17 0 00 033717 	DOCDB:	GO	CDBSIM		;SIMULATE THE INSTRUCTION
  3645	033210	476 00 0 00 041233 		SETOM	SKPWD1		;NOTE A SKIP RETURN
  3646					; **************************************************
  3647
  3648	033211	260 17 0 00 035220 		GO	COMAC		;COMPARE THE FINAL RESULTS
  3649						ERROR	CDBPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
  3650												SALL
  3651	033212	036 13 0 00 040153 
  3652	033213	035 00 0 00 033102 		ERLOOP	CDBPF0		;IF ERROR, LOOP TO CDBPF0
  3653	033214	201 00 0 00 000005 	CDBNXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
  3654	033215	272 00 0 00 000004 		ADDM	AC0,AC4
  3655	033216	271 00 0 00 000001 		ADDI	AC0,1
  3656	033217	272 00 0 00 000003 		ADDM	AC0,AC3
  3657
  3658	033220	341 02 0 00 033126 		AOJL	AC2,CDBPF1	;DO THE NEXT PF CASE
  3659
  3660	033221	253 01 0 00 033102 		AOBJN	AC1,CDBPF0	;DO THE NEXT INSTRUCTION
  3661	033222	402 00 0 00 041220 		SETZM	OFFSET
  3662														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 73
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0127

  3663
  3664					; **********************************************************************
  3665					;*PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS
  3666					; **********************************************************************
  3667														SALL
  3668			040156		T=	SIXBTZ	<PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS>
  3669
  3670						PFMAC(-1,-2,PFRES3,PFBLK3,CBD,CBDTRN)
  3671
  3672	033223	201 00 0 00 033223 	CBDST:	MOVEI	.
  3673	033224	202 00 0 00 030051 		MOVEM	TESTPC
  3674
  3675	033225	476 00 0 00 041220 		SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
  3676
  3677	033226	515 01 0 00 777777 		HRLZI	AC1,-1		;AC1/-# CBD INSTR,,0
  3678	033227	541 01 0 00 035575 		HRRI	AC1,CBDTAB	;AC1/-# CBD INSTR,,OPCODE TABLE ADDR
  3679
  3680	033230	402 00 0 00 035625 		SETZM	E0
  3681	033231	402 00 0 00 035626 		SETZM	E0+1
  3682
  3683	033232	571 02 0 00 777776 	CBDPF0:	HRREI	AC2,-2		;AC2/-# PAGE FAIL CASES
  3684
  3685	033233	200 00 0 01 000000 		MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
  3686	033234	306 00 0 00 000017 		CAIN	AC0,017
  3687	033235	275 02 0 00 000001 		SUBI	AC2,1
  3688
  3689	033236	302 00 0 00 000004 		CAIE	AC0,004		;EDIT INSTRUCTION?
  3690	033237	254 00 0 00 033246 		JRST	CBDPFA
  3691
  3692	033240	200 00 0 00 036524 		MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
  3693	033241	202 00 0 00 036307 		MOVEM	AC0,PATTBL
  3694	033242	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3695	033243	251 00 0 00 036317 		BLT	AC0,PATTBL+^D8
  3696
  3697	033244	200 00 0 00 036522 		MOVE	AC0,STOPWD
  3698	033245	202 00 0 00 036320 		MOVEM	AC0,PATTBL+^D9
  3699
  3700	033246	201 03 0 00 036627 	CBDPFA:	MOVEI	AC3,PFBLK3	;INITIAL AC BLOCK TABLE
  3701	033247	201 04 0 00 036776 		MOVEI	AC4,PFRES3	;ADDR OF INTERMEDIATE RESULT TABLE
  3702
  3703	033250	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3704	033251	402 00 0 00 041234 		SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 74
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0128

  3705
  3706					; **************************************************
  3707					;SET UP THE SOURCE AND DESTINATION STRINGS
  3708					; **************************************************
  3709
  3710	033252	260 17 0 00 035347 		GO	CLRSTR
  3711
  3712	033253	402 00 0 00 075750 		SETZM	75750		;CLEAR THE FAIL STRING AREA
  3713	033254	200 00 0 00 040033 		MOVE	AC0,[75750,,75751]
  3714	033255	251 00 0 00 076100 		BLT	AC0,76100
  3715
  3716	033256	260 17 0 00 035270 	CBDPF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
  3717
  3718	033257	200 00 0 01 000000 		MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
  3719	033260	202 00 0 00 041216 		MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
  3720
  3721	033261	260 17 0 00 035237 		GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
  3722
  3723	033262	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3724	033263	137 00 0 00 040034 		DPB	AC0,[POINT 9,400777,8] ;YES
  3725
  3726	033264	336 00 0 00 041213 		SKIPN	FILLF
  3727	033265	137 00 0 00 036261 		DPB	AC0,E0OP	;NO
  3728
  3729	033266	336 00 0 00 041236 		SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
  3730	033267	254 00 0 00 033277 		JRST	CBDPC		;NO
  3731
  3732	033270	201 00 0 00 035711 		MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
  3733	033271	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3734	033272	542 00 0 00 400777 		HRRM	AC0,400777	;YES
  3735	033273	542 00 0 00 035625 		HRRM	AC0,E0		;NO
  3736
  3737	033274	200 00 0 00 037574 		MOVE	AC0,[1,,1]
  3738	033275	260 17 0 00 035215 		GO	CBDTRN		;SETUP THE TRANSLATION TABLE
  3739	033276	434 10 0 00 035775 		OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 75
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0129

  3740
  3741	033277	200 00 0 00 037547 	CBDPC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
  3742	033300	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  3743
  3744	033301	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3745	033302	200 00 0 00 040165 		MOVE	AC0,[0,,CBDPC2] ;YES
  3746	033303	336 00 0 00 041213 		SKIPN	FILLF
  3747	033304	200 00 0 00 040166 		MOVE	AC0,[0,,CBDPC1] ;NO
  3748	033305	202 00 0 00 041212 		MOVEM	FAILOC#		;STORE IT
  3749
  3750	033306	476 00 0 00 041227 		SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
  3751	033307	402 00 0 00 041225 		SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
  3752
  3753	033310	201 00 0 00 033327 		MOVEI	CBDPFX
  3754	033311	202 00 0 00 041226 		MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
  3755
  3756	033312	260 17 0 00 035257 		GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
  3757
  3758	033313	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3759	033314	254 00 0 00 033320 		JRST	CBDPC2		;YES
  3760
  3761					; **************************************************
  3762	033315	123 10 0 00 035625 	CBDPC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3763	033316	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3764					; **************************************************
  3765
  3766	033317	254 00 0 00 033322 		JRST	CBDPF3
  3767
  3768					; **************************************************
  3769	033320	123 10 0 00 400777 	CBDPC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
  3770	033321	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3771					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 76
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0130

  3772
  3773					; **************************************************
  3774					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
  3775					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
  3776					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
  3777					;INSTRUCTION AND TO HERE.
  3778					; **************************************************
  3779
  3780	033322	331 00 0 00 041227 	CBDPF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
  3781	033323	254 00 0 00 033337 		JRST	DOCBD		;YES - OK
  3782
  3783						ERROR	CBDPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
  3784												SALL
  3785	033324	036 13 0 00 040167 
  3786	033325	035 00 0 00 033232 		ERLOOP	CBDPF0		;IF ERROR, LOOP TO CBDPF0
  3787	033326	254 00 0 00 033344 		JRST	CBDNXT		;GO DO THE NEXT CASE
  3788
  3789	033327	336 00 0 00 041227 	CBDPFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
  3790	033330	254 00 0 00 033334 		JRST	CBDPF9	;YES, CHECK INTERMEDIATE RESULTS
  3791
  3792						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
  3793												SALL
  3794	033331	036 13 0 00 040172 
  3795	033332	035 02 0 00 033232 		ERLP2	CBDPF0
  3796	033333	254 00 0 00 033344 		JRST	CBDNXT
  3797
  3798	033334				CBDPF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
  3799												SALL
  3800	033334	036 13 0 00 040175 
  3801	033335	035 02 0 00 033232 		ERLP2	CBDPF0
  3802	033336	254 00 0 00 033344 		JRST	CBDNXT
  3803
  3804					; **************************************************
  3805	033337	260 17 0 00 034016 	DOCBD:	GO	CBDSIM		;SIMULATE THE INSTRUCTION
  3806	033340	476 00 0 00 041233 		SETOM	SKPWD1		;NOTE A SKIP RETURN
  3807					; **************************************************
  3808
  3809	033341	260 17 0 00 035220 		GO	COMAC		;COMPARE THE FINAL RESULTS
  3810						ERROR	CBDPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
  3811												SALL
  3812	033342	036 13 0 00 040200 
  3813	033343	035 00 0 00 033232 		ERLOOP	CBDPF0		;IF ERROR, LOOP TO CBDPF0
  3814	033344	201 00 0 00 000005 	CBDNXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
  3815	033345	272 00 0 00 000004 		ADDM	AC0,AC4
  3816	033346	271 00 0 00 000001 		ADDI	AC0,1
  3817	033347	272 00 0 00 000003 		ADDM	AC0,AC3
  3818
  3819	033350	341 02 0 00 033256 		AOJL	AC2,CBDPF1	;DO THE NEXT PF CASE
  3820
  3821	033351	253 01 0 00 033232 		AOBJN	AC1,CBDPF0	;DO THE NEXT INSTRUCTION
  3822	033352	402 00 0 00 041220 		SETZM	OFFSET
  3823														SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 77
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0131

  3824
  3825					; **********************************************************************
  3826					;*PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS
  3827					; **********************************************************************
  3828														SALL
  3829			040203		T=	SIXBTZ	<PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS>
  3830
  3831						PFMAC(-1,-6,PFRES4,PFBLK4,EDT,SETRAN)
  3832
  3833	033353	201 00 0 00 033353 	EDTST:	MOVEI	.
  3834	033354	202 00 0 00 030051 		MOVEM	TESTPC
  3835
  3836	033355	476 00 0 00 041220 		SETOM	OFFSET		;NO DESTIN STRING OFFSET IN SIMULATORS
  3837
  3838	033356	515 01 0 00 777777 		HRLZI	AC1,-1		;AC1/-# EDT INSTR,,0
  3839	033357	541 01 0 00 035572 		HRRI	AC1,EDTTAB	;AC1/-# EDT INSTR,,OPCODE TABLE ADDR
  3840
  3841	033360	402 00 0 00 035625 		SETZM	E0
  3842	033361	402 00 0 00 035626 		SETZM	E0+1
  3843
  3844	033362	571 02 0 00 777772 	EDTPF0:	HRREI	AC2,-6		;AC2/-# PAGE FAIL CASES
  3845
  3846	033363	200 00 0 01 000000 		MOVE	AC0,(AC1)	;EXTRA CASE FOR MOVSRJ
  3847	033364	306 00 0 00 000017 		CAIN	AC0,017
  3848	033365	275 02 0 00 000001 		SUBI	AC2,1
  3849
  3850	033366	302 00 0 00 000004 		CAIE	AC0,004		;EDIT INSTRUCTION?
  3851	033367	254 00 0 00 033376 		JRST	EDTPFA
  3852
  3853	033370	200 00 0 00 036524 		MOVE	AC0,SELWD	;YES - SET UP THE PATTERN TABLE
  3854	033371	202 00 0 00 036307 		MOVEM	AC0,PATTBL
  3855	033372	200 00 0 00 037642 		MOVE	AC0,[PATTBL,,PATTBL+1]
  3856	033373	251 00 0 00 036317 		BLT	AC0,PATTBL+^D8
  3857
  3858	033374	200 00 0 00 036522 		MOVE	AC0,STOPWD
  3859	033375	202 00 0 00 036320 		MOVEM	AC0,PATTBL+^D9
  3860
  3861	033376	201 03 0 00 036643 	EDTPFA:	MOVEI	AC3,PFBLK4	;INITIAL AC BLOCK TABLE
  3862	033377	201 04 0 00 037010 		MOVEI	AC4,PFRES4	;ADDR OF INTERMEDIATE RESULT TABLE
  3863
  3864	033400	402 00 0 00 041233 		SETZM	SKPWD1		;CLEAR SKIP INDICATOR WORDS
  3865	033401	402 00 0 00 041234 		SETZM	SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 78
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0132

  3866
  3867					; **************************************************
  3868					;SET UP THE SOURCE AND DESTINATION STRINGS
  3869					; **************************************************
  3870
  3871	033402	260 17 0 00 035347 		GO	CLRSTR
  3872
  3873	033403	402 00 0 00 075750 		SETZM	75750		;CLEAR THE FAIL STRING AREA
  3874	033404	200 00 0 00 040033 		MOVE	AC0,[75750,,75751]
  3875	033405	251 00 0 00 076100 		BLT	AC0,76100
  3876
  3877	033406	260 17 0 00 035270 	EDTPF1:	GO	PFACB		;SET UP THE INITIAL AC BLOCK
  3878
  3879	033407	200 00 0 01 000000 		MOVE	AC0,(AC1)	;RETRIEVE INSTRUCTION OPCODE
  3880	033410	202 00 0 00 041216 		MOVEM	AC0,INSTR#	;SAVE FOR ERROR PRINTING
  3881
  3882	033411	260 17 0 00 035237 		GO	CHKTRN		;SET TRANFG IF TRANLATE INSTRUCTION
  3883
  3884	033412	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3885	033413	137 00 0 00 040034 		DPB	AC0,[POINT 9,400777,8] ;YES
  3886
  3887	033414	336 00 0 00 041213 		SKIPN	FILLF
  3888	033415	137 00 0 00 036261 		DPB	AC0,E0OP	;NO
  3889
  3890	033416	336 00 0 00 041236 		SKIPN	TRANFG		;IS IT A TRANSLATE TYPE INSTRUCTION?
  3891	033417	254 00 0 00 033427 		JRST	EDTPC		;NO
  3892
  3893	033420	201 00 0 00 035711 		MOVEI	AC0,E1		;ADDRESS OF TRANSLATION TABLE
  3894	033421	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3895	033422	542 00 0 00 400777 		HRRM	AC0,400777	;YES
  3896	033423	542 00 0 00 035625 		HRRM	AC0,E0		;NO
  3897
  3898	033424	200 00 0 00 037574 		MOVE	AC0,[1,,1]
  3899	033425	260 17 0 00 031436 		GO	SETRAN		;SETUP THE TRANSLATION TABLE
  3900	033426	434 10 0 00 035775 		OR	AC,BIT0		;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 79
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0133

  3901
  3902	033427	200 00 0 00 037547 	EDTPC:	MOVE	AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
  3903	033430	251 00 0 00 036027 		BLT	AC0,ORIGSV+4
  3904
  3905	033431	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3906	033432	200 00 0 00 040213 		MOVE	AC0,[0,,EDTPC2] ;YES
  3907	033433	336 00 0 00 041213 		SKIPN	FILLF
  3908	033434	200 00 0 00 040214 		MOVE	AC0,[0,,EDTPC1] ;NO
  3909	033435	202 00 0 00 041212 		MOVEM	FAILOC#		;STORE IT
  3910
  3911	033436	476 00 0 00 041227 		SETOM	PFTRAP#		;INDICATE THAT TRAP IS EXPECTED
  3912	033437	402 00 0 00 041225 		SETZM	PFERR#		;CLEAR PAGE FAIL ERROR FLAG
  3913
  3914	033440	201 00 0 00 033457 		MOVEI	EDTPFX
  3915	033441	202 00 0 00 041226 		MOVEM	PFHEPC		;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
  3916
  3917	033442	260 17 0 00 035257 		GO	PAGSET		;CLEAR AND SETUP THE PAGE MAP
  3918
  3919	033443	332 00 0 00 041213 		SKIPE	FILLF		;FILLER FAILURE CASE?
  3920	033444	254 00 0 00 033450 		JRST	EDTPC2		;YES
  3921
  3922					; **************************************************
  3923	033445	123 10 0 00 035625 	EDTPC1:	EXTEND	AC,E0		;EXECUTE THE INSTRUCTION FOR REAL
  3924	033446	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3925					; **************************************************
  3926
  3927	033447	254 00 0 00 033452 		JRST	EDTPF3
  3928
  3929					; **************************************************
  3930	033450	123 10 0 00 400777 	EDTPC2:	EXTEND AC,400777 	;MAKE E0+1 FAIL
  3931	033451	476 00 0 00 041234 		SETOM	SKPWD2		;NOTE SKIP RETURN
  3932					; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 80
DFKCCM	MAC	 8-Jan-87 15:04		PAGE FAIL TESTING                                                                  SEQ 0134

  3933
  3934					; **************************************************
  3935					;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
  3936					;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
  3937					;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
  3938					;INSTRUCTION AND TO HERE.
  3939					; **************************************************
  3940
  3941	033452	331 00 0 00 041227 	EDTPF3:	SKIPL	PFTRAP		;DID THE PAGE FAIL OCCUR?
  3942	033453	254 00 0 00 033467 		JRST	DOEDT		;YES - OK
  3943
  3944						ERROR	EDTPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
  3945												SALL
  3946	033454	036 13 0 00 040215 
  3947	033455	035 00 0 00 033362 		ERLOOP	EDTPF0		;IF ERROR, LOOP TO EDTPF0
  3948	033456	254 00 0 00 033474 		JRST	EDTNXT		;GO DO THE NEXT CASE
  3949
  3950	033457	336 00 0 00 041227 	EDTPFX:	SKIPN	PFTRAP		;PAGE FAIL ONCE ONLY ?
  3951	033460	254 00 0 00 033464 		JRST	EDTPF9	;YES, CHECK INTERMEDIATE RESULTS
  3952
  3953						ERROR1	13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
  3954												SALL
  3955	033461	036 13 0 00 040220 
  3956	033462	035 02 0 00 033362 		ERLP2	EDTPF0
  3957	033463	254 00 0 00 033474 		JRST	EDTNXT
  3958
  3959	033464				EDTPF9:	ERROR1	13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
  3960												SALL
  3961	033464	036 13 0 00 040223 
  3962	033465	035 02 0 00 033362 		ERLP2	EDTPF0
  3963	033466	254 00 0 00 033474 		JRST	EDTNXT
  3964
  3965					; **************************************************
  3966	033467	260 17 0 00 034155 	DOEDT:	GO	EDTSIM		;SIMULATE THE INSTRUCTION
  3967	033470	476 00 0 00 041233 		SETOM	SKPWD1		;NOTE A SKIP RETURN
  3968					; **************************************************
  3969
  3970	033471	260 17 0 00 035220 		GO	COMAC		;COMPARE THE FINAL RESULTS
  3971						ERROR	EDTPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
  3972												SALL
  3973	033472	036 13 0 00 040226 
  3974	033473	035 00 0 00 033362 		ERLOOP	EDTPF0		;IF ERROR, LOOP TO EDTPF0
  3975	033474	201 00 0 00 000005 	EDTNXT:	MOVEI	AC0,5		;UPDATE THE CASE AND RESULT BLOCK POINTERS
  3976	033475	272 00 0 00 000004 		ADDM	AC0,AC4
  3977	033476	271 00 0 00 000001 		ADDI	AC0,1
  3978	033477	272 00 0 00 000003 		ADDM	AC0,AC3
  3979
  3980	033500	341 02 0 00 033406 		AOJL	AC2,EDTPF1	;DO THE NEXT PF CASE
  3981
  3982	033501	253 01 0 00 033362 		AOBJN	AC1,EDTPF0	;DO THE NEXT INSTRUCTION
  3983	033502	402 00 0 00 041220 		SETZM	OFFSET
  3984														SALL
  3985	033503	367 15 0 00 032613 		REPTLP	CMPST
  3986	033504	254 00 0 00 030057 		JRST	BEGEND		;END OF PROGRAM
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 81
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0135

  3987					SUBTTL	INSTRUCTION SIMULATORS
  3988
  3989					; **********************************************************************
  3990					;*INSTRUCTION SIMULATORS -- GENERAL INFORMATION
  3991					;*
  3992					;*	EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH
  3993					;*	THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO
  3994					;*	AC'S 10-14.
  3995					;*
  3996					;*	THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED
  3997					;*	IS CONTAINED IN THE E0 WORD (BITS 0,8).
  3998					;*
  3999					;*	FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING
  4000					;*	THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF
  4001					;*	"DESTIN" TO MAKE ERROR COMPARISON POSSIBLE.
  4002					;*
  4003					;*	THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE
  4004					;*	LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE.
  4005					;*
  4006					;*	RETURN IS +1 ALWAYS.
  4007					;*
  4008					;*	CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
  4009					;*	MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
  4010					;*	CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
  4011					;*	CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
  4012					;*	EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
  4013					; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 82
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0136

  4014
  4015					; **********************************************************************
  4016					;*CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
  4017					;*
  4018					;*	THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED
  4019					;*	USING 3 FLAGS AND A SKIP TABLE, SKPTAB.
  4020					;*
  4021					;*	WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO
  4022					;*	STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3.
  4023					;*
  4024					;*	SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE
  4025					;*	INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT
  4026					;*	SKPTAB WORD.
  4027					;*
  4028					;*	IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR
  4029					;*	HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED.
  4030					; **********************************************************************
  4031
  4032	033505	260 17 0 00 035307 	CMPSIM:	GO	SVAC		;SAVE ACCUMULATORS
  4033
  4034	033506	135 01 0 00 036261 		LDB	OP1,E0OP	;COPY OF CURRENT OPCODE
  4035
  4036	033507	200 00 0 00 040231 		MOVE	AC0,[ORIGSV,,AC] ;RETRIEVE ORIGINAL AC BLOCK
  4037	033510	251 00 0 00 000014 		BLT	AC0,AC+4
  4038
  4039	033511	402 00 0 00 000003 		SETZM	AC3		;CLEAR SKIP TABLE COMPARE WORD
  4040
  4041	033512	375 00 0 00 000010 	CMPS1:	SOSGE	SLEN
  4042	033513	334 07 0 00 035626 		SKIPA	AC7,E0+1	;IF SOURCE EXHAUSTED, GET FILLER
  4043	033514	134 07 0 00 000011 		ILDB	AC7,SP		;SOURCE REMAINS, GET BYTE
  4044
  4045	033515	375 00 0 00 000013 		SOSGE	DLEN		;DO THE SAME WITH DESTINATION STRING
  4046	033516	334 02 0 00 035627 		SKIPA	AC2,E0+2
  4047	033517	134 02 0 00 000014 		ILDB	AC2,DP
  4048
  4049	033520	325 10 0 00 033522 		JUMPGE	SLEN,CMPS2	;GO COMPARE BYTES
  4050	033521	321 13 0 00 033545 		JUMPL	DLEN,CMPDON	;BOTH STRING ARE EQUAL
  4051
  4052	033522	554 04 0 00 000007 	CMPS2:	HLRZ	AC4,AC7		;GET THE LEFT HALF OF SOURCE AND DESTIN
  4053	033523	554 05 0 00 000002 		HLRZ	AC5,AC2
  4054
  4055	033524	316 04 0 00 000005 		CAMN	AC4,AC5		;COMPARE SOURCE AND DESTINATION BYTES
  4056	033525	254 00 0 00 033534 		JRST	CMPS3		;EQUAL - GET RIGHT HALF
  4057
  4058	033526	317 04 0 00 000005 		CAMG	AC4,AC5
  4059	033527	435 03 0 00 000001 		ORI	AC3,LF
  4060
  4061	033530	311 04 0 00 000005 		CAML	AC4,AC5
  4062	033531	435 03 0 00 000004 		ORI	AC3,GF		;SET SOURCE > DESTIN FLAG
  4063
  4064	033532	332 00 0 00 000003 		SKIPE	AC3
  4065	033533	254 00 0 00 033546 		JRST	CMPOUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 83
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0137

  4066
  4067	033534	550 04 0 00 000007 	CMPS3:	HRRZ	AC4,AC7
  4068	033535	550 05 0 00 000002 		HRRZ	AC5,AC2
  4069
  4070	033536	316 04 0 00 000005 		CAMN	AC4,AC5
  4071	033537	254 00 0 00 033512 		JRST	CMPS1		;EQUAL - GET NEXT BYTES
  4072
  4073	033540	317 04 0 00 000005 		CAMG	AC4,AC5		;BYTES ARE NOT EQUAL
  4074	033541	435 03 0 00 000001 		ORI	AC3,LF		;SET SOURCE < DESTIN FLAG
  4075
  4076	033542	311 04 0 00 000005 		CAML	AC4,AC5
  4077	033543	435 03 0 00 000004 		ORI	AC3,GF		;SET SOURCE > DESTIN FLAG
  4078
  4079	033544	254 00 0 00 033546 		JRST CMPOUT		;NOW EXIT
  4080
  4081	033545	435 03 0 00 000002 	CMPDON:	ORI	AC3,EF		;SET SOURCE = DESTIN FLAG
  4082
  4083	033546	404 03 0 01 036265 	CMPOUT:	AND	AC3,SKPTAB(OP1) ;IF RESULT OF AND = 0 THEN NON-SKIP RTN
  4084	033547	332 00 0 00 000003 		SKIPE	AC3
  4085	033550	350 00 0 17 000000 		AOS	(P)
  4086
  4087	033551	335 00 0 00 000010 		SKIPGE	SLEN		;CLEANUP IF EITHER LENGTH HAS GONE NEGATIVE
  4088	033552	402 00 0 00 000010 		SETZM	SLEN
  4089	033553	335 00 0 00 000013 		SKIPGE	DLEN
  4090	033554	402 00 0 00 000013 		SETZM	DLEN
  4091
  4092	033555	200 00 0 00 040232 		MOVE	AC0,[SLEN,,RESSV] ;SAVE THE END RESULT
  4093
  4094	033556	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4095	033557	260 17 0 00 035327 		GO	RSTAC		;RESTORE THE ACCUMULATORS
  4096
  4097	033560	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 84
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0138

  4098
  4099					; **********************************************************************
  4100					;*MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
  4101					; **********************************************************************
  4102
  4103	033561	260 17 0 00 035307 	MOVSIM:	GO	SVAC		;SAVE ACCUMULATORS
  4104
  4105	033562	135 01 0 00 036261 		LDB	OP1,E0OP	;COPY OF CURRENT OPCODE
  4106
  4107	033563	200 00 0 00 040231 		MOVE	AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
  4108	033564	251 00 0 00 000014 		BLT	AC0,AC+4
  4109
  4110	033565	510 06 0 00 000010 		HLLZ	AC6,AC		;SEPERATE THE FLAGS AND LENGTH
  4111	033566	550 10 0 00 000010 		HRRZ	AC,AC
  4112
  4113	033567	336 00 0 00 041220 		SKIPN	OFFSET		;DON'T OFFSET DESTIN STRING IF PFTST
  4114	033570	541 14 0 00 036161 		HRRI	DP,SIMDES	;PUT SIMULATED DESTIN STRING ELSEWHERE
  4115
  4116	033571	332 00 0 00 000013 		SKIPE	DLEN		;IF DESTIN LEN = 0 THEN SIMPLE RETURN
  4117	033572	254 00 0 00 033576 		JRST	MOVS1A		;NO
  4118
  4119	033573	336 00 0 00 000010 		SKIPN	SLEN		;IS THE SOURCE LENGTH 0 TOO?
  4120	033574	254 00 0 00 033675 		JRST	SETSKP		;YES - DO A SKIP RETURN
  4121	033575	254 00 0 00 033705 		JRST	MOVOUT		;NO
  4122
  4123	033576	306 01 0 00 000015 	MOVS1A:	CAIN	OP1,015		;IS INSTRUCTION MOVST?
  4124	033577	254 00 0 00 033644 		JRST	MOVSTS		;YES - JUMP TO THAT CODE
  4125
  4126	033600	306 01 0 00 000014 		CAIN	OP1,014		;IS INSTRUCTION MOVSO?
  4127	033601	254 00 0 00 033624 		JRST	MOVSOS		;YES - JUMP TO THAT CODE
  4128
  4129	033602	403 02 0 00 000005 		SETZB	AC2,AC5		;SET BYTE OFFSET AND OFFSET MASK TO ZERO
  4130
  4131	033603	316 10 0 00 000013 		CAMN	SLEN,DLEN	;ARE THE STRING LENGTHS EQUAL?
  4132	033604	254 00 0 00 033630 		JRST	MOVS3		;YES - DO THE MOVE
  4133
  4134	033605	302 01 0 00 000017 		CAIE	OP1,017		;NO - MOVSRJ INSTRUCTION?
  4135	033606	254 00 0 00 033630 		JRST	MOVS3		;NO - DO THE MOVE
  4136
  4137	033607	200 02 0 00 000010 		MOVE	AC2,SLEN	;FIND DIFFERENCE BETWEEN STRING LENGTHS
  4138	033610	274 02 0 00 000013 		SUB	AC2,DLEN
  4139
  4140	033611	337 00 0 00 000002 		SKIPG	AC2		;SKIP IF DESTINATION SHORTER
  4141	033612	254 00 0 00 033617 		JRST	MOVS2		;SOURCE SHORTER - PUT FILLER IN DESTIN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 85
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0139

  4142
  4143	033613	134 07 0 00 000011 	MOVS1:	ILDB	AC7,SP		;THROW AWAY A SOURCE BYTE
  4144	033614	360 10 0 00 000000 		SOJ	SLEN,
  4145	033615	366 02 0 00 033613 		SOJN	AC2,MOVS1	;WHEN DIFFERENCE IS FILLED IN,
  4146
  4147	033616	254 00 0 00 033630 		JRST	MOVS3		;DO REST OF MOVE
  4148	
  4149	033617	200 07 0 00 035626 	MOVS2:	MOVE	AC7,E0+1	;GET THE FILLER
  4150
  4151	033620	136 07 0 00 000014 	MOVS2A:	IDPB	AC7,DP		;PUT FILLER IN DESTINATION
  4152	033621	360 13 0 00 000000 		SOJ	DLEN,		;DECREMENT DESTIN LENGTH
  4153	033622	346 02 0 00 033620 		AOJN	AC2,MOVS2A	;WHEN DIFFERENCE IS FILLED IN,
  4154
  4155	033623	254 00 0 00 033630 		JRST	MOVS3		;DO REST OF MOVE
  4156
  4157	033624	561 02 0 00 777777 	MOVSOS:	HRROI	AC2,-1		;AC2 IS OFFSET COMPARE WORD
  4158	033625	135 05 0 00 040233 		LDB	AC5,[300600,,DP] ;GET # BITS IN DESTINATION BYTE
  4159	033626	242 02 0 05 000000 		LSH	AC2,(AC5)	;AC2 SHOWS BITS THAT MIGHT BE LOST
  4160	033627	571 05 1 00 035625 		HRREI	AC5,@E0		;AC13 CONTAINS THE BYTE OFFSET
  4161
  4162	033630	375 00 0 00 000013 	MOVS3:	SOSGE	DLEN		;ANY DESTINATION LEFT?
  4163	033631	254 00 0 00 033675 		JRST	SETSKP		;NO
  4164
  4165	033632	375 00 0 00 000010 		SOSGE	SLEN		;ANY SOURCE LEFT
  4166	033633	334 07 0 00 035626 		SKIPA	AC7,E0+1	;NO - GET FILLER
  4167	033634	134 07 0 00 000011 		ILDB	AC7,SP		;YES - GET BYTE
  4168
  4169	033635	335 00 0 00 000010 		SKIPGE	SLEN		;ANY SOURCE LEFT?
  4170	033636	254 00 0 00 033642 		JRST	MOVS4		;NO - JUST DEPOSIT FILLER
  4171
  4172	033637	270 07 0 00 000005 		ADD	AC7,AC5		;ADD BYTE OFFSET TO BYTE
  4173	033640	612 07 0 00 000002 		TDNE	AC7,AC2		;WILL INFORMATION BE LOST?
  4174	033641	254 00 0 00 033704 		JRST	MOVPL		;YES - RETURN PC+1
  4175
  4176	033642	136 07 0 00 000014 	MOVS4:	IDPB	AC7,DP		;DEPOSIT BYTE IN DESTINATION
  4177	033643	254 00 0 00 033630 		JRST	MOVS3		;DO THE NEXT ONE!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 86
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0140

  4178
  4179	033644	361 10 0 00 033665 	MOVSTS:	SOJL	SLEN,MOVST1	;ANY SOURCE LEFT?
  4180
  4181	033645	322 13 0 00 033665 		JUMPE	DLEN,MOVST1	;JUMP IF DESTINATION EXHAUSTED
  4182
  4183	033646	134 07 0 00 000011 		ILDB	AC7,SP		;GET SOURCE BYTE
  4184	033647	241 07 0 00 777777 		ROT	AC7,-1		;SIGN BIT SAYS WHETHER ODD OR EVEN
  4185	033650	335 00 0 00 000007 		SKIPGE	AC7
  4186	033651	334 07 0 07 035711 		SKIPA	AC7,E1(AC7)	;GET TRANSLATION TABLE ENTRY RIGHT
  4187	033652	204 07 0 07 035711 		MOVS	AC7,E1(AC7)	;GET TRANSLATION TABLE ENTRY LEFT
  4188
  4189	033653	602 07 0 00 400000 		TRNE	AC7,400000	;IS THE S FLAG SET?
  4190	033654	661 06 0 00 200000 		TLO	AC6,200000	;YES - TURN ON THE N FLAG
  4191
  4192	033655	135 04 0 00 040234 		LDB	AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
  4193						XCT	[JFCL			  ;0 - NO ACTION
  4194							 JRST  MOVST3		  ;1 - ABORT INSRUCTION
  4195							 TLZ   AC6,100000	  ;2 - CLEAR M FLAG
  4196	033656	256 00 0 04 040235 			 TLO   AC6,100000](AC4)   ;3 - SET M FLAG
  4197
  4198	033657	602 07 0 00 400000 		TRNE	AC7,400000	;NOTE THE START FLAG
  4199	033660	665 06 0 00 400000 		TLOA	AC6,400000	;START SIGNIFICANCE
  4200	033661	325 06 0 00 033644 		JUMPGE	AC6,MOVSTS	;DON'T STORE - TRY NEXT BYTE
  4201
  4202	033662	405 07 0 00 077777 		ANDI	AC7,77777	;CLEAR LEFT HALF AND FLAGS
  4203	033663	136 07 0 00 000014 		IDPB	AC7,DP		;DEPOSIT BYTE IN DESTINATION
  4204	033664	364 13 0 00 033644 		SOJA	DLEN,MOVSTS	;GET NEXT BYTE
  4205
  4206	033665	356 00 0 00 000010 	MOVST1:	AOSN	SLEN		;SOURCE GONE?
  4207	033666	350 00 0 17 000000 		AOS	(P)		;YES - SETUP SKIP RETURN
  4208
  4209	033667	200 07 0 00 035626 		MOVE	AC7,E0+1	;GET THE FILLER BYTE
  4210	033670	361 13 0 00 033673 	MOVST2:	SOJL	DLEN,MOVST3	;JUMP WHEN DESTINATION FINISHED
  4211	033671	136 07 0 00 000014 		IDPB	AC7,DP		;DEPOSIT IT IN THE DESTINATION STRING
  4212	033672	254 00 0 00 033670 		JRST	MOVST2		;DESTINATION LEFT - CONTINUE
  4213
  4214	033673	137 10 0 00 040241 	MOVST3:	DPB	SLEN,[3300,,SLEN] ;DEPOSIT REMAINING SOURCE LENGTH
  4215	033674	254 00 0 00 033705 		JRST	MOVOUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 87
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0141

  4216
  4217	033675	302 01 0 00 000017 	SETSKP:	CAIE	OP1,017		;MOVSRJ INSTRUCTION?
  4218	033676	254 00 0 00 033701 		JRST	SKP1		;NO
  4219
  4220	033677	350 00 0 17 000000 		AOS	(P)		;YES - IT ALWAYS SKIPS
  4221	033700	254 00 0 00 033705 		JRST	MOVOUT
  4222
  4223	033701	337 00 0 00 000010 	SKP1:	SKIPG	SLEN		;IS THERE UNUSED SOURCE BYTES?
  4224	033702	350 00 0 17 000000 		AOS	(P)		;NO - SKIP RETURN
  4225	033703	334 00 0 00 000000 		SKIPA
  4226
  4227	033704	271 13 0 00 000001 	MOVPL:	ADDI	DLEN,1		;ADJUST DESTIN LENGTH
  4228
  4229	033705	335 00 0 00 000010 	MOVOUT:	SKIPGE	SLEN		;RESET ANY NEG LENGTHS TO 0
  4230	033706	402 00 0 00 000010 		SETZM	SLEN
  4231	033707	335 00 0 00 000013 		SKIPGE	DLEN
  4232	033710	402 00 0 00 000013 		SETZM	DLEN
  4233
  4234	033711	332 00 0 00 041236 		SKIPE	TRANFG		;MOVST INSTRUCTION?
  4235	033712	434 10 0 00 000006 		OR	SLEN,AC6	;YES - OR THE TRANSLATE FLAGS WITH SLEN
  4236
  4237	033713	200 00 0 00 040232 		MOVE	AC0,[SLEN,,RESSV] ;SAVE THE FINAL RESULT
  4238	033714	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4239
  4240	033715	260 17 0 00 035327 		GO	RSTAC		;RESTORE ACCUMULATORS
  4241	033716	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 88
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0142

  4242
  4243					; **********************************************************************
  4244					;*CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
  4245					; **********************************************************************
  4246
  4247	033717	260 17 0 00 035307 	CDBSIM:	GO	SVAC		;SAVE ACCUMULATORS
  4248
  4249	033720	135 01 0 00 036261 		LDB	OP1,E0OP	;COPY OF CURRENT OPCODE
  4250
  4251	033721	200 00 0 00 040231 		MOVE	AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
  4252	033722	251 00 0 00 000014 		BLT	AC0,AC+4
  4253
  4254	033723	200 06 0 00 000010 		MOVE	AC6,SLEN
  4255	033724	621 06 0 00 777000 		TLZ	AC6,777000	;AC6/STRING LENGTH WITHOUT FLAGS
  4256	033725	404 10 0 00 040242 		AND	SLEN,[777000,,0] ;SLEN NOW HAS ONLY THE FLAGS
  4257
  4258	033726	302 01 0 00 000010 		CAIE	OP1,010		;CVTDBO INSTRUCTION?
  4259	033727	254 00 0 00 033734 		JRST	CDBS1		;NO - TRANSLATE INSTRUCTION
  4260
  4261	033730	571 05 1 00 035625 		HRREI	AC5,@E0		;GET THE BYTE OFFSET
  4262	033731	621 14 0 00 400000 		TLZ	DBL,(1B0)	;CLEAR THE LOW ORDER SIGN BIT
  4263	033732	667 10 0 00 400000 		TLON	SLEN,400000	;TEST AND SET THE SIGNIFICANCE FLAG
  4264	033733	403 13 0 00 000014 		SETZB	DBH,DBL		;CLEAR HIGH AND LOW ORDER DATA
  4265
  4266	033734	361 06 0 00 033777 	CDBS1:	SOJL	AC6,CDBDON	;JUMP IF ALL BYTES PROCESSED
  4267
  4268	033735	134 07 0 00 000011 		ILDB	AC7,SP		;GET A SOURCE BYTE
  4269	033736	302 01 0 00 000011 		CAIE	OP1,011		;CVTDBO INSTRUCTION?
  4270	033737	254 00 0 00 033756 		JRST	CDBLEG		;YES - GO SEE IF LEGAL DIGIT
  4271
  4272	033740	241 07 0 00 777777 		ROT	AC7,-1		;CVTDBT - ISOLATE ODD,EVEN BIT
  4273	033741	335 00 0 00 000007 		SKIPGE	AC7
  4274	033742	334 07 0 07 035711 		SKIPA	AC7,E1(AC7)	;GET TRANSLATION TABLE ENTRY RIGHT
  4275	033743	204 07 0 07 035711 		MOVS	AC7,E1(AC7)	;GET TRANSLATION TABLE ENTRY LEFT
  4276
  4277	033744	602 07 0 00 400000 		TRNE	AC7,400000	;IS S FLAG SET IN TABLE ENTRY?
  4278	033745	661 10 0 00 200000 		TLO	SLEN,200000	;YES - SET THE N FLAG
  4279
  4280	033746	135 04 0 00 040234 		LDB	AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
  4281						XCT	[JFCL			  ;0 - NO ACTION
  4282							 JRST  CDBOUT		  ;1 - ABORT INSRUCTION
  4283							 TLZ   SLEN,100000	  ;2 - CLEAR M FLAG
  4284	033747	256 00 0 04 040243 			 TLO   SLEN,100000](AC4)  ;3 - SET M FLAG
  4285
  4286	033750	606 07 0 00 400000 		TRNN	AC7,400000	;NOTE THE SIGNIFICANCE FLAG
  4287	033751	325 10 0 00 033734 		JUMPGE	SLEN,CDBS1	;DON'T STORE - GET NEXT BYTE
  4288
  4289	033752	667 10 0 00 400000 		TLON	SLEN,400000	;TEST AND SET SIGNIFICANCE
  4290	033753	403 14 0 00 000013 		SETZB	DBL,DBH		;CLEAR HIGH AND LOW BINARY DATA
  4291
  4292	033754	405 07 0 00 000017 		ANDI	AC7,17		;DISCARD THE HIGH BITS OF TRANS TABLE ENTRY
  4293	033755	334 00 0 00 000000 		SKIPA
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 89
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0143

  4294
  4295	033756	270 07 0 00 000005 	CDBLEG:	ADD	AC7,AC5		;ADD OFFSET IF CVTDBO INSTRUCTION
  4296	033757	321 07 0 00 034002 		JUMPL	AC7,CDBOUT	;TERMINATE INSTR IF BYTE NEGATIVE
  4297
  4298	033760	301 07 0 00 000012 		CAIL	AC7,^D10	;TERMINATE INSTR IF BYTE > DECIMAL 9
  4299	033761	254 00 0 00 034002 		JRST	CDBOUT
  4300
  4301	033762	242 14 0 00 000001 		LSH	DBL,1
  4302	033763	246 13 0 00 000001 		LSHC	DBH,1		;MULTIPLY BY 2
  4303	033764	242 14 0 00 777777 		LSH	DBL,-1
  4304	033765	124 13 0 00 036262 		DMOVEM	DBH,TEMP	;SAVE THE DOUBLE WORD RESULT
  4305
  4306	033766	242 14 0 00 000001 		LSH	DBL,1
  4307	033767	246 13 0 00 000002 		LSHC	DBH,2		;MULTIPLY BY 4
  4308	033770	242 14 0 00 777777 		LSH	DBL,-1
  4309
  4310	033771	270 07 0 00 036263 		ADD	AC7,TEMP+1	;ADD THE PARTIAL PRODUCT
  4311	033772	270 14 0 00 000007 		ADD	DBL,AC7
  4312	033773	270 13 0 00 036262 		ADD	DBH,TEMP
  4313
  4314	033774	623 14 0 00 400000 		TLZE	DBL,400000	;IS THERE A CARRY OUT OF LOW WORD
  4315	033775	340 13 0 00 000000 		AOJ	DBH,		;YES - INCREMENT THE HIGH WORD
  4316
  4317	033776	254 00 0 00 033734 		JRST	CDBS1		;GET THE NEXT BYTE
  4318
  4319	033777	603 10 0 00 100000 	CDBDON:	TLNE	SLEN,100000	;IS THE M FLAG SET?
  4320	034000	121 13 0 00 000013 		DMOVN	DBH,DBH		;YES - NEGATE THE DOUBLE WORD RESULT
  4321	034001	354 00 0 17 000000 		AOSA	(P)		;PROVIDE FOR A SKIP RETURN
  4322
  4323	034002	434 10 0 00 000006 	CDBOUT:	IOR	SLEN,AC6
  4324	034003	621 14 0 00 400000 		TLZ	DBL,(1B0)	;CLEAR COPY OF SIGN BIT
  4325
  4326	034004	603 13 0 00 400000 		TLNE	DBH,(1B0)	;TEST THE SIGN OF THE RESULT
  4327	034005	661 14 0 00 400000 		TLO	DBL,(1B0)	;IT'S NEGATIVE - SET COPY OF SIGN TO 1
  4328
  4329	034006	302 01 0 00 000011 		CAIE	OP1,011		;OFFSET INSTRUCTION?
  4330	034007	254 00 0 00 034012 		JRST	CDBRET		;YES - RETURN
  4331
  4332	034010	607 10 0 00 400000 		TLNN	SLEN,400000	;CVTDBT - IS S FLAG SET?
  4333	034011	403 14 0 00 000013 		SETZB	DBL,DBH		;NO - SET THE ANSWER TO ZERO
  4334
  4335	034012	200 00 0 00 040232 	CDBRET:	MOVE	AC0,[SLEN,,RESSV] ;STORE THE RESULTS
  4336
  4337	034013	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4338	034014	260 17 0 00 035327 		GO	RSTAC		;RESTORE ACCUMULATORS
  4339
  4340	034015	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 90
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0144

  4341
  4342					; **********************************************************************
  4343					;*CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
  4344					;
  4345					;	IN A MACHINE WITH MICROCODE 202 OR EARLIER OR GREATER THAN 230,
  4346					;	THE "N" AND "M" FLAGS ARE SET UP FIRST AND MAY THEREFORE BE
  4347					;	AFFECTED BY AN INSTRUCTION THAT IS ABORTED BECAUSE THE BINARY
  4348					;	INTERGER IS TOO LARGE.
  4349					; **********************************************************************
  4350
  4351	034016	260 17 0 00 035307 	CBDSIM:	GO	SVAC		;SAVE ACCUMULATORS
  4352
  4353	034017	402 00 0 00 041223 		SETZM	OVERR#		;OVERFLOW ERROR FLAG
  4354
  4355	034020	135 01 0 00 036261 		LDB	OP1,E0OP	;COPY OF CURRENT OPCODE
  4356
  4357	034021	200 00 0 00 040231 		MOVE	AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
  4358	034022	251 00 0 00 000014 		BLT	AC0,AC+4
  4359
  4360	034023	336 00 0 00 041220 		SKIPN	OFFSET		;DON'T OFFSET STRING IF PFTST
  4361	034024	541 14 0 00 036161 		HRRI	DP,SIMDES	;PUT SIMULATOR RESULT ELSEWHERE
  4362
  4363	034025	571 00 1 00 035625 		HRREI	AC0,@E0		;GET BYTE OFFSET
  4364	034026	202 00 0 00 041221 		MOVEM	OFS#
  4365
  4366	034027	135 02 0 00 040247 		LDB	AC2,[POINT 9,DLEN,35] ;AC2 HAS DESTIN STRING LENGTH
  4367	034030	621 11 0 00 400000 		TLZ	BDL,(1B0)	;CLEAR THE LOW ORDER SIGN BIT
  4368	034031	306 10 0 00 000000 		CAIN	BDH,0		;IS THE NUMBER = 0?
  4369	034032	302 11 0 00 000000 		CAIE	BDL,0
  4370	034033	661 13 0 00 200000 		TLO	DLEN,200000	;NO - SET THE N (NON-ZERO) FLAG
  4371
  4372	034034	325 10 0 00 034041 		JUMPGE	BDH,CBDS1	;JUMP IF THE NUMBER IS POSITIVE
  4373
  4374	034035	121 10 0 00 000010 		DMOVN	BDH,BDH		;MAKE THE NUMBER POSITIVE
  4375	034036	661 13 0 00 100000 		TLO	DLEN,100000	;BUT REMEMBER THAT IT WAS NEGATIVE
  4376
  4377	034037	603 10 0 00 400000 		TLNE	BDH,(1B0)	;NEGATIVE?
  4378	034040	661 11 0 00 400000 		TLO	BDL,(1B0)	;YES - SET THE LOW ORDER SIGN
  4379
  4380	034041	322 02 0 00 034140 	CBDS1:	JUMPE	AC2,CBDOVF	;ZERO LENGTH MEANS OVERFLOW
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 91
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0145

  4381
  4382	034042	301 10 0 00 000000 		CAIL	BDH,0		;2**70?
  4383	034043	254 00 0 00 034065 		JRST	CBDOST		;NO
  4384
  4385	034044	305 02 0 00 000026 		CAIGE	AC2,^D22	;YES - IS THE LENGTH LONG ENOUGH?
  4386	034045	254 00 0 00 034140 		JRST	CBDOVF		;NO
  4387
  4388	034046	607 13 0 00 400000 		TLNN	DLEN,400000	;SIGNIFICANCE FLAG SET?
  4389	034047	254 00 0 00 034055 		JRST	CBDS3		;NO - NO STORAGE OF LEADING 0'S
  4390
  4391	034050	200 03 0 00 035626 		MOVE	AC3,E0+1	;YES - GET THE FILLER
  4392	034051	306 02 0 00 000026 	CBDS2:	CAIN	AC2,^D22
  4393	034052	254 00 0 00 034055 		JRST	CBDS3
  4394
  4395	034053	136 03 0 00 000014 		IDPB	AC3,DP		;STORE THE FILLER IN DESTINATION STRING
  4396	034054	364 02 0 00 034051 		SOJA	AC2,CBDS2	;GO BACK FOR MORE
  4397
  4398	034055	201 02 0 00 000025 	CBDS3:	MOVEI	AC2,^D21	
  4399	034056	201 03 0 00 000001 		MOVEI	AC3,1
  4400
  4401	034057	306 01 0 00 000012 		CAIN	OP1,012		;CVTBDO INSTRUCTION?
  4402	034060	270 03 0 00 041221 		ADD	AC3,OFS		;ADD OFFSET TO THE NUMBER
  4403
  4404	034061	306 01 0 00 000013 		CAIN	OP1,013		;CVTBDT INSTRUCTION?
  4405	034062	550 03 0 03 035711 		HRRZ	AC3,E1(AC3)	;GET REPRESENTATION OF "1"
  4406
  4407	034063	136 03 0 00 000014 		IDPB	AC3,DP		;STORE FIRST DIGIT OF ANSWER
  4408	034064	120 10 0 00 040250 		DMOVE	BDH,[EXP 47121545107,104130000000]
  4409
  4410	034065	120 03 0 00 000010 	CBDOST:	DMOVE	AC3,BDH
  4411	034066	260 17 0 00 034100 		GO	DECPNT		;OUTPUT DIGITS
  4412
  4413	034067	332 00 0 00 041223 		SKIPE	OVERR		;IS THERE AN OVERFLOW ERROR?
  4414	034070	254 00 0 00 034140 		JRST	CBDOVF		;YES
  4415
  4416	034071	403 10 0 00 000011 	CBDEX:	SETZB	BDH,BDL		;RETURN WITH DATA 0
  4417	034072	404 13 0 00 040242 		AND	DLEN,[777000,,] ;LEAVE LENGTH 0
  4418
  4419	034073	200 00 0 00 040232 		MOVE	AC0,[AC,,RESSV]
  4420	034074	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4421
  4422	034075	260 17 0 00 035327 		GO	RSTAC
  4423	034076	350 00 0 17 000000 		AOS	(P)
  4424	034077	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 92
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0146

  4425
  4426	034100	260 17 0 00 034110 	DECPNT:	GO	DECPN3		;STORE DIGITS
  4427
  4428	034101	607 13 0 00 100000 		TLNN	DLEN,100000	;MINUS FLAG SET?
  4429	034102	254 00 0 00 034107 		JRST	DECPNR
  4430
  4431	034103	306 01 0 00 000012 		CAIN	OP1,012
  4432	034104	254 00 0 00 034107 		JRST	DECPNR
  4433
  4434	034105	514 02 0 06 035711 		HRLZ	AC2,E1(AC6)
  4435	034106	137 02 0 00 000014 		DPB	AC2,DP
  4436
  4437	034107	263 17 0 00 000000 	DECPNR:	RTN
  4438
  4439	034110	200 05 0 00 000004 	DECPN3:	MOVE	AC5,AC4		;SAVE LOW ORDER DIVIDEND
  4440
  4441	034111	231 03 0 00 000012 		IDIVI	AC3,12		;DIVIDE HIGH PART BY 10
  4442	034112	235 04 0 00 000012 		DIVI	AC4,12		;AND LOW PART
  4443
  4444	034113	365 02 0 00 034116 		SOJGE	AC2,DECP4	;IF LENGTH GOES NEG -- OVERFLOW
  4445
  4446	034114	476 00 0 00 041223 		SETOM	OVERR		;INDICATE OVERFLOW ERROR
  4447	034115	254 00 0 00 034137 		JRST	DECPN2		;INITIATE A RETURN
  4448
  4449	034116	261 17 0 00 000005 	DECP4:	PUSH	P,AC5
  4450	034117	326 04 0 00 034127 		JUMPN	AC4,DECPN1
  4451	034120	326 03 0 00 034127 		JUMPN	AC3,DECPN1
  4452	034121	325 13 0 00 034126 		JUMPGE	DLEN,DECLDN	;SFL=0 MEANS DON'T STORE LEADING 0'S
  4453	034122	200 05 0 00 035626 		MOVE	AC5,E0+1
  4454
  4455	034123	322 02 0 00 034126 	DECFIL:	JUMPE	AC2,DECLDN	;NO MORE ROOM
  4456	034124	136 05 0 00 000014 		IDPB	AC5,DP		;STORE A LEADING 0
  4457	034125	364 02 0 00 034123 		SOJA	AC2,DECFIL	;GO BACK FOR MORE
  4458
  4459	034126	304 00 0 00 000000 	DECLDN:	CAIA			;RETRIEVE DIGITS IN CORRECT ORDER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 93
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0147

  4460
  4461	034127	260 17 0 00 034110 	DECPN1:	GO	DECPN3		;GET NEXT DIGIT
  4462	034130	262 17 0 00 000005 		POP	P,AC5
  4463	034131	200 06 0 00 000005 		MOVE	AC6,AC5		;SAVE DIGIT
  4464
  4465	034132	306 01 0 00 000012 		CAIN	OP1,012		;TRANSLATE?
  4466	034133	270 05 0 00 041221 		ADD	AC5,OFS		;NO -OFFSET
  4467
  4468	034134	306 01 0 00 000013 		CAIN	OP1,013
  4469	034135	550 05 0 05 035711 		HRRZ	AC5,E1(AC5)
  4470
  4471	034136	136 05 0 00 000014 		IDPB	AC5,DP		;STORE
  4472	034137	263 17 0 00 000000 	DECPN2:	RTN
  4473
  4474	034140	476 00 0 00 041223 	CBDOVF:	SETOM	OVERR		;INDICATE OVERFLOW
  4475	034141	202 13 0 00 041222 		MOVEM	DLEN,OVDLEN#	;SAVE MODIFIED FLAGS
  4476
  4477	034142	200 00 0 00 040252 		MOVE	AC0,[ORIGSV,,RESSV] ;RETURN WITH ORIGINAL AC'S INTACT
  4478	034143	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4479
  4480	034144	541 00 0 00 036161 		HRRI	AC0,SIMDES
  4481	034145	542 00 0 00 036034 		HRRM	AC0,RESSV+4
  4482
  4483	034146	336 00 0 00 041217 		SKIPN	MIC202		;UCODE 202 TO 227 ?
  4484	034147	202 13 0 00 036033 		MOVEM	DLEN,RESSV+3	;NO, SAVE MODIFIED FLAGS THEN
  4485
  4486	034150	402 00 0 00 036161 		SETZM	SIMDES
  4487	034151	200 00 0 00 040253 		MOVE	AC0,[SIMDES,,SIMDES+1]
  4488	034152	251 00 0 00 036217 		BLT	AC0,SIMDES+^D30
  4489
  4490	034153	260 17 0 00 035327 		GO	RSTAC
  4491	034154	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 94
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0148

  4492
  4493					; **********************************************************************
  4494					;*EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
  4495					; **********************************************************************
  4496	
  4497	034155	260 17 0 00 035307 	EDTSIM:	GO	SVAC		;SAVE ACCUMULATORS
  4498
  4499	034156	200 00 0 00 040231 		MOVE	AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
  4500	034157	251 00 0 00 000014 		BLT	AC0,AC+4
  4501
  4502	034160	336 00 0 00 041220 		SKIPN	OFFSET#		;OFFSET THE DESTINATION STRING?
  4503	034161	541 14 0 00 036161 		HRRI	DP,SIMDES	;MOVE DESTINATION STRING ELSEWHERE
  4504
  4505	034162	135 07 0 00 036514 	EDTS2:	LDB	AC7,PATBN	;GET PB# FROM AC
  4506	034163	135 03 0 07 036516 		LDB	AC3,PATBL(AC7)	;GET THE PATTERN BYTE
  4507	034164	200 02 0 00 000003 		MOVE	AC2,AC3		;MAKE A COPY OF IT
  4508	034165	242 02 0 00 777772 		LSH	AC2,-6		;GET READY TO DECODE THE HIGH 3 BITS
  4509	034166	254 00 1 02 036476 		JRST	@PPTAB(AC2)	;JUMP TO THE SPECIFIED PP CODE
  4510
  4511					; **************************************************
  4512					;EOPER -- PP IS 000-005. DECODE AND JUMP AGAIN
  4513					; **************************************************
  4514
  4515	034167	303 03 0 00 000005 	EOPER:	CAILE	AC3,5		;LEGAL OPERATOR?
  4516	034170	254 00 0 00 034176 		JRST	ENOP		;NO
  4517	034171	254 00 1 03 036506 		JRST	@PPTAB1(AC3)	;JUMP TO SPECIFIED PP CODE
  4518
  4519					; **************************************************
  4520					;EMESSG -- PP IS 1XX (MESSAG)
  4521					; **************************************************
  4522
  4523	034172	325 10 0 00 034234 	EMESSG:	JUMPGE	PADDR,ESEL	;USE FILLER IF SIGNIFICANCE NOT SET
  4524	034173	200 03 0 03 035526 		MOVE	AC3,E0-77(AC3) 	;SIGNIFICANCE SET - GET MSG CHAR.
  4525	034174	136 03 0 00 000014 		IDPB	AC3,DP		;DEPOSIT IT IN DESTINATION STRING
  4526	034175	254 00 0 00 034176 		JRST	ENOP
  4527
  4528					; **************************************************
  4529					;ENOP -- UPDATES THE PATTERN ADDRESS
  4530					; **************************************************
  4531
  4532	034176	260 17 0 00 034253 	ENOP:	GO	INCPBN		;ROUTINE TO UPDATE PATTERN ADDRESS
  4533	034177	254 00 0 00 034162 		JRST	EDTS2		;GO GET THE NEXT BYTE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 95
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0149

  4534
  4535					; **************************************************
  4536					;ESKPM	-- PP IS 5XX (SKPM)
  4537					; **************************************************
  4538
  4539	034200	607 10 0 00 100000 	ESKPM:	TLNN	PADDR,100000	;IS THE M FLAG SET?
  4540	034201	254 00 0 00 034176 		JRST	ENOP		;NO - DON'T SKIP LENGTH
  4541	034202	254 00 0 00 034206 		JRST	ESKPA		;YES - DO THE SKIP
  4542
  4543					; **************************************************
  4544					;ESKPN	-- PP IS 6XX (SKPN)
  4545					; **************************************************
  4546
  4547	034203	607 10 0 00 200000 	ESKPN:	TLNN	PADDR,200000	;IS THE N FLAG SET?
  4548	034204	254 00 0 00 034176 		JRST	ENOP		;NO - DON'T SKIP LENGTH
  4549	034205	254 00 0 00 034206 		JRST	ESKPA		;YES - DO THE SKIP
  4550
  4551					; **************************************************
  4552					;ESKPA	-- PP IS 7XX (SKPA)
  4553					; **************************************************
  4554
  4555	034206	405 03 0 00 000077 	ESKPA:	ANDI	AC3,77
  4556	034207	271 07 0 03 000001 		ADDI	AC7,1(AC3)	;ADD THE SKIP DISTANCE
  4557	034210	260 17 0 00 034253 		GO	INCPBN
  4558	034211	254 00 0 00 034162 		JRST	EDTS2
  4559
  4560					; **************************************************
  4561					;ESTOP	-- PP IS 000 (STOP)
  4562					; **************************************************
  4563
  4564	034212	350 00 0 17 000000 	ESTOP:	AOS	(P)		;SETUP FOR A SKIP RETURN
  4565
  4566	034213	260 17 0 00 034253 	EABORT:	GO	INCPBN		;PUSH THE PATTERN BYTE NO. PAST THE STOP
  4567
  4568	034214	200 00 0 00 040232 		MOVE	AC0,[PADDR,,RESSV] ;SAVE THE RESULT AC'S
  4569	034215	251 00 0 00 036034 		BLT	AC0,RESSV+4
  4570
  4571	034216	260 17 0 00 035327 		GO	RSTAC		;RESTORE ACCUMULATORS
  4572	034217	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 96
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0150

  4573
  4574					; **************************************************
  4575					;ESELCT	-- PP IS 011 (SELECT)
  4576					; **************************************************
  4577
  4578	034220	134 03 0 00 000011 	ESELCT:	ILDB	AC3,SP		;GET SOURCE BYTE
  4579	034221	241 03 0 00 777777 		ROT	AC3,-1		;MOVE ODD,EVEN BIT TO BIT 0
  4580	034222	335 00 0 00 000003 		SKIPGE	AC3
  4581	034223	334 03 0 03 035711 		SKIPA	AC3,E1(AC3)	;LOAD TRANS TABLE ENTRY, RIGHT HALF
  4582	034224	204 03 0 03 035711 		MOVS	AC3,E1(AC3)	;LOAD TRANS TABLE ENTRY, LEFT HALF
  4583
  4584	034225	602 03 0 00 400000 		TRNE	AC3,400000	;IS THE SIGNIFICANCE FLAG SET?
  4585	034226	661 10 0 00 200000 		TLO	PADDR,200000	;YES - SET THE N FLAG
  4586
  4587	034227	135 02 0 00 040254 		LDB	AC2,[POINT 2,AC3,20]	    ;GET THE CONTROL BITS
  4588						XCT	[JFCL			    ;0 - NO ACTION
  4589							 JRST  EABORT		    ;1 - ABORT INSRUCTION
  4590							 TLZ   PADDR,100000	    ;2 - CLEAR M FLAG
  4591	034230	256 00 0 02 040255 			 TLO   PADDR,100000](AC2)   ;3 - SET M FLAG
  4592
  4593	034231	321 10 0 00 034241 		JUMPL	PADDR,ESEL2	;STORE THE BYTE
  4594
  4595	034232	602 03 0 00 400000 		TRNE	AC3,400000	;IS THE SIGNIFICANCE FLAG SET?
  4596	034233	254 00 0 00 034237 		JRST	ESEL1		;YES - STORE THE BYTE
  4597
  4598	034234	200 03 0 00 035626 	ESEL:	MOVE	AC3,E0+1	;NO - GET THE FILLER CHARACTER
  4599	034235	322 03 0 00 034176 		JUMPE	AC3,ENOP	;DON'T STORE IT IF = 0
  4600	034236	254 00 0 00 034241 		JRST	ESEL2
  4601
  4602	034237	661 10 0 00 400000 	ESEL1:	TLO	PADDR,400000	;SET THE SIGNIFICANCE FLAG
  4603	034240	260 17 0 00 034262 		GO	STFLOT		;MARK AND TRY FLOAT
  4604
  4605	034241	405 03 0 00 077777 	ESEL2:	ANDI	AC3,77777	;MASK OFF THE CONTROL BITS
  4606	034242	136 03 0 00 000014 		IDPB	AC3,DP		;DEPOSIT THE BYTE IN DESTIN STRING
  4607	034243	254 00 0 00 034176 		JRST	ENOP		;GO FOR NEXT BYTE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 97
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION SIMULATORS                                                             SEQ 0151

  4608
  4609					; **************************************************
  4610					;ESIGST	-- PP IS 002 (SIGST)
  4611					; **************************************************
  4612
  4613	034244	667 10 0 00 400000 	ESIGST:	TLON	PADDR,400000	;TEST AND SET SIGNIFICANCE FLAG
  4614	034245	260 17 0 00 034262 		GO	STFLOT		;STORE FLOAT CHARACTER
  4615	034246	254 00 0 00 034176 		JRST	ENOP
  4616
  4617					; **************************************************
  4618					;EFLDSP	-- PP IS 003 (FLDSEP)
  4619					; **************************************************
  4620
  4621	034247	621 10 0 00 700000 	EFLDSP:	TLZ	PADDR,700000	;CLEAR ALL FLAGS
  4622	034250	254 00 0 00 034176 		JRST	ENOP
  4623
  4624					; **************************************************
  4625					;EEXCHD	-- -- IS 004 (EXCHMD)
  4626					; **************************************************
  4627
  4628	034251	250 14 0 13 000000 	EEXCHD:	EXCH	DP,(MA)		;PUT THE MARK POINTER INTO DP1
  4629	034252	254 00 0 00 034176 		JRST	ENOP
  4630
  4631					; **************************************************
  4632					;INCPBN -- EDIT SUPPORT ROUTINE TO UPDATE THE PATTERN ADDRESS
  4633					; **************************************************
  4634
  4635	034253	271 07 0 00 000001 	INCPBN:	ADDI	AC7,1		;INCREMENT PB#
  4636	034254	200 03 0 00 000007 		MOVE	AC3,AC7		;MAKE A COPY OF IT
  4637	034255	242 03 0 00 777776 		LSH	AC3,-2		;GET THE WORD ADDRESS
  4638	034256	271 10 0 03 000000 		ADDI	PADDR,(AC3)	;UPDATE SP
  4639	034257	405 07 0 00 000003 		ANDI	AC7,3
  4640	034260	137 07 0 00 036514 		DPB	AC7,PATBN
  4641	034261	263 17 0 00 000000 		RTN
  4642
  4643					; **************************************************
  4644					;STFLOT -- EDIT SUPPORT ROUTINE THAT STORES THE FLOAT CHAR IN THE
  4645					;	DESTINATION STRING
  4646					; **************************************************
  4647
  4648	034262	202 14 0 13 000000 	STFLOT:	MOVEM	DP,(MA)		;MA <== DP
  4649	034263	200 02 0 00 035627 		MOVE	AC2,E0+2	;GET THE FLOAT CHARACTER
  4650
  4651	034264	332 00 0 00 000002 		SKIPE	AC2		;DON'T STORE THE FLOAT CHARACTER IF ZERO
  4652	034265	136 02 0 00 000014 		IDPB	AC2,DP		;STORE IT
  4653	034266	263 17 0 00 000000 		RTN
  4654
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 98
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0152

  4655					SUBTTL	INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
  4656
  4657					; **********************************************************************
  4658					;*INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
  4659					;*	-- GENERAL INFORMATION
  4660					;*
  4661					;*	EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER
  4662					;*	ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE
  4663					;*	ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST.
  4664					;*
  4665					;*	ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE:
  4666					;*		1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4
  4667					;*		2. ACTUAL RESULT BLOCK IN AC'S 10-14
  4668					;*		3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4
  4669					;*		4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2
  4670					;*		5. SIMULATED DESTIN STRING IN SIMDES
  4671					;*		6. ACTUAL DESTIN STRING IN DESTIN
  4672					;*
  4673					;*	GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS:
  4674					;*
  4675					;*		1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME
  4676					;*		   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
  4677					;*		2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER
  4678					;*		   ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS
  4679					;*		3. PNTSTR -- PRINTS STRING OF BYTES
  4680					;*		   ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER
  4681					;*		   IN AC2, RTN+1 ALWAYS
  4682					;*		4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS
  4683					;*		   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
  4684					;*		5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE
  4685					;*		   NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
  4686					;*
  4687					;*	CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
  4688					;*		OF THE EXTEND COMPARE INSTRUCION.
  4689					;*	MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  4690					;*		OF THE EXTEND MOVXX INSTRUCTIONS.
  4691					;*	CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
  4692					;*		OF THE CVTDBX INSTRUCTIONS.
  4693					;*	CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  4694					;*		OF THE CVTBDX INSTRUCTIONS.
  4695					;*	EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  4696					;*		OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
  4697					; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 99
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0153

  4698
  4699					; **********************************************************************
  4700					;*CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
  4701					;*	OF THE EXTEND COMPARE INSTRUCION.
  4702					; **********************************************************************
  4703
  4704	034267	200 00 0 00 041233 	CMPCOM:	MOVE	AC0,SKPWD1	;SEE IF INSTR RETURNED CORRECTLY
  4705	034270	316 00 0 00 041234 		CAMN	AC0,SKPWD2
  4706	034271	254 00 0 00 034274 		JRST	CMPC1		;IT DID - CONTINUE
  4707
  4708	034272	476 00 0 00 041215 		SETOM	INCSKP		;SET THE INCORRECT RETURN FLAG
  4709	034273	254 00 0 00 034307 		JRST	CMPFAIL		;AND GO PRINT THE ERROR INFORMATION
  4710
  4711	034274	312 10 0 00 036030 	CMPC1:	CAME	SLEN,RESSV	;CHECK THE CONTENTS OF THE SIM AC BLOCK
  4712	034275	254 00 0 00 034307 		JRST	CMPFAIL		;AGAINST THE REAL AC BLOCK (AC-AC+4)
  4713
  4714	034276	312 11 0 00 036031 		CAME	SP,RESSV+1
  4715	034277	254 00 0 00 034307 		JRST	CMPFAIL
  4716
  4717	034300	312 12 0 00 036032 		CAME	AC12,RESSV+2
  4718	034301	254 00 0 00 034307 		JRST	CMPFAIL
  4719
  4720	034302	312 13 0 00 036033 		CAME	DLEN,RESSV+3
  4721	034303	254 00 0 00 034307 		JRST	CMPFAIL
  4722
  4723	034304	312 14 0 00 036034 		CAME	DP,RESSV+4
  4724	034305	254 00 0 00 034307 		JRST	CMPFAIL
  4725
  4726	034306	350 00 0 17 000000 		AOS	(P)		;OK, SKIP RETURN
  4727	034307	263 17 0 00 000000 	CMPFAIL:RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 100
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0154

  4728
  4729	034310	261 17 0 00 000000 	CMPPNT:	PUT	AC0
  4730	034311	261 17 0 00 000001 		PUT	AC1
  4731	034312	261 17 0 00 000002 		PUT	AC2
  4732
  4733	034313	260 17 0 00 035417 		GO	PNTINS		;PRINT THE CURRENT INSTRUCTION
  4734
  4735	034314	201 01 0 00 037047 		MOVEI	AC1,CMPCAS	;AC1 = CASE TABLE ADDRESS
  4736	034315	260 17 0 00 035460 		GO	PNTCAS		;PRINT THE CURRENT CASE
  4737
  4738	034316	037 02 0 00 040261 		PMSG	<^SOURCE STRING: >
  4739	034317	200 01 0 00 036023 		MOVE	AC1,ORIGSV	;COPY OF SOURCE STRING LENGTH
  4740	034320	200 02 0 00 036024 		MOVE	AC2,ORIGSV+1	;COPY OF SOURCE BYTE POINTER
  4741	034321	260 17 0 00 035435 		GO	PNTSTR		;PRINT SOURCE STRING
  4742
  4743	034322	037 02 0 00 040264 		PMSG	<^DESTIN STRING: >
  4744	034323	200 01 0 00 036026 		MOVE	AC1,ORIGSV+3	;COPY OF DESTINATION STRING LENGTH
  4745	034324	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4	;COPY OF DESTINATION BYTE POINTER
  4746	034325	260 17 0 00 035435 		GO	PNTSTR		;PRINT DESTINATION STRING
  4747
  4748	034326	037 02 0 00 040267 		PMSG	<^E0+1: >
  4749	034327	200 00 0 00 035626 		MOVE	E0+1
  4750	034330	037 16 0 00 000003 		PNTOCS			;PRINT E0+1
  4751
  4752	034331	037 02 0 00 040271 		PMSG	<^E0+2: >
  4753	034332	200 00 0 00 035627 		MOVE	E0+2
  4754	034333	037 16 0 00 000003 		PNTOCS			;PRINT E0+2
  4755	034334	037 00 0 00 030242 		PCRL
  4756
  4757	034335	260 17 0 00 035376 		GO	PNTACB		;PRINT THE AC BLOCKS
  4758
  4759	034336	332 00 0 00 041215 		SKIPE	INCSKP		;DID INSTR RETURN OK?
  4760	034337	260 17 0 00 035424 		GO	PNTSKP		;NO - PRINT AN ERROR MESSAGE
  4761	034340	402 00 0 00 041215 		SETZM	INCSKP		;RESET INCORRECT RETURN FLAG
  4762
  4763	034341	262 17 0 00 000002 	CMPRET:	GET	AC2
  4764	034342	262 17 0 00 000001 		GET	AC1
  4765	034343	262 17 0 00 000000 		GET	AC0
  4766	034344	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 101
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0155

  4767
  4768					; **********************************************************************
  4769					;*MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  4770					;*	OF THE EXTEND MOVXX INSTRUCTIONS.
  4771					; **********************************************************************
  4772
  4773	034345	261 17 0 00 000000 	MOVCOM:	PUT	AC0
  4774
  4775	034346	200 00 0 00 041233 		MOVE	AC0,SKPWD1	;SEE IF INSTRUCTION RETURNED CORRECTLY
  4776	034347	316 00 0 00 041234 		CAMN	AC0,SKPWD2
  4777	034350	254 00 0 00 034353 		JRST	MOVC1		;IT DID - GO CHECK THE ACS
  4778
  4779	034351	476 00 0 00 041215 		SETOM	INCSKP		;IT DIDN'T - SET THE INCORRECT SKIP FLAG
  4780	034352	254 00 0 00 034372 		JRST	MOVFAIL
  4781
  4782	034353	312 10 0 00 036030 	MOVC1:	CAME	SLEN,RESSV	;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
  4783	034354	254 00 0 00 034372 		JRST	MOVFAIL
  4784
  4785	034355	312 11 0 00 036031 		CAME	SP,RESSV+1
  4786	034356	254 00 0 00 034372 		JRST	MOVFAIL
  4787
  4788	034357	312 12 0 00 036032 		CAME	AC12,RESSV+2
  4789	034360	254 00 0 00 034372 		JRST	MOVFAIL
  4790
  4791	034361	312 13 0 00 036033 		CAME	DLEN,RESSV+3
  4792	034362	254 00 0 00 034372 		JRST	MOVFAIL
  4793
  4794	034363	260 17 0 00 035363 		GO	COMSTR		;COMPARE SIMULATED AND ACTUAL STRINGS
  4795	034364	254 00 0 00 034372 		JRST	MOVFAIL		;ERROR RETURN
  4796
  4797	034365	200 00 0 00 000014 		MOVE	AC0,DP
  4798	034366	270 00 0 00 040273 		ADD	AC0,[SIMDES-DESTIN] ;OFFSET DP BY DIFF IN STRING LOCS
  4799	034367	312 00 0 00 036034 		CAME	AC0,RESSV+4
  4800	034370	254 00 0 00 034372 		JRST	MOVFAIL
  4801
  4802	034371	350 00 0 17 777777 		AOS	-1(P)
  4803	034372	262 17 0 00 000000 	MOVFAIL:GET	AC0
  4804	034373	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 102
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0156

  4805
  4806	034374	261 17 0 00 000000 	MOVPNT:	PUT	AC0
  4807	034375	261 17 0 00 000001 		PUT	AC1
  4808	034376	261 17 0 00 000002 		PUT	AC2
  4809
  4810	034377	260 17 0 00 035417 		GO	PNTINS		;PRINT THE CURRENT INSTRUCTION
  4811
  4812	034400	201 01 0 00 037117 		MOVEI	AC1,MOVCAS	;AC1 = CASE TABLE ADDRESS
  4813	034401	260 17 0 00 035460 		GO	PNTCAS		;PRINT THE CURRENT CASE #
  4814
  4815	034402	037 02 0 00 040274 		PMSG	<^SOURCE STRING:>
  4816	034403	402 00 0 00 000001 		SETZM	AC1
  4817	034404	135 01 0 00 040277 		LDB	AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
  4818	034405	200 02 0 00 036024 		MOVE	AC2,ORIGSV+1	;COPY OF SOURCE BYTE POINTER
  4819	034406	260 17 0 00 035435 		GO	PNTSTR
  4820
  4821	034407	037 02 0 00 040300 		PMSG	<^CORRECT DESTINATION STRING:>
  4822	034410	200 01 0 00 036026 		MOVE	AC1,ORIGSV+3	;COPY OF DESTINATION STRING LENGTH
  4823	034411	274 01 0 00 036033 		SUB	AC1,RESSV+3	;CALCULATE HOW MUCH WAS MOVED
  4824	034412	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4	;COPY OF DESTINATION STRING BYTE POINTER
  4825	034413	541 02 0 00 036161 		HRRI	AC2,SIMDES	;MAKE LOCATION = SIMULATED DEST STRING
  4826	034414	260 17 0 00 035435 		GO	PNTSTR
  4827
  4828	034415	037 02 0 00 040305 		PMSG	<^ACTUAL DESTINATION STRING:>
  4829	034416	200 01 0 00 036026 		MOVE	AC1,ORIGSV+3	;COPY OF DESTINATION STRING LENGTH
  4830	034417	274 01 0 00 000013 		SUB	AC1,AC13	;CALULATE HOW MUCH WAS MOVED
  4831	034420	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4	;COPY OF DESTINATION STRING BYTE POINTER
  4832	034421	260 17 0 00 035435 		GO	PNTSTR
  4833
  4834	034422	037 02 0 00 040267 		PMSG	<^E0+1: >
  4835	034423	200 00 0 00 035626 		MOVE	E0+1
  4836	034424	037 16 0 00 000003 		PNTOCS			;PRINT E0+1
  4837	034425	037 00 0 00 030242 		PCRL
  4838
  4839	034426	200 00 0 00 040312 		MOVE	AC0,[DESTIN-SIMDES]
  4840	034427	272 00 0 00 036034 		ADDM	AC0,RESSV+4
  4841	034430	260 17 0 00 035376 		GO	PNTACB		;PRINT THE AC BLOCKS
  4842
  4843	034431	332 00 0 00 041236 		SKIPE	TRANFG
  4844	034432	260 17 0 00 035501 		GO	PNTRAN		;IF MOVST PRINT TRANSLATION TABLE
  4845
  4846	034433	332 00 0 00 041215 		SKIPE	INCSKP		;INCORRECT RETURN TAKEN?
  4847	034434	260 17 0 00 035424 		GO	PNTSKP		;YES - PRINT SKIP MESSAGE
  4848	034435	402 00 0 00 041215 		SETZM	INCSKP		;RESET INCORRECT SKIP WORD
  4849
  4850	034436	262 17 0 00 000002 	MOVRET:	GET	AC2
  4851	034437	262 17 0 00 000001 		GET	AC1
  4852	034440	262 17 0 00 000000 		GET	AC0
  4853	034441	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 103
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0157

  4854
  4855					; **********************************************************************
  4856					;*CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
  4857					;*	OF THE CVTDBX INSTRUCTIONS.
  4858					; **********************************************************************
  4859
  4860	034442	200 00 0 00 041233 	CDBCOM:	MOVE	AC0,SKPWD1	;SEE IF INSTRUCTION RETURNED CORRECTLY
  4861	034443	316 00 0 00 041234 		CAMN	AC0,SKPWD2
  4862	034444	254 00 0 00 034447 		JRST	CDBC1		;IT DID - GO CHECK THE ACS
  4863
  4864	034445	476 00 0 00 041215 		SETOM	INCSKP		;IT DIDN'T - SET THE INCORRECT SKIP FLAG
  4865	034446	254 00 0 00 034464 		JRST	CDBFAIL
  4866
  4867	034447	312 10 0 00 036030 	CDBC1:	CAME	SLEN,RESSV	;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
  4868	034450	254 00 0 00 034464 		JRST	CDBFAIL		;NOT EQUAL - JUMP TO THE ERROR PRINTER
  4869
  4870	034451	312 11 0 00 036031 		CAME	SP,RESSV+1
  4871	034452	254 00 0 00 034464 		JRST	CDBFAIL
  4872
  4873	034453	312 12 0 00 036032 		CAME	AC12,RESSV+2
  4874	034454	254 00 0 00 034464 		JRST	CDBFAIL
  4875
  4876	034455	312 13 0 00 036033 		CAME	DBH,RESSV+3
  4877	034456	254 00 0 00 034464 		JRST	CDBFAIL
  4878
  4879	034457	312 14 0 00 036034 		CAME	DBL,RESSV+4
  4880	034460	254 00 0 00 034464 		JRST	CDBFAIL
  4881
  4882	034461	260 17 0 00 035363 		GO	COMSTR		;COMPARE DESTINATION STRINGS
  4883	034462	254 00 0 00 034464 		JRST	CDBFAIL
  4884
  4885	034463	350 00 0 17 000000 		AOS	(P)
  4886	034464	263 17 0 00 000000 	CDBFAIL:RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 104
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0158

  4887
  4888	034465	261 17 0 00 000000 	CDBPNT:	PUT	AC0
  4889	034466	261 17 0 00 000001 		PUT	AC1
  4890	034467	261 17 0 00 000002 		PUT	AC2
  4891
  4892	034470	201 01 0 00 037146 		MOVEI	AC1,CDBCAS	;AC1 = CASE TABLE ADDRESS
  4893	034471	260 17 0 00 035460 		GO	PNTCAS		;GO PRINT THE CURRENT CASE #
  4894
  4895	034472	037 02 0 00 040261 		PMSG	<^SOURCE STRING: >
  4896	034473	402 00 0 00 000001 		SETZM	AC1
  4897	034474	135 01 0 00 040277 		LDB	AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
  4898	034475	200 02 0 00 036024 		MOVE	AC2,ORIGSV+1	;COPY OF SOURCE BYTE POINTER
  4899	034476	260 17 0 00 035435 		GO	PNTSTR
  4900
  4901	034477	260 17 0 00 035376 		GO	PNTACB		;GO PRINT THE AC BLOCKS
  4902
  4903	034500	332 00 0 00 041236 		SKIPE	TRANFG		;IF CVTDBT THEN PRINT TRANSLATION TABLE
  4904	034501	260 17 0 00 035501 		GO	PNTRAN
  4905
  4906	034502	332 00 0 00 041215 		SKIPE	INCSKP		;INCORRECT RETURN TAKEN?
  4907	034503	260 17 0 00 035424 		GO	PNTSKP		;YES - PRINT SKIP MESSAGE
  4908	034504	402 00 0 00 041215 		SETZM	INCSKP		;RESET THE SKIP WORD
  4909
  4910	034505	262 17 0 00 000002 	CDBRT1:	GET	AC2
  4911	034506	262 17 0 00 000001 		GET	AC1
  4912	034507	262 17 0 00 000000 		GET	AC0
  4913	034510	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 105
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0159

  4914
  4915					; **********************************************************************
  4916					;*CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  4917					;*	OF THE CVTBDX INSTRUCTIONS.
  4918					;
  4919					;	IN A MACHINE WITH MICROCODE 202 OR EARLIER OR GREATER THAN 230,
  4920					;	THE "N" AND "M" FLAGS ARE SET UP FIRST AND MAY THEREFORE BE
  4921					;	AFFECTED BY AN INSTRUCTION THAT IS ABORTED BECAUSE THE BINARY
  4922					;	INTERGER IS TOO LARGE.
  4923					; **********************************************************************
  4924
  4925	034511	261 17 0 00 000000 	CBDCOM:	PUT	AC0
  4926
  4927	034512	200 00 0 00 041233 		MOVE	AC0,SKPWD1	;SEE IF INSTRUCTION RETURNED CORRECTLY
  4928	034513	316 00 0 00 041234 		CAMN	AC0,SKPWD2
  4929	034514	254 00 0 00 034517 		JRST	CBDC1		;IT DID - CONTINUE
  4930
  4931	034515	476 00 0 00 041215 		SETOM	INCSKP
  4932	034516	254 00 0 00 034534 		JRST	CBDFAIL
  4933
  4934	034517	312 10 0 00 036030 	CBDC1:	CAME	BDH,RESSV	;CHECK THE SIMULATED AC'S WITH
  4935	034520	254 00 0 00 034534 		JRST	CBDFAIL		;THE FINAL RESULT
  4936
  4937	034521	312 11 0 00 036031 		CAME	BDL,RESSV+1
  4938	034522	254 00 0 00 034534 		JRST	CBDFAIL
  4939
  4940	034523	312 12 0 00 036032 		CAME	AC12,RESSV+2
  4941	034524	254 00 0 00 034534 		JRST	CBDFAIL
  4942
  4943	034525	312 13 0 00 036033 		CAME	DLEN,RESSV+3
  4944	034526	254 00 0 00 034536 		JRST	CBDC2
  4945
  4946	034527	200 00 0 00 000014 	CBDC3:	MOVE	AC0,DP
  4947	034530	270 00 0 00 040273 		ADD	AC0,[SIMDES-DESTIN]
  4948	034531	312 00 0 00 036034 		CAME	AC0,RESSV+4
  4949	034532	254 00 0 00 034534 		JRST	CBDFAIL
  4950
  4951	034533	350 00 0 17 777777 		AOS	-1(P)
  4952	034534	262 17 0 00 000000 	CBDFAIL:GET	AC0
  4953	034535	263 17 0 00 000000 		RTN
  4954
  4955	034536	336 00 0 00 030037 	CBDC2:	SKIPN	USER		;EXEC MODE ?
  4956	034537	254 00 0 00 034534 		JRST	CBDFAIL		;YES, A REAL ERROR THEN
  4957
  4958	034540	336 00 0 00 041223 		SKIPN	OVERR		;USER MODE, OVERFLOW CASE ?
  4959	034541	254 00 0 00 034534 		JRST	CBDFAIL		;NO, A REAL ERROR
  4960
  4961	034542	200 00 0 00 041222 		MOVE	OVDLEN		;YES, CAN'T TELL ON UCODE
  4962	034543	312 00 0 00 036033 		CAME	RESSV+3		; SO USE EITHER DLEN
  4963	034544	254 00 0 00 034534 		JRST	CBDFAIL		;DOES'T COMPARE TO EITHER
  4964	034545	254 00 0 00 034527 		JRST	CBDC3		;OK
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 106
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0160

  4965
  4966	034546	261 17 0 00 000000 	CBDPNT:	PUT	AC0
  4967	034547	261 17 0 00 000001 		PUT	AC1
  4968	034550	261 17 0 00 000002 		PUT	AC2
  4969
  4970	034551	260 17 0 00 035417 		GO	PNTINS		;PRINT THE INSTRUCTION IN ERROR
  4971
  4972	034552	201 01 0 00 037207 		MOVEI	AC1,CBDCAS
  4973	034553	260 17 0 00 035460 		GO	PNTCAS		;PRINT THE CASE IN ERROR
  4974
  4975	034554	260 17 0 00 035376 		GO	PNTACB		;GO PRINT THE AC BLOCKS
  4976
  4977	034555	037 02 0 00 040313 		PMSG	<^SIMULATED DESTINATION STRING:>
  4978	034556	402 00 0 00 000001 		SETZM	AC1
  4979	034557	135 01 0 00 040321 		LDB	AC1,[POINT 9,ORIGSV+3,35] 
  4980	034560	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4	;COPY OF SIMULATED DESTIN BYTE POINTER
  4981	034561	541 02 0 00 036161 		HRRI	AC2,SIMDES
  4982	034562	260 17 0 00 035435 		GO	PNTSTR
  4983
  4984	034563	037 02 0 00 040305 		PMSG	<^ACTUAL DESTINATION STRING:>
  4985	034564	402 00 0 00 000001 		SETZM	AC1
  4986	034565	135 01 0 00 040321 		LDB	AC1,[POINT 9,ORIGSV+3,35] ;COPY OF DESTIN STRING LENGTH
  4987	034566	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4	;COPY OF DESTIN BYTE POINTER
  4988	034567	260 17 0 00 035435 		GO	PNTSTR
  4989
  4990	034570	332 00 0 00 041215 		SKIPE	INCSKP		;INCORRECT SKIP TAKEN ?
  4991	034571	260 17 0 00 035424 		GO	PNTSKP		;YES - PRINT SKIP MESSAGE
  4992	034572	402 00 0 00 041215 		SETZM	INCSKP
  4993
  4994	034573	262 17 0 00 000002 	CBDRT1:	GET	AC2
  4995	034574	262 17 0 00 000001 		GET	AC1
  4996	034575	262 17 0 00 000000 		GET	AC0
  4997	034576	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 107
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0161

  4998
  4999					; **********************************************************************
  5000					;*EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
  5001					;*	OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
  5002					;*	THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX.
  5003					;*	MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE
  5004					;*	EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS. 
  5005					; **********************************************************************
  5006
  5007	034577	261 17 0 00 000000 	EDTCOM:	PUT	AC0
  5008
  5009	034600	200 00 0 00 041233 		MOVE	AC0,SKPWD1	;SEE IF INSTRUCTION SKIPPED CORRECTLY
  5010	034601	316 00 0 00 041234 		CAMN	AC0,SKPWD2
  5011	034602	254 00 0 00 034605 		JRST	EDTC1		;IT DID - CONTINUE
  5012
  5013	034603	476 00 0 00 041215 		SETOM	INCSKP
  5014	034604	254 00 0 00 034625 		JRST	EDTFAIL
  5015
  5016	034605	312 10 0 00 036030 	EDTC1:	CAME	PADDR,RESSV	;CHECK THE SIMULATED AC'S AGAINST THE 
  5017	034606	254 00 0 00 034625 		JRST	EDTFAIL		;THE ACTUAL AC'S
  5018
  5019	034607	312 11 0 00 036031 		CAME	SP,RESSV+1
  5020	034610	254 00 0 00 034625 		JRST	EDTFAIL
  5021
  5022	034611	312 12 0 00 036032 		CAME	AC12,RESSV+2
  5023	034612	254 00 0 00 034625 		JRST	EDTFAIL
  5024
  5025	034613	312 13 0 00 036033 		CAME	MA,RESSV+3
  5026	034614	254 00 0 00 034625 		JRST	EDTFAIL
  5027
  5028	034615	260 17 0 00 035363 		GO	COMSTR		;COMPARE SIMULATED AND ACTUAL STRINGS
  5029	034616	254 00 0 00 034625 		JRST	EDTFAIL		;ERROR RETURN
  5030
  5031	034617	200 00 0 00 000014 		MOVE	AC0,DP
  5032	034620	336 00 0 00 041220 		SKIPN	OFFSET
  5033	034621	270 00 0 00 040273 		ADD	AC0,[SIMDES-DESTIN]
  5034
  5035	034622	312 00 0 00 036034 		CAME	AC0,RESSV+4
  5036	034623	254 00 0 00 034625 		JRST	EDTFAIL
  5037
  5038	034624	350 00 0 17 777777 		AOS	-1(P)
  5039	034625	262 17 0 00 000000 	EDTFAIL:GET	AC0
  5040	034626	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 108
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0162

  5041
  5042	034627	261 17 0 00 000000 	EDTPNT:	PUT	AC0
  5043	034630	261 17 0 00 000001 		PUT	AC1
  5044	034631	261 17 0 00 000002 		PUT	AC2
  5045
  5046	034632	037 02 0 00 040322 		PMSG	<^PATTERN BYTE TYPE UNDER TEST: >
  5047	034633	200 04 0 00 036333 		MOVE	AC4,BYTYPE	;GET BYTE TYPE TABLE INDEX
  5048	034634	200 00 0 04 036275 		MOVE	AC0,BYTAB(AC4)	;SIXBIT BYTE NAME TO AC0
  5049	034635	037 00 0 00 000002 		PNTSIX			;PRINT IT
  5050
  5051	034636	201 01 0 00 037250 		MOVEI	AC1,EDTCAS
  5052	034637	260 17 0 00 035460 		GO	PNTCAS		;PRINT THE CASE NUMBER
  5053
  5054	034640	332 00 0 00 041220 		SKIPE	OFFSET
  5055	034641	254 00 0 00 034644 		JRST	EDTP1A
  5056
  5057	034642	200 00 0 00 040312 		MOVE	AC0,[DESTIN-SIMDES] ;GET DIFFERENCE IN STRING LOCATIONS
  5058	034643	272 00 0 00 036034 		ADDM	AC0,RESSV+4
  5059
  5060	034644	260 17 0 00 035376 	EDTP1A:	GO	PNTACB		;PRINT THE AC BLOCKS
  5061
  5062	034645	302 04 0 00 000011 		CAIE	AC4,^D9		;IF SELECT IS BYTE TYPE 9 PRINT SRC STRING
  5063	034646	254 00 0 00 034653 		JRST	EDTP1
  5064
  5065	034647	037 02 0 00 040274 		PMSG	<^SOURCE STRING:>
  5066	034650	201 01 0 00 000024 		MOVEI	AC1,^D20	;SOURCE STRING MAX LENGTH
  5067	034651	200 02 0 00 036024 		MOVE	AC2,ORIGSV+1	;COPY OF STRING BYTE POINTER
  5068	034652	260 17 0 00 035435 		GO	PNTSTR
  5069
  5070	034653	332 00 0 00 041220 	EDTP1:	SKIPE	OFFSET		;EXCHMD BYTE TYPE?
  5071	034654	254 00 0 00 034666 		JRST	EDTP2		;YES - DON'T PRINT DESTINATION STRINGS
  5072
  5073	034655	037 02 0 00 040300 		PMSG	<^CORRECT DESTINATION STRING:>
  5074	034656	201 01 0 00 000100 		MOVEI	AC1,^D64	;MAX DESTIN AND SIMDES STRING LENGTH
  5075	034657	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4
  5076	034660	541 02 0 00 036161 		HRRI	AC2,SIMDES
  5077	034661	260 17 0 00 035435 		GO	PNTSTR
  5078
  5079	034662	037 02 0 00 040305 		PMSG	<^ACTUAL DESTINATION STRING:>
  5080	034663	201 01 0 00 000100 		MOVEI	AC1,^D64
  5081	034664	200 02 0 00 036027 		MOVE	AC2,ORIGSV+4
  5082	034665	260 17 0 00 035435 		GO	PNTSTR
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 109
DFKCCM	MAC	 8-Jan-87 15:04		INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES                          SEQ 0163

  5083
  5084	034666	302 04 0 00 000011 	EDTP2:	CAIE	AC4,^D9		;PRINT E0+1 IF BYTE TYPE IS SELECT
  5085	034667	254 00 0 00 034673 		JRST	EDTP2A
  5086
  5087	034670	037 02 0 00 040330 		PMSG	<^E0+1:>
  5088	034671	200 00 0 00 035626 		MOVE	AC0,E0+1
  5089	034672	037 16 0 00 000003 		PNTOCS
  5090
  5091	034673	302 04 0 00 000002 	EDTP2A:	CAIE	AC4,2		;PRINT E0+2 IF SIGST OR SELECT
  5092	034674	306 04 0 00 000011 		CAIN	AC4,^D9
  5093	034675	334 00 0 00 000000 		SKIPA
  5094	034676	254 00 0 00 034702 		JRST	EDTP4
  5095
  5096	034677	037 02 0 00 040332 		PMSG	<^E0+2:>
  5097	034700	200 00 0 00 035627 		MOVE	AC0,E0+2	;GET THE FLOAT CHARACTER
  5098	034701	037 16 0 00 000003 		PNTOCS
  5099
  5100	034702	306 04 0 00 000011 	EDTP4:	CAIN	AC4,^D9		;PRINT TRANSLATION TABLE IF BYTE TYPE IS SELECT
  5101	034703	260 17 0 00 035501 		GO	PNTRAN
  5102
  5103	034704	332 00 0 00 041215 		SKIPE	INCSKP		;INCORRECT RETURN TAKEN?
  5104	034705	260 17 0 00 035424 		GO	PNTSKP		;YES - PRINT THE INCORRECT SKIP MSG.
  5105	034706	402 00 0 00 041215 		SETZM	INCSKP		;RESET THE INCORRECT SKIP WORD
  5106
  5107	034707	262 17 0 00 000002 	EDTRT1:	GET	AC2
  5108	034710	262 17 0 00 000001 		GET	AC1
  5109	034711	262 17 0 00 000000 		GET	AC0
  5110	034712	263 17 0 00 000000 		RTN
  5111
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 110
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0164

  5112					SUBTTL MUUO AND PAGE FAIL HANDLERS
  5113
  5114					; **********************************************************************
  5115					;*MUUOHS - MUUO HANDLER INITIALIZATION
  5116					;*	CODE TO SETUP MUUO HANDLER IN EXEC MODE
  5117					; **********************************************************************
  5118
  5119	034713	332 00 0 00 030037 	MUUOHS:	SKIPE	USER		;USER MODE?
  5120	034714	254 00 0 00 034722 		JRST	TSMUUO		;YES - SETUP FOR TIMESHARE TRAPPING
  5121
  5122	034715	201 00 0 00 034737 		MOVEI	MUUOH		;GET ADDRESS OF MUUO HANDLER
  5123	034716	202 00 0 00 000430 		MOVEM	430		;SETUP ADDRESS IN USER PROCESS TABLE
  5124
  5125	034717	200 00 0 00 040334 		MOVE	[430,431]	;SETUP UPT WORDS 430-437
  5126	034720	251 00 0 00 000437 		BLT	437
  5127	034721	263 17 0 00 000000 		RTN
  5128
  5129					; **************************************************
  5130					;CODE TO SETUP MUUO HANDLER FOR TOPS-20
  5131					; **************************************************
  5132
  5133	034722	336 00 0 00 030516 	TSMUUO:	SKIPN	MONTYP		;RUNNING UNDER TOPS-20?
  5134	034723	254 00 0 00 034734 		JRST	MUUO10		;NO - EXECUTE TOPS-10 CODE
  5135
  5136	034724	104 00 0 00 000147 		RESET			;CLEAR THE SOFTWARE INTERRUPT SYSTEM
  5137
  5138	034725	201 01 0 00 400000 		MOVEI	AC1,.FHSLF	;PROCESS HANDLE FOR THIS JOB
  5139	034726	200 02 0 00 040335 		MOVE	AC2,[LEVTAB,,CHNTAB] ;SETUP SOFTWARE INTERRUPT TABLES
  5140	034727	104 00 0 00 000125 		SIR
  5141
  5142	034730	205 02 0 00 000004 		MOVSI	2,(1B^D15)	;SET UP TO INTERCEPT ILLEGAL INSTR
  5143	034731	104 00 0 00 000131 		AIC			;TO INTERRUPT ILLEGAL INSTRUCTIONS
  5144
  5145	034732	104 00 0 00 000126 		EIR			;ENABLE THE INTERRUPT SYSTEM
  5146	034733	263 17 0 00 000000 		RTN
  5147
  5148					; **************************************************
  5149					;CODE TO SETUP MUUO HANDLER FOR TOPS-10
  5150					; **************************************************
  5151
  5152	034734	201 01 0 00 035577 	MUUO10:	MOVEI	AC1,UUOBLK	;SET .JBINT TO ADDRESS OF CONTROL BLOCK
  5153	034735	202 01 0 00 000134 		MOVEM	AC1,.JBINT
  5154	034736	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 111
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0165

  5155
  5156					; **********************************************************************
  5157					;*MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)
  5158					; **********************************************************************
  5159
  5160	034737	261 17 0 00 000000 	MUUOH:	PUT	AC0		;SAVE AC0
  5161
  5162	034740	352 00 0 00 041214 		AOSE	GOTRAP		;WAS A TRAP EXPECTED?
  5163	034741	254 00 0 00 034760 		JRST	MUUOHX		;NO, FATAL ERROR
  5164
  5165	034742	332 00 0 00 030037 		SKIPE	USER		;USER MODE?
  5166	034743	254 00 0 00 034746 		JRST	MUUOHU		;YES - GO TO USER CODE
  5167
  5168	034744	262 17 0 00 000000 		GET	AC0		;RESTORE AC0
  5169	034745	254 02 1 00 000425 		JRSTF	@425		;JUMP USING UPT PC ADDRESS
  5170
  5171	034746	336 00 0 00 030516 	MUUOHU:	SKIPN	MONTYP		;TOPS-20 MONITOR?
  5172	034747	254 00 0 00 034753 		JRST	MUUOH1		;NO - EXECUTE TOPS-10 CODE
  5173
  5174	034750	350 00 0 00 035624 		AOS	MUOPC		;SETUP INTERRUPT RETURN
  5175	034751	262 17 0 00 000000 		GET	AC0		;RESTORE AC0
  5176	034752	104 00 0 00 000136 		DEBRK			;EXECUTE THE DISMISS INTERRUPT JSYS
  5177
  5178	034753	350 00 0 00 035601 	MUUOH1:	AOS	UUOBLK+2	;UUOBLK+2 HAS LAST USER PS
  5179	034754	262 17 0 00 000000 		GET	AC0		;RESTORE AC0
  5180
  5181	034755	261 17 0 00 035601 		PUT	UUOBLK+2	;SETUP RETURN JUMP
  5182	034756	402 00 0 00 035601 		SETZM	UUOBLK+2	;THIS MUST BE 0 TO WORK AGAIN 
  5183	034757	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 112
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0166

  5184
  5185					; **************************************************
  5186					;*MUUOHX - UNEXPECTED MUUO ERROR REPORTING
  5187					; **************************************************
  5188													SALL
  5189			040336		T=	SIXBTZ	<MUUO OPERATION>
  5190													LALL
  5191	034760	332 00 0 00 030037 	MUUOHX:	SKIPE	USER
  5192	034761	254 00 0 00 034766 		JRST	MUUOHY
  5193
  5194	034762	200 01 0 00 000424 		MOVE	AC1,424		;GET BAD MUUO
  5195	034763	200 02 0 00 000425 		MOVE	AC2,425		;GET BAD MMUO PC
  5196
  5197						ERROR1	(13,AC1,AC2,^_
  5198					^CORRECT=MUUO^_
  5199					^ACTUAL=MUUO PC,^_
  5200					UNEXPECTED MUUO OCCURED)^
  5201												SALL
  5202	034764	036 13 0 00 040352 
  5203	034765	037 15 0 00 000004 		FATAL
  5204
  5205	034766	200 01 0 00 035624 	MUUOHY:	MOVE	AC1,MUOPC	;GET PC OF BAD MUUO
  5206	034767	336 00 0 00 030516 		SKIPN	MONTYP
  5207	034770	200 01 0 00 035577 		MOVE	AC1,UUOBLK
  5208
  5209						ERROR1	(13,AC1,0,^_
  5210					^CORRECT=MUUO PC,^_
  5211					UNEXPECTED MUUO OCCURED)^
  5212	034771	036 13 0 00 040360 
  5213	034772	037 15 0 00 000004 		FATAL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 113
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0167

  5214
  5215					; **********************************************************************
  5216					;*LUUOH - LUUO HANDLER
  5217					; **********************************************************************
  5218
  5219	034773	261 17 0 00 000000 	LUUOH:	PUT	AC0		;SAVE AC0
  5220
  5221	034774	352 00 0 00 041214 		AOSE	GOTRAP		;WAS AN LUUO EXPECTED?
  5222	034775	254 00 0 00 035000 		JRST	LUUOHX		;NO, FATAL ERROR
  5223
  5224	034776	262 17 0 00 000000 		GET	AC0		;RESTORE AC0
  5225	034777	263 17 0 00 000000 		RTN
  5226
  5227					; **************************************************
  5228					;*LUUOHX - UNEXPECTED LUUO ERROR REPORTING
  5229					; **************************************************
  5230													SALL
  5231			040363		T=	SIXBTZ	<LUUO OPERATION>
  5232													LALL
  5233	035000	200 00 0 00 041235 	LUUOHX:	MOVE	SVLUUO		;RESTORE SUBROU. PKG. TRAP ROUTINE SETUP
  5234	035001	202 00 0 00 000041 		MOVEM	41
  5235
  5236	035002	200 01 0 00 000040 		MOVE	AC1,40		;GET BAD LUUO
  5237	035003	200 02 0 17 777777 		MOVE	AC2,-1(P)	;GET BAD LUUO PC
  5238
  5239						ERROR1	(13,AC1,AC2,^_
  5240					^CORRECT=LUUO^_
  5241					^ACTUAL=LUUO PC,^_
  5242					UNEXPECTED LUUO OCCURED)^
  5243												SALL
  5244	035004	036 13 0 00 040377 
  5245	035005	037 15 0 00 000004 		FATAL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 114
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0168

  5246
  5247					; **********************************************************************
  5248					;*PFHAND -- PAGE FAIL HANDLER
  5249					;*
  5250					;*	IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK
  5251					;*	IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY.
  5252					;*
  5253					;*	ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST
  5254					;*	THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES
  5255					;*	AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
  5256					;*
  5257					;*	ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
  5258					;*	IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
  5259					;*	NAME TABLE.
  5260					; **********************************************************************
  5261
  5262	035006	352 00 0 00 041227 	PFHAND:	AOSE	PFTRAP		;INDICATE THAT PF OCCURED
  5263	035007	254 00 0 00 035041 		JRST	PFFAIL		;THIS IS SECOND PAGE FAILURE
  5264
  5265	035010	550 07 0 00 000501 		HRRZ	AC7,LPFWPC	;ACTUAL PAGE FAIL PC
  5266	035011	200 06 0 00 041212 		MOVE	AC6,FAILOC	;CORRECT PF PC WORD
  5267	035012	312 06 0 00 000007 		CAME	AC6,AC7		;CORRECT?
  5268	035013	254 00 0 00 035041 		JRST	PFFAIL		;NO
  5269
  5270	035014	200 07 0 04 000000 		MOVE	AC7,(AC4)	;GET THE CORRECT AC CONTENTS
  5271	035015	332 00 0 00 041236 		SKIPE	TRANFG		;TRANSLATE INSTR?
  5272	035016	434 07 0 00 035775 		OR	AC7,BIT0	;YES - CORRECT RESULT HAS SFL SET
  5273
  5274	035017	312 07 0 00 000010 		CAME	AC7,AC10	;CORRECT?
  5275	035020	254 00 0 00 035041 		JRST	PFFAIL		;NO
  5276
  5277	035021	200 07 0 04 000001 		MOVE	AC7,1(AC4)	;GET THE CORRECT AC CONTENTS
  5278	035022	312 07 0 00 000011 		CAME	AC7,AC11	;CORRECT?
  5279	035023	254 00 0 00 035041 		JRST	PFFAIL		;NO
  5280
  5281	035024	200 07 0 04 000002 		MOVE	AC7,2(AC4)	;GET THE CORRECT AC+2 CONTENTS
  5282	035025	312 07 0 00 000012 		CAME	AC7,AC12	;CORRECT?
  5283	035026	254 00 0 00 035041 		JRST	PFFAIL		;NO
  5284
  5285	035027	200 07 0 04 000003 		MOVE	AC7,3(AC4)	;GET THE CORRECT AC CONTENTS
  5286	035030	312 07 0 00 000013 		CAME	AC7,AC13	;CORRECT?
  5287	035031	254 00 0 00 035041 		JRST	PFFAIL		;NO
  5288
  5289	035032	200 07 0 04 000004 		MOVE	AC7,4(AC4)	;GET THE CORRECT AC CONTENTS
  5290	035033	312 07 0 00 000014 		CAME	AC7,AC14	;CORRECT?
  5291	035034	254 00 0 00 035041 		JRST	PFFAIL		;NO
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 115
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0169

  5292
  5293					; **************************************************
  5294					;SET UP THE PAGE TABLE FOR CONTINUE
  5295					; **************************************************
  5296
  5297	035035	200 00 0 00 040402 		MOVE	AC0,[740000!75,,740000!76]
  5298	035036	202 00 0 00 000200 		MOVEM	AC0,200		;SETUP PAGE MAP
  5299
  5300					;D02	CONO	PAG,LTRPEN	;CAUSE NEW PAGING TO HAVE AN EFFECT
  5301	035037	260 17 0 00 035247 		GO	CHNGPE		;A02 ENABLE PAGING PRESERVING CACHE 
  5302
  5303	035040	254 02 1 00 000501 		JRSTF	@LPFWPC		;RETURN
  5304
  5305					; **************************************************
  5306					;TAKE AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
  5307					; **************************************************
  5308
  5309	035041	254 00 1 00 041226 	PFFAIL:	JRST	@PFHEPC#
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 116
DFKCCM	MAC	 8-Jan-87 15:04		MUUO AND PAGE FAIL HANDLERS                                                        SEQ 0170

  5310
  5311					; **********************************************************************
  5312					;*PFPNT -- PAGE FAIL ERROR PRINTER
  5313					;*
  5314					;*	ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
  5315					;*	IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
  5316					;*	NAME TABLE.
  5317					; **********************************************************************
  5318														SALL
  5319			040403		T=	SIXBTZ	<PAGE FAIL>
  5320														LALL
  5321	035042	550 07 0 00 000501 	PFPNT:	HRRZ	AC7,LPFWPC	;ACTUAL PAGE FAIL PC
  5322	035043	200 06 0 00 041212 		MOVE	AC6,FAILOC	;CORRECT PF PC WORD
  5323	035044	312 06 0 00 000007 		CAME	AC6,AC7		;CORRECT?
  5324						ERROR1	(13,6,7,PAGE FAIL PC WRONG,,PFINS)^
  5325												SALL
  5326	035045	036 13 0 00 040411 
  5327
  5328	035046	200 07 0 04 000000 		MOVE	AC7,(AC4)	;GET THE CORRECT AC CONTENTS
  5329	035047	332 00 0 00 041236 		SKIPE	TRANFG		;TRANSLATE INSTR?
  5330	035050	434 07 0 00 035775 		OR	AC7,BIT0	;YES - CORRECT RESULT HAS SFL SET
  5331
  5332	035051	312 07 0 00 000010 		CAME	AC7,AC10	;CORRECT?
  5333						ERROR1	(13,7,10,INTERMEDIATE AC INCORRECT,,PFINS)^
  5334	035052	036 13 0 00 040421 
  5335
  5336	035053	200 07 0 04 000001 		MOVE	AC7,1(AC4)	;GET THE CORRECT AC+1 CONTENTS
  5337	035054	312 07 0 00 000011 		CAME	AC7,AC11	;CORRECT?
  5338						ERROR1	(13,7,11,INTERMEDIATE AC+1 INCORRECT,,PFINS)^
  5339	035055	036 13 0 00 040431 
  5340
  5341	035056	200 07 0 04 000002 		MOVE	AC7,2(AC4)	;GET THE CORRECT AC+2 CONTENTS
  5342	035057	312 07 0 00 000012 		CAME	AC7,AC12	;CORRECT?
  5343						ERROR1	(13,7,12,INTERMEDIATE AC+2 INCORRECT,,PFINS)^
  5344	035060	036 13 0 00 040441 
  5345
  5346	035061	200 07 0 04 000003 		MOVE	AC7,3(AC4)	;GET THE CORRECT AC+3 CONTENTS
  5347	035062	312 07 0 00 000013 		CAME	AC7,AC13	;CORRECT?
  5348						ERROR1	(13,7,13,INTERMEDIATE AC+3 INCORRECT,,PFINS)^
  5349	035063	036 13 0 00 040451 
  5350
  5351	035064	200 07 0 04 000004 		MOVE	AC7,4(AC4)	;GET THE CORRECT AC+4 CONTENTS
  5352	035065	312 07 0 00 000014 		CAME	AC7,AC14	;CORRECT?
  5353						ERROR1	(13,7,14,INTERMEDIATE AC+4 INCORRECT,,PFINS)^
  5354	035066	036 13 0 00 040461 
  5355
  5356	035067	263 17 0 00 000000 		RTN
  5357													XALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 117
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0171

  5358					SUBTTL	PROGRAM SUPPORT ROUTINES
  5359
  5360					; **********************************************************************
  5361					;*EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION
  5362					;*	ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE. 
  5363					;*
  5364					;*	UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE
  5365					;*	CASE TABLE PARAMETER WORD.
  5366					;*
  5367					;*	RETURN IS ALWAYS +1.
  5368					; **********************************************************************
  5369
  5370	035070	200 01 0 07 000000 	EDTSET:	MOVE	AC1,(AC7)	;RETRIEVE THE CASE PARAMETER WORD
  5371
  5372					; **************************************************
  5373					;DETERMINE THE INITIAL VALUES FOR THE S,N AND M FLAG
  5374					; **************************************************
  5375
  5376	035071	402 00 0 00 000010 		SETZM	PADDR
  5377	035072	602 01 0 00 400000 		TRNE	AC1,(SFL)	;SET THE S FLAG?
  5378	035073	434 10 0 00 035775 		OR	PADDR,BIT0	;YES
  5379
  5380	035074	602 01 0 00 040000 		TRNE	AC1,(NFL)	;SET THE N FLAG?
  5381	035075	434 10 0 00 035776 		OR	PADDR,BIT1	;YES
  5382
  5383	035076	602 01 0 00 100000 		TRNE	AC1,(MFL)	;SET THE M FLAG?
  5384	035077	434 10 0 00 035777 		OR	PADDR,BIT2	;YES
  5385
  5386					; **************************************************
  5387					;SET UP THE PATTERN BYTE #
  5388					; **************************************************
  5389
  5390	035100	200 04 0 00 000001 		MOVE	AC4,AC1		;MAKE COPY OF CASE WORD
  5391	035101	405 04 0 00 000003 		ANDI	AC4,PB		;ISOLATE THE PB#
  5392	035102	242 04 0 00 000000 		LSH	AC4,PBSH	;SHIFT INTO RIGHT-MOST PART OF AC
  5393	035103	137 04 0 00 036514 		DPB	AC4,PATBN	;LOAD PB# INTO PADDR
  5394	035104	541 10 0 00 036307 		HRRI	PADDR,PATTBL	;LOAD BYTE PATTERN TABLE ADDRESS
  5395
  5396					; **************************************************
  5397					;SETUP THE SOURCE AND DESTINATION BYTE POINTERS
  5398					; **************************************************
  5399
  5400	035105	603 01 0 00 000100 		TLNE	AC1,(S44)	;FULL WORD SOURCE BYTES?
  5401	035106	200 11 0 00 037544 		MOVE	SP,[POINT 36,SOURCE]
  5402
  5403	035107	607 01 0 00 000100 		TLNN	AC1,(S44)
  5404	035110	200 11 0 00 037543 		MOVE	SP,[POINT 5,SOURCE] ;SETUP SOURCE POINTER
  5405
  5406	035111	603 01 0 00 000040 		TLNE	AC1,(D44)	;FULL WORD DESTIN BYTE SIZE?
  5407	035112	200 14 0 00 037546 		MOVE	DP,[POINT 36,DESTIN]
  5408
  5409	035113	607 01 0 00 000040 		TLNN	AC1,(D44)
  5410	035114	200 14 0 00 037545 		MOVE	DP,[POINT 5,DESTIN] ;SETUP DESTINATION POINTER
  5411
  5412	035115	402 00 0 00 000013 		SETZM	MA		;SET MARK ADDRESS TO 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 118
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0172

  5413
  5414					; **************************************************
  5415					;SETUP THE E0+1 AND E0+2 (FILL AND FLOAT CHARACTERS) AS FOLLOWS:
  5416					;	IF EQFILL=1 THEN E0+1= 62, E0+2= 63
  5417					;	IF LFILL =1 THEN E0+1=  0, E0+2= 63
  5418					;	IF GFILL =1 THEN E0+1= 62, E0+2=  0
  5419					;	IF NONE OF THE ABOVE ARE SPECIFIED BOTH WORDS WILL BE SET TO 0
  5420					; **************************************************
  5421
  5422	035116	607 01 0 00 001000 		TLNN	AC1,(EQFIL)
  5423	035117	254 00 0 00 035125 		JRST	EDS2
  5424
  5425	035120	201 00 0 00 000062 		MOVEI	AC0,62
  5426	035121	202 00 0 00 035626 		MOVEM	AC0,E0+1
  5427
  5428	035122	201 00 0 00 000063 		MOVEI	AC0,63
  5429	035123	202 00 0 00 035627 		MOVEM	AC0,E0+2
  5430
  5431	035124	254 00 0 00 035176 		JRST	EDSRTN
  5432
  5433	035125	607 01 0 00 000400 	EDS2:	TLNN	AC1,(LFILL)
  5434	035126	254 00 0 00 035134 		JRST	EDS3
  5435
  5436	035127	201 00 0 00 000000 		MOVEI	AC0,0
  5437	035130	202 00 0 00 035626 		MOVEM	AC0,E0+1
  5438
  5439	035131	201 00 0 00 000063 		MOVEI	AC0,63
  5440	035132	202 00 0 00 035627 		MOVEM	AC0,E0+2
  5441
  5442	035133	254 00 0 00 035176 		JRST	EDSRTN
  5443
  5444	035134	607 01 0 00 000200 	EDS3:	TLNN	AC1,(GFILL)
  5445	035135	254 00 0 00 035143 		JRST	EDS4
  5446
  5447	035136	201 00 0 00 000062 		MOVEI	AC0,62
  5448	035137	202 00 0 00 035626 		MOVEM	AC0,E0+1
  5449
  5450	035140	201 00 0 00 000000 		MOVEI	AC0,0
  5451	035141	202 00 0 00 035627 		MOVEM	AC0,E0+2
  5452
  5453	035142	254 00 0 00 035176 		JRST	EDSRTN
  5454
  5455	035143	402 00 0 00 035626 	EDS4:	SETZM	E0+1
  5456	035144	402 00 0 00 035627 		SETZM	E0+2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 119
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0173

  5457
  5458					; **************************************************
  5459					;SETUP SOURCE STRING AND TRANSLATE TABLE IF BYTE TYPE IS SELECT
  5460					; **************************************************
  5461
  5462	035145	200 00 0 00 036333 		MOVE	AC0,BYTYPE	;CURRENT BYTE TYPE
  5463	035146	302 00 0 00 000011 		CAIE	AC0,^D9		;IS IT SELECT?
  5464	035147	254 00 0 00 035176 		JRST	EDSRTN		;NO
  5465
  5466	035150	200 04 0 00 000011 		MOVE	AC4,SP		;COPY OF SOURCE BYTE POINTER
  5467	035151	201 05 0 00 777754 		MOVEI	AC5,-^D20	;SETUP 20 BYTES
  5468	035152	201 00 0 00 000001 		MOVEI	AC0,1		;PATTERN STARTS WITH 1 AND INCREMENTS
  5469
  5470	035153	377 00 0 00 000005 	EDS5:	SOSG	AC5
  5471	035154	254 00 0 00 035160 		JRST	EDS6
  5472
  5473	035155	136 00 0 00 000004 		IDPB	AC0,AC4		;PUT BYTE IN THE STRING
  5474	035156	271 00 0 00 000001 		ADDI	AC0,1		;INCREMENT THE PATTERN
  5475	035157	254 00 0 00 035153 		JRST	EDS5
  5476
  5477					; **************************************************
  5478					;SET THE CODE BITS IN THE TRANSLATION TABLE
  5479					; **************************************************
  5480
  5481	035160	402 00 0 00 000000 	EDS6:	SETZM	AC0		;TEMP LOC FOR CONTROL BITS
  5482	035161	602 01 0 00 020000 		TRNE	AC1,(C1)		;SETUP THE SECOND HALFWORD
  5483	035162	434 00 0 00 036000 		OR	BIT18
  5484
  5485	035163	602 01 0 00 010000 		TRNE	AC1,(C2)
  5486	035164	434 00 0 00 036001 		OR	BIT19
  5487
  5488	035165	602 01 0 00 004000 		TRNE	AC1,(C3)
  5489	035166	434 00 0 00 036002 		OR	BIT20
  5490
  5491	035167	602 01 0 00 002000 		TRNE	AC1,(C4)		;SETUP THE THIRD HALFWORD
  5492	035170	434 00 0 00 035775 		OR	BIT0
  5493
  5494	035171	602 01 0 00 001000 		TRNE	AC1,(C5)
  5495	035172	434 00 0 00 035776 		OR	BIT1
  5496
  5497	035173	602 01 0 00 000400 		TRNE	AC1,(C6)
  5498	035174	434 00 0 00 035777 		OR	BIT2
  5499
  5500	035175	260 17 0 00 031436 		GO	SETRAN		;YES - SET UP THE TRANSLATION TABLE
  5501
  5502	035176	200 00 0 00 040464 	EDSRTN:	MOVE	AC0,[004000,,E1]	;SETUP E0 WORD
  5503	035177	202 00 0 00 035625 		MOVEM	AC0,E0
  5504	035200	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 120
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0174

  5505
  5506					; **********************************************************************
  5507					;*PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
  5508					;*	ENTRY WITH SCRIPT TABLE INDEX IN INSTR
  5509					; **********************************************************************
  5510
  5511	035201	261 17 0 00 000000 	PFINS:	PUT	AC0
  5512	035202	261 17 0 00 000001 		PUT	AC1
  5513
  5514	035203	200 01 0 00 041216 		MOVE	AC1,INSTR	;GET OPCODE INDEX TO TABLE
  5515						PMSG	<^INSTRUCTION: >^
  5516	035204	037 02 0 00 040465 		PSIXM	[SIXBIT\^INSTRUCTION: _\]^
  5517	035205	200 00 0 01 036003 		MOVE	AC0,SCRIPT(AC1)	;GET SIXBIT NAME
  5518	035206	037 00 0 00 000002 		PNTSIX			;PRINT IT
  5519
  5520	035207	037 00 0 00 030242 		PCRL
  5521	035210	262 17 0 00 000001 		GET	AC1
  5522	035211	262 17 0 00 000000 		GET	AC0
  5523	035212	263 17 0 00 000000 		RTN
  5524
  5525					; **********************************************************************
  5526					;*CDBTN -- USED IN CVTDBT PF TEST
  5527					; **********************************************************************
  5528
  5529	035213	402 00 0 00 035711 	CDBTN:	SETZM	E1
  5530	035214	263 17 0 00 000000 		RTN
  5531
  5532					; **********************************************************************
  5533					;*CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR
  5534					; **********************************************************************
  5535
  5536	035215	200 00 0 00 040470 	CBDTRN:	MOVE	AC0,[CBDTR,,E1]
  5537	035216	251 00 0 00 035722 		BLT	AC0,E1+^D9
  5538	035217	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 121
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0175

  5539	
  5540					; **********************************************************************
  5541					;*COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
  5542					;*	FINAL AC BLOCK WITH THAT OF THE SIMULATOR
  5543					; **********************************************************************
  5544
  5545	035220	312 10 0 00 036030 	COMAC:	CAME	AC,RESSV	;COMPARE THE AC BLOCK,PRINT ON ERROR
  5546	035221	254 00 0 00 035233 		JRST	COMFAIL
  5547
  5548	035222	312 11 0 00 036031 		CAME	AC+1,RESSV+1
  5549	035223	254 00 0 00 035233 		JRST	COMFAIL
  5550
  5551	035224	312 12 0 00 036032 		CAME	AC+2,RESSV+2
  5552	035225	254 00 0 00 035233 		JRST	COMFAIL
  5553
  5554	035226	312 13 0 00 036033 		CAME	AC+3,RESSV+3
  5555	035227	254 00 0 00 035233 		JRST	COMFAIL
  5556
  5557	035230	312 14 0 00 036034 		CAME	AC+4,RESSV+4
  5558	035231	254 00 0 00 035233 		JRST	COMFAIL
  5559
  5560	035232	350 00 0 17 000000 		AOS	(P)
  5561	035233	263 17 0 00 000000 	COMFAIL:RTN
  5562
  5563	035234	260 17 0 00 035201 	COMPNT:	GO	PFINS		;PRINT THE INSTRUCTION IN ERROR
  5564
  5565	035235	260 17 0 00 035376 		GO	PNTACB		;PRINT THE AC BLOCKS
  5566
  5567	035236	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 122
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0176

  5568
  5569					; **********************************************************************
  5570					;*CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
  5571					;*	IF IT IS A TRANSLATE INSTRUCTION.
  5572					;*
  5573					;*	TAKE OPCODE IN AC0, RTN +1 ALWAYS
  5574					; **********************************************************************
  5575
  5576	035237	402 00 0 00 041236 	CHKTRN:	SETZM	TRANFG
  5577
  5578	035240	306 00 0 00 000015 		CAIN	AC0,015		;MOVST INSTRUCTION?
  5579	035241	254 00 0 00 035245 		JRST	SETFG		;YES - SET TRANFG
  5580
  5581	035242	306 00 0 00 000011 		CAIN	AC0,011		;CVTDBT INSTRUCTION?
  5582	035243	254 00 0 00 035245 		JRST	SETFG
  5583
  5584	035244	306 00 0 00 000013 		CAIN	AC0,013		;CVTBDT INSTRUCTION?
  5585	035245	476 00 0 00 041236 	SETFG:	SETOM	TRANFG		;SET THE FLAG
  5586	035246	263 17 0 00 000000 		RTN
  5587
  5588					; **********************************************************************
  5589					;*PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
  5590					;*	SET UP RELOCATION DATA IN THE TABLE,
  5591					;*	SET PAGING AND TRAP ENABLE,
  5592					;*	AND LOAD THE USER BASE REGISTER
  5593					; **********************************************************************
  5594
  5595					;A02 fix for MCA20 with 1 quad enabled
  5596			760000			KLPMSK==760000		;PRESERVE CURRENT STATE OF CACHE
  5597			020000			PAGBIT==20000		;PAGE ENABLE BIT
  5598
  5599	035247	202 00 0 00 041232 	CHNGPE:	MOVEM	AC0,SAVZ#	;TAKE NO CHANCES, SAVE AC
  5600	035250	7 010 24 0 00 000000 		CONI	PAG,AC0		;READ CURRENT STATE OF CACHE
  5601	035251	405 00 0 00 760000 		ANDI	AC0,KLPMSK	;TO BUILD NEW CONO
  5602	035252	435 00 0 00 020000 		IORI	AC0,PAGBIT	;SET PAGE ENABLE
  5603	035253	500 00 0 00 040471 		HLL	AC0,[CONO PAG,LTRPEN]	;OP CODE PORTION ONLY
  5604	035254	256 00 0 00 000000 		XCT	AC0		;NOW DO IT
  5605	035255	200 00 0 00 041232 		MOVE	AC0,SAVZ	;THIS PROBABLY ISN'T NECESSARY
  5606	035256	263 17 0 00 000000 		RTN			;GO BACK WHERE YOU CAME FROM
  5607
  5608					;END A02 PATCH
  5609
  5610	035257	402 00 0 00 000200 	PAGSET:	SETZM	200		;CLEAR THE PAGE TABLE
  5611	035260	200 00 0 00 040472 		MOVE	AC0,[200,,201]
  5612	035261	251 00 0 00 000417 		BLT	AC0,417
  5613
  5614	035262	205 00 0 00 740075 		MOVSI	AC0,740000!75	;SET UP THE RELOCATION DATA
  5615	035263	202 00 0 00 000200 		MOVEM	AC0,200		;LOCATIONS 400XXX ==> LOCATIONS 75XXX
  5616
  5617	035264	476 00 0 00 000500 		SETOM	LEUPFW
  5618
  5619					;D02	CONO	PAG,LTRPEN	;SET TRAP AND PAGING ENABLE
  5620	035265	260 17 0 00 035247 		GO	CHNGPE		;A02 ENABLE PAGING PRESERVING CACHE 
  5621
  5622	035266	7 010 14 0 00 040473 		DATAO	PAG,[LLDUSB,,400000] ;LOAD THE USER BASE REGISTER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 122-1
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0177

  5623	035267	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 123
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0178

  5624
  5625					; **********************************************************************
  5626					;*PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
  5627					;*	ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY
  5628					; **********************************************************************
  5629
  5630	035270	200 00 0 03 000000 	PFACB:	MOVE	AC0,(AC3)
  5631	035271	202 00 0 00 000010 		MOVEM	AC
  5632
  5633	035272	200 00 0 03 000001 		MOVE	AC0,1(AC3)
  5634	035273	202 00 0 00 000011 		MOVEM	AC+1
  5635
  5636	035274	200 00 0 03 000002 		MOVE	AC0,2(AC3)
  5637	035275	202 00 0 00 000012 		MOVEM	AC+2
  5638
  5639	035276	200 00 0 03 000003 		MOVE	AC0,3(AC3)
  5640	035277	202 00 0 00 000013 		MOVEM	AC+3
  5641
  5642	035300	200 00 0 03 000004 		MOVE	AC0,4(AC3)
  5643	035301	202 00 0 00 000014 		MOVEM	AC+4
  5644
  5645	035302	402 00 0 00 041213 		SETZM	FILLF		;CLEAR FILLER FAILURE FLAG
  5646
  5647	035303	200 00 0 03 000005 		MOVE	AC0,5(AC3)	;GET INDICATOR OF WHERE E0 WORD WILL GO
  5648	035304	332 00 0 00 000000 		SKIPE	AC0		;AC0 = 0 MEANS THIS CASE NOT FILLER FAIL
  5649	035305	476 00 0 00 041213 		SETOM	FILLF#		;PAGE FAIL SETUP TO OCCUR FOR FILLER
  5650	035306	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 124
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0179

  5651
  5652					; **********************************************************************
  5653					;*SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16
  5654					; **********************************************************************
  5655
  5656	035307	202 00 0 00 041173 	SVAC:	MOVEM	0,AC0SV#	;SAVE AC'S
  5657	035310	202 01 0 00 041203 		MOVEM	1,AC1SV#
  5658	035311	202 02 0 00 041204 		MOVEM	2,AC2SV#
  5659	035312	202 03 0 00 041205 		MOVEM	3,AC3SV#
  5660	035313	202 04 0 00 041206 		MOVEM	4,AC4SV#
  5661	035314	202 05 0 00 041207 		MOVEM	5,AC5SV#
  5662	035315	202 06 0 00 041210 		MOVEM	6,AC6SV#
  5663	035316	202 07 0 00 041211 		MOVEM	7,AC7SV#
  5664	035317	202 10 0 00 041174 		MOVEM	10,AC10SV#
  5665	035320	202 11 0 00 041175 		MOVEM	11,AC11SV#
  5666	035321	202 12 0 00 041176 		MOVEM	12,AC12SV#
  5667	035322	202 13 0 00 041177 		MOVEM	13,AC13SV#
  5668	035323	202 14 0 00 041200 		MOVEM	14,AC14SV#
  5669	035324	202 15 0 00 041201 		MOVEM	15,AC15SV#
  5670	035325	202 16 0 00 041202 		MOVEM	16,AC16SV#
  5671	035326	263 17 0 00 000000 		RTN
  5672
  5673	035327	200 00 0 00 041173 	RSTAC:	MOVE	0,AC0SV		;RESTORE AC'S
  5674	035330	200 01 0 00 041203 		MOVE	1,AC1SV
  5675	035331	200 02 0 00 041204 		MOVE	2,AC2SV
  5676	035332	200 03 0 00 041205 		MOVE	3,AC3SV
  5677	035333	200 04 0 00 041206 		MOVE	4,AC4SV
  5678	035334	200 05 0 00 041207 		MOVE	5,AC5SV
  5679	035335	200 06 0 00 041210 		MOVE	6,AC6SV
  5680	035336	200 07 0 00 041211 		MOVE	7,AC7SV
  5681	035337	200 10 0 00 041174 		MOVE	10,AC10SV
  5682	035340	200 11 0 00 041175 		MOVE	11,AC11SV
  5683	035341	200 12 0 00 041176 		MOVE	12,AC12SV
  5684	035342	200 13 0 00 041177 		MOVE	13,AC13SV
  5685	035343	200 14 0 00 041200 		MOVE	14,AC14SV
  5686	035344	200 15 0 00 041201 		MOVE	15,AC15SV
  5687	035345	200 16 0 00 041202 		MOVE	16,AC16SV
  5688	035346	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 125
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM SUPPORT ROUTINES                                                           SEQ 0180

  5689
  5690					; **********************************************************************
  5691					;*CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS
  5692					; **********************************************************************
  5693
  5694	035347	261 17 0 00 000000 	CLRSTR:	PUT	AC0
  5695
  5696	035350	402 00 0 00 036035 		SETZM	SOURCE
  5697	035351	200 00 0 00 040474 		MOVE	AC0,[SOURCE,,SOURCE+1]
  5698	035352	251 00 0 00 036060 		BLT	AC0,SOURCE+^D19
  5699
  5700	035353	402 00 0 00 036061 		SETZM	DESTIN
  5701	035354	200 00 0 00 040475 		MOVE	AC0,[DESTIN,,DESTIN+1]
  5702	035355	251 00 0 00 036160 		BLT	AC0,DESTIN+^D63
  5703
  5704	035356	402 00 0 00 036161 		SETZM	SIMDES
  5705	035357	200 00 0 00 040253 		MOVE	AC0,[SIMDES,,SIMDES+1]
  5706	035360	251 00 0 00 036260 		BLT	AC0,SIMDES+^D63
  5707
  5708	035361	262 17 0 00 000000 		GET	AC0
  5709	035362	263 17 0 00 000000 		RTN
  5710
  5711					; **********************************************************************
  5712					;*COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS
  5713					; **********************************************************************
  5714
  5715	035363	261 17 0 00 000000 	COMSTR:	PUT	AC0
  5716	035364	261 17 0 00 000001 		PUT	AC1
  5717
  5718	035365	201 01 0 00 000077 		MOVEI	AC1,^D63	;LOOP COUNTER AND WORD INDEX
  5719
  5720	035366	200 00 0 01 036061 	COMS1:	MOVE	AC0,DESTIN(AC1)	;GET DESTINATION WORD
  5721	035367	312 00 0 01 036161 		CAME	AC0,SIMDES(AC1)
  5722	035370	254 00 0 00 035373 		JRST	COMRT		;ERROR RETURN
  5723
  5724	035371	367 01 0 00 035366 		SOJG	AC1,COMS1
  5725
  5726	035372	350 00 0 17 777776 		AOS	-2(P)		;CORRECT RETURN
  5727	035373	262 17 0 00 000001 	COMRT:	GET	AC1
  5728	035374	262 17 0 00 000000 		GET	AC0
  5729	035375	263 17 0 00 000000 		RTN
  5730
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 126
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM PRINT ROUTINES                                                             SEQ 0181

  5731					SUBTTL	PROGRAM PRINT ROUTINES
  5732
  5733					; **********************************************************************
  5734					;*PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS
  5735					; **********************************************************************
  5736
  5737	035376	261 17 0 00 000000 	PNTACB:	PUT	AC0
  5738	035377	261 17 0 00 000001 		PUT	AC1
  5739
  5740						PNTMSG	[ASCIZ/
  5741					AC BLOCKS:	       ---- FINAL ----
  5742					   ORIGINAL	   CORRECT	   ACTUAL
  5743	035400	037 00 0 00 040476 	/]
  5744	035401	515 01 0 00 777773 		HRLZI	AC1,-5		;AC1/- BLOCK LENGTH,,0
  5745
  5746	035402	200 00 0 01 036023 	PNTBLK:	MOVE	ORIGSV(AC1)
  5747	035403	037 13 0 00 000000 		PNTHW
  5748	035404	037 00 0 00 000011 		PNTCI	11
  5749
  5750	035405	200 00 0 01 036030 		MOVE	RESSV(AC1)
  5751	035406	037 13 0 00 000000 		PNTHW
  5752	035407	037 00 0 00 000011 		PNTCI	11
  5753
  5754	035410	200 00 0 01 000010 		MOVE	10(AC1)
  5755	035411	037 13 0 00 000000 		PNTHW
  5756	035412	037 00 0 00 030242 		PCRL
  5757
  5758	035413	253 01 0 00 035402 		AOBJN	AC1,PNTBLK
  5759
  5760	035414	262 17 0 00 000001 		GET	AC1
  5761	035415	262 17 0 00 000000 		GET	AC0
  5762	035416	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 127
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM PRINT ROUTINES                                                             SEQ 0182

  5763
  5764					; **********************************************************************
  5765					;*PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH
  5766					; **********************************************************************
  5767
  5768	035417				PNTINS:	PMSG	<^INSTRUCTION: >^
  5769	035417	037 02 0 00 040465 		PSIXM	[SIXBIT\^INSTRUCTION: _\]^
  5770	035420	135 01 0 00 036261 		LDB	AC1,E0OP	;GET THE CURRENT OPCODE
  5771	035421	200 00 0 01 036003 		MOVE	AC0,SCRIPT(AC1)	;PRINT THE INSTRUCTION NAME
  5772	035422	037 01 0 00 000002 		PNTSXF
  5773	035423	263 17 0 00 000000 		RTN
  5774
  5775					; **********************************************************************
  5776					;*PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE
  5777					; **********************************************************************
  5778
  5779	035424	261 17 0 00 000000 	PNTSKP:	PUT	AC0
  5780
  5781						PMSG	<^INSTRUCTION MADE AN INCORRECT >^
  5782	035425	037 02 0 00 040515 		PSIXM	[SIXBIT\^INSTRUCTION MADE AN INCORRECT _\]^
  5783
  5784	035426	200 00 0 00 040523 		MOVE	AC0,[SIXBIT /SKIP/]
  5785	035427	336 00 0 00 041233 		SKIPN	SKPWD1
  5786	035430	200 00 0 00 040524 		MOVE	AC0,[SIXBIT /N-SKIP/]
  5787	035431	037 01 0 00 000002 		PNTSXF
  5788
  5789						PMSG	< RETURN^>^
  5790	035432	037 02 0 00 040525 		PSIXM	[SIXBIT\ RETURN^_\]^
  5791
  5792	035433	262 17 0 00 000000 		GET	AC0
  5793	035434	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 128
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM PRINT ROUTINES                                                             SEQ 0183

  5794
  5795					; **********************************************************************
  5796					;*PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH
  5797					;*	ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED
  5798					;*	AND AC2 CONTAINS THE BYTE POINTER TO BE USED.
  5799					; **********************************************************************
  5800
  5801	035435	261 17 0 00 000000 	PNTSTR:	PUT	AC0
  5802	035436	261 17 0 00 000001 		PUT	AC1
  5803	035437	261 17 0 00 000004 		PUT	AC4
  5804	035440	037 00 0 00 030242 		PCRL
  5805
  5806	035441	404 01 0 00 040527 		AND	AC1,[77777,,777777] ;MASK OFF FLAGS
  5807
  5808	035442	201 04 0 00 000005 	PNTS1:	MOVEI	AC4,5		;BYTES/ROW COUNTER
  5809
  5810	035443	375 00 0 00 000001 	PNTS2:	SOSGE	AC1		;MORE BYTES TO PRINT?
  5811	035444	254 00 0 00 035453 		JRST	PNTSRT		;NO - RETURN
  5812
  5813	035445	134 00 0 00 000002 		ILDB	AC0,AC2		;YES - BYTE TO AC0
  5814	035446	037 16 0 00 000003 		PNTOCS			;PRINT BYTE IN OCTAL
  5815	035447	037 00 0 00 000011 		PNTCI	11		;TAB
  5816
  5817	035450	366 04 0 00 035443 		SOJN	AC4,PNTS2	;JUMP IF MORE BYTES TO GO IN THIS ROW
  5818
  5819	035451	037 00 0 00 030242 		PCRL			;GO TO NEXT ROW
  5820	035452	254 00 0 00 035442 		JRST	PNTS1		;RELOAD BYTES/ROW COUNTER
  5821
  5822	035453	037 00 0 00 030242 	PNTSRT:	PCRL
  5823	035454	262 17 0 00 000004 		GET	AC4
  5824	035455	262 17 0 00 000001 		GET	AC1
  5825	035456	262 17 0 00 000000 		GET	AC0
  5826	035457	263 17 0 00 000000 		RTN
  5827
  5828					; **********************************************************************
  5829					;*PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)=  CASE TABLE ADDR)
  5830					; **********************************************************************
  5831
  5832	035460	261 17 0 00 000000 	PNTCAS:	PUT	AC0
  5833
  5834						PMSG	<^CASE # >^
  5835	035461	037 02 0 00 040530 		PSIXM	[SIXBIT\^CASE # _\]^
  5836	035462	550 00 0 00 000007 		HRRZ	AC0,AC7		;GET ADDRESS OF CASE
  5837	035463	271 00 0 00 000001 		ADDI	AC0,1		;ADJUST
  5838	035464	274 00 0 00 000001 		SUB	AC0,AC1		;SUBTRACT THE TABLE ADDRESS
  5839	035465	037 15 0 00 000000 		PNTDEC			;PRINT CASE #
  5840	035466	037 00 0 00 030242 		PCRL
  5841
  5842	035467	262 17 0 00 000000 		GET	AC0
  5843	035470	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 129
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM PRINT ROUTINES                                                             SEQ 0184

  5844
  5845					; **********************************************************************
  5846					;*RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)
  5847					; **********************************************************************
  5848
  5849	035471	261 17 0 00 000000 	RANLEN:	PUT	AC0
  5850
  5851	035472	200 00 0 00 041230 		MOVE	AC0,RLEN	;GET LAST LENGTH USED
  5852	035473	306 00 0 00 000024 		CAIN	AC0,^D20	;RLEN REACHED HIGH LIMIT?
  5853	035474	201 00 0 00 000001 		MOVEI	AC0,1		;YES - RESET IT
  5854
  5855	035475	271 00 0 00 000001 		ADDI	AC0,1		;GENERATE NEXT STRING LENGTH
  5856	035476	202 00 0 00 041230 		MOVEM	RLEN		;STORE IT FOR NEXT TIME
  5857
  5858	035477	262 17 0 00 000000 		GET	AC0
  5859	035500	263 17 0 00 000000 		RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 130
DFKCCM	MAC	 8-Jan-87 15:04		PROGRAM PRINT ROUTINES                                                             SEQ 0185

  5860
  5861					; **********************************************************************
  5862					;*PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
  5863					;*	LOCATED AT E1 FOR LENGTH OF 20
  5864					; **********************************************************************
  5865
  5866	035501	261 17 0 00 000000 	PNTRAN:	PUT	AC0
  5867	035502	261 17 0 00 000001 		PUT	AC1
  5868
  5869	035503	515 01 0 00 777766 		HRLZI	AC1,-^D10	;AC1/-# FULL WORDS,,0
  5870	035504	541 01 0 00 035711 		HRRI	AC1,E1		;AC1/-# FULL WORDS,,TRANS TABLE ADDRESS
  5871
  5872						PMSG	<^TRANSLATION TABLE:>^
  5873	035505	037 02 0 00 040532 		PSIXM	[SIXBIT\^TRANSLATION TABLE:_\]^
  5874
  5875						PMSG	<^CODE]FUNCTION]CODE]FUNCTION^>^
  5876	035506	037 02 0 00 040536 		PSIXM	[SIXBIT\^CODE]FUNCTION]CODE]FUNCTION^_\]^
  5877
  5878	035507	204 00 0 01 000000 	PNTRN:	MOVS	AC0,(AC1)	;GET WORD FROM TABLE
  5879	035510	242 00 0 00 777761 		LSH	AC0,-^D15	;SHIFT CODE INTO POSITION
  5880	035511	405 00 0 00 000007 		ANDI	AC0,7		;SAVE ONLY THE CODE
  5881	035512	037 16 0 00 000003 		PNTOCS
  5882	035513	037 00 0 00 000011 		PNTCI	11
  5883
  5884	035514	204 00 0 01 000000 		MOVS	AC0,(AC1)
  5885	035515	405 00 0 00 077777 		ANDI	AC0,77777
  5886	035516	037 16 0 00 000003 		PNTOCS
  5887
  5888						PMSG	<]]>		^;PRINT TWO TABS
  5889	035517	037 02 0 00 040543 		PSIXM	[SIXBIT\]]_\]
  5890
  5891	035520	200 00 0 01 000000 		MOVE	AC0,(AC1)
  5892	035521	242 00 0 00 777761 		LSH	AC0,-^D15
  5893	035522	405 00 0 00 000007 		ANDI	AC0,7
  5894	035523	037 16 0 00 000003 		PNTOCS
  5895	035524	037 00 0 00 000011 		PNTCI	11
  5896
  5897	035525	200 00 0 01 000000 		MOVE	AC0,(AC1)
  5898	035526	405 00 0 00 077777 		ANDI	AC0,77777
  5899	035527	037 16 0 00 000003 		PNTOCS
  5900	035530	037 00 0 00 030242 		PCRL
  5901
  5902	035531	253 01 0 00 035507 		AOBJN	AC1,PNTRN
  5903
  5904	035532	262 17 0 00 000001 		GET	AC1
  5905	035533	262 17 0 00 000000 		GET	AC0
  5906	035534	263 17 0 00 000000 		RTN
  5907
  5908					;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCC1	MAC	23-Dec-86 14:15		GENERAL PROGRAM TABLE STORAGE                                                      SEQ 0186

  5909					SUBTTL GENERAL PROGRAM TABLE STORAGE
  5910
  5911	035535				PGMNAM:	ASCIZ/
  5912	035535	015 012 104 105 103 	DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3 [DFKCC]
  5913	035536	123 131 123 124 105 
  5914	035537	115 061 060 040 113 
  5915	035540	114 061 060 040 101 
  5916	035541	104 126 101 116 103 
  5917	035542	105 104 040 111 116 
  5918	035543	123 124 122 125 103 
  5919	035544	124 111 117 116 040 
  5920	035545	104 111 101 107 116 
  5921	035546	117 123 124 111 103 
  5922	035547	040 043 063 040 133 
  5923	035550	104 106 113 103 103 
  5924	035551	135 015 012 105 130 	EXTENDED INSTRUCTIONS
  5925	035552	124 105 116 104 105 
  5926	035553	104 040 111 116 123 
  5927	035554	124 122 125 103 124 
  5928	035555	111 117 116 123 015 
  5929	035556	012 000 000 000 000 	/
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCC1	MAC	23-Dec-86 14:15		GENERAL PROGRAM TABLE STORAGE                                                      SEQ 0187

  5930
  5931					; **********************************************************************
  5932					;*EXTENDED OPERATOR OPCODE TABLE
  5933					; **********************************************************************
  5934
  5935	035557	777777	777762			OPTAB-OPEND		;NEGATIVE TABLE LENGTH
  5936	035560				OPTAB:
  5937	035560	000000	000001		CMPTAB:	001			;CMPSL
  5938	035561	000000	000002			002			;CMPSE
  5939	035562	000000	000003			003			;CMPSLE
  5940	035563	000000	000005			005			;CMPSGE
  5941	035564	000000	000006			006			;CMPSN
  5942	035565	000000	000007			007			;CMPSG
  5943	035566	000000	000016		MOVTAB:	016			;MOVSLJ
  5944	035567	000000	000017			017			;MOVSRJ
  5945	035570	000000	000014			014			;MOVSO
  5946	035571	000000	000015			015			;MOVST
  5947	035572	000000	000004		EDTTAB:	004			;EDIT
  5948	035573	000000	000010		CDBTAB:	010			;CVTDBO
  5949	035574	000000	000011			011			;CVTDBT
  5950	035575	000000	000012		CBDTAB:	012			;CVTBDO
  5951	035576	000000	000013		OPEND:	013			;CVTBDT
  5952
  5953					; **********************************************************************
  5954					;*SOFTWARE INTERRUPT TABLE AREA
  5955					; **********************************************************************
  5956
  5957					; **************************************************
  5958					;TOPS-10 STORAGE
  5959					; **************************************************
  5960
  5961	035577	000003	034737		UUOBLK:	3,,MUUOH		;TRANSFER CONTROL TO MUUO HANDLER
  5962	035600	400000	000100			1B0!1B29		;SUPPRESS ERROR MSGS AND INTERCEPT FATAL ERRORS
  5963	035601	000000	000000			0
  5964	035602	000000	000000			0
  5965
  5966					; **************************************************
  5967					;TOPS-20 STORAGE
  5968					; **************************************************
  5969
  5970	035603				CHNTAB:	BLOCK	^D15		;CHANNELS 0-14 AREN'T USED
  5971	035622	000001	034737			1,,MUUOH		;SETUP PRIORITY 1 INTERRUPT FOR MUUO TRAP
  5972	035623	000000	035624		LEVTAB:	MUOPC			;HOLDS PC OF INTERRUPT
  5973
  5974	035624	000000	000000		MUOPC:	0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCC1	MAC	23-Dec-86 14:15		GENERAL PROGRAM TABLE STORAGE                                                      SEQ 0188

  5975
  5976					; **********************************************************************
  5977					;*EXECUTE INSTRUCTION STORAGE (EO,E1)
  5978					; **********************************************************************
  5979
  5980	035625				E0:	BLOCK 64
  5981	035711				E1:	BLOCK 64
  5982
  5983	035775	400000	000000		BIT0:	400000,,0
  5984	035776	200000	000000		BIT1:	200000,,0
  5985	035777	100000	000000		BIT2:	100000,,0
  5986	036000	000000	400000		BIT18:	0,,400000
  5987	036001	000000	200000		BIT19:	0,,200000
  5988	036002	000000	100000		BIT20:	0,,100000
  5989
  5990					; **********************************************************************
  5991					;*SIXBIT EXTENDED OPERATOR MNEMONIC TABLE
  5992					; **********************************************************************
  5993
  5994	036003	000000	000000		SCRIPT:	0
  5995	036004	43 55 60 63 54 00 		SIXBIT	/CMPSL/
  5996	036005	43 55 60 63 45 00 		SIXBIT	/CMPSE/
  5997	036006	43 55 60 63 54 45 		SIXBIT	/CMPSLE/
  5998	036007	45 44 51 64 00 00 		SIXBIT	/EDIT/
  5999	036010	43 55 60 63 47 45 		SIXBIT	/CMPSGE/
  6000	036011	43 55 60 63 56 00 		SIXBIT	/CMPSN/
  6001	036012	43 55 60 63 47 00 		SIXBIT	/CMPSG/
  6002	036013	43 66 64 44 42 57 		SIXBIT	/CVTDBO/
  6003	036014	43 66 64 44 42 64 		SIXBIT	/CVTDBT/
  6004	036015	43 66 64 42 44 57 		SIXBIT	/CVTBDO/
  6005	036016	43 66 64 42 44 64 		SIXBIT	/CVTBDT/
  6006	036017	55 57 66 63 57 00 		SIXBIT	/MOVSO/
  6007	036020	55 57 66 63 64 00 		SIXBIT	/MOVST/
  6008	036021	55 57 66 63 54 52 		SIXBIT	/MOVSLJ/
  6009	036022	55 57 66 63 62 52 		SIXBIT	/MOVSRJ/
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCC1	MAC	23-Dec-86 14:15		GENERAL PROGRAM TABLE STORAGE                                                      SEQ 0189

  6010
  6011					; **********************************************************************
  6012					;*ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
  6013					;*	OF EXTEND INSTRUCTIONS
  6014					; **********************************************************************
  6015
  6016	036023				ORIGSV:	BLOCK	5
  6017	036030				RESSV:	BLOCK	5
  6018
  6019					; **********************************************************************
  6020					;*SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
  6021					;*	DESTINATION STRINGS
  6022					; **********************************************************************
  6023
  6024	036035				SOURCE:	BLOCK	^D20
  6025	036061				DESTIN:	BLOCK	^D64
  6026
  6027	036161				SIMDES:	BLOCK	^D64		;SIMULATED DESTINATION STRING
  6028
  6029	036261	33 11 0 00 035625 	E0OP:	POINT 9,E0,8		;BYTE POINTER FOR INSTR OPCODE
  6030
  6031	036262				TEMP:	BLOCK	3 		;TEMPORARY STORAGE
  6032
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0190

  6033					SUBTTL INSTRUCTION SPECIFIC STORAGE AREA
  6034
  6035					; **********************************************************************
  6036					;*SKPTAB -- INSTRUCTION SKIP TABLE
  6037					; **********************************************************************
  6038
  6039	036265	000000	000000		SKPTAB:	0
  6040	036266	000000	000001			LF			;CMPSL
  6041	036267	000000	000002			EF			;CMPSE
  6042	036270	000000	000003			EF!LF			;CMPSLE
  6043	036271	000000	000000			0			;NOT USED (EDIT)
  6044	036272	000000	000006			GF!EF			;CMPSGE
  6045	036273	000000	000005			GF!LF			;CMPSN
  6046	036274	000000	000004			GF			;CMPSG
  6047
  6048					; **********************************************************************
  6049					;*BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS.
  6050					;*	USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS
  6051					;*	INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.)
  6052					; **********************************************************************
  6053
  6054	036275	63 64 57 60 00 00 	BYTAB:	SIXBIT	/STOP/
  6055	036276	45 70 43 50 55 44 		SIXBIT	/EXCHMD/
  6056	036277	63 51 47 63 64 00 		SIXBIT	/SIGST/
  6057	036300	46 54 44 63 45 60 		SIXBIT	/FLDSEP/
  6058	036301	55 45 63 63 41 47 		SIXBIT	/MESSAG/
  6059	036302	56 57 60 00 00 00 		SIXBIT	/NOP/
  6060	036303	63 53 60 55 00 00 		SIXBIT	/SKPM/
  6061	036304	63 53 60 56 00 00 		SIXBIT	/SKPN/
  6062	036305	63 53 60 41 00 00 		SIXBIT	/SKPA/
  6063	036306	63 45 54 45 43 64 		SIXBIT	/SELECT/
  6064
  6065					; **************************************************
  6066					;*PATTBL -- EDIT INSTRUCTION PATTERN TABLE
  6067					; **************************************************
  6068
  6069	036307				PATTBL:	BLOCK	^D20
  6070	036333				BYTYPE:	BLOCK 1			;INDEX TO BYTE TYPE TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0191

  6071
  6072					; **********************************************************************
  6073					;*EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE
  6074					;*	TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X"
  6075					;*	IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED.
  6076					; **********************************************************************
  6077
  6078	036334	000 002 002 002 	ED1WD:	BYTE (9) STOP,SIGST,SIGST,SIGST
  6079	036335	002 000 002 002 		BYTE (9) SIGST,STOP,SIGST,SIGST
  6080	036336	002 002 000 002 		BYTE (9) SIGST,SIGST,STOP,SIGST
  6081	036337	002 002 002 000 		BYTE (9) SIGST,SIGST,SIGST,STOP
  6082
  6083	036340	004 000 000 000 	ED2WD:	BYTE (9) EXCHMD,STOP,STOP,STOP
  6084	036341	004 004 000 000 		BYTE (9) EXCHMD,EXCHMD,STOP,STOP
  6085	036342	004 004 004 000 		BYTE (9) EXCHMD,EXCHMD,EXCHMD,STOP
  6086	036343	004 004 004 004 		BYTE (9) EXCHMD,EXCHMD,EXCHMD,EXCHMD
  6087
  6088	036344	002 000 000 000 	ED3WD:	BYTE (9) SIGST,STOP,STOP,STOP
  6089	036345	000 002 000 000 		BYTE (9) STOP,SIGST,STOP,STOP
  6090	036346	000 000 002 000 		BYTE (9) STOP,STOP,SIGST,STOP
  6091	036347	000 000 000 002 		BYTE (9) STOP,STOP,STOP,SIGST
  6092	036350	003 000 000 000 	ED4WD:	BYTE (9) FLDSEP,STOP,STOP,STOP
  6093	036351	000 003 000 000 		BYTE (9) STOP,FLDSEP,STOP,STOP
  6094	036352	000 000 003 000 		BYTE (9) STOP,STOP,FLDSEP,STOP
  6095	036353	000 000 000 003 		BYTE (9) STOP,STOP,STOP,FLDSEP
  6096
  6097	036354	100 000 000 000 	ED5WD:	BYTE (9) MESSAG,STOP,STOP,STOP
  6098	036355	000 100 000 000 		BYTE (9) STOP,MESSAG,STOP,STOP
  6099	036356	000 000 100 000 		BYTE (9) STOP,STOP,MESSAG,STOP
  6100	036357	000 000 000 100 		BYTE (9) STOP,STOP,STOP,MESSAG
  6101
  6102	036360	005 000 000 000 	ED6WD:	BYTE (9) NOP,STOP,STOP,STOP
  6103	036361	000 005 000 000 		BYTE (9) STOP,NOP,STOP,STOP
  6104	036362	000 000 005 000 		BYTE (9) STOP,STOP,NOP,STOP
  6105	036363	000 000 000 005 		BYTE (9) STOP,STOP,STOP,NOP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0192

  6106
  6107	036364	500 000 000 000 	ED7AWD:	BYTE (9) SKPM,STOP,STOP,STOP
  6108	036365	000 501 000 000 		BYTE (9) STOP,SKPM+1,STOP,STOP
  6109	036366	000 000 502 000 		BYTE (9) STOP,STOP,SKPM+2,STOP
  6110	036367	000 000 000 503 		BYTE (9) STOP,STOP,STOP,SKPM+3
  6111
  6112	036370	600 000 000 000 	ED7BWD:	BYTE (9) SKPN,STOP,STOP,STOP
  6113	036371	000 601 000 000 		BYTE (9) STOP,SKPN+1,STOP,STOP
  6114	036372	000 000 602 000 		BYTE (9) STOP,STOP,SKPN+2,STOP
  6115	036373	000 000 000 603 		BYTE (9) STOP,STOP,STOP,SKPN+3
  6116
  6117	036374	700 000 000 000 	ED7CWD:	BYTE (9) SKPA,STOP,STOP,STOP
  6118	036375	000 701 000 000 		BYTE (9) STOP,SKPA+1,STOP,STOP
  6119	036376	000 000 702 000 		BYTE (9) STOP,STOP,SKPA+2,STOP
  6120	036377	000 000 000 703 		BYTE (9) STOP,STOP,STOP,SKPA+3
  6121
  6122	036400	001 000 000 000 	ED8WD:	BYTE (9) SELECT,STOP,STOP,STOP
  6123	036401	001 001 000 000 		BYTE (9) SELECT,SELECT,STOP,STOP
  6124	036402	001 001 001 000 		BYTE (9) SELECT,SELECT,SELECT,STOP
  6125	036403	001 001 001 001 		BYTE (9) SELECT,SELECT,SELECT,SELECT
  6126
  6127	036404	200 000 000 000 	ED9WD:	BYTE (9) NOP1,STOP,STOP,STOP
  6128	036405	000 300 000 000 		BYTE (9) STOP,NOP2,STOP,STOP
  6129	036406	000 000 400 000 		BYTE (9) STOP,STOP,NOP3,STOP
  6130	036407	000 000 000 006 		BYTE (9) STOP,STOP,STOP,NOP4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0193

  6131
  6132					; **********************************************************************
  6133					;*OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR
  6134					; **********************************************************************
  6135
  6136	036410	000000	000000		OFFTAB:	0
  6137	036411	777777	777720			-1,,-60
  6138	036412	000000	000060			0,,60
  6139	036413	000000	000001			0,,1
  6140
  6141					; **********************************************************************
  6142					;*DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS
  6143					; **********************************************************************
  6144
  6145	036414	440700	040544		DATTAB:	440700,,[ASCIZ/1180591620717411303424/]
  6146	036415	440700	040551			440700,,[ASCIZ/1180591620717411303423/]
  6147	036416	440700	040556			440700,,[ASCIZ/9876540/]
  6148	036417	440700	040560			440700,,[ASCIZ/1/]
  6149	036420	440700	040561			440700,,[ASCIZ/0/]
  6150	036421	440700	040562			440700,,[ASCIZ/697/]
  6151	036422	440700	040563			440700,,[ASCIZ/123456/]
  6152	036423	440700	040544			440700,,[ASCIZ/1180591620717411303424/]
  6153
  6154	036424	000000	000000		CBDTR:	0,,0
  6155	036425	777777	000001			-1,,1
  6156	036426	777776	000002			-2,,2
  6157	036427	777775	000003			-3,,3
  6158	036430	777774	000004			-4,,4
  6159	036431	777773	000005			-5,,5
  6160	036432	777772	000006			-6,,6
  6161	036433	777771	000007			-7,,7
  6162	036434	777770	000010			-^D8,,^D8
  6163	036435	777767	000011			-^D9,,^D9
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0194

  6164
  6165					; **********************************************************************
  6166					;*DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION
  6167					; **********************************************************************
  6168
  6169	036436	440700	036446		DATCBD:	440700,,CB1
  6170	036437	440700	036450			440700,,CB2
  6171	036440	440700	036452			440700,,CB3
  6172	036441	440700	036454			440700,,CB4
  6173	036442	440700	036456			440700,,CB5
  6174	036443	440700	036460			440700,,CB6
  6175	036444	440700	036462			440700,,CB7
  6176	036445	440700	036464			440700,,CB8
  6177
  6178	036446	401160	541620		CB1:	401160,,541620
  6179	036447	717411	303424			717411,,303424
  6180	036450	001160	541620		CB2:	1160,,541620
  6181	036451	317411	303423			317411,,303423
  6182	036452	000000	000000		CB3:	0
  6183	036453	000004	676540			4,,676540
  6184	036454	000000	000000		CB4:	0
  6185	036455	000000	000001			1
  6186	036456	000000	000000		CB5:	0
  6187	036457	000000	000000			0
  6188	036460	400157	013326		CB6:	400157,,13326
  6189	036461	564731	000000			564731,,0
  6190	036462	000000	000000		CB7:	0
  6191	036463	000000	123456			123456
  6192	036464	264026	176051		CB8:	264026,,176051
  6193	036465	136640	000000			136640,,0
  6194
  6195					; **********************************************************************
  6196					;*LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS
  6197					; **********************************************************************
  6198
  6199	036466	000000	000000		LTAB:	0
  6200	036467	000000	000001			1
  6201	036470	000000	000021			21
  6202	036471	000000	000022			22
  6203
  6204					; **********************************************************************
  6205					;*STRING PATTERNS FOR CMPXX INSTRUCTIONS
  6206					; **********************************************************************
  6207
  6208	036472	252525	252525		APAT:	252525,,252525		;PATTERN ALTERNATING ONE'S AND ZERO'S
  6209	036473	777777	777777		BPAT:	777777,,777777		;ALL ONE'S PATTERN
  6210	036474	000000	000001		CPAT:	000000,,000001		;ONE PATTERN
  6211	036475	000000	000000		DPAT:	0			;ZERO PATTERN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0195

  6212
  6213					; **********************************************************************
  6214					;*PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES
  6215					; **********************************************************************
  6216
  6217	036476	000000	034167		PPTAB:	EOPER
  6218	036477	000000	034172			EMESSG
  6219	036500	000000	034176			ENOP
  6220	036501	000000	034176			ENOP
  6221	036502	000000	034176			ENOP
  6222	036503	000000	034200			ESKPM
  6223	036504	000000	034203			ESKPN
  6224	036505	000000	034206			ESKPA
  6225
  6226	036506	000000	034212		PPTAB1:	ESTOP
  6227	036507	000000	034220			ESELCT
  6228	036510	000000	034244			ESIGST
  6229	036511	000000	034247			EFLDSP
  6230	036512	000000	034251			EEXCHD
  6231	036513	000000	034176			ENOP
  6232
  6233					; **********************************************************************
  6234					;*EDIT INSTRUCTION BYTE POINTERS
  6235					; **********************************************************************
  6236
  6237	036514	36 02 0 00 000010 	PATBN:	POINT	2,PADDR,5	;PATTERN BYTE NUMBER IN PADDR
  6238	036515	44 11 0 00 036307 	PATPT:	POINT 9,PATTBL
  6239
  6240	036516	33 11 0 10 000000 	PATBL:	POINT	9,(PADDR),8	;PATTERN BYTE 0
  6241	036517	22 11 0 10 000000 		POINT	9,(PADDR),17	;PATTERN BYTE 1
  6242	036520	11 11 0 10 000000 		POINT	9,(PADDR),26	;PATTERN BYTE 2
  6243	036521	00 11 0 10 000000 		POINT	9,(PADDR),35	;PATTERN BYTE 3
  6244
  6245	036522	000 000 000 000 	STOPWD:	BYTE (9) STOP,STOP,STOP,STOP
  6246	036523	002 002 002 002 	SIGWD:	BYTE (9) SIGST,SIGST,SIGST,SIGST
  6247	036524	001 001 001 001 	SELWD:	BYTE (9) SELECT,SELECT,SELECT,SELECT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0196

  6248
  6249					; **********************************************************************
  6250					;*PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST
  6251					; **********************************************************************
  6252
  6253					; **************************************************
  6254					;STORAGE FOR CMPXX AND MOVXX PAGE FAIL AC'S
  6255					; **************************************************
  6256
  6257	036525	000000	000024		PFBLK1:	^D20			;SRC FAILURE FIRST BYTE
  6258	036526	44 44 0 00 401000 		POINT 36,401000
  6259	036527	000000	000000			0
  6260	036530	000000	000024			^D20
  6261	036531	44 44 0 00 036061 		POINT 36,DESTIN
  6262	036532	000000	000000			0
  6263
  6264	036533	000000	000024			^D20			;SRC FAILURE MIDDLE BYTE
  6265	036534	44 44 0 00 400766 		POINT 36,401000-^D10
  6266	036535	000000	000000			0
  6267	036536	000000	000024			^D20
  6268	036537	44 44 0 00 036061 		POINT 36,DESTIN
  6269	036540	000000	000000			0
  6270
  6271	036541	000000	000024			^D20			;SRC FAILURE LAST BYTE
  6272	036542	44 44 0 00 400755 		POINT 36,401000-^D19
  6273	036543	000000	000000			0
  6274	036544	000000	000024			^D20
  6275	036545	44 44 0 00 036061 		POINT 36,DESTIN
  6276	036546	000000	000000			0
  6277
  6278	036547	000000	000024			^D20			;DST FAILURE FIRST BYTE
  6279	036550	44 44 0 00 036035 		POINT 36,SOURCE
  6280	036551	000000	000000			0
  6281	036552	000000	000024			^D20
  6282	036553	44 44 0 00 401000 		POINT 36,401000
  6283	036554	000000	000000			0
  6284
  6285	036555	000000	000024			^D20			;DST FAILURE MIDDLE BYTE
  6286	036556	44 44 0 00 036035 		POINT 36,SOURCE
  6287	036557	000000	000000			0
  6288	036560	000000	000024			^D20
  6289	036561	44 44 0 00 400766 		POINT 36,401000-^D10
  6290	036562	000000	000000			0
  6291
  6292	036563	000000	000024			^D20			;DST FAILURE LAST BYTE
  6293	036564	44 44 0 00 036035 		POINT 36,SOURCE
  6294	036565	000000	000000			0
  6295	036566	000000	000024			^D20
  6296	036567	44 44 0 00 400755 		POINT 36,401000-^D19
  6297	036570	000000	000000			0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0197

  6298
  6299	036571	000000	000012			^D10			;FILLER FAILURE (E0+1)
  6300	036572	44 44 0 00 036035 		POINT 36,SOURCE
  6301	036573	000000	000000			0
  6302	036574	000000	000024			^D20
  6303	036575	44 44 0 00 036061 		POINT 36,DESTIN
  6304	036576	000000	000001			1
  6305
  6306	036577	000000	000012			^D10			;SRC FAIL MIDDLE
  6307	036600	44 44 0 00 400773 		POINT 36,401000-5
  6308	036601	000000	000000			0
  6309	036602	000000	000024			^D20
  6310	036603	44 44 0 00 036061 		POINT 36,DESTIN
  6311	036604	000000	000000			0
  6312
  6313	036605	000000	000024		PFBLK2:	^D20
  6314	036606	44 44 0 00 401000 		POINT 36,401000
  6315	036607	000000	000000			0
  6316	036610	000000	000000			0
  6317	036611	000000	000000			0
  6318	036612	000000	000000			0
  6319
  6320	036613	000000	000024			^D20
  6321	036614	44 44 0 00 400766 		POINT 36,401000-^D10
  6322	036615	000000	000000			0
  6323	036616	000000	000000			0
  6324	036617	000000	000000			0
  6325	036620	000000	000000			0
  6326
  6327	036621	000000	000024			^D20
  6328	036622	44 44 0 00 400755 		POINT 36,401000-^D19
  6329	036623	000000	000000			0
  6330	036624	000000	000000			0
  6331	036625	000000	000000			0
  6332	036626	000000	000000			0
  6333
  6334	036627	000000	000000		PFBLK3:	0
  6335	036630	000000	000000			0
  6336	036631	000000	000000			0
  6337	036632	000000	000024			^D20
  6338	036633	44 44 0 00 401000 		POINT 36,401000
  6339	036634	000000	000000			0
  6340
  6341	036635	000000	012345			12345
  6342	036636	000000	012345			12345
  6343	036637	000000	000000			0
  6344	036640	000000	000024			^D20
  6345	036641	44 44 0 00 400766 		POINT 36,401000-^D10
  6346	036642	000000	000000			0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0198

  6347
  6348	036643	700000	036307		PFBLK4:	700000,,PATTBL
  6349	036644	44 44 0 00 401000 		POINT 36,401000
  6350	036645	000000	000000			0
  6351	036646	000000	000000			0
  6352	036647	44 44 0 00 036061 		POINT 36,DESTIN
  6353	036650	000000	000000			0
  6354
  6355	036651	700000	036307			700000,,PATTBL
  6356	036652	44 44 0 00 400766 		POINT 36,401000-^D10
  6357	036653	000000	000000			0
  6358	036654	000000	000000			0
  6359	036655	44 44 0 00 036061 		POINT 36,DESTIN
  6360	036656	000000	000000			0
  6361
  6362	036657	700000	036307			700000,,PATTBL
  6363	036660	44 44 0 00 400755 		POINT 36,401000-^D19
  6364	036661	000000	000000			0
  6365	036662	000000	000000			0
  6366	036663	44 44 0 00 036061 		POINT 36,DESTIN
  6367	036664	000000	000000			0
  6368
  6369	036665	700000	036307			700000,,PATTBL
  6370	036666	44 44 0 00 036035 		POINT 36,SOURCE
  6371	036667	000000	000000			0
  6372	036670	000000	000000			0
  6373	036671	44 44 0 00 401000 		POINT 36,401000
  6374	036672	000000	000000			0
  6375
  6376	036673	700000	036307			700000,,PATTBL
  6377	036674	44 44 0 00 036035 		POINT 36,SOURCE
  6378	036675	000000	000000			0
  6379	036676	000000	000000			0
  6380	036677	44 44 0 00 400766 		POINT 36,401000-^D10
  6381	036700	000000	000000			0
  6382
  6383	036701	700000	036307			700000,,PATTBL
  6384	036702	44 44 0 00 036035 		POINT 36,SOURCE
  6385	036703	000000	000000			0
  6386	036704	000000	000000			0
  6387	036705	44 44 0 00 400755 		POINT 36,401000-^D19
  6388	036706	000000	000000			0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 14
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0199

  6389
  6390					; **********************************************************************
  6391					;*PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE 
  6392					;*	RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.
  6393					; **********************************************************************
  6394
  6395	036707	000000	000024		PFRES1:	24			;STORAGE FOR CMPXX,MOVXX PF RESULTS
  6396	036710	444400	401000			444400,,401000
  6397	036711	000000	000000			0
  6398	036712	000000	000024			24
  6399	036713	444400	036061			444400,,DESTIN
  6400
  6401	036714	000000	000012			12
  6402	036715	444400	401000			444400,,401000
  6403	036716	000000	000000			0
  6404	036717	000000	000012			12
  6405	036720	004400	036072			004400,,DESTIN+11
  6406
  6407	036721	000000	000001			1
  6408	036722	444400	401000			444400,,401000
  6409	036723	000000	000000			0
  6410	036724	000000	000001			1
  6411	036725	004400	036103			004400,,DESTIN+22
  6412
  6413	036726	000000	000024			24
  6414	036727	444400	036035			444400,,SOURCE
  6415	036730	000000	000000			0
  6416	036731	000000	000024			24
  6417	036732	444400	401000			444400,,401000
  6418
  6419	036733	000000	000012			12
  6420	036734	444400	036047			444400,,SOURCE+12
  6421	036735	000000	000000			0
  6422	036736	000000	000012			12
  6423	036737	444400	401000			444400,,401000
  6424
  6425	036740	000000	000001			1
  6426	036741	444400	036060			444400,,SOURCE+23
  6427	036742	000000	000000			0
  6428	036743	000000	000001			1
  6429	036744	444400	401000			444400,,401000
  6430
  6431	036745	000000	000012			12
  6432	036746	444400	036035			444400,,SOURCE
  6433	036747	000000	000000			0
  6434	036750	000000	000024			24
  6435	036751	444400	036061			444400,,DESTIN
  6436
  6437	036752	000000	000005			5
  6438	036753	444400	401000			444400,,401000
  6439	036754	000000	000000			0
  6440	036755	000000	000005			5
  6441	036756	004400	036077			004400,,DESTIN+16
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 15
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0200

  6442
  6443	036757	400000	000024		PFRES2:	400000,,24
  6444	036760	444400	401000			444400,,401000
  6445	036761	000000	000000			0
  6446	036762	000000	000000			0
  6447	036763	000000	000000			0
  6448
  6449	036764	400000	000012			400000,,12
  6450	036765	444400	401000			444400,,401000
  6451	036766	000000	000000			0
  6452	036767	000000	000000			0
  6453	036770	000000	000000			0
  6454
  6455	036771	400000	000001			400000,,1
  6456	036772	444400	401000			444400,,401000
  6457	036773	000000	000000			0
  6458	036774	000000	000000			0
  6459	036775	000000	000000			0
  6460
  6461	036776	000000	000000		PFRES3:	0
  6462	036777	000000	000001			1
  6463	037000	000000	000000			0
  6464	037001	000000	000001			1
  6465	037002	444400	401000			444400,,401000
  6466
  6467	037003	133462	676501			133462,,676501
  6468	037004	443250	574000			443250,,574000
  6469	037005	000000	000000			0
  6470	037006	200000	000005			200000,,5
  6471	037007	444400	401000			444400,,401000
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 16
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION SPECIFIC STORAGE AREA                                                  SEQ 0201

  6472
  6473	037010	700000	036307		PFRES4:	700000,,PATTBL
  6474	037011	444400	401000			444400,,401000
  6475	037012	000000	000000			0
  6476	037013	000000	000000			0
  6477	037014	444400	036061			444400,,DESTIN
  6478
  6479	037015	720000	036311			720000,,PATTBL+2
  6480	037016	444400	401000			444400,,401000
  6481	037017	000000	000000			0
  6482	037020	000000	000000			0
  6483	037021	004400	036072			4400,,DESTIN+11
  6484
  6485	037022	730000	036313			730000,,PATTBL+4
  6486	037023	444400	401000			444400,,401000
  6487	037024	000000	000000			0
  6488	037025	000000	000000			0
  6489	037026	004400	036103			4400,,DESTIN+22
  6490
  6491	037027	700000	036307			700000,,PATTBL
  6492	037030	444400	036035			444400,,SOURCE
  6493	037031	000000	000000			0
  6494	037032	000000	000000			0
  6495	037033	444400	401000			444400,,401000
  6496
  6497	037034	720000	036311			720000,,PATTBL+2
  6498	037035	444400	036047			444400,,SOURCE+12
  6499	037036	000000	000000			0
  6500	037037	000000	000000			0
  6501	037040	444400	401000			444400,,401000
  6502
  6503	037041	730000	036313			730000,,PATTBL+4
  6504	037042	444400	036060			444400,,SOURCE+23
  6505	037043	000000	000000			0
  6506	037044	000000	000000			0
  6507	037045	444400	401000			444400,,401000
  6508
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 17
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION CASE TABLES                                                            SEQ 0202

  6509					SUBTTL	INSTRUCTION CASE TABLES
  6510
  6511					; **********************************************************************
  6512					;*CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS
  6513					; **********************************************************************
  6514
  6515	037046	777777	777732			CMPCAS-CMPEND		;NEGATIVE TABLE LENGTH
  6516	037047	410140	000000		CMPCAS:	EQLEN!S44!D44!ALTPT
  6517	037050	410000	000000			EQLEN!ALTPT
  6518	037051	404100	000000			EQLEN!S44!ONEPT
  6519	037052	404050	000000			EQLEN!D44!ONEPT!ALD
  6520	037053	402020	000000			EQLEN!ONESPT!ALS
  6521	037054	402040	000000			EQLEN!D44!ONESPT
  6522
  6523	037055	203000	000000			SZERO!ONESPT!EQFIL
  6524	037056	204300	000000			SZERO!S44!ONEPT!GFILL
  6525	037057	211150	000000			SZERO!S44!D44!ALTPT!EQFIL!ALD
  6526	037060	210500	000000			SZERO!S44!ALTPT!LFILL
  6527	037061	204240	000000			SZERO!D44!ONEPT!GFILL
  6528	037062	203140	000000			SZERO!S44!D44!ONESPT!EQFIL
  6529	037063	103000	000000			DZERO!ONESPT!EQFIL
  6530	037064	105140	000000			DZERO!S44!D44!ONEPT!EQFIL
  6531	037065	111160	000000			DZERO!S44!D44!ALTPT!EQFIL!ALS
  6532	037066	110240	000000			DZERO!D44!ALTPT!GFILL
  6533	037067	110400	000000			DZERO!ALTPT!LFILL
  6534	037070	103100	000000			DZERO!S44!ONESPT!EQFIL
  6535	037071	051000	000000			DSZER!ALTPT!EQFIL
  6536	037072	043100	000000			DSZER!S44!ONESPT!EQFIL
  6537	037073	043040	000000			DSZER!D44!ONESPT!EQFIL
  6538	037074	045140	000000			DSZER!S44!D44!ONEPT!EQFIL
  6539
  6540	037075	031000	000000			SLONG!ALTPT!EQFIL
  6541	037076	031020	000000			SLONG!ALTPT!EQFIL!ALS
  6542	037077	024300	000000			SLONG!S44!ONEPT!GFILL
  6543	037100	022440	000000			SLONG!D44!ONESPT!LFILL
  6544	037101	030400	000000			SLONG!ALTPT!LFILL
  6545	037102	022300	000000			SLONG!S44!ONESPT!GFILL
  6546	037103	025040	000000			SLONG!D44!ONEPT!EQFIL
  6547	037104	030210	000000			SLONG!ALTPT!ALD!GFILL
  6548
  6549	037105	011000	000000			ALTPT!EQFIL
  6550	037106	011010	000000			ALTPT!EQFIL!ALD
  6551	037107	004300	000000			S44!ONEPT!GFILL
  6552	037110	002440	000000			D44!ONESPT!LFILL
  6553	037111	010400	000000			ALTPT!LFILL
  6554	037112	002300	000000			S44!ONESPT!GFILL
  6555	037113	005040	000000			D44!ONEPT!EQFIL
  6556	037114	010220	000000			ALTPT!ALS!GFILL
  6557	037115	404000	000000		CMPEND:	EQLEN!ONEPT!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 18
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION CASE TABLES                                                            SEQ 0203

  6558
  6559					; **********************************************************************
  6560					;*MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS
  6561					; **********************************************************************
  6562
  6563	037116	777777	777753			MOVCAS-MOVEND		;NEGATIVE TABLE LENGTH
  6564	037117	404140	702004		MOVCAS:	EQLEN!S44!D44!ONEPT!OFF1!SFL1!MFL1!NFL1!C5A
  6565	037120	410000	570004			EQLEN!ALTPT!OFF1!SFL1!NFL1!C1A!C2A!C3A
  6566	037121	410040	400004			EQLEN!D44!ALTPT!OFF1!SFL1
  6567	037122	402100	120004			EQLEN!S44!ONESPT!OFF1!NFL1!C2A
  6568	037123	402000	202000			EQLEN!ONESPT!MFL1!C5A
  6569	037124	402000	003004			EQLEN!ONESPT!OFF1!C5A!C6A
  6570
  6571	037125	202400	420000			SZERO!ONESPT!LFILL!SFL1!C2A
  6572	037126	211040	500000			SZERO!D44!ALTPT!EQFIL!SFL1!NFL1
  6573	037127	204300	000000			SZERO!S44!ONEPT!GFILL
  6574	037130	050400	060000			DSZER!LFILL!ALTPT!C1A!C2A
  6575
  6576	037131	031000	740000			SLONG!EQFIL!ALTPT!SFL1!NFL1!MFL1!C1A
  6577	037132	023040	400000			SLONG!D44!EQFIL!ONESPT!SFL1
  6578	037133	030504	440000			SLONG!S44!ALTPT!LFILL!AFS!SFL1!C1A
  6579	037134	024340	477000			SLONG!S44!D44!GFILL!ONEPT!SFL1!C1A!C2A!C3A!C4A!C5A!C6A
  6580	037135	022540	700004			SLONG!S44!D44!OFF1!ONESPT!LFILL!SFL1!NFL1!MFL1
  6581	037136	031020	000004			SLONG!EQFIL!ALTPT!ALS!OFF1
  6582
  6583	037137	011000	400000			EQFIL!ALTPT!SFL1
  6584	037140	003040	240000			D44!EQFIL!ONESPT!MFL1!C1A
  6585	037141	010504	140000			S44!ALTPT!LFILL!AFS!NFL1!C1A
  6586	037142	004340	000000			S44!D44!GFILL!ONEPT
  6587	037143	002540	704004			S44!D44!OFF1!ONESPT!LFILL!SFL1!MFL1!NFL1!C4A
  6588	037144	011020	000004		MOVEND:	EQFIL!ALTPT!ALS!OFF1
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 19
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION CASE TABLES                                                            SEQ 0204

  6589
  6590					; **********************************************************************
  6591					;*CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS
  6592					; **********************************************************************
  6593
  6594	037145	777777	777741			CDBCAS-CDBEND		;NEGATIVE TABLE LENGTH
  6595	037146	000100	200004		CDBCAS:	OFF1!S44!MFL1
  6596	037147	000100	100124			DATA2!OFF1!STRL1!S44!NFL1
  6597	037150	000100	300244			DATA1!OFF1!STRL0!S44!MFL1!NFL1
  6598	037151	000100	700360			DATA1!DATA2!STRL0!STRL1!S44!SFL1!MFL1!NFL1
  6599	037152	000100	400404			DATA0!OFF1!S44!SFL1
  6600	037153	000100	600524			DATA0!DATA2!OFF1!STRL1!S44!SFL1!MFL1
  6601	037154	000100	500644			DATA0!DATA1!OFF1!STRL0!S44!SFL1!NFL1
  6602	037155	000100	200764			DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!MFL1
  6603	037156	000000	100064			OFF1!STRL0!STRL1!NFL1
  6604	037157	000000	300144			DATA2!OFF1!STRL0!MFL1!NFL1
  6605	037160	000000	400224			DATA1!OFF1!STRL1!SFL1
  6606	037161	000000	600304			DATA1!DATA2!OFF1!SFL1!MFL1
  6607	037162	000100	500464			DATA0!OFF1!STRL0!STRL1!S44!SFL1!NFL1
  6608	037163	000100	000560			DATA0!DATA2!STRL0!STRL1!S44
  6609	037164	000100	000644			DATA0!DATA1!OFF1!STRL0!S44
  6610	037165	000100	700744			DATA0!DATA1!DATA2!OFF1!STRL0!S44!SFL1!NFL1!MFL1
  6611	037166	000100	400044			OFF1!STRL0!S44!SFL1
  6612	037167	000000	000164			DATA2!OFF1!STRL0!STRL1
  6613	037170	000000	100220			DATA1!STRL1!NFL1
  6614	037171	000000	200364			DATA1!DATA2!OFF1!STRL0!STRL1!MFL1
  6615	037172	000000	400464			DATA0!OFF1!STRL0!STRL1!SFL1
  6616	037173	000000	500564			DATA0!DATA2!OFF1!STRL0!STRL1!SFL1!NFL1
  6617	037174	000100	600664			DATA0!DATA1!OFF1!STRL0!STRL1!S44!SFL1!MFL1
  6618	037175	000100	700764			DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1!NFL1!MFL1
  6619	037176	000100	000064			OFF1!STRL0!STRL1!S44
  6620	037177	000100	000164			DATA2!OFF1!STRL0!STRL1!S44
  6621	037200	000100	000264			DATA1!OFF1!STRL0!STRL1!S44
  6622	037201	000100	000364			DATA1!DATA2!OFF1!STRL0!STRL1!S44
  6623	037202	000000	000464			DATA0!OFF1!STRL0!STRL1
  6624	037203	000000	000564			DATA0!DATA2!OFF1!STRL0!STRL1
  6625	037204	000100	000664			DATA0!DATA1!OFF1!STRL0!STRL1!S44
  6626	037205	000100	000764		CDBEND:	DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 20
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION CASE TABLES                                                            SEQ 0205

  6627
  6628					; **********************************************************************
  6629					;*CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS
  6630					; **********************************************************************
  6631
  6632	037206	777777	777741			CBDCAS-CBDEND		;NEGATIVE TABLE LENGTH
  6633	037207	000100	000000		CBDCAS:	S44
  6634	037210	000100	000120			DATA2!STRL1!S44
  6635	037211	000100	000240			DATA1!STRL0!S44
  6636	037212	000100	400360			DATA1!DATA2!STRL0!STRL1!S44!SFL1
  6637	037213	000000	400400			DATA0!SFL1
  6638	037214	000100	000520			DATA0!DATA2!STRL1!S44
  6639	037215	000100	000640			DATA0!DATA1!STRL0!S44
  6640	037216	000100	400764			DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1
  6641	037217	000000	000060			STRL0!STRL1
  6642	037220	000000	400140			DATA2!STRL0!SFL1
  6643	037221	000000	000220			DATA1!STRL1
  6644	037222	000000	000300			DATA1!DATA2
  6645	037223	000100	400460			DATA0!STRL0!STRL1!S44!SFL1
  6646	037224	000100	400560			DATA0!DATA2!STRL0!STRL1!S44!SFL1
  6647	037225	000100	000640			DATA0!DATA1!STRL0!S44
  6648	037226	000100	000740			DATA0!DATA1!DATA2!STRL0!S44
  6649	037227	000100	000040			STRL0!S44
  6650	037230	000000	000160			DATA2!STRL0!STRL1
  6651	037231	000000	000220			DATA1!STRL1
  6652	037232	000000	000360			DATA1!DATA2!STRL0!STRL1
  6653	037233	000000	000460			DATA0!STRL0!STRL1
  6654	037234	000000	000560			DATA0!DATA2!STRL0!STRL1
  6655	037235	000100	000660			DATA0!DATA1!STRL0!STRL1!S44
  6656	037236	000100	000760			DATA0!DATA1!DATA2!STRL0!STRL1!S44
  6657	037237	000100	000060			STRL0!STRL1!S44
  6658	037240	000100	000160			DATA2!STRL0!STRL1!S44
  6659	037241	000100	000260			DATA1!STRL0!STRL1!S44
  6660	037242	000100	000360			DATA1!DATA2!STRL0!STRL1!S44
  6661	037243	000000	000460			DATA0!STRL0!STRL1
  6662	037244	000000	000560			DATA0!DATA2!STRL0!STRL1
  6663	037245	000100	000660			DATA0!DATA1!STRL0!STRL1!S44
  6664	037246	000000	000760		CBDEND:	DATA0!DATA1!DATA2!STRL0!STRL1
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 21
DFKCC1	MAC	23-Dec-86 14:15		INSTRUCTION CASE TABLES                                                            SEQ 0206

  6665
  6666					; **********************************************************************
  6667					;*EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION
  6668					; **********************************************************************
  6669
  6670	037247	777777	777741			EDTCAS-EDTEND		;NEGATIVE TABLE LENGTH
  6671	037250	001000	000000		EDTCAS:	EQFIL
  6672	037251	000400	201000			MFL1!LFILL!C6A
  6673	037252	000200	102000			NFL1!GFILL!C5A
  6674	037253	001000	303000			MFL1!NFL1!EQFIL!C5A!C6A
  6675	037254	000400	404000			SFL1!LFILL!C4A
  6676	037255	000200	605000			SFL1!MFL1!GFILL!C4A!C6A
  6677	037256	001000	506000			SFL1!NFL1!EQFIL!C4A!C5A
  6678	037257	000400	707000			SFL1!MFL1!NFL1!LFILL!C4A!C5A!C6A
  6679	037260	000200	000001			PB2!GFILL
  6680	037261	001000	210001			MFL1!PB2!EQFIL!C3A
  6681	037262	000400	120001			NFL1!PB2!LFILL!C2A
  6682	037263	000200	330001			MFL1!NFL1!PB2!GFILL!C2A!C3A
  6683	037264	001000	440001			SFL1!PB2!EQFIL!C1A
  6684	037265	000400	650001			SFL1!MFL1!PB2!LFILL!C1A!C3A
  6685	037266	000200	560001			SFL1!NFL1!PB2!GFILL!C1A!C2A
  6686	037267	001000	770001			SFL1!MFL1!NFL1!PB2!EQFIL!C1A!C2A!C3A
  6687	037270	000400	000002			PB1!LFILL
  6688	037271	000200	241002			MFL1!PB1!GFILL!C1A!C6A
  6689	037272	001000	122002			NFL1!PB1!EQFIL!C2A!C5A
  6690	037273	000400	311002			MFL1!NFL1!PB1!LFILL!C3A!C6A
  6691	037274	000200	477002			SFL1!PB1!GFILL!C1A!C2A!C3A!C4A!C5A!C6A
  6692	037275	001000	650002			SFL1!MFL1!PB1!EQFIL!C1A!C3A
  6693	037276	000400	542002			SFL1!NFL1!PB1!LFILL!C1A!C5A
  6694	037277	000200	740002			SFL1!MFL1!NFL1!PB1!GFILL!C1A
  6695	037300	001000	020003			PB1!PB2!EQFIL!C2A
  6696	037301	000400	210003			MFL1!PB1!PB2!LFILL!C3A
  6697	037302	000200	104003			NFL1!PB1!PB2!GFILL!C4A
  6698	037303	001000	302003			MFL1!NFL1!PB1!PB2!EQFIL!C5A
  6699	037304	000400	401003			SFL1!PB1!PB2!LFILL!C6A
  6700	037305	000200	640003			SFL1!MFL1!PB1!PB2!GFILL!C1A
  6701	037306	001000	520003			SFL1!NFL1!PB1!PB2!EQFIL!C2A
  6702	037307	000400	710003		EDTEND:	SFL1!MFL1!NFL1!PB1!PB2!LFILL!C3A
  6703
  6704	037310	000000	400000		MCASE:	SFL1			;CASE WORD FOR SPECIAL MESSAGES
  6705
  6706	037311	000000	000011		MESSGS:	11			;OUT OF SEQUENCE ASCII CODES
  6707	037312	000000	000012			12
  6708	037313	000000	000013			13
  6709	037314	000000	000014			14
  6710	037315	000000	000015			15
  6711	037316	000000	000032			32
  6712
  6713					;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0207

  6714					SUBTTL	*STOR* RESERVED STORAGE, JULY 19,1977
  6715
  6716					;PROGRAM LITERALS
  6717
  6718						XLIST
  6719					IFNDEF	$LPAPER,<LIST>
  6720	037317					LIT
  6721	037317	45 70 64 45 56 44 
  6722	037320	45 44 00 57 60 45 
  6723	037321	62 41 64 57 62 00 
  6724	037322	45 70 45 43 65 64 
  6725	037323	51 57 56 00 64 62 
  6726	037324	41 60 00 64 45 63 
  6727	037325	64 77 00 00 00 00 
  6728	037326	260 17 0 00 034773 
  6729	037327	33 11 0 00 030645 
  6730	037330	76 43 57 62 62 45 
  6731	037331	43 64 35 51 56 63 
  6732	037332	64 62 65 43 64 51 
  6733	037333	57 56 77 00 00 00 
  6734	037334	51 54 54 45 47 41 
  6735	037335	54 00 51 56 63 64 
  6736	037336	62 65 43 64 51 57 
  6737	037337	56 00 45 70 45 43 
  6738	037340	65 64 51 57 56 00 
  6739	037341	46 41 51 54 45 44 
  6740	037342	00 64 57 00 43 41 
  6741	037343	65 63 45 00 54 65 
  6742	037344	65 57 77 00 00 00 
  6743	037345	037317	037330
  6744	037346	030645	000000
  6745	037347	037334	000000
  6746	037350	51 54 54 45 47 41 
  6747	037351	54 00 45 70 64 45 
  6748	037352	56 44 45 44 00 57 
  6749	037353	60 45 62 41 64 57 
  6750	037354	62 00 64 62 41 60 
  6751	037355	00 64 45 63 64 77 
  6752	037356	57 65 64 00 57 46 
  6753	037357	00 62 41 56 47 45 
  6754	037360	00 57 60 45 62 41 
  6755	037361	64 57 62 00 46 41 
  6756	037362	51 54 45 44 00 64 
  6757	037363	57 00 64 62 41 60 
  6758	037364	77 00 00 00 00 00 
  6759	037365	037350	037330
  6760	037366	035625	000000
  6761	037367	037356	000000
  6762	037370	51 54 54 45 47 41 
  6763	037371	54 00 41 43 00 46 
  6764	037372	51 45 54 44 00 42 
  6765	037373	51 64 63 00 31 15 
  6766	037374	21 22 00 46 41 51 
  6767	037375	54 45 44 00 64 57 
  6768	037376	00 64 62 41 60 77 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-1
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0208

  6769	037377	037350	037330
  6770	037400	035625	000000
  6771	037401	037370	000000
  6772	037402	51 54 54 45 47 41 
  6773	037403	54 00 41 43 00 46 
  6774	037404	51 45 54 44 00 64 
  6775	037405	62 41 60 00 64 45 
  6776	037406	63 64 77 00 00 00 
  6777	037407	43 00 0 00 036035 
  6778	037410	43 00 0 00 036061 
  6779	037411	76 43 57 62 62 45 
  6780	037412	43 64 35 63 57 65 
  6781	037413	62 43 45 00 54 45 
  6782	037414	56 47 64 50 77 00 
  6783	037415	51 54 54 45 47 41 
  6784	037416	54 00 63 57 65 62 
  6785	037417	43 45 00 54 45 56 
  6786	037420	47 64 50 00 51 56 
  6787	037421	00 43 57 55 60 41 
  6788	037422	62 45 00 51 56 63 
  6789	037423	64 62 00 44 51 44 
  6790	037424	56 07 64 00 43 41 
  6791	037425	65 63 45 00 64 62 
  6792	037426	41 60 77 00 00 00 
  6793	037427	037402	037411
  6794	037430	000010	000000
  6795	037431	037415	000000
  6796	037432	76 43 57 62 62 45 
  6797	037433	43 64 35 44 45 63 
  6798	037434	64 51 56 41 64 51 
  6799	037435	57 56 00 54 45 56 
  6800	037436	47 64 50 77 00 00 
  6801	037437	51 54 54 45 47 41 
  6802	037440	54 00 44 45 63 64 
  6803	037441	51 56 00 54 45 56 
  6804	037442	47 64 50 00 51 56 
  6805	037443	00 43 57 55 60 41 
  6806	037444	62 45 00 51 56 63 
  6807	037445	64 62 00 44 51 44 
  6808	037446	56 07 64 00 43 41 
  6809	037447	65 63 45 00 64 62 
  6810	037450	41 60 77 00 00 00 
  6811	037451	037402	037432
  6812	037452	000013	000000
  6813	037453	037437	000000
  6814	037454	51 54 54 45 47 41 
  6815	037455	54 00 44 54 45 56 
  6816	037456	00 51 56 00 55 57 
  6817	037457	66 45 00 63 64 62 
  6818	037460	51 56 47 00 51 56 
  6819	037461	63 64 62 00 44 51 
  6820	037462	44 56 07 64 00 43 
  6821	037463	41 65 63 45 00 64 
  6822	037464	62 41 60 77 00 00 
  6823	037465	037402	037432
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-2
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0209

  6824	037466	000013	000000
  6825	037467	037454	000000
  6826	037470	76 43 57 62 62 45 
  6827	037471	43 64 35 60 41 64 
  6828	037472	64 45 62 56 00 60 
  6829	037473	57 51 56 64 45 62 
  6830	037474	77 00 00 00 00 00 
  6831	037475	51 54 54 45 47 41 
  6832	037476	54 00 60 41 64 64 
  6833	037477	45 62 56 00 60 57 
  6834	037500	51 56 64 45 62 00 
  6835	037501	46 51 45 54 44 00 
  6836	037502	51 56 00 45 44 51 
  6837	037503	64 00 51 56 63 64 
  6838	037504	62 00 44 51 44 56 
  6839	037505	07 64 00 43 41 65 
  6840	037506	63 45 00 64 62 41 
  6841	037507	60 77 00 00 00 00 
  6842	037510	037402	037470
  6843	037511	000010	000000
  6844	037512	037475	000000
  6845	037513	43 57 55 60 41 62 
  6846	037514	45 00 63 64 62 51 
  6847	037515	56 47 00 51 56 63 
  6848	037516	64 62 65 43 64 51 
  6849	037517	57 56 00 64 45 63 
  6850	037520	64 77 00 00 00 00 
  6851	037521	76 43 55 60 70 70 
  6852	037522	00 60 41 64 64 45 
  6853	037523	62 56 00 56 57 64 
  6854	037524	00 63 45 54 45 43 
  6855	037525	64 45 44 00 15 00 
  6856	037526	41 42 57 62 64 51 
  6857	037527	56 47 00 43 65 62 
  6858	037530	62 45 56 64 00 43 
  6859	037531	41 63 45 77 00 00 
  6860	037532	76 41 42 57 62 64 
  6861	037533	51 56 47 00 43 65 
  6862	037534	62 62 45 56 64 00 
  6863	037535	43 41 63 45 00 15 
  6864	037536	00 46 51 54 54 45 
  6865	037537	62 00 60 41 64 64 
  6866	037540	45 62 56 00 56 57 
  6867	037541	64 00 63 60 45 43 
  6868	037542	51 46 51 45 44 77 
  6869	037543	44 05 0 00 036035 
  6870	037544	44 44 0 00 036035 
  6871	037545	44 05 0 00 036061 
  6872	037546	44 44 0 00 036061 
  6873	037547	000010	036023
  6874	037550	037513	037364
  6875	037551	000000	000000
  6876	037552	037364	034310
  6877	037553	55 57 66 45 00 63 
  6878	037554	64 62 51 56 47 00 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-3
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0210

  6879	037555	51 56 63 64 62 65 
  6880	037556	43 64 51 57 56 00 
  6881	037557	64 45 63 64 77 00 
  6882	037560	76 55 57 66 70 70 
  6883	037561	00 60 41 64 64 45 
  6884	037562	62 56 00 56 57 64 
  6885	037563	00 63 45 54 45 43 
  6886	037564	64 45 44 00 15 00 
  6887	037565	41 42 57 62 64 51 
  6888	037566	56 47 00 43 65 62 
  6889	037567	62 45 56 64 00 43 
  6890	037570	41 63 45 77 00 00 
  6891	037571	037553	037364
  6892	037572	000000	000000
  6893	037573	037364	034374
  6894	037574	000001	000001
  6895	037575	43 57 56 66 45 62 
  6896	037576	64 00 44 45 43 51 
  6897	037577	55 41 54 00 64 57 
  6898	037600	00 42 51 56 41 62 
  6899	037601	71 00 51 56 63 64 
  6900	037602	62 65 43 64 51 57 
  6901	037603	56 00 64 45 63 64 
  6902	037604	77 00 00 00 00 00 
  6903	037605	44 10 0 00 036035 
  6904	037606	000777	777777
  6905	037607	037575	037364
  6906	037610	000000	000000
  6907	037611	037364	034465
  6908	037612	400000	400001
  6909	037613	43 57 56 66 45 62 
  6910	037614	64 00 42 51 56 41 
  6911	037615	62 71 00 64 57 00 
  6912	037616	44 45 43 51 55 41 
  6913	037617	54 00 51 56 63 64 
  6914	037620	62 65 43 64 51 57 
  6915	037621	56 00 64 45 63 64 
  6916	037622	77 00 00 00 00 00 
  6917	037623	44 10 0 00 036061 
  6918	037624	037613	037364
  6919	037625	000000	000000
  6920	037626	037364	034546
  6921	037627	45 44 51 64 00 51 
  6922	037630	56 63 64 62 65 43 
  6923	037631	64 51 57 56 00 64 
  6924	037632	45 63 64 77 00 00 
  6925	037633	45 44 51 64 00 15 
  6926	037634	00 63 64 57 60 00 
  6927	037635	10 20 20 21 11 00 
  6928	037636	60 41 64 64 45 62 
  6929	037637	56 00 42 71 64 45 
  6930	037640	00 64 71 60 45 00 
  6931	037641	64 45 63 64 77 00 
  6932	037642	036307	036310
  6933	037643	44 00 0 00 036035 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-4
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0211

  6934	037644	037633	037364
  6935	037645	000000	000000
  6936	037646	037364	034627
  6937	037647	45 44 51 64 00 15 
  6938	037650	00 45 70 43 50 55 
  6939	037651	44 00 10 20 20 24 
  6940	037652	11 00 60 41 64 64 
  6941	037653	45 62 56 00 42 71 
  6942	037654	64 45 00 64 71 60 
  6943	037655	45 00 64 45 63 64 
  6944	037656	77 00 00 00 00 00 
  6945	037657	037647	037364
  6946	037660	000000	000000
  6947	037661	037364	034627
  6948	037662	45 44 51 64 00 15 
  6949	037663	00 63 51 47 63 64 
  6950	037664	00 10 20 20 22 11 
  6951	037665	00 60 41 64 64 45 
  6952	037666	62 56 00 42 71 64 
  6953	037667	45 00 64 71 60 45 
  6954	037670	00 64 45 63 64 77 
  6955	037671	037662	037364
  6956	037672	000000	000000
  6957	037673	037364	034627
  6958	037674	45 44 51 64 00 15 
  6959	037675	00 46 54 44 63 45 
  6960	037676	60 00 10 20 20 23 
  6961	037677	11 00 60 41 64 64 
  6962	037700	45 62 56 00 42 71 
  6963	037701	64 45 00 64 71 60 
  6964	037702	45 00 64 45 63 64 
  6965	037703	77 00 00 00 00 00 
  6966	037704	037674	037364
  6967	037705	000000	000000
  6968	037706	037364	034627
  6969	037707	45 44 51 64 00 15 
  6970	037710	00 55 45 63 63 41 
  6971	037711	47 00 10 21 70 70 
  6972	037712	11 00 60 41 64 64 
  6973	037713	45 62 56 00 42 71 
  6974	037714	64 45 00 64 71 60 
  6975	037715	45 00 64 45 63 64 
  6976	037716	77 00 00 00 00 00 
  6977	037717	037707	037364
  6978	037720	000000	000000
  6979	037721	037364	034627
  6980	037722	037311	035626
  6981	037723	45 44 51 64 00 15 
  6982	037724	00 56 57 60 00 10 
  6983	037725	20 20 25 11 00 60 
  6984	037726	41 64 64 45 62 56 
  6985	037727	00 42 71 64 45 00 
  6986	037730	64 71 60 45 00 64 
  6987	037731	45 63 64 77 00 00 
  6988	037732	037723	037364
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-5
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0212

  6989	037733	000000	000000
  6990	037734	037364	034627
  6991	037735	45 44 51 64 00 15 
  6992	037736	00 63 53 60 55 00 
  6993	037737	10 25 70 70 11 00 
  6994	037740	60 41 64 64 45 62 
  6995	037741	56 00 42 71 64 45 
  6996	037742	00 64 71 60 45 00 
  6997	037743	64 45 63 64 63 77 
  6998	037744	037735	037364
  6999	037745	000000	000000
  7000	037746	037364	034627
  7001	037747	45 44 51 64 00 15 
  7002	037750	00 63 53 60 56 00 
  7003	037751	10 26 70 70 11 00 
  7004	037752	60 41 64 64 45 62 
  7005	037753	56 00 42 71 64 45 
  7006	037754	00 64 71 60 45 00 
  7007	037755	64 45 63 64 63 77 
  7008	037756	037747	037364
  7009	037757	000000	000000
  7010	037760	037364	034627
  7011	037761	45 44 51 64 00 15 
  7012	037762	00 63 53 60 41 00 
  7013	037763	10 27 70 70 11 00 
  7014	037764	60 41 64 64 45 62 
  7015	037765	56 00 42 71 64 45 
  7016	037766	00 64 71 60 45 00 
  7017	037767	64 45 63 64 63 77 
  7018	037770	037761	037364
  7019	037771	000000	000000
  7020	037772	037364	034627
  7021	037773	45 44 51 64 00 15 
  7022	037774	00 63 45 54 45 43 
  7023	037775	64 00 10 20 20 21 
  7024	037776	11 00 60 41 64 64 
  7025	037777	45 62 56 00 42 71 
  7026	040000	64 45 00 64 71 60 
  7027	040001	45 00 64 45 63 64 
  7028	040002	77 00 00 00 00 00 
  7029	040003	037773	037364
  7030	040004	000000	000000
  7031	040005	037364	034627
  7032	040006	45 44 51 64 00 15 
  7033	040007	00 56 57 56 00 44 
  7034	040010	45 46 51 56 45 44 
  7035	040011	00 60 41 64 64 45 
  7036	040012	62 56 00 42 71 64 
  7037	040013	45 00 64 71 60 45 
  7038	040014	00 64 45 63 64 77 
  7039	040015	040006	037364
  7040	040016	000000	000000
  7041	040017	037364	034627
  7042	040020	60 41 47 45 00 46 
  7043	040021	41 51 54 00 64 45 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-6
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0213

  7044	040022	63 64 51 56 47 77 
  7045	040023	60 41 47 45 00 46 
  7046	040024	41 51 54 00 64 45 
  7047	040025	63 64 51 56 47 00 
  7048	040026	57 46 00 64 50 45 
  7049	040027	00 43 57 55 60 41 
  7050	040030	62 45 00 51 56 63 
  7051	040031	64 62 65 43 64 51 
  7052	040032	57 56 63 77 00 00 
  7053	040033	075750	075751
  7054	040034	33 11 0 00 400777 
  7055	040035	000000	032710
  7056	040036	000000	032705
  7057	040037	76 45 70 64 45 56 
  7058	040040	44 00 51 56 63 64 
  7059	040041	00 44 51 44 00 56 
  7060	040042	57 64 00 60 41 47 
  7061	040043	45 00 46 41 51 54 
  7062	040044	77 00 00 00 00 00 
  7063	040045	040023	040037
  7064	040046	000000	000000
  7065	040047	037364	035417
  7066	040050	76 45 70 64 45 56 
  7067	040051	44 00 51 56 63 64 
  7068	040052	00 60 41 47 45 00 
  7069	040053	46 41 51 54 45 44 
  7070	040054	00 55 57 62 45 00 
  7071	040055	64 50 41 56 00 57 
  7072	040056	56 43 45 77 00 00 
  7073	040057	040023	040050
  7074	040060	000000	000000
  7075	040061	037364	035042
  7076	040062	76 51 56 64 45 62 
  7077	040063	55 45 44 51 41 64 
  7078	040064	45 00 60 41 47 45 
  7079	040065	00 46 41 51 54 00 
  7080	040066	62 45 63 65 54 64 
  7081	040067	63 00 45 62 62 57 
  7082	040070	62 77 00 00 00 00 
  7083	040071	040023	040062
  7084	040072	000000	000000
  7085	040073	037364	035042
  7086	040074	76 46 51 56 41 54 
  7087	040075	00 41 43 07 63 00 
  7088	040076	51 56 43 57 62 62 
  7089	040077	45 43 64 77 00 00 
  7090	040100	040023	040074
  7091	040101	000000	000000
  7092	040102	037364	035234
  7093	040103	60 41 47 45 00 46 
  7094	040104	41 51 54 00 64 45 
  7095	040105	63 64 51 56 47 00 
  7096	040106	57 46 00 55 57 66 
  7097	040107	45 00 63 64 62 51 
  7098	040110	56 47 00 51 56 63 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-7
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0214

  7099	040111	64 62 65 43 64 51 
  7100	040112	57 56 63 77 00 00 
  7101	040113	000000	033040
  7102	040114	000000	033035
  7103	040115	040103	040037
  7104	040116	000000	000000
  7105	040117	037364	035417
  7106	040120	040103	040050
  7107	040121	000000	000000
  7108	040122	037364	035042
  7109	040123	040103	040062
  7110	040124	000000	000000
  7111	040125	037364	035042
  7112	040126	040103	040074
  7113	040127	000000	000000
  7114	040130	037364	035234
  7115	040131	60 41 47 45 00 46 
  7116	040132	41 51 54 00 64 45 
  7117	040133	63 64 51 56 47 00 
  7118	040134	57 46 00 43 66 64 
  7119	040135	44 42 70 00 51 56 
  7120	040136	63 64 62 65 43 64 
  7121	040137	51 57 56 63 77 00 
  7122	040140	000000	033170
  7123	040141	000000	033165
  7124	040142	040131	040037
  7125	040143	000000	000000
  7126	040144	037364	035417
  7127	040145	040131	040050
  7128	040146	000000	000000
  7129	040147	037364	035042
  7130	040150	040131	040062
  7131	040151	000000	000000
  7132	040152	037364	035042
  7133	040153	040131	040074
  7134	040154	000000	000000
  7135	040155	037364	035234
  7136	040156	60 41 47 45 00 46 
  7137	040157	41 51 54 00 64 45 
  7138	040160	63 64 51 56 47 00 
  7139	040161	57 46 00 43 66 64 
  7140	040162	42 44 57 00 51 56 
  7141	040163	63 64 62 65 43 64 
  7142	040164	51 57 56 63 77 00 
  7143	040165	000000	033320
  7144	040166	000000	033315
  7145	040167	040156	040037
  7146	040170	000000	000000
  7147	040171	037364	035417
  7148	040172	040156	040050
  7149	040173	000000	000000
  7150	040174	037364	035042
  7151	040175	040156	040062
  7152	040176	000000	000000
  7153	040177	037364	035042
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-8
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0215

  7154	040200	040156	040074
  7155	040201	000000	000000
  7156	040202	037364	035234
  7157	040203	60 41 47 45 00 46 
  7158	040204	41 51 54 00 64 45 
  7159	040205	63 64 51 56 47 00 
  7160	040206	57 46 00 64 50 45 
  7161	040207	00 45 44 51 64 00 
  7162	040210	51 56 63 64 62 65 
  7163	040211	43 64 51 57 56 63 
  7164	040212	77 00 00 00 00 00 
  7165	040213	000000	033450
  7166	040214	000000	033445
  7167	040215	040203	040037
  7168	040216	000000	000000
  7169	040217	037364	035417
  7170	040220	040203	040050
  7171	040221	000000	000000
  7172	040222	037364	035042
  7173	040223	040203	040062
  7174	040224	000000	000000
  7175	040225	037364	035042
  7176	040226	040203	040074
  7177	040227	000000	000000
  7178	040230	037364	035234
  7179	040231	036023	000010
  7180	040232	000010	036030
  7181	040233	300600	000014
  7182	040234	17 02 0 00 000007 
  7183	040235	255 00 0 00 000000 
  7184	040236	254 00 0 00 033673 
  7185	040237	621 06 0 00 100000 
  7186	040240	661 06 0 00 100000 
  7187	040241	003300	000010
  7188	040242	777000	000000
  7189	040243	255 00 0 00 000000 
  7190	040244	254 00 0 00 034002 
  7191	040245	621 10 0 00 100000 
  7192	040246	661 10 0 00 100000 
  7193	040247	00 11 0 00 000013 
  7194	040250	047121	545107
  7195	040251	104130	000000
  7196	040252	036023	036030
  7197	040253	036161	036162
  7198	040254	17 02 0 00 000003 
  7199	040255	255 00 0 00 000000 
  7200	040256	254 00 0 00 034213 
  7201	040257	621 10 0 00 100000 
  7202	040260	661 10 0 00 100000 
  7203	040261	76 63 57 65 62 43 
  7204	040262	45 00 63 64 62 51 
  7205	040263	56 47 32 00 77 00 
  7206	040264	76 44 45 63 64 51 
  7207	040265	56 00 63 64 62 51 
  7208	040266	56 47 32 00 77 00 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-9
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0216

  7209	040267	76 45 20 13 21 32 
  7210	040270	00 77 00 00 00 00 
  7211	040271	76 45 20 13 22 32 
  7212	040272	00 77 00 00 00 00 
  7213	040273	000000	000100
  7214	040274	76 63 57 65 62 43 
  7215	040275	45 00 63 64 62 51 
  7216	040276	56 47 32 77 00 00 
  7217	040277	00 11 0 00 036023 
  7218	040300	76 43 57 62 62 45 
  7219	040301	43 64 00 44 45 63 
  7220	040302	64 51 56 41 64 51 
  7221	040303	57 56 00 63 64 62 
  7222	040304	51 56 47 32 77 00 
  7223	040305	76 41 43 64 65 41 
  7224	040306	54 00 44 45 63 64 
  7225	040307	51 56 41 64 51 57 
  7226	040310	56 00 63 64 62 51 
  7227	040311	56 47 32 77 00 00 
  7228	040312	777777	777700
  7229	040313	76 63 51 55 65 54 
  7230	040314	41 64 45 44 00 44 
  7231	040315	45 63 64 51 56 41 
  7232	040316	64 51 57 56 00 63 
  7233	040317	64 62 51 56 47 32 
  7234	040320	77 00 00 00 00 00 
  7235	040321	00 11 0 00 036026 
  7236	040322	76 60 41 64 64 45 
  7237	040323	62 56 00 42 71 64 
  7238	040324	45 00 64 71 60 45 
  7239	040325	00 65 56 44 45 62 
  7240	040326	00 64 45 63 64 32 
  7241	040327	00 77 00 00 00 00 
  7242	040330	76 45 20 13 21 32 
  7243	040331	77 00 00 00 00 00 
  7244	040332	76 45 20 13 22 32 
  7245	040333	77 00 00 00 00 00 
  7246	040334	000400	000431
  7247	040335	035623	035603
  7248	040336	55 65 65 57 00 57 
  7249	040337	60 45 62 41 64 51 
  7250	040340	57 56 77 00 00 00 
  7251	040341	76 43 57 62 62 45 
  7252	040342	43 64 35 55 65 65 
  7253	040343	57 76 41 43 64 65 
  7254	040344	41 54 35 55 65 65 
  7255	040345	57 00 60 43 77 00 
  7256	040346	65 56 45 70 60 45 
  7257	040347	43 64 45 44 00 55 
  7258	040350	65 65 57 00 57 43 
  7259	040351	43 65 62 45 44 77 
  7260	040352	040336	040341
  7261	040353	000001	000002
  7262	040354	040346	000000
  7263	040355	76 43 57 62 62 45 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-10
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0217

  7264	040356	43 64 35 55 65 65 
  7265	040357	57 00 60 43 77 00 
  7266	040360	040336	040355
  7267	040361	000001	000000
  7268	040362	040346	000000
  7269	040363	54 65 65 57 00 57 
  7270	040364	60 45 62 41 64 51 
  7271	040365	57 56 77 00 00 00 
  7272	040366	76 43 57 62 62 45 
  7273	040367	43 64 35 54 65 65 
  7274	040370	57 76 41 43 64 65 
  7275	040371	41 54 35 54 65 65 
  7276	040372	57 00 60 43 77 00 
  7277	040373	65 56 45 70 60 45 
  7278	040374	43 64 45 44 00 54 
  7279	040375	65 65 57 00 57 43 
  7280	040376	43 65 62 45 44 77 
  7281	040377	040363	040366
  7282	040400	000001	000002
  7283	040401	040373	000000
  7284	040402	740075	740076
  7285	040403	60 41 47 45 00 46 
  7286	040404	41 51 54 77 00 00 
  7287	040405	60 41 47 45 00 46 
  7288	040406	41 51 54 00 60 43 
  7289	040407	00 67 62 57 56 47 
  7290	040410	77 00 00 00 00 00 
  7291	040411	040403	040405
  7292	040412	000006	000007
  7293	040413	037364	035201
  7294	040414	51 56 64 45 62 55 
  7295	040415	45 44 51 41 64 45 
  7296	040416	00 41 43 00 51 56 
  7297	040417	43 57 62 62 45 43 
  7298	040420	64 77 00 00 00 00 
  7299	040421	040403	040414
  7300	040422	000007	000010
  7301	040423	037364	035201
  7302	040424	51 56 64 45 62 55 
  7303	040425	45 44 51 41 64 45 
  7304	040426	00 41 43 13 21 00 
  7305	040427	51 56 43 57 62 62 
  7306	040430	45 43 64 77 00 00 
  7307	040431	040403	040424
  7308	040432	000007	000011
  7309	040433	037364	035201
  7310	040434	51 56 64 45 62 55 
  7311	040435	45 44 51 41 64 45 
  7312	040436	00 41 43 13 22 00 
  7313	040437	51 56 43 57 62 62 
  7314	040440	45 43 64 77 00 00 
  7315	040441	040403	040434
  7316	040442	000007	000012
  7317	040443	037364	035201
  7318	040444	51 56 64 45 62 55 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-11
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0218

  7319	040445	45 44 51 41 64 45 
  7320	040446	00 41 43 13 23 00 
  7321	040447	51 56 43 57 62 62 
  7322	040450	45 43 64 77 00 00 
  7323	040451	040403	040444
  7324	040452	000007	000013
  7325	040453	037364	035201
  7326	040454	51 56 64 45 62 55 
  7327	040455	45 44 51 41 64 45 
  7328	040456	00 41 43 13 24 00 
  7329	040457	51 56 43 57 62 62 
  7330	040460	45 43 64 77 00 00 
  7331	040461	040403	040454
  7332	040462	000007	000014
  7333	040463	037364	035201
  7334	040464	004000	035711
  7335	040465	76 51 56 63 64 62 
  7336	040466	65 43 64 51 57 56 
  7337	040467	32 00 77 00 00 00 
  7338	040470	036424	035711
  7339	040471	7 002 4 0 00 020000 
  7340	040472	000200	000201
  7341	040473	100000	400000
  7342	040474	036035	036036
  7343	040475	036061	036062
  7344	040476	015 012 101 103 040 
  7345	040477	102 114 117 103 113 
  7346	040500	123 072 011 040 040 
  7347	040501	040 040 040 040 040 
  7348	040502	055 055 055 055 040 
  7349	040503	106 111 116 101 114 
  7350	040504	040 055 055 055 055 
  7351	040505	015 012 040 040 040 
  7352	040506	117 122 111 107 111 
  7353	040507	116 101 114 011 040 
  7354	040510	040 040 103 117 122 
  7355	040511	122 105 103 124 011 
  7356	040512	040 040 040 101 103 
  7357	040513	124 125 101 114 015 
  7358	040514	012 000 000 000 000 
  7359	040515	76 51 56 63 64 62 
  7360	040516	65 43 64 51 57 56 
  7361	040517	00 55 41 44 45 00 
  7362	040520	41 56 00 51 56 43 
  7363	040521	57 62 62 45 43 64 
  7364	040522	00 77 00 00 00 00 
  7365	040523	63 53 51 60 00 00 
  7366	040524	56 15 63 53 51 60 
  7367	040525	00 62 45 64 65 62 
  7368	040526	56 76 77 00 00 00 
  7369	040527	077777	777777
  7370	040530	76 43 41 63 45 00 
  7371	040531	03 00 77 00 00 00 
  7372	040532	76 64 62 41 56 63 
  7373	040533	54 41 64 51 57 56 
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2	MACRO %53C(1255) 13:18 12-Jan-87 Page 1-12
STOR	KLM	29-Sep-86 15:27		*STOR* RESERVED STORAGE, JULY 19,1977                                              SEQ 0219

  7374	040534	00 64 41 42 54 45 
  7375	040535	32 77 00 00 00 00 
  7376	040536	76 43 57 44 45 75 
  7377	040537	46 65 56 43 64 51 
  7378	040540	57 56 75 43 57 44 
  7379	040541	45 75 46 65 56 43 
  7380	040542	64 51 57 56 76 77 
  7381	040543	75 75 77 00 00 00 
  7382	040544	061 061 070 060 065 
  7383	040545	071 061 066 062 060 
  7384	040546	067 061 067 064 061 
  7385	040547	061 063 060 063 064 
  7386	040550	062 064 000 000 000 
  7387	040551	061 061 070 060 065 
  7388	040552	071 061 066 062 060 
  7389	040553	067 061 067 064 061 
  7390	040554	061 063 060 063 064 
  7391	040555	062 063 000 000 000 
  7392	040556	071 070 067 066 065 
  7393	040557	064 060 000 000 000 
  7394	040560	061 000 000 000 000 
  7395	040561	060 000 000 000 000 
  7396	040562	066 071 067 000 000 
  7397	040563	061 062 063 064 065 
  7398	040564	066 000 000 000 000 
  7399						LIST
  7400	041072	000000	000000		ENDSLD:	0
  7401
  7402					IFDEF	DEBUG,<
  7403	041073				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7404					>
  7405
  7406					;PROGRAM VARIABLES
  7407	041173					VAR
  7408
  7409					IFDEF	PGMEND,<
  7410	041237	000000	000000		END:	0
  7411			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 041240
CPU TIME USED 00:22.372

72P CORE USED

ABORT	   489#
AC	    67#	  1195	  1196	  1204	  1220	  1221	  1229	  1269	  1285	  1290	  1297	  1300	  1301	  1305     SEQ 0220
	  1313	  1316	  1335	  1340	  1348	  1375	  1376	  1380	  1388	  1613	  1624	  1863	  1874	  2058
	  2067	  2215	  2224	  2318	  2397	  2474	  2546	  2624	  2670	  2679	  2752	  2824	  2896	  2968
	  3045	  3117	  3256	  3258	  3279	  3286	  3417	  3419	  3440	  3447	  3578	  3580	  3601	  3608
	  3739	  3741	  3762	  3769	  3900	  3902	  3923	  3930	  4036	  4037	  4107	  4108	  4110	  4111
	  4251	  4252	  4357	  4358	  4419	  4499	  4500	  5545	  5548	  5551	  5554	  5557	  5631	  5634
	  5637	  5640	  5643
AC0	    84#	  1557	  1558	  1567	  1568	  1582	  1585	  1590	  1598	  1603	  1613	  1614	  1663	  1677
	  1790	  1792	  1798	  1800	  1803	  1804	  1807	  1808	  1827	  1850	  1863	  1864	  1903	  1905
	  1933	  1936	  2011	  2012	  2015	  2017	  2037	  2058	  2059	  2127	  2130	  2194	  2215	  2216
	  2277	  2281	  2294	  2295	  2306	  2307	  2356	  2360	  2373	  2374	  2385	  2386	  2433	  2437
	  2450	  2451	  2462	  2463	  2505	  2509	  2522	  2523	  2534	  2535	  2583	  2587	  2600	  2601
	  2612	  2613	  2645	  2646	  2648	  2652	  2653	  2659	  2660	  2661	  2664	  2665	  2670	  2671
	  2711	  2715	  2728	  2729	  2740	  2741	  2783	  2787	  2800	  2801	  2812	  2813	  2855	  2859
	  2872	  2873	  2884	  2885	  2927	  2931	  2944	  2945	  2956	  2957	  3004	  3008	  3021	  3022
	  3033	  3034	  3076	  3080	  3093	  3094	  3105	  3106	  3178	  3179	  3202	  3203	  3206	  3209
	  3210	  3211	  3212	  3214	  3215	  3230	  3231	  3235	  3236	  3241	  3244	  3249	  3251	  3252
	  3254	  3258	  3259	  3262	  3264	  3331	  3332	  3333	  3334	  3363	  3364	  3367	  3370	  3371
	  3372	  3373	  3375	  3376	  3391	  3392	  3396	  3397	  3402	  3405	  3410	  3412	  3413	  3415
	  3419	  3420	  3423	  3425	  3492	  3493	  3494	  3495	  3524	  3525	  3528	  3531	  3532	  3533
	  3534	  3536	  3537	  3552	  3553	  3557	  3558	  3563	  3566	  3571	  3573	  3574	  3576	  3580
	  3581	  3584	  3586	  3653	  3654	  3655	  3656	  3685	  3686	  3689	  3692	  3693	  3694	  3695
	  3697	  3698	  3713	  3714	  3718	  3719	  3724	  3727	  3732	  3734	  3735	  3737	  3741	  3742
	  3745	  3747	  3814	  3815	  3816	  3817	  3846	  3847	  3850	  3853	  3854	  3855	  3856	  3858
	  3859	  3874	  3875	  3879	  3880	  3885	  3888	  3893	  3895	  3896	  3898	  3902	  3903	  3906
	  3908	  3975	  3976	  3977	  3978	  4036	  4037	  4092	  4094	  4107	  4108	  4237	  4238	  4251
	  4252	  4335	  4337	  4357	  4358	  4363	  4419	  4420	  4477	  4478	  4480	  4481	  4487	  4488
	  4499	  4500	  4568	  4569	  4704	  4705	  4729	  4765	  4773	  4775	  4776	  4797	  4798	  4799
	  4803	  4806	  4839	  4840	  4852	  4860	  4861	  4888	  4912	  4925	  4927	  4928	  4946	  4947
	  4948	  4952	  4966	  4996	  5007	  5009	  5010	  5031	  5033	  5035	  5039	  5042	  5048	  5057
	  5058	  5088	  5097	  5109	  5160	  5168	  5175	  5179	  5219	  5224	  5297	  5298	  5425	  5426
	  5428	  5429	  5436	  5437	  5439	  5440	  5447	  5448	  5450	  5451	  5462	  5463	  5468	  5473
	  5474	  5481	  5502	  5503	  5511	  5517	  5522	  5536	  5537	  5578	  5581	  5584	  5599	  5600
	  5601	  5602	  5603	  5604	  5605	  5611	  5612	  5614	  5615	  5630	  5633	  5636	  5639	  5642
	  5647	  5648	  5694	  5697	  5698	  5701	  5702	  5705	  5706	  5708	  5715	  5720	  5721	  5728
	  5737	  5761	  5771	  5779	  5784	  5786	  5792	  5801	  5813	  5825	  5832	  5836	  5837	  5838
	  5842	  5849	  5851	  5852	  5853	  5855	  5858	  5866	  5878	  5879	  5880	  5884	  5885	  5891
	  5892	  5893	  5897	  5898	  5905
AC0SV	  5656#	  5656	  5673
AC1	    85#	  1121	  1123	  1124	  1853	  1893	  1896	  1897	  1900	  1901	  1905	  1909	  1946	  1947
	  1956	  1959	  1962	  1965	  1995	  2027	  2085	  2088	  2089	  2092	  2095	  2098	  2101	  2140
	  2141	  2184	  2300	  2301	  2379	  2380	  2456	  2457	  2528	  2529	  2606	  2607	  2649	  2650
	  2652	  2654	  2656	  2662	  2734	  2735	  2806	  2807	  2878	  2879	  2950	  2951	  3027	  3028
	  3099	  3100	  3194	  3195	  3202	  3235	  3338	  3355	  3356	  3363	  3396	  3499	  3516	  3517
	  3524	  3557	  3660	  3677	  3678	  3685	  3718	  3821	  3838	  3839	  3846	  3879	  3982	  4730
	  4735	  4739	  4744	  4764	  4807	  4812	  4816	  4817	  4822	  4823	  4829	  4830	  4851	  4889
	  4892	  4896	  4897	  4911	  4967	  4972	  4978	  4979	  4985	  4986	  4995	  5043	  5051	  5066
	  5074	  5080	  5108	  5138	  5152	  5153	  5194	  5202	  5205	  5207	  5212	  5236	  5244	  5370
	  5377	  5380	  5383	  5390	  5400	  5403	  5406	  5409	  5422	  5433	  5444	  5482	  5485	  5488
	  5491	  5494	  5497	  5512	  5514	  5517	  5521	  5716	  5718	  5720	  5721	  5724	  5727	  5738
	  5744	  5746	  5750	  5754	  5758	  5760	  5770	  5771	  5802	  5806	  5810	  5824	  5838	  5867
	  5869	  5870	  5878	  5884	  5891	  5897	  5902	  5904
AC10	    92#	  5274	  5332
AC10SV	  5664#	  5664	  5681                                                                                             SEQ 0221
AC11	    93#	  5278	  5337
AC11SV	  5665#	  5665	  5682
AC12	    94#	  4717	  4788	  4873	  4940	  5022	  5282	  5342
AC12SV	  5666#	  5666	  5683
AC13	    95#	  4830	  5286	  5347
AC13SV	  5667#	  5667	  5684
AC14	    96#	  5290	  5352
AC14SV	  5668#	  5668	  5685
AC15	    97#
AC15SV	  5669#	  5669	  5686
AC16SV	  5670#	  5670	  5687
AC1SV	  5657#	  5657	  5674
AC2	    86#	  1894	  1898	  1900	  1904	  1906	  1908	  2086	  2090	  2092	  2093	  2094	  2100	  2292
	  2293	  2371	  2372	  2448	  2449	  2520	  2521	  2598	  2599	  2657	  2660	  2665	  2726	  2727
	  2798	  2799	  2870	  2871	  2942	  2943	  3019	  3020	  3091	  3092	  3200	  3204	  3336	  3361
	  3365	  3497	  3522	  3526	  3658	  3683	  3687	  3819	  3844	  3848	  3980	  4046	  4047	  4053
	  4068	  4129	  4137	  4138	  4140	  4145	  4153	  4157	  4159	  4173	  4366	  4380	  4385	  4392
	  4396	  4398	  4434	  4435	  4444	  4455	  4457	  4507	  4508	  4509	  4587	  4591	  4649	  4651
	  4652	  4731	  4740	  4745	  4763	  4808	  4818	  4824	  4825	  4831	  4850	  4890	  4898	  4910
	  4968	  4980	  4981	  4987	  4994	  5044	  5067	  5075	  5076	  5081	  5107	  5139	  5195	  5202
	  5237	  5244	  5813
AC2SV	  5658#	  5658	  5675
AC3	    87#	  2004	  2005	  2009	  2299	  2300	  2378	  2379	  2455	  2456	  2527	  2528	  2605	  2606
	  2733	  2734	  2805	  2806	  2877	  2878	  2949	  2950	  3026	  3027	  3098	  3099	  3217	  3334
	  3378	  3495	  3539	  3656	  3700	  3817	  3861	  3978	  4039	  4059	  4062	  4064	  4074	  4077
	  4081	  4083	  4084	  4391	  4395	  4399	  4402	  4405	  4407	  4410	  4441	  4451	  4506	  4507
	  4515	  4517	  4524	  4525	  4555	  4556	  4578	  4579	  4580	  4581	  4582	  4584	  4587	  4595
	  4598	  4599	  4605	  4606	  4636	  4637	  4638	  5630	  5633	  5636	  5639	  5642	  5647
AC3SV	  5659#	  5659	  5676
AC4	    88#	  1278	  1319	  1330	  1353	  1373	  1393	  1583	  1594	  1607	  1853	  1854	  1855	  1856
	  1857	  2007	  2017	  3218	  3332	  3379	  3493	  3540	  3654	  3701	  3815	  3862	  3976	  4052
	  4055	  4058	  4061	  4067	  4070	  4073	  4076	  4192	  4196	  4280	  4284	  4439	  4442	  4450
	  5047	  5048	  5062	  5084	  5091	  5092	  5100	  5270	  5277	  5281	  5285	  5289	  5328	  5336
	  5341	  5346	  5351	  5390	  5391	  5392	  5393	  5466	  5473	  5803	  5808	  5817	  5823
AC4SV	  5660#	  5660	  5677
AC5	    89#	  1279	  1285	  1301	  1317	  1329	  1335	  1351	  1372	  1376	  1391	  1947	  1948	  1949
	  1950	  1957	  1960	  1963	  1966	  1995	  1996	  1997	  1998	  2012	  2027	  2028	  2029	  2030
	  2031	  2141	  2142	  2143	  2144	  2172	  2173	  2174	  2175	  2184	  2185	  2186	  2187	  2188
	  4053	  4055	  4058	  4061	  4068	  4070	  4073	  4076	  4129	  4158	  4159	  4160	  4172	  4261
	  4295	  4439	  4449	  4453	  4456	  4462	  4463	  4466	  4469	  4471	  5467	  5470
AC5SV	  5661#	  5661	  5678
AC6	    90#	  1146	  1147	  1156	  1275	  1276	  1283	  1321	  1327	  1332	  1355	  1444	  1445	  1450
	  1578	  1616	  1633	  1651	  1652	  1659	  1786	  1803	  1866	  1883	  1925	  1926	  1932	  2076
	  2117	  2118	  2126	  2233	  4110	  4190	  4195	  4196	  4199	  4200	  4235	  4254	  4255	  4266
	  4323	  4434	  4463	  5266	  5267	  5322	  5323
AC6SV	  5662#	  5662	  5679
AC7	    91#	  1283	  1284	  1332	  1334	  1369	  1371	  1447	  1448	  1466	  1486	  1515	  1632	  1654
	  1655	  1684	  1701	  1754	  1882	  1928	  1929	  2075	  2120	  2121	  2232	  2284	  2285	  2327
	  2363	  2364	  2406	  2440	  2441	  2483	  2512	  2513	  2555	  2590	  2591	  2633	  2667	  2718
	  2719	  2761	  2790	  2791	  2833	  2862	  2863	  2905	  2934	  2935	  2977	  3011	  3012	  3054
	  3083	  3084	  3126	  4042	  4043	  4052	  4067	  4143	  4149	  4151	  4166	  4167	  4172	  4173
	  4176	  4183	  4184	  4185	  4186	  4187	  4189	  4192	  4198	  4202	  4203	  4209	  4211	  4268
	  4272	  4273	  4274	  4275	  4277	  4280	  4286	  4292	  4295	  4296	  4298	  4310	  4311	  4505     SEQ 0222
	  4506	  4556	  4635	  4636	  4639	  4640	  5265	  5267	  5270	  5272	  5274	  5277	  5278	  5281
	  5282	  5285	  5286	  5289	  5290	  5321	  5323	  5328	  5330	  5332	  5336	  5337	  5341	  5342
	  5346	  5347	  5351	  5352	  5370	  5836
AC7SV	  5663#	  5663	  5680
AFS	   142#	  6578	  6585
ALD	   141#	  1606	  6519	  6525	  6547	  6550
ALS	   140#	  1593	  6520	  6531	  6541	  6556	  6581	  6588
ALTMGO	   843#
ALTPT	   117#	  1467	  1685	  6516	  6517	  6525	  6526	  6531	  6532	  6533	  6535	  6540	  6541	  6544
	  6547	  6549	  6550	  6553	  6556	  6565	  6566	  6572	  6574	  6576	  6578	  6581	  6583	  6585
	  6588
ANXM	   757#
APAT	  1470	  1687	  6208#
APR	  1101
AROV	   757#
AROVU	   757#
AST	   958#
ATSIN	   959#
B0	   144#	  1956	  1959
BDH	    68#	  2175	  4368	  4372	  4374	  4377	  4382	  4408	  4410	  4416	  4934
BDL	    71#	  4367	  4369	  4378	  4416	  4937
BEGEND	   839#	  3174	  3986
BEGIN	    39	    40	    41	    45	    46	    47	    48	    49	   704	   705	   770#	  7411
BEGIN1	   786#	   840
BELL	   962#
BIS	   757#
BIT0	  1815	  1839	  1957	  1983	  2048	  2160	  2205	  3256	  3417	  3578	  3739	  3900	  5272	  5330
	  5378	  5492	  5983#
BIT1	  1818	  1842	  1986	  2051	  2163	  2208	  5381	  5495	  5984#
BIT18	  1830	  1960	  2039	  2196	  5483	  5986#
BIT19	  1833	  2042	  2199	  5486	  5987#
BIT2	  1821	  1845	  1989	  2054	  2166	  2211	  5384	  5498	  5985#
BIT20	  1836	  2045	  2202	  5489	  5988#
BPAT	  1476	  1511	  1692	  1750	  6209#
BYTAB	  5048	  6054#
BYTYPE	  2278	  2357	  2434	  2506	  2584	  2712	  2784	  2856	  2928	  3005	  3077	  5047	  5462	  6070#
C1	   164#	  1829	  2038	  2195	  5482
C1A	   217#	  6565	  6574	  6576	  6578	  6579	  6584	  6585	  6683	  6684	  6685	  6686	  6688	  6691
	  6692	  6693	  6694	  6700
C2	   165#	  1832	  2041	  2198	  5485
C2A	   218#	  6565	  6567	  6571	  6574	  6579	  6681	  6682	  6685	  6686	  6689	  6691	  6695	  6701
C3	   166#	  1835	  2044	  2201	  5488
C3A	   219#	  6565	  6579	  6680	  6682	  6684	  6686	  6690	  6691	  6692	  6696	  6702
C4	   167#	  1838	  2047	  2204	  5491
C4A	   220#	  6579	  6587	  6675	  6676	  6677	  6678	  6691	  6697
C5	   168#	  1841	  2050	  2207	  5494
C5A	   221#	  6564	  6568	  6569	  6579	  6673	  6674	  6677	  6678	  6689	  6691	  6693	  6698
C6	   169#	  1844	  2053	  2210	  5497
C6A	   222#	  6569	  6579	  6672	  6674	  6676	  6678	  6688	  6690	  6691	  6699
CB1	  6169	  6178#
CB2	  6170	  6180#
CB3	  6171	  6182#
CB4	  6172	  6184#                                                                                                    SEQ 0223
CB5	  6173	  6186#
CB6	  6174	  6188#
CB7	  6175	  6190#
CB8	  6176	  6192#
CBD1	  2120#	  2233
CBD2	  2123#	  2230	  2232
CBD3	  2181#
CBD4	  2182	  2191#
CBDC1	  4929	  4934#
CBDC2	  4944	  4955#
CBDC3	  4946#	  4964
CBDCAS	  2120	  2121	  4972	  6632	  6633#
CBDCOM	  2228	  4925#
CBDEND	  6632	  6664#
CBDEX	  4416#
CBDFAI	  4932	  4935	  4938	  4941	  4949	  4952#	  4956	  4959	  4963
CBDM	  2117#	  2235
CBDMOD	  2079	  2113#
CBDNXT	  3787	  3796	  3802	  3814#
CBDOST	  4383	  4410#
CBDOVF	  4380	  4386	  4414	  4474#
CBDPC	  3730	  3741#
CBDPC1	  3747	  3762#
CBDPC2	  3745	  3759	  3769#
CBDPF0	  3683#	  3786	  3795	  3801	  3813	  3821
CBDPF1	  3716#	  3819
CBDPF3	  3766	  3780#
CBDPF9	  3790	  3798#
CBDPFA	  3690	  3700#
CBDPFX	  3753	  3789#
CBDPNT	  2229	  4966#
CBDRT1	  4994#
CBDS1	  4372	  4380#
CBDS2	  4392#	  4396
CBDS3	  4389	  4393	  4398#
CBDSIM	  2219	  3805	  4351#
CBDST	  3672#
CBDTAB	  2118	  3678	  5950#
CBDTR	  5536	  6154#
CBDTRN	  2213	  3738	  5536#
CCA	   757#
CDB1	  1928#	  2076
CDB2	  1931#	  2073	  2075
CDB3	  2009#	  2018
CDB3A	  2009	  2024#
CDB4	  2025	  2034#
CDBC1	  4862	  4867#
CDBCAS	  1928	  1929	  4892	  6594	  6595#
CDBCOM	  2071	  4860#
CDBDON	  4266	  4319#
CDBEND	  6594	  6626#
CDBFAI	  4865	  4868	  4871	  4874	  4877	  4880	  4883	  4886#
CDBLEG	  4270	  4295#                                                                                                    SEQ 0224
CDBM	  1925#	  2078
CDBMOD	  1702	  1755	  1886	  1921#
CDBNXT	  3626	  3635	  3641	  3653#
CDBOUT	  4282	  4296	  4299	  4323#
CDBPC	  3569	  3580#
CDBPC1	  3586	  3601#
CDBPC2	  3584	  3598	  3608#
CDBPF0	  3522#	  3625	  3634	  3640	  3652	  3660
CDBPF1	  3555#	  3658
CDBPF3	  3605	  3619#
CDBPF9	  3629	  3637#
CDBPFA	  3529	  3539#
CDBPFX	  3592	  3628#
CDBPNT	  2072	  4888#
CDBRET	  4330	  4335#
CDBRT1	  4910#
CDBS1	  4259	  4266#	  4287	  4317
CDBSIM	  2062	  3644	  4247#
CDBST	  3511#
CDBTAB	  1926	  3517	  5948#
CDBTN	  3577	  5529#
CDBTRN	  2056	  2085#
CHAIN	   509#
CHKA2	  1675	  1684#
CHKB1	  1468	  1473#
CHKB2	  1686	  1690#
CHKC1	  1474	  1479#
CHKC2	  1691	  1695#
CHKTRN	  3238	  3399	  3560	  3721	  3882	  5576#
CHNGPE	  5301	  5599#	  5620
CHNOFF	   757#
CHNON	   757#
CHNTAB	  5139	  5970#
CLK	   757#
CLKCLR	   757#
CLKDIS	   757#
CLKENB	   757#
CLKU	   757#
CLOCKF	   825#
CLRSTR	  1657	  2123	  2290	  2315	  2369	  2394	  2446	  2471	  2518	  2543	  2596	  2621	  2643	  2724
	  2749	  2796	  2821	  2868	  2893	  2940	  2965	  3017	  3042	  3089	  3114	  3227	  3388	  3549
	  3710	  3871	  5694#
CMP1	  1447#	  1633
CMP2	  1450#	  1486	  1515	  1630	  1632
CMPB1	  1555	  1562#
CMPB2	  1565	  1572#
CMPBYT	  1492	  1527	  1533	  1538	  1544	  1548	  1554#
CMPC1	  4706	  4711#
CMPCAS	  1447	  1448	  4735	  6515	  6516#
CMPCOM	  1628	  4704#
CMPDON	  4050	  4081#
CMPEND	  6515	  6557#
CMPER1	  1480	  1485#                                                                                                    SEQ 0225
CMPER2	  1510	  1514#
CMPF1	  1499	  1504#
CMPF2	  1505	  1509#
CMPFAI	  4709	  4712	  4715	  4718	  4721	  4724	  4727#
CMPFIL	  1498#
CMPL	  1502	  1507	  1512	  1523#
CMPL1	  1524	  1529#
CMPL2	  1530	  1535#
CMPL3	  1536	  1540#
CMPLEN	  1471	  1477	  1483	  1489#
CMPM	  1444#	  1635
CMPMOD	  1363	  1396	  1440#
CMPNXT	  3304	  3313	  3319	  3331#
CMPOUT	  4065	  4079	  4083#
CMPPC	  3247	  3258#
CMPPC1	  3264	  3279#
CMPPC2	  3262	  3276	  3286#
CMPPF0	  3200#	  3303	  3312	  3318	  3330	  3338
CMPPF1	  3233#	  3336
CMPPF3	  3283	  3297#
CMPPF9	  3307	  3315#
CMPPFA	  3207	  3217#
CMPPFX	  3270	  3306#
CMPPNT	  1629	  4729#
CMPRET	  4763#
CMPS1	  4041#	  4071
CMPS2	  4049	  4052#
CMPS3	  4056	  4067#
CMPSIM	  1619	  3322	  4032#
CMPST	  3189#	  3985
CMPSTR	  1578#
CMPT1	  1281#	  1319
CMPTAB	  1445	  3195	  5937#
CMPTRP	  1278#	  1298	  1314	  1321
CNTLC	   842#
COMAC	  3326	  3487	  3648	  3809	  3970	  5545#
COMFAI	  5546	  5549	  5552	  5555	  5558	  5561#
COMMA	   951#
COMPNT	  3329	  3490	  3651	  3812	  3973	  5563#
COMRT	  5722	  5727#
COMS1	  5720#	  5724
COMSTR	  4794	  4882	  5028	  5715#
CONSW	   826#
CPAT	  1482	  1697	  6210#
CPOPJ	   846#
CPOPJ1	   844#
CRLF	   639	   640	   946#
CRLF2	   643	   644	   948#
CRY0	   757#
CRY1	   757#
CSET1	  1587#	  1591
CSET2	  1588	  1593#
CSET3	  1600#	  1604                                                                                                     SEQ 0226
CSET4	  1601	  1606#
CSHFLG	  1005#
CSHMEM	  1006#
CYCL60	   999#
D44	   134#	  1564	  1775	  5406	  5409	  6516	  6519	  6521	  6525	  6527	  6528	  6530	  6531	  6532
	  6537	  6538	  6543	  6546	  6552	  6555	  6564	  6566	  6572	  6577	  6579	  6580	  6584	  6586
	  6587
DATA	   178#	  1996	  2173
DATA0	   175#	  6599	  6600	  6601	  6602	  6607	  6608	  6609	  6610	  6615	  6616	  6617	  6618	  6623
	  6624	  6625	  6626	  6637	  6638	  6639	  6640	  6645	  6646	  6647	  6648	  6653	  6654	  6655
	  6656	  6661	  6662	  6663	  6664
DATA1	   176#	  6597	  6598	  6601	  6602	  6605	  6606	  6609	  6610	  6613	  6614	  6617	  6618	  6621
	  6622	  6625	  6626	  6635	  6636	  6639	  6640	  6643	  6644	  6647	  6648	  6651	  6652	  6655
	  6656	  6659	  6660	  6663	  6664
DATA2	   177#	  6596	  6598	  6600	  6602	  6604	  6606	  6608	  6610	  6612	  6614	  6616	  6618	  6620
	  6622	  6624	  6626	  6634	  6636	  6638	  6640	  6642	  6644	  6646	  6648	  6650	  6652	  6654
	  6656	  6658	  6660	  6662	  6664
DATASH	   233#	  1997	  2174
DATCBD	  2175	  6169#
DATTAB	  1998	  6145#
DBH	    73#	  1963	  4264	  4290	  4302	  4304	  4307	  4312	  4315	  4320	  4326	  4333	  4876
DBL	    76#	  1966	  4262	  4264	  4290	  4301	  4303	  4306	  4308	  4311	  4314	  4324	  4327	  4333
	  4879
DCK	   757#
DDTLNK	   523#	   784
DDTSRT	   784#
DEBUG	    33#	  7402	  7403
DECFIL	  4455#	  4457
DECLDN	  4452	  4455	  4459#
DECP4	  4444	  4449#
DECPN1	  4450	  4451	  4461#
DECPN2	  4447	  4472#
DECPN3	  4426	  4439#	  4461
DECPNR	  4429	  4432	  4437#
DECPNT	  4411	  4426#
DECVER	     4#	     9	    22	   805
DESTIN	  1267	  1569	  1572	  1777	  1780	  2151	  2153	  4798	  4839	  4947	  5033	  5057	  5407	  5410
	  5700	  5701	  5702	  5720	  6025#	  6261	  6268	  6275	  6303	  6310	  6352	  6359	  6366	  6399
	  6405	  6411	  6435	  6441	  6477	  6483	  6489
DF22F	   910#
DIAGMN	   773#
DING	   495#
DLEN	    72#	  1455	  1531	  1537	  1542	  1596	  1668	  1714	  1719	  1724	  2144	  2160	  2163	  2166
	  4045	  4050	  4089	  4090	  4116	  4131	  4138	  4152	  4162	  4181	  4204	  4210	  4227	  4231
	  4232	  4366	  4370	  4375	  4388	  4417	  4428	  4452	  4475	  4484	  4720	  4791	  4943
DLEN1	    80#	  1596	  1600
DOCBD	  3781	  3805#
DOCDB	  3620	  3644#
DOCMP	  3298	  3322#
DOEDT	  3942	  3966#
DOLLAR	   965#
DOMOV	  3459	  3483#
DP	    75#	  1267	  1569	  1572	  1597	  1777	  1780	  2151	  2153	  4047	  4114	  4151	  4158	  4176     SEQ 0227
	  4203	  4211	  4361	  4395	  4407	  4435	  4456	  4471	  4503	  4525	  4606	  4628	  4648	  4652
	  4723	  4797	  4946	  5031	  5407	  5410
DP1	    81#	  1597	  1598	  1603	  1607
DPAT	  1506	  1745	  6211#
DSKUPD	   810
DSZER	   110#	  1535	  1717	  6535	  6536	  6537	  6538	  6574
DZERO	   109#	  1529	  1712	  6529	  6530	  6531	  6532	  6533	  6534
E0	  1199	  1204	  1211	  1224	  1229	  1237	  1281	  1290	  1305	  1333	  1340	  1370	  1380	  1459
	  1460	  1526	  1532	  1543	  1547	  1558	  1568	  1624	  1672	  1757	  1808	  1857	  1874	  1931
	  2031	  2035	  2067	  2125	  2188	  2192	  2224	  2318	  2397	  2474	  2546	  2624	  2645	  2646
	  2649	  2679	  2752	  2824	  2896	  2968	  3045	  3117	  3197	  3198	  3252	  3279	  3358	  3359
	  3413	  3440	  3519	  3520	  3574	  3601	  3680	  3681	  3735	  3762	  3841	  3842	  3896	  3923
	  4042	  4046	  4149	  4160	  4166	  4209	  4261	  4363	  4391	  4453	  4524	  4598	  4649	  4749
	  4753	  4835	  5088	  5097	  5426	  5429	  5437	  5440	  5448	  5451	  5455	  5456	  5503	  5980#
	  6029
E0FIL1	  1541	  1546#
E0OP	  1284	  1334	  1371	  1451	  1660	  1933	  2127	  3244	  3405	  3566	  3727	  3888	  4034	  4105
	  4249	  4355	  5770	  6029#
E1	  1807	  1897	  1903	  2034	  2089	  2097	  2191	  3249	  3410	  3571	  3732	  3893	  4186	  4187
	  4274	  4275	  4405	  4434	  4469	  4581	  4582	  5502	  5529	  5536	  5537	  5870	  5981#
EABORT	  4566#	  4589
ED1WD	  2300	  6078#
ED2WD	  2379	  6083#
ED3WD	  2456	  6088#
ED4WD	  2528	  6092#
ED5WD	  2606	  6097#
ED6WD	  2734	  6102#
ED7AWD	  2806	  6107#
ED7BWD	  2878	  6112#
ED7CWD	  2950	  6117#
ED8WD	  3027	  6122#
ED9WD	  3099	  6127#
EDIT1	  1375#	  1389	  1393
EDITRP	  1358	  1369#
EDM1	  2287#	  2326	  2327
EDM2	  2366#	  2405	  2406
EDM3	  2443#	  2482	  2483
EDM4	  2515#	  2554	  2555
EDM5	  2593#	  2632	  2633
EDM5A	  2636	  2643#	  2685
EDM6	  2721#	  2760	  2761
EDM7A	  2793#	  2832	  2833
EDM7B	  2865#	  2904	  2905
EDM7C	  2937#	  2976	  2977
EDM8	  3014#	  3053	  3054
EDM9	  3086#	  3125	  3126
EDMD7A	  2764	  2780#
EDMD7B	  2836	  2852#
EDMD7C	  2908	  2924#
EDMOD1	  2274#	  3132
EDMOD2	  2330	  2353#
EDMOD3	  2409	  2430#
EDMOD4	  2486	  2502#                                                                                                    SEQ 0228
EDMOD5	  2558	  2580#
EDMOD6	  2687	  2708#
EDMOD8	  2980	  3001#
EDMOD9	  3057	  3073#
EDMODM	  2236	  2259#
EDS2	  5423	  5433#
EDS3	  5434	  5444#
EDS4	  5445	  5455#
EDS5	  5470#	  5475
EDS6	  5471	  5481#
EDSRTN	  5431	  5442	  5453	  5464	  5502#
EDTC1	  5011	  5016#
EDTCAS	  2284	  2285	  2363	  2364	  2440	  2441	  2512	  2513	  2590	  2591	  2718	  2719	  2790	  2791
	  2862	  2863	  2934	  2935	  3011	  3012	  3083	  3084	  5051	  6670	  6671#
EDTCOM	  2322	  2401	  2478	  2550	  2628	  2683	  2756	  2828	  2900	  2972	  3049	  3121	  5007#
EDTEND	  6670	  6702#
EDTFAI	  5014	  5017	  5020	  5023	  5026	  5029	  5036	  5039#
EDTNXT	  3948	  3957	  3963	  3975#
EDTP1	  5063	  5070#
EDTP1A	  5055	  5060#
EDTP2	  5071	  5084#
EDTP2A	  5085	  5091#
EDTP4	  5094	  5100#
EDTPC	  3891	  3902#
EDTPC1	  3908	  3923#
EDTPC2	  3906	  3920	  3930#
EDTPF0	  3844#	  3947	  3956	  3962	  3974	  3982
EDTPF1	  3877#	  3980
EDTPF3	  3927	  3941#
EDTPF9	  3951	  3959#
EDTPFA	  3851	  3861#
EDTPFX	  3914	  3950#
EDTPNT	  2325	  2404	  2481	  2553	  2631	  2684	  2759	  2831	  2903	  2975	  3052	  3124	  5042#
EDTRT1	  5107#
EDTS2	  4505#	  4533	  4558
EDTSET	  2297	  2376	  2453	  2525	  2603	  2668	  2731	  2803	  2875	  2947	  3024	  3096	  5370#
EDTSIM	  2310	  2389	  2466	  2538	  2616	  2674	  2744	  2816	  2888	  2960	  3037	  3109	  3966	  4497#
EDTST	  3833#
EDTTAB	  3839	  5947#
EEXCHD	  4628#	  6230
EF	   241#	  4081	  6041	  6042	  6044
EFLDSP	  4621#	  6229
EMESSG	  4523#	  6218
END	  7410#
ENDFIX	  1085#
ENDSLD	  7400#
ENOP	  4516	  4526	  4532#	  4540	  4548	  4599	  4607	  4615	  4622	  4629	  6219	  6220	  6221	  6231
EOPER	  4515#	  6217
EQFIL	   125#	  1498	  1738	  5422	  6523	  6525	  6528	  6529	  6530	  6531	  6534	  6535	  6536	  6537
	  6538	  6540	  6541	  6546	  6549	  6550	  6555	  6572	  6576	  6577	  6581	  6583	  6584	  6588
	  6671	  6674	  6677	  6680	  6683	  6686	  6689	  6692	  6695	  6698	  6701
EQLEN	   107#	  1491	  1705	  6516	  6517	  6518	  6519	  6520	  6521	  6557	  6564	  6565	  6566	  6567
	  6568	  6569                                                                                                     SEQ 0229
ERMORE	   859#
ERRPC	   830#
ERRTLS	   831#
ERSTOP	   498#
ESEL	  4523	  4598#
ESEL1	  4596	  4602#
ESEL2	  4593	  4600	  4605#
ESELCT	  4578#	  6227
ESIGST	  4613#	  6228
ESKPA	  4541	  4549	  4555#	  6224
ESKPM	  4539#	  6222
ESKPN	  4547#	  6223
ESTOP	  4564#	  6226
EXCASB	    31#	   808
EXCHMD	   252#	  6083	  6084	  6085	  6086
EXIOT	   757#
EXLAB	  1157	  1158	  1161#	  1171
FAILOC	  3265#	  3265	  3426#	  3426	  3587#	  3587	  3748#	  3748	  3909#	  3909	  5266	  5322
FILE0	  2652#	  2654
FILLF	  3240	  3243	  3250	  3261	  3263	  3275	  3401	  3404	  3411	  3422	  3424	  3436	  3562	  3565
	  3572	  3583	  3585	  3597	  3723	  3726	  3733	  3744	  3746	  3758	  3884	  3887	  3894	  3905
	  3907	  3919	  5645	  5649#	  5649
FLDSEP	   251#	  6092	  6093	  6094	  6095
FOV	   757#
FOVU	   757#
FRDLNK	   521#
FSELNK	   520#
FXU	   757#
GF	   240#	  4062	  4077	  6044	  6045	  6046
GFILL	   127#	  1509	  1748	  5444	  6524	  6527	  6532	  6542	  6545	  6547	  6551	  6554	  6556	  6573
	  6579	  6586	  6673	  6676	  6679	  6682	  6685	  6688	  6691	  6694	  6697	  6700
GOCBD	  2189	  2215#
GOCDB	  2032	  2058#
GOMOV	  1848	  1851	  1863#
GOTRAP	  1155#	  1155	  1168	  1201	  1208	  1226	  1233	  1287	  1294	  1302	  1309	  1337	  1344	  1377
	  1384	  5162	  5221
HW	   145#	  1962	  1965
HYPEN	   956#
INCPBN	  4532	  4557	  4566	  4635#
INCSKP	  1118#	  1118	  4708	  4759	  4761	  4779	  4846	  4848	  4864	  4906	  4908	  4931	  4990	  4992
	  5013	  5103	  5105
INHCSH	   506#
INHPAG	   503#
INSTR	  3236#	  3236	  3397#	  3397	  3558#	  3558	  3719#	  3719	  3880#	  3880	  5514
INXM	   757#
IOCLR	   757#
ITERAT	    34#	   803
ITRCH1	   863#
ITRCNT	   803#
JOB41	   757#
JOBAPR	   757#
JOBCNI	   757#
JOBDDT	   757#                                                                                                            SEQ 0230
JOBFF	   757#
JOBOPC	   757#
JOBREL	   757#
JOBREN	   757#
JOBSA	   757#
JOBSYM	   757#
JOBTPC	   757#
JOBUSY	   757#
JOBUUO	   757#
JOBVER	   757#
KA10	   757
KAHZ50	   511#
KAIFLG	   820#
KI10	   757
KL10	    36#	   757
KL10P0	    37#	   757
KLFLG	   821#
KLOLD	   719
KLPMSK	  5596#	  5601
LAPRAL	   757#
LAPRP1	   757#
LAPRP2	   757#
LAPRP3	   757#
LAPRP4	   757#
LAPRP5	   757#
LAPRP6	   757#
LAPRP7	   757#
LAROVT	   757#
LCADEN	   757#
LCADRP	   757#
LCASDE	   757#
LCASLD	   757#
LCASLO	   757#
LCASWB	   757#
LCASWD	   757#
LCCAER	   757#
LCCASD	   757#
LCHNOF	   757#
LCHNON	   757#
LCIOPF	   757#
LCNTRP	   757#
LCNTXT	   757#
LCNXER	   757#
LCPAER	   757#
LCPWRF	   757#
LCSAER	   757#
LCSBER	   757#
LCSLOA	   757#
LCSLOO	   757#
LCTRP	   757#
LCWSX	   757#
LDATAF	   757#
LDCAER	   757#                                                                                                            SEQ 0231
LDCASD	   757#
LDIOPF	   757#
LDLNK	   522#	   773	   775
LDNXER	   757#
LDPAER	   757#
LDPWRF	   757#
LDSAER	   757#
LDSBER	   757#
LEBXMH	   757#
LEBXML	   757#
LECAER	   757#
LECASD	   757#
LEIOPF	   757#
LENXER	   757#
LEPAER	   757#
LEPWRF	   757#
LESAER	   757#
LESBER	   757#
LEUPFW	   757#	  5617
LEVNCD	   757#
LEVNPA	   757#
LEVNPD	   757#
LEVTAB	  5139	  5972#
LEXCMP	   757#
LF	   242#	  4059	  4074	  6040	  6042	  6045
LFILL	   126#	  1504	  1743	  5433	  6526	  6533	  6543	  6544	  6552	  6553	  6571	  6574	  6578	  6580
	  6585	  6587	  6672	  6675	  6678	  6681	  6684	  6687	  6690	  6693	  6696	  6699	  6702
LFLGCL	   757#
LFLGDS	   757#
LFLGEN	   757#
LFLGST	   757#
LFP	   960#
LINSTF	   757#
LINT	   757#
LIOCLR	   757#
LIOPFE	   757#
LKNTRP	   757#
LKTRP	   757#
LLACBL	   757#
LLDUSB	   757#	  5622
LLPRCN	   757#
LMBXMH	   757#
LMBXML	   757#
LMUUO	   757#
LMUUOP	   757#
LNXMEN	   757#
LNXMER	   757#
LOOPER	   497#
LPAREN	   757#
LPARER	   757#
LPDOVT	   757#
LPFWPC	   757#	  5265	  5303	  5321
LPGFTR	   757#	  3179                                                                                                     SEQ 0232
LPICH1	   757#
LPICH2	   757#
LPICH3	   757#
LPICH4	   757#
LPICH5	   757#
LPICH6	   757#
LPICH7	   757#
LPICHA	   757#
LPICLR	   757#
LPIIP1	   757#
LPIIP2	   757#
LPIIP3	   757#
LPIIP4	   757#
LPIIP5	   757#
LPIIP6	   757#
LPIIP7	   757#
LPIOFF	   757#
LPION	   757#
LPNTRP	   757#
LPRCH1	   757#
LPRCH2	   757#
LPRCH3	   757#
LPRCH4	   757#
LPRCH5	   757#
LPRCH6	   757#
LPRCH7	   757#
LPRFMH	   757#
LPRFML	   757#
LPTRP	   757#
LPWRFE	   757#
LPWRFL	   757#
LREQSE	   757#
LRQCLR	   757#
LSADEN	   757#
LSADRP	   757#
LSBSEN	   757#
LSBUSE	   757#
LSCAER	   757#
LSCASD	   757#
LSECMO	   757#
LSIOPF	   757#
LSMODE	   757#
LSNTRP	   757#
LSNXER	   757#
LSPAER	   757#
LSPWRF	   757#
LSSAER	   757#
LSSBER	   757#
LSTRP	   757#
LTAB	  1950	  2144	  6199#
LTBASH	   757#
LTBASL	   757#
LTRP3T	   757#                                                                                                            SEQ 0233
LTRPAE	   757#
LTRPEN	   757#	  5603
LUSCMP	   757#
LUUO	   757#
LUUO1	   890	   891
LUUO10	   890	   895
LUUO11	   890	   895
LUUO12	   890	   896
LUUO13	   890	   896
LUUO14	   890	   897
LUUO15	   890	   897
LUUO16	   890	   898
LUUO17	   890	   898
LUUO2	   890	   892
LUUO20	   890	   899
LUUO21	   890	   899
LUUO22	   890	   900
LUUO23	   890	   900
LUUO24	   890	   901
LUUO25	   890	   901
LUUO26	   890	   902
LUUO27	   890	   902
LUUO3	   890	   892
LUUO30	   890	   903
LUUO31	   890	   903
LUUO32	   890	   904
LUUO33	   890	   904
LUUO4	   890	   893
LUUO5	   890	   893
LUUO6	   890	   894
LUUO7	   890	   894
LUUOH	  1152	  5219#
LUUOHX	  5222	  5233#
LUUOI	   757#
LWRITE	   757#
MA	    74#	  2304	  2383	  2460	  2532	  2610	  2738	  2810	  2882	  2954	  3031	  3103	  4628	  4648
	  5025	  5412
MAPNEW	   911#
MARGIN	   833#
MCASE	  2667	  6704#
MCNVER	     3#	     9	    22	   805
MEMLOW	   913#
MEMMAP	   811
MEMSIZ	   914#
MEMTOT	   912#
MESSAG	   254#	  6097	  6098	  6099	  6100
MESSGS	  2645	  6706#
MFL	   156#	  1820	  1988	  2165	  5383
MFL1	   214#	  6564	  6568	  6576	  6580	  6584	  6587	  6595	  6597	  6598	  6600	  6602	  6604	  6606
	  6610	  6614	  6617	  6618	  6672	  6674	  6676	  6678	  6680	  6682	  6684	  6686	  6688	  6690
	  6692	  6694	  6696	  6698	  6700	  6702
MIC202	  1097#	  1097	  1105	  1107	  4483
MINUS	   955#                                                                                                            SEQ 0234
MODDVC	   505#
MODDVL	   704	   704#	   806
MODDVU	   705	   705#	   807
MODLNK	   524#	   770
MONCTL	   823#
MONFLG	   822#
MONTEN	   824#
MONTYP	  1037#	  5133	  5171	  5206
MOV1	  1654#	  1883
MOV2	  1657#	  1701	  1754	  1880	  1882
MOVB1	  1764	  1767	  1771#
MOVB2	  1773	  1776	  1780#
MOVBYT	  1706	  1715	  1720	  1725	  1763#
MOVC1	  4777	  4782#
MOVCAS	  1654	  1655	  4812	  6563	  6564#
MOVCOM	  1878	  4773#
MOVEND	  6563	  6588#
MOVER1	  1696	  1700#
MOVER2	  1749	  1753#
MOVF1	  1739	  1743#
MOVF2	  1744	  1748#
MOVF3	  1741	  1746	  1751	  1757#
MOVFAI	  4780	  4783	  4786	  4789	  4792	  4795	  4800	  4803#
MOVFIL	  1730	  1738#
MOVL	  1712#
MOVL1	  1713	  1717#
MOVL2	  1718	  1722#
MOVL3	  1723	  1727#
MOVL4	  1728	  1732#
MOVLEN	  1678	  1688	  1693	  1698	  1704#
MOVM	  1651#	  1885
MOVMOD	  1487	  1516	  1636	  1647#
MOVNXT	  3465	  3474	  3480	  3492#
MOVOFF	  1805	  1850#
MOVOP	  1795	  1803#
MOVOUT	  4121	  4215	  4221	  4229#
MOVPC	  3408	  3419#
MOVPC1	  3425	  3440#
MOVPC2	  3423	  3437	  3447#
MOVPF0	  3361#	  3464	  3473	  3479	  3491	  3499
MOVPF1	  3394#	  3497
MOVPF3	  3444	  3458#
MOVPF9	  3468	  3476#
MOVPFA	  3368	  3378#
MOVPFX	  3431	  3467#
MOVPL	  4174	  4227#
MOVPNT	  1879	  4806#
MOVRET	  4850#
MOVS1	  4143#	  4145
MOVS1A	  4117	  4123#
MOVS2	  4141	  4149#
MOVS2A	  4151#	  4153
MOVS3	  4132	  4135	  4147	  4155	  4162#	  4177                                                                     SEQ 0235
MOVS4	  4170	  4176#
MOVSIM	  1869	  3483	  4103#
MOVSOS	  4127	  4157#
MOVST	  3350#
MOVST1	  4179	  4181	  4206#
MOVST2	  4210#	  4212
MOVST3	  4194	  4210	  4214#
MOVSTR	  1786#
MOVSTS	  4124	  4179#	  4200	  4204
MOVTAB	  1652	  3356	  5943#
MPVU	   757#
MUOPC	  5174	  5205	  5972	  5974#
MUUO10	  5134	  5152#
MUUOH	  5122	  5160#	  5961	  5971
MUUOH1	  5172	  5178#
MUUOHS	  1113	  5119#
MUUOHU	  5166	  5171#
MUUOHX	  5163	  5191#
MUUOHY	  5192	  5205#
MVS1	  1329#	  1355
MVS2	  1332#	  1349	  1353
MVSTRP	  1327#
NFL	   157#	  1817	  1985	  2162	  5380
NFL1	   215#	  6564	  6565	  6567	  6572	  6576	  6580	  6585	  6587	  6596	  6597	  6598	  6601	  6603
	  6604	  6607	  6610	  6613	  6616	  6618	  6673	  6674	  6677	  6678	  6681	  6682	  6685	  6686
	  6689	  6690	  6693	  6694	  6697	  6698	  6701	  6702
NOP	   253#	  6102	  6103	  6104	  6105
NOP1	   258#	  6127
NOP2	   259#	  6128
NOP3	   260#	  6129
NOP4	   261#	  6130
NOPNT	   493#
NXMU	   757#
OFF	   194#	  1854	  2028	  2185
OFF0	   192#
OFF1	   193#	  6564	  6565	  6566	  6567	  6569	  6580	  6581	  6587	  6588	  6595	  6596	  6597	  6599
	  6600	  6601	  6602	  6603	  6604	  6605	  6606	  6607	  6609	  6610	  6611	  6612	  6614	  6615
	  6616	  6617	  6618	  6619	  6620	  6621	  6622	  6623	  6624	  6625	  6626	  6640
OFFSET	  1114	  2280	  2282	  2303	  2314	  2329	  2359	  2361	  2382	  2393	  2408	  2436	  2438	  2459
	  2470	  2485	  2508	  2510	  2531	  2542	  2557	  2586	  2588	  2609	  2620	  2635	  2714	  2716
	  2737	  2748	  2763	  2786	  2788	  2809	  2820	  2835	  2858	  2860	  2881	  2892	  2907	  2930
	  2932	  2953	  2964	  2979	  3007	  3009	  3030	  3041	  3056	  3079	  3081	  3102	  3113	  3128
	  3192	  3339	  3353	  3500	  3514	  3661	  3675	  3822	  3836	  3983	  4113	  4360	  4502#	  4502
	  5032	  5054	  5070
OFFSH	   231#	  1855	  2029	  2186
OFFTAB	  1856	  2030	  2187	  6136#
OFS	  4364#	  4364	  4402	  4466
ONEPT	   118#	  1479	  1695	  6518	  6519	  6524	  6527	  6530	  6538	  6542	  6546	  6551	  6555	  6557
	  6564	  6573	  6579	  6586
ONESPT	   119#	  1473	  1690	  6520	  6521	  6523	  6528	  6529	  6534	  6536	  6537	  6543	  6545	  6552
	  6554	  6567	  6568	  6569	  6571	  6577	  6580	  6584	  6587
OP1	    82#	  4034	  4083	  4105	  4123	  4126	  4134	  4217	  4249	  4258	  4269	  4329	  4355	  4401
	  4404	  4431	  4465	  4468                                                                                     SEQ 0236
OPEND	  5935	  5951#
OPRSEL	   507#
OPTAB	  1146	  1147	  1276	  5935	  5936#
OPTIME	   925#
ORIGSV	  1613	  1614	  1863	  1864	  2058	  2059	  2215	  2216	  2306	  2307	  2385	  2386	  2462	  2463
	  2534	  2535	  2612	  2613	  2670	  2671	  2740	  2741	  2812	  2813	  2884	  2885	  2956	  2957
	  3033	  3034	  3105	  3106	  3258	  3259	  3419	  3420	  3580	  3581	  3741	  3742	  3902	  3903
	  4036	  4107	  4251	  4357	  4477	  4499	  4739	  4740	  4744	  4745	  4817	  4818	  4822	  4824
	  4829	  4831	  4897	  4898	  4979	  4980	  4986	  4987	  5067	  5075	  5081	  5746	  6016#
OVDLEN	  4475#	  4475	  4961
OVERR	  4353#	  4353	  4413	  4446	  4474	  4958
P	   550	   551	   552	   553	   757#	   845	  4085	  4207	  4220	  4224	  4321	  4423	  4449	  4462
	  4564	  4726	  4802	  4885	  4951	  5038	  5237	  5560	  5726
PADDR	    69#	  2306	  2385	  2462	  2534	  2612	  2740	  2812	  2884	  2956	  3033	  3105	  4523	  4539
	  4547	  4568	  4585	  4590	  4591	  4593	  4602	  4613	  4621	  4638	  5016	  5376	  5378	  5381
	  5384	  5394	  6237	  6240	  6241	  6242	  6243
PAG	   757#	  5600	  5603	  5622
PAGBIT	  5597#	  5602
PAGSET	  3273	  3434	  3595	  3756	  3917	  5610#
PALERS	   499#
PARCLR	   757#
PARDIS	   757#
PAREA1	    50#	   801
PAREA2	    51#	   802
PAREA3	    52#	   799
PAREA4	    53#	   800
PAREA5	    54#	   812
PAREA6	    55#	   813
PAREA7	   812#
PAREA8	   813#
PARENB	   757#
PARU	   757#
PASCNT	   827#
PATBL	  4506	  6240#
PATBN	  2299	  2378	  2455	  2527	  2605	  2733	  2805	  2877	  2949	  3026	  3098	  4505	  4640	  5393
	  6237#
PATCH	  7403#
PATPT	  2657	  6238#
PATTBL	  2293	  2294	  2295	  2301	  2372	  2373	  2374	  2380	  2449	  2450	  2451	  2457	  2521	  2522
	  2523	  2529	  2599	  2600	  2601	  2607	  2727	  2728	  2729	  2735	  2799	  2800	  2801	  2807
	  2871	  2872	  2873	  2879	  2943	  2944	  2945	  2951	  3020	  3021	  3022	  3028	  3092	  3093
	  3094	  3100	  3210	  3211	  3212	  3215	  3371	  3372	  3373	  3376	  3532	  3533	  3534	  3537
	  3693	  3694	  3695	  3698	  3854	  3855	  3856	  3859	  5394	  6069#	  6238	  6348	  6355	  6362
	  6369	  6376	  6383	  6473	  6479	  6485	  6491	  6497	  6503
PATTER	  1489#	  1489	  1501	  1582	  1704	  1740	  1790
PB	   206#	  5391
PB1	   204#	  6687	  6688	  6689	  6690	  6691	  6692	  6693	  6694	  6695	  6696	  6697	  6698	  6699
	  6700	  6701	  6702
PB2	   205#	  6679	  6680	  6681	  6682	  6683	  6684	  6685	  6686	  6695	  6696	  6697	  6698	  6699
	  6700	  6701	  6702
PBSH	   234#	  5392
PDISF	   922#
PDLOVU	   757#                                                                                                            SEQ 0237
PERIOD	   952#
PFACB	  3233	  3394	  3555	  3716	  3877	  5630#
PFBLK1	  3217	  3378	  6257#
PFBLK2	  3539	  6313#
PFBLK3	  3700	  6334#
PFBLK4	  3861	  6348#
PFERR	  3268#	  3268	  3429#	  3429	  3590#	  3590	  3751#	  3751	  3912#	  3912
PFFAIL	  5263	  5268	  5275	  5279	  5283	  5287	  5291	  5309#
PFHAND	  3178	  5262#
PFHEPC	  3271	  3432	  3593	  3754	  3915	  5309#	  5309
PFINS	  5326	  5334	  5339	  5344	  5349	  5354	  5511#	  5563
PFPNT	  3311	  3317	  3472	  3478	  3633	  3639	  3794	  3800	  3955	  3961	  5321#
PFRES1	  3218	  3379	  6395#
PFRES2	  3540	  6443#
PFRES3	  3701	  6461#
PFRES4	  3862	  6473#
PFSTRT	   779#
PFTRAP	  3267#	  3267	  3297	  3306	  3428#	  3428	  3458	  3467	  3589#	  3589	  3619	  3628	  3750#	  3750
	  3780	  3789	  3911#	  3911	  3941	  3950	  5262
PFTST	  3129	  3173#
PGMEND	    35#	  7409
PGMNAM	   804	  5911#
PICHN1	   757#
PICHN2	   757#
PICHN3	   757#
PICHN4	   757#
PICHN5	   757#
PICHN6	   757#
PICHN7	   757#
PICHNA	   757#
PICLR	   757#
PIOFF	   757#
PION	   757#
PLIST	   991#	   991
PLISTE	   991	   993#
PLISTS	   992#
PLUS	   957#
PNTACB	  4757	  4841	  4901	  4975	  5060	  5565	  5737#
PNTBLK	  5746#	  5758
PNTCAS	  4736	  4813	  4893	  4973	  5052	  5832#
PNTENB	   921#
PNTEXT	   800#
PNTFLG	   920#
PNTINH	   923#
PNTINS	  3302	  3463	  3624	  3785	  3946	  4733	  4810	  4970	  5768#
PNTLPT	   494#
PNTNAM	   799#
PNTRAN	  4844	  4904	  5101	  5866#
PNTRN	  5878#	  5902
PNTS1	  5808#	  5820
PNTS2	  5810#	  5817
PNTSKP	  4760	  4847	  4907	  4991	  5104	  5779#
PNTSPC	   924#                                                                                                            SEQ 0238
PNTSRT	  5811	  5822#
PNTSTR	  4741	  4746	  4819	  4826	  4832	  4899	  4982	  4988	  5068	  5077	  5082	  5801#
PPTAB	  4509	  6217#
PPTAB1	  4517	  6226#
PTM1	  2660#	  2662
PTMSET	  2656#
PVPAGI	  1018#
PWFCLR	   757#
QUEST	   963#
RADIX	   966#
RADLSC	   968#
RADLSP	   967#
RANDBS	   801#
RANLEN	  1453	  1666	  5849#
REENTR	   781#
RELIAB	   501#	  1122
REPT	    59	   757#	  1144	  1193	  1264	  1442	  1649	  1923	  2115	  2259	  3176
REPT1	   757#
REPTU	   879#
REQSET	   757#
RESRT1	   856#
RESRT2	   857#
RESSV	  4092	  4094	  4237	  4238	  4335	  4337	  4419	  4420	  4477	  4478	  4481	  4484	  4568	  4569
	  4711	  4714	  4717	  4720	  4723	  4782	  4785	  4788	  4791	  4799	  4823	  4840	  4867	  4870
	  4873	  4876	  4879	  4934	  4937	  4940	  4943	  4948	  4962	  5016	  5019	  5022	  5025	  5035
	  5058	  5545	  5548	  5551	  5554	  5557	  5750	  6017#
RETURN	   788#
RLEN	  1117#	  1117	  5851	  5856
RPEAT	  1124#	  1124	  1144	  1193	  1264	  1442	  1649	  1923	  2115	  2259	  3176
RSTAC	  4095	  4240	  4338	  4422	  4490	  4571	  5673#
RSTART	   490#
RTP	   961#
RUNFLG	   828#
S44	   133#	  1554	  1766	  1972	  1975	  2150	  2152	  5400	  5403	  6516	  6518	  6524	  6525	  6526
	  6528	  6530	  6531	  6534	  6536	  6538	  6542	  6545	  6551	  6554	  6564	  6567	  6573	  6578
	  6579	  6580	  6585	  6586	  6587	  6595	  6596	  6597	  6598	  6599	  6600	  6601	  6602	  6607
	  6608	  6609	  6610	  6611	  6617	  6618	  6619	  6620	  6621	  6622	  6625	  6626	  6633	  6634
	  6635	  6636	  6638	  6639	  6640	  6645	  6646	  6647	  6648	  6649	  6655	  6656	  6657	  6658
	  6659	  6660	  6663
SADR1	    39#	   777
SADR10	    48#	   793
SADR11	    49#	   794
SADR2	    40#	   779
SADR3	    41#	   781
SADR4	    42#
SADR5	    43#	   842
SADR6	    44#	   843
SADR7	    45#	   790
SADR8	    46#	   791
SADR9	    47#	   792
SAVZ	  5599#	  5599	  5605
SBINIT	   563	   787#
SCOPE	   880#                                                                                                            SEQ 0239
SCRIPT	  5517	  5771	  5994#
SELECT	   249#	  6122	  6123	  6124	  6125	  6247
SELWD	  3209	  3370	  3531	  3692	  3853	  6247#
SET1	  1794#	  1801
SETFG	  5579	  5582	  5585#
SETLC1	  2092#	  2095
SETLOC	  1900#	  1901
SETRAN	  1847	  1893#	  3255	  3416	  3899	  5500
SETSKP	  4120	  4163	  4217#
SFL	   155#	  1814	  1982	  2159	  5377
SFL1	   213#	  6564	  6565	  6566	  6571	  6572	  6576	  6577	  6578	  6579	  6580	  6583	  6587	  6598
	  6599	  6600	  6601	  6605	  6606	  6607	  6610	  6611	  6615	  6616	  6617	  6618	  6636	  6637
	  6640	  6642	  6645	  6646	  6675	  6676	  6677	  6678	  6683	  6684	  6685	  6686	  6691	  6692
	  6693	  6694	  6699	  6700	  6701	  6702	  6704
SFSTRT	   777#
SIGST	   250#	  6078	  6079	  6080	  6081	  6088	  6089	  6090	  6091	  6246
SIGWD	  2292	  6246#
SIMDES	  4114	  4361	  4480	  4486	  4487	  4488	  4503	  4798	  4825	  4839	  4947	  4981	  5033	  5057
	  5076	  5704	  5705	  5706	  5721	  6027#
SKP1	  4218	  4223#
SKPA	   257#	  6117	  6118	  6119	  6120
SKPM	   255#	  6107	  6108	  6109	  6110
SKPN	   256#	  6112	  6113	  6114	  6115
SKPTAB	  4083	  6039#
SKPWD1	  1457#	  1457	  1620	  1670#	  1670	  1870	  1939	  2063	  2133	  2220	  2287	  2311	  2366	  2390
	  2443	  2467	  2515	  2539	  2593	  2617	  2675	  2721	  2745	  2793	  2817	  2865	  2889	  2937
	  2961	  3014	  3038	  3086	  3110	  3220	  3323	  3381	  3484	  3542	  3645	  3703	  3806	  3864
	  3967	  4704	  4775	  4860	  4927	  5009	  5785
SKPWD2	  1458#	  1458	  1625	  1671#	  1671	  1875	  1940	  2068	  2134	  2225	  2288	  2319	  2367	  2398
	  2444	  2475	  2516	  2547	  2594	  2625	  2680	  2722	  2753	  2794	  2825	  2866	  2897	  2938
	  2969	  3015	  3046	  3087	  3118	  3221	  3280	  3287	  3382	  3441	  3448	  3543	  3602	  3609
	  3704	  3763	  3770	  3865	  3924	  3931	  4705	  4776	  4861	  4928	  5010
SLASH	   964#
SLEN	    66#	  1454	  1525	  1537	  1546	  1580	  1667	  1719	  1729	  1732	  1788	  1815	  1818	  1821
	  1950	  1983	  1986	  1989	  2004	  4041	  4049	  4087	  4088	  4092	  4119	  4131	  4137	  4144
	  4165	  4169	  4179	  4206	  4214	  4223	  4229	  4230	  4235	  4237	  4254	  4256	  4263	  4278
	  4283	  4284	  4287	  4289	  4319	  4323	  4332	  4335	  4711	  4782	  4867
SLEN1	    78#	  1580	  1587	  1788	  1794
SLONG	   111#	  1540	  1722	  6540	  6541	  6542	  6543	  6544	  6545	  6546	  6547	  6576	  6577	  6578
	  6579	  6580	  6581
SM10	  1068#	  1214	  1357
SOURCE	  1266	  1559	  1562	  1768	  1771	  1973	  1976	  2304	  2383	  2460	  2532	  2610	  2738	  2810
	  2882	  2954	  3031	  3103	  5401	  5404	  5696	  5697	  5698	  6024#	  6279	  6286	  6293	  6300
	  6370	  6377	  6384	  6414	  6420	  6426	  6432	  6492	  6498	  6504
SP	    70#	  1266	  1559	  1562	  1581	  1768	  1771	  1789	  1973	  1976	  2007	  4043	  4143	  4167
	  4183	  4268	  4578	  4714	  4785	  4870	  5019	  5401	  5404	  5466
SP1	    79#	  1581	  1585	  1590	  1594	  1789	  1792	  1800
SPACE	   953#
SRTDDT	    42	    44	   783#
START	   771	  1092#	  1092
START1	   790#
START2	   791#
START3	   792#                                                                                                            SEQ 0240
START4	   793#
START5	   794#
STARTA	   786	  1099	  1113#
STFLOT	  4603	  4614	  4648#
STOP	   248#	  2664	  6078	  6079	  6080	  6081	  6083	  6084	  6085	  6088	  6089	  6090	  6091	  6092
	  6093	  6094	  6095	  6097	  6098	  6099	  6100	  6102	  6103	  6104	  6105	  6107	  6108	  6109
	  6110	  6112	  6113	  6114	  6115	  6117	  6118	  6119	  6120	  6122	  6123	  6124	  6127	  6128
	  6129	  6130	  6245
STOPWD	  2371	  2448	  2520	  2598	  2726	  2798	  2870	  2942	  3019	  3091	  3214	  3375	  3536	  3697
	  3858	  6245#
STRL	   186#	  1948	  2142
STRL0	   184#	  6597	  6598	  6601	  6602	  6603	  6604	  6607	  6608	  6609	  6610	  6611	  6612	  6614
	  6615	  6616	  6617	  6618	  6619	  6620	  6621	  6622	  6623	  6624	  6625	  6626	  6635	  6636
	  6639	  6640	  6641	  6642	  6645	  6646	  6647	  6648	  6649	  6650	  6652	  6653	  6654	  6655
	  6656	  6657	  6658	  6659	  6660	  6661	  6662	  6663	  6664
STRL1	   185#	  6596	  6598	  6600	  6602	  6603	  6605	  6607	  6608	  6612	  6613	  6614	  6615	  6616
	  6617	  6618	  6619	  6620	  6621	  6622	  6623	  6624	  6625	  6626	  6634	  6636	  6638	  6640
	  6641	  6643	  6645	  6646	  6650	  6651	  6652	  6653	  6654	  6655	  6656	  6657	  6658	  6659
	  6660	  6661	  6662	  6663	  6664
STRLSH	   232#	  1949	  2143
SUBLNK	   525#	   787
SVAC	  4032	  4103	  4247	  4351	  4497	  5656#
SVLUUO	  1150#	  1150	  1165	  5233
SWPTAB	  1074#
SWTEXR	   802#
SYSEXR	   775#
SZERO	   108#	  1523	  1727	  6523	  6524	  6525	  6526	  6527	  6528	  6571	  6572	  6573
T	  1140#	  1171	  1189#	  1211	  1237	  1260#	  1297	  1313	  1348	  1388	  1438#	  1629	  1645#	  1879
	  1919#	  2072	  2111#	  2229	  2257#	  2270#	  2325	  2349#	  2404	  2426#	  2481	  2498#	  2553	  2576#
	  2631	  2684	  2704#	  2759	  2776#	  2831	  2848#	  2903	  2920#	  2975	  2997#	  3052	  3069#	  3124
	  3136#	  3185#	  3302	  3311	  3317	  3329	  3346#	  3463	  3472	  3478	  3490	  3507#	  3624	  3633
	  3639	  3651	  3668#	  3785	  3794	  3800	  3812	  3829#	  3946	  3955	  3961	  3973	  5189#	  5202
	  5212	  5231#	  5244	  5319#	  5326	  5334	  5339	  5344	  5349	  5354
TAB	   954#
TEMP	  4304	  4310	  4312	  6031#
TESTPC	   829#	  1093	  1143	  1192	  1263	  1441	  1648	  1922	  2114	  2275	  2354	  2431	  2503	  2581
	  2709	  2781	  2853	  2925	  3002	  3074	  3190	  3351	  3512	  3673	  3834
TICKS	   832#
TOTALS	   491#
TRANFG	  1662	  1664#	  1664	  1674	  1763	  1772	  1797	  1935	  1937	  2014	  2024	  2129	  2131	  2181
	  3246	  3407	  3568	  3729	  3890	  4234	  4843	  4903	  5271	  5329	  5576	  5585
TRAP1	  1146#	  1175
TRAP1A	  1149#	  1172	  1173
TRAP2	  1195#	  1212	  1217	  1240
TRAP2A	  1215	  1220#	  1238
TRAP3	  1266#	  1361	  1395
TRAPT1	  1126	  1142#
TRAPT2	  1176	  1191#
TRAPT3	  1218	  1241	  1262#	  1360
TSMUUO	  5120	  5133#
TTNBRF	  1012#
TTYFIL	   928#
TTYSPD	   929#                                                                                                            SEQ 0241
TXTINH	   502#
USER	   819#	  1098	  3173	  4955	  5119	  5165	  5191
USERF	   757#
USRASB	    32#	   809
USRCRF	   938#
USRLFF	   937#
UUOBLK	  5152	  5178	  5181	  5182	  5207	  5961#
UUODIS	   891#
UUOEXT	   847#
UUORTN	   848#
UUOSKP	   845#
$$MUUO	  1043#
$$OUTE	  1049#
$$TAX1	  1061#
$$TAX2	  1062#
$$TOGG	  1055#
$$UUO	  1032#
$ACC0	   870#
$BEND1	   840#
$BEND2	    43	   841#
$CHRIN	   931#
$CRLF	   933#
$DEVCH	   757#
$DSKUP	   810#
$DVCH1	   757#
$DVOFF	   927#
$EMODE	   808#
$FFF	   935#
$IBUF	   983#
$INEXT	   985#
$INNM	   984#
$ITRHL	   851#
$ITRX1	   852#
$LPAPE	  6719
$MMAP	   811#
$MODVL	   806#
$MODVU	   807#
$OBUF	   974#
$ONETM	   834#
$OUTEX	   976#
$OUTNM	   975#
$PAPER	   757
$PARER	   858#
$PNAME	   804#
$PSHER	   862#
$PVER	   805#
$RSRTX	   854#
$RSRTY	   855#
$SPAG1	   874#
$START	   771#
$SVAPR	   872#
$SVPAG	   873#
$SVPI	   871#                                                                                                            SEQ 0242
$SVUPC	   877#
$SVUUO	   876#
$TABF	   934#
$TTCHR	   930#
$TWCNT	   926#
$TYPNB	   932#
$UMODE	   809#
$UORTX	   849#
$USRHL	   853#
$UUOER	   850#	   891
$VTF	   936#
%ACTFL	   883#
%ACTUL	   884#
%COREC	   882#
%CORFL	   881#
%DISCR	   885#
%ERHI1	  1024#
%ERHI2	  1025#
%ERHI3	  1026#
.FHSLF	  5138
.JB41	   757#
.JBAPR	   757#
.JBCNI	   757#
.JBDDT	   757#
.JBFF	   757#
.JBINT	    57#	  5153
.JBOPC	   757#
.JBREL	   757#
.JBREN	   757#
.JBSA	   757#
.JBSYM	   757#
.JBTPC	   757#
.JBUSY	   757#
.JBUUO	   757#
.JBVER	   757#

AIC	  5143
CFLUSH	   675#                                                                                                            SEQ 0243
CINVAL	   674#
CLOKOP	   669#
CWRTBI	   676#
DEBRK	  5176
DROPDV	   636#
EDMOD	   267#	  2272	  2351	  2428	  2500	  2578	  2706	  2778	  2850	  2922	  2999	  3071
EIR	  5145
ENDUUO	   682#	   839
EOPUUO	   683#	   841
ERLOOP	   727#	  1172	  1212	  1238	  1298	  1314	  1349	  1389	  1630	  1880	  2073	  2230	  2326	  2405
	  2482	  2554	  2632	  2685	  2760	  2832	  2904	  2976	  3053	  3125	  3303	  3330	  3464	  3491
	  3625	  3652	  3786	  3813	  3947	  3974
ERLP1	   728#
ERLP2	   729#	  1360	  3312	  3318	  3473	  3479	  3634	  3640	  3795	  3801	  3956	  3962
ERRHLT	   570#
ERROR	   736#	  1169	  1209	  1234	  1295	  1310	  1345	  1385	  1629	  1879	  2072	  2229	  2323	  2402
	  2479	  2551	  2629	  2684	  2757	  2829	  2901	  2973	  3050	  3122	  3300	  3327	  3461	  3488
	  3622	  3649	  3783	  3810	  3944	  3971
ERROR1	   747#	  3309	  3315	  3470	  3476	  3631	  3637	  3792	  3798	  3953	  3959	  5197	  5209	  5239
	  5324	  5333	  5338	  5343	  5348	  5353
ERUUO	   726#	  1171	  1211	  1237	  1297	  1313	  1348	  1388	  1629	  1879	  2072	  2229	  2325	  2404
	  2481	  2553	  2631	  2684	  2759	  2831	  2903	  2975	  3052	  3124	  3302	  3311	  3317	  3329
	  3463	  3472	  3478	  3490	  3624	  3633	  3639	  3651	  3785	  3794	  3800	  3812	  3946	  3955
	  3961	  3973	  5202	  5212	  5244	  5326	  5334	  5339	  5344	  5349	  5354
FATAL	   569#	  5203	  5213	  5245
FRD36	   711#
FRD8	   712#
FREAD	   710#
FSELEC	   709#
GET	   553#	  1616	  1866	  1908	  1909	  2100	  2101	  4763	  4764	  4765	  4803	  4850	  4851	  4852
	  4910	  4911	  4912	  4952	  4994	  4995	  4996	  5039	  5107	  5108	  5109	  5168	  5175	  5179
	  5224	  5521	  5522	  5708	  5727	  5728	  5760	  5761	  5792	  5823	  5824	  5825	  5842	  5858
	  5904	  5905
GO	   550#	  1113	  1453	  1619	  1628	  1657	  1666	  1847	  1869	  1878	  2056	  2062	  2071	  2123
	  2213	  2219	  2228	  2290	  2297	  2310	  2315	  2322	  2369	  2376	  2389	  2394	  2401	  2446
	  2453	  2466	  2471	  2478	  2518	  2525	  2538	  2543	  2550	  2596	  2603	  2616	  2621	  2628
	  2643	  2668	  2674	  2683	  2724	  2731	  2744	  2749	  2756	  2796	  2803	  2816	  2821	  2828
	  2868	  2875	  2888	  2893	  2900	  2940	  2947	  2960	  2965	  2972	  3017	  3024	  3037	  3042
	  3049	  3089	  3096	  3109	  3114	  3121	  3227	  3233	  3238	  3255	  3273	  3322	  3326	  3388
	  3394	  3399	  3416	  3434	  3483	  3487	  3549	  3555	  3560	  3577	  3595	  3644	  3648	  3710
	  3716	  3721	  3738	  3756	  3805	  3809	  3871	  3877	  3882	  3899	  3917	  3966	  3970	  4032
	  4095	  4103	  4240	  4247	  4338	  4351	  4411	  4422	  4426	  4461	  4490	  4497	  4532	  4557
	  4566	  4571	  4603	  4614	  4733	  4736	  4741	  4746	  4757	  4760	  4794	  4810	  4813	  4819
	  4826	  4832	  4841	  4844	  4847	  4882	  4893	  4899	  4901	  4904	  4907	  4970	  4973	  4975
	  4982	  4988	  4991	  5028	  5052	  5060	  5068	  5077	  5082	  5101	  5104	  5301	  5500	  5563
	  5565	  5620
HALT	    45	    46	    47	    48	    49	   555#	   860
JEN	   557#
JRSTF	   556#	  5169	  5303
MAPADR	   692#
MAPCNK	   693#
MAPMEM	   689#
MAPPNT	   695#                                                                                                            SEQ 0244
MAPSET	   694#
MEMSEG	   691#
MEMZRO	   690#
MODPCP	   702#
MODPCU	   701#
MTROP	   670#
NAME	     7#	     9
PBELL	   645#
PCRL	   639#	  4755	  4837	  5520	  5756	  5804	  5819	  5822	  5840	  5900
PCRL2	   643#
PCRL2F	   644#
PCRLF	   640#
PFMAC	   330#	  3187	  3348	  3509	  3670	  3831
PFORCE	   647#
PGMINT	   563#	  1095
PJRST	   554#
PMSG	   649#	  1485	  1514	  1700	  1753	  4738	  4743	  4748	  4752	  4815	  4821	  4828	  4834	  4895
	  4977	  4984	  5046	  5065	  5073	  5079	  5087	  5096	  5515	  5768	  5781	  5789	  5834	  5872
	  5875	  5888
PMSGF	   652#
PNT1	   605#
PNT11	   619#
PNT11F	   620#
PNT1F	   606#
PNT2	   607#
PNT2F	   608#
PNT3	   609#
PNT3F	   610#
PNT4	   611#
PNT4F	   612#
PNT5	   613#
PNT5F	   614#
PNT6	   615#
PNT6F	   616#
PNT7	   617#
PNT7F	   618#
PNTA	   591#
PNTADF	   622#
PNTADR	   621#
PNTAF	   592#
PNTAL	   593#
PNTALF	   594#
PNTCHF	   604#
PNTCHR	   603#
PNTCI	   601#	  5748	  5752	  5815	  5882	  5895
PNTCIF	   602#
PNTCW	   637#
PNTCWF	   638#
PNTDCF	   630#
PNTDEC	   629#	  5839
PNTDS	   631#
PNTDSF	   632#
PNTHW	   625#	  5747	  5751	  5755                                                                                     SEQ 0245
PNTHWF	   626#
PNTMGN	   716#
PNTMSF	   598#
PNTMSG	   597#	  5740
PNTNM	   633#
PNTOCF	   628#
PNTOCS	   627#	  4750	  4754	  4836	  5089	  5098	  5814	  5881	  5886	  5894	  5899
PNTOCT	   623#
PNTOTF	   624#
PNTSIX	   634#	  5049	  5518
PNTSXF	   635#	  5772	  5787
PSIXL	   595#
PSIXLF	   596#
PSIXM	   599#	  1485	  1514	  1700	  1753	  4738	  4743	  4748	  4752	  4815	  4821	  4828	  4834	  4895
	  4977	  4984	  5046	  5065	  5073	  5079	  5087	  5096	  5516	  5769	  5782	  5790	  5835	  5873
	  5876	  5889
PSIXMF	   600#
PSP	   641#
PSPF	   642#
PUT	   552#	  1578	  1786	  1893	  1894	  2085	  2086	  4729	  4730	  4731	  4773	  4806	  4807	  4808
	  4888	  4889	  4890	  4925	  4966	  4967	  4968	  5007	  5042	  5043	  5044	  5160	  5181	  5219
	  5511	  5512	  5694	  5715	  5716	  5737	  5738	  5779	  5801	  5802	  5803	  5832	  5849	  5866
	  5867
REPTLP	    59#	  1175	  1217	  1240	  1361	  1395	  1635	  1885	  2078	  2235	  3132	  3985
REPTUO	   730#
RESET	  5136
RTN	   551#	   847	  1910	  2102	  4097	  4241	  4340	  4424	  4437	  4472	  4491	  4572	  4641	  4653
	  4727	  4766	  4804	  4853	  4886	  4913	  4953	  4997	  5040	  5110	  5127	  5146	  5154	  5183
	  5225	  5356	  5504	  5523	  5530	  5538	  5561	  5567	  5586	  5606	  5623	  5650	  5671	  5688
	  5709	  5729	  5762	  5773	  5793	  5826	  5843	  5859	  5906
S	   481#	   483	   487	   516	   518	   527	   530	   545	   546	   548	   559	   561	   565	   567
	   572	   576	   722	   724	   757	   762	   768	   795	   797	   815	   817	   835	   837	   866
	   868	   886	   888	   906	   908	   916	   918	   939	   944	   970	   972	   979	   981	   987
	   989	   995	   997	  1001	  1003	  1008	  1010	  1014	  1016	  1020	  1022	  1028	  1030	  1033
	  1035	  1039	  1041	  1045	  1047	  1051	  1053	  1057	  1059	  1064	  1066	  1070	  1072	  1076
	  1078	  1080	  1082
SIR	  5140
SIXBTZ	   658#	  1140	  1189	  1260	  1438	  1645	  1919	  2111	  2257	  2270	  2349	  2426	  2498	  2576
	  2704	  2776	  2848	  2920	  2997	  3069	  3136	  3185	  3346	  3507	  3668	  3829	  5189	  5231
	  5319
SWITCH	   664#	  1120
TTALTM	   585#
TTICHR	   578#
TTICLR	   588#
TTICNV	   583#
TTIDEC	   582#
TTINO	   580#
TTIOCT	   581#
TTIYES	   579#
TTLOOK	   584#
TTSIXB	   586#
TTYINP	   587#