Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dskea.seq
There are no other files named dskea.seq in the archive.
;DSKEA







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

	PRODUCT CODE:		AH-E337A-DD

	DIAGNOSTIC CODE:	DSKEA

	PRODUCT NAME:	 	DSKEAA0 DECSYSTEM 2020
				PAGING HARDWARE DIAGNOSTIC

	VERSION:		0.1

	DATE RELEASED:		MARCH 1978

	MAINTAINED BY:		DIAGNOSTIC ENGINEERING

	AUTHOR:			JOHN R. KIRCHOFF

		        COPYRIGHT (C) 1978

	        DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

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

	DIGITAL EQUIPMENT CORPORATION ASSUMES NO  RESPONSIBILITY FOR THE
	USE  OR  RELIABILITY  OF  ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
	SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
							MAINDEC-10-DSKEA
							PAGE 2                                                             SEQ 0003


			TABLE OF CONTENTS
			-----------------

1.0	ABSTRACT

2.0	REQUIREMENTS

2.1	EQUIPMENT

2.2	STORAGE

2.3	PRELIMINARY PROGRAMS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

3.2	STARTING PROCEDURE

3.3	OPERATING PROCEDURE

4.0	DATA SWITCH FUNCTIONS

5.0	ERRORS

6.0	ITERATION COUNTER

7.0	CYCLE TIME

8.0	OPERATIONAL VARIATIONS

9.0	MISCELLANEOUS

10.0	LISTING
							MAINDEC-10-DSKEA
							PAGE 3                                                             SEQ 0004

1.0	ABSTRACT

	THIS DECSYSTEM 2020 DIAGNOSTIC TESTS THE PAGING HARDWARE OF
	THE DECSYSTEM 2020 CENTRAL PROCESSOR. THE DIAGNOSTIC CONSISTS
	OF THE FOLLOWING TESTS:

	A.  EXEC BASE REGISTER
	B.  USER BASE REGISTER
	E.  MAP INSTRUCTION
	F.  PAGE FAIL TRAPPING
	G.  PAGING MEMORY
	H.  EXEC-PER-PROCESS MAPPING
	I.  PAGING MEMORY RELIABILITY
	J.  PAGED DATA READ
	K.  PAGED DATA WRITE
	L.  WRITE PROTECT
	M.  PAGED BLT
	N.  BASE REGISTER RELOCATION
	    1.  MUUO
	    2.  PAGE FAIL
	    3.  EXEC-PER-PROCESS
	    4.  LUUO
	    5.  TRAPPING
	    6.  INTERRUPTS
	    7.  EPMP PAGING
	O.  INSTRUCTION PAGE FAIL
	P.  MONITOR UUOS
	Q.  VARIOUS MACHINE MODES
	R.  TRAP LOGIC

	THIS DIAGNOSTIC OPERATES ONLY IN EXEC MODE.
							MAINDEC-10-DSKEA
							PAGE 4                                                             SEQ 0005

2.0	REQUIREMENTS

2.1	EQUIPMENT

	A DECSYSTEM 2020 WITH 32K OF MEMORY.
	DIAGNOSTIC CONSOLE
	CONSOLE TELETYPE
	LOAD DEVICE

2.2	STORAGE

	THE PROGRAM USES ALL OF THE FIRST 32K OF MEMORY

2.3	PRELIMINARY PROGRAMS

	ALL PRECEDING CENTRAL PROCESSOR DIAGNOSTICS.

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURES

	THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
	PROGRAM BE RESIDENT IN THEDECSYSTEM 2020.
	LOAD VIA CONSOLE PROCESSOR OR WITH "SMMON".

3.2	STARTING PROCEDURE

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

	B.  STAND-ALONE STARTING ADDRESS IS 30000.

	C.  SPECIAL FEATURE RESTART IS 30004(8).  THIS CLEARS THE PASS
	    COUNTER SO THE MAXIMUM ADDRESSING SETUP QUESTION MAY BE REPEATED.
							MAINDEC-10-DSKEA
							PAGE 5                                                             SEQ 0006

3.3	OPERATING PROCEDURE

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

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

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

	C.  ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
	    ERRORS ON THE LINE PRINTER.
							MAINDEC-10-DSKEA
							PAGE 6                                                             SEQ 0007

4.0	DATA SWITCH FUNCTIONS

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

	0    ABORT	0	NORMAL OPERATION
			1	ABORT AT END OF PASS

	1    RSTART		NOT USED

	2    TOTALS		NOT USED

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

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

	5    DING	0	NO FUNCTION
			1	RING TTY BELL ON ERROR

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

	7    ERSTOP	0	NO FUNCTION
			1	HALT ON TEST ERROR

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

	9    RELIAB	0	QUICK VERIFY OPERATION
			1	RELIABILITY MODE OPERATION

	10   TXTINH	0	PRINT FULL ERROR MESSAGES.
			1	INHIBIT COMMENT PORTION OF 
				ERROR MESSAGES.
							MAINDEC-10-DSKEA
							PAGE 7                                                             SEQ 0008

5.0	ERRORS

	ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER.  THE ERROR
	PRINTOUT CONTAINS THE TEST TITLE, TEST PASS COUNT, PC OF THE
	FAILURE, SUBTEST TITLE, SUBTEST FUNCTION, CORRECT WORD, ACTUAL
	RESULTS, DISCREPANCY WORD, AND A DIAGNOSTIC COMMENT.

	THE FOLLOWING IS AN EXAMPLE ERROR MESSAGE:

	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC (DSKEA)
	TEST PASS COUNT = #
	ERROR IN (SUBTEST TITLE) - (SUBTEST FUNCTION)
	CORRECT: XXXXXX XXXXXX
	ACTUAL:  YYYYYY YYYYYY
	DISCREP: ZZZZZZ ZZZZZZ
	(DIAGNOSTIC COMMENT)

	THE SUBTEST TITLE, SUBTEST FUNCTION, AND DIAGNOSTIC COMMENT
	PORTION OF THE ERROR TYPEOUT MAY BE INHIBITED BY SETTING THE
	'TXTINH' SWITCH.  THIS ALLOWS FOR SHORTER PRINTOUTS ON
	REPETITIVE FAILURES.

	THE TEST TITLE IS ONLY PRINTED WHEN STARTING THE PROGRAM OR ON THE
	FIRST FAILURE IF IT HAS NOT BEEN PRINTED YET.

	THE TEST PASS COUNT IS ONLY PRINTED ON ERROR WHICH OCCUR ON PASSES
	AFTER THE FIRST PASS.

	IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE
	'DING' SWITCH MAY BE SET.
							MAINDEC-10-DSKEA
							PAGE 8                                                             SEQ 0009

6.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS PRINTED ON THE CONSOLE
	TTY.

7.0	CYCLE TIME

	THE PROGRAM CYCLE TIME IS A UNDER A MINUTE AND IS THEREFORE
	SUITABLE FOR MARGINING, VIBRATION TESTS, ETC.

8.0	OPERATIONAL VARIATIONS

	THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
	RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
	QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
	OF THE PROCESSOR.

9.0	MISCELLANEOUS

	THIS DIAGNOSTIC DOES NOT USE THE "INHPAG" SWITCH AND DOES NOT
	USE THE CACHE.

10.0	LISTING
		HISTORY FILE FOR DSKEA                                                                                     SEQ 0010
		----------------------

---------------------------------------------------------------

CODE:		MAINDEC-10-DSKEA

TITLE:		DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC

VERSION:	0.1

DATE:		MARCH 1978

REASON:		ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 1             
                                                                                                                           SEQ 0011




















				   DOCUMENT
				**************
          DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^
				**************

















		    COPYRIGHT 1978
		    DIGITAL EQUIPMENT CORPORATION
		    MAYNARD, MASS. 01754

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 2             
                                                                                                                           SEQ 0012

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


	24	DIAGNOSTIC PARAMETERS

	165	PROGRAM MACRO'S

	202	PROGRAM MACROS AND OPDEFS

	250	CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978

	285	PROGRAM/SUBROUTINE PARAMETERS

	487	ERROR HANDLING UUO DEFINITIONS

	525	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978

	853	PROGRAM INITIALIZATION

	899	TEST EXEC BASE REGISTER

	1301	TEST USER BASE REGISTER

	1735	TEST PROCESSOR TRAPS

	1821	PDL TRAPPING TESTS

	2418	TEST MAP INSTRUCTION

	2516	TEST PAGE FAIL TRAPPING

	2627	TEST EXEC-PER-PROCESS MAPPING

	2741	TEST PAGING AND SCRATCHPAD MEMORIES

	2871	TEST PAGED DATA READ

	3015	TEST PAGED DATA WRITE

	3233	TEST PAGE FAIL WORD

	3293	TEST WRITE PROTECTED PAGING

	3384	PAGED BLT PAGING AND ADDRESSING TEST

	3471	TEST BASE REGISTER RELOCATION
DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 3             
                                                                                                                           SEQ 0013

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


	3864	TEST INTERRUPT RELOCATION

	4095	TEST PAGE REFILL RELOCATION

	4176	INSTRUCTION PAGE FAIL TESTING

	4743	TRAP INSTRUCTION PAGE FAIL TEST

	4970	INTERRUPT INSTRUCTION PAGE FAIL

	5058	PAGING MEMORY FLOATING BIT TEST TABLE

	5110	MONITOR UUO TRAP TESTING

	5283	TEST MUUO'S IN CONCEALED MODE

	5466	TRAP TESTING

	5541	FLAG SETTING

	6016	TEST IOT'S IN CONCEALED MODE

	6104	TEST USER MODE ADDRESSING

	6180	SPECIAL PROGRAM SUBROUTINES

	6218	*STOR* RESERVED STORAGE, MARCH 1978
DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 4             
                                                                                                                           SEQ 0014
		1	MAINDEC-10-DSKEA

		17	COPYRIGHT 1978
			DIGITAL EQUIPMENT CORPORATION
			MARLBORO, MASS. 01752

		21	JOHN R. KIRCHOFF

		*****************************************************************
	24	DIAGNOSTIC PARAMETERS
		*****************************************************************

		26	SUBROUTINE ASSEMBLY PARAMETERS

		34	ACCUMULATOR DEFINITIONS

		45	MISCELLANEOUS

		57	MAP INSTRUCTION READOUT ASSIGNMENTS
			
			BIT 0 - USER ADDRESS
			    1 - PAGE FAIL
			    2 - ACCESS
			    3 - WRITABLE
			    4 - SOFTWARE
			    7 - CACHE
			    8 - PAGED REF
			    9-13 - 0
			
			    ^ - CORE ADDRESS BITS 16-35
			
			
			PAGE FAIL ERROR FORMAT
			IF BIT 1 = 1
			
				20 - I/O PAGE FAIL
				25 - PAGE TABLE PARITY ERROR
				36 - HARD MEMORY ERROR
				37 - NXM
			
			PAGE TABLE ENTRY WORD FORMAT
			
			BIT 0 - ACCESS
			    2 - WRITABLE
			    3 - SOFTWARE
			    4 - CACHE
			
			    ^ - PHYSICAL PAGE ADDRESS BITS 16-26
			
			
			;LEFT HALF = EVEN VIRTUAL PAGE
			;RIGHT HALF = ODD VIRTUAL PAGE

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 5             
                                                                                                                           SEQ 0015
		93	BEGIN PARAMETERS

		124	KS-10 EXEC PAGE MAP PAGE ASSIGNMENTS

		137	KS-10 USER PAGE MAP PAGE ASSIGNMENTS

		*****************************************************************
	165	PROGRAM MACRO'S
		*****************************************************************

		169	TRY TO SET FLAG VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		*****************************************************************
	202	PROGRAM MACROS AND OPDEFS
		*****************************************************************

		231	SPECIAL PAGE TABLE DEFINITIONS

		*****************************************************************
	250	CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
		*****************************************************************

		255	DATA SWITCHES
			LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
			AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS

		*****************************************************************
	285	PROGRAM/SUBROUTINE PARAMETERS
		*****************************************************************

		288	SPECIAL SUBPROGRAM LINKAGES

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

		331	SUBROUTINE INITIALIZATION CALL

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

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

		360	TERMINAL OUTPUT UUO'S.

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

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 6             
                                                                                                                           SEQ 0016
		431	CONSOLE SWITCH INPUT UUO.
			READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
			 USER MODE.

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

		443	KS-10 CACHE OPERATION UUO'S

		448	END OF PASS/PROGRAM UUOS

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

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

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

		478	"DIAMON" FILE SELECTION AND READ UUOS

		*****************************************************************
	487	ERROR HANDLING UUO DEFINITIONS
		*****************************************************************

		490	ERROR HANDLER PARAMETERS

		499	THE ERROR HANDLER MACROS

		501	A MACRO TO REPORT AN ERROR AND LOOP

		512	A MACRO TO REPORT AN ERROR AND NOT LOOP

		*****************************************************************
	525	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
		*****************************************************************

		530	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.

		563	PROGRAM FIXED PARAMETER AREA

		583	PROGRAM VARIABLE PARAMETER AREA

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 7             
                                                                                                                           SEQ 0017
		603	SPECIAL PROGRAM DISPATCH ADDRESSES

		634	PROCESSOR CONTROL STORAGE

		654	UUO DISPATCH TABLE

		674	MEMORY MANAGMENT STORAGE

		684	PRINT CONTROL STORAGE

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

		738	USER MODE OUTPUT FILE INFORMATION

		747	DISK UPDATE MODE FILE INFORMATION

		755	PUSHDOWN LIST CONTROL INFORMATION

		763	POWER LINE CLOCK FREQUENCY FLAG

		769	KL10 CACHE CONTROL FLAGS

		776	NUMBER INPUT DIGIT FLAG

		782	KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION

		788	ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS

		796	SPECIAL USERS UUO INTERCEPT INSTRUCTION

		801	USER MODE MONITOR TYPE FLAG

		807	SPECIAL USERS MUUO INTERCEPT INSTRUCTION

		813	SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION

		819	"SWITCH" CALL USAGE CONTROL

		825	SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS

		832	SM10 (KS-10) PROCESSOR TYPE FLAG

		838	RIGHT HALF SWITCHES PROMPT TABLE ADDRESS

		844	SPECIAL FUTURE EXPANSION ROOM

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 8             
                                                                                                                           SEQ 0018
		848	END OF FIXED STORAGE

		*****************************************************************
	853	PROGRAM INITIALIZATION
		*****************************************************************

		*****************************************************************
	899	TEST EXEC BASE REGISTER
		*****************************************************************

		905	LOAD EXEC BASE REGISTER WITH ALL ZERO'S WITH CONO
			EXEC BASE REGISTER SHOULD THEN BE CLEAR.

		921	LOAD EXEC BASE REGISTER WITH ALL ONE'S
			IF ANY BIT IS READ BACK THEN LOAD EBR SHOULD WORK.

		936	LOAD EXEC BASE REGISTER WITH TRAP ENABLE BIT

		955	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		966	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		980	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		994	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1008	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1022	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1036	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1050	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1064	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1078	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1092	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 9             
                                                                                                                           SEQ 0019
		1106	CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.

		1120	LOAD EXEC BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK

		1136	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1147	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1161	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1175	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1189	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1203	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1217	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1231	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1245	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1259	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1273	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

		1287	LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
			TO CHECK BIT INTERACTION.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 10            
                                                                                                                           SEQ 0020
		*****************************************************************
	1301	TEST USER BASE REGISTER
		*****************************************************************

		1303	LOAD USER BASE REGISTER WITH ALL ZERO'S.
			USER BASE REGISTER SHOULD THEN BE CLEAR.

		1320	LOAD USER BASE REGISTER WITH ALL ONE'S.
			IF ANY BIT IS READ BACK THEN LOAD UBR SHOULD WORK.

		1339	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1352	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1368	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1384	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1400	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1416	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1432	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1448	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1464	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1480	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1496	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1512	CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
			ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS

		1527	LOAD USER BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK.

		1543	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 11            
                                                                                                                           SEQ 0021
		1556	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1572	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1588	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1604	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1620	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1636	LOAD USER BASE REGISTER WITH A FLOATING ZERO

		1637	CHECK BIT INTERACTION.

		1652	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1668	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1684	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1700	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		1716	LOAD USER BASE REGISTER WITH A FLOATING ZERO
			CHECK BIT INTERACTION.

		*****************************************************************
	1735	TEST PROCESSOR TRAPS
		*****************************************************************

		1748	TEST TRAP 3 TRAP

		1772	TEST PUSHDOWN OVERFLOW TRAP

		1795	TEST OVERFLOW TRAP

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 12            
                                                                                                                           SEQ 0022
		*****************************************************************
	1821	PDL TRAPPING TESTS
		*****************************************************************

		1823	THESE TEST FOR THE PUSHDOWN INSTRUCTIONS INSURE THAT THEY WILL
			INDEED TRAP WHEN AN OVERFLOW OR UNDERFLOW CONDITION OCCURS.
			THESE TEST ALSO VERIFY THE VALIDITY OF THE INFORMATION PROCESSED
			BY THE INSTRUCTION, AS THEY SHOULD GIVE VALID RESULTS INDEPENDENT
			OF WHETHER OR NOT THEY TRAP.

		1829	TEST PUSH INSTRUCTION

		1859	TEST PUSHJ INSTRUCTION

		1890	TEST POP INSTRUCTION

		1916	TEST POPJ INSTRUCTION

		1941	TEST OVERFLOW TRAP WITH "ASH"

		1964	TEST OVERFLOW TRAP WITH "ASHC"

		1988	TEST OVERFLOW TRAP WITH "MUL"

		2011	TEST OVERFLOW TRAP WITH "IMUL"

		2034	TEST OVERFLOW TRAP WITH "ADJBP"

		2052	TEST OVERFLOW TRAP WITH "FSC"

		2070	TEST OVERFLOW TRAP WITH "FIX"

		2093	TEST OVERFLOW TRAP WITH "FIXR"

		2116	TEST OVERFLOW TRAP WITH "FAD"

		2134	TEST OVERFLOW TRAP WITH "DFAD"

		2152	TEST OVERFLOW TRAP WITH "FSB"

		2171	TEST OVERFLOW TRAP WITH "DFSB"

		2191	TEST OVERFLOW TRAP WITH "FMP"

		2209	TEST OVERFLOW TRAP WITH "DFMP"

		2227	TEST NO-DIVIDE TRAP WITH "DIV"

		2255	TEST NO-DIVIDE TRAP WITH "IDIV"

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 13            
                                                                                                                           SEQ 0023
		2283	TEST NO-DIVIDE TRAP WITH "FDV"

		2311	TEST NO-DIVIDE TRAP WITH "FDVR"

		2339	TEST NO-DIVIDE TRAP WITH "DFDV"

		2372	TRAPPING SUBROUTINES

		2407	TRAP STORAGE

		*****************************************************************
	2418	TEST MAP INSTRUCTION
		*****************************************************************

		2424	PERFORM 'MAP' OF ADDRESS 0.
			MAP READOUT SHOULD BE:
			ACCESS, WRITEABLE, SOFTWARE, PAGED REF

		2440	PERFORM 'MAP' OF ADDRESS 337000,
			HIGHEST EXEC PAGED MEMORY ADDRESS.
			MAP READOUT SHOULD BE:
			ACCESS, WRITABLE, SOFTWARE, PAGED REF

		2452	CLEAR PAGE MAP

		2459	PERFORM 'MAP' OF ADDRESS 400000,
			LOWEST EPMP PAGING ADDRESS.
			SINCE PAGE MAP IS CLEAR
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2472	PERFORM 'MAP' OF ADDRESS 777000,
			HIGHEST EPMP PAGING ADDRESS.
			SINCE PAGE MAP IS CLEAR
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2484	SETUP EPMP FOR ADDRESS 400000 WITH ALL BUT ACCESS.
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.
			IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD
			SHOULD HAVE NO EFFECT.

		2499	SETUP EPMP FOR ADDRESS 777000 WITH ALL BUT ACCESS.
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.
			IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD
			SHOULD HAVE NO EFFECT.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 14            
                                                                                                                           SEQ 0024
		*****************************************************************
	2516	TEST PAGE FAIL TRAPPING
		*****************************************************************

		2522	DO A 'MOVE' FROM LOCATION 400000.
			SINCE PAGE MAP IS CLEAR THIS SHOULD PAGE FAIL.

		2550	PAGE FAULT TRAP SHOULD RETURN HERE

		2569	PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY

		2575	CHECK PAGE FAIL WORD FOR MAXIMUM ADDRESS
			DO A 'MOVE' FROM LOCATION 777777.

		2591	PAGE FAULT TRAP SHOULD RETURN HERE

		2610	PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY

		2617	RESET PAGE FAULT TRAP

		*****************************************************************
	2627	TEST EXEC-PER-PROCESS MAPPING
		*****************************************************************

		2643	PERFORM 'MAP' OF ADDRESS 340000
			LOWEST UPMP EXEC-PER-PROCESS ADDRESS.
			SINCE PAGE MAP IS CLEAR
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2657	PERFORM 'MAP' OF ADDRESS 377000
			HIGHEST UPMP EXEC-PER-PROCESS ADDRESS.
			SINCE PAGE MAP IS CLEAR
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2669	SETUP UPMP FOR ADDRESS 340000 WITH ALL BUT ACCESS.
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2682	SETUP UPMP FOR ADDRESS 377000 WITH ALL BUT ACCESS
			MAP READOUT SHOULD BE:
			PAGE FAIL, PAGING MEMORY NO MATCH.

		2699	UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 377 WITH
			ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 0.
			'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP'
			SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA
			FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY
			WITH PAGE ADDRESS 377.
			THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT'
			BY THE MAP INSTRUCTION.
			READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG')
			SHOULD BE:

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 15            
                                                                                                                           SEQ 0025
			PAGE 377',EXEC MEMORY SPACE, RELOAD COUNTER.

		2719	UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 340 WITH
			ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 03777.
			'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP'
			SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA
			FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY
			WITH PAGE ADDRESS 340.
			THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT'
			BY THE MAP INSTRUCTION.
			READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG')
			SHOULD BE:
			PAGE 340',EXEC MEMORY SPACE, RELOAD COUNTER.

		*****************************************************************
	2741	TEST PAGING AND SCRATCHPAD MEMORIES
		*****************************************************************

		2743	PAGE MAP IS SETUP FOR 42 PAGES WITH DATA THAT PRODUCES
			FLOATING BIT PATTERNS IN BOTH THE PAGING MEMORY
			AND THE SCRATCHPAD MEMORY TO CHECK REGISTER AND BIT INTERACTION.
			ALL PAGING ADDRESSES ARE SETUP SO PAGING MUST REFILL ON EVERY
			OPERATION.  THIS SHOULD VERIFY THAT THE PAGING REFILL OPERATION
			AND THE PAGING AND SCRATCHPAD REGISTERS ARE OPERATIONAL.

		2813	CLEAR PAGING MEMORY AND PAGE MAP
			CHECK THAT ALL PREVIOUS REFERENCES TRAP
			SHOULD IF AM IS REALLY CLEAR

		*****************************************************************
	2871	TEST PAGED DATA READ
		*****************************************************************

		2873	USING PAGING ADDRESSES 400XXX AND 777XXX

		2891	TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING.
			'E' = PAGE 400 (HIGH ORDER 9 BITS),
			LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR400' ADDRESS.
			PAGE MAP RELOCATION BITS SETUP FOR
			HIGH ORDER 9 BITS OF 'PGR400' ADDRESS.
			THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS:
			HIGH ORDER 9 BITS FROM PAGE MAP AND
			LOW ORDER 9 BITS OF 'PGR400' ADDRESS.

		2909	TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING.
			'E' = PAGE 777 (HIGH ORDER 9 BITS),
			LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR777' ADDRESS.
			PAGE MAP RELOCATION BITS SETUP FOR
			HIGH ORDER 9 BITS OF 'PGR777' ADDRESS.
			THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS:
			HIGH ORDER 9 BITS FROM PAGE MAP AND
			LOW ORDER 9 BITS OF 'PGR777' ADDRESS.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 16            
                                                                                                                           SEQ 0026
		2931	TEST READ OF DATA FROM A DATA BLOCK
			USING PAGED REFERENCES THAT POINT TO
			CONSECUTIVE DATA WORDS IN AN EXEC UNPAGED
			MEMORY AREA.
			DATA CONSISTS OF COMPLEMENT OF AND
			PAGING REFERENCE ADDRESS.

		*****************************************************************
	3015	TEST PAGED DATA WRITE
		*****************************************************************

		3017	USING PAGING ADDRESS 400XXX AND 777XXX
			PAGING REFERENCES POINT TO EXEC UNPAGED ADDRESSES.

		3036	TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING.
			'E' = PAGE 400 (HIGH ORDER 9 BITS),
			LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW400' ADDRESS.
			PAGE MAP RELOCATION BITS SETUP FOR
			HIGH ORDER 9 BITS OF 'PGW400' ADDRESS.
			THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS:
			HIGH ORDER 9 BITS FROM PAGE MAP AND
			LOW ORDER 9 BITS OF 'PGW400' ADDRESS.

		3062	TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING.
			'E' = PAGE 777 (HIGH ORDER 9 BITS),
			LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW777' ADDRESS.
			PAGE MAP RELOCATION BITS SETUP FOR
			HIGH ORDER 9 BITS OF 'PGW777' ADDRESS.
			THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS:
			HIGH ORDER 9 BITS FROM PAGE MAP AND
			LOW ORDER 9 BITS OF 'PGW777' ADDRESS.

		3092	TEST WRITE OF DATA USING PAGED ADDRESS.
			DATA IS WRITTEN INTO CONSECUTIVE DATA WORDS
			IN AN EXEC UNPAGED DATA AREA.
			DATA CONSISTS OF PAGED ADR AND COMPLEMENT OF PAGED ADDRESS.

		*****************************************************************
	3233	TEST PAGE FAIL WORD
		*****************************************************************

		3239	VERIFY THAT THE PROPER PAGE FAIL CODE OCCURS ON A PAGED READ
			TO AN AREA WITHOUT THE ACCESS BIT BUT WITH THE PUBLIC,
			WRITEABLE,SOFTWARE & CACHE BIT.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 17            
                                                                                                                           SEQ 0027
		*****************************************************************
	3293	TEST WRITE PROTECTED PAGING
		*****************************************************************

		3295	TRYING TO WRITE INTO A WRITE PROTECTED AREA
			SHOULD CAUSE A PAGE FAILURE

		*****************************************************************
	3384	PAGED BLT PAGING AND ADDRESSING TEST
		*****************************************************************

		3386	CHECKS THAT ADDRESSING FROM 340000 TO 777777 WORKS.
			ALL PAGING REFERENCES RELOCATE INTO ACTUAL ADDRESSES 76000 TO 76777.
			BLT USES ALL ADDRESS FROM 340000 TO 777777.

		*****************************************************************
	3471	TEST BASE REGISTER RELOCATION
		*****************************************************************

		3473	SETUP PAGE MAP PAGES AS PAGE 76
			SETUP PAGE 0 PAGE MAP FOR ERRORS
			SETUP BASE REGISTERS
			TEST MUUO FOR PAGE 0 AND FOR PAGE 76
			TEST THAT EXEC PAGE FAIL WORD STORES CORRECTLY
			IN PAGE 76 USING USER BASE REGISTER RELOCATION.

		3523	TEST USER BASE REGISTER RELOCATION
			BY USING AN MUUO OF 0,,654321.

		3526	TEST MUUO FIRST WITH EPMP & UPMP AS PAGE 0.

		3555	TEST THAT WITH UPMP RELOCATED TO PAGE 76
			AN MUUO TRAPS CORRECTLY AND RETRIEVES NEW PC
			FROM RELOCATED USER PAGE MAP PAGE.
			ALSO TEST THAT MUUO AND TRAPPED PC GET STORED CORRECTLY
			IN RELOCATED UPMP.

		3585	TEST USER BASE REGISTER RELOCATION
			BY USING EXEC PAGE FAIL WORD

		3618	TEST BASE REGISTER RELOCATION
			BY USING EXEC-PER-PROCESS PAGING
			AND PAGING REFILL DATA FROM RELOCATED PAGE
			WITH USER BASE REGISTER SET TO PAGE 76.

		3697	TEST THAT A TRAP FROM THE EXEC-PER-PROCESS AREA
			USES THE CORRECT BASE REGISTER

		3742	TEST BASE REGISTER RELOCATION
			BY USING PAGE FAULT TRAP

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 18            
                                                                                                                           SEQ 0028
		3786	TEST BASE REGISTER RELOCATION
			BY USING TRAPPING

		3796	TEST RELOCATED TRAP 3

		3817	TEST RELOCATED TRAP 2

		3838	TEST RELOCATED TRAP 1

		*****************************************************************
	3864	TEST INTERRUPT RELOCATION
		*****************************************************************

		3866	SET PAGE 0 INTERRUPT LOCATIONS AS ERROR
			SETUP RELOCATED PAGE INTERRUPT LOCATIONS FOR TESTING
			RELOCATE EXEC BASE REGISTER
			TEST INTERRUPTS

		3907	PAGE 0 INTERRUPT ERROR HANDLER

		3920	RELOCATED INTERRUPT MACRO'S

		3923	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = APRCHN.

		3936	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = ITRCHN

		3946	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 7

		3958	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 7

		3966	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 6

		3978	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 6

		3986	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 5

		3998	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 5

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 19            
                                                                                                                           SEQ 0029
		4006	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 4

		4018	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 4

		4026	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 3

		4038	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 3

		4046	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 2

		4058	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 2

		4066	SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
			INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
			PAGE MAP RELOCATED TO PAGE 76.
			INTERRUPT CHANNEL = 1

		4078	INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 1

		*****************************************************************
	4095	TEST PAGE REFILL RELOCATION
		*****************************************************************

		4097	BY PUTTING REFILL DATA IN PAGE 76.
			AND RELOCATING EXEC BASE REGISTER

		*****************************************************************
	4176	INSTRUCTION PAGE FAIL TESTING
		*****************************************************************

		4178	TEST BLOCK TRANSFER PAGE FAIL
			SETUP 5 WORD BLT ACROSS PAGE BOUNDRY
			FIRST PAGE DATA RELOCATION DATA IN PAGE MAP
			SECOND PAGE DATA RELOCATION DATA NOT IN PAGE MAP
			PERFORM BLT
			SHOULD PAGE FAIL AFTER TRANSFERING 3 WORDS.
			TEST PAGE FAIL, BLT AC, ETC.
			REDO BLT, ON PAGE FAIL SETUP 2ND PAGE RELOCATION DATA AND CONTINUE BLT.
			TEST FOR PROPER COMPLETION.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 20            
                                                                                                                           SEQ 0030
		4223	BLT PAGE FAIL RETURN

		4275	TEST BLT PAGE FAIL CONTINUE

		4294	BLT SHOULD PAGE FAIL
			PAGE MAP IS THEN SETUP
			AND BLT CONTINUED

		4338	ON PAGE FAIL, SETUP NEXT PAGE FOR BLT

		4344	TEST BYTE PAGE FAIL
			FIRST TEST WITH BYTE DATA IN UNMAPPED PAGE
			THEN TEST WITH BYTE POINTER IN UNMAPPED PAGE.

		4376	ILDB PAGE FAIL RETURN
			BYTE POINTER SHOULD HAVE BEEN INCREMENTED
			PAGE FAIL SHOULD HAVE OCCURRED WHEN DATA WAS FETCHED.

		4404	TEST DEPOSIT BYTE PAGE FAIL

		4420	IDPB PAGE FAIL RETURN

		4450	TEST BYTE POINTER FETCH PAGE FAIL
			BYTE POINTER IN PAGED AREA WITH PAGE MAP CLEARED
			THEREFORE PAGE FAIL SHOULD OCCUR ON POINTER FETCH
			AND POINTER SHOULD NOT BE INCREMENTED.

		4471	POINTER FETCH PAGE FAIL RETURN

		4505	TEST DOUBLE MOVE PAGE FAIL
			FIRST PAGE FAIL ON FIRST OPERAND FETCH
			OPERANDS FETCHED FROM PAGED AREA WITH PAGE MAP CLEAR.

		4537	PAGE FAIL RETURN

		4562	PAGE FAIL DOUBLE MOVE ON SECOND WORD
			DATA FOR FIRST OPERAND IN PAGE WITH RELOCATION DATA IN PAGE MAP.
			DATA FOR SECOND OPERAND ACROSS PAGE BOUNDRY
			PAGE MAP CLEAR FOR THAT PAGE.

		4586	PAGE FAIL RETURN

		4614	TEST DOUBLE MOVE TO MEMORY PAGE FAIL
			FIRST TEST WITH DATA DESTINATION ADDRESSES IN A PAGED AREA
			WITH THE PAGE MAP CLEAR.

		4649	PAGE FAIL RETURN

		4686	TEST DOUBLE MOVE TO MEMORY PAGE FAIL
			PAGE FAIL ON SECOND WORD.
			PAGE MAP SETUP SO FIRST OPERAND IS STORED IN PAGE
			WITH RELOCATION DATA IN PAGE MAP.
			SECOND OPERAND STORE IS ACROSS PAGE BOUNDRY WITH
			PAGE MAP CLEAR FOR THAT PAGE.

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 21            
                                                                                                                           SEQ 0031
		4711	PAGE FAIL RETURN

		*****************************************************************
	4743	TRAP INSTRUCTION PAGE FAIL TEST
		*****************************************************************

		4745	CAUSE A TRAP, THE TRAP "JSR" IS TO A PAGED ADDRESS THAT PAGE FAILS
			PAGE FAIL ROUTINE VERIFIES PAGE FAIL INFO & CORRECT PC WORD
			PAGE TABLE THEN SETUP AND TRAP CONTINUED
			TRAP SHOULD THEN COMPLETE
			TRAP HANDLER THEN VERIFIES CORRECT PC WORD

		4787	HERE IF PAGE FAIL TRAP HAPPENED

		4808	SETUP FOR PAGE FAIL TRAP CONTINUE

		4820	HERE IF TRAP CONTINUED PROPERLY

		4839	CAUSE A TRAP TO A PAGE FAIL PAGE
			TRAP HANDLER THEN VERIFIES CORRECT PC WORD

		4886	HERE IF TRAP HAPPENED WITHOUT PAGE FAIL

		4896	HERE IF PAGE FAIL TRAP HAPPENED

		4916	TEST I/O INSTRUCTION PAGE FAIL

		*****************************************************************
	4970	INTERRUPT INSTRUCTION PAGE FAIL
		*****************************************************************

		4976	CAUSE AN INTERRUPT THAT HAS FOR ITS INTERRUPT HANDLING
			INSTRUCTION A "JSR" TO A PAGE FAIL ADDRESS.
			AN I/O PAGE FAIL INTERRUPT SHOULD OCCUR.

		4983	FIRST VERIFY THAT THE METER CAN CAUSE AN INTERRUPT

		4998	NOW USE IT TO CAUSE I/O PAGE FAIL

		5029	IF PAGE FAIL HAPPENED, ERROR

		5037	APR ERROR INTERRUPT, CHECK PROPER CONDITIONS

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 22            
                                                                                                                           SEQ 0032
		*****************************************************************
	5058	PAGING MEMORY FLOATING BIT TEST TABLE
		*****************************************************************

		5060	LH = SCRATCHPAD DATA
			RH = PAGING ADDRESS

		*****************************************************************
	5110	MONITOR UUO TRAP TESTING
		*****************************************************************

		5112	TEST MUUO TRAPPING TO 424(KERNAL NO TRAP)

		5190	MONITOR UUO TEST - UUO STORE INTO 424

		5224	MONITOR UUO - STORE CORRECT PC

		5250	TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING
			A MONITOR UUO

		*****************************************************************
	5283	TEST MUUO'S IN CONCEALED MODE
		*****************************************************************

		5285	MONITOR UUO TEST - TRAPPING IN CONCEALED MODE

		5332	MONITOR UUO TEST - UUO STORE INTO 424

		5380	MONITOR UUO - STORING THE CORRECT PC

		5419	MUUO STORING THE CORRECT E FIELD

		*****************************************************************
	5466	TRAP TESTING
		*****************************************************************

		5468	CAUSE TRAPS VIA JRSTF INSTRUCTION
			TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO
			AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP
			TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0

		5495	TEST PUSHDOWN LIST OVERFLOW TRAP TO 422

		5518	TRAP3 TRAP TEST TRAPPING TO 423

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 23            
                                                                                                                           SEQ 0033
		*****************************************************************
	5541	FLAG SETTING
		*****************************************************************

		5545	TRY TO SET USERF VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5588	THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER
			MODE RESTORE VIA MUUO

		5610	TRY TO SET EXIOT VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5656	TRY TO SET AROV VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5701	TRY TO SET CRY0 VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5746	TRY TO SET CRY1 VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5791	TRY TO SET FOV VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5836	TRY TO SET BIS VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5881	TRY TO SET FXU VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5926	TRY TO SET DCK VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		5972	TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP
			TRAPS TO ANY MODE IS OK FOR THIS TEST

		*****************************************************************
	6016	TEST IOT'S IN CONCEALED MODE
		*****************************************************************

		6090	ILLEGAL USER MODE IOT TABLE

DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^              DECDOC VER  00.24   29-MAR-78 15:26:30   PAGE 24            
                                                                                                                           SEQ 0034
		*****************************************************************
	6104	TEST USER MODE ADDRESSING
		*****************************************************************

		6106	USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER

		*****************************************************************
	6180	SPECIAL PROGRAM SUBROUTINES
		*****************************************************************

		6195	PAGE TABLE SETUP

		*****************************************************************
	6218	*STOR* RESERVED STORAGE, MARCH 1978
		*****************************************************************
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1
DSKEAT	MAC	29-Mar-78 14:48		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0035

     1					;*MAINDEC-10-DSKEA
     2
     3			000000		MCNVER=0
     4			000001		DECVER=1
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10						NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^
    13
    14	000137				LOC	137
    15	000137	000000	000001		MCNVER,,DECVER
    16
    17					;*COPYRIGHT 1978
    18					;*DIGITAL EQUIPMENT CORPORATION
    19					;*MARLBORO, MASS. 01752
    20
    21					;*JOHN R. KIRCHOFF
    22
    23						NOSYM
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 2
DSKEAT	MAC	29-Mar-78 14:48		DIAGNOSTIC PARAMETERS                                                              SEQ 0036

    24					SUBTTL	DIAGNOSTIC PARAMETERS
    25
    26					;*SUBROUTINE ASSEMBLY PARAMETERS
    27
    28			000001		EXCASB=	1	;ASSEMBLE FOR EXEC MODE
    29			000001		PGMEND=	1	;    "    PROGRAM END STATEMENT
    30			000100		DEBUG=	100	;    "    ROOM FOR DEBUGGING
    31			030000		MODDVL=	BEGIN
    32			030000		MODDVU=	BEGIN
    33
    34					;*ACCUMULATOR DEFINITIONS
    35
    36			000006		CNTR=6		;COUNTER AC
    37			000007		AC=7		;COMMON AC 1
    38			000010		AC1=10		;COMMON AC 2
    39			000011		AC2=11		;COMMON AC 3
    40			000012		AC3=12		;COMMON AC 4
    41			000013		ACT=13		;ACTUAL RESULTS AC
    42			000014		COR=14		;CORRECT RESULTS AC
    43			000005		INDX=5		;INDEXING AC
    44
    45					;*MISCELLANEOUS
    46
    47		257000	000000		OPDEF	MAP	[257B8]		;MAP INSTRUCTION
    48
    49			043742		PGRDTB=END+1	;440(8) WORD PAGED READ DATA BLOCK
    50			043742		PGWRTB=END+1	;440(8) WORD PAGED WRITE DATA BLOCK
    51			044401		END1=END+440	;NEW END OF PROGRAM
    52
    53			000400		TN0==400	;TRAP NUMBER 0
    54			000200		TN1==200	;TRAP NUMBER 1
    55
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3
DSKEAT	MAC	29-Mar-78 14:48		DIAGNOSTIC PARAMETERS                                                              SEQ 0037

    56					COMMENT	%
    57					MAP INSTRUCTION READOUT ASSIGNMENTS
    58
    59					BIT 0 - USER ADDRESS
    60					    1 - PAGE FAIL
    61					    2 - ACCESS
    62					    3 - WRITABLE
    63					    4 - SOFTWARE
    64					    7 - CACHE
    65					    8 - PAGED REF
    66					    9-13 - 0
    67					    16
    68					    ^ - CORE ADDRESS BITS 16-35
    69					    35
    70
    71					PAGE FAIL ERROR FORMAT
    72					IF BIT 1 = 1
    73
    74						20 - I/O PAGE FAIL
    75						25 - PAGE TABLE PARITY ERROR
    76						36 - HARD MEMORY ERROR
    77						37 - NXM
    78
    79					PAGE TABLE ENTRY WORD FORMAT
    80
    81					BIT 0 - ACCESS
    82					    2 - WRITABLE
    83					    3 - SOFTWARE
    84					    4 - CACHE
    85					    7
    86					    ^ - PHYSICAL PAGE ADDRESS BITS 16-26
    87					   17
    88
    89					;LEFT HALF = EVEN VIRTUAL PAGE
    90					;RIGHT HALF = ODD VIRTUAL PAGE
    91					%
    92
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4
DSKEAT	MAC	29-Mar-78 14:48		DIAGNOSTIC PARAMETERS                                                              SEQ 0038

    93					;*BEGIN PARAMETERS
    94
    95			030647		SADR1=	SFSRT1		;SPECIAL FEATURE START
    96			030076		SADR2=	RESRT1		;POWER FAIL RESTART
    97			030000		SADR3=	BEGIN		;NO REENTER START
    98			030007		SADR4=	SRTDDT		;DDT
    99			030061		SADR5=	$BEND2		;^C - START OVER
   100			030000		SADR6=	BEGIN		;ALTMODE - START OVER
   101		254200	030000		SADR7=	HALT BEGIN
   102		254200	030000		SADR8=	HALT BEGIN
   103		254200	030000		SADR9=	HALT BEGIN
   104		254200	030000		SADR10=	HALT BEGIN
   105		254200	030000		SADR11=	HALT BEGIN
   106
   107			000000		PAREA1=	0		;NO RANDOM
   108			000000		PAREA2=	0		;NO SYS EXR
   109		446353	454100		PAREA3=	SIXBIT/DSKEA/	;PROGRAM NAME
   110			000000		PAREA4=	0		;NO EXTENTION
   111			000000		PAREA5=	0
   112			000000		PAREA6=	0
   113
   114			000001		ITERAT=	1
   115
   116					;MACROS
   117
   118					DEFINE	SUBTST<
   119						MOVEI	.
   120						MOVEM	TESTPC		;SETUP SUBTEST PC >
   121
   122		367640	000000		OPDEF	REPTLP	[SOJG	REPT,]		;REPEAT LOOP
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 5
DSKEAT	MAC	29-Mar-78 14:48		DIAGNOSTIC PARAMETERS                                                              SEQ 0039

   123					S^;*********************************************************************^
   124					;*KS-10 EXEC PAGE MAP PAGE ASSIGNMENTS
   125					S^;*********************************************************************^
   126
   127			000421		LAROVTP==421			;ARITHMETIC TRAP
   128			000422		LPDOVTP==422			;PUSHDOWN OVERFLOW TRAP
   129			000423		LTRP3TP==423			;TRAP 3 TRAP
   130
   131			000510		LTBASH==510			;TIME-BASE, HI
   132			000511		LTBASL==511			;TIME-BASE, LO
   133			000512		LPRFMH==512			;PERFORMANCE ANAYLYSIS, HI
   134			000513		LPRFML==513			;PERFORMANCE ANAYLYSIS, LO
   135
   136					S^;*********************************************************************^
   137					;*KS-10 USER PAGE MAP PAGE ASSIGNMENTS
   138					S^;*********************************************************************^
   139
   140			000421		LAROVTP==421			;ARITHMETIC TRAP
   141			000422		LPDOVTP==422			;PUSHDOWN OVERFLOW TRAP
   142			000423		LTRP3TP==423			;TRAP 3 TRAP
   143
   144			000424		LMUUO==	424			;MUUO STORAGE
   145			000425		LMUUOPC==425			;C(PC) OF MUUO STORAGE
   146			000426		LCNTXT==426			;PROCESS CONTEXT WORD
   147
   148			000430		LKNTRP==430			;KERNAL	 	NO TRAP - NEW PC'S-
   149			000431		LKTRP==	431			;"	 	TRAP
   150			000432		LSNTRP==432			;SUPERVISOR	NO TRAP
   151			000433		LSTRP==	433			;"		TRAP
   152			000434		LCNTRP==434			;CONCEAL 	NO TRAP
   153			000435		LCTRP==	435			;"		TRAP
   154			000436		LPNTRP==436			;PUBLIC		NO TRAP
   155			000437		LPTRP==	437			;"		TRAP
   156
   157			000500		LEUPFW==500			;EXEC & USER PAGE FAIL WORD
   158			000501		LPFWPC==501			;C(PC) OF PAGE FAIL WORD
   159			000502		LPGFTR==502			;PAGE FAIL NEW PC
   160
   161			000504		LEBXMH==504			;E-BOX CLOCK TICK METER, HI
   162			000505		LEBXML==505			;E-BOX CLOCK TICK METER, LO
   163			000506		LMBXMH==506			;M-BOX CYCLE METER, HI
   164			000507		LMBXML==507			;M-BOX CYCLE METER, LO
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6
DSKEAT	MAC	29-Mar-78 14:48		PROGRAM MACRO'S                                                                    SEQ 0040

   165					SUBTTL	PROGRAM MACRO'S
   166
   167					DEFINE	FLGTST	(FLAG,MSG0,%FLAG0,%FLAG3,%FLAG2),<
   168						LALL
   169					;*TRY TO SET FLAG VIA MONITOR UUO TRAP
   170					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
   171					
   172						A=1			;ACTUAL FLAGS AND PC STORED
   173						C=[FLAG,,%FLAG3]	;CORRECT FLAGS AND PC
   174					
   175					%FLAG0:	CONO	PAG,LTRPEN
   176						DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
   177						TNSET
   178						JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
   179						SKIPN	[MODE]		;DONT PAGE IF MODE = 0
   180						JRST	.+3
   181						PAGECN
   182						MOVSI	1B21		;UUO TO DO
   183						MOVEM	%FLAG2		;STORE UUO TO DO
   184						MOVE	[FLAG,,%FLAG3]	;PC AND FLAGS TO RESTORE
   185						MOVEM	UPMP+CNTRP
   186						MOVEM	UPMP+CTRP
   187						MOVEM	UPMP+PNTRP
   188						MOVEM	UPMP+PTRP
   189						MOVEM	UPMP+SNTRP
   190						MOVEM	UPMP+STRP
   191						MOVEM	KNTRP
   192						MOVEM	KTRP
   193						SETZM	UPMP+MUUO
   194						SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
   195					%FLAG2:	0			;HERE IS THE UUO
   196						ERROR	%FLAG0,13,0,0,MUUO DID NOT CAUSE TRAP
   197						LALL
   198					%FLAG3:	JSP	1,.+1		;GET FLAGS
   199						TLNN	1,FLAG		;ARE FLAG(S) SET?
   200						ERROR	%FLAG0,13,C,A,MSG0
   201					>
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7
DSKEAT	MAC	29-Mar-78 14:48		PROGRAM MACROS AND OPDEFS                                                          SEQ 0041

   202					SUBTTL	PROGRAM MACROS AND OPDEFS
   203
   204		264000	037005		OPDEF	TRPSET	[JSR	TRAPST]
   205
   206		700200	200000		OPDEF	RESET	[CONO APR,200000]
   207
   208					DEFINE	MOVMEM(A,B)<
   209						PUT	[A]
   210						GET	B
   211					>
   212
   213					DEFINE	PAGECN<
   214						SETOM	CNSFLG		;INFORM PAGE ROUTINE 
   215						GO	PAGSET		;THAT I WANT CONCEALED MODE
   216					>
   217					DEFINE	PAGEPN<
   218						SETZM	CNSFLG		;INFORM PAGE ROUTINE
   219						GO	PAGSET		;THAT I WANT PUBLIC MODE
   220					>
   221
   222					DEFINE	TNSET<
   223						MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
   224						MOVEM	TESTPC		;INTO TEST
   225					>
   226
   227			044000		IFNDEF	UPMP,<UPMP=<END+1000>&777000>	;INSURE THAT THE USER PAGE MAP PAGE
   228									;STARTS AT AN EVEN ADDRESS WICH IS
   229									;A MULTIPLE OF 1K
   230
   231					;*SPECIAL PAGE TABLE DEFINITIONS
   232
   233			000421		AROVTP=	421		;ARITHMETIC TRAP
   234			000422		PDOVTP=	422		;PUSHDOWN OVERFLOW TRAP
   235			000423		TRP3TP=	423		;TRAP 3 TRAP
   236			000424		MUUO=	424		;MUUO STORAGE
   237			000425		MUUOPC=	425		;MUUO NEW PC
   238			000430		KNTRP=	430		;KERNAL
   239			000431		KTRP=	431
   240			000432		SNTRP=	432		;SUPERVISOR
   241			000433		STRP=	433
   242			000434		CNTRP=	434		;CONCEALED
   243			000435		CTRP=	435
   244			000436		PNTRP=	436		;PUBLIC
   245			000437		PTRP=	437
   246
   247			002000		LIP=	2000		;PC FLAG, LAST INST PUBLIC
   248			000400		TN0=	400		;PC FLAG, TN 0 BIT
   249			000200		TN1=	200		;PC FLAG, TN 1 BIT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1
PARAM	KSM	28-Mar-78 11:27		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0042

   250					SUBTTL	CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
   251
   252					DEFINE	S,<;*********************************************************************>
   253
   254					S^;*********************************************************************^
   255					;*DATA SWITCHES
   256					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   257					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   258					S^;*********************************************************************^
   259
   260			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   261			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   262			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   263
   264			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   265			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   266			010000		DING==	010000			;RING BELL ON ERROR
   267
   268			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   269			002000		ERSTOP==002000			;HALT ON TEST ERROR
   270			001000		PALERS==001000			;PRINT ALL ERRORS
   271
   272			000400		RELIAB==000400			;RELIABILITY MODE
   273			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   274			000100		INHPAG==000100			;INHIBIT PAGING
   275
   276			000040		MODDVC==000040			;MODIFY DEVICE CODE
   277			000020		INHCSH==000020			;INHIBIT CACHE
   278			000010		OPRSEL==000010			;OPERATOR SELECTION
   279
   280			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   281
   282									;SWITCH 16 RESERVED
   283
   284									;SWITCH 17 RESERVED !!!
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 2
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0043

   285					SUBTTL	PROGRAM/SUBROUTINE PARAMETERS
   286
   287					S^;*********************************************************************^
   288					;*SPECIAL SUBPROGRAM LINKAGES
   289					S^;*********************************************************************^
   290
   291			027772		FSELNK=	27772	;FILE SELECT LINK
   292			027773		FRDLNK=	27773	;FILE READ LINK
   293			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   294			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   295			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   296			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   297
   298					S^;*********************************************************************^
   299					;*SPECIAL SUBROUTINE FATAL HALTS
   300					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   301					S^;*********************************************************************^
   302
   303					;ADDRESS   TAG	REASON
   304					;---------------------
   305
   306					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   307					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   308					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   309					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   310					; 1014  SMBER	;KS-10 INTERRUPT WITHOUT DOORBELL
   311					; 1015  SMCER	;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
   312					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   313					; 1017  EOPERR	;END OF PROGRAM ERROR
   314					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   315
   316					S^;*********************************************************************^
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0044

   317					S^;*********************************************************************^
   318					;OPERATOR DEFINITIONS (NON-UUO'S)
   319					S^;*********************************************************************^
   320
   321		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   322		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   323		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   324		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   325		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   326		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   327		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   328		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   329
   330					S^;*********************************************************************^
   331					;*SUBROUTINE INITIALIZATION CALL
   332					S^;*********************************************************************^
   333
   334		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   335
   336					S^;*********************************************************************^
   337					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   338					S^;*********************************************************************^
   339
   340		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   341		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   342
   343					S^;*********************************************************************^
   344					;*TERMINAL INPUT UUO'S
   345					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   346					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   347					S^;*********************************************************************^
   348
   349		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   350		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   351		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   352		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   353		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   354		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   355		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   356		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   357		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   358		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
   359		037500	000003		OPDEF	TTICLR	[37B8!12B12!3]	;TTY, CLEAR INPUT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0045

   360					;*TERMINAL OUTPUT UUO'S.
   361
   362		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   363		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   364		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   365		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   366		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   367		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   368		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   369		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   370		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   371		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   372		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   373		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   374		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   375		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   376		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   377		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   378		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   379		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   380		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   381		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   382		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   383		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   384		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   385		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   386		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   387		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   388		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   389		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   390		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   391		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   392		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   393		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   394		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   395		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   396		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   397		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   398		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   399		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   400		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   401		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   402		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   403		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 5
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0046

   404		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   405		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   406		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   407		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   408		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   409		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   410		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   411		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   412		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   413		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   414		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   415		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   416		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   417
   418		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   419
   420					DEFINE	PMSG	(ARG),<
   421						PSIXM	[SIXBIT\ARG'_\]>
   422
   423					DEFINE	PMSGF	(ARG),<
   424						PSIXMF	[SIXBIT\ARG'_\]>
   425
   426					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   427					;*	CONSERVES CORE OVER ASCIZ
   428
   429					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   430
   431					;*CONSOLE SWITCH INPUT UUO.
   432					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   433					;* USER MODE.
   434
   435		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   436
   437					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   438					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   439
   440		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - CLOCK
   441		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - METER
   442
   443					;*KS-10 CACHE OPERATION UUO'S
   444
   445		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   446		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   447		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0047

   448					;*END OF PASS/PROGRAM UUOS
   449
   450					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   451					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   452
   453		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   454		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   455
   456					;*MEMORY MANAGEMENT UUO'S
   457					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   458					;*ADDRESS CONVERSION, ETC...
   459
   460		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   461		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   462		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   463		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   464		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   465		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   466		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   467
   468					;*DEVICE CODE MODIFICATION UUO
   469					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   470					;*IOT'S TO A DIFFERENT DEVICE CODE.
   471
   472		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   473		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   474
   475						IFNDEF	MODDVL,<MODDVL==BEGIN>
   476						IFNDEF	MODDVU,<MODDVU==BEGIN>
   477
   478					;*"DIAMON" FILE SELECTION AND READ UUOS
   479
   480		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   481		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   482		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   483		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   484
   485						XLIST
   486					IFNDEF	EROLD,<LIST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7
PARAM	KSM	28-Mar-78 11:27		ERROR HANDLING UUO DEFINITIONS                                                     SEQ 0048

   487					SUBTTL	ERROR HANDLING UUO DEFINITIONS
   488
   489					S^;*********************************************************************^
   490					;*ERROR HANDLER PARAMETERS
   491					S^;*********************************************************************^
   492
   493		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   494		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   495		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   496		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   497		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   498
   499					;*THE ERROR HANDLER MACROS
   500
   501					;*A MACRO TO REPORT AN ERROR AND LOOP
   502
   503						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   504												SALL
   505						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   506							   CORECT,,ACTUAL
   507							   [SIXBIT\D'_\],,ERR]
   508												XALL
   509						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   510					>
   511
   512					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   513
   514						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   515												SALL
   516						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   517							   CORECT,,ACTUAL
   518							   [SIXBIT\D'_\],,ERR]
   519												XALL>
   520
   521					>;END OF EROLD CONDITIONAL
   522
   523						XLIST
   524						LIST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0049

   525					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
   526
   527	030000					LOC	30000
   528
   529					S^;*********************************************************************^
   530					;*PROGRAM STARTING ADDRESSES
   531					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   532					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   533					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   534					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   535					S^;*********************************************************************^
   536
   537	030000	254 00 04 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   538	030001	254 00 0 00 030613 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   539
   540	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   541
   542	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   543
   544	030004	254 00 0 00 030647 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   545
   546	030005	254 00 0 00 030076 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   547
   548	030006	254 00 0 00 030000 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   549
   550	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   551	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   552
   553	030010	254 00 0 00 030637 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   554	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   555	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   556
   557	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   558	030014	254200	030000		START2:	SADR8			; "
   559	030015	254200	030000		START3:	SADR9			; "
   560	030016	254200	030000		START4:	SADR10			; "
   561	030017	254200	030000		START5:	SADR11			; "
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 2
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0050

   562					S^;*********************************************************************^
   563					;*PROGRAM FIXED PARAMETER AREA
   564					S^;*********************************************************************^
   565
   566	030020	446353	454100		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   567	030021	000000	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   568	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   569	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   570	030024	000000	000001		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   571	030025	000000	030600		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   572	030026	000000	000001		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   573	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   574	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   575	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   576	030032	000000	000000		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   577	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   578	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   579	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   580	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   581
   582					S^;*********************************************************************^
   583					;*PROGRAM VARIABLE PARAMETER AREA
   584					S^;*********************************************************************^
   585
   586	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   587	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   588	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   589	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   590	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   591	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   592	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   593	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   594	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   595	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   596	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   597	030052	000000	000000		ERRPC:	0		;ERROR PC
   598	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   599	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   600	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   601	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0051

   602					S^;*********************************************************************^
   603					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   604					S^;*********************************************************************^
   605
   606	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   607	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   608	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   609	030062	000000	030061		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   610	030063	000000	030000		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   611	030064				CPOPJ1:			;SKIP RETURN
   612	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   613	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   614	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   615	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   616	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   617	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   618	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   619	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   620	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   621	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   622	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   623	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   624	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   625	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   626	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   627	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   628
   629	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   630	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   631	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   632
   633					S^;*********************************************************************^
   634					;*PROCESSOR CONTROL STORAGE
   635					S^;*********************************************************************^
   636
   637	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   638	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   639	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   640	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   641	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   642
   643	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   644	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   645
   646	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   647	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   648	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   649	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   650	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   651	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   652	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0052

   653					S^;*********************************************************************^
   654					;*UUO DISPATCH TABLE
   655					S^;*********************************************************************^
   656						XLIST
   657						LIST
   658	030124	030070	030070		UUODIS:	LUUO1,,$UUOER
   659	030125	030070	030070			LUUO3,,LUUO2
   660	030126	030070	030070			LUUO5,,LUUO4
   661	030127	030070	030070			LUUO7,,LUUO6
   662	030130	030070	030070			LUUO11,,LUUO10
   663	030131	030070	030070			LUUO13,,LUUO12
   664	030132	030070	030070			LUUO15,,LUUO14
   665	030133	030070	030070			LUUO17,,LUUO16
   666	030134	030070	030070			LUUO21,,LUUO20
   667	030135	030070	030070			LUUO23,,LUUO22
   668	030136	030070	030070			LUUO25,,LUUO24
   669	030137	030070	030070			LUUO27,,LUUO26
   670	030140	030070	030070			LUUO31,,LUUO30
   671	030141	030070	030070			LUUO33,,LUUO32
   672
   673					S^;*********************************************************************^
   674					;*MEMORY MANAGMENT STORAGE
   675					S^;*********************************************************************^
   676
   677	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   678	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   679	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   680	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   681	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   682
   683					S^;*********************************************************************^
   684					;*PRINT CONTROL STORAGE
   685					S^;*********************************************************************^
   686
   687	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   688	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   689	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   690	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   691	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   692	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   693	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   694	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   695	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   696	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   697	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   698	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   699	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   700	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   701	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   702	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   703	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   704	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   705	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 5
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0053

   706					S^;*********************************************************************^
   707					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   708					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   709					;*	MOVEI	NAME
   710					;*	PNTA		;OR PNTAF
   711					S^;*********************************************************************^
   712
   713	030242				CRLF:	ASCII/
   714	030242	015 012 000 000 000 	/
   715	030243				CRLF2:	ASCII/
   716
   717	030243	015 012 015 012 000 	/
   718	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   719	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   720	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   721	030247	011 000 000 000 000 	TAB:	ASCII/	/
   722	030250				MINUS:
   723	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   724	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   725	030252	052 000 000 000 000 	AST:	ASCII/*/
   726	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   727	030254	050 000 000 000 000 	LFP:	ASCII/(/
   728	030255	051 000 000 000 000 	RTP:	ASCII/)/
   729	030256	007 0000000000 		BELL:	BYTE (7) 007
   730	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   731	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   732	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   733	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   734	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   735	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   736
   737					S^;*********************************************************************^
   738					;*USER MODE OUTPUT FILE INFORMATION
   739					S^;*********************************************************************^
   740
   741	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   742	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   743	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   744	030272					BLOCK	2
   745
   746					S^;*********************************************************************^
   747					;*DISK UPDATE MODE FILE INFORMATION
   748					S^;*********************************************************************^
   749
   750	030274				$IBUF:	BLOCK	3
   751	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   752	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   753	030301					BLOCK	2
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0054

   754					S^;*********************************************************************^
   755					;*PUSHDOWN LIST CONTROL INFORMATION
   756					S^;*********************************************************************^
   757
   758	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   759	030304				PLISTS:	BLOCK	200
   760	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   761
   762					S^;*********************************************************************^
   763					;*POWER LINE CLOCK FREQUENCY FLAG
   764					S^;*********************************************************************^
   765
   766	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   767
   768					S^;*********************************************************************^
   769					;*KL10 CACHE CONTROL FLAGS
   770					S^;*********************************************************************^
   771
   772	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   773	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   774
   775					S^;*********************************************************************^
   776					;*NUMBER INPUT DIGIT FLAG
   777					S^;*********************************************************************^
   778
   779	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   780
   781					S^;*********************************************************************^
   782					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   783					S^;*********************************************************************^
   784
   785	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   786
   787					S^;*********************************************************************^
   788					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   789					S^;*********************************************************************^
   790
   791	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   792	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   793	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   794
   795					S^;*********************************************************************^
   796					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   797					S^;*********************************************************************^
   798
   799	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0055

   800					S^;*********************************************************************^
   801					;*USER MODE MONITOR TYPE FLAG
   802					S^;*********************************************************************^
   803
   804	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
   805
   806					S^;*********************************************************************^
   807					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   808					S^;*********************************************************************^
   809
   810	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   811
   812					S^;*********************************************************************^
   813					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   814					S^;*********************************************************************^
   815
   816	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   817
   818					S^;*********************************************************************^
   819					;*"SWITCH" CALL USAGE CONTROL
   820					S^;*********************************************************************^
   821
   822	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   823
   824					S^;*********************************************************************^
   825					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   826					S^;*********************************************************************^
   827
   828	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   829	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   830
   831					S^;*********************************************************************^
   832					;*SM10 (KS-10) PROCESSOR TYPE FLAG
   833					S^;*********************************************************************^
   834
   835	030524	000000	000000		SM10:	0	;IF -1 THIS IS AN KS-10
   836
   837					S^;*********************************************************************^
   838					;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
   839					S^;*********************************************************************^
   840
   841	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
   842
   843					S^;*********************************************************************^
   844					;*SPECIAL FUTURE EXPANSION ROOM
   845					S^;*********************************************************************^
   846
   847					S^;*********************************************************************^
   848					;*END OF FIXED STORAGE
   849					S^;*********************************************************************^
   850
   851	030577					LOC	30577
   852	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1
DSKEAM	MAC	29-Mar-78 14:55		PROGRAM INITIALIZATION                                                             SEQ 0056

   853					SUBTTL	PROGRAM INITIALIZATION
   854
   855	030600				PGMNAM:	ASCIZ/
   856	030600	015 012 104 105 103 	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC (DSKEA)
   857	030601	123 131 123 124 105 
   858	030602	115 040 062 060 062 
   859	030603	060 040 120 101 107 
   860	030604	111 116 107 040 110 
   861	030605	101 122 104 127 101 
   862	030606	122 105 040 104 111 
   863	030607	101 107 116 117 123 
   864	030610	124 111 103 040 050 
   865	030611	104 123 113 105 101 
   866	030612	051 015 012 000 000 	/
   867	030613	201 00 0 00 030613 	START:	MOVEI	.
   868	030614	202 00 0 00 030051 		MOVEM	TESTPC
   869	030615	476 00 0 00 030506 		SETOM	CSHFLG		;DON'T USE CACHE
   870	030616	476 00 0 00 030511 		SETOM	PVPAGI		;MUST BE PAGED
   871	030617	265 00 0 00 030011 		PGMINT			;INIT SUBROUTINES
   872	030620	201 00 0 00 500000 		MOVEI	500000
   873	030621	202 00 0 00 043727 		MOVEM	KLUBRX#
   874	030622	200 00 0 00 000041 		MOVE	LUUOI
   875	030623	202 00 0 00 043733 		MOVEM	LUUOISV#
   876	030624	200 00 0 00 000502 		MOVE	LPGFTR
   877	030625	202 00 0 00 043736 		MOVEM	PGFAIL#
   878	030626	200 00 0 00 000430 		MOVE	LKNTRP
   879	030627	202 00 0 00 043734 		MOVEM	MUUOER
   880	030630	200 00 0 00 000423 		MOVE	LTRP3T
   881	030631	202 00 0 00 043732 		MOVEM	LTRP3SV#
   882	030632	200 00 0 00 000422 		MOVE	LPDOVT
   883	030633	202 00 0 00 043731 		MOVEM	LPDOVSV#
   884	030634	200 00 0 00 000421 		MOVE	LAROVT
   885	030635	202 00 0 00 043730 		MOVEM	LAROVSV#
   886	030636	402 00 0 00 043735 		SETZM	MXFLG#		;CLEAR TEST MAX FLAG
   887	030637	402 00 0 00 030116 	STARTA:	SETZM	SCOPE		;PRESET ERROR REPEAT SWITCH
   888	030640	402 00 0 00 030052 		SETZM	ERRPC		;PRESET ERROR PC STORAGE
   889	030641	037 10 0 00 000002 		SWITCH
   890	030642	201 07 0 00 000012 		MOVEI	AC,^D10		;SETUP REPEAT FOR 10 SUBLOOPS
   891	030643	607 00 0 00 000400 		TLNN	RELIAB		;FAST CYCLE MODE ?
   892	030644	201 07 0 00 000001 		MOVEI	AC,1		;YES, SUBLOOP JUST ONCE
   893	030645	202 07 0 00 043737 		MOVEM	AC,RPEAT#
   894	030646	254 00 0 00 030652 		JRST	EBRCK0-2
   895
   896	030647	402 00 0 00 030047 	SFSRT1:	SETZM	PASCNT		;SPECIAL FEATURE START
   897	030650	402 00 0 00 030053 		SETZM	ERRTLS
   898	030651	254 00 0 00 030010 		JRST	BEGIN1		;CLEAR PASCNT FOR MAX ADR ?
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 2
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0057

   899					SUBTTL	TEST EXEC BASE REGISTER
   900
   901					SALL
   902			037042		T=	SIXBTZ	BASE REGISTER TEST
   903					LALL
   904
   905					;*LOAD EXEC BASE REGISTER WITH ALL ZERO'S WITH CONO
   906					;*EXEC BASE REGISTER SHOULD THEN BE CLEAR.
   907
   908						SUBTST^
   909	030652	201 00 0 00 030652 		MOVEI	.
   910	030653	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
   911	030654	200 15 0 00 043737 	EBRCK0:	MOVE	REPT,RPEAT	;SETUP REPEAT COUNT
   912	030655	201 14 0 00 000000 		MOVEI	COR,0
   913	030656	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH 0'S
   914	030657	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
   915	030660	312 14 0 00 000013 		CAME	COR,ACT		;COMPARE RESULTS
   916						ERROR	EBRCK0+1,13,COR,ACT,EBR,ALL  0'S^
   917												SALL
   918	030661	036 13 0 00 037051 
   919	030662	035 00 0 00 030655 		ERLOOP	EBRCK0+1		;IF ERROR, LOOP TO EBRCK0+1
   920
   921					;*LOAD EXEC BASE REGISTER WITH ALL ONE'S
   922					;*IF ANY BIT IS READ BACK THEN LOAD EBR SHOULD WORK.
   923
   924						SUBTST^
   925	030663	201 00 0 00 030663 		MOVEI	.
   926	030664	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
   927	030665	201 14 0 00 003777 	EBRCK1:	MOVEI	COR,3777
   928	030666	7 010 20 0 14 000000 		CONO	PAG,(COR)	;LOAD EBR WITH ALL 1'S
   929	030667	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
   930	030670	7 010 20 0 00 000000 		CONO	PAG,0
   931	030671	336 00 0 00 000013 		SKIPN	ACT		;CHECK FOR ANY BIT SET
   932						ERROR	EBRCK1,13,COR,ACT,EBR,NO BITS SET^
   933	030672	036 13 0 00 037056 
   934	030673	035 00 0 00 030665 		ERLOOP	EBRCK1		;IF ERROR, LOOP TO EBRCK1
   935
   936					;*LOAD EXEC BASE REGISTER WITH TRAP ENABLE BIT
   937
   938						SUBTST^
   939	030674	201 00 0 00 030674 		MOVEI	.
   940	030675	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
   941	030676	201 14 0 00 020000 	EBRC1A:	MOVEI	COR,LTRPEN
   942	030677	7 010 20 0 14 000000 		CONO	PAG,(COR)		;SET TRAP ENABLE
   943	030700	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
   944	030701	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
   945	030702	312 14 0 00 000013 		CAME	COR,ACT
   946						ERROR	EBRC1A,13,COR,ACT,EBR,TRAP ENABLE BIT^
   947	030703	036 13 0 00 037064 
   948	030704	035 00 0 00 030676 		ERLOOP	EBRC1A		;IF ERROR, LOOP TO EBRC1A
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0058

   949			000000			XX=0
   950
   951						SUBTST^
   952	030705	201 00 0 00 030705 		MOVEI	.
   953	030706	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
   954					EBRCK2:	REPEAT	^D11,<
   955					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
   956					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
   957						XX=XX+XX
   958						IFE	XX,<XX=1>
   959						MOVEI	COR,XX
   960						CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
   961						CONI	PAG,ACT		;READ BACK
   962						CONO	PAG,LTRPEN
   963						CAME	COR,ACT
   964						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1>
   965
   966					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
   967					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
   968			000000			XX=XX+XX
   969			000001			IFE	XX,<XX=1>
   970	030707	201 14 0 00 000001 		MOVEI	COR,XX
   971	030710	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
   972	030711	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
   973	030712	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
   974	030713	312 14 0 00 000013 		CAME	COR,ACT
   975						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
   976
   977	030714	036 13 0 00 037071 
   978	030715	035 00 0 00 030707 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
   979
   980					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
   981					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
   982			000002			XX=XX+XX
   983						IFE	XX,<XX=1>
   984	030716	201 14 0 00 000002 		MOVEI	COR,XX
   985	030717	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
   986	030720	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
   987	030721	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
   988	030722	312 14 0 00 000013 		CAME	COR,ACT
   989						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
   990
   991	030723	036 13 0 00 037071 
   992	030724	035 00 0 00 030716 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
   993
   994					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
   995					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
   996			000004			XX=XX+XX
   997						IFE	XX,<XX=1>
   998	030725	201 14 0 00 000004 		MOVEI	COR,XX
   999	030726	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1000	030727	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1001	030730	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1002	030731	312 14 0 00 000013 		CAME	COR,ACT
  1003						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3-1
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0059

  1004
  1005	030732	036 13 0 00 037071 
  1006	030733	035 00 0 00 030725 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1007
  1008					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1009					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1010			000010			XX=XX+XX
  1011						IFE	XX,<XX=1>
  1012	030734	201 14 0 00 000010 		MOVEI	COR,XX
  1013	030735	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1014	030736	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1015	030737	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1016	030740	312 14 0 00 000013 		CAME	COR,ACT
  1017						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1018
  1019	030741	036 13 0 00 037071 
  1020	030742	035 00 0 00 030734 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1021
  1022					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1023					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1024			000020			XX=XX+XX
  1025						IFE	XX,<XX=1>
  1026	030743	201 14 0 00 000020 		MOVEI	COR,XX
  1027	030744	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1028	030745	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1029	030746	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1030	030747	312 14 0 00 000013 		CAME	COR,ACT
  1031						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1032
  1033	030750	036 13 0 00 037071 
  1034	030751	035 00 0 00 030743 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1035
  1036					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1037					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1038			000040			XX=XX+XX
  1039						IFE	XX,<XX=1>
  1040	030752	201 14 0 00 000040 		MOVEI	COR,XX
  1041	030753	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1042	030754	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1043	030755	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1044	030756	312 14 0 00 000013 		CAME	COR,ACT
  1045						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1046
  1047	030757	036 13 0 00 037071 
  1048	030760	035 00 0 00 030752 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1049
  1050					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1051					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1052			000100			XX=XX+XX
  1053						IFE	XX,<XX=1>
  1054	030761	201 14 0 00 000100 		MOVEI	COR,XX
  1055	030762	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1056	030763	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1057	030764	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1058	030765	312 14 0 00 000013 		CAME	COR,ACT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3-2
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0060

  1059						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1060
  1061	030766	036 13 0 00 037071 
  1062	030767	035 00 0 00 030761 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1063
  1064					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1065					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1066			000200			XX=XX+XX
  1067						IFE	XX,<XX=1>
  1068	030770	201 14 0 00 000200 		MOVEI	COR,XX
  1069	030771	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1070	030772	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1071	030773	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1072	030774	312 14 0 00 000013 		CAME	COR,ACT
  1073						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1074
  1075	030775	036 13 0 00 037071 
  1076	030776	035 00 0 00 030770 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1077
  1078					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1079					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1080			000400			XX=XX+XX
  1081						IFE	XX,<XX=1>
  1082	030777	201 14 0 00 000400 		MOVEI	COR,XX
  1083	031000	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1084	031001	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1085	031002	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1086	031003	312 14 0 00 000013 		CAME	COR,ACT
  1087						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1088
  1089	031004	036 13 0 00 037071 
  1090	031005	035 00 0 00 030777 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1091
  1092					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1093					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1094			001000			XX=XX+XX
  1095						IFE	XX,<XX=1>
  1096	031006	201 14 0 00 001000 		MOVEI	COR,XX
  1097	031007	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1098	031010	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1099	031011	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1100	031012	312 14 0 00 000013 		CAME	COR,ACT
  1101						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1102
  1103	031013	036 13 0 00 037071 
  1104	031014	035 00 0 00 031006 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1105
  1106					;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME.
  1107					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS.
  1108			002000			XX=XX+XX
  1109						IFE	XX,<XX=1>
  1110	031015	201 14 0 00 002000 		MOVEI	COR,XX
  1111	031016	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING ONE
  1112	031017	7 010 24 0 00 000013 		CONI	PAG,ACT		;READ BACK
  1113	031020	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 3-3
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0061

  1114	031021	312 14 0 00 000013 		CAME	COR,ACT
  1115						ERROR	.-6,13,COR,ACT,EBR,FLOATING 1
  1116
  1117	031022	036 13 0 00 037071 
  1118	031023	035 00 0 00 031015 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1119
  1120					;*LOAD EXEC BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK
  1121
  1122	031024	201 14 0 00 003777 	EBRCK3:	MOVEI	COR,3777
  1123	031025	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH ALL 1'S
  1124	031026	7 010 24 0 00 000013 		CONI	PAG,ACT
  1125	031027	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1126	031030	312 14 0 00 000013 		CAME	COR,ACT
  1127						ERROR	EBRCK3,13,COR,ACT,EBR,ALL 1'S^
  1128	031031	036 13 0 00 037076 
  1129	031032	035 00 0 00 031024 		ERLOOP	EBRCK3		;IF ERROR, LOOP TO EBRCK3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0062

  1130			000000			XX=0
  1131
  1132						SUBTST^
  1133	031033	201 00 0 00 031033 		MOVEI	.
  1134	031034	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  1135					EBRCK4:	REPEAT	^D11,<
  1136					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1137					;*TO CHECK BIT INTERACTION.
  1138						XX=XX+XX
  1139						IFE	XX,<XX=1>
  1140						MOVEI	COR,3777-XX
  1141						CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1142						CONI	PAG,ACT
  1143						CONO	PAG,LTRPEN
  1144						CAME	COR,ACT
  1145						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0>
  1146
  1147					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1148					;*TO CHECK BIT INTERACTION.
  1149			000000			XX=XX+XX
  1150			000001			IFE	XX,<XX=1>
  1151	031035	201 14 0 00 003776 		MOVEI	COR,3777-XX
  1152	031036	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1153	031037	7 010 24 0 00 000013 		CONI	PAG,ACT
  1154	031040	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1155	031041	312 14 0 00 000013 		CAME	COR,ACT
  1156						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1157
  1158	031042	036 13 0 00 037103 
  1159	031043	035 00 0 00 031035 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1160
  1161					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1162					;*TO CHECK BIT INTERACTION.
  1163			000002			XX=XX+XX
  1164						IFE	XX,<XX=1>
  1165	031044	201 14 0 00 003775 		MOVEI	COR,3777-XX
  1166	031045	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1167	031046	7 010 24 0 00 000013 		CONI	PAG,ACT
  1168	031047	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1169	031050	312 14 0 00 000013 		CAME	COR,ACT
  1170						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1171
  1172	031051	036 13 0 00 037103 
  1173	031052	035 00 0 00 031044 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1174
  1175					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1176					;*TO CHECK BIT INTERACTION.
  1177			000004			XX=XX+XX
  1178						IFE	XX,<XX=1>
  1179	031053	201 14 0 00 003773 		MOVEI	COR,3777-XX
  1180	031054	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1181	031055	7 010 24 0 00 000013 		CONI	PAG,ACT
  1182	031056	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1183	031057	312 14 0 00 000013 		CAME	COR,ACT
  1184						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4-1
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0063

  1185
  1186	031060	036 13 0 00 037103 
  1187	031061	035 00 0 00 031053 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1188
  1189					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1190					;*TO CHECK BIT INTERACTION.
  1191			000010			XX=XX+XX
  1192						IFE	XX,<XX=1>
  1193	031062	201 14 0 00 003767 		MOVEI	COR,3777-XX
  1194	031063	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1195	031064	7 010 24 0 00 000013 		CONI	PAG,ACT
  1196	031065	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1197	031066	312 14 0 00 000013 		CAME	COR,ACT
  1198						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1199
  1200	031067	036 13 0 00 037103 
  1201	031070	035 00 0 00 031062 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1202
  1203					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1204					;*TO CHECK BIT INTERACTION.
  1205			000020			XX=XX+XX
  1206						IFE	XX,<XX=1>
  1207	031071	201 14 0 00 003757 		MOVEI	COR,3777-XX
  1208	031072	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1209	031073	7 010 24 0 00 000013 		CONI	PAG,ACT
  1210	031074	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1211	031075	312 14 0 00 000013 		CAME	COR,ACT
  1212						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1213
  1214	031076	036 13 0 00 037103 
  1215	031077	035 00 0 00 031071 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1216
  1217					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1218					;*TO CHECK BIT INTERACTION.
  1219			000040			XX=XX+XX
  1220						IFE	XX,<XX=1>
  1221	031100	201 14 0 00 003737 		MOVEI	COR,3777-XX
  1222	031101	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1223	031102	7 010 24 0 00 000013 		CONI	PAG,ACT
  1224	031103	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1225	031104	312 14 0 00 000013 		CAME	COR,ACT
  1226						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1227
  1228	031105	036 13 0 00 037103 
  1229	031106	035 00 0 00 031100 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1230
  1231					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1232					;*TO CHECK BIT INTERACTION.
  1233			000100			XX=XX+XX
  1234						IFE	XX,<XX=1>
  1235	031107	201 14 0 00 003677 		MOVEI	COR,3777-XX
  1236	031110	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1237	031111	7 010 24 0 00 000013 		CONI	PAG,ACT
  1238	031112	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1239	031113	312 14 0 00 000013 		CAME	COR,ACT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4-2
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0064

  1240						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1241
  1242	031114	036 13 0 00 037103 
  1243	031115	035 00 0 00 031107 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1244
  1245					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1246					;*TO CHECK BIT INTERACTION.
  1247			000200			XX=XX+XX
  1248						IFE	XX,<XX=1>
  1249	031116	201 14 0 00 003577 		MOVEI	COR,3777-XX
  1250	031117	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1251	031120	7 010 24 0 00 000013 		CONI	PAG,ACT
  1252	031121	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1253	031122	312 14 0 00 000013 		CAME	COR,ACT
  1254						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1255
  1256	031123	036 13 0 00 037103 
  1257	031124	035 00 0 00 031116 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1258
  1259					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1260					;*TO CHECK BIT INTERACTION.
  1261			000400			XX=XX+XX
  1262						IFE	XX,<XX=1>
  1263	031125	201 14 0 00 003377 		MOVEI	COR,3777-XX
  1264	031126	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1265	031127	7 010 24 0 00 000013 		CONI	PAG,ACT
  1266	031130	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1267	031131	312 14 0 00 000013 		CAME	COR,ACT
  1268						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1269
  1270	031132	036 13 0 00 037103 
  1271	031133	035 00 0 00 031125 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1272
  1273					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1274					;*TO CHECK BIT INTERACTION.
  1275			001000			XX=XX+XX
  1276						IFE	XX,<XX=1>
  1277	031134	201 14 0 00 002777 		MOVEI	COR,3777-XX
  1278	031135	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1279	031136	7 010 24 0 00 000013 		CONI	PAG,ACT
  1280	031137	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1281	031140	312 14 0 00 000013 		CAME	COR,ACT
  1282						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1283
  1284	031141	036 13 0 00 037103 
  1285	031142	035 00 0 00 031134 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1286
  1287					;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO
  1288					;*TO CHECK BIT INTERACTION.
  1289			002000			XX=XX+XX
  1290						IFE	XX,<XX=1>
  1291	031143	201 14 0 00 001777 		MOVEI	COR,3777-XX
  1292	031144	7 010 20 0 14 000000 		CONO	PAG,(COR)		;LOAD EBR WITH A FLOATING 0
  1293	031145	7 010 24 0 00 000013 		CONI	PAG,ACT
  1294	031146	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 4-3
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC BASE REGISTER                                                            SEQ 0065

  1295	031147	312 14 0 00 000013 		CAME	COR,ACT
  1296						ERROR	.-6,13,COR,ACT,EBR,FLOATING 0
  1297
  1298	031150	036 13 0 00 037103 
  1299	031151	035 00 0 00 031143 		ERLOOP	.-6		;IF ERROR, LOOP TO .-6
  1300	031152	367 15 0 00 030655 		REPTLP	EBRCK0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 5
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0066

  1301					SUBTTL	TEST USER BASE REGISTER
  1302
  1303					;*LOAD USER BASE REGISTER WITH ALL ZERO'S.
  1304					;*USER BASE REGISTER SHOULD THEN BE CLEAR.
  1305
  1306						SUBTST^
  1307	031153	201 00 0 00 031153 		MOVEI	.
  1308	031154	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  1309	031155	200 15 0 00 043737 	UBRCK0:	MOVE	REPT,RPEAT
  1310	031156	200 14 0 00 037106 		MOVE	COR,[LLACBL!LLDUSB,,400000]
  1311	031157	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH 0'S
  1312	031160	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1313	031161	620 14 0 00 400000 		TRZ	COR,400000
  1314	031162	205 14 1 00 043727 		MOVSI	COR,@KLUBRX
  1315	031163	312 14 0 00 000013 		CAME	COR,ACT
  1316						ERROR	UBRCK0+1,13,COR,ACT,UBR,ALL 0'S^
  1317	031164	036 13 0 00 037112 
  1318	031165	035 00 0 00 031156 		ERLOOP	UBRCK0+1		;IF ERROR, LOOP TO UBRCK0+1
  1319
  1320					;*LOAD USER BASE REGISTER WITH ALL ONE'S.
  1321					;*IF ANY BIT IS READ BACK THEN LOAD UBR SHOULD WORK.
  1322
  1323	031166	200 14 0 00 037115 	UBRCK1:	MOVE	COR,[LLDUSB,,403777]
  1324	031167	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH ALL ONES
  1325	031170	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1326	031171	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1327	031172	620 14 0 00 400000 		TRZ	COR,400000
  1328	031173	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1329	031174	336 00 0 00 000013 		SKIPN	ACT		;CHECK FOR ANY BIT SET
  1330						ERROR	UBRCK1,13,COR,ACT,UBR,NO BITS SET^
  1331	031175	036 13 0 00 037117 
  1332	031176	035 00 0 00 031166 		ERLOOP	UBRCK1		;IF ERROR, LOOP TO UBRCK1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0067

  1333			000000			XX=0
  1334
  1335						SUBTST^
  1336	031177	201 00 0 00 031177 		MOVEI	.
  1337	031200	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  1338					UBRCK2:	REPEAT	^D11,<
  1339					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1340					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1341						XX=XX+XX
  1342						IFE	XX,<XX=1>
  1343						MOVE	COR,[LLDUSB,,400000!XX]
  1344						DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1345						DATAI	PAG,ACT
  1346						DATAO	PAG,[LLDUSB,,400000]
  1347						TRZ	COR,400000
  1348						HRLI	COR,@KLUBRX
  1349						CAME	COR,ACT
  1350						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1>
  1351
  1352					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1353					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1354			000000			XX=XX+XX
  1355			000001			IFE	XX,<XX=1>
  1356	031201	200 14 0 00 037122 		MOVE	COR,[LLDUSB,,400000!XX]
  1357	031202	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1358	031203	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1359	031204	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1360	031205	620 14 0 00 400000 		TRZ	COR,400000
  1361	031206	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1362	031207	312 14 0 00 000013 		CAME	COR,ACT
  1363						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1364
  1365	031210	036 13 0 00 037123 
  1366	031211	035 00 0 00 031201 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1367
  1368					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1369					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1370			000002			XX=XX+XX
  1371						IFE	XX,<XX=1>
  1372	031212	200 14 0 00 037126 		MOVE	COR,[LLDUSB,,400000!XX]
  1373	031213	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1374	031214	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1375	031215	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1376	031216	620 14 0 00 400000 		TRZ	COR,400000
  1377	031217	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1378	031220	312 14 0 00 000013 		CAME	COR,ACT
  1379						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1380
  1381	031221	036 13 0 00 037123 
  1382	031222	035 00 0 00 031212 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1383
  1384					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1385					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1386			000004			XX=XX+XX
  1387						IFE	XX,<XX=1>
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6-1
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0068

  1388	031223	200 14 0 00 037127 		MOVE	COR,[LLDUSB,,400000!XX]
  1389	031224	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1390	031225	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1391	031226	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1392	031227	620 14 0 00 400000 		TRZ	COR,400000
  1393	031230	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1394	031231	312 14 0 00 000013 		CAME	COR,ACT
  1395						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1396
  1397	031232	036 13 0 00 037123 
  1398	031233	035 00 0 00 031223 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1399
  1400					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1401					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1402			000010			XX=XX+XX
  1403						IFE	XX,<XX=1>
  1404	031234	200 14 0 00 037130 		MOVE	COR,[LLDUSB,,400000!XX]
  1405	031235	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1406	031236	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1407	031237	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1408	031240	620 14 0 00 400000 		TRZ	COR,400000
  1409	031241	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1410	031242	312 14 0 00 000013 		CAME	COR,ACT
  1411						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1412
  1413	031243	036 13 0 00 037123 
  1414	031244	035 00 0 00 031234 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1415
  1416					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1417					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1418			000020			XX=XX+XX
  1419						IFE	XX,<XX=1>
  1420	031245	200 14 0 00 037131 		MOVE	COR,[LLDUSB,,400000!XX]
  1421	031246	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1422	031247	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1423	031250	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1424	031251	620 14 0 00 400000 		TRZ	COR,400000
  1425	031252	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1426	031253	312 14 0 00 000013 		CAME	COR,ACT
  1427						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1428
  1429	031254	036 13 0 00 037123 
  1430	031255	035 00 0 00 031245 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1431
  1432					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1433					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1434			000040			XX=XX+XX
  1435						IFE	XX,<XX=1>
  1436	031256	200 14 0 00 037132 		MOVE	COR,[LLDUSB,,400000!XX]
  1437	031257	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1438	031260	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1439	031261	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1440	031262	620 14 0 00 400000 		TRZ	COR,400000
  1441	031263	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1442	031264	312 14 0 00 000013 		CAME	COR,ACT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6-2
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0069

  1443						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1444
  1445	031265	036 13 0 00 037123 
  1446	031266	035 00 0 00 031256 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1447
  1448					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1449					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1450			000100			XX=XX+XX
  1451						IFE	XX,<XX=1>
  1452	031267	200 14 0 00 037133 		MOVE	COR,[LLDUSB,,400000!XX]
  1453	031270	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1454	031271	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1455	031272	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1456	031273	620 14 0 00 400000 		TRZ	COR,400000
  1457	031274	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1458	031275	312 14 0 00 000013 		CAME	COR,ACT
  1459						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1460
  1461	031276	036 13 0 00 037123 
  1462	031277	035 00 0 00 031267 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1463
  1464					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1465					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1466			000200			XX=XX+XX
  1467						IFE	XX,<XX=1>
  1468	031300	200 14 0 00 037134 		MOVE	COR,[LLDUSB,,400000!XX]
  1469	031301	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1470	031302	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1471	031303	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1472	031304	620 14 0 00 400000 		TRZ	COR,400000
  1473	031305	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1474	031306	312 14 0 00 000013 		CAME	COR,ACT
  1475						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1476
  1477	031307	036 13 0 00 037123 
  1478	031310	035 00 0 00 031300 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1479
  1480					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1481					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1482			000400			XX=XX+XX
  1483						IFE	XX,<XX=1>
  1484	031311	200 14 0 00 037135 		MOVE	COR,[LLDUSB,,400000!XX]
  1485	031312	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1486	031313	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1487	031314	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1488	031315	620 14 0 00 400000 		TRZ	COR,400000
  1489	031316	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1490	031317	312 14 0 00 000013 		CAME	COR,ACT
  1491						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1492
  1493	031320	036 13 0 00 037123 
  1494	031321	035 00 0 00 031311 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1495
  1496					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1497					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 6-3
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0070

  1498			001000			XX=XX+XX
  1499						IFE	XX,<XX=1>
  1500	031322	200 14 0 00 037136 		MOVE	COR,[LLDUSB,,400000!XX]
  1501	031323	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1502	031324	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1503	031325	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1504	031326	620 14 0 00 400000 		TRZ	COR,400000
  1505	031327	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1506	031330	312 14 0 00 000013 		CAME	COR,ACT
  1507						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1508
  1509	031331	036 13 0 00 037123 
  1510	031332	035 00 0 00 031322 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1511
  1512					;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME.
  1513					;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS
  1514			002000			XX=XX+XX
  1515						IFE	XX,<XX=1>
  1516	031333	200 14 0 00 037137 		MOVE	COR,[LLDUSB,,400000!XX]
  1517	031334	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 1
  1518	031335	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1519	031336	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1520	031337	620 14 0 00 400000 		TRZ	COR,400000
  1521	031340	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1522	031341	312 14 0 00 000013 		CAME	COR,ACT
  1523						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 1
  1524
  1525	031342	036 13 0 00 037123 
  1526	031343	035 00 0 00 031333 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0071

  1527					;*LOAD USER BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK.
  1528
  1529	031344	200 14 0 00 037115 	UBRCK3:	MOVE	COR,[LLDUSB,,403777]
  1530	031345	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH ALL ONES
  1531	031346	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1532	031347	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1533	031350	620 14 0 00 400000 		TRZ	COR,400000
  1534	031351	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1535	031352	312 14 0 00 000013 		CAME	COR,ACT
  1536						ERROR	UBRCK3,13,COR,ACT,UBR,ALL 1'S^
  1537	031353	036 13 0 00 037140 
  1538	031354	035 00 0 00 031344 		ERLOOP	UBRCK3		;IF ERROR, LOOP TO UBRCK3
  1539
  1540			000000			XX=0
  1541
  1542					UBRCK4:	REPEAT	^D11,<
  1543					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1544					;*CHECK BIT INTERACTION.
  1545						XX=XX+XX
  1546						IFE	XX,<XX=1>
  1547						MOVE	COR,[LLDUSB,,403777-XX]
  1548						DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1549						DATAI	PAG,ACT
  1550						DATAO	PAG,[LLDUSB,,400000]
  1551						TRZ	COR,400000
  1552						HRLI	COR,@KLUBRX
  1553						CAME	COR,ACT
  1554						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0>
  1555
  1556					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1557					;*CHECK BIT INTERACTION.
  1558			000000			XX=XX+XX
  1559			000001			IFE	XX,<XX=1>
  1560	031355	200 14 0 00 037143 		MOVE	COR,[LLDUSB,,403777-XX]
  1561	031356	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1562	031357	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1563	031360	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1564	031361	620 14 0 00 400000 		TRZ	COR,400000
  1565	031362	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1566	031363	312 14 0 00 000013 		CAME	COR,ACT
  1567						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1568
  1569	031364	036 13 0 00 037144 
  1570	031365	035 00 0 00 031355 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1571
  1572					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1573					;*CHECK BIT INTERACTION.
  1574			000002			XX=XX+XX
  1575						IFE	XX,<XX=1>
  1576	031366	200 14 0 00 037147 		MOVE	COR,[LLDUSB,,403777-XX]
  1577	031367	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1578	031370	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1579	031371	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1580	031372	620 14 0 00 400000 		TRZ	COR,400000
  1581	031373	505 14 1 00 043727 		HRLI	COR,@KLUBRX
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7-1
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0072

  1582	031374	312 14 0 00 000013 		CAME	COR,ACT
  1583						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1584
  1585	031375	036 13 0 00 037144 
  1586	031376	035 00 0 00 031366 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1587
  1588					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1589					;*CHECK BIT INTERACTION.
  1590			000004			XX=XX+XX
  1591						IFE	XX,<XX=1>
  1592	031377	200 14 0 00 037150 		MOVE	COR,[LLDUSB,,403777-XX]
  1593	031400	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1594	031401	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1595	031402	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1596	031403	620 14 0 00 400000 		TRZ	COR,400000
  1597	031404	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1598	031405	312 14 0 00 000013 		CAME	COR,ACT
  1599						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1600
  1601	031406	036 13 0 00 037144 
  1602	031407	035 00 0 00 031377 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1603
  1604					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1605					;*CHECK BIT INTERACTION.
  1606			000010			XX=XX+XX
  1607						IFE	XX,<XX=1>
  1608	031410	200 14 0 00 037151 		MOVE	COR,[LLDUSB,,403777-XX]
  1609	031411	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1610	031412	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1611	031413	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1612	031414	620 14 0 00 400000 		TRZ	COR,400000
  1613	031415	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1614	031416	312 14 0 00 000013 		CAME	COR,ACT
  1615						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1616
  1617	031417	036 13 0 00 037144 
  1618	031420	035 00 0 00 031410 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1619
  1620					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1621					;*CHECK BIT INTERACTION.
  1622			000020			XX=XX+XX
  1623						IFE	XX,<XX=1>
  1624	031421	200 14 0 00 037152 		MOVE	COR,[LLDUSB,,403777-XX]
  1625	031422	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1626	031423	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1627	031424	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1628	031425	620 14 0 00 400000 		TRZ	COR,400000
  1629	031426	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1630	031427	312 14 0 00 000013 		CAME	COR,ACT
  1631						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1632
  1633	031430	036 13 0 00 037144 
  1634	031431	035 00 0 00 031421 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1635
  1636					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7-2
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0073

  1637					;*CHECK BIT INTERACTION.
  1638			000040			XX=XX+XX
  1639						IFE	XX,<XX=1>
  1640	031432	200 14 0 00 037153 		MOVE	COR,[LLDUSB,,403777-XX]
  1641	031433	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1642	031434	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1643	031435	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1644	031436	620 14 0 00 400000 		TRZ	COR,400000
  1645	031437	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1646	031440	312 14 0 00 000013 		CAME	COR,ACT
  1647						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1648
  1649	031441	036 13 0 00 037144 
  1650	031442	035 00 0 00 031432 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1651
  1652					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1653					;*CHECK BIT INTERACTION.
  1654			000100			XX=XX+XX
  1655						IFE	XX,<XX=1>
  1656	031443	200 14 0 00 037154 		MOVE	COR,[LLDUSB,,403777-XX]
  1657	031444	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1658	031445	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1659	031446	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1660	031447	620 14 0 00 400000 		TRZ	COR,400000
  1661	031450	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1662	031451	312 14 0 00 000013 		CAME	COR,ACT
  1663						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1664
  1665	031452	036 13 0 00 037144 
  1666	031453	035 00 0 00 031443 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1667
  1668					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1669					;*CHECK BIT INTERACTION.
  1670			000200			XX=XX+XX
  1671						IFE	XX,<XX=1>
  1672	031454	200 14 0 00 037155 		MOVE	COR,[LLDUSB,,403777-XX]
  1673	031455	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1674	031456	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1675	031457	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1676	031460	620 14 0 00 400000 		TRZ	COR,400000
  1677	031461	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1678	031462	312 14 0 00 000013 		CAME	COR,ACT
  1679						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1680
  1681	031463	036 13 0 00 037144 
  1682	031464	035 00 0 00 031454 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1683
  1684					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1685					;*CHECK BIT INTERACTION.
  1686			000400			XX=XX+XX
  1687						IFE	XX,<XX=1>
  1688	031465	200 14 0 00 037156 		MOVE	COR,[LLDUSB,,403777-XX]
  1689	031466	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1690	031467	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1691	031470	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 7-3
DSKEAM	MAC	29-Mar-78 14:55		TEST USER BASE REGISTER                                                            SEQ 0074

  1692	031471	620 14 0 00 400000 		TRZ	COR,400000
  1693	031472	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1694	031473	312 14 0 00 000013 		CAME	COR,ACT
  1695						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1696
  1697	031474	036 13 0 00 037144 
  1698	031475	035 00 0 00 031465 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1699
  1700					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1701					;*CHECK BIT INTERACTION.
  1702			001000			XX=XX+XX
  1703						IFE	XX,<XX=1>
  1704	031476	200 14 0 00 037157 		MOVE	COR,[LLDUSB,,403777-XX]
  1705	031477	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1706	031500	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1707	031501	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1708	031502	620 14 0 00 400000 		TRZ	COR,400000
  1709	031503	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1710	031504	312 14 0 00 000013 		CAME	COR,ACT
  1711						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1712
  1713	031505	036 13 0 00 037144 
  1714	031506	035 00 0 00 031476 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1715
  1716					;*LOAD USER BASE REGISTER WITH A FLOATING ZERO
  1717					;*CHECK BIT INTERACTION.
  1718			002000			XX=XX+XX
  1719						IFE	XX,<XX=1>
  1720	031507	200 14 0 00 037160 		MOVE	COR,[LLDUSB,,403777-XX]
  1721	031510	7 010 14 0 00 000014 		DATAO	PAG,COR		;LOAD UBR WITH A FLOATING 0
  1722	031511	7 010 04 0 00 000013 		DATAI	PAG,ACT
  1723	031512	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1724	031513	620 14 0 00 400000 		TRZ	COR,400000
  1725	031514	505 14 1 00 043727 		HRLI	COR,@KLUBRX
  1726	031515	312 14 0 00 000013 		CAME	COR,ACT
  1727						ERROR	.-^D8,13,COR,ACT,UBR,FLOATING 0
  1728
  1729	031516	036 13 0 00 037144 
  1730	031517	035 00 0 00 031507 		ERLOOP	.-^D8		;IF ERROR, LOOP TO .-^D8
  1731	031520	367 15 0 00 031156 		REPTLP	UBRCK0+1
  1732
  1733						XLIST
  1734						LIST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 14
DSKEAM	MAC	29-Mar-78 14:55		TEST PROCESSOR TRAPS                                                               SEQ 0075

  1735					SUBTTL	TEST PROCESSOR TRAPS
  1736
  1737					SALL
  1738			037161		T=SIXBTZ	PROCESSOR TRAP TEST
  1739					LALL
  1740
  1741						SUBTST^
  1742	031521	201 00 0 00 031521 		MOVEI	.
  1743	031522	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  1744	031523	200 15 0 00 043737 	P0TRP0:	MOVE	REPT,RPEAT
  1745	031524	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1746	031525	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  1747
  1748					;*TEST TRAP 3 TRAP
  1749
  1750	031526	200 07 0 00 037165 	P0TRP1:	MOVE	AC,[JSR	P0TP3]
  1751	031527	202 07 0 00 000423 		MOVEM	AC,LTRP3T
  1752	031530	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1753	031531	254 02 1 00 031532 		JRSTF	@.+1
  1754	031532	000600	031533			TN0!TN1,,.+1
  1755	031533	200 00 0 00 043732 	P0TP3X:	MOVE	LTRP3SV
  1756	031534	202 00 0 00 000423 		MOVEM	LTRP3T
  1757						ERROR1	13,0,0,TRAP 3 FAILED,FATAL^
  1758												SALL
  1759	031535	036 13 0 00 037172 
  1760	031536	254 00 0 00 031550 		JRST	P0PDLX-5
  1761
  1762	031537	000000	000000		P0TP3:	0
  1763	031540	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1764	031541	200 00 0 00 043732 		MOVE	LTRP3SV
  1765	031542	202 00 0 00 000423 		MOVEM	LTRP3T
  1766	031543	200 14 0 00 037175 		MOVE	COR,[0,,P0TP3X]
  1767	031544	200 13 0 00 031537 		MOVE	ACT,P0TP3
  1768	031545	312 14 0 00 000013 		CAME	COR,ACT
  1769						ERROR	P0TRP1,13,COR,ACT,TRAP 3 SAVED PC^
  1770	031546	036 13 0 00 037201 
  1771	031547	035 00 0 00 031526 		ERLOOP	P0TRP1		;IF ERROR, LOOP TO P0TRP1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 15
DSKEAM	MAC	29-Mar-78 14:55		TEST PROCESSOR TRAPS                                                               SEQ 0076

  1772					;*TEST PUSHDOWN OVERFLOW TRAP
  1773
  1774	031550	200 07 0 00 037204 		MOVE	AC,[JSR P0PDL]
  1775	031551	202 07 0 00 000422 		MOVEM	AC,LPDOVT
  1776	031552	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1777	031553	254 02 1 00 031554 		JRSTF	@.+1
  1778	031554	000400	031555			TN0,,.+1
  1779	031555	200 00 0 00 043731 	P0PDLX:	MOVE	LPDOVSV
  1780	031556	202 00 0 00 000422 		MOVEM	LPDOVT
  1781						ERROR1	13,0,0,TRAP 2 FAILED,FATAL^
  1782	031557	036 13 0 00 037210 
  1783	031560	254 00 0 00 031572 		JRST	P0AROX-5
  1784
  1785	031561	000000	000000		P0PDL:	0
  1786	031562	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1787	031563	200 00 0 00 043731 		MOVE	LPDOVSV
  1788	031564	202 00 0 00 000422 		MOVEM	LPDOVT
  1789	031565	200 14 0 00 037213 		MOVE	COR,[0,,P0PDLX]
  1790	031566	200 13 0 00 031561 		MOVE	ACT,P0PDL
  1791	031567	312 14 0 00 000013 		CAME	COR,ACT
  1792						ERROR	P0TRP1,13,COR,ACT,TRAP 2 SAVED PC^
  1793	031570	036 13 0 00 037217 
  1794	031571	035 00 0 00 031526 		ERLOOP	P0TRP1		;IF ERROR, LOOP TO P0TRP1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 16
DSKEAM	MAC	29-Mar-78 14:55		TEST PROCESSOR TRAPS                                                               SEQ 0077

  1795					;*TEST OVERFLOW TRAP
  1796
  1797	031572	200 07 0 00 037222 		MOVE	AC,[JSR P0AROV]
  1798	031573	202 07 0 00 000421 		MOVEM	AC,LAROVT
  1799	031574	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1800	031575	254 02 1 00 031576 		JRSTF	@.+1
  1801	031576	000200	031577			TN1,,.+1
  1802	031577	200 00 0 00 043730 	P0AROX:	MOVE	LAROVSV
  1803	031600	202 00 0 00 000421 		MOVEM	LAROVT
  1804						ERROR1	13,0,0,TRAP 1 FAILED,FATAL^
  1805	031601	036 13 0 00 037226 
  1806	031602	254 00 0 00 031615 		JRST	P0ARO1
  1807
  1808	031603	000000	000000		P0AROV:	0
  1809	031604	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  1810	031605	200 00 0 00 043730 		MOVE	LAROVSV
  1811	031606	202 00 0 00 000421 		MOVEM	LAROVT
  1812	031607	200 14 0 00 037231 		MOVE	COR,[0,,P0AROX]
  1813	031610	200 13 0 00 031603 		MOVE	ACT,P0AROV
  1814	031611	312 14 0 00 000013 		CAME	COR,ACT
  1815						ERROR	P0TRP1,13,COR,ACT,TRAP 1 SAVED PC^
  1816	031612	036 13 0 00 037235 
  1817	031613	035 00 0 00 031526 		ERLOOP	P0TRP1		;IF ERROR, LOOP TO P0TRP1
  1818
  1819	031614	367 15 0 00 031524 		REPTLP	P0TRP0+1
  1820	031615				P0ARO1:
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 17
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0078

  1821					SUBTTL	PDL TRAPPING TESTS
  1822
  1823					;*THESE TEST FOR THE PUSHDOWN INSTRUCTIONS INSURE THAT THEY WILL
  1824					;*INDEED TRAP WHEN AN OVERFLOW OR UNDERFLOW CONDITION OCCURS.
  1825					;*THESE TEST ALSO VERIFY THE VALIDITY OF THE INFORMATION PROCESSED
  1826					;*BY THE INSTRUCTION, AS THEY SHOULD GIVE VALID RESULTS INDEPENDENT
  1827					;*OF WHETHER OR NOT THEY TRAP.
  1828
  1829					;*TEST PUSH INSTRUCTION
  1830
  1831						SUBTST^
  1832	031615	201 00 0 00 031615 		MOVEI	.
  1833	031616	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  1834	031617	200 15 0 00 043737 	PDT0:	MOVE	REPT,RPEAT
  1835
  1836	031620	205 00 0 00 031625 	PDT1:	MOVSI	PDT2		;SHOULD TRAP HERE
  1837	031621	541 00 0 00 031627 		HRRI	PDT3		;AFTER TRAP
  1838	031622	260 17 0 00 032331 		GO	PDSET		;SETUP TRAPPING
  1839
  1840	031623	200 01 0 00 037240 		MOVE	1,[-1,,OVSTR1-1] ; SET PDL POINTER
  1841
  1842	031624	261 01 0 00 032365 		PUSH	1,TSTWD		;PUSH SHOULD TRAP
  1843
  1844	031625				PDT2:	ERROR	PDT1,13,0,0,PUSH,PUSH DID NOT TRAP^
  1845	031625	036 13 0 00 037245 
  1846	031626	035 00 0 00 031620 		ERLOOP	PDT1		;IF ERROR, LOOP TO PDT1
  1847
  1848			037250			C=[0,,OVSTR1]
  1849	031627	312 01 0 00 037250 	PDT3:	CAME	1,C		;PDL POINTER OK ?
  1850						ERROR	PDT1,13,C,1,PUSH,DID NOT INCREMENT POINTER^
  1851	031630	036 13 0 00 037256 
  1852	031631	035 00 0 00 031620 		ERLOOP	PDT1		;IF ERROR, LOOP TO PDT1
  1853
  1854	031632	200 01 0 00 032366 		MOVE	1,OVSTR1	;GET C(STK)
  1855	031633	312 01 0 00 032365 		CAME	1,TSTWD		;VERIFY CORRECT DEPOSIT OF DATA
  1856						ERROR	PDT1,13,TSTWD,1,PUSH,DID NOT STORE DATA^
  1857	031634	036 13 0 00 037265 
  1858	031635	035 00 0 00 031620 		ERLOOP	PDT1		;IF ERROR, LOOP TO PDT1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 18
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0079

  1859					;*TEST PUSHJ INSTRUCTION
  1860
  1861	031636	205 00 0 00 031645 	PDT4A:	MOVSI	PDT5		;SHOULD TRAP
  1862	031637	541 00 0 00 031647 		HRRI	PDT6		;RETURN TO AFTER TRAP
  1863	031640	260 17 0 00 032331 		GO	PDSET		;SETUP TRAPPING
  1864
  1865	031641	200 01 0 00 037240 		MOVE	1,[-1,,OVSTR1-1] ;SET PTR
  1866
  1867	031642	260 01 0 00 031645 		PUSHJ	1,PDT5		;PUSHJ SHOULD TRAP
  1868
  1869	031643				PDT4:	ERROR	PDT4A,13,0,0,PUSHJ,DID NOT TRAP OR CALC EA^
  1870	031643	036 13 0 00 037275 
  1871	031644	035 00 0 00 031636 		ERLOOP	PDT4A		;IF ERROR, LOOP TO PDT4A
  1872
  1873	031645				PDT5:	ERROR	PDT4A,13,0,0,PUSHJ,DID NOT TRAP^
  1874	031645	036 13 0 00 037303 
  1875	031646	035 00 0 00 031636 		ERLOOP	PDT4A		;IF ERROR, LOOP TO PDT4A
  1876
  1877			037250			C=[0,,OVSTR1]
  1878	031647	312 01 0 00 037250 	PDT6:	CAME	1,C
  1879						ERROR	PDT4A,13,C,1,PUSHJ,DID NOT INCREMENT POINTER^
  1880	031650	036 13 0 00 037306 
  1881	031651	035 00 0 00 031636 		ERLOOP	PDT4A		;IF ERROR, LOOP TO PDT4A
  1882
  1883	031652	200 01 0 00 032366 		MOVE	1,OVSTR1	;GET C(STK)
  1884	031653	201 02 0 00 031643 		MOVEI	2,PDT4		;GET ADR WHERE TRAPPED
  1885	031654	553 00 0 00 000001 		HRRZS	1		;CLEAR LH(AC1)
  1886	031655	312 01 0 00 000002 		CAME	1,2		;AC1=AC2 ?
  1887						ERROR	PDT4A,13,2,1,PUSHJ,DID NOT SAVE RIGHT RET ADDR^
  1888	031656	036 13 0 00 037316 
  1889	031657	035 00 0 00 031636 		ERLOOP	PDT4A		;IF ERROR, LOOP TO PDT4A
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 19
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0080

  1890					;*TEST POP INSTRUCTION
  1891
  1892	031660	205 00 0 00 031670 	PDT7:	MOVSI	PDT8		;SHOULD TRAP HERE
  1893	031661	541 00 0 00 031672 		HRRI	PDT9		;RETURN TO AFTER TRAP
  1894	031662	260 17 0 00 032331 		GO	PDSET		;SETUP TRAPPING
  1895
  1896	031663	201 01 0 00 032366 		MOVEI	1,OVSTR1	;SET PDL POINTER
  1897	031664	200 00 0 00 032365 		MOVE	TSTWD#		;GET TEST WORD
  1898	031665	202 00 0 00 032366 		MOVEM	OVSTR1#		;PUT IT ON STACK
  1899	031666	400 02 0 00 000000 		SETZ	2,		;CLEAR AC2
  1900
  1901	031667	262 01 0 00 000002 		POP	1,2		;POP SHOULD TRAP
  1902	031670				PDT8:	ERROR	PDT7,13,0,0,POP,DID NOT TRAP^
  1903	031670	036 13 0 00 037322 
  1904	031671	035 00 0 00 031660 		ERLOOP	PDT7		;IF ERROR, LOOP TO PDT7
  1905
  1906	031672	312 02 0 00 032365 	PDT9:	CAME	2,TSTWD		;AC2 RESTORED OK ?
  1907						ERROR	PDT7,13,TSTWD,2,POP,DID NOT RESTORE DATA^
  1908	031673	036 13 0 00 037331 
  1909	031674	035 00 0 00 031660 		ERLOOP	PDT7		;IF ERROR, LOOP TO PDT7
  1910
  1911			037240			C=[-1,,OVSTR1-1]
  1912	031675	312 01 0 00 037240 		CAME	1,C		;PTR OK ?
  1913						ERROR	PDT7,13,C,1,POP,DID NOT DECREMENT POINTER^
  1914	031676	036 13 0 00 037341 
  1915	031677	035 00 0 00 031660 		ERLOOP	PDT7		;IF ERROR, LOOP TO PDT7
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 20
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0081

  1916					;*TEST POPJ INSTRUCTION
  1917
  1918	031700	205 00 0 00 031711 	PDT10:	MOVSI	PDT11A		;SHOULD TRAP TO HERE
  1919	031701	541 00 0 00 031713 		HRRI	PDT12		;RETURN HERE
  1920	031702	260 17 0 00 032331 		GO	PDSET		;SETUP TRAPPING
  1921
  1922	031703	201 01 0 00 032366 		MOVEI	1,OVSTR1	;SETUP PDL STACK
  1923	031704	201 00 0 00 031711 		MOVEI	PDT11A		;GET POPJ'S RETURN ADDRESS
  1924	031705	202 00 0 00 032366 		MOVEM	OVSTR1		;PUT ON STACK
  1925
  1926	031706	263 01 0 00 000000 		POPJ	1,		;POPJ SHOULD TRAP
  1927
  1928	031707				PDT11:	ERROR	PDT10,13,0,0,POPJ,DID NOT TRAP OR GET RETURN ADR^
  1929	031707	036 13 0 00 037353 
  1930	031710	035 00 0 00 031700 		ERLOOP	PDT10		;IF ERROR, LOOP TO PDT10
  1931
  1932	031711				PDT11A:	ERROR	PDT10,13,0,0,POPJ,DID NOT TRAP^
  1933	031711	036 13 0 00 037356 
  1934	031712	035 00 0 00 031700 		ERLOOP	PDT10		;IF ERROR, LOOP TO PDT10
  1935
  1936			037240			C=[-1,,OVSTR1-1]
  1937	031713	312 01 0 00 037240 	PDT12:	CAME	1,C
  1938						ERROR	PDT10,13,C,1,POPJ,DID NOT DECREMENT POINTER^
  1939	031714	036 13 0 00 037361 
  1940	031715	035 00 0 00 031700 		ERLOOP	PDT10		;IF ERROR, LOOP TO PDT10
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 21
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0082

  1941					;*TEST OVERFLOW TRAP WITH "ASH"
  1942
  1943	031716	205 00 0 00 031723 	ASHTST:	MOVSI	ASHTRP		;TRAP TO HERE
  1944	031717	541 00 0 00 031727 		HRRI	ASHRET		;RETURN TO HERE
  1945	031720	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  1946
  1947	031721	200 02 0 00 037364 		MOVE	2,[377777,,-1]
  1948
  1949	031722	240 02 0 00 000001 		ASH	2,1		;ASH SHOULD TRAP
  1950
  1951	031723	200 00 0 00 043730 	ASHTRP:	MOVE	LAROVSV
  1952	031724	202 00 0 00 000421 		MOVEM	LAROVT
  1953						ERROR	ASHTST,13,0,0,ASH OVERFLOW,DID NOT TRAP^
  1954	031725	036 13 0 00 037370 
  1955	031726	035 00 0 00 031716 		ERLOOP	ASHTST		;IF ERROR, LOOP TO ASHTST
  1956
  1957			037373			C=[377777,,-2]
  1958	031727	200 00 0 00 043730 	ASHRET:	MOVE	LAROVSV
  1959	031730	202 00 0 00 000421 		MOVEM	LAROVT
  1960	031731	312 02 0 00 037373 		CAME	2,C		;INSURE AC HAS CHANGED
  1961						ERROR	ASHTST,13,C,2,ASH OVERFLOW,AC WRONG^
  1962	031732	036 13 0 00 037376 
  1963	031733	035 00 0 00 031716 		ERLOOP	ASHTST		;IF ERROR, LOOP TO ASHTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 22
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0083

  1964					;*TEST OVERFLOW TRAP WITH "ASHC"
  1965
  1966	031734	205 00 0 00 031742 	ASHCTST:MOVSI	ASHCTRP		;TRAP TO HERE
  1967	031735	541 00 0 00 031746 		HRRI	ASHCRET		;RETURN TO HERE
  1968	031736	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  1969
  1970	031737	200 02 0 00 037364 		MOVE	2,[377777,,-1]
  1971	031740	201 03 0 00 000000 		MOVEI	3,0
  1972
  1973	031741	244 02 0 00 000001 		ASHC	2,1		;ASHC SHOULD TRAP
  1974
  1975	031742	200 00 0 00 043730 	ASHCTRP:MOVE	LAROVSV
  1976	031743	202 00 0 00 000421 		MOVEM	LAROVT
  1977						ERROR	ASHCTST,13,0,0,ASHC OVERFLOW,DID NOT TRAP^
  1978	031744	036 13 0 00 037404 
  1979	031745	035 00 0 00 031734 		ERLOOP	ASHCTST		;IF ERROR, LOOP TO ASHCTST
  1980
  1981			037373			C=[377777,,-2]
  1982	031746	200 00 0 00 043730 	ASHCRET:MOVE	LAROVSV
  1983	031747	202 00 0 00 000421 		MOVEM	LAROVT
  1984	031750	312 02 0 00 037373 		CAME	2,C		;INSURE AC HAS CHANGED
  1985						ERROR	ASHCTST,13,C,2,ASHC OVERFLOW,AC WRONG^
  1986	031751	036 13 0 00 037407 
  1987	031752	035 00 0 00 031734 		ERLOOP	ASHCTST		;IF ERROR, LOOP TO ASHCTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 23
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0084

  1988					;*TEST OVERFLOW TRAP WITH "MUL"
  1989
  1990	031753	205 00 0 00 031760 	MULTST:	MOVSI	MULTRP		;TRAP TO HERE
  1991	031754	541 00 0 00 031764 		HRRI	MULRET		;RETURN TO HERE
  1992	031755	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  1993
  1994	031756	200 02 0 00 037412 		MOVE	2,[400000,,0]
  1995
  1996	031757	224 02 0 00 000002 		MUL	2,2		;MUL SHOULD TRAP
  1997
  1998	031760	200 00 0 00 043730 	MULTRP:	MOVE	LAROVSV
  1999	031761	202 00 0 00 000421 		MOVEM	LAROVT
  2000						ERROR	MULTST,13,0,0,MUL OVERFLOW,DID NOT TRAP^
  2001	031762	036 13 0 00 037416 
  2002	031763	035 00 0 00 031753 		ERLOOP	MULTST		;IF ERROR, LOOP TO MULTST
  2003
  2004			037412			C=[400000,,0]
  2005	031764	200 00 0 00 043730 	MULRET:	MOVE	LAROVSV
  2006	031765	202 00 0 00 000421 		MOVEM	LAROVT
  2007	031766	312 02 0 00 037412 		CAME	2,C		;INSURE AC HAS CHANGED
  2008						ERROR	MULTST,13,C,2,MUL OVERFLOW,AC MODIFIED^
  2009	031767	036 13 0 00 037423 
  2010	031770	035 00 0 00 031753 		ERLOOP	MULTST		;IF ERROR, LOOP TO MULTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 24
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0085

  2011					;*TEST OVERFLOW TRAP WITH "IMUL"
  2012
  2013	031771	205 00 0 00 031776 	IMULTST:MOVSI	IMULTRP		;TRAP TO HERE
  2014	031772	541 00 0 00 032002 		HRRI	IMULRET		;RETURN TO HERE
  2015	031773	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2016
  2017	031774	200 02 0 00 037412 		MOVE	2,[400000,,0]
  2018
  2019	031775	220 02 0 00 000002 		IMUL	2,2		;IMUL SHOULD TRAP
  2020
  2021	031776	200 00 0 00 043730 	IMULTRP:MOVE	LAROVSV
  2022	031777	202 00 0 00 000421 		MOVEM	LAROVT
  2023						ERROR	IMULTST,13,0,0,IMUL OVERFLOW,DID NOT TRAP^
  2024	032000	036 13 0 00 037431 
  2025	032001	035 00 0 00 031771 		ERLOOP	IMULTST		;IF ERROR, LOOP TO IMULTST
  2026
  2027			037412			C=[400000,,0]
  2028	032002	200 00 0 00 043730 	IMULRET:MOVE	LAROVSV
  2029	032003	202 00 0 00 000421 		MOVEM	LAROVT
  2030	032004	312 02 0 00 037412 		CAME	2,C		;INSURE AC HAS CHANGED
  2031						ERROR	IMULTST,13,C,2,IMUL OVERFLOW,AC MODIFIED^
  2032	032005	036 13 0 00 037434 
  2033	032006	035 00 0 00 031771 		ERLOOP	IMULTST		;IF ERROR, LOOP TO IMULTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 25
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0086

  2034					;*TEST OVERFLOW TRAP WITH "ADJBP"
  2035
  2036	032007	205 00 0 00 032014 	ADJTST:	MOVSI	ADJTRP		;TRAP TO HERE
  2037	032010	541 00 0 00 032020 		HRRI	ADJRET		;RETURN TO HERE
  2038	032011	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2039
  2040	032012	200 02 0 00 037437 		MOVE	2,[017700,,0]
  2041
  2042	032013	133 01 0 00 000002 		IBP	1,2		;ADJBP SHOULD TRAP
  2043
  2044	032014	200 00 0 00 043730 	ADJTRP:	MOVE	LAROVSV
  2045	032015	202 00 0 00 000421 		MOVEM	LAROVT
  2046						ERROR	ADJTST,13,0,0,ADJBP OVERFLOW,DID NOT TRAP^
  2047	032016	036 13 0 00 037443 
  2048	032017	035 00 0 00 032007 		ERLOOP	ADJTST		;IF ERROR, LOOP TO ADJTST
  2049
  2050	032020	200 00 0 00 043730 	ADJRET:	MOVE	LAROVSV
  2051	032021	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 26
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0087

  2052					;*TEST OVERFLOW TRAP WITH "FSC"
  2053
  2054	032022	205 00 0 00 032027 	FSCTST:	MOVSI	FSCTRP		;TRAP TO HERE
  2055	032023	541 00 0 00 032033 		HRRI	FSCRET		;RETURN TO HERE
  2056	032024	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2057
  2058	032025	200 02 0 00 037446 		MOVE	2,[-377400,,0]
  2059
  2060	032026	132 02 0 00 777400 		FSC	2,-400		;FSC SHOULD TRAP
  2061
  2062	032027	200 00 0 00 043730 	FSCTRP:	MOVE	LAROVSV
  2063	032030	202 00 0 00 000421 		MOVEM	LAROVT
  2064						ERROR	FSCTST,13,0,0,FSC OVERFLOW,DID NOT TRAP^
  2065	032031	036 13 0 00 037452 
  2066	032032	035 00 0 00 032022 		ERLOOP	FSCTST		;IF ERROR, LOOP TO FSCTST
  2067
  2068	032033	200 00 0 00 043730 	FSCRET:	MOVE	LAROVSV
  2069	032034	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 27
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0088

  2070					;*TEST OVERFLOW TRAP WITH "FIX"
  2071
  2072	032035	205 00 0 00 032042 	FIXTST:	MOVSI	FIXTRP		;TRAP TO HERE
  2073	032036	541 00 0 00 032046 		HRRI	FIXRET		;RETURN TO HERE
  2074	032037	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2075
  2076	032040	200 02 0 00 037455 		MOVE	2,[244400,,0]
  2077
  2078	032041	122 02 0 00 000002 		FIX	2,2		;FIX SHOULD TRAP
  2079
  2080	032042	200 00 0 00 043730 	FIXTRP:	MOVE	LAROVSV
  2081	032043	202 00 0 00 000421 		MOVEM	LAROVT
  2082						ERROR	FIXTST,13,0,0,FIX OVERFLOW,DID NOT TRAP^
  2083	032044	036 13 0 00 037461 
  2084	032045	035 00 0 00 032035 		ERLOOP	FIXTST		;IF ERROR, LOOP TO FIXTST
  2085
  2086			037455			C=[244400,,0]
  2087	032046	200 00 0 00 043730 	FIXRET:	MOVE	LAROVSV
  2088	032047	202 00 0 00 000421 		MOVEM	LAROVT
  2089	032050	312 02 0 00 037455 		CAME	2,C		;INSURE AC HAS CHANGED
  2090						ERROR	FIXTST,13,C,2,FIX OVERFLOW,AC MODIFIED^
  2091	032051	036 13 0 00 037464 
  2092	032052	035 00 0 00 032035 		ERLOOP	FIXTST		;IF ERROR, LOOP TO FIXTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 28
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0089

  2093					;*TEST OVERFLOW TRAP WITH "FIXR"
  2094
  2095	032053	205 00 0 00 032060 	FIXRTST:MOVSI	FIXRTRP		;TRAP TO HERE
  2096	032054	541 00 0 00 032064 		HRRI	FIXRRET		;RETURN TO HERE
  2097	032055	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2098
  2099	032056	200 02 0 00 037455 		MOVE	2,[244400,,0]
  2100
  2101	032057	126 02 0 00 000002 		FIXR	2,2		;FIXR SHOULD TRAP
  2102
  2103	032060	200 00 0 00 043730 	FIXRTRP:MOVE	LAROVSV
  2104	032061	202 00 0 00 000421 		MOVEM	LAROVT
  2105						ERROR	FIXRTST,13,0,0,FIXR OVERFLOW,DID NOT TRAP^
  2106	032062	036 13 0 00 037472 
  2107	032063	035 00 0 00 032053 		ERLOOP	FIXRTST		;IF ERROR, LOOP TO FIXRTST
  2108
  2109			037455			C=[244400,,0]
  2110	032064	200 00 0 00 043730 	FIXRRET:MOVE	LAROVSV
  2111	032065	202 00 0 00 000421 		MOVEM	LAROVT
  2112	032066	312 02 0 00 037455 		CAME	2,C		;INSURE AC HAS CHANGED
  2113						ERROR	FIXRTST,13,C,2,FIXR OVERFLOW,AC MODIFIED^
  2114	032067	036 13 0 00 037475 
  2115	032070	035 00 0 00 032053 		ERLOOP	FIXRTST		;IF ERROR, LOOP TO FIXRTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 29
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0090

  2116					;*TEST OVERFLOW TRAP WITH "FAD"
  2117
  2118	032071	205 00 0 00 032076 	FADTST:	MOVSI	FADTRP		;TRAP TO HERE
  2119	032072	541 00 0 00 032102 		HRRI	FADRET		;RETURN TO HERE
  2120	032073	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2121
  2122	032074	200 02 0 00 037500 		MOVE	2,[377400,,0]
  2123
  2124	032075	140 02 0 00 000002 		FAD	2,2		;FAD SHOULD TRAP
  2125
  2126	032076	200 00 0 00 043730 	FADTRP:	MOVE	LAROVSV
  2127	032077	202 00 0 00 000421 		MOVEM	LAROVT
  2128						ERROR	FADTST,13,0,0,FAD OVERFLOW,DID NOT TRAP^
  2129	032100	036 13 0 00 037504 
  2130	032101	035 00 0 00 032071 		ERLOOP	FADTST		;IF ERROR, LOOP TO FADTST
  2131
  2132	032102	200 00 0 00 043730 	FADRET:	MOVE	LAROVSV
  2133	032103	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 30
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0091

  2134					;*TEST OVERFLOW TRAP WITH "DFAD"
  2135
  2136	032104	205 00 0 00 032111 	DFADTST:MOVSI	DFADTRP		;TRAP TO HERE
  2137	032105	541 00 0 00 032115 		HRRI	DFADRET		;RETURN TO HERE
  2138	032106	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2139
  2140	032107	200 02 0 00 037500 		MOVE	2,[377400,,0]
  2141
  2142	032110	110 02 0 00 000002 		DFAD	2,2		;DFAD SHOULD TRAP
  2143
  2144	032111	200 00 0 00 043730 	DFADTRP:MOVE	LAROVSV
  2145	032112	202 00 0 00 000421 		MOVEM	LAROVT
  2146						ERROR	DFADTST,13,0,0,DFAD OVERFLOW,DID NOT TRAP^
  2147	032113	036 13 0 00 037512 
  2148	032114	035 00 0 00 032104 		ERLOOP	DFADTST		;IF ERROR, LOOP TO DFADTST
  2149
  2150	032115	200 00 0 00 043730 	DFADRET:MOVE	LAROVSV
  2151	032116	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 31
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0092

  2152					;*TEST OVERFLOW TRAP WITH "FSB"
  2153
  2154	032117	205 00 0 00 032125 	FSBTST:	MOVSI	FSBTRP		;TRAP TO HERE
  2155	032120	541 00 0 00 032131 		HRRI	FSBRET		;RETURN TO HERE
  2156	032121	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2157
  2158	032122	200 02 0 00 037446 		MOVE	2,[400400,,0]
  2159	032123	200 03 0 00 037500 		MOVE	3,[377400,,0]
  2160
  2161	032124	150 02 0 00 000003 		FSB	2,3		;FSB SHOULD TRAP
  2162
  2163	032125	200 00 0 00 043730 	FSBTRP:	MOVE	LAROVSV
  2164	032126	202 00 0 00 000421 		MOVEM	LAROVT
  2165						ERROR	FSBTST,13,0,0,FSB OVERFLOW,DID NOT TRAP^
  2166	032127	036 13 0 00 037520 
  2167	032130	035 00 0 00 032117 		ERLOOP	FSBTST		;IF ERROR, LOOP TO FSBTST
  2168
  2169	032131	200 00 0 00 043730 	FSBRET:	MOVE	LAROVSV
  2170	032132	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 32
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0093

  2171					;*TEST OVERFLOW TRAP WITH "DFSB"
  2172
  2173	032133	205 00 0 00 032142 	DFSBTST:MOVSI	DFSBTRP		;TRAP TO HERE
  2174	032134	541 00 0 00 032146 		HRRI	DFSBRET		;RETURN TO HERE
  2175	032135	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2176
  2177	032136	200 02 0 00 037446 		MOVE	2,[400400,,0]
  2178	032137	200 04 0 00 037500 		MOVE	4,[377400,,0]
  2179	032140	403 03 0 00 000005 		SETZB	3,5
  2180
  2181	032141	111 02 0 00 000004 		DFSB	2,4		;DFSB SHOULD TRAP
  2182
  2183	032142	200 00 0 00 043730 	DFSBTRP:MOVE	LAROVSV
  2184	032143	202 00 0 00 000421 		MOVEM	LAROVT
  2185						ERROR	DFSBTST,13,0,0,DFSB OVERFLOW,DID NOT TRAP^
  2186	032144	036 13 0 00 037526 
  2187	032145	035 00 0 00 032133 		ERLOOP	DFSBTST		;IF ERROR, LOOP TO DFSBTST
  2188
  2189	032146	200 00 0 00 043730 	DFSBRET:MOVE	LAROVSV
  2190	032147	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 33
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0094

  2191					;*TEST OVERFLOW TRAP WITH "FMP"
  2192
  2193	032150	205 00 0 00 032155 	FMPTST:	MOVSI	FMPTRP		;TRAP TO HERE
  2194	032151	541 00 0 00 032161 		HRRI	FMPRET		;RETURN TO HERE
  2195	032152	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2196
  2197	032153	200 02 0 00 037500 		MOVE	2,[377400,,0]
  2198
  2199	032154	160 02 0 00 000002 		FMP	2,2		;FMP SHOULD TRAP
  2200
  2201	032155	200 00 0 00 043730 	FMPTRP:	MOVE	LAROVSV
  2202	032156	202 00 0 00 000421 		MOVEM	LAROVT
  2203						ERROR	FMPTST,13,0,0,FMP OVERFLOW,DID NOT TRAP^
  2204	032157	036 13 0 00 037534 
  2205	032160	035 00 0 00 032150 		ERLOOP	FMPTST		;IF ERROR, LOOP TO FMPTST
  2206
  2207	032161	200 00 0 00 043730 	FMPRET:	MOVE	LAROVSV
  2208	032162	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 34
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0095

  2209					;*TEST OVERFLOW TRAP WITH "DFMP"
  2210
  2211	032163	205 00 0 00 032170 	DFMPTST:MOVSI	DFMPTRP		;TRAP TO HERE
  2212	032164	541 00 0 00 032174 		HRRI	DFMPRET		;RETURN TO HERE
  2213	032165	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2214
  2215	032166	200 02 0 00 037500 		MOVE	2,[377400,,0]
  2216
  2217	032167	112 02 0 00 000002 		DFMP	2,2		;DFMP SHOULD TRAP
  2218
  2219	032170	200 00 0 00 043730 	DFMPTRP:MOVE	LAROVSV
  2220	032171	202 00 0 00 000421 		MOVEM	LAROVT
  2221						ERROR	DFMPTST,13,0,0,DFMP OVERFLOW,DID NOT TRAP^
  2222	032172	036 13 0 00 037542 
  2223	032173	035 00 0 00 032163 		ERLOOP	DFMPTST		;IF ERROR, LOOP TO DFMPTST
  2224
  2225	032174	200 00 0 00 043730 	DFMPRET:MOVE	LAROVSV
  2226	032175	202 00 0 00 000421 		MOVEM	LAROVT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 35
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0096

  2227					;*TEST NO-DIVIDE TRAP WITH "DIV"
  2228
  2229	032176	205 00 0 00 032203 	DIVTST:	MOVSI	DIVTRP		;TRAP TO HERE
  2230	032177	541 00 0 00 032207 		HRRI	DIVRET		;RETURN TO HERE
  2231	032200	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2232
  2233	032201	403 02 0 00 000003 		SETZB	2,3		;CLEAR AC2 & AC3
  2234
  2235	032202	234 02 0 00 000002 		DIV	2,2		;DIV SHOULD TRAP
  2236
  2237	032203	200 00 0 00 043730 	DIVTRP:	MOVE	LAROVSV
  2238	032204	202 00 0 00 000421 		MOVEM	LAROVT
  2239						ERROR	DIVTST,13,0,0,DIV NO DIVIDE,DID NOT TRAP^
  2240	032205	036 13 0 00 037550 
  2241	032206	035 00 0 00 032176 		ERLOOP	DIVTST		;IF ERROR, LOOP TO DIVTST
  2242
  2243			037173			C=[0]
  2244	032207	200 00 0 00 043730 	DIVRET:	MOVE	LAROVSV
  2245	032210	202 00 0 00 000421 		MOVEM	LAROVT
  2246	032211	312 02 0 00 037173 		CAME	2,C		;INSURE AC HAS NOT CHANGED
  2247						ERROR	DIVTST,13,C,2,DIV NO DIVIDE,AC MODIFIED^
  2248	032212	036 13 0 00 037553 
  2249	032213	035 00 0 00 032176 		ERLOOP	DIVTST		;IF ERROR, LOOP TO DIVTST
  2250
  2251	032214	312 03 0 00 037173 		CAME	3,C
  2252						ERROR	DIVTST,13,C,3,DIV NO DIVIDE,AC+1 MODIFIED^
  2253	032215	036 13 0 00 037561 
  2254	032216	035 00 0 00 032176 		ERLOOP	DIVTST		;IF ERROR, LOOP TO DIVTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 36
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0097

  2255					;*TEST NO-DIVIDE TRAP WITH "IDIV"
  2256
  2257	032217	205 00 0 00 032224 	IDIVTST:MOVSI	IDIVTRP		;TRAP TO HERE
  2258	032220	541 00 0 00 032230 		HRRI	IDIVRET		;RETURN TO HERE
  2259	032221	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2260
  2261	032222	403 02 0 00 000003 		SETZB	2,3		;CLEAR AC2 & AC3
  2262
  2263	032223	230 02 0 00 000002 		IDIV	2,2		;IDIV SHOULD TRAP
  2264
  2265	032224	200 00 0 00 043730 	IDIVTRP:MOVE	LAROVSV
  2266	032225	202 00 0 00 000421 		MOVEM	LAROVT
  2267						ERROR	IDIVTST,13,0,0,IDIV NO DIVIDE,DID NOT TRAP^
  2268	032226	036 13 0 00 037567 
  2269	032227	035 00 0 00 032217 		ERLOOP	IDIVTST		;IF ERROR, LOOP TO IDIVTST
  2270
  2271			037173			C=[0]
  2272	032230	200 00 0 00 043730 	IDIVRET:MOVE	LAROVSV
  2273	032231	202 00 0 00 000421 		MOVEM	LAROVT
  2274	032232	312 02 0 00 037173 		CAME	2,C		;INSURE AC HAS NOT CHANGED
  2275						ERROR	IDIVTST,13,C,2,IDIV NO DIVIDE,AC MODIFIED^
  2276	032233	036 13 0 00 037572 
  2277	032234	035 00 0 00 032217 		ERLOOP	IDIVTST		;IF ERROR, LOOP TO IDIVTST
  2278
  2279	032235	312 03 0 00 037173 		CAME	3,C
  2280						ERROR	IDIVTST,13,C,3,IDIV NO DIVIDE,AC+1 MODIFIED^
  2281	032236	036 13 0 00 037575 
  2282	032237	035 00 0 00 032217 		ERLOOP	IDIVTST		;IF ERROR, LOOP TO IDIVTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 37
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0098

  2283					;*TEST NO-DIVIDE TRAP WITH "FDV"
  2284
  2285	032240	205 00 0 00 032245 	FDVTST:	MOVSI	FDVTRP		;TRAP TO HERE
  2286	032241	541 00 0 00 032251 		HRRI	FDVRET		;RETURN TO HERE
  2287	032242	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2288
  2289	032243	403 02 0 00 000003 		SETZB	2,3		;CLEAR AC2 & AC3
  2290
  2291	032244	170 02 0 00 000002 		FDV	2,2		;FDV SHOULD TRAP
  2292
  2293	032245	200 00 0 00 043730 	FDVTRP:	MOVE	LAROVSV
  2294	032246	202 00 0 00 000421 		MOVEM	LAROVT
  2295						ERROR	FDVTST,13,0,0,FDV NO DIVIDE,DID NOT TRAP^
  2296	032247	036 13 0 00 037603 
  2297	032250	035 00 0 00 032240 		ERLOOP	FDVTST		;IF ERROR, LOOP TO FDVTST
  2298
  2299			037173			C=[0]
  2300	032251	200 00 0 00 043730 	FDVRET:	MOVE	LAROVSV
  2301	032252	202 00 0 00 000421 		MOVEM	LAROVT
  2302	032253	312 02 0 00 037173 		CAME	2,C		;INSURE AC HAS NOT CHANGED
  2303						ERROR	FDVTST,13,C,2,FDV NO DIVIDE,AC MODIFIED^
  2304	032254	036 13 0 00 037606 
  2305	032255	035 00 0 00 032240 		ERLOOP	FDVTST		;IF ERROR, LOOP TO FDVTST
  2306
  2307	032256	312 03 0 00 037173 		CAME	3,C
  2308						ERROR	FDVTST,13,C,3,FDV NO DIVIDE,AC+1 MODIFIED^
  2309	032257	036 13 0 00 037611 
  2310	032260	035 00 0 00 032240 		ERLOOP	FDVTST		;IF ERROR, LOOP TO FDVTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 38
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0099

  2311					;*TEST NO-DIVIDE TRAP WITH "FDVR"
  2312
  2313	032261	205 00 0 00 032266 	FDVRTST:MOVSI	FDVRTRP		;TRAP TO HERE
  2314	032262	541 00 0 00 032272 		HRRI	FDVRRET		;RETURN TO HERE
  2315	032263	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2316
  2317	032264	403 02 0 00 000003 		SETZB	2,3		;CLEAR AC2 & AC3
  2318
  2319	032265	174 02 0 00 000002 		FDVR	2,2		;FDVR SHOULD TRAP
  2320
  2321	032266	200 00 0 00 043730 	FDVRTRP:MOVE	LAROVSV
  2322	032267	202 00 0 00 000421 		MOVEM	LAROVT
  2323						ERROR	FDVRTST,13,0,0,FDVR NO DIVIDE,DID NOT TRAP^
  2324	032270	036 13 0 00 037617 
  2325	032271	035 00 0 00 032261 		ERLOOP	FDVRTST		;IF ERROR, LOOP TO FDVRTST
  2326
  2327			037173			C=[0]
  2328	032272	200 00 0 00 043730 	FDVRRET:MOVE	LAROVSV
  2329	032273	202 00 0 00 000421 		MOVEM	LAROVT
  2330	032274	312 02 0 00 037173 		CAME	2,C		;INSURE AC HAS NOT CHANGED
  2331						ERROR	FDVRTST,13,C,2,FDVR NO DIVIDE,AC MODIFIED^
  2332	032275	036 13 0 00 037622 
  2333	032276	035 00 0 00 032261 		ERLOOP	FDVRTST		;IF ERROR, LOOP TO FDVRTST
  2334
  2335	032277	312 03 0 00 037173 		CAME	3,C
  2336						ERROR	FDVRTST,13,C,3,FDVR NO DIVIDE,AC+1 MODIFIED^
  2337	032300	036 13 0 00 037625 
  2338	032301	035 00 0 00 032261 		ERLOOP	FDVRTST		;IF ERROR, LOOP TO FDVRTST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 39
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0100

  2339					;*TEST NO-DIVIDE TRAP WITH "DFDV"
  2340
  2341	032302	205 00 0 00 032307 	DFDVTST:MOVSI	DFDVTRP		;TRAP TO HERE
  2342	032303	541 00 0 00 032313 		HRRI	DFDVRET		;RETURN TO HERE
  2343	032304	260 17 0 00 032327 		GO	ARSET		;SETUP TRAPPING
  2344
  2345	032305	403 02 0 00 000003 		SETZB	2,3		;CLEAR AC2 & AC3
  2346	032306	113 02 0 00 000002 		DFDV	2,2		;DFDV SHOULD TRAP
  2347
  2348	032307	200 00 0 00 043730 	DFDVTRP:MOVE	LAROVSV
  2349	032310	202 00 0 00 000421 		MOVEM	LAROVT
  2350						ERROR	DFDVTST,13,0,0,DFDV NO DIVIDE,DID NOT TRAP^
  2351	032311	036 13 0 00 037633 
  2352	032312	035 00 0 00 032302 		ERLOOP	DFDVTST		;IF ERROR, LOOP TO DFDVTST
  2353
  2354			037173			C=[0]
  2355	032313	200 00 0 00 043730 	DFDVRET:MOVE	LAROVSV
  2356	032314	202 00 0 00 000421 		MOVEM	LAROVT
  2357	032315	312 02 0 00 037173 		CAME	2,C		;INSURE AC HAS NOT CHANGED
  2358						ERROR	DFDVTST,13,C,2,DFDV NO DIVIDE,AC MODIFIED^
  2359	032316	036 13 0 00 037636 
  2360	032317	035 00 0 00 032302 		ERLOOP	DFDVTST		;IF ERROR, LOOP TO DFDVTST
  2361
  2362	032320	312 03 0 00 037173 		CAME	3,C
  2363						ERROR	DFDVTST,13,C,3,DFDV NO DIVIDE,AC+1 MODIFIED^
  2364	032321	036 13 0 00 037641 
  2365	032322	035 00 0 00 032302 		ERLOOP	DFDVTST		;IF ERROR, LOOP TO DFDVTST
  2366
  2367	032323	367 15 0 00 031620 		REPTLP	PDT1		;REPEAT LOOP
  2368
  2369	032324	200 00 0 00 043731 		MOVE	LPDOVSV
  2370	032325	202 00 0 00 000422 		MOVEM	LPDOVT		;RESTORE TRAP
  2371	032326	254 00 0 00 032371 		JRST	MAPCK0-2
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 40
DSKEAM	MAC	29-Mar-78 14:55		PDL TRAPPING TESTS                                                                 SEQ 0101

  2372					;*TRAPPING SUBROUTINES
  2373
  2374	032327	402 00 0 00 032364 	ARSET:	SETZM	TRPTYP		;NOTE AR OVERFLOW
  2375	032330	254 00 0 00 032332 		JRST	.+2
  2376
  2377	032331	476 00 0 00 032364 	PDSET:	SETOM	TRPTYP		;NOTE PDL OVERFLOW
  2378
  2379	032332	552 00 0 00 032361 		HRRZM	RETO		;SAVE TRAP RETURN ADDRESS
  2380	032333	556 00 0 00 032360 		HLRZM	SHTRP		;SAVE WHERE SHOULD TRAP
  2381
  2382	032334	201 00 0 00 000421 		MOVEI	LAROVT		;GET AR TRAP LOCATION
  2383	032335	332 00 0 00 032364 		SKIPE	TRPTYP
  2384	032336	201 00 0 00 000422 		MOVEI	LPDOVT		;GET PDL TRAP LOCATION
  2385	032337	202 00 0 00 032363 		MOVEM	TRPLOC		;SAVE ADR OF TRAP LOCATION
  2386
  2387	032340	200 00 0 00 032344 		MOVE	TRINST		;GET EXEC TRAP INSTRUCTION
  2388	032341	250 00 1 00 032363 		EXCH	@TRPLOC		;STORE NEW & GET OLD TRAP INST
  2389	032342	202 00 0 00 032362 		MOVEM	TRPSAV		;SAVE TO RESTORE LATER
  2390	032343	263 17 0 00 000000 		RTN
  2391
  2392	032344	264 00 0 00 032345 	TRINST:	JSR	EXCTRP		;THIS WILL SAVE PC
  2393	032345	000000	000000		EXCTRP:	0			;PC GOES HERE
  2394	032346	261 17 0 00 000001 		PUT	1
  2395	032347	200 01 0 00 032362 		MOVE	1,TRPSAV	;GET ORIGINAL TRAP INST
  2396	032350	202 01 1 00 032363 		MOVEM	1,@TRPLOC	;RESTORE IT
  2397
  2398	032351	200 01 0 00 032345 	COMCHK:	MOVE	1,EXCTRP	;GET TRAP PC
  2399	032352	553 00 0 00 000001 		HRRZS	1		;CLEAR LH(AC0)
  2400	032353	312 01 0 00 032360 		CAME	1,SHTRP		;TRAP WHERE SHOULD ?
  2401						ERROR	PDT0,13,SHTRP,1,BAD TRAP^
  2402	032354	036 13 0 00 037646 
  2403	032355	035 00 0 00 031617 		ERLOOP	PDT0		;IF ERROR, LOOP TO PDT0
  2404	032356	262 17 0 00 000001 		GET	1
  2405	032357	254 02 1 00 032361 		JRSTF	@RETO		;RETURN TO PROG AT SUPPLIED ADR
  2406
  2407					;*TRAP STORAGE
  2408
  2409	032360	000000	000000		SHTRP:	0		;LOC WHERE SHOULD TRAP
  2410	032361	000000	000000		RETO:	0		;RETURN TO ADDRESS
  2411	032362	000000	000000		TRPSAV:	0		;ORIGINAL TRAP INST
  2412	032363	000000	000000		TRPLOC:	0		;ADR OF TRAP LOCATION
  2413	032364	000000	000000		TRPTYP:	0		;TRAP TYPE 0=AR, -1=PDL
  2414	032365	123456	654321		TSTWD:	123456,,654321	;TEST WORD
  2415	032366	000000	000000		OVSTR1:	0		;STACK FOR PDL TESTS
  2416	032367	000000	000000		MTRZ:	0
  2417	032370	000000	000000		MTRX:	0
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 41
DSKEAM	MAC	29-Mar-78 14:55		TEST MAP INSTRUCTION                                                               SEQ 0102

  2418					SUBTTL	TEST MAP INSTRUCTION
  2419
  2420					SALL
  2421			037651		T=	SIXBTZ	MAP INST TEST
  2422					LALL
  2423
  2424					;*PERFORM 'MAP' OF ADDRESS 0.
  2425					;*MAP READOUT SHOULD BE:
  2426					;*ACCESS, WRITEABLE, SOFTWARE, PAGED REF
  2427
  2428						SUBTST^
  2429	032371	201 00 0 00 032371 		MOVEI	.
  2430	032372	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2431	032373	200 15 0 00 043737 	MAPCK0:	MOVE	REPT,RPEAT
  2432	032374	200 14 0 00 037654 		MOVE	COR,[161000,,0]
  2433	032375	257 13 0 00 000000 		MAP	ACT,0		;MAP FOR LOCATION 0
  2434	032376	312 14 0 00 000013 		CAME	COR,ACT
  2435						ERROR	.-4,13,COR,ACT,MAP ADR 0,^
  2436												SALL
  2437	032377	036 13 0 00 037657 
  2438	032400	035 00 0 00 032374 		ERLOOP	.-4		;IF ERROR, LOOP TO .-4
  2439
  2440					;*PERFORM 'MAP' OF ADDRESS 337000,
  2441					;*HIGHEST EXEC PAGED MEMORY ADDRESS.
  2442					;*MAP READOUT SHOULD BE:
  2443					;*ACCESS, WRITABLE, SOFTWARE, PAGED REF
  2444
  2445	032401	200 14 0 00 037662 	MAPCK1:	MOVE	COR,[161000,,337000]
  2446	032402	257 13 0 00 337000 		MAP	ACT,337000	;MAP FOR LOCATION 337000
  2447	032403	312 14 0 00 000013 		CAME	COR,ACT
  2448						ERROR	.-4,13,COR,ACT,MAP ADR 337000,^
  2449	032404	036 13 0 00 037666 
  2450	032405	035 00 0 00 032401 		ERLOOP	.-4		;IF ERROR, LOOP TO .-4
  2451
  2452					;*CLEAR PAGE MAP
  2453
  2454	032406	402 00 0 00 000200 	MAPCK2:	SETZM	200
  2455	032407	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2456	032410	251 07 0 00 000417 		BLT	AC,417		;CLEAR ALL OF PAGE MAP
  2457	032411	7 010 20 0 00 020000 	MAPCK9:	CONO	PAG,LTRPEN
  2458	032412	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 42
DSKEAM	MAC	29-Mar-78 14:55		TEST MAP INSTRUCTION                                                               SEQ 0103

  2459					;*PERFORM 'MAP' OF ADDRESS 400000,
  2460					;*LOWEST EPMP PAGING ADDRESS.
  2461					;*SINCE PAGE MAP IS CLEAR
  2462					;*MAP READOUT SHOULD BE:
  2463					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2464
  2465	032413	200 14 0 00 037672 	MAPCK3:	MOVE	COR,[1000,,400000]
  2466	032414	257 13 0 00 400000 		MAP	ACT,400000
  2467	032415	312 14 0 00 000013 		CAME	COR,ACT
  2468						ERROR	MAPCK9,13,COR,ACT,MAP ADR 400000,PAGE MAP CLEAR^
  2469	032416	036 13 0 00 037701 
  2470	032417	035 00 0 00 032411 		ERLOOP	MAPCK9		;IF ERROR, LOOP TO MAPCK9
  2471
  2472					;*PERFORM 'MAP' OF ADDRESS 777000,
  2473					;*HIGHEST EPMP PAGING ADDRESS.
  2474					;*SINCE PAGE MAP IS CLEAR
  2475					;*MAP READOUT SHOULD BE:
  2476					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2477
  2478	032420	200 14 0 00 037704 	MAPCK4:	MOVE	COR,[1000,,777000]
  2479	032421	257 13 0 00 777000 		MAP	ACT,777000
  2480	032422	312 14 0 00 000013 		CAME	COR,ACT
  2481						ERROR	MAPCK9,13,COR,ACT,MAP ADR 777000,PAGE MAP CLEAR^
  2482	032423	036 13 0 00 037710 
  2483	032424	035 00 0 00 032411 		ERLOOP	MAPCK9		;IF ERROR, LOOP TO MAPCK9
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 43
DSKEAM	MAC	29-Mar-78 14:55		TEST MAP INSTRUCTION                                                               SEQ 0104

  2484					;*SETUP EPMP FOR ADDRESS 400000 WITH ALL BUT ACCESS.
  2485					;*MAP READOUT SHOULD BE:
  2486					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2487					;*IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD
  2488					;*SHOULD HAVE NO EFFECT.
  2489
  2490	032425	205 07 0 00 377777 	MAPCK5:	MOVSI	AC,377777
  2491	032426	202 07 0 00 000200 		MOVEM	AC,200		;SET PAGE MAP TO ALL BUT ACCESS
  2492	032427	200 14 0 00 037672 		MOVE	COR,[1000,,400000]
  2493	032430	257 13 0 00 400000 		MAP	ACT,400000
  2494	032431	312 14 0 00 000013 		CAME	COR,ACT
  2495						ERROR	MAPCK9,13,COR,ACT,MAP ADR 400000,ALL BUT ACCESS^
  2496	032432	036 13 0 00 037716 
  2497	032433	035 00 0 00 032411 		ERLOOP	MAPCK9		;IF ERROR, LOOP TO MAPCK9
  2498
  2499					;*SETUP EPMP FOR ADDRESS 777000 WITH ALL BUT ACCESS.
  2500					;*MAP READOUT SHOULD BE:
  2501					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2502					;*IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD
  2503					;*SHOULD HAVE NO EFFECT.
  2504
  2505	032434	201 07 0 00 377777 	MAPCK6:	MOVEI	AC,377777
  2506	032435	202 07 0 00 000377 		MOVEM	AC,377		;SET PAGE MAP TO ALL BUT ACCESS
  2507	032436	200 14 0 00 037704 		MOVE	COR,[1000,,777000]
  2508	032437	257 13 0 00 777000 		MAP	ACT,777000
  2509	032440	312 14 0 00 000013 		CAME	COR,ACT
  2510						ERROR	MAPCK9,13,COR,ACT,MAP ADR 777000,ALL BUT ACCESS^
  2511	032441	036 13 0 00 037721 
  2512	032442	035 00 0 00 032411 		ERLOOP	MAPCK9		;IF ERROR, LOOP TO MAPCK9
  2513
  2514	032443	367 15 0 00 032374 		REPTLP	MAPCK0+1
  2515
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 44
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE FAIL TRAPPING                                                            SEQ 0105

  2516					SUBTTL	TEST PAGE FAIL TRAPPING
  2517
  2518					SALL
  2519			037724		T=	SIXBTZ	PAGE FAIL TRAP TEST
  2520					LALL
  2521
  2522					;*DO A 'MOVE' FROM LOCATION 400000.
  2523					;*SINCE PAGE MAP IS CLEAR THIS SHOULD PAGE FAIL.
  2524
  2525						SUBTST^
  2526	032444	201 00 0 00 032444 		MOVEI	.
  2527	032445	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2528	032446	200 15 0 00 043737 	PFAIL0:	MOVE	REPT,RPEAT
  2529
  2530	032447	402 00 0 00 000200 		SETZM	200		;CLEAR EXEC PAGE MAP
  2531	032450	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2532	032451	251 07 0 00 000377 		BLT	AC,377
  2533
  2534	032452	7 004 20 0 00 001040 		CONO	PI,CHNOFF!PICHN2
  2535	032453	7 000 20 0 00 020402 		CONO	APR,LCNXER!LAPRP2
  2536	032454	476 00 0 00 000500 		SETOM	LEUPFW		;PRESET PAGE FAIL WORD
  2537	032455	476 00 0 00 000501 		SETOM	LPFWPC		;PRESET PAGE FAIL PC
  2538	032456	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  2539	032457	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2540	032460	201 07 0 00 032467 		MOVEI	AC,PFAIL1
  2541	032461	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP PAGE FAULT TRAP
  2542
  2543	032462	477 00 0 00 000013 		SETOB	0,ACT		;PRESET AC
  2544	032463	200 13 0 00 400000 		MOVE	ACT,400000	;MAKE PAGING REF, SHOULD FAULT
  2545						ERROR	PFAIL0+1,13,0,ACT,TRAP FAILED,REF TO 400000^
  2546												SALL
  2547	032464	036 13 0 00 037735 
  2548	032465	035 00 0 00 032447 		ERLOOP	PFAIL0+1		;IF ERROR, LOOP TO PFAIL0+1
  2549	032466	254 00 0 00 032504 		JRST	PFAIL2		;NO NEED TO CHECK PAGE FAIL WORD
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 45
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE FAIL TRAPPING                                                            SEQ 0106

  2550					;*PAGE FAULT TRAP SHOULD RETURN HERE
  2551
  2552	032467	476 00 0 00 000014 	PFAIL1:	SETOM	COR
  2553	032470	312 14 0 00 000013 		CAME	COR,ACT
  2554						ERROR	PFAIL0+1,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 400000^
  2555	032471	036 13 0 00 037744 
  2556	032472	035 00 0 00 032447 		ERLOOP	PFAIL0+1		;IF ERROR, LOOP TO PFAIL0+1
  2557	032473	200 13 0 00 000000 		MOVE	ACT,0
  2558	032474	312 14 0 00 000013 		CAME	COR,ACT
  2559						ERROR	PFAIL0+1,13,COR,ACT,PAGE FAIL STORED IN 0,REF TO 400000^
  2560	032475	036 13 0 00 037753 
  2561	032476	035 00 0 00 032447 		ERLOOP	PFAIL0+1		;IF ERROR, LOOP TO PFAIL0+1
  2562	032477	200 14 0 00 037672 		MOVE	COR,[1000,,400000]	;SETUP CORRECT WORD
  2563	032500	200 13 0 00 000500 		MOVE	ACT,LEUPFW	;GET PAGE FAIL WORD
  2564	032501	312 14 0 00 000013 		CAME	COR,ACT
  2565						ERROR	PFAIL0+1,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 400000^
  2566	032502	036 13 0 00 037762 
  2567	032503	035 00 0 00 032447 		ERLOOP	PFAIL0+1		;IF ERROR, LOOP TO PFAIL0+1
  2568
  2569					;*PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY
  2570
  2571	032504	7 000 30 0 00 000400 	PFAIL2:	CONSZ	APR,LNXMER
  2572						ERROR	PFAIL0+1,13,COR,ACT,NON-X-MEM,REF TO 400000^
  2573	032505	036 13 0 00 037767 
  2574	032506	035 00 0 00 032447 		ERLOOP	PFAIL0+1		;IF ERROR, LOOP TO PFAIL0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 46
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE FAIL TRAPPING                                                            SEQ 0107

  2575					;*CHECK PAGE FAIL WORD FOR MAXIMUM ADDRESS
  2576					;*DO A 'MOVE' FROM LOCATION 777777.
  2577
  2578	032507	7 000 20 0 00 020402 	PFAIL3:	CONO	APR,LCNXER!LAPRP2
  2579	032510	402 00 0 00 000500 		SETZM	LEUPFW		;PRESET PAGE FAIL WORD
  2580	032511	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  2581	032512	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2582	032513	201 07 0 00 032522 		MOVEI	AC,PFAIL4
  2583	032514	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP PAGE FAULT TRAP
  2584	032515	403 00 0 00 000013 		SETZB	0,ACT		;PRESET AC
  2585	032516	200 13 0 00 777777 		MOVE	ACT,777777	;MAKE PAGING REF, SHOULD FAULT
  2586						ERROR	PFAIL3,13,0,ACT,TRAP FAILED,REF TO 777777^
  2587	032517	036 13 0 00 037775 
  2588	032520	035 00 0 00 032507 		ERLOOP	PFAIL3		;IF ERROR, LOOP TO PFAIL3
  2589	032521	254 00 0 00 032537 		JRST	PFAIL5
  2590
  2591					;*PAGE FAULT TRAP SHOULD RETURN HERE
  2592
  2593	032522	402 00 0 00 000014 	PFAIL4:	SETZM	COR
  2594	032523	312 14 0 00 000013 		CAME	COR,ACT
  2595						ERROR	PFAIL3,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 777777^
  2596	032524	036 13 0 00 040000 
  2597	032525	035 00 0 00 032507 		ERLOOP	PFAIL3		;IF ERROR, LOOP TO PFAIL3
  2598	032526	200 13 0 00 000000 		MOVE	ACT,0
  2599	032527	312 14 0 00 000013 		CAME	COR,ACT
  2600						ERROR	PFAIL3,13,COR,ACT,PAGE FAIL STORED IN 0,REF TO 777777^
  2601	032530	036 13 0 00 040003 
  2602	032531	035 00 0 00 032507 		ERLOOP	PFAIL3		;IF ERROR, LOOP TO PFAIL3
  2603	032532	200 14 0 00 040006 		MOVE	COR,[1000,,777777]	;SETUP CORRECT WORD
  2604	032533	200 13 0 00 000500 		MOVE	ACT,LEUPFW	;GET PAGE FAIL WORD
  2605	032534	312 14 0 00 000013 		CAME	COR,ACT
  2606						ERROR	PFAIL3,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 777777^
  2607	032535	036 13 0 00 040007 
  2608	032536	035 00 0 00 032507 		ERLOOP	PFAIL3		;IF ERROR, LOOP TO PFAIL3
  2609
  2610					;*PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY
  2611
  2612	032537	7 000 30 0 00 000400 	PFAIL5:	CONSZ	APR,LNXMER
  2613						ERROR	PFAIL3,13,COR,ACT,NON-X-MEM,REF TO 777777^
  2614	032540	036 13 0 00 040012 
  2615	032541	035 00 0 00 032507 		ERLOOP	PFAIL3		;IF ERROR, LOOP TO PFAIL3
  2616
  2617					;*RESET PAGE FAULT TRAP
  2618
  2619	032542	200 07 0 00 043736 	PFAIL6:	MOVE	AC,PGFAIL
  2620	032543	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  2621	032544	7 000 20 0 00 020402 		CONO	APR,LCNXER!LAPRP2
  2622	032545	7 004 20 0 00 002040 		CONO	PI,LCHNON!LPICH2	;RE-ENABLE INTERRUPTS
  2623
  2624	032546	367 15 0 00 032447 		REPTLP	PFAIL0+1
  2625						XLIST
  2626					LIST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 52
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC-PER-PROCESS MAPPING                                                      SEQ 0108

  2627					SUBTTL	TEST EXEC-PER-PROCESS MAPPING
  2628
  2629					SALL
  2630			040015		T=	SIXBTZ	EXEC-PER-PROCESS MAP TEST
  2631					LALL
  2632
  2633						SUBTST^
  2634	032547	201 00 0 00 032547 		MOVEI	.
  2635	032550	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2636	032551	200 15 0 00 043737 	EPPM0:	MOVE	REPT,RPEAT
  2637	032552	402 00 0 00 000200 		SETZM	200		;CLEAR ALL OF PAGE MAP
  2638	032553	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2639	032554	251 07 0 00 000417 		BLT	AC,417
  2640	032555	7 010 20 0 00 020000 	EPPM9:	CONO	PAG,LTRPEN
  2641	032556	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2642
  2643					;*PERFORM 'MAP' OF ADDRESS 340000
  2644					;*LOWEST UPMP EXEC-PER-PROCESS ADDRESS.
  2645					;*SINCE PAGE MAP IS CLEAR
  2646					;*MAP READOUT SHOULD BE:
  2647					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2648
  2649	032557	200 14 0 00 040022 	EPPM1:	MOVE	COR,[1000,,340000]
  2650	032560	257 13 0 00 340000 		MAP	ACT,340000
  2651	032561	312 14 0 00 000013 		CAME	COR,ACT
  2652						ERROR	EPPM9,13,COR,ACT,MAP ADR 340000,PAGE MAP CLEAR^
  2653												SALL
  2654	032562	036 13 0 00 040026 
  2655	032563	035 00 0 00 032555 		ERLOOP	EPPM9		;IF ERROR, LOOP TO EPPM9
  2656
  2657					;*PERFORM 'MAP' OF ADDRESS 377000
  2658					;*HIGHEST UPMP EXEC-PER-PROCESS ADDRESS.
  2659					;*SINCE PAGE MAP IS CLEAR
  2660					;*MAP READOUT SHOULD BE:
  2661					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2662
  2663	032564	200 14 0 00 040031 	EPPM2:	MOVE	COR,[1000,,377000]
  2664	032565	257 13 0 00 377000 		MAP	ACT,377000
  2665	032566	312 14 0 00 000013 		CAME	COR,ACT
  2666						ERROR	EPPM9,13,COR,ACT,MAP ADR 377000,PAGE MAP CLEAR^
  2667	032567	036 13 0 00 040035 
  2668	032570	035 00 0 00 032555 		ERLOOP	EPPM9		;IF ERROR, LOOP TO EPPM9
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 53
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC-PER-PROCESS MAPPING                                                      SEQ 0109

  2669					;*SETUP UPMP FOR ADDRESS 340000 WITH ALL BUT ACCESS.
  2670					;*MAP READOUT SHOULD BE:
  2671					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2672
  2673	032571	205 07 0 00 377777 	EPPM3:	MOVSI	AC,377777
  2674	032572	202 07 0 00 000400 		MOVEM	AC,400
  2675	032573	200 14 0 00 040022 		MOVE	COR,[1000,,340000]
  2676	032574	257 13 0 00 340000 		MAP	ACT,340000
  2677	032575	312 14 0 00 000013 		CAME	COR,ACT
  2678						ERROR	EPPM9,13,COR,ACT,MAP ADR 340000,ALL BUT ACCESS^
  2679	032576	036 13 0 00 040040 
  2680	032577	035 00 0 00 032555 		ERLOOP	EPPM9		;IF ERROR, LOOP TO EPPM9
  2681
  2682					;*SETUP UPMP FOR ADDRESS 377000 WITH ALL BUT ACCESS
  2683					;*MAP READOUT SHOULD BE:
  2684					;*PAGE FAIL, PAGING MEMORY NO MATCH.
  2685
  2686	032600	201 07 0 00 377777 	EPPM4:	MOVEI	AC,377777
  2687	032601	202 07 0 00 000417 		MOVEM	AC,417
  2688	032602	200 14 0 00 040031 		MOVE	COR,[1000,,377000]
  2689	032603	257 13 0 00 377000 		MAP	ACT,377000
  2690	032604	312 14 0 00 000013 		CAME	COR,ACT
  2691						ERROR	EPPM9,13,COR,ACT,MAP ADR 377000,ALL BUT ACCESS^
  2692	032605	036 13 0 00 040043 
  2693	032606	035 00 0 00 032555 		ERLOOP	EPPM9		;IF ERROR, LOOP TO EPPM9
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 54
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC-PER-PROCESS MAPPING                                                      SEQ 0110

  2694	032607	201 07 0 00 740000 	EPPM5:	MOVEI	AC,740000
  2695	032610	202 07 0 00 000417 		MOVEM	AC,417		;SETUP P-P MAP FOR PAGE 377
  2696	032611	205 07 0 00 757777 		MOVSI	AC,757777
  2697	032612	202 07 0 00 000400 		MOVEM	AC,400		;SETUP P-P MAP FOR PAGE 340
  2698
  2699					;*UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 377 WITH
  2700					;*ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 0.
  2701					;*'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP'
  2702					;*SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA
  2703					;*FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY
  2704					;*WITH PAGE ADDRESS 377.
  2705					;*THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT'
  2706					;*BY THE MAP INSTRUCTION.
  2707					;*READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG')
  2708					;*SHOULD BE:
  2709					;*PAGE 377',EXEC MEMORY SPACE, RELOAD COUNTER.
  2710
  2711	032613	7 010 20 0 00 020000 	EPPM6:	CONO	PAG,LTRPEN		;CLEAR RELOAD CNTR
  2712	032614	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2713	032615	200 14 0 00 037654 		MOVE	COR,[161000,,0]
  2714	032616	257 13 0 00 377000 		MAP	ACT,377000	;'MAP'
  2715	032617	312 14 0 00 000013 		CAME	COR,ACT
  2716						ERROR	EPPM6,13,COR,ACT,MAP READOUT FAILURE,MAP ADR 377000^
  2717	032620	036 13 0 00 040052 
  2718	032621	035 00 0 00 032613 		ERLOOP	EPPM6		;IF ERROR, LOOP TO EPPM6
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 55
DSKEAM	MAC	29-Mar-78 14:55		TEST EXEC-PER-PROCESS MAPPING                                                      SEQ 0111

  2719					;*UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 340 WITH
  2720					;*ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 03777.
  2721					;*'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP'
  2722					;*SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA
  2723					;*FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY
  2724					;*WITH PAGE ADDRESS 340.
  2725					;*THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT'
  2726					;*BY THE MAP INSTRUCTION.
  2727					;*READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG')
  2728					;*SHOULD BE:
  2729					;*PAGE 340',EXEC MEMORY SPACE, RELOAD COUNTER.
  2730
  2731	032622	7 010 20 0 00 020000 	EPPM7:	CONO	PAG,LTRPEN
  2732	032623	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2733	032624	200 14 0 00 040055 		MOVE	COR,[161003,,777000]
  2734	032625	257 13 0 00 340000 		MAP	ACT,340000	;'MAP'
  2735	032626	312 14 0 00 000013 		CAME	COR,ACT
  2736						ERROR	EPPM7,13,COR,ACT,MAP READOUT FAILURE,MAP ADR 340000^
  2737	032627	036 13 0 00 040056 
  2738	032630	035 00 0 00 032622 		ERLOOP	EPPM7		;IF ERROR, LOOP TO EPPM7
  2739
  2740	032631	367 15 0 00 032552 		REPTLP	EPPM0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 56
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGING AND SCRATCHPAD MEMORIES                                                SEQ 0112

  2741					SUBTTL	TEST PAGING AND SCRATCHPAD MEMORIES
  2742
  2743					;*PAGE MAP IS SETUP FOR 42 PAGES WITH DATA THAT PRODUCES
  2744					;*FLOATING BIT PATTERNS IN BOTH THE PAGING MEMORY
  2745					;*AND THE SCRATCHPAD MEMORY TO CHECK REGISTER AND BIT INTERACTION.
  2746					;*ALL PAGING ADDRESSES ARE SETUP SO PAGING MUST REFILL ON EVERY
  2747					;*OPERATION.  THIS SHOULD VERIFY THAT THE PAGING REFILL OPERATION
  2748					;*AND THE PAGING AND SCRATCHPAD REGISTERS ARE OPERATIONAL.
  2749
  2750					SALL
  2751			040061		T=	SIXBTZ	FLOATING BIT TEST
  2752					LALL
  2753
  2754						SUBTST^
  2755	032632	201 00 0 00 032632 		MOVEI	.
  2756	032633	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2757	032634	200 15 0 00 043737 	AMTST4:	MOVE	REPT,RPEAT
  2758	032635	402 00 0 00 000200 		SETZM	200		;CLEAR PAGE MAP
  2759	032636	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2760	032637	251 07 0 00 000417 		BLT	AC,417
  2761
  2762	032640	205 05 0 00 777726 	AMTST5:	MOVSI	INDX,-^D42	;SETUP PAGE MAP FOR
  2763	032641	200 07 0 05 035464 		MOVE	AC,AMTAB1(INDX)	;42 PAGES WITH DATA
  2764	032642	550 10 0 00 000007 		HRRZ	AC1,AC		;THAT PRODUCES FLOATING
  2765	032643	242 10 0 00 777777 		LSH	AC1,-1		;BIT PATTERNS TO TEST
  2766	032644	305 10 0 00 000200 		CAIGE	AC1,200		;PAGING AND SCRATCHPAD
  2767	032645	271 10 0 00 000220 		ADDI	AC1,220		;MEMORIES.
  2768	032646	606 07 0 00 000001 		TRNN	AC,1
  2769	032647	502 07 0 10 000000 		HLLM	AC,(AC1)
  2770	032650	602 07 0 00 000001 		TRNE	AC,1
  2771	032651	546 07 0 10 000000 		HLRM	AC,(AC1)
  2772	032652	253 05 0 00 032641 		AOBJN	INDX,AMTST5+1
  2773
  2774	032653	201 06 0 00 000144 		MOVEI	CNTR,^D100	;CYCLE FLT BITS FOR 100 PASSES
  2775	032654	205 05 0 00 777726 		MOVSI	INDX,-^D42	;SETUP FOR 42 PAGING REF'S
  2776	032655	201 11 0 00 000040 		MOVEI	AC2,^D32
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 57
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGING AND SCRATCHPAD MEMORIES                                                SEQ 0113

  2777	032656	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  2778	032657	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2779	032660	554 14 0 05 035464 	AMTST6:	HLRZ	COR,AMTAB1(INDX)	;SETUP FOR MAP READOUT
  2780	032661	242 14 0 00 000011 		LSH	COR,^D9
  2781	032662	621 14 0 00 000014 		TLZ	COR,14		;ONLY 11 BITS OF RELOCATION
  2782	032663	661 14 0 00 001000 		TLO	COR,1000	;SET PAGED REF BIT
  2783	032664	623 14 0 00 000400 		TLZE	COR,400		;ACCESS
  2784	032665	661 14 0 00 100000 		TLO	COR,100000
  2785	032666	621 14 0 00 000200 		TLZ	COR,200		;NO PUBLIC
  2786	032667	623 14 0 00 000100 		TLZE	COR,100		;WRITABLE
  2787	032670	661 14 0 00 040000 		TLO	COR,40000
  2788	032671	623 14 0 00 000040 		TLZE	COR,40		;SOFTWARE
  2789	032672	661 14 0 00 020000 		TLO	COR,20000
  2790	032673	623 14 0 00 000020 		TLZE	COR,20		;CACHE
  2791	032674	661 14 0 00 002000 		TLO	COR,2000
  2792	032675	550 07 0 05 035464 		HRRZ	AC,AMTAB1(INDX)	;SETUP MAPPING ADDRESS
  2793	032676	242 07 0 00 000011 		LSH	AC,^D9
  2794	032677	257 13 0 07 000000 		MAP	ACT,(AC)	;'MAP'
  2795	032700	312 14 0 00 000013 		CAME	COR,ACT
  2796						ERROR	AMTST6-2,13,COR,ACT,MAP READOUT FAILURE,,AMTSTX^
  2797												SALL
  2798	032701	036 13 0 00 040064 
  2799	032702	035 00 0 00 032656 		ERLOOP	AMTST6-2		;IF ERROR, LOOP TO AMTST6-2
  2800
  2801	032703	253 05 0 00 032660 		AOBJN	INDX,AMTST6	;DO 42 DIF REF
  2802
  2803	032704	365 06 0 00 032654 		SOJGE	CNTR,AMTST6-4	;CYCLE MEMORIES, ETC.
  2804
  2805	032705	367 15 0 00 032635 		REPTLP	AMTST4+1
  2806	032706	254 00 0 00 032714 		JRST	AMTST7-2
  2807
  2808	032707	037 02 0 00 040067 	AMTSTX:	PSIXM	SIXBTZ	<REF TO >^	[SIXBIT\REF TO _\]^
  2809	032710	200 00 0 00 000007 		MOVE	AC
  2810	032711	037 06 0 00 000000 		PNT6
  2811	032712	037 00 0 00 030242 		PCRL
  2812	032713	263 17 0 00 000000 		RTN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 58
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGING AND SCRATCHPAD MEMORIES                                                SEQ 0114

  2813					;*CLEAR PAGING MEMORY AND PAGE MAP
  2814					;*CHECK THAT ALL PREVIOUS REFERENCES TRAP
  2815					;*SHOULD IF AM IS REALLY CLEAR
  2816
  2817					SALL
  2818			040071		T=	SIXBTZ	TRAP TEST
  2819					LALL
  2820
  2821						SUBTST^
  2822	032714	201 00 0 00 032714 		MOVEI	.
  2823	032715	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2824	032716	201 15 0 00 000001 	AMTST7:	MOVEI	REPT,1
  2825	032717	402 00 0 00 000200 		SETZM	200		;DO ONCE ONLY
  2826	032720	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2827	032721	251 07 0 00 000417 		BLT	AC,417		;CLEAR PAGE MAP
  2828	032722	200 07 0 00 030024 		MOVE	AC,ITRCNT
  2829	032723	602 07 0 00 000001 		TRNE	AC,1		;ALTERNATE CLEARING AM
  2830	032724	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  2831	032725	606 07 0 00 000001 		TRNN	AC,1
  2832	032726	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2833	032727	205 05 0 00 777726 		MOVSI	INDX,-^D42
  2834	032730	201 07 0 00 032741 		MOVEI	AC,AMTST9
  2835	032731	202 07 0 00 000502 		MOVEM	AC,LPGFTR		;SETUP FOR PAGE TRAP
  2836
  2837	032732	550 14 0 05 035464 	AMTST8:	HRRZ	COR,AMTAB1(INDX)	;SETUP REFERANCE ADDRESS
  2838	032733	242 14 0 00 000011 		LSH	COR,^D9
  2839	032734	477 00 0 00 000013 		SETOB	0,ACT
  2840	032735	200 13 0 14 000000 		MOVE	ACT,(COR)		;SHOULD FAIL
  2841						ERROR	AMTST8,13,COR,ACT,TRAP FAILED,<REF TO (CORRECT)>^
  2842												SALL
  2843	032736	036 13 0 00 040076 
  2844	032737	035 00 0 00 032732 		ERLOOP	AMTST8		;IF ERROR, LOOP TO AMTST8
  2845	032740	254 00 0 00 032760 		JRST	AMTSTA
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 59
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGING AND SCRATCHPAD MEMORIES                                                SEQ 0115

  2846	032741	476 00 0 00 000014 	AMTST9:	SETOM	COR
  2847	032742	312 14 0 00 000013 		CAME	COR,ACT
  2848						ERROR	AMTST7,13,COR,ACT,PAGE FAIL STORED IN AC,^
  2849	032743	036 13 0 00 040101 
  2850	032744	035 00 0 00 032716 		ERLOOP	AMTST7		;IF ERROR, LOOP TO AMTST7
  2851	032745	200 13 0 00 000000 		MOVE	ACT,0
  2852	032746	312 14 0 00 000013 		CAME	COR,ACT
  2853						ERROR	AMTST7,13,COR,ACT,PAGE FAIL STORED IN 0,^
  2854	032747	036 13 0 00 040104 
  2855	032750	035 00 0 00 032716 		ERLOOP	AMTST7		;IF ERROR, LOOP TO AMTST7
  2856	032751	550 14 0 05 035464 		HRRZ	COR,AMTAB1(INDX)	;SETUP CORRECT PAGE FAIL WORD
  2857	032752	242 14 0 00 000011 		LSH	COR,^D9
  2858	032753	661 14 0 00 001000 		TLO	COR,1000		;SET PAGED REF BIT
  2859	032754	200 13 0 00 000500 		MOVE	ACT,LEUPFW		;GET PAGE FAIL WORD
  2860	032755	312 14 0 00 000013 		CAME	COR,ACT
  2861						ERROR	AMTST7,13,COR,ACT,PAGE FAIL WORD WRONG,^
  2862	032756	036 13 0 00 040107 
  2863	032757	035 00 0 00 032716 		ERLOOP	AMTST7		;IF ERROR, LOOP TO AMTST7
  2864
  2865	032760	253 05 0 00 032732 	AMTSTA:	AOBJN	INDX,AMTST8
  2866
  2867	032761	367 15 0 00 032717 		REPTLP	AMTST7+1
  2868
  2869	032762	200 07 0 00 043736 		MOVE	AC,PGFAIL		;RESET PAGE FAULT TRAP
  2870	032763	202 07 0 00 000502 		MOVEM	AC,LPGFTR
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 60
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA READ                                                               SEQ 0116

  2871					SUBTTL	TEST PAGED DATA READ
  2872
  2873					;*USING PAGING ADDRESSES 400XXX AND 777XXX
  2874
  2875					SALL
  2876			040112		T=	SIXBTZ	PAGED DATA READ TEST
  2877					LALL
  2878
  2879						SUBTST^
  2880	032764	201 00 0 00 032764 		MOVEI	.
  2881	032765	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2882	032766	200 15 0 00 043737 	PAGRDA:	MOVE	REPT,RPEAT
  2883	032767	402 00 0 00 000200 		SETZM	200		;CLEAR AND SETUP PAGE MAP
  2884	032770	200 07 0 00 037671 		MOVE	AC,[200,,201]
  2885	032771	251 07 0 00 000417 		BLT	AC,417
  2886	032772	205 07 0 00 740033 		MOVSI	AC,740000!<PGR400_-^D9>
  2887	032773	202 07 0 00 000200 		MOVEM	AC,200
  2888	032774	201 07 0 00 740033 		MOVEI	AC,740000!<PGR777_-^D9>
  2889	032775	202 07 0 00 000377 		MOVEM	AC,377
  2890
  2891					;*TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING.
  2892					;*'E' = PAGE 400 (HIGH ORDER 9 BITS),
  2893					;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR400' ADDRESS.
  2894					;*PAGE MAP RELOCATION BITS SETUP FOR
  2895					;*HIGH ORDER 9 BITS OF 'PGR400' ADDRESS.
  2896					;*THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS:
  2897					;*HIGH ORDER 9 BITS FROM PAGE MAP AND
  2898					;*LOW ORDER 9 BITS OF 'PGR400' ADDRESS.
  2899
  2900	032776	7 010 20 0 00 020000 	PAGRDB:	CONO	PAG,LTRPEN		;CLEAR MEMORIES, ETC.
  2901	032777	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2902	033000	200 14 0 00 033014 		MOVE	COR,PGR400
  2903	033001	200 13 0 00 400014 		MOVE	ACT,400000!<PGR400&777>	;MAKE PAGED READ
  2904	033002	312 14 0 00 000013 		CAME	COR,ACT
  2905						ERROR	PAGRDB,13,COR,ACT,DATA ERROR,ADR 400XXX^
  2906												SALL
  2907	033003	036 13 0 00 040122 
  2908	033004	035 00 0 00 032776 		ERLOOP	PAGRDB		;IF ERROR, LOOP TO PAGRDB
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 61
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA READ                                                               SEQ 0117

  2909					;*TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING.
  2910					;*'E' = PAGE 777 (HIGH ORDER 9 BITS),
  2911					;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR777' ADDRESS.
  2912					;*PAGE MAP RELOCATION BITS SETUP FOR
  2913					;*HIGH ORDER 9 BITS OF 'PGR777' ADDRESS.
  2914					;*THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS:
  2915					;*HIGH ORDER 9 BITS FROM PAGE MAP AND
  2916					;*LOW ORDER 9 BITS OF 'PGR777' ADDRESS.
  2917
  2918	033005	200 14 0 00 033015 	PAGRDC:	MOVE	COR,PGR777
  2919	033006	200 13 0 00 400015 		MOVE	ACT,400000!<PGR777&777>	;MAKE PAGED READ
  2920	033007	312 14 0 00 000013 		CAME	COR,ACT
  2921						ERROR1	13,COR,ACT,DATA ERROR,ADR 777XXX^
  2922	033010	036 13 0 00 040127 
  2923	033011	035 00 0 00 033005 		ERLOOP	.-4
  2924
  2925	033012	367 15 0 00 032767 		REPTLP	PAGRDA+1
  2926
  2927	033013	254 00 0 00 033016 		JRST	PAGRD0-2
  2928
  2929	033014	377777	400000		PGR400:	377777,,400000		;DATA FOR PAGE 400
  2930	033015	000777	777000		PGR777:	000777,,777000		;DATA FOR PAGE 777
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 62
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA READ                                                               SEQ 0118

  2931					;*TEST READ OF DATA FROM A DATA BLOCK
  2932					;*USING PAGED REFERENCES THAT POINT TO
  2933					;*CONSECUTIVE DATA WORDS IN AN EXEC UNPAGED
  2934					;*MEMORY AREA.
  2935					;*DATA CONSISTS OF COMPLEMENT OF AND
  2936					;*PAGING REFERENCE ADDRESS.
  2937
  2938						SUBTST^
  2939	033016	201 00 0 00 033016 		MOVEI	.
  2940	033017	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  2941	033020	200 15 0 00 043737 	PAGRD0:	MOVE	REPT,RPEAT
  2942	033021	221 15 0 00 000012 		IMULI	REPT,^D10		;FSTCYL=10 PASSES, REL=100 PASSES
  2943	033022	205 05 0 00 777340 		MOVSI	INDX,-440		;340-777=440 PAGES
  2944	033023	201 07 0 00 000340 		MOVEI	AC,340			;SETUP FOR FIRST PAGING ADDRESS
  2945
  2946	033024	200 10 0 00 000007 	PAGRD1:	MOVE	AC1,AC		;SETUP DATA WORD
  2947	033025	242 10 0 00 000011 		LSH	AC1,^D9		;COMPL ADR,,PAGED ADR
  2948	033026	661 10 0 00 777777 		TLO	AC1,-1
  2949	033027	621 10 0 10 000000 		TLZ	AC1,(AC1)
  2950	033030	202 10 0 05 043742 		MOVEM	AC1,PGRDTB(INDX)
  2951	033031	602 07 0 00 000001 		TRNE	AC,1
  2952	033032	254 00 0 00 033050 		JRST	PAGRD2
  2953	033033	201 11 0 05 043742 		MOVEI	AC2,PGRDTB(INDX)
  2954	033034	242 11 0 00 777767 		LSH	AC2,-^D9	;SETUP PAGE MAP FOR EVEN HI-ORDER
  2955	033035	271 11 0 00 740000 		ADDI	AC2,740000	;INCLUDE ACCESS, ETC.
  2956	033036	504 12 0 00 000011 		HRL	AC3,AC2
  2957	033037	201 11 0 05 043743 		MOVEI	AC2,PGRDTB+1(INDX)
  2958	033040	242 11 0 00 777767 		LSH	AC2,-^D9	;SETUP PAGE MAP FOR ODD HI-ORDER
  2959	033041	271 11 0 00 740000 		ADDI	AC2,740000	;INCLUDE ACCESS, ETC.
  2960	033042	540 12 0 00 000011 		HRR	AC3,AC2
  2961	033043	550 10 0 00 000007 		HRRZ	AC1,AC		;SETUP PAGE MAP
  2962	033044	242 10 0 00 777777 		LSH	AC1,-1
  2963	033045	305 10 0 00 000200 		CAIGE	AC1,200
  2964	033046	271 10 0 00 000220 		ADDI	AC1,220
  2965	033047	202 12 0 10 000000 		MOVEM	AC3,(AC1)	;MOVE RELOCATION DATA TO PAGE MAP
  2966	033050	350 00 0 00 000007 	PAGRD2:	AOS	AC
  2967	033051	253 05 0 00 033024 		AOBJN	INDX,PAGRD1
  2968
  2969	033052	7 010 20 0 00 020000 	PAGRD3:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  2970	033053	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  2971	033054	205 05 0 00 777340 		MOVSI	INDX,-440
  2972	033055	201 07 0 00 000340 		MOVEI	AC,340
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 63
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA READ                                                               SEQ 0119

  2973	033056	200 14 0 00 000007 	PAGRD4:	MOVE	COR,AC		;SETUP CORRECT RESULTS
  2974	033057	242 14 0 00 000011 		LSH	COR,^D9
  2975	033060	661 14 0 00 777777 		TLO	COR,-1
  2976	033061	621 14 0 14 000000 		TLZ	COR,(COR)
  2977	033062	201 10 0 05 043742 		MOVEI	AC1,PGRDTB(INDX)	;SETUP PAGING ADDRESS
  2978	033063	405 10 0 00 000777 		ANDI	AC1,777
  2979	033064	271 10 0 14 000000 		ADDI	AC1,(COR)
  2980	033065	200 13 0 10 000000 		MOVE	ACT,(AC1)	;MAKE PAGED MEMORY READ
  2981	033066	312 14 0 00 000013 		CAME	COR,ACT		;ADDRESSES GO FROM 340XXX TO 777XXX
  2982						ERROR	PAGRD4,13,COR,ACT,DATA ERROR,INC PAGING ADR'S,PAGRDX^
  2983	033067	036 13 0 00 040135 
  2984	033070	035 00 0 00 033056 		ERLOOP	PAGRD4		;IF ERROR, LOOP TO PAGRD4
  2985	033071	350 00 0 00 000007 		AOS	AC		;INCREMENT PAGING ADDRESS
  2986	033072	253 05 0 00 033056 		AOBJN	INDX,PAGRD4
  2987
  2988	033073	205 05 0 00 777340 	PAGRD5:	MOVSI	INDX,-440
  2989	033074	201 07 0 00 000777 		MOVEI	AC,777
  2990
  2991	033075	200 14 0 00 000007 		MOVE	COR,AC		;MAKE REVERSE PAGED MEMORY READ
  2992	033076	242 14 0 00 000011 		LSH	COR,^D9		;ADDRESSES GO FROM 777XXX TO 340XXX
  2993	033077	661 14 0 00 777777 		TLO	COR,-1
  2994	033100	621 14 0 14 000000 		TLZ	COR,(COR)
  2995	033101	201 10 0 00 044401 		MOVEI	AC1,PGRDTB+437
  2996	033102	275 10 0 05 000000 		SUBI	AC1,(INDX)
  2997	033103	405 10 0 00 000777 		ANDI	AC1,777
  2998	033104	271 10 0 14 000000 		ADDI	AC1,(COR)
  2999	033105	200 13 0 10 000000 		MOVE	ACT,(AC1)
  3000	033106	312 14 0 00 000013 		CAME	COR,ACT
  3001						ERROR	PAGRD5+2,13,COR,ACT,DATA ERROR,REVERSE READ,PAGRDX^
  3002	033107	036 13 0 00 040143 
  3003	033110	035 00 0 00 033075 		ERLOOP	PAGRD5+2		;IF ERROR, LOOP TO PAGRD5+2
  3004	033111	370 00 0 00 000007 		SOS	AC
  3005	033112	253 05 0 00 033075 		AOBJN	INDX,PAGRD5+2
  3006
  3007	033113	367 15 0 00 033052 		REPTLP	PAGRD3
  3008	033114	254 00 0 00 033122 		JRST	PGWRTA-2
  3009
  3010	033115	037 02 0 00 040067 	PAGRDX:	PSIXM	SIXBTZ	<REF TO >^	[SIXBIT\REF TO _\]^
  3011	033116	200 00 0 00 000010 		MOVE	AC1
  3012	033117	037 06 0 00 000000 		PNT6
  3013	033120	037 00 0 00 030242 		PCRL
  3014	033121	263 17 0 00 000000 		RTN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 64
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0120

  3015					SUBTTL	TEST PAGED DATA WRITE
  3016
  3017					;*USING PAGING ADDRESS 400XXX AND 777XXX
  3018					;*PAGING REFERENCES POINT TO EXEC UNPAGED ADDRESSES.
  3019
  3020					SALL
  3021			040146		T=	SIXBTZ	PAGED DATA WRITE TEST
  3022					LALL
  3023
  3024						SUBTST^
  3025	033122	201 00 0 00 033122 		MOVEI	.
  3026	033123	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3027	033124	200 15 0 00 043737 	PGWRTA:	MOVE	REPT,RPEAT
  3028	033125	402 00 0 00 000200 		SETZM	200		;CLEAR AND SETUP PAGE MAP
  3029	033126	200 07 0 00 037671 		MOVE	AC,[200,,201]
  3030	033127	251 07 0 00 000417 		BLT	AC,417
  3031	033130	205 07 0 00 740033 		MOVSI	AC,740000!<PGW400_-^D9>
  3032	033131	202 07 0 00 000200 		MOVEM	AC,200
  3033	033132	201 07 0 00 740033 		MOVEI	AC,740000!<PGW777_-^D9>
  3034	033133	202 07 0 00 000377 		MOVEM	AC,377
  3035
  3036					;*TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING.
  3037					;*'E' = PAGE 400 (HIGH ORDER 9 BITS),
  3038					;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW400' ADDRESS.
  3039					;*PAGE MAP RELOCATION BITS SETUP FOR
  3040					;*HIGH ORDER 9 BITS OF 'PGW400' ADDRESS.
  3041					;*THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS:
  3042					;*HIGH ORDER 9 BITS FROM PAGE MAP AND
  3043					;*LOW ORDER 9 BITS OF 'PGW400' ADDRESS.
  3044
  3045	033134	7 010 20 0 00 020000 	PGWTBB:	CONO	PAG,LTRPEN		;CLEAR MEMORIES, ETC.
  3046	033135	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3047	033136	402 00 0 00 033170 		SETZM	PGW400
  3048	033137	200 14 0 00 040152 		MOVE	COR,[377000,,400777]
  3049	033140	202 14 0 00 400170 		MOVEM	COR,400000!<PGW400&777>	;MAKE PAGED WRITE
  3050	033141	476 00 0 00 000013 		SETOM	ACT
  3051	033142	200 13 0 00 400170 		MOVE	ACT,400000!<PGW400&777>	;PAGED REREAD VERIFY
  3052	033143	312 14 0 00 000013 		CAME	COR,ACT
  3053						ERROR	PGWTBB,13,COR,ACT,PAGED REREAD,ADR 400XXX^
  3054												SALL
  3055	033144	036 13 0 00 040156 
  3056	033145	035 00 0 00 033134 		ERLOOP	PGWTBB		;IF ERROR, LOOP TO PGWTBB
  3057	033146	200 13 0 00 033170 		MOVE	ACT,PGW400		;DIRECT REREAD VERIFY
  3058	033147	312 14 0 00 000013 		CAME	COR,ACT
  3059						ERROR	PGWTBB,13,COR,ACT,DIRECT REREAD,ADR 400XXX^
  3060	033150	036 13 0 00 040164 
  3061	033151	035 00 0 00 033134 		ERLOOP	PGWTBB		;IF ERROR, LOOP TO PGWTBB
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 65
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0121

  3062					;*TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING.
  3063					;*'E' = PAGE 777 (HIGH ORDER 9 BITS),
  3064					;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW777' ADDRESS.
  3065					;*PAGE MAP RELOCATION BITS SETUP FOR
  3066					;*HIGH ORDER 9 BITS OF 'PGW777' ADDRESS.
  3067					;*THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS:
  3068					;*HIGH ORDER 9 BITS FROM PAGE MAP AND
  3069					;*LOW ORDER 9 BITS OF 'PGW777' ADDRESS.
  3070
  3071	033152	402 00 0 00 033171 	PGWRTC:	SETZM	PGW777
  3072	033153	200 14 0 00 040167 		MOVE	COR,[000777,,777000]
  3073	033154	202 14 0 00 777171 		MOVEM	COR,777000!<PGW777&777>	;MAKE PAGED WRITE
  3074	033155	476 00 0 00 000013 		SETOM	ACT
  3075	033156	200 13 0 00 777171 		MOVE	ACT,777000!<PGW777&777>	;PAGED REREAD VERIFY
  3076	033157	312 14 0 00 000013 		CAME	COR,ACT
  3077						ERROR	PGWRTC,13,COR,ACT,PAGED REREAD,ADR 777XXX^
  3078	033160	036 13 0 00 040170 
  3079	033161	035 00 0 00 033152 		ERLOOP	PGWRTC		;IF ERROR, LOOP TO PGWRTC
  3080	033162	200 13 0 00 033171 		MOVE	ACT,PGW777		;DIRECT REREAD VERIFY
  3081	033163	312 14 0 00 000013 		CAME	COR,ACT
  3082						ERROR	PGWRTC,13,COR,ACT,DIRECT REREAD,ADR 777XXX^
  3083	033164	036 13 0 00 040173 
  3084	033165	035 00 0 00 033152 		ERLOOP	PGWRTC		;IF ERROR, LOOP TO PGWRTC
  3085
  3086	033166	367 15 0 00 033125 		REPTLP	PGWRTA+1
  3087
  3088	033167	254 00 0 00 033172 		JRST	PGWRT0-2
  3089
  3090	033170	000000	000000		PGW400:	0			;PAGE 400 STORAGE LOCATION
  3091	033171	000000	000000		PGW777:	0			;PAGE 777 STORAGE LOCATION
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 66
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0122

  3092					;*TEST WRITE OF DATA USING PAGED ADDRESS.
  3093					;*DATA IS WRITTEN INTO CONSECUTIVE DATA WORDS
  3094					;*IN AN EXEC UNPAGED DATA AREA.
  3095					;*DATA CONSISTS OF PAGED ADR AND COMPLEMENT OF PAGED ADDRESS.
  3096
  3097						SUBTST^
  3098	033172	201 00 0 00 033172 		MOVEI	.
  3099	033173	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3100	033174	200 15 0 00 043737 	PGWRT0:	MOVE	REPT,RPEAT
  3101	033175	221 15 0 00 000012 		IMULI	REPT,^D10	;FSTCYL=10 PASSES, REL=100 PASSES
  3102	033176	205 05 0 00 777560 		MOVSI	INDX,-440/2
  3103	033177	201 07 0 00 000340 		MOVEI	AC,340
  3104
  3105	033200	201 11 0 05 043742 	PGWRT1:	MOVEI	AC2,PGWRTB(INDX)
  3106	033201	242 11 0 00 777767 		LSH	AC2,-^D9
  3107	033202	271 11 0 00 740000 		ADDI	AC2,740000
  3108	033203	504 12 0 00 000011 		HRL	AC3,AC2
  3109	033204	201 11 0 05 043743 		MOVEI	AC2,PGWRTB+1(INDX)
  3110	033205	242 11 0 00 777767 		LSH	AC2,-^D9
  3111	033206	271 11 0 00 740000 		ADDI	AC2,740000
  3112	033207	540 12 0 00 000011 		HRR	AC3,AC2
  3113	033210	550 10 0 00 000007 		HRRZ	AC1,AC		;SETUP PAGE MAP
  3114	033211	242 10 0 00 777777 		LSH	AC1,-1
  3115	033212	305 10 0 00 000200 		CAIGE	AC1,200
  3116	033213	271 10 0 00 000220 		ADDI	AC1,220
  3117	033214	202 12 0 10 000000 		MOVEM	AC3,(AC1)
  3118	033215	271 07 0 00 000002 		ADDI	AC,2
  3119	033216	350 00 0 00 000005 		AOS	INDX
  3120	033217	253 05 0 00 033200 		AOBJN	INDX,PGWRT1
  3121
  3122	033220	7 010 20 0 00 020000 	PGWRT2:	CONO	PAG,LTRPEN		;CLEAR AM, ETC
  3123	033221	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3124	033222	402 00 0 00 043742 		SETZM	PGWRTB		;CLEAR DATA AREA
  3125	033223	200 07 0 00 040176 		MOVE	AC,[PGWRTB,,PGWRTB+1]
  3126	033224	251 07 0 00 044402 		BLT	AC,PGWRTB+440
  3127	033225	205 05 0 00 777340 		MOVSI	INDX,-440
  3128	033226	201 07 0 00 000340 		MOVEI	AC,340
  3129
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 67
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0123

  3130	033227	200 14 0 00 000007 	PGWRT3:	MOVE	COR,AC
  3131	033230	242 14 0 00 000011 		LSH	COR,^D9
  3132	033231	661 14 0 00 777777 		TLO	COR,-1
  3133	033232	621 14 0 14 000000 		TLZ	COR,(COR)
  3134	033233	201 10 0 05 043742 		MOVEI	AC1,PGWRTB(INDX)
  3135	033234	405 10 0 00 000777 		ANDI	AC1,777
  3136	033235	271 10 0 14 000000 		ADDI	AC1,(COR)
  3137
  3138	033236	202 14 0 10 000000 		MOVEM	COR,(AC1)	;MAKE PAGED MEMORY WRITE
  3139	033237	476 00 0 00 000013 		SETOM	ACT
  3140	033240	200 13 0 10 000000 		MOVE	ACT,(AC1)	;PAGED READ VERIFY
  3141	033241	312 14 0 00 000013 		CAME	COR,ACT
  3142						ERROR	PGWRT3,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^
  3143	033242	036 13 0 00 040177 
  3144	033243	035 00 0 00 033227 		ERLOOP	PGWRT3		;IF ERROR, LOOP TO PGWRT3
  3145	033244	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  3146	033245	312 14 0 00 000013 		CAME	COR,ACT
  3147						ERROR	PGWRT3,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTX^
  3148	033246	036 13 0 00 040202 
  3149	033247	035 00 0 00 033227 		ERLOOP	PGWRT3		;IF ERROR, LOOP TO PGWRT3
  3150	033250	350 00 0 00 000007 		AOS	AC
  3151	033251	253 05 0 00 033227 		AOBJN	INDX,PGWRT3
  3152
  3153	033252	205 05 0 00 777340 	PGWRT4:	MOVSI	INDX,-440	;CHECK DATA WRITE BLOCK
  3154	033253	201 07 0 00 000340 		MOVEI	AC,340		;USING DIRECT ADDRESSING
  3155
  3156	033254	200 14 0 00 000007 		MOVE	COR,AC
  3157	033255	242 14 0 00 000011 		LSH	COR,^D9		;SETUP COMPARE WORD
  3158	033256	661 14 0 00 777777 		TLO	COR,-1
  3159	033257	621 14 0 14 000000 		TLZ	COR,(COR)
  3160	033260	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  3161	033261	312 14 0 00 000013 		CAME	COR,ACT
  3162						ERROR	PGWRT2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^
  3163	033262	036 13 0 00 040207 
  3164	033263	035 00 0 00 033220 		ERLOOP	PGWRT2		;IF ERROR, LOOP TO PGWRT2
  3165	033264	350 00 0 00 000007 		AOS	AC
  3166	033265	253 05 0 00 033254 		AOBJN	INDX,PGWRT4+2
  3167
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 68
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0124

  3168	033266	402 00 0 00 043742 	PGWRT5:	SETZM	PGWRTB		;CLEAR DATA AREA
  3169	033267	200 07 0 00 040176 		MOVE	AC,[PGWRTB,,PGWRTB+1]
  3170	033270	251 07 0 00 044401 		BLT	AC,PGWRTB+437
  3171	033271	205 05 0 00 777340 		MOVSI	INDX,-440
  3172	033272	201 07 0 00 000777 		MOVEI	AC,777
  3173
  3174	033273	200 14 0 00 000007 	PGWRT6:	MOVE	COR,AC		;MAKE REVERSE PAGED MEMORY WRITE
  3175	033274	242 14 0 00 000011 		LSH	COR,^D9
  3176	033275	661 14 0 00 777777 		TLO	COR,-1
  3177	033276	621 14 0 14 000000 		TLZ	COR,(COR)
  3178	033277	201 10 0 00 044401 		MOVEI	AC1,PGWRTB+437
  3179	033300	275 10 0 05 000000 		SUBI	AC1,(INDX)
  3180	033301	405 10 0 00 000777 		ANDI	AC1,777
  3181	033302	271 10 0 14 000000 		ADDI	AC1,(COR)
  3182	033303	202 14 0 10 000000 		MOVEM	COR,(AC1)	;PERFORM PAGED WRITE
  3183	033304	476 00 0 00 000013 		SETOM	ACT
  3184	033305	200 13 0 10 000000 		MOVE	ACT,(AC1)	;PAGED REREAD VERIFY
  3185	033306	312 14 0 00 000013 		CAME	COR,ACT
  3186						ERROR	PGWRT6,13,COR,ACT,DATA ERROR,REVERSE PAGED REREAD,PGWRTX^
  3187	033307	036 13 0 00 040216 
  3188	033310	035 00 0 00 033273 		ERLOOP	PGWRT6		;IF ERROR, LOOP TO PGWRT6
  3189	033311	201 11 0 00 044401 		MOVEI	AC2,PGWRTB+437
  3190	033312	275 11 0 05 000000 		SUBI	AC2,(INDX)
  3191	033313	200 13 0 11 000000 		MOVE	ACT,(AC2)
  3192	033314	312 14 0 00 000013 		CAME	COR,ACT
  3193						ERROR	PGWRT6,13,COR,ACT,DATA ERROR,REVERSE DIRECT REREAD,PGWRTZ^
  3194	033315	036 13 0 00 040225 
  3195	033316	035 00 0 00 033273 		ERLOOP	PGWRT6		;IF ERROR, LOOP TO PGWRT6
  3196	033317	370 00 0 00 000007 		SOS	AC
  3197	033320	253 05 0 00 033273 		AOBJN	INDX,PGWRT6
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 69
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGED DATA WRITE                                                              SEQ 0125

  3198	033321	205 05 0 00 777340 	PGWRT7:	MOVSI	INDX,-440
  3199	033322	201 07 0 00 000340 		MOVEI	AC,340
  3200
  3201	033323	200 14 0 00 000007 		MOVE	COR,AC		;CHECK DATA WRITE BLOCK
  3202	033324	242 14 0 00 000011 		LSH	COR,^D9		;USING DIRECT ADDRESSING
  3203	033325	661 14 0 00 777777 		TLO	COR,-1
  3204	033326	621 14 0 14 000000 		TLZ	COR,(COR)
  3205	033327	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  3206	033330	312 14 0 00 000013 		CAME	COR,ACT
  3207						ERROR	PGWRT5,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^
  3208	033331	036 13 0 00 040207 
  3209	033332	035 00 0 00 033266 		ERLOOP	PGWRT5		;IF ERROR, LOOP TO PGWRT5
  3210	033333	350 00 0 00 000007 		AOS	AC
  3211	033334	253 05 0 00 033323 		AOBJN	INDX,PGWRT7+2
  3212
  3213	033335	367 15 0 00 033176 		REPTLP	PGWRT0+2	;CYCLE
  3214	033336	254 00 0 00 033356 		JRST	PFT0-2
  3215
  3216	033337	037 02 0 00 040067 	PGWRTX:	PSIXM	SIXBTZ	<REF TO >^	[SIXBIT\REF TO _\]^
  3217	033340	200 00 0 00 000010 		MOVE	AC1
  3218	033341	037 06 0 00 000000 		PNT6
  3219	033342	037 00 0 00 030242 		PCRL
  3220	033343	263 17 0 00 000000 		RTN
  3221
  3222	033344	037 02 0 00 040067 	PGWRTY:	PSIXM	SIXBTZ	<REF TO >^	[SIXBIT\REF TO _\]^
  3223	033345	201 00 0 05 043742 		MOVEI	PGWRTB(INDX)
  3224	033346	037 06 0 00 000000 		PNT6
  3225	033347	037 00 0 00 030242 		PCRL
  3226	033350	263 17 0 00 000000 		RTN
  3227
  3228	033351	037 02 0 00 040067 	PGWRTZ:	PSIXM	SIXBTZ	<REF TO >^	[SIXBIT\REF TO _\]^
  3229	033352	200 00 0 00 000011 		MOVE	AC2
  3230	033353	037 06 0 00 000000 		PNT6
  3231	033354	037 00 0 00 030242 		PCRL
  3232	033355	263 17 0 00 000000 		RTN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 70
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE FAIL WORD                                                                SEQ 0126

  3233					SUBTTL	TEST PAGE FAIL WORD
  3234
  3235					SALL
  3236			040230		T=	SIXBTZ	PAGE FAIL WORD TEST
  3237					LALL
  3238
  3239					;*VERIFY THAT THE PROPER PAGE FAIL CODE OCCURS ON A PAGED READ
  3240					;*TO AN AREA WITHOUT THE ACCESS BIT BUT WITH THE PUBLIC,
  3241					;*WRITEABLE,SOFTWARE & CACHE BIT.
  3242
  3243						SUBTST^
  3244	033356	201 00 0 00 033356 		MOVEI	.
  3245	033357	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3246	033360	200 15 0 00 043737 	PFT0:	MOVE	REPT,RPEAT
  3247	033361	402 00 0 00 000200 		SETZM	200
  3248	033362	200 00 0 00 040234 		MOVE	[200,201]
  3249	033363	251 00 0 00 000417 		BLT	417		;CLEAR PAGE MAP
  3250
  3251	033364	205 00 0 00 360033 		MOVSI	360000!<PGW400_-^D9>
  3252	033365	202 00 0 00 000200 		MOVEM	200		;SETUP PAGE MAP WORD
  3253
  3254	033366	201 00 0 00 033402 		MOVEI	PFT2
  3255	033367	202 00 0 00 000502 		MOVEM	LPGFTR		;SETUP FOR PAGE FAIL
  3256
  3257	033370	476 00 0 00 033170 	PFT1:	SETOM	PGW400
  3258	033371	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3259	033372	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3260	033373	402 00 0 00 000014 		SETZM	COR
  3261	033374	403 00 0 00 000013 		SETZB	0,ACT
  3262
  3263	033375	200 13 0 00 400170 		MOVE	ACT,400000!<PGW400&777>	;MAKE PAGED READ
  3264
  3265	033376	200 13 0 00 033170 		MOVE	ACT,PGW400
  3266						ERROR	PFT1,13,COR,ACT,TRAP FAILED,FATAL^
  3267												SALL
  3268	033377	036 13 0 00 040235 
  3269	033400	035 00 0 00 033370 		ERLOOP	PFT1		;IF ERROR, LOOP TO PFT1
  3270	033401	254 00 0 00 033417 		JRST	PFT3			;FATAL
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 71
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE FAIL WORD                                                                SEQ 0127

  3271	033402	312 14 0 00 000013 	PFT2:	CAME	COR,ACT
  3272						ERROR	PFT1,13,COR,ACT,PAGE FAIL STORED IN AC^
  3273	033403	036 13 0 00 040240 
  3274	033404	035 00 0 00 033370 		ERLOOP	PFT1		;IF ERROR, LOOP TO PFT1
  3275
  3276	033405	200 13 0 00 000000 		MOVE	ACT,0
  3277	033406	312 14 0 00 000013 		CAME	COR,ACT
  3278						ERROR	PFT1,13,COR,ACT,PAGE FAIL STORED IN 0^
  3279	033407	036 13 0 00 040243 
  3280	033410	035 00 0 00 033370 		ERLOOP	PFT1		;IF ERROR, LOOP TO PFT1
  3281
  3282	033411	200 14 0 00 040246 		MOVE	COR,[001000,,400000!<PGW400&777>]
  3283	033412	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  3284	033413	312 14 0 00 000013 		CAME	COR,ACT
  3285						ERROR	PFT1,13,COR,ACT,PAGE FAIL WORD WRONG^
  3286	033414	036 13 0 00 040247 
  3287	033415	035 00 0 00 033370 		ERLOOP	PFT1		;IF ERROR, LOOP TO PFT1
  3288
  3289	033416	367 15 0 00 033361 		REPTLP	PFT0+1
  3290
  3291	033417	200 00 0 00 043736 	PFT3:	MOVE	PGFAIL		;RESTORE PAGE FAIL
  3292	033420	202 00 0 00 000502 		MOVEM	LPGFTR
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 72
DSKEAM	MAC	29-Mar-78 14:55		TEST WRITE PROTECTED PAGING                                                        SEQ 0128

  3293					SUBTTL	TEST WRITE PROTECTED PAGING
  3294
  3295					;*TRYING TO WRITE INTO A WRITE PROTECTED AREA
  3296					;*SHOULD CAUSE A PAGE FAILURE
  3297
  3298					SALL
  3299			040252		T=	SIXBTZ	WRITE PROTECT TEST
  3300					LALL
  3301
  3302						SUBTST^
  3303	033421	201 00 0 00 033421 		MOVEI	.
  3304	033422	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3305	033423	200 15 0 00 043737 	WRTP0:	MOVE	REPT,RPEAT
  3306	033424	402 00 0 00 000200 		SETZM	200		;CLEAR AND SETUP PAGE MAP
  3307	033425	200 07 0 00 037671 		MOVE	AC,[200,,201]
  3308	033426	251 07 0 00 000417 		BLT	AC,417
  3309	033427	205 07 0 00 640033 		MOVSI	AC,640000!<PGW400_-^D9>
  3310	033430	202 07 0 00 000200 		MOVEM	AC,200
  3311	033431	201 07 0 00 400033 		MOVEI	AC,400000!<PGW777_-^D9>
  3312	033432	202 07 0 00 000377 		MOVEM	AC,377
  3313	033433	201 07 0 00 033447 		MOVEI	AC,WRTPF
  3314	033434	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  3315
  3316	033435	402 00 0 00 033170 	WRTP1:	SETZM	PGW400
  3317	033436	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3318	033437	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3319	033440	402 00 0 00 000014 		SETZM	COR
  3320	033441	403 00 0 00 000013 		SETZB	0,ACT
  3321	033442	476 00 0 00 400170 		SETOM	400000!<PGW400&777>	;MAKE PAGED WRITE
  3322	033443	200 13 0 00 033170 		MOVE	ACT,PGW400
  3323						ERROR	WRTP1,13,COR,ACT,TRAP FAILED,ADR 400XXX^
  3324												SALL
  3325	033444	036 13 0 00 040256 
  3326	033445	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3327	033446	254 00 0 00 033435 		JRST	WRTP1
  3328
  3329	033447	402 00 0 00 000014 	WRTPF:	SETZM	COR
  3330	033450	312 14 0 00 000013 		CAME	COR,ACT
  3331						ERROR	WRTP1,13,COR,ACT,PAGE FAIL STORED IN AC,ADR 400XXX^
  3332	033451	036 13 0 00 040261 
  3333	033452	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3334	033453	200 13 0 00 000000 		MOVE	ACT,0
  3335	033454	312 14 0 00 000013 		CAME	COR,ACT
  3336						ERROR	WRTP1,13,COR,ACT,PAGE FAIL STORED IN 0,ADR 400XXX^
  3337	033455	036 13 0 00 040264 
  3338	033456	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3339	033457	200 14 0 00 040267 		MOVE	COR,[131000,,400000!<PGW400&777>]
  3340	033460	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  3341	033461	312 14 0 00 000013 		CAME	COR,ACT
  3342						ERROR	WRTP1,13,COR,ACT,PAGE FAIL WORD WRONG,ADR 400XXX^
  3343	033462	036 13 0 00 040270 
  3344	033463	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 73
DSKEAM	MAC	29-Mar-78 14:55		TEST WRITE PROTECTED PAGING                                                        SEQ 0129

  3345	033464	402 00 0 00 000014 	WRTP2:	SETZM	COR
  3346	033465	200 13 0 00 033170 		MOVE	ACT,PGW400
  3347	033466	312 14 0 00 000013 		CAME	COR,ACT
  3348						ERROR	WRTP1,13,COR,ACT,DATA WORD WRONG,ADR 400XXX^
  3349	033467	036 13 0 00 040276 
  3350	033470	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3351
  3352	033471	201 07 0 00 033502 	WRTP3:	MOVEI	AC,WRTPF1
  3353	033472	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  3354	033473	476 00 0 00 033171 		SETOM	PGW777
  3355	033474	476 00 0 00 000014 		SETOM	COR
  3356	033475	476 00 0 00 000013 		SETOM	ACT
  3357	033476	402 00 0 00 777171 		SETZM	777000!<PGW777&777>	;MAKE PAGED WRITE
  3358	033477	200 13 0 00 033171 		MOVE	ACT,PGW777
  3359						ERROR1	13,COR,ACT,TRAP FAILED,ADR 777XXX^
  3360	033500	036 13 0 00 040301 
  3361	033501	254 00 0 00 033471 		JRST	WRTP3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 74
DSKEAM	MAC	29-Mar-78 14:55		TEST WRITE PROTECTED PAGING                                                        SEQ 0130

  3362	033502	312 14 0 00 000013 	WRTPF1:	CAME	COR,ACT
  3363						ERROR	WRTP1,13,COR,ACT,PAGE FAIL STORED IN AC,ADR 777XXX^
  3364	033503	036 13 0 00 040304 
  3365	033504	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3366	033505	200 14 0 00 040307 		MOVE	COR,[111000,,777000!<PGW777&777>]
  3367	033506	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  3368	033507	312 14 0 00 000013 		CAME	COR,ACT
  3369						ERROR	WRTP1,13,COR,ACT,PAGE FAIL WORD WRONG,ADR 777XXX^
  3370	033510	036 13 0 00 040310 
  3371	033511	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3372
  3373	033512	476 00 0 00 000014 	WRTP4:	SETOM	COR
  3374	033513	200 13 0 00 033171 		MOVE	ACT,PGW777
  3375	033514	312 14 0 00 000013 		CAME	COR,ACT
  3376						ERROR	WRTP1,13,COR,ACT,DATA WORD WRONG,ADR 777XXX^
  3377	033515	036 13 0 00 040313 
  3378	033516	035 00 0 00 033435 		ERLOOP	WRTP1		;IF ERROR, LOOP TO WRTP1
  3379
  3380	033517	367 15 0 00 033424 		REPTLP	WRTP0+1
  3381
  3382	033520	200 07 0 00 043736 		MOVE	AC,PGFAIL
  3383	033521	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;RESET PAGE FAIL TRAP
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 75
DSKEAM	MAC	29-Mar-78 14:55		PAGED BLT PAGING AND ADDRESSING TEST                                               SEQ 0131

  3384					SUBTTL	PAGED BLT PAGING AND ADDRESSING TEST
  3385
  3386					;*CHECKS THAT ADDRESSING FROM 340000 TO 777777 WORKS.
  3387					;*ALL PAGING REFERENCES RELOCATE INTO ACTUAL ADDRESSES 76000 TO 76777.
  3388					;*BLT USES ALL ADDRESS FROM 340000 TO 777777.
  3389
  3390					SALL
  3391			040316		T=	SIXBTZ	PAGED BLT TEST
  3392					LALL
  3393
  3394						SUBTST^
  3395	033522	201 00 0 00 033522 		MOVEI	.
  3396	033523	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3397	033524	200 15 0 00 043737 	BLT0:	MOVE	REPT,RPEAT
  3398	033525	205 05 0 00 777560 		MOVSI	INDX,-440/2	;SETUP PAGE MAP SO ALL ADDRESSES
  3399	033526	201 07 0 00 000340 		MOVEI	AC,340		;POINT TO 76XXX.
  3400	033527	200 11 0 00 040321 		MOVE	AC2,[740076,,740076]
  3401	033530	550 10 0 00 000007 	BLT1:	HRRZ	AC1,AC
  3402	033531	242 10 0 00 777777 		LSH	AC1,-1
  3403	033532	305 10 0 00 000200 		CAIGE	AC1,200
  3404	033533	271 10 0 00 000220 		ADDI	AC1,220
  3405	033534	202 11 0 10 000000 		MOVEM	AC2,(AC1)
  3406	033535	271 07 0 00 000002 		ADDI	AC,2
  3407	033536	253 05 0 00 033530 		AOBJN	INDX,BLT1
  3408
  3409	033537	7 010 20 0 00 020000 	BLT2:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  3410	033540	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3411	033541	402 00 0 00 340000 		SETZM	340000		;SET FIRST ADDRESS TO ALL ZEROS
  3412	033542	200 07 0 00 040322 		MOVE	AC,[340000,,340001]
  3413	033543	251 07 0 00 777777 		BLT	AC,777777	;BLT TO MAXIMUM
  3414
  3415	033544	205 05 0 00 777000 	BLT3:	MOVSI	INDX,-1000	;CHECK DATA AREA WITH DIRECT ADDRESSING
  3416	033545	201 14 0 05 076000 		MOVEI	COR,76000(INDX)
  3417	033546	200 13 0 05 076000 		MOVE	ACT,76000(INDX)
  3418	033547	312 13 0 00 037173 		CAME	ACT,[0]
  3419						ERROR	BLT1,13,COR,ACT,NOT ALL ZEROS,<REF TO (CORRECT)>^
  3420												SALL
  3421	033550	036 13 0 00 040326 
  3422	033551	035 00 0 00 033530 		ERLOOP	BLT1		;IF ERROR, LOOP TO BLT1
  3423	033552	253 05 0 00 033545 		AOBJN	INDX,BLT3+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 76
DSKEAM	MAC	29-Mar-78 14:55		PAGED BLT PAGING AND ADDRESSING TEST                                               SEQ 0132

  3424	033553	7 010 20 0 00 020000 	BLT4:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  3425	033554	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3426	033555	476 00 0 00 340000 		SETOM	340000		;SET FIRST ADDRESS TO ALL ONES
  3427	033556	200 07 0 00 040322 		MOVE	AC,[340000,,340001]
  3428	033557	251 07 0 00 777777 		BLT	AC,777777	;BLT TO MAXIMUM
  3429
  3430	033560	205 05 0 00 777000 	BLT5:	MOVSI	INDX,-1000	;CHECK DATA AREA WITH DIRECT ADDRESSING
  3431	033561	201 14 0 05 076000 		MOVEI	COR,76000(INDX)
  3432	033562	200 13 0 05 076000 		MOVE	ACT,76000(INDX)
  3433	033563	312 13 0 00 040331 		CAME	ACT,[-1]
  3434						ERROR	BLT4,13,COR,ACT,NOT ALL ONES,<REF TO (CORRECT)>^
  3435	033564	036 13 0 00 040335 
  3436	033565	035 00 0 00 033553 		ERLOOP	BLT4		;IF ERROR, LOOP TO BLT4
  3437	033566	253 05 0 00 033561 		AOBJN	INDX,BLT5+1
  3438
  3439	033567	7 010 20 0 00 020000 	BLT6:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  3440	033570	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3441	033571	200 13 0 00 040340 		MOVE	ACT,[525252,,525252]
  3442	033572	202 13 0 00 340000 		MOVEM	ACT,340000	;SET FIRST ADDRESS TO ALT BITS
  3443	033573	200 07 0 00 040322 		MOVE	AC,[340000,,340001]
  3444	033574	251 07 0 00 777777 		BLT	AC,777777	;BLT TO MAXIMUM
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 77
DSKEAM	MAC	29-Mar-78 14:55		PAGED BLT PAGING AND ADDRESSING TEST                                               SEQ 0133

  3445	033575	205 05 0 00 777000 	BLT7:	MOVSI	INDX,-1000	;CHECK DATA AREA WITH DIRECT ADDRESSING
  3446	033576	201 14 0 05 076000 		MOVEI	COR,76000(INDX)
  3447	033577	200 13 0 05 076000 		MOVE	ACT,76000(INDX)
  3448	033600	312 13 0 00 040340 		CAME	ACT,[525252,,525252]
  3449						ERROR	BLT6,13,COR,ACT,NOT ALT BITS,<REF TO (CORRECT)>^
  3450	033601	036 13 0 00 040344 
  3451	033602	035 00 0 00 033567 		ERLOOP	BLT6		;IF ERROR, LOOP TO BLT6
  3452	033603	253 05 0 00 033576 		AOBJN	INDX,BLT7+1
  3453
  3454	033604	7 010 20 0 00 020000 	BLT8:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  3455	033605	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3456	033606	200 13 0 00 040347 		MOVE	ACT,[252525,,252525]
  3457	033607	202 13 0 00 340000 		MOVEM	ACT,340000	;SET FIRST ADDRESS TO ALT BITS
  3458	033610	200 07 0 00 040322 		MOVE	AC,[340000,,340001]
  3459	033611	251 07 0 00 777777 		BLT	AC,777777	;BLT TO MAXIMUM
  3460
  3461	033612	205 05 0 00 777000 	BLT9:	MOVSI	INDX,-1000	;CHECK DATA AREA WITH DIRECT ADDRESSING
  3462	033613	201 14 0 05 076000 		MOVEI	COR,76000(INDX)
  3463	033614	200 13 0 05 076000 		MOVE	ACT,76000(INDX)
  3464	033615	312 13 0 00 040347 		CAME	ACT,[252525,,252525]
  3465						ERROR	BLT8,13,COR,ACT,NOT ALT BITS,<REF TO (CORRECT)>^
  3466	033616	036 13 0 00 040344 
  3467	033617	035 00 0 00 033604 		ERLOOP	BLT8		;IF ERROR, LOOP TO BLT8
  3468	033620	253 05 0 00 033613 		AOBJN	INDX,BLT9+1
  3469
  3470	033621	367 15 0 00 033525 		REPTLP	BLT0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 78
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0134

  3471					SUBTTL	TEST BASE REGISTER RELOCATION
  3472
  3473					;*SETUP PAGE MAP PAGES AS PAGE 76
  3474					;*SETUP PAGE 0 PAGE MAP FOR ERRORS
  3475					;*SETUP BASE REGISTERS
  3476					;*TEST MUUO FOR PAGE 0 AND FOR PAGE 76
  3477					;*TEST THAT EXEC PAGE FAIL WORD STORES CORRECTLY
  3478					;*IN PAGE 76 USING USER BASE REGISTER RELOCATION.
  3479
  3480					SALL
  3481			040350		T=	SIXBTZ	BASE REGISTER RELOCATION TEST
  3482					LALL
  3483
  3484						SUBTST^
  3485	033622	201 00 0 00 033622 		MOVEI	.
  3486	033623	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3487	033624	200 15 0 00 043737 	RLBAS0:	MOVE	REPT,RPEAT
  3488	033625	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3489	033626	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3490	033627	402 00 0 00 000200 		SETZM	200		;CLEAR PAGE 0 PAGE MAP
  3491	033630	200 07 0 00 037671 		MOVE	AC,[200,,201]
  3492	033631	251 07 0 00 000417 		BLT	AC,417
  3493	033632	402 00 0 00 076200 		SETZM	76200		;CLEAR RELOC PAGE PAGE MAP
  3494	033633	200 07 0 00 040355 		MOVE	AC,[76200,,76201]
  3495	033634	251 07 0 00 076417 		BLT	AC,76417
  3496	033635	200 00 0 00 040356 		MOVE	[540000,,540001]
  3497	033636	202 00 0 00 076600 		MOVEM	76600		;SETUP LOWER EXEC PAGING
  3498	033637	205 01 0 00 777621 		MOVSI	1,-157
  3499	033640	270 00 0 00 040357 		ADD	[2,,2]
  3500	033641	202 00 0 01 076601 		MOVEM	76601(1)
  3501	033642	253 01 0 00 033640 		AOBJN	1,.-2
  3502	033643	200 00 0 00 000041 		MOVE	41
  3503	033644	202 00 0 00 076041 		MOVEM	76000!LUUOI	;SETUP LUUO
  3504	033645	200 00 0 00 000042 		MOVE	42
  3505	033646	202 00 0 00 076042 		MOVEM	76000!42	;SETUP INTERRUPT
  3506	033647	200 00 0 00 000502 		MOVE	LPGFTR
  3507	033650	202 00 0 00 076502 		MOVEM	76000!LPGFTR	;SETUP PAGE FAIL
  3508	033651	200 00 0 00 040360 		MOVE	[JFCL]
  3509	033652	202 00 0 00 076421 		MOVEM	76000!LAROVT	;SETUP ARITH TRAP
  3510	033653	200 00 0 00 000422 		MOVE	LPDOVT
  3511	033654	202 00 0 00 076422 		MOVEM	76000!LPDOVT	;SETUP PDL OV TRAP
  3512	033655	200 00 0 00 000423 		MOVE	LTRP3T
  3513	033656	202 00 0 00 076423 		MOVEM	76000!LTRP3T	;SETUP TRAP 3 TRAP
  3514	033657	200 00 0 00 000430 		MOVE	LKNTRP
  3515	033660	202 00 0 00 076430 		MOVEM	76000!LKNTRP	;SETUP MUUO AS ERROR
  3516	033661	202 00 0 00 076431 		MOVEM	76000!LKTRP
  3517	033662	202 00 0 00 076432 		MOVEM	76000!LSNTRP
  3518	033663	202 00 0 00 076433 		MOVEM	76000!LSTRP
  3519	033664	202 00 0 00 076434 		MOVEM	76000!LCNTRP
  3520	033665	202 00 0 00 076435 		MOVEM	76000!LCTRP
  3521	033666	202 00 0 00 076436 		MOVEM	76000!LPNTRP
  3522	033667	202 00 0 00 076437 		MOVEM	76000!LPTRP
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 79
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0135

  3523					;*TEST USER BASE REGISTER RELOCATION
  3524					;*BY USING AN MUUO OF 0,,654321.
  3525
  3526					;*TEST MUUO FIRST WITH EPMP & UPMP AS PAGE 0.
  3527
  3528	033670	201 07 0 00 033703 	RLBAS1:	MOVEI	AC,RLBMU1	;SETUP MUUO TO RETURN
  3529	033671	202 07 0 00 000430 		MOVEM	AC,LKNTRP	;FROM PAGE 0
  3530	033672	201 07 0 00 033726 		MOVEI	AC,RLBMU3
  3531	033673	202 07 0 00 076430 		MOVEM	AC,76000!LKNTRP	;FROM RELOCATED PAGE
  3532
  3533	033674	402 00 0 00 000014 	RLBAS2:	SETZM	COR
  3534	033675	201 13 0 00 033700 		MOVEI	ACT,.+3
  3535	033676	254 02 1 00 033677 		JRSTF	@.+1		;CLEAR FLAGS
  3536	033677	000000	033700				.+1
  3537	033700	000000	654321		RLBMU0:	0,,654321		;DO AN MUUO OF 0,,654321
  3538						ERROR	RLBAS2,13,COR,ACT,MUUO FAILED,<COR=MUUO, ACT=MUUO ADR>^
  3539												SALL
  3540	033701	036 13 0 00 040367 
  3541	033702	035 00 0 00 033674 		ERLOOP	RLBAS2		;IF ERROR, LOOP TO RLBAS2
  3542
  3543	033703	201 14 0 00 654321 	RLBMU1:	MOVEI	COR,654321
  3544	033704	200 13 0 00 000424 		MOVE	ACT,LMUUO
  3545	033705	312 14 0 00 000013 		CAME	COR,ACT
  3546						ERROR	RLBAS2,13,COR,ACT,MUUO STORED WRONG,PAGE 0^
  3547	033706	036 13 0 00 040377 
  3548	033707	035 00 0 00 033674 		ERLOOP	RLBAS2		;IF ERROR, LOOP TO RLBAS2
  3549	033710	201 14 0 00 033701 		MOVEI	COR,RLBMU0+1
  3550	033711	200 13 0 00 000425 		MOVE	ACT,LMUUOP
  3551	033712	312 14 0 00 000013 		CAME	COR,ACT
  3552						ERROR	RLBAS2,13,COR,ACT,MUUO PC STORED WRONG,PAGE 0^
  3553	033713	036 13 0 00 040406 
  3554	033714	035 00 0 00 033674 		ERLOOP	RLBAS2		;IF ERROR, LOOP TO RLBAS2
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 80
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0136

  3555					;*TEST THAT WITH UPMP RELOCATED TO PAGE 76
  3556					;*AN MUUO TRAPS CORRECTLY AND RETRIEVES NEW PC
  3557					;*FROM RELOCATED USER PAGE MAP PAGE.
  3558					;*ALSO TEST THAT MUUO AND TRAPPED PC GET STORED CORRECTLY
  3559					;*IN RELOCATED UPMP.
  3560
  3561	033715	7 010 14 0 00 040411 	RLBAS3:	DATAO	PAG,[LLDUSB,,400076]	;RELOCATE USER BASE REG
  3562	033716	402 00 0 00 000014 		SETZM	COR
  3563	033717	201 13 0 00 033722 		MOVEI	ACT,.+3
  3564	033720	254 02 1 00 033721 		JRSTF	@.+1
  3565	033721	000000	033722				.+1
  3566	033722	000000	123456		RLBMU2:	0,,123456		;DO AN MUUO OF 0,,123456
  3567	033723	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3568						ERROR	RLBAS3,13,COR,ACT,MUUO FAILED,<COR=MUUO, ACT=MUUO ADR>^
  3569	033724	036 13 0 00 040367 
  3570	033725	035 00 0 00 033715 		ERLOOP	RLBAS3		;IF ERROR, LOOP TO RLBAS3
  3571
  3572	033726	7 010 14 0 00 037116 	RLBMU3:	DATAO	PAG,[LLDUSB,,400000]
  3573	033727	201 14 0 00 123456 		MOVEI	COR,123456
  3574	033730	200 13 0 00 076424 		MOVE	ACT,76000!LMUUO
  3575	033731	312 14 0 00 000013 		CAME	COR,ACT
  3576						ERROR	RLBAS3,13,COR,ACT,MUUO STORED WRONG,RELOCATED PAGE^
  3577	033732	036 13 0 00 040415 
  3578	033733	035 00 0 00 033715 		ERLOOP	RLBAS3		;IF ERROR, LOOP TO RLBAS3
  3579	033734	201 14 0 00 033723 		MOVEI	COR,RLBMU2+1
  3580	033735	200 13 0 00 076425 		MOVE	ACT,76000!LMUUOP
  3581	033736	312 14 0 00 000013 		CAME	COR,ACT
  3582						ERROR	RLBAS3,13,COR,ACT,MUUO PC STORED WRONG,RELOCATED PAGE^
  3583	033737	036 13 0 00 040420 
  3584	033740	035 00 0 00 033715 		ERLOOP	RLBAS3		;IF ERROR, LOOP TO RLBAS3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 81
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0137

  3585					;*TEST USER BASE REGISTER RELOCATION
  3586					;*BY USING EXEC PAGE FAIL WORD
  3587
  3588	033741	200 07 0 00 043734 	RLBAS4:	MOVE	AC,MUUOER#
  3589	033742	202 07 0 00 000430 		MOVEM	AC,LKNTRP
  3590	033743	202 07 0 00 076430 		MOVEM	AC,76000!LKNTRP
  3591	033744	201 07 0 00 033755 		MOVEI	AC,RLPFL
  3592	033745	202 07 0 00 076502 		MOVEM	AC,76000!LPGFTR	;SETUP PAGE FAIL TRAP
  3593	033746	476 00 0 00 076500 	RLPF1:	SETOM	76000!LEUPFW
  3594	033747	201 14 0 00 777777 		MOVEI	COR,777777
  3595	033750	476 00 0 00 000013 		SETOM	ACT
  3596	033751	7 010 14 0 00 040411 		DATAO	PAG,[LLDUSB,,400076]
  3597	033752	200 13 0 00 777777 		MOVE	ACT,777777		;SHOULD PAGE FAIL
  3598						ERROR	RLPF1,13,COR,ACT,PAGE FAIL FAILED,REF TO 777777^
  3599	033753	036 13 0 00 040426 
  3600	033754	035 00 0 00 033746 		ERLOOP	RLPF1		;IF ERROR, LOOP TO RLPF1
  3601
  3602	033755	476 00 0 00 000014 	RLPFL:	SETOM	COR
  3603	033756	312 14 0 00 000013 		CAME	COR,ACT
  3604						ERROR	RLPF1,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 777777^
  3605	033757	036 13 0 00 040431 
  3606	033760	035 00 0 00 033746 		ERLOOP	RLPF1		;IF ERROR, LOOP TO RLPF1
  3607	033761	200 14 0 00 040006 		MOVE	COR,[1000,,777777]	;SETUP CORRECT WORD
  3608	033762	200 13 0 00 076500 		MOVE	ACT,76000!LEUPFW
  3609	033763	312 14 0 00 000013 		CAME	COR,ACT
  3610						ERROR	RLPF1,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 777777^
  3611	033764	036 13 0 00 040434 
  3612	033765	035 00 0 00 033746 		ERLOOP	RLPF1		;IF ERROR, LOOP TO RLPF1
  3613
  3614	033766	7 010 14 0 00 037116 	RLBAS5:	DATAO	PAG,[LLDUSB,,400000]
  3615	033767	200 07 0 00 043736 		MOVE	AC,PGFAIL
  3616	033770	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  3617	033771	367 15 0 00 033625 		REPTLP	RLBAS0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 82
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0138

  3618					;*TEST BASE REGISTER RELOCATION
  3619					;*BY USING EXEC-PER-PROCESS PAGING
  3620					;*AND PAGING REFILL DATA FROM RELOCATED PAGE
  3621					;*WITH USER BASE REGISTER SET TO PAGE 76.
  3622
  3623					SALL
  3624			040437		T=	SIXBTZ	RELOCATED EXEC-PER-PROCESS PAGING
  3625					LALL
  3626
  3627						SUBTST^
  3628	033772	201 00 0 00 033772 		MOVEI	.
  3629	033773	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3630	033774	200 15 0 00 043737 	RLBAS6:	MOVE	REPT,RPEAT
  3631	033775	221 15 0 00 000012 		IMULI	REPT,^D10	;FSTCYL=10 PASSES, REL=100 PASSES
  3632	033776	205 05 0 00 777760 		MOVSI	INDX,-40/2
  3633	033777	201 07 0 00 000340 		MOVEI	AC,340
  3634
  3635	034000	201 11 0 05 043742 	RLWRT1:	MOVEI	AC2,PGWRTB(INDX)
  3636	034001	242 11 0 00 777767 		LSH	AC2,-^D9	;SETUP RELOCATED PAGE PAGE MAP
  3637	034002	271 11 0 00 540000 		ADDI	AC2,540000	;FOR RELOCATION OF PAGES
  3638	034003	504 12 0 00 000011 		HRL	AC3,AC2		;340-377 TO EXEC DATA AREA
  3639	034004	201 11 0 05 043743 		MOVEI	AC2,PGWRTB+1(INDX)
  3640	034005	242 11 0 00 777767 		LSH	AC2,-^D9
  3641	034006	271 11 0 00 540000 		ADDI	AC2,540000
  3642	034007	540 12 0 00 000011 		HRR	AC3,AC2
  3643	034010	550 10 0 00 000007 		HRRZ	AC1,AC
  3644	034011	242 10 0 00 777777 		LSH	AC1,-1
  3645	034012	271 10 0 00 000220 		ADDI	AC1,220
  3646	034013	202 12 0 10 076000 		MOVEM	AC3,76000(AC1)	;WRITE PAGING DATA
  3647	034014	271 07 0 00 000002 		ADDI	AC,2
  3648	034015	350 00 0 00 000005 		AOS	INDX
  3649	034016	253 05 0 00 034000 		AOBJN	INDX,RLWRT1
  3650
  3651	034017	402 00 0 00 043742 	RLWRT2:	SETZM	PGWRTB
  3652	034020	200 07 0 00 040176 		MOVE	AC,[PGWRTB,,PGWRTB+1]
  3653	034021	251 07 0 00 044001 		BLT	AC,PGWRTB+37	;CLEAR DATA AREA
  3654	034022	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3655	034023	7 010 14 0 00 040411 		DATAO	PAG,[LLDUSB,,400076]
  3656	034024	205 05 0 00 777740 		MOVSI	INDX,-40
  3657	034025	201 07 0 00 000340 		MOVEI	AC,340
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 83
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0139

  3658	034026	200 14 0 00 000007 	RLWRT3:	MOVE	COR,AC		;SETUP DATA
  3659	034027	242 14 0 00 000011 		LSH	COR,^D9		;AND PAGING ADDRESS
  3660	034030	661 14 0 00 777777 		TLO	COR,-1
  3661	034031	621 14 0 14 000000 		TLZ	COR,(COR)
  3662	034032	201 10 0 05 043742 		MOVEI	AC1,PGWRTB(INDX)
  3663	034033	405 10 0 00 000777 		ANDI	AC1,777
  3664	034034	271 10 0 14 000000 		ADDI	AC1,(COR)
  3665
  3666	034035	202 14 0 10 000000 		MOVEM	COR,(AC1)	;MAKE PAGED MEMORY WRITE
  3667	034036	200 13 0 10 000000 		MOVE	ACT,(AC1)	;PAGED READ VERIFY
  3668	034037	312 14 0 00 000013 		CAME	COR,ACT
  3669						ERROR	RLWRT2,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^
  3670												SALL
  3671	034040	036 13 0 00 040445 
  3672	034041	035 00 0 00 034017 		ERLOOP	RLWRT2		;IF ERROR, LOOP TO RLWRT2
  3673	034042	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  3674	034043	312 14 0 00 000013 		CAME	COR,ACT
  3675						ERROR	RLWRT2,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTY^
  3676	034044	036 13 0 00 040450 
  3677	034045	035 00 0 00 034017 		ERLOOP	RLWRT2		;IF ERROR, LOOP TO RLWRT2
  3678	034046	350 00 0 00 000007 		AOS	AC
  3679	034047	253 05 0 00 034026 		AOBJN	INDX,RLWRT3
  3680
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 84
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0140

  3681	034050	7 010 20 0 00 020000 	RLWRT4:	CONO	PAG,LTRPEN
  3682	034051	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3683	034052	205 05 0 00 777740 		MOVSI	INDX,-40	;CHECK DATA BLOCK USING
  3684	034053	201 07 0 00 000340 		MOVEI	AC,340		;DIRECT ADDRESSING
  3685
  3686	034054	200 14 0 00 000007 		MOVE	COR,AC
  3687	034055	242 14 0 00 000011 		LSH	COR,^D9
  3688	034056	661 14 0 00 777777 		TLO	COR,-1
  3689	034057	621 14 0 14 000000 		TLZ	COR,(COR)
  3690	034060	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  3691	034061	312 14 0 00 000013 		CAME	COR,ACT
  3692						ERROR	RLWRT2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^
  3693	034062	036 13 0 00 040453 
  3694	034063	035 00 0 00 034017 		ERLOOP	RLWRT2		;IF ERROR, LOOP TO RLWRT2
  3695	034064	350 00 0 00 000007 		AOS	AC
  3696	034065	253 05 0 00 034054 		AOBJN	INDX,RLWRT4+4
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 85
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0141

  3697					;*TEST THAT A TRAP FROM THE EXEC-PER-PROCESS AREA
  3698					;*USES THE CORRECT BASE REGISTER
  3699
  3700	034066	7 010 20 0 00 020000 	EPPT0:	CONO	PAG,LTRPEN
  3701	034067	7 010 14 0 00 040411 		DATAO	PAG,[LLDUSB,,400076]
  3702
  3703	034070	200 00 0 00 040456 		MOVE	[JRST 1,340001]	;PORTAL
  3704	034071	202 00 0 00 340000 		MOVEM	340000
  3705	034072	200 00 0 00 040457 		MOVE	[JRSTF @340002]	;SET FLAGS
  3706	034073	202 00 0 00 340001 		MOVEM	340001
  3707	034074	200 00 0 00 040460 		MOVE	[TN0!TN1,,340003] ;TO CAUSE TRAP 3
  3708	034075	202 00 0 00 340002 		MOVEM	340002
  3709	034076	200 00 0 00 040461 		MOVE	[JRST 340003]	;IF NO TRAP, HANG
  3710	034077	202 00 0 00 340003 		MOVEM	340003
  3711
  3712	034100	200 00 0 00 040462 		MOVE	[JSR EPPT2]	;SHOULD TRAP USING EBR
  3713	034101	202 00 0 00 000423 		MOVEM	LTRP3T
  3714	034102	200 00 0 00 040463 		MOVE	[JSR EPPT1]	;ERROR IF USED UBR
  3715	034103	202 00 0 00 076423 		MOVEM	76000!LTRP3T
  3716
  3717	034104	254 00 0 00 340000 		JRST	340000		;TO PER-PROCESS AREA
  3718
  3719	034105	000000	000000		EPPT1:	0
  3720	034106	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3721	034107	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3722						ERROR	RLBAS6+2,13,0,0,EPP ADR TRAP ERROR,TRAPPED USING UBR^
  3723	034110	036 13 0 00 040473 
  3724	034111	035 00 0 00 033776 		ERLOOP	RLBAS6+2		;IF ERROR, LOOP TO RLBAS6+2
  3725	034112	254 00 0 00 034125 		JRST	EPPT3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 86
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0142

  3726	034113	000000	000000		EPPT2:	0
  3727	034114	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3728	034115	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3729	034116	200 00 0 00 043732 		MOVE	LTRP3SV
  3730	034117	202 00 0 00 000423 		MOVEM	LTRP3T
  3731	034120	200 14 0 00 040476 		MOVE	COR,[0,,340003]
  3732	034121	200 13 0 00 034113 		MOVE	ACT,EPPT2
  3733	034122	312 14 0 00 000013 		CAME	COR,ACT
  3734						ERROR	RLBAS6+2,13,COR,ACT,EPP ADR TRAP ERROR,SAVED PC WRONG^
  3735	034123	036 13 0 00 040502 
  3736	034124	035 00 0 00 033776 		ERLOOP	RLBAS6+2		;IF ERROR, LOOP TO RLBAS6+2
  3737
  3738	034125	367 15 0 00 033776 	EPPT3:	REPTLP	RLBAS6+2
  3739
  3740					XLIST
  3741					LIST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 89
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0143

  3742					;*TEST BASE REGISTER RELOCATION
  3743					;*BY USING PAGE FAULT TRAP
  3744
  3745						SUBTST^
  3746	034126	201 00 0 00 034126 		MOVEI	.
  3747	034127	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3748	034130	200 15 0 00 043737 	RLPFT0:	MOVE	REPT,RPEAT
  3749	034131	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3750	034132	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3751	034133	201 07 0 00 034154 		MOVEI	AC,RLPFT1
  3752	034134	202 07 0 00 076502 		MOVEM	AC,76000!LPGFTR	;SETUP PAGE PAGE FAULT
  3753	034135	201 07 0 00 034147 		MOVEI	AC,RLPFT2
  3754	034136	202 07 0 00 000502 		MOVEM	AC,LPGFTR		;SETUP PAGE 0 PAGE FAULT
  3755
  3756	034137	402 00 0 00 076400 		SETZM	76400
  3757	034140	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3758	034141	7 010 14 0 00 040411 		DATAO	PAG,[LLDUSB,,400076]	;SETUP BASE REG
  3759	034142	200 13 0 00 340000 	RLPFT3:	MOVE	ACT,340000	;DO PAGING, SHOULD FAULT
  3760	034143	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3761	034144	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3762						ERROR1	13,COR,ACT,PAGE FAULT FAILED,FATAL^
  3763	034145	036 13 0 00 040510 
  3764	034146	254 00 0 00 034164 		JRST	RLPFT4
  3765
  3766	034147	7 010 20 0 00 020000 	RLPFT2:	CONO	PAG,LTRPEN
  3767	034150	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3768	034151	200 14 0 00 000500 		MOVE	COR,LEUPFW
  3769						ERROR1	13,COR,ACT,RELOCATION FAILED,PAGE FAIL TRAPPED TO PAGE 0^
  3770	034152	036 13 0 00 040523 
  3771	034153	254 00 0 00 034164 		JRST	RLPFT4			;FATAL
  3772
  3773	034154	7 010 20 0 00 020000 	RLPFT1:	CONO	PAG,LTRPEN
  3774	034155	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3775	034156	200 14 0 00 040022 		MOVE	COR,[1000,,340000]
  3776	034157	200 13 0 00 076500 		MOVE	ACT,76000!LEUPFW
  3777	034160	312 14 0 00 000013 		CAME	COR,ACT
  3778						ERROR1	13,COR,ACT,RELOCATION SUCCEEDED,PAGE FAIL WORD WRONG^
  3779	034161	036 13 0 00 040532 
  3780	034162	035 00 0 00 034140 		ERLOOP	RLPFT3-2
  3781
  3782	034163	367 15 0 00 034131 		REPTLP	RLPFT0+1
  3783
  3784	034164	200 00 0 00 043736 	RLPFT4:	MOVE	PGFAIL
  3785	034165	202 00 0 00 000502 		MOVEM	LPGFTR
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 90
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0144

  3786					;*TEST BASE REGISTER RELOCATION
  3787					;*BY USING TRAPPING
  3788
  3789						SUBTST^
  3790	034166	201 00 0 00 034166 		MOVEI	.
  3791	034167	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3792	034170	200 15 0 00 043737 	RLTRP0:	MOVE	REPT,RPEAT
  3793	034171	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3794	034172	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  3795
  3796					;*TEST RELOCATED TRAP 3
  3797
  3798	034173	200 07 0 00 040535 	RLTRP1:	MOVE	AC,[JSR	RLTP3]
  3799	034174	202 07 0 00 076423 		MOVEM	AC,76000!LTRP3T
  3800	034175	7 010 20 0 00 020076 		CONO	PAG,LTRPEN!76
  3801	034176	254 02 1 00 034177 		JRSTF	@.+1
  3802	034177	000600	034200			TN0!TN1,,.+1
  3803	034200	7 010 20 0 00 020000 	RLTP3X:	CONO	PAG,LTRPEN
  3804						ERROR1	13,0,0,TRAP 3 FAILED,FATAL^
  3805	034201	036 13 0 00 040536 
  3806	034202	254 00 0 00 034212 		JRST	RLTP4
  3807
  3808	034203	000000	000000		RLTP3:	0
  3809	034204	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3810	034205	200 14 0 00 040541 		MOVE	COR,[0,,RLTP3X]
  3811	034206	200 13 0 00 034203 		MOVE	ACT,RLTP3
  3812	034207	312 14 0 00 000013 		CAME	COR,ACT
  3813						ERROR	RLTRP1,13,COR,ACT,TRAP 3 SAVED PC^
  3814	034210	036 13 0 00 040542 
  3815	034211	035 00 0 00 034173 		ERLOOP	RLTRP1		;IF ERROR, LOOP TO RLTRP1
  3816	034212				RLTP4:
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 91
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0145

  3817					;*TEST RELOCATED TRAP 2
  3818
  3819	034212	200 07 0 00 040545 		MOVE	AC,[JSR RLPDL]
  3820	034213	202 07 0 00 076422 		MOVEM	AC,76000!LPDOVT
  3821	034214	7 010 20 0 00 020076 		CONO	PAG,LTRPEN!76
  3822	034215	254 02 1 00 034216 		JRSTF	@.+1
  3823	034216	000400	034217			TN0,,.+1
  3824	034217	7 010 20 0 00 020000 	RLPDLX:	CONO	PAG,LTRPEN
  3825						ERROR1	13,0,0,TRAP 2 FAILED,FATAL^
  3826	034220	036 13 0 00 040546 
  3827	034221	254 00 0 00 034231 		JRST	RLPDL1
  3828
  3829	034222	000000	000000		RLPDL:	0
  3830	034223	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3831	034224	200 14 0 00 040551 		MOVE	COR,[0,,RLPDLX]
  3832	034225	200 13 0 00 034222 		MOVE	ACT,RLPDL
  3833	034226	312 14 0 00 000013 		CAME	COR,ACT
  3834						ERROR	RLTRP1,13,COR,ACT,TRAP 2 SAVED PC^
  3835	034227	036 13 0 00 040552 
  3836	034230	035 00 0 00 034173 		ERLOOP	RLTRP1		;IF ERROR, LOOP TO RLTRP1
  3837	034231				RLPDL1:
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 92
DSKEAM	MAC	29-Mar-78 14:55		TEST BASE REGISTER RELOCATION                                                      SEQ 0146

  3838					;*TEST RELOCATED TRAP 1
  3839
  3840	034231	200 07 0 00 040555 		MOVE	AC,[JSR RLAROV]
  3841	034232	202 07 0 00 076421 		MOVEM	AC,76000!LAROVT
  3842	034233	7 010 20 0 00 020076 		CONO	PAG,LTRPEN!76
  3843	034234	254 02 1 00 034235 		JRSTF	@.+1
  3844	034235	000200	034236			TN1,,.+1
  3845	034236	7 010 20 0 00 020000 	RLAROX:	CONO	PAG,LTRPEN
  3846						ERROR1	13,0,0,TRAP 1 FAILED,FATAL^
  3847	034237	036 13 0 00 040556 
  3848	034240	254 00 0 00 034253 		JRST	RLARO1
  3849
  3850	034241	000000	000000		RLAROV:	0
  3851	034242	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3852	034243	200 14 0 00 040561 		MOVE	COR,[0,,RLAROX]
  3853	034244	200 13 0 00 034241 		MOVE	ACT,RLAROV
  3854	034245	312 14 0 00 000013 		CAME	COR,ACT
  3855						ERROR	RLTRP1,13,COR,ACT,TRAP 1 SAVED PC^
  3856	034246	036 13 0 00 040562 
  3857	034247	035 00 0 00 034173 		ERLOOP	RLTRP1		;IF ERROR, LOOP TO RLTRP1
  3858
  3859	034250	200 07 0 00 040360 		MOVE	AC,[JFCL]
  3860	034251	202 07 0 00 076421 		MOVEM	AC,76000!LAROVT
  3861
  3862	034252	367 15 0 00 034171 		REPTLP	RLTRP0+1
  3863	034253				RLARO1:
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 93
DSKEAM	MAC	29-Mar-78 14:55		TEST INTERRUPT RELOCATION                                                          SEQ 0147

  3864					SUBTTL	TEST INTERRUPT RELOCATION
  3865
  3866					;*SET PAGE 0 INTERRUPT LOCATIONS AS ERROR
  3867					;*SETUP RELOCATED PAGE INTERRUPT LOCATIONS FOR TESTING
  3868					;*RELOCATE EXEC BASE REGISTER
  3869					;*TEST INTERRUPTS
  3870
  3871					SALL
  3872			040565		T=SIXBTZ	RELOCATED INTERRUPT TEST
  3873					LALL
  3874
  3875						SUBTST^
  3876	034253	201 00 0 00 034253 		MOVEI	.
  3877	034254	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  3878	034255	200 15 0 00 043737 	RLINT0:	MOVE	REPT,RPEAT
  3879	034256	221 15 0 00 000012 		IMULI	REPT,^D10	;FSTCYL=10 PASSES, REL =100 PASSES
  3880	034257	200 00 0 00 040572 		MOVE	[JSR RLITR1]	;SETUP RELOC PAGE INTERRUPTS
  3881	034260	202 00 0 00 076042 		MOVEM	76000!42
  3882	034261	200 00 0 00 040573 		MOVE	[JSR RLITR2]
  3883	034262	202 00 0 00 076044 		MOVEM	76000!44
  3884	034263	200 00 0 00 040574 		MOVE	[JSR RLITR3]
  3885	034264	202 00 0 00 076046 		MOVEM	76000!46
  3886	034265	200 00 0 00 040575 		MOVE	[JSR RLITR4]
  3887	034266	202 00 0 00 076050 		MOVEM	76000!50
  3888	034267	200 00 0 00 040576 		MOVE	[JSR RLITR5]
  3889	034270	202 00 0 00 076052 		MOVEM	76000!52
  3890	034271	200 00 0 00 040577 		MOVE	[JSR RLITR6]
  3891	034272	202 00 0 00 076054 		MOVEM	76000!54
  3892	034273	200 00 0 00 040600 		MOVE	[JSR RLITR7]
  3893	034274	202 00 0 00 076056 		MOVEM	76000!56
  3894
  3895	034275	200 00 0 00 040601 		MOVE	[JSR RLIERR]	;SETUP PAGE 0 FOR ERROR
  3896	034276	202 00 0 00 000056 		MOVEM	56
  3897	034277	202 00 0 00 000054 		MOVEM	54
  3898	034300	202 00 0 00 000052 		MOVEM	52
  3899	034301	202 00 0 00 000050 		MOVEM	50
  3900	034302	202 00 0 00 000046 		MOVEM	46
  3901	034303	202 00 0 00 000044 		MOVEM	44
  3902	034304	202 00 0 00 000042 		MOVEM	42
  3903
  3904	034305	7 004 20 0 00 011400 	RLINT1:	CONO	PI,LPICLR!LCHNOF!LPIOFF
  3905	034306	7 000 20 0 00 200000 		CONO	APR,LIOCLR
  3906	034307	254 00 0 00 034320 		JRST	RLINT2
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 94
DSKEAM	MAC	29-Mar-78 14:55		TEST INTERRUPT RELOCATION                                                          SEQ 0148

  3907					;*PAGE 0 INTERRUPT ERROR HANDLER
  3908
  3909	034310	000000	000000		RLIERR:	0
  3910	034311	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  3911	034312	7 000 24 0 00 000014 		CONI	APR,COR
  3912	034313	7 004 24 0 00 000013 		CONI	PI,ACT
  3913	034314	7 000 20 0 00 200000 		CONO	APR,LIOCLR
  3914	034315	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  3915						ERROR1	13,COR,ACT,PAGE 0 INTERRUPT ERROR,<COR=APR, ACT=PI>^
  3916												SALL
  3917	034316	036 13 0 00 040611 
  3918	034317	254 00 0 00 034305 		JRST	RLINT1
  3919
  3920					;*RELOCATED INTERRUPT MACRO'S
  3921
  3922					DEFINE	RLITRX	(PICHN,APRCHN)<
  3923					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  3924					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  3925					;*PAGE MAP RELOCATED TO PAGE 76.
  3926					;*INTERRUPT CHANNEL = APRCHN.
  3927					
  3928						CONO	PI,LCHNON!LPION!PICHN
  3929						CONO	APR,LSPAER!LEPAER!APRCHN
  3930						MOVEI	AC,1000
  3931						SOJG	AC,.
  3932						HALT	.		;IF NO INTERRUPT, FATAL
  3933					>
  3934
  3935					DEFINE	RLITRC	(ITRCHN)<
  3936					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = ITRCHN
  3937					
  3938						0			;RETURN, CHANNEL ITRCHN
  3939						CONO	APR,LDPAER!LCPAER
  3940						CONO	PI,LPICLR!LCHNOF!LPIOFF
  3941					>
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 95
DSKEAM	MAC	29-Mar-78 14:55		TEST INTERRUPT RELOCATION                                                          SEQ 0149

  3942	034320	7 010 20 0 00 020076 	RLINT2:	CONO	PAG,LTRPEN!76
  3943
  3944						LALL
  3945	034321				RLINT3:	RLITRX	(1,7)^
  3946					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  3947					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  3948					;*PAGE MAP RELOCATED TO PAGE 76.
  3949					;*INTERRUPT CHANNEL = 7
  3950
  3951	034321	7 004 20 0 00 002201 		CONO	PI,LCHNON!LPION!1
  3952	034322	7 000 20 0 00 110207 		CONO	APR,LSPAER!LEPAER!7
  3953	034323	201 07 0 00 001000 		MOVEI	AC,1000
  3954	034324	367 07 0 00 034324 		SOJG	AC,.
  3955	034325	254 04 0 00 034325 		HALT	.		;IF NO INTERRUPT, FATAL
  3956					^
  3957	034326				RLITR7:	RLITRC	(7)^
  3958					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 7
  3959
  3960	034326	000000	000000			0			;RETURN, CHANNEL 7
  3961	034327	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  3962	034330	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  3963					^
  3964
  3965	034331				RLINT4:	RLITRX	(2,6)^
  3966					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  3967					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  3968					;*PAGE MAP RELOCATED TO PAGE 76.
  3969					;*INTERRUPT CHANNEL = 6
  3970
  3971	034331	7 004 20 0 00 002202 		CONO	PI,LCHNON!LPION!2
  3972	034332	7 000 20 0 00 110206 		CONO	APR,LSPAER!LEPAER!6
  3973	034333	201 07 0 00 001000 		MOVEI	AC,1000
  3974	034334	367 07 0 00 034334 		SOJG	AC,.
  3975	034335	254 04 0 00 034335 		HALT	.		;IF NO INTERRUPT, FATAL
  3976					^
  3977	034336				RLITR6:	RLITRC	(6)^
  3978					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 6
  3979
  3980	034336	000000	000000			0			;RETURN, CHANNEL 6
  3981	034337	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  3982	034340	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  3983					^
  3984
  3985	034341				RLINT5:	RLITRX	(4,5)^
  3986					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  3987					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  3988					;*PAGE MAP RELOCATED TO PAGE 76.
  3989					;*INTERRUPT CHANNEL = 5
  3990
  3991	034341	7 004 20 0 00 002204 		CONO	PI,LCHNON!LPION!4
  3992	034342	7 000 20 0 00 110205 		CONO	APR,LSPAER!LEPAER!5
  3993	034343	201 07 0 00 001000 		MOVEI	AC,1000
  3994	034344	367 07 0 00 034344 		SOJG	AC,.
  3995	034345	254 04 0 00 034345 		HALT	.		;IF NO INTERRUPT, FATAL
  3996					^
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 95-1
DSKEAM	MAC	29-Mar-78 14:55		TEST INTERRUPT RELOCATION                                                          SEQ 0150

  3997	034346				RLITR5:	RLITRC	(5)^
  3998					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 5
  3999
  4000	034346	000000	000000			0			;RETURN, CHANNEL 5
  4001	034347	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  4002	034350	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4003					^
  4004
  4005	034351				RLINT6:	RLITRX	(10,4)^
  4006					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  4007					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  4008					;*PAGE MAP RELOCATED TO PAGE 76.
  4009					;*INTERRUPT CHANNEL = 4
  4010
  4011	034351	7 004 20 0 00 002210 		CONO	PI,LCHNON!LPION!10
  4012	034352	7 000 20 0 00 110204 		CONO	APR,LSPAER!LEPAER!4
  4013	034353	201 07 0 00 001000 		MOVEI	AC,1000
  4014	034354	367 07 0 00 034354 		SOJG	AC,.
  4015	034355	254 04 0 00 034355 		HALT	.		;IF NO INTERRUPT, FATAL
  4016					^
  4017	034356				RLITR4:	RLITRC	(4)^
  4018					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 4
  4019
  4020	034356	000000	000000			0			;RETURN, CHANNEL 4
  4021	034357	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  4022	034360	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4023					^
  4024
  4025	034361				RLINT7:	RLITRX	(20,3)^
  4026					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  4027					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  4028					;*PAGE MAP RELOCATED TO PAGE 76.
  4029					;*INTERRUPT CHANNEL = 3
  4030
  4031	034361	7 004 20 0 00 002220 		CONO	PI,LCHNON!LPION!20
  4032	034362	7 000 20 0 00 110203 		CONO	APR,LSPAER!LEPAER!3
  4033	034363	201 07 0 00 001000 		MOVEI	AC,1000
  4034	034364	367 07 0 00 034364 		SOJG	AC,.
  4035	034365	254 04 0 00 034365 		HALT	.		;IF NO INTERRUPT, FATAL
  4036					^
  4037	034366				RLITR3:	RLITRC	(3)^
  4038					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 3
  4039
  4040	034366	000000	000000			0			;RETURN, CHANNEL 3
  4041	034367	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  4042	034370	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4043					^
  4044
  4045	034371				RLINT8:	RLITRX	(40,2)^
  4046					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  4047					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  4048					;*PAGE MAP RELOCATED TO PAGE 76.
  4049					;*INTERRUPT CHANNEL = 2
  4050
  4051	034371	7 004 20 0 00 002240 		CONO	PI,LCHNON!LPION!40
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 95-2
DSKEAM	MAC	29-Mar-78 14:55		TEST INTERRUPT RELOCATION                                                          SEQ 0151

  4052	034372	7 000 20 0 00 110202 		CONO	APR,LSPAER!LEPAER!2
  4053	034373	201 07 0 00 001000 		MOVEI	AC,1000
  4054	034374	367 07 0 00 034374 		SOJG	AC,.
  4055	034375	254 04 0 00 034375 		HALT	.		;IF NO INTERRUPT, FATAL
  4056					^
  4057	034376				RLITR2:	RLITRC	(2)^
  4058					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 2
  4059
  4060	034376	000000	000000			0			;RETURN, CHANNEL 2
  4061	034377	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  4062	034400	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4063					^
  4064
  4065	034401				RLINT9:	RLITRX	(100,1)^
  4066					;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL.
  4067					;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM
  4068					;*PAGE MAP RELOCATED TO PAGE 76.
  4069					;*INTERRUPT CHANNEL = 1
  4070
  4071	034401	7 004 20 0 00 002300 		CONO	PI,LCHNON!LPION!100
  4072	034402	7 000 20 0 00 110201 		CONO	APR,LSPAER!LEPAER!1
  4073	034403	201 07 0 00 001000 		MOVEI	AC,1000
  4074	034404	367 07 0 00 034404 		SOJG	AC,.
  4075	034405	254 04 0 00 034405 		HALT	.		;IF NO INTERRUPT, FATAL
  4076					^
  4077	034406				RLITR1:	RLITRC	(1)^
  4078					;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 1
  4079
  4080	034406	000000	000000			0			;RETURN, CHANNEL 1
  4081	034407	7 000 20 0 00 060200 		CONO	APR,LDPAER!LCPAER
  4082	034410	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4083					^
  4084
  4085	034411	367 15 0 00 034305 		REPTLP	RLINT1
  4086
  4087	034412	7 010 20 0 00 020000 	RLINTA:	CONO	PAG,LTRPEN
  4088	034413	7 004 20 0 00 011400 		CONO	PI,LPICLR!LCHNOF!LPIOFF
  4089	034414	7 000 20 0 00 260200 		CONO	APR,LIOCLR!LDPAER!LCPAER
  4090
  4091	034415	200 07 0 00 040614 		MOVE	AC,[JSR ITRCH1]	;RESET INTERRUPTS
  4092	034416	202 07 0 00 000042 		MOVEM	AC,42
  4093	034417	7 000 20 0 00 121600 		CONO	APR,LAPRAL
  4094	034420	7 004 20 0 00 002300 		CONO	PI,LCHNON!LPION!LPICH1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 96
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE REFILL RELOCATION                                                        SEQ 0152

  4095					SUBTTL	TEST PAGE REFILL RELOCATION
  4096
  4097					;*BY PUTTING REFILL DATA IN PAGE 76.
  4098					;*AND RELOCATING EXEC BASE REGISTER
  4099
  4100					SALL
  4101			040615		T=SIXBTZ	RELOCATED EPMP REFILL PAGING
  4102					LALL
  4103
  4104						SUBTST^
  4105	034421	201 00 0 00 034421 		MOVEI	.
  4106	034422	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4107	034423	200 15 0 00 043737 	RLEPM0:	MOVE	REPT,RPEAT
  4108	034424	221 15 0 00 000012 		IMULI	REPT,^D10	;FSTCYL=10 PASSES, REL=100 PASSES
  4109	034425	205 05 0 00 777600 		MOVSI	INDX,-400/2
  4110	034426	201 07 0 00 000400 		MOVEI	AC,400
  4111
  4112	034427	201 11 0 05 043742 	RLEPM1:	MOVEI	AC2,PGWRTB(INDX)	;SETUP RELOCATION DATA
  4113	034430	242 11 0 00 777767 		LSH	AC2,-^D9
  4114	034431	271 11 0 00 740000 		ADDI	AC2,740000
  4115	034432	504 12 0 00 000011 		HRL	AC3,AC2
  4116	034433	201 11 0 05 043743 		MOVEI	AC2,PGWRTB+1(INDX)
  4117	034434	242 11 0 00 777767 		LSH	AC2,-^D9
  4118	034435	271 11 0 00 740000 		ADDI	AC2,740000
  4119	034436	540 12 0 00 000011 		HRR	AC3,AC2
  4120	034437	550 10 0 00 000007 		HRRZ	AC1,AC		;SETUP PAGE MAP ADDRESS
  4121	034440	242 10 0 00 777777 		LSH	AC1,-1
  4122	034441	202 12 0 10 076000 		MOVEM	AC3,76000(AC1)	;PUT MAPPING DATA IN PAGE 76.
  4123	034442	271 07 0 00 000002 		ADDI	AC,2
  4124	034443	350 00 0 00 000005 		AOS	INDX
  4125	034444	253 05 0 00 034427 		AOBJN	INDX,RLEPM1
  4126
  4127	034445	7 010 20 0 00 020000 	RLEPM2:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4128	034446	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4129	034447	402 00 0 00 043742 		SETZM	PGWRTB		;CLEAR DATA AREA
  4130	034450	200 07 0 00 040176 		MOVE	AC,[PGWRTB,,PGWRTB+1]
  4131	034451	251 07 0 00 044342 		BLT	AC,PGWRTB+400
  4132	034452	205 05 0 00 777400 		MOVSI	INDX,-400
  4133	034453	201 07 0 00 000400 		MOVEI	AC,400
  4134	034454	7 010 20 0 00 020076 		CONO	PAG,LTRPEN!76	;RELOC EXEC BASE REG
  4135	034455	7 010 14 0 00 040411 		DATAO	PAG,[LLDUSB,,400076]
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 97
DSKEAM	MAC	29-Mar-78 14:55		TEST PAGE REFILL RELOCATION                                                        SEQ 0153

  4136	034456	200 14 0 00 000007 	RLEPM3:	MOVE	COR,AC		;SETUP DATA
  4137	034457	242 14 0 00 000011 		LSH	COR,^D9
  4138	034460	661 14 0 00 777777 		TLO	COR,-1
  4139	034461	621 14 0 14 000000 		TLZ	COR,(COR)
  4140	034462	201 10 0 05 043742 		MOVEI	AC1,PGWRTB(INDX)	;SETUP PAGING ADDRESS
  4141	034463	405 10 0 00 000777 		ANDI	AC1,777
  4142	034464	271 10 0 14 000000 		ADDI	AC1,(COR)
  4143	034465	202 14 0 10 000000 		MOVEM	COR,(AC1)	;MAKE PAGED MEMORY WRITE
  4144	034466	200 13 0 10 000000 		MOVE	ACT,(AC1)	;PAGED READ VERIFY
  4145	034467	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  4146	034470	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4147	034471	312 14 0 00 000013 		CAME	COR,ACT
  4148						ERROR	RLEPM3-2,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^
  4149												SALL
  4150	034472	036 13 0 00 040622 
  4151	034473	035 00 0 00 034454 		ERLOOP	RLEPM3-2		;IF ERROR, LOOP TO RLEPM3-2
  4152	034474	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  4153	034475	312 14 0 00 000013 		CAME	COR,ACT
  4154						ERROR	RLEPM3-2,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTY^
  4155	034476	036 13 0 00 040625 
  4156	034477	035 00 0 00 034454 		ERLOOP	RLEPM3-2		;IF ERROR, LOOP TO RLEPM3-2
  4157	034500	350 00 0 00 000007 		AOS	AC
  4158	034501	253 05 0 00 034454 		AOBJN	INDX,RLEPM3-2
  4159
  4160	034502	7 010 20 0 00 020000 	RLEPM4:	CONO	PAG,LTRPEN
  4161	034503	205 05 0 00 777400 		MOVSI	INDX,-400	;CHECK DATA BLOCK
  4162	034504	201 07 0 00 000400 		MOVEI	AC,400		;USING DIRECT ADDRESSING
  4163	034505	200 14 0 00 000007 		MOVE	COR,AC
  4164	034506	242 14 0 00 000011 		LSH	COR,^D9		;SETUP COMPARE WORD
  4165	034507	661 14 0 00 777777 		TLO	COR,-1
  4166	034510	621 14 0 14 000000 		TLZ	COR,(COR)
  4167	034511	200 13 0 05 043742 		MOVE	ACT,PGWRTB(INDX)
  4168	034512	312 14 0 00 000013 		CAME	COR,ACT
  4169						ERROR	RLEPM2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^
  4170	034513	036 13 0 00 040630 
  4171	034514	035 00 0 00 034445 		ERLOOP	RLEPM2		;IF ERROR, LOOP TO RLEPM2
  4172	034515	350 00 0 00 000007 		AOS	AC
  4173	034516	253 05 0 00 034505 		AOBJN	INDX,RLEPM4+3
  4174
  4175	034517	367 15 0 00 034425 		REPTLP	RLEPM0+2
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 98
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0154

  4176					SUBTTL	INSTRUCTION PAGE FAIL TESTING
  4177
  4178					;*TEST BLOCK TRANSFER PAGE FAIL
  4179					;*SETUP 5 WORD BLT ACROSS PAGE BOUNDRY
  4180					;*FIRST PAGE DATA RELOCATION DATA IN PAGE MAP
  4181					;*SECOND PAGE DATA RELOCATION DATA NOT IN PAGE MAP
  4182					;*PERFORM BLT
  4183					;*SHOULD PAGE FAIL AFTER TRANSFERING 3 WORDS.
  4184					;*TEST PAGE FAIL, BLT AC, ETC.
  4185					;*REDO BLT, ON PAGE FAIL SETUP 2ND PAGE RELOCATION DATA AND CONTINUE BLT.
  4186					;*TEST FOR PROPER COMPLETION.
  4187
  4188					SALL
  4189			040633		T=SIXBTZ	BLT PAGE FAIL
  4190					LALL
  4191
  4192						SUBTST^
  4193	034520	201 00 0 00 034520 		MOVEI	.
  4194	034521	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4195	034522	200 15 0 00 043737 	PFBLT0:	MOVE	REPT,RPEAT
  4196	034523	402 00 0 00 000200 		SETZM	200		;CLEAR AND SETUP PAGE MAP
  4197	034524	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4198	034525	251 07 0 00 000417 		BLT	AC,417
  4199	034526	205 07 0 00 740075 		MOVSI	AC,740000!75
  4200	034527	202 07 0 00 000200 		MOVEM	AC,200		;ADDRESSES 400XXX RELOCATE TO PAGE 75.
  4201	034530	201 07 0 00 034552 		MOVEI	AC,PFBLT3
  4202	034531	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4203
  4204	034532	403 14 0 00 075775 	PFBLT1:	SETZB	COR,75775	;CLEAR BLT DATA AREA
  4205	034533	402 00 0 00 075776 		SETZM	75776
  4206	034534	402 00 0 00 075777 		SETZM	75777
  4207	034535	402 00 0 00 076000 		SETZM	76000
  4208	034536	402 00 0 00 076001 		SETZM	76001
  4209	034537	402 00 0 00 076002 		SETZM	76002
  4210	034540	476 00 0 00 000500 		SETOM	LEUPFW
  4211	034541	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4212	034542	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4213	034543	254 02 1 00 034544 		JRSTF	@.+1
  4214	034544	000000	034545			0,,.+1
  4215	034545	476 00 0 00 400775 		SETOM	400775		;SET FIRST BLT ADDRESS
  4216	034546	200 13 0 00 040636 		MOVE	ACT,[400775,,400776]
  4217
  4218	034547	251 13 0 00 401001 	PFBLT2:	BLT	ACT,401001	;DO PAGED BLT
  4219						ERROR1	13,COR,ACT,TRAP FAILED,<ACT=BLT AC>^
  4220												SALL
  4221	034550	036 13 0 00 040641 
  4222	034551	254 00 0 00 034532 		JRST	PFBLT1		;FATAL
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 99
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0155

  4223					;*BLT PAGE FAIL RETURN
  4224
  4225	034552	200 14 0 00 040644 	PFBLT3:	MOVE	COR,[400777,,401000]
  4226	034553	312 14 0 00 000013 		CAME	COR,ACT
  4227						ERROR1	13,COR,ACT,BLT AC WRONG,^
  4228	034554	036 13 0 00 040650 
  4229
  4230	034555	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4231	034556	200 14 0 00 040653 		MOVE	COR,[011000,,401000]
  4232	034557	312 14 0 00 000013 		CAME	COR,ACT
  4233						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4234	034560	036 13 0 00 040654 
  4235
  4236	034561	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4237	034562	200 14 0 00 040657 		MOVE	COR,[0,,PFBLT2]
  4238	034563	312 14 0 00 000013 		CAME	COR,ACT
  4239						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4240	034564	036 13 0 00 040664 
  4241
  4242	034565	476 00 0 00 000014 		SETOM	COR
  4243	034566	200 13 0 00 075775 		MOVE	ACT,75775
  4244	034567	312 14 0 00 000013 		CAME	COR,ACT
  4245						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400775^
  4246	034570	036 13 0 00 040674 
  4247
  4248	034571	200 13 0 00 075776 		MOVE	ACT,75776
  4249	034572	312 14 0 00 000013 		CAME	COR,ACT
  4250						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400776^
  4251	034573	036 13 0 00 040701 
  4252
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 100
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0156

  4253	034574	200 13 0 00 075777 		MOVE	ACT,75777
  4254	034575	312 14 0 00 000013 		CAME	COR,ACT
  4255						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400777^
  4256	034576	036 13 0 00 040706 
  4257
  4258	034577	402 00 0 00 000014 		SETZM	COR
  4259	034600	200 13 0 00 076000 		MOVE	ACT,76000
  4260	034601	312 14 0 00 000013 		CAME	COR,ACT
  4261						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 401000^
  4262	034602	036 13 0 00 040713 
  4263
  4264	034603	200 13 0 00 076001 		MOVE	ACT,76001
  4265	034604	312 14 0 00 000013 		CAME	COR,ACT
  4266						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 401001^
  4267	034605	036 13 0 00 040720 
  4268
  4269	034606	200 13 0 00 076002 		MOVE	ACT,76002
  4270	034607	312 14 0 00 000013 		CAME	COR,ACT
  4271						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 401002^
  4272	034610	036 13 0 00 040725 
  4273
  4274	034611	035 00 0 00 034532 		ERLOOP	PFBLT1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 101
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0157

  4275					;*TEST BLT PAGE FAIL CONTINUE
  4276
  4277	034612	201 07 0 00 034662 	PFBLT4:	MOVEI	AC,PFBLT5
  4278	034613	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP PAGE FAIL TRAP
  4279	034614	402 00 0 00 075775 		SETZM	75775		;CLEAR DATA AREA
  4280	034615	402 00 0 00 075776 		SETZM	75776
  4281	034616	402 00 0 00 075777 		SETZM	75777
  4282	034617	402 00 0 00 076000 		SETZM	76000
  4283	034620	402 00 0 00 076001 		SETZM	76001
  4284	034621	402 00 0 00 076002 		SETZM	76002
  4285	034622	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4286	034623	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4287	034624	254 02 1 00 034625 		JRSTF	@.+1
  4288	034625	000000	034626			0,,.+1
  4289	034626	476 00 0 00 400775 		SETOM	400775		;SET FIRST BLT ADDRESS
  4290	034627	200 07 0 00 040636 		MOVE	AC,[400775,,400776]
  4291
  4292	034630	251 07 0 00 401001 		BLT	AC,401001	;PERFORM PAGED BLT
  4293
  4294					;*BLT SHOULD PAGE FAIL
  4295					;*PAGE MAP IS THEN SETUP
  4296					;*AND BLT CONTINUED
  4297
  4298	034631	476 00 0 00 000014 		SETOM	COR
  4299	034632	200 13 0 00 075775 		MOVE	ACT,75775
  4300	034633	312 14 0 00 000013 		CAME	COR,ACT
  4301						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400775^
  4302	034634	036 13 0 00 040674 
  4303
  4304	034635	200 13 0 00 075776 		MOVE	ACT,75776
  4305	034636	312 14 0 00 000013 		CAME	COR,ACT
  4306						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400776^
  4307	034637	036 13 0 00 040701 
  4308
  4309	034640	200 13 0 00 075777 		MOVE	ACT,75777
  4310	034641	312 14 0 00 000013 		CAME	COR,ACT
  4311						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 400777^
  4312	034642	036 13 0 00 040706 
  4313
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 102
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0158

  4314	034643	200 13 0 00 076000 		MOVE	ACT,76000
  4315	034644	312 14 0 00 000013 		CAME	COR,ACT
  4316						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 401000^
  4317	034645	036 13 0 00 040713 
  4318
  4319	034646	200 13 0 00 076001 		MOVE	ACT,76001
  4320	034647	312 14 0 00 000013 		CAME	COR,ACT
  4321						ERROR1	13,COR,ACT,BLT DATA WRONG,ADR 401001^
  4322	034650	036 13 0 00 040720 
  4323
  4324	034651	402 00 0 00 000014 		SETZM	COR
  4325	034652	200 13 0 00 076002 		MOVE	ACT,76002
  4326	034653	312 14 0 00 000013 		CAME	COR,ACT
  4327						ERROR1	13,COR,ACT,BLT WENT TOO FAR,ADR 401002^
  4328	034654	036 13 0 00 040733 
  4329
  4330	034655	035 00 0 00 034552 		ERLOOP	PFBLT3
  4331
  4332	034656	367 15 0 00 034523 		REPTLP	PFBLT0+1
  4333
  4334	034657	200 07 0 00 043736 		MOVE	AC,PGFAIL
  4335	034660	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;RESET PAGE FAIL TRAP
  4336	034661	254 00 0 00 034666 		JRST	PFBYT0-2
  4337
  4338					;*ON PAGE FAIL, SETUP NEXT PAGE FOR BLT
  4339
  4340	034662	200 10 0 00 040736 	PFBLT5:	MOVE	AC1,[740000!75,,740000!76]
  4341	034663	202 10 0 00 000200 		MOVEM	AC1,200		;SETUP PAGE MAP
  4342	034664	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  4343	034665	254 02 1 00 000501 		JRSTF	@LPFWPC		;RETURN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 103
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0159

  4344					;*TEST BYTE PAGE FAIL
  4345					;*FIRST TEST WITH BYTE DATA IN UNMAPPED PAGE
  4346					;*THEN TEST WITH BYTE POINTER IN UNMAPPED PAGE.
  4347
  4348					SALL
  4349			040737		T=SIXBTZ	BYTE PAGE FAIL
  4350					LALL
  4351
  4352						SUBTST^
  4353	034666	201 00 0 00 034666 		MOVEI	.
  4354	034667	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4355	034670	200 15 0 00 043737 	PFBYT0:	MOVE	REPT,RPEAT
  4356	034671	402 00 0 00 000200 		SETZM	200		;CLEAR PAGE MAP
  4357	034672	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4358	034673	251 07 0 00 000417 		BLT	AC,417
  4359	034674	201 07 0 00 034711 		MOVEI	AC,PFBYT3
  4360	034675	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4361
  4362	034676	402 00 0 00 000014 	PFBYT1:	SETZM	COR		;SETUP DATA AREA AND AC
  4363	034677	476 00 0 00 076000 		SETOM	76000
  4364	034700	476 00 0 00 000500 		SETOM	LEUPFW
  4365	034701	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4366	034702	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4367	034703	254 02 1 00 034704 		JRSTF	@.+1
  4368	034704	000000	034705			0,,.+1
  4369	034705	200 13 0 00 040742 		MOVE	ACT,[POINT 6,400000]
  4370
  4371	034706	134 14 0 00 000013 	PFBYT2:	ILDB	COR,ACT		;PERFORM BYTE INSTRUCTION
  4372						ERROR1	13,COR,ACT,ILDB TRAP FAILED,<ACT=POINTER, COR=BYTE AC>^
  4373												SALL
  4374	034707	036 13 0 00 040753 
  4375	034710	254 00 0 00 034676 		JRST	PFBYT1		;FATAL
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 104
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0160

  4376					;*ILDB PAGE FAIL RETURN
  4377					;*BYTE POINTER SHOULD HAVE BEEN INCREMENTED
  4378					;*PAGE FAIL SHOULD HAVE OCCURRED WHEN DATA WAS FETCHED.
  4379
  4380	034711	332 00 0 00 000014 	PFBYT3:	SKIPE	COR
  4381						ERROR1	13,COR,ACT,ILDB CHANGED BYTE AC,<ACT=POINTER, COR=BYTE AC>^
  4382	034712	036 13 0 00 040762 
  4383	034713	200 14 0 00 040765 		MOVE	COR,[POINT 6,400000,5]
  4384	034714	312 14 0 00 000013 		CAME	COR,ACT
  4385						ERROR1	13,COR,ACT,ILDB POINTER WRONG,^
  4386	034715	036 13 0 00 040772 
  4387	034716	476 00 0 00 000014 		SETOM	COR
  4388	034717	200 13 0 00 076000 		MOVE	ACT,76000
  4389	034720	312 14 0 00 000013 		CAME	COR,ACT
  4390						ERROR1	13,COR,ACT,ILDB MODIFIED BYTE SOURCE,ADR 400000^
  4391	034721	036 13 0 00 041004 
  4392	034722	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4393	034723	200 14 0 00 037672 		MOVE	COR,[1000,,400000]
  4394	034724	312 14 0 00 000013 		CAME	COR,ACT
  4395						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4396	034725	036 13 0 00 041007 
  4397	034726	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4398	034727	200 14 0 00 041012 		MOVE	COR,[BIS,,PFBYT2]
  4399	034730	312 14 0 00 000013 		CAME	COR,ACT
  4400						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4401	034731	036 13 0 00 041013 
  4402
  4403	034732	035 00 0 00 034676 		ERLOOP	PFBYT1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 105
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0161

  4404					;*TEST DEPOSIT BYTE PAGE FAIL
  4405
  4406	034733	201 07 0 00 034746 	PFBYT4:	MOVEI	AC,PFBYT6
  4407	034734	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4408	034735	402 00 0 00 000014 		SETZM	COR
  4409	034736	476 00 0 00 076000 		SETOM	76000		;SETUP DATA
  4410	034737	476 00 0 00 000500 		SETOM	LEUPFW
  4411	034740	254 02 1 00 034741 		JRSTF	@.+1
  4412	034741	000000	034742			0,,.+1
  4413	034742	200 13 0 00 040742 		MOVE	ACT,[POINT 6,400000]
  4414
  4415	034743	136 14 0 00 000013 	PFBYT5:	IDPB	COR,ACT		;PERFORM DEPOSIT BYTE
  4416						ERROR1	13,COR,ACT,IDPB TRAP FAILED,<ACT=POINTER, COR=BYTE AC>^
  4417	034744	036 13 0 00 041021 
  4418	034745	254 00 0 00 034733 		JRST	PFBYT4		;FATAL
  4419
  4420					;*IDPB PAGE FAIL RETURN
  4421
  4422	034746	332 00 0 00 000014 	PFBYT6:	SKIPE	COR
  4423						ERROR1	13,COR,ACT,IDPB CHANGED BYTE AC,<ACT=POINTER, COR=BYTE AC>^
  4424	034747	036 13 0 00 041030 
  4425
  4426	034750	200 14 0 00 040765 		MOVE	COR,[POINT 6,400000,5]
  4427	034751	312 14 0 00 000013 		CAME	COR,ACT
  4428						ERROR1	13,COR,ACT,IDPB POINTER WRONG,^
  4429	034752	036 13 0 00 041037 
  4430
  4431	034753	476 00 0 00 000014 		SETOM	COR
  4432	034754	200 13 0 00 076000 		MOVE	ACT,76000
  4433	034755	312 14 0 00 000013 		CAME	COR,ACT
  4434						ERROR1	13,COR,ACT,IDPB MODIFIED BYTE DESTINATION,ADR 400000^
  4435	034756	036 13 0 00 041050 
  4436
  4437	034757	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4438	034760	200 14 0 00 037672 		MOVE	COR,[1000,,400000]
  4439	034761	312 14 0 00 000013 		CAME	COR,ACT
  4440						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4441	034762	036 13 0 00 041007 
  4442
  4443	034763	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4444	034764	200 14 0 00 041053 		MOVE	COR,[BIS,,PFBYT5]
  4445	034765	312 14 0 00 000013 		CAME	COR,ACT
  4446						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4447	034766	036 13 0 00 041013 
  4448
  4449	034767	035 00 0 00 034733 		ERLOOP	PFBYT4
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 106
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0162

  4450					;*TEST BYTE POINTER FETCH PAGE FAIL
  4451					;*BYTE POINTER IN PAGED AREA WITH PAGE MAP CLEARED
  4452					;*THEREFORE PAGE FAIL SHOULD OCCUR ON POINTER FETCH
  4453					;*AND POINTER SHOULD NOT BE INCREMENTED.
  4454
  4455	034770	201 07 0 00 035005 	PFBYT7:	MOVEI	AC,PFBYT9
  4456	034771	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4457	034772	402 00 0 00 000014 		SETZM	COR
  4458	034773	200 13 0 00 041054 		MOVE	ACT,[POINT 6,COR]
  4459	034774	202 13 0 00 076000 		MOVEM	ACT,76000	;SETUP POINTER
  4460	034775	476 00 0 00 000500 		SETOM	LEUPFW
  4461	034776	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4462	034777	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4463	035000	254 02 1 00 035001 		JRSTF	@.+1
  4464	035001	000000	035002			0,,.+1
  4465
  4466	035002	134 14 0 00 400000 	PFBYT8:	ILDB	COR,400000	;PERFORM BYTE INSTRUCTION
  4467						ERROR1	13,COR,ACT,POINTER FETCH TRAP FAILED,ADR 400000^
  4468	035003	036 13 0 00 041062 
  4469	035004	254 00 0 00 034770 		JRST	PFBYT7		;FATAL
  4470
  4471					;*POINTER FETCH PAGE FAIL RETURN
  4472
  4473	035005	332 00 0 00 000014 	PFBYT9:	SKIPE	COR
  4474						ERROR1	13,COR,ACT,POINTER FETCH MODIFIED BYTE AC,^
  4475	035006	036 13 0 00 041073 
  4476
  4477	035007	200 14 0 00 041054 		MOVE	COR,[POINT 6,COR]
  4478	035010	312 14 0 00 000013 		CAME	COR,ACT
  4479						ERROR1	13,COR,ACT,AC 'ACT' MODIFIED,^
  4480	035011	036 13 0 00 041101 
  4481
  4482	035012	200 13 0 00 076000 		MOVE	ACT,76000
  4483	035013	312 14 0 00 000013 		CAME	COR,ACT
  4484						ERROR1	13,COR,ACT,POINTER WRONG,ADR 400000^
  4485	035014	036 13 0 00 041107 
  4486
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 107
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0163

  4487	035015	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4488	035016	200 14 0 00 041112 		MOVE	COR,[011000,,400000]
  4489	035017	312 14 0 00 000013 		CAME	COR,ACT
  4490						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4491	035020	036 13 0 00 041007 
  4492
  4493	035021	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4494	035022	200 14 0 00 041113 		MOVE	COR,[0,,PFBYT8]
  4495	035023	312 14 0 00 000013 		CAME	COR,ACT
  4496						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4497	035024	036 13 0 00 041013 
  4498
  4499	035025	035 00 0 00 034770 		ERLOOP	PFBYT7
  4500
  4501	035026	367 15 0 00 034671 		REPTLP	PFBYT0+1
  4502
  4503	035027	200 07 0 00 043736 		MOVE	AC,PGFAIL
  4504	035030	202 00 0 00 000502 		MOVEM	LPGFTR		;RESET PAGE FAIL
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 108
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0164

  4505					;*TEST DOUBLE MOVE PAGE FAIL
  4506					;*FIRST PAGE FAIL ON FIRST OPERAND FETCH
  4507					;*OPERANDS FETCHED FROM PAGED AREA WITH PAGE MAP CLEAR.
  4508
  4509					SALL
  4510			041114		T=SIXBTZ	DOUBLE MOVE PAGE FAIL
  4511					LALL
  4512
  4513						SUBTST^
  4514	035031	201 00 0 00 035031 		MOVEI	.
  4515	035032	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4516	035033	200 15 0 00 043737 	PFDMV0:	MOVE	REPT,RPEAT
  4517	035034	402 00 0 00 000200 		SETZM	200		;CLEAR PAGE MAP
  4518	035035	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4519	035036	251 07 0 00 000417 		BLT	AC,417
  4520	035037	201 07 0 00 035054 		MOVEI	AC,PFDMV3
  4521	035040	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4522	035041	403 13 0 00 076000 	PFDMV1:	SETZB	ACT,76000
  4523	035042	403 14 0 00 076001 		SETZB	COR,76001
  4524	035043	477 07 0 00 000010 		SETOB	AC,AC1		;SETUP OPERANDS
  4525	035044	476 00 0 00 000500 		SETOM	LEUPFW
  4526	035045	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4527	035046	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4528	035047	254 02 1 00 035050 		JRSTF	@.+1
  4529	035050	000000	035051			0,,.+1
  4530
  4531	035051	120 07 0 00 400000 	PFDMV2:	DMOVE	AC,400000	;PERFORM DOUBLE MOVE
  4532						ERROR1	13,COR,ACT,TRAP FAILED,ADR 400000^
  4533												SALL
  4534	035052	036 13 0 00 041120 
  4535	035053	254 00 0 00 035041 		JRST	PFDMV1		;FATAL
  4536
  4537					;*PAGE FAIL RETURN
  4538
  4539	035054	476 00 0 00 000014 	PFDMV3:	SETOM	COR
  4540	035055	200 13 0 00 000007 		MOVE	ACT,AC
  4541	035056	312 14 0 00 000013 		CAME	COR,ACT
  4542						ERROR1	13,COR,ACT,DMOVE MODIFIED AC,FETCH FROM 400000^
  4543	035057	036 13 0 00 041131 
  4544	035060	200 13 0 00 000010 		MOVE	ACT,AC1
  4545	035061	312 14 0 00 000013 		CAME	COR,ACT
  4546						ERROR1	13,COR,ACT,DMOVE MODIFIED AC1,FETCH FROM 400001^
  4547	035062	036 13 0 00 041143 
  4548
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 109
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0165

  4549	035063	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4550	035064	200 14 0 00 037672 		MOVE	COR,[1000,,400000]
  4551	035065	312 14 0 00 000013 		CAME	COR,ACT
  4552						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4553	035066	036 13 0 00 041146 
  4554
  4555	035067	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4556	035070	200 14 0 00 041151 		MOVE	COR,[0,,PFDMV2]
  4557	035071	312 14 0 00 000013 		CAME	COR,ACT
  4558						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4559	035072	036 13 0 00 041152 
  4560
  4561	035073	035 00 0 00 035041 		ERLOOP	PFDMV1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 110
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0166

  4562					;*PAGE FAIL DOUBLE MOVE ON SECOND WORD
  4563					;*DATA FOR FIRST OPERAND IN PAGE WITH RELOCATION DATA IN PAGE MAP.
  4564					;*DATA FOR SECOND OPERAND ACROSS PAGE BOUNDRY
  4565					;*PAGE MAP CLEAR FOR THAT PAGE.
  4566
  4567	035074	201 07 0 00 035114 	PFDMV4:	MOVEI	AC,PFDMV6
  4568	035075	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4569	035076	205 07 0 00 740075 		MOVSI	AC,740000!75
  4570	035077	202 07 0 00 000200 		MOVEM	AC,200		;SETUP 1ST WORD PAGE MAP
  4571	035100	403 14 0 00 000013 		SETZB	COR,ACT
  4572	035101	402 00 0 00 075777 		SETZM	75777		;SETUP OPERANDS
  4573	035102	402 00 0 00 076000 		SETZM	76000
  4574	035103	477 07 0 00 000010 		SETOB	AC,AC1
  4575	035104	476 00 0 00 000500 		SETOM	LEUPFW
  4576	035105	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4577	035106	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4578	035107	254 02 1 00 035110 		JRSTF	@.+1
  4579	035110	000000	035111			0,,.+1
  4580
  4581	035111	120 07 0 00 400777 	PFDMV5:	DMOVE	AC,400777	;PERFORM DOUBLE MOVE
  4582						ERROR1	13,COR,ACT,TRAP FAILED,^
  4583	035112	036 13 0 00 041155 
  4584	035113	254 00 0 00 035074 		JRST	PFDMV4		;FATAL
  4585
  4586					;*PAGE FAIL RETURN
  4587
  4588	035114	476 00 0 00 000014 	PFDMV6:	SETOM	COR
  4589	035115	200 13 0 00 000007 		MOVE	ACT,AC
  4590	035116	312 14 0 00 000013 		CAME	COR,ACT
  4591						ERROR1	13,COR,ACT,DMOVE MODIFIED AC,FETCH FROM 400777^
  4592	035117	036 13 0 00 041163 
  4593
  4594	035120	200 13 0 00 000010 		MOVE	ACT,AC1
  4595	035121	312 14 0 00 000013 		CAME	COR,ACT
  4596						ERROR1	13,COR,ACT,DMOVE MODIFIED AC1,FETCH FROM 401000^
  4597	035122	036 13 0 00 041171 
  4598
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 111
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0167

  4599	035123	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4600	035124	200 14 0 00 041174 		MOVE	COR,[1000,,401000]
  4601	035125	312 14 0 00 000013 		CAME	COR,ACT
  4602						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4603	035126	036 13 0 00 041146 
  4604
  4605	035127	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4606	035130	200 14 0 00 041175 		MOVE	COR,[0,,PFDMV5]
  4607	035131	312 14 0 00 000013 		CAME	COR,ACT
  4608						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4609	035132	036 13 0 00 041152 
  4610
  4611	035133	035 00 0 00 035074 		ERLOOP	PFDMV4
  4612
  4613	035134	367 15 0 00 035034 		REPTLP	PFDMV0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 112
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0168

  4614					;*TEST DOUBLE MOVE TO MEMORY PAGE FAIL
  4615					;*FIRST TEST WITH DATA DESTINATION ADDRESSES IN A PAGED AREA
  4616					;*WITH THE PAGE MAP CLEAR.
  4617
  4618					SALL
  4619			041176		T=SIXBTZ	DBL MOVE TO MEM PAGE FAIL
  4620					LALL
  4621
  4622						SUBTST^
  4623	035135	201 00 0 00 035135 		MOVEI	.
  4624	035136	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4625	035137	200 15 0 00 043737 	PFDMM0:	MOVE	REPT,RPEAT
  4626	035140	402 00 0 00 000200 		SETZM	200		;CLEAR PAGE MAP
  4627	035141	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4628	035142	251 07 0 00 000417 		BLT	AC,417
  4629	035143	201 07 0 00 035162 		MOVEI	AC,PFDMM3
  4630	035144	202 07 0 00 000502 		MOVEM	AC,LPGFTR	;SETUP FOR PAGE FAIL
  4631
  4632	035145	7 010 20 0 00 020000 	PFDMM1:	CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4633	035146	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4634	035147	403 13 0 00 076000 		SETZB	ACT,76000
  4635	035150	403 14 0 00 076001 		SETZB	COR,76001	;SETUP OPERANDS
  4636	035151	477 07 0 00 000010 		SETOB	AC,AC1
  4637	035152	476 00 0 00 000500 		SETOM	LEUPFW
  4638	035153	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4639	035154	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4640	035155	254 02 1 00 035156 		JRSTF	@.+1
  4641	035156	000000	035157			0,,.+1
  4642
  4643	035157	124 07 0 00 400000 	PFDMM2:	DMOVEM	AC,400000	;PERFORM DOUBLE MOVE
  4644						ERROR1	13,COR,ACT,TRAP FAILED,ADR 400000^
  4645												SALL
  4646	035160	036 13 0 00 041203 
  4647	035161	254 00 0 00 035145 		JRST	PFDMM1		;FATAL
  4648
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 113
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0169

  4649					;*PAGE FAIL RETURN
  4650
  4651	035162	402 00 0 00 000014 	PFDMM3:	SETZM	COR
  4652	035163	200 13 0 00 076000 		MOVE	ACT,76000
  4653	035164	312 14 0 00 000013 		CAME	COR,ACT
  4654						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC DESTINATION,ADR 400000^
  4655	035165	036 13 0 00 041214 
  4656
  4657	035166	200 13 0 00 076001 		MOVE	ACT,76001
  4658	035167	312 14 0 00 000013 		CAME	COR,ACT
  4659						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC1 DESTINATION,ADR 400001^
  4660	035170	036 13 0 00 041227 
  4661
  4662	035171	476 00 0 00 000014 		SETOM	COR
  4663	035172	200 13 0 00 000007 		MOVE	ACT,AC
  4664	035173	312 14 0 00 000013 		CAME	COR,ACT
  4665						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC,^
  4666	035174	036 13 0 00 041236 
  4667
  4668	035175	200 13 0 00 000010 		MOVE	ACT,AC1
  4669	035176	312 14 0 00 000013 		CAME	COR,ACT
  4670						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC1,^
  4671	035177	036 13 0 00 041245 
  4672
  4673	035200	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4674	035201	200 14 0 00 041250 		MOVE	COR,[011000,,400001]	;KS-10 DIFF FROM KL, KL =011000,,400000
  4675	035202	312 14 0 00 000013 		CAME	COR,ACT
  4676						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4677	035203	036 13 0 00 041251 
  4678
  4679	035204	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4680	035205	200 14 0 00 041254 		MOVE	COR,[0,,PFDMM2]
  4681	035206	312 14 0 00 000013 		CAME	COR,ACT
  4682						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4683	035207	036 13 0 00 041255 
  4684
  4685	035210	035 00 0 00 035145 		ERLOOP	PFDMM1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 114
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0170

  4686					;*TEST DOUBLE MOVE TO MEMORY PAGE FAIL
  4687					;*PAGE FAIL ON SECOND WORD.
  4688					;*PAGE MAP SETUP SO FIRST OPERAND IS STORED IN PAGE
  4689					;*WITH RELOCATION DATA IN PAGE MAP.
  4690					;*SECOND OPERAND STORE IS ACROSS PAGE BOUNDRY WITH
  4691					;*PAGE MAP CLEAR FOR THAT PAGE.
  4692
  4693	035211	201 07 0 00 035230 	PFDMM4:	MOVEI	AC,PFDMM6
  4694	035212	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  4695	035213	205 07 0 00 740075 		MOVSI	AC,740000!75
  4696	035214	202 07 0 00 000200 		MOVEM	AC,200		;SETUP 1ST WORD PAGE MAP
  4697	035215	402 00 0 00 075777 		SETZM	75777
  4698	035216	402 00 0 00 076000 		SETZM	76000
  4699	035217	477 07 0 00 000010 		SETOB	AC,AC1
  4700	035220	476 00 0 00 000500 		SETOM	LEUPFW
  4701	035221	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;CLEAR AM, ETC.
  4702	035222	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4703	035223	254 02 1 00 035224 		JRSTF	@.+1
  4704	035224	000000	035225			0,,.+1
  4705
  4706	035225	124 07 0 00 400777 	PFDMM5:	DMOVEM	AC,400777	;PERFORM DOUBLE MOVE
  4707						ERROR1	13,COR,ACT,TRAP FAILED,2ND WORD DMOVEM^
  4708	035226	036 13 0 00 041263 
  4709	035227	254 00 0 00 035211 		JRST	PFDMM4		;FATAL
  4710
  4711					;*PAGE FAIL RETURN
  4712
  4713	035230	402 00 0 00 000014 	PFDMM6:	SETZM	COR
  4714	035231	200 13 0 00 075777 		MOVE	ACT,75777
  4715	035232	312 14 0 00 000013 		CAME	COR,ACT
  4716						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC DESTINATION,ADR 400777^
  4717	035233	036 13 0 00 041266 
  4718
  4719	035234	402 00 0 00 000014 		SETZM	COR
  4720	035235	200 13 0 00 076000 		MOVE	ACT,76000
  4721	035236	312 14 0 00 000013 		CAME	COR,ACT
  4722						ERROR1	13,COR,ACT,DMOVEM MODIFIED AC1 DESTINATION,ADR 401000^
  4723	035237	036 13 0 00 041271 
  4724
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 115
DSKEAM	MAC	29-Mar-78 14:55		INSTRUCTION PAGE FAIL TESTING                                                      SEQ 0171

  4725	035240	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4726	035241	200 14 0 00 040653 		MOVE	COR,[011000,,401000]
  4727	035242	312 14 0 00 000013 		CAME	COR,ACT
  4728						ERROR1	13,COR,ACT,PAGE FAIL WORD WRONG,^
  4729	035243	036 13 0 00 041251 
  4730
  4731	035244	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4732	035245	200 14 0 00 041274 		MOVE	COR,[0,,PFDMM5]
  4733	035246	312 14 0 00 000013 		CAME	COR,ACT
  4734						ERROR1	13,COR,ACT,<SAVED FLAGS,,PC WRONG>,^
  4735	035247	036 13 0 00 041255 
  4736
  4737	035250	035 00 0 00 035211 		ERLOOP	PFDMM4
  4738
  4739	035251	367 15 0 00 035140 		REPTLP	PFDMM0+1
  4740
  4741	035252	200 07 0 00 043736 		MOVE	AC,PGFAIL
  4742	035253	202 07 0 00 000502 		MOVEM	AC,LPGFTR		;RESET PAGE FAIL
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 116
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0172

  4743					SUBTTL	TRAP INSTRUCTION PAGE FAIL TEST
  4744
  4745					;*CAUSE A TRAP, THE TRAP "JSR" IS TO A PAGED ADDRESS THAT PAGE FAILS
  4746					;*PAGE FAIL ROUTINE VERIFIES PAGE FAIL INFO & CORRECT PC WORD
  4747					;*PAGE TABLE THEN SETUP AND TRAP CONTINUED
  4748					;*TRAP SHOULD THEN COMPLETE
  4749					;*TRAP HANDLER THEN VERIFIES CORRECT PC WORD
  4750
  4751					SALL
  4752			041275		T=	SIXBTZ	TRAP INSTRUCTION PAGE FAIL
  4753					LALL
  4754
  4755						SUBTST^
  4756	035254	201 00 0 00 035254 		MOVEI	.
  4757	035255	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4758	035256	200 15 0 00 043737 	TIPF0:	MOVE	REPT,RPEAT
  4759	035257	402 00 0 00 000200 		SETZM	200			;CLEAR PAGE MAP
  4760	035260	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4761	035261	251 07 0 00 000417 		BLT	AC,417
  4762
  4763	035262	201 07 0 00 035302 		MOVEI	AC,TIPF2		;SETUP PAGE FAIL TRANSFER
  4764	035263	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  4765	035264	200 07 0 00 041302 		MOVE	AC,[JSR	400000!<TIPF4&777>]
  4766	035265	202 07 0 00 000423 		MOVEM	AC,LTRP3T		;SETUP TRAP 3 TRANSFER
  4767
  4768	035266	476 00 0 00 000500 		SETOM	LEUPFW			;PRESET PAGE FAIL WORDS
  4769	035267	476 00 0 00 000501 		SETOM	LPFWPC
  4770
  4771	035270	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;ENABLE TRAPPING
  4772	035271	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4773
  4774	035272	254 02 1 00 035273 		JRSTF	@.+1			;CAUSE TRAP 3
  4775	035273	000600	035277			TN0!TN1,,TIPFX
  4776
  4777	035274	7 010 20 0 00 020000 	TIPF1:	CONO	PAG,LTRPEN		;IF GET HERE, TRAP DID NOT HAPPEN
  4778						ERROR1	13,0,0,TRAP FAILED,FATAL^
  4779												SALL
  4780	035275	036 13 0 00 041303 
  4781	035276	254 00 0 00 035256 		JRST	TIPF0
  4782
  4783	035277	7 010 20 0 00 020000 	TIPFX:	CONO	PAG,LTRPEN
  4784						ERROR1	13,0,0,JRSTF HAPPENED,NO TRAP^
  4785	035300	036 13 0 00 041313 
  4786	035301	254 00 0 00 035256 		JRST	TIPF0
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 117
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0173

  4787					;*HERE IF PAGE FAIL TRAP HAPPENED
  4788
  4789	035302	200 00 0 00 043736 	TIPF2:	MOVE	PGFAIL			;RESTORE PAGE FAIL TRAP
  4790	035303	202 00 0 00 000502 		MOVEM	LPGFTR
  4791
  4792	035304	200 14 0 00 041316 		MOVE	COR,[011000,,400000!<TIPF4&777>]
  4793	035305	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4794	035306	312 14 0 00 000013 		CAME	COR,ACT
  4795						ERROR	TIPF0+1,13,COR,ACT,PAGE FAIL WORD WRONG^
  4796	035307	036 13 0 00 041317 
  4797	035310	035 00 0 00 035257 		ERLOOP	TIPF0+1		;IF ERROR, LOOP TO TIPF0+1
  4798
  4799	035311	200 14 0 00 041322 		MOVE	COR,[TN0!TN1,,TIPFX]
  4800	035312	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4801	035313	312 14 0 00 000013 		CAME	COR,ACT
  4802						ERROR	TIPF0+1,13,COR,ACT,<SAVED FLAGS,,PC WRONG>,PAGE FAIL^
  4803	035314	036 13 0 00 041323 
  4804	035315	035 00 0 00 035257 		ERLOOP	TIPF0+1		;IF ERROR, LOOP TO TIPF0+1
  4805
  4806	035316	312 14 0 00 000013 		CAME	COR,ACT
  4807	035317	254 00 0 00 035324 		JRST	TIPF3+4			;IF SAVED PC WRONG, CAN'T CONT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 118
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0174

  4808					;*SETUP FOR PAGE FAIL TRAP CONTINUE
  4809
  4810	035320	205 07 0 00 540035 	TIPF3:	MOVSI	AC,540000!<TIPFX_-^D9>
  4811	035321	202 07 0 00 000200 		MOVEM	AC,200			;SETUP PAGE MAP
  4812	035322	7 010 20 0 00 020000 		CONO	PAG,LTRPEN		;***CAUSE REFILL***
  4813
  4814	035323	254 02 1 00 000501 		JRSTF	@LPFWPC			;CONTINUE TRAP
  4815
  4816						ERROR1	13,0,0,PAGE FAIL CONTINUE FAILED,FATAL^
  4817	035324	036 13 0 00 041333 
  4818	035325	254 00 0 00 035344 		JRST	TIPF10-2
  4819
  4820					;*HERE IF TRAP CONTINUED PROPERLY
  4821
  4822	035326	000000	000000		TIPF4:	0				;JSR SHOULD COME HERE
  4823	035327	200 00 0 00 043732 		MOVE	LTRP3SV
  4824	035330	202 00 0 00 000423 		MOVEM	LTRP3T			;RESET TRAP
  4825	035331	265 13 0 00 035332 		JSP	ACT,TIPF5		;GET CURRENT RELOCATED PC
  4826	035332	200 14 0 00 041336 	TIPF5:	MOVE	COR,[0,,400000!<TIPF5&777>]
  4827	035333	312 14 0 00 000013 		CAME 	COR,ACT
  4828						ERROR	TIPF0+1,13,COR,ACT,RELOCATION INCORRECT,PF CONTINUE^
  4829	035334	036 13 0 00 041345 
  4830	035335	035 00 0 00 035257 		ERLOOP	TIPF0+1		;IF ERROR, LOOP TO TIPF0+1
  4831	035336	200 14 0 00 041350 		MOVE	COR,[0,,TIPFX]
  4832	035337	200 13 0 00 035326 		MOVE	ACT,TIPF4
  4833	035340	312 14 0 00 000013 		CAME	COR,ACT
  4834						ERROR	TIPF0+1,13,COR,ACT,TRAP SAVED PC WRONG,PF CONTINUE^
  4835	035341	036 13 0 00 041355 
  4836	035342	035 00 0 00 035257 		ERLOOP	TIPF0+1		;IF ERROR, LOOP TO TIPF0+1
  4837
  4838	035343	367 15 0 00 035257 		REPTLP	TIPF0+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 119
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0175

  4839					;*CAUSE A TRAP TO A PAGE FAIL PAGE
  4840					;*TRAP HANDLER THEN VERIFIES CORRECT PC WORD
  4841
  4842					SALL
  4843			041360		T=SIXBTZ	TRAP PAGE FAIL
  4844					LALL
  4845
  4846						SUBTST^
  4847	035344	201 00 0 00 035344 		MOVEI	.
  4848	035345	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4849	035346	200 15 0 00 043737 	TIPF10:	MOVE	REPT,RPEAT
  4850	035347	402 00 0 00 000200 		SETZM	200
  4851	035350	200 07 0 00 037671 		MOVE	AC,[200,,201]
  4852	035351	251 07 0 00 000417 		BLT	AC,417		;CLEAR PAGE MAP
  4853
  4854	035352	201 07 0 00 035410 		MOVEI	AC,TIPF12	;SETUP PAGE FAIL TRANSFER
  4855	035353	202 07 0 00 000502 		MOVEM	AC,LPGFTR
  4856	035354	200 07 0 00 041363 		MOVE	AC,[JSR TIPF14]
  4857	035355	202 07 0 00 000423 		MOVEM	AC,LTRP3T	;SETUP TRAP 3 TRANSFER
  4858
  4859	035356	476 00 0 00 000500 		SETOM	LEUPFW		;PRESET PAGE FAIL WORD
  4860	035357	476 00 0 00 000501 		SETOM	LPFWPC	
  4861
  4862	035360	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  4863	035361	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4864
  4865	035362	254 02 1 00 035363 		JRSTF	@.+1		;CAUSE TRAP 3
  4866	035363	000600	400373			TN0!TN1,,400000!<TIPF1X&777>
  4867
  4868	035364	7 010 20 0 00 020000 	TIPF11:	CONO	PAG,LTRPEN
  4869	035365	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4870	035366	200 00 0 00 043736 		MOVE	PGFAIL
  4871	035367	202 00 0 00 000502 		MOVEM	LPGFTRP
  4872						ERROR	TIPF10,13,0,0,TRAP FAILED,FATAL^
  4873												SALL
  4874	035370	036 13 0 00 041364 
  4875	035371	035 00 0 00 035346 		ERLOOP	TIPF10		;IF ERROR, LOOP TO TIPF10
  4876	035372	254 00 0 00 035346 		JRST	TIPF10
  4877
  4878	035373	7 010 20 0 00 020000 	TIPF1X:	CONO	PAG,LTRPEN
  4879	035374	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4880	035375	200 00 0 00 043736 		MOVE	PGFAIL
  4881	035376	202 00 0 00 000502 		MOVEM	LPGFTR
  4882						ERROR	TIPF10,13,0,0,JRSTF HAPPENED,NO TRAP^
  4883	035377	036 13 0 00 041367 
  4884	035400	035 00 0 00 035346 		ERLOOP	TIPF10		;IF ERROR, LOOP TO TIPF10
  4885	035401	254 00 0 00 035346 		JRST	TIPF10
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 120
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0176

  4886					;*HERE IF TRAP HAPPENED WITHOUT PAGE FAIL
  4887
  4888	035402	000000	000000		TIPF14:	0
  4889	035403	200 00 0 00 043736 		MOVE	PGFAIL
  4890	035404	202 00 0 00 000502 		MOVEM	LPGFTR
  4891						ERROR	TIPF10,13,0,0,TRAP 3 HAPPENED,NO PAGE FAIL^
  4892	035405	036 13 0 00 041400 
  4893	035406	035 00 0 00 035346 		ERLOOP	TIPF10		;IF ERROR, LOOP TO TIPF10
  4894	035407	254 00 0 00 035346 		JRST	TIPF10
  4895
  4896					;*HERE IF PAGE FAIL TRAP HAPPENED
  4897
  4898	035410	200 00 0 00 043736 	TIPF12:	MOVE	PGFAIL
  4899	035411	202 00 0 00 000502 		MOVEM	LPGFTR
  4900
  4901	035412	200 14 0 00 041403 		MOVE	COR,[001000,,400000!<TIPF1X&777>]
  4902	035413	200 13 0 00 000500 		MOVE	ACT,LEUPFW
  4903	035414	312 14 0 00 000013 		CAME	COR,ACT
  4904						ERROR	TIPF10+1,13,COR,ACT,PAGE FAIL WORD WRONG^
  4905	035415	036 13 0 00 041404 
  4906	035416	035 00 0 00 035347 		ERLOOP	TIPF10+1		;IF ERROR, LOOP TO TIPF10+1
  4907
  4908	035417	200 14 0 00 041407 		MOVE	COR,[TN0!TN1,,400000!<TIPF1X&777>]
  4909	035420	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4910	035421	312 14 0 00 000013 		CAME	COR,ACT
  4911						ERROR	TIPF10+1,13,COR,ACT,<SAVED FLAGS,,PC WRONG>,PAGE FAIL^
  4912	035422	036 13 0 00 041410 
  4913	035423	035 00 0 00 035347 		ERLOOP	TIPF10+1		;IF ERROR, LOOP TO TIPF10+1
  4914
  4915	035424	367 15 0 00 035347 		REPTLP	TIPF10+1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 121
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0177

  4916					;*TEST I/O INSTRUCTION PAGE FAIL
  4917
  4918					SALL
  4919			041413		T=SIXBTZ	<I/O INST PAGE FAIL>
  4920					LALL
  4921
  4922						SUBTST^
  4923	035425	201 00 0 00 035425 		MOVEI	.
  4924	035426	202 00 0 00 030051 		MOVEM	TESTPC		;SETUP SUBTEST PC ^
  4925	035427	200 15 0 00 043737 	PFIO0:	MOVE	REPT,RPEAT
  4926	035430	402 00 0 00 000200 		SETZM	200
  4927	035431	200 00 0 00 037671 		MOVE	[200,,201]
  4928	035432	251 00 0 00 000417 		BLT	417		;CLEAR PAGE MAP
  4929
  4930	035433	201 00 0 00 035446 		MOVEI	PFIO3
  4931	035434	202 00 0 00 000502 		MOVEM	LPGFTR		;SETUP FOR PAGE FAIL
  4932
  4933	035435	476 00 0 00 000500 	PFIO1:	SETOM	LEUPFW		;SETUP PAGING
  4934	035436	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  4935	035437	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]
  4936	035440	254 02 1 00 035441 		JRSTF	@.+1
  4937	035441	000000	035442			0,,.+1
  4938
  4939	035442	7 000 24 0 00 400000 	PFIO2:	CONI	APR,400000	;PERFORM I/O INST PAGE FAIL
  4940						ERROR	PFIO1,13,0,0,CONI TRAP FAILED,FATAL^
  4941												SALL
  4942	035443	036 13 0 00 041422 
  4943	035444	035 00 0 00 035435 		ERLOOP	PFIO1		;IF ERROR, LOOP TO PFIO1
  4944	035445	254 00 0 00 035435 		JRST	PFIO1
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 122
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0178

  4945	035446	200 13 0 00 000500 	PFIO3:	MOVE	ACT,LEUPFW
  4946	035447	200 14 0 00 041112 		MOVE	COR,[011000,,400000]
  4947	035450	312 14 0 00 000013 		CAME	COR,ACT
  4948						ERROR	PFIO1,13,COR,ACT,PAGE FAIL WORD WRONG,DATAI^
  4949	035451	036 13 0 00 041426 
  4950	035452	035 00 0 00 035435 		ERLOOP	PFIO1		;IF ERROR, LOOP TO PFIO1
  4951
  4952	035453	200 13 0 00 000501 		MOVE	ACT,LPFWPC
  4953	035454	200 14 0 00 041431 		MOVE	COR,[0,,PFIO2]
  4954	035455	312 14 0 00 000013 		CAME	COR,ACT
  4955						ERROR	PFIO1,13,COR,ACT,<SAVED FLAGS,,PC WRONG>,DATAI^
  4956	035456	036 13 0 00 041432 
  4957	035457	035 00 0 00 035435 		ERLOOP	PFIO1		;IF ERROR, LOOP TO PFIO1
  4958
  4959	035460	367 15 0 00 035430 		REPTLP	PFIO0+1
  4960
  4961	035461	200 00 0 00 043736 		MOVE	PGFAIL
  4962	035462	202 00 0 00 000502 		MOVEM	LPGFTR
  4963
  4964	035463	254 00 0 00 035542 		JRST	STMUUO
  4965
  4966					REPEAT	0,<
  4967					
  4968					AN I/O PAGE FAILURE CAUSES THE KS-10 TO HALT, THEREFORE THE
  4969					FOLLOWING TEST IS NOT PERFORMED.
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 123
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0179

  4970					SUBTTL	INTERRUPT INSTRUCTION PAGE FAIL
  4971					
  4972					SALL
  4973					T=SIXBTZ	INTERRUPT INST PAGE FAIL
  4974					LALL
  4975					
  4976					;*CAUSE AN INTERRUPT THAT HAS FOR ITS INTERRUPT HANDLING
  4977					;*INSTRUCTION A "JSR" TO A PAGE FAIL ADDRESS.
  4978					;*AN I/O PAGE FAIL INTERRUPT SHOULD OCCUR.
  4979					
  4980						SUBTST
  4981					INTPF0:	MOVE	REPT,RPEAT
  4982					
  4983					;*FIRST VERIFY THAT THE METER CAN CAUSE AN INTERRUPT
  4984					
  4985						CONO	PI,LPICLR
  4986						CONO	APR,LAPRAL!LAPRP1
  4987						CONO	PI,LCHNON!LPION!LPICHA
  4988						MOVE	[JSR INTPFA]
  4989						MOVEM	514		;SETUP METER VECTOR
  4990					
  4991						MOVSI	0,77
  4992						CONO	TIM,63203
  4993						CONO	MTR,7		;ASSIGN METER CHAN 7
  4994						SOJGE	0,.		;WAIT FOR METER INTERRUPT
  4995						CONO	PI,PICLR
  4996						ERROR	INTPF0+1,13,0,0,NO METER INTERRUPT,FATAL
  4997						JRST	INTPF3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 124
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0180

  4998					;*NOW USE IT TO CAUSE I/O PAGE FAIL
  4999					
  5000					INTPFA:	0			;METER CAUSED INTERRUPT
  5001						CONO	MTR,0		;GO AHEAD AND USE IT
  5002						CONO	PI,LPICLR
  5003						CONO	APR,LAPRAL!LAPRP1
  5004						CONO	PI,LCHNON!LPION!LPICHA
  5005					
  5006						SETZM	200
  5007						MOVE	[200,,201]
  5008						BLT	417		;CLEAR PAGE MAP
  5009					
  5010						MOVEI	INTPF1
  5011						MOVEM	LPGFTR		;SETUP PAGE FAIL TRAP
  5012					
  5013						MOVE	[JSR 400000]
  5014						MOVEM	514		;SETUP METER INTERRUPT
  5015					
  5016						MOVE	[JSR INTPF2]
  5017						MOVEM	42		;SETUP I/O PAGE FAIL ERROR INTERRUPT
  5018					
  5019						CONO	PAG,LTRPEN
  5020						DATAO	PAG,[LLDUSB,,400000]
  5021					
  5022						MOVSI	0,77		;WAIT FOR METER INTERRUPT
  5023						CONO	TIM,63203
  5024						CONO	MTR,7
  5025						SOJGE	0,.
  5026						CONO	PI,PICLR
  5027						ERROR	INTPF0+1,13,0,0,NO INTERRUPT,FATAL
  5028						JRST	INTPF3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 125
DSKEAM	MAC	29-Mar-78 14:55		TRAP INSTRUCTION PAGE FAIL TEST                                                    SEQ 0181

  5029					;*IF PAGE FAIL HAPPENED, ERROR
  5030					
  5031					INTPF1:	CONO	MTR,0
  5032						CONO	PI,PICLR
  5033						ERROR	INTPF0+1,13,LEUPFW,LPFWPC,PAGE FAILURE,<COR=PAGE FAIL WORD,ACT=PAGE FAIL PC
  5034					>
  5035						JRST	INTPF3
  5036					
  5037					;*APR ERROR INTERRUPT, CHECK PROPER CONDITIONS
  5038					
  5039					INTPF2:	0
  5040						CONO	MTR,0
  5041						CONO	PI,PICLR
  5042						CONI	APR,ACT
  5043						MOVE	COR,[LIOPFE]
  5044						TRNN	ACT,LIOPFE
  5045						ERROR	INTPF0+1,13,COR,ACT,IO PAGE FAIL NOT SET
  5046					
  5047						REPTLP	INTPF0+1
  5048					
  5049					INTPF3:	CONO	MTR,0
  5050						CONO	PI,LPICLR
  5051						CONO	PI,LCHNON!LPION!LPICHA
  5052						CONO	APR,LAPRAL!LAPRP1
  5053						MOVE	[JSR ITRCH1]
  5054						MOVEM	42		;RESET INTERRUPT SYSTEM
  5055					
  5056						JRST	BEGEND
  5057					>
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 126
DSKEAM	MAC	29-Mar-78 14:55		PAGING MEMORY FLOATING BIT TEST TABLE                                              SEQ 0182

  5058					SUBTTL	PAGING MEMORY FLOATING BIT TEST TABLE
  5059
  5060					;*LH = SCRATCHPAD DATA
  5061					;*RH = PAGING ADDRESS
  5062
  5063	035464	777777	000400		AMTAB1:	777777,,400
  5064	035465	757776	000600			757776,,600
  5065	035466	737775	000500			737775,,500
  5066	035467	577773	000440			577773,,440
  5067	035470	517767	000420			517767,,420
  5068	035471	777757	000410			777757,,410
  5069	035472	577737	000404			577737,,404
  5070	035473	737677	000402			737677,,402
  5071	035474	757577	000401			757577,,401
  5072	035475	660000	000340			660000,,340
  5073	035476	757377	000777			757377,,777
  5074	035477	736777	000577			736777,,577
  5075	035500	575777	000677			575777,,677
  5076	035501	773777	000737			773777,,737
  5077	035502	567777	000757			567777,,757
  5078	035503	730000	000767			730000,,767
  5079	035504	744000	000773			744000,,773
  5080	035505	762000	000775			762000,,775
  5081	035506	501000	000776			501000,,776
  5082	035507	677777	000501			677777,,501
  5083	035510	500400	000640			500400,,640
  5084	035511	760200	000700			760200,,700
  5085	035512	720100	000740			720100,,740
  5086	035513	440000	000760			440000,,760
  5087	035514	720040	000770			720040,,770
  5088	035515	540020	000774			540020,,774
  5089	035516	720010	000772			720010,,772
  5090	035517	417777	000341			417777,,341
  5091	035520	760004	000342			760004,,342
  5092	035521	660000	000345			660000,,345
  5093	035522	500002	000352			500002,,352
  5094	035523	500001	000525			500001,,525
  5095	035524	777777	000376			777777,,376
  5096	035525	517777	000463			517777,,463
  5097	035526	620000	000632			620000,,632
  5098	035527	552525	000505			552525,,505
  5099	035530	637777	000362			637777,,362
  5100	035531	545252	000623			545252,,623
  5101	035532	400000	000551			400000,,551
  5102	035533	772525	000624			772525,,624
  5103	035534	417777	000353			417777,,353
  5104	035535	760000	000603			760000,,603
  5105	035536	000000	000000			0
  5106	035537	000000	000000			0
  5107	035540	000000	000000			0
  5108	035541	000000	000000			0
  5109
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 127
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0183

  5110					SUBTTL	MONITOR UUO TRAP TESTING
  5111
  5112					;*TEST MUUO TRAPPING TO 424(KERNAL NO TRAP)
  5113
  5114					SALL
  5115			041435		T=SIXBTZ MONITOR UUO TEST - TRAPPING IN KERNAL MODE
  5116					LALL
  5117			000424		A=MUUO			;DATA STORED
  5118			035557		C=AXMUUO		;CORRECT DATA
  5119
  5120	035542	402 00 0 00 030116 	STMUUO:	SETZM	SCOPE#		;CLEAR SCOPE
  5121	035543	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  5122	035544	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5123	035545	201 00 0 00 000040 	AXMBEG:	MOVEI	40		;SET UP TEST
  5124	035546	202 00 0 00 043726 		MOVEM	COUNT#		;COUNTER
  5125						TNSET^
  5126	035547	201 00 0 00 035547 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5127	035550	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5128					^
  5129	035551	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5130	035552	202 00 0 00 035557 		MOVEM	AXMUUO		;FOR EXECUTION
  5131	035553	201 00 0 00 035562 	AXMST:	MOVEI	AXMUPC		;SET UP UUO TRAP PC
  5132	035554	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5133	035555	402 00 0 00 000424 		SETZM	MUUO		;CLEAR UUO TRAP
  5134	035556	402 00 0 00 000425 		SETZM	MUUO+1		;LOCATIONS
  5135	035557	000000	000000		AXMUUO:	0			;THIS IS THE UUO
  5136						ERROR1	13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MONITOR UUO^
  5137												SALL
  5138	035560	036 13 0 00 041457 
  5139	035561	035 02 0 00 035553 		ERLP2	AXMST
  5140	035562	336 00 0 00 043726 	AXMUPC:	SKIPN	COUNT		;DONE 40 UUOS
  5141	035563	254 00 0 00 035636 		JRST	AYMBEG		;YES DO NEXT SET
  5142	035564	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5143	035565	272 00 0 00 035557 		ADDM	AXMUUO		;ADD IN FOR NEXT UUO
  5144	035566	370 00 0 00 043726 		SOS	COUNT		;FIX UP COUNTER
  5145	035567	254 00 0 00 035553 		JRST	AXMST		;LOOP
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 128
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0184

  5146			035602		C=MUUOXA			;CORRECT DATA
  5147	035570	201 00 0 00 000010 	MUU100:	MOVEI	10		;TEST COUNT
  5148	035571	202 00 0 00 043726 		MOVEM	COUNT
  5149						TNSET^
  5150	035572	201 00 0 00 035572 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5151	035573	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5152	035574	205 00 0 00 100000 		MOVSI	1B20		;FIRST MUUO (100)
  5153	035575	202 00 0 00 035602 		MOVEM	MUUOXA		;STORE UUO TO EXECUTE
  5154	035576	201 00 0 00 035605 	MUUSTA:	MOVEI	MUXPCA		;SET UP UUO TRAP PC
  5155	035577	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5156	035600	402 00 0 00 000424 		SETZM	MUUO		;CLEAR UUO
  5157	035601	402 00 0 00 000425 		SETZM	MUUO+1		;AND NEXT
  5158	035602	000000	000000		MUUOXA:	0			;THIS LOC HAS MUUO
  5159						ERROR1	13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
  5160	035603	036 13 0 00 041465 
  5161	035604	035 02 0 00 035576 		ERLP2	MUUSTA
  5162	035605	336 00 0 00 043726 	MUXPCA:	SKIPN	COUNT		;FINISHED
  5163	035606	254 00 0 00 035613 		JRST	MUU114		;DO NEXT TEST SET
  5164	035607	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5165	035610	272 00 0 00 035602 		ADDM	MUUOXA		;AND ADD IN TO OLD UUO
  5166	035611	370 00 0 00 043726 		SOS	COUNT		;FIX UP COUNT
  5167	035612	254 00 0 00 035576 		JRST	MUUSTA		;AND LOOP TEST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 129
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0185

  5168			035625		C=MUUOXB			;CORRECT DATA
  5169	035613	201 00 0 00 000004 	MUU114:	MOVEI	4		;TEST COUNT
  5170	035614	202 00 0 00 043726 		MOVEM	COUNT
  5171						TNSET^
  5172	035615	201 00 0 00 035615 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5173	035616	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5174	035617	205 00 0 00 114000 		MOVSI	114000		;FIRST MUUO (114)
  5175	035620	202 00 0 00 035625 		MOVEM	MUUOXB		;STORE UUO TO EXECUTE
  5176	035621	201 00 0 00 035630 	MUUSTB:	MOVEI	MUXPCB		;SET UP UUO TRAP PC
  5177	035622	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5178	035623	402 00 0 00 000424 		SETZM	MUUO		;CLEAR UUO
  5179	035624	402 00 0 00 000425 		SETZM	MUUO+1		;AND NEXT
  5180	035625	000000	000000		MUUOXB:	0			;THIS LOC HAS MUUO
  5181						ERROR1	13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
  5182	035626	036 13 0 00 041470 
  5183	035627	035 02 0 00 035621 		ERLP2	MUUSTB
  5184	035630	336 00 0 00 043726 	MUXPCB:	SKIPN	COUNT		;FINISHED
  5185	035631	254 00 0 00 035613 		JRST	MUU114		;DO NEXT TEST SET
  5186	035632	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5187	035633	272 00 0 00 035602 		ADDM	MUUOXA		;AND ADD IN TO OLD UUO
  5188	035634	370 00 0 00 043726 		SOS	COUNT		;FIX UP COUNT
  5189	035635	254 00 0 00 035621 		JRST	MUUSTB		;AND LOOP TEST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 130
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0186

  5190					;*MONITOR UUO TEST - UUO STORE INTO 424
  5191
  5192					SALL
  5193			041473		T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
  5194					LALL
  5195			000424		A=MUUO			;ACTUAL DATA STORED
  5196			035650		C=AYMUUO		;CORRECT DATA LOCATION
  5197
  5198	035636	201 00 0 00 000040 	AYMBEG:	MOVEI	40		;SET UP TEST COUNTER
  5199	035637	202 00 0 00 043726 		MOVEM	COUNT
  5200						TNSET^
  5201	035640	201 00 0 00 035640 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5202	035641	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5203					^
  5204	035642	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5205	035643	202 00 0 00 035650 		MOVEM	AYMUUO		;FOR EXECUTION
  5206	035644	201 00 0 00 035652 	AYMST:	MOVEI	AYMUPC		;SET UP UUO TRAP
  5207	035645	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5208	035646	402 00 0 00 000424 		SETZM	MUUO		;CLEAR MUUO TRAP
  5209	035647	402 00 0 00 000425 		SETZM	MUUO+1		;LOCATIONS
  5210	035650	000000	000000		AYMUUO:	0			;EXECUTE THIS UUO
  5211	035651	254 04 0 00 035651 		HALT	.		;UUO DID NOT TRAP
  5212	035652	200 00 0 00 000424 	AYMUPC:	MOVE	MUUO		;GET WRITTEN UUO
  5213	035653	312 00 0 00 035650 		CAME	AYMUUO		;STORED CORRECTLY?
  5214						ERROR1	13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
  5215												SALL
  5216	035654	036 13 0 00 041512 
  5217	035655	035 02 0 00 035644 		ERLP2	AYMST
  5218	035656	336 00 0 00 043726 		SKIPN	COUNT		;DONE 40 UUO'S
  5219	035657	254 00 0 00 035664 		JRST	AZMBEG		;DO NEXT SET
  5220	035660	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5221	035661	272 00 0 00 035650 		ADDM	AYMUUO		;ADD IN FOR NEXT UUO
  5222	035662	370 00 0 00 043726 		SOS	COUNT		;FIX UUO COUNTER
  5223	035663	254 00 0 00 035644 		JRST	AYMST		;LOOP
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 131
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0187

  5224					;*MONITOR UUO - STORE CORRECT PC
  5225
  5226					SALL
  5227			041515		T=SIXBTZ MONITOR UUO - STORE CORRECT PC
  5228					LALL
  5229			041523		C=[AZMUUO+1]		;CORRECT DATA
  5230			000001		A=1			;ACTUAL DATA
  5231
  5232	035664	402 00 0 00 000424 	AZMBEG:	SETZM	MUUO		;CLEAR MONITOR UUO
  5233	035665	402 00 0 00 000425 		SETZM	MUUO+1		;TRAP LOCATIONS
  5234						TNSET^
  5235	035666	201 00 0 00 035666 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5236	035667	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5237					^
  5238	035670	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5239	035671	202 00 0 00 035674 		MOVEM	AZMUUO		;TO BE EXECUTED
  5240	035672	201 00 0 00 035676 	AZMST:	MOVEI	AZMUPC		;SET UP TRAP INSTRUCTION
  5241	035673	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5242	035674	000000	000000		AZMUUO:	0			;EXECUTABLE UUO
  5243	035675	254 04 0 00 035675 		HALT	.		;SHOULDN'T  UUO DID NOT TRAP
  5244	035676	550 01 0 00 000425 	AZMUPC:	HRRZ	1,MUUO+1	;GET THE PC OF THE UUO
  5245	035677	302 01 0 00 035675 		CAIE	1,AZMUUO+1	;PC+1 OF THE UUO SHOULD BE STORED
  5246						ERROR1	13,C,A,MUUO DID NOT STORE THE CORRECT PC,C(425) HAS PC STORED^
  5247												SALL
  5248	035700	036 13 0 00 041536 
  5249	035701	035 02 0 00 035672 		ERLP2	AZMST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 132
DSKEAM	MAC	29-Mar-78 14:55		MONITOR UUO TRAP TESTING                                                           SEQ 0188

  5250					;*TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING
  5251					;*A MONITOR UUO
  5252
  5253					SALL
  5254			041541		T=SIXBTZ MONITOR UUO - STORE E CORRECTLY
  5255					LALL
  5256			000001		A=1			;ACTUAL DATA
  5257			000007		C=7			;CORRECT DATA
  5258
  5259	035702	201 07 0 00 001000 	AWMBEG:	MOVEI	7,1000		;FIRST E FIELD TO TEST
  5260	035703	201 00 0 00 035716 	AWMST:	MOVEI	AWMUPC		;SET UP MUUO TRAP INSTUCTION
  5261	035704	202 00 0 00 000430 		MOVEM	KNTRP		;INTO KERNAL NO TRAP
  5262						TNSET^
  5263	035705	201 00 0 00 035705 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5264	035706	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5265					^
  5266	035707	402 00 0 00 000424 		SETZM	MUUO		;CLEAR MUUO TRAP LOCATIONS
  5267	035710	402 00 0 00 000425 		SETZM	MUUO+1
  5268	035711	205 00 0 00 040000 		MOVSI	1B21		;SET UP UUO TO EXECUTE
  5269	035712	202 00 0 00 035714 		MOVEM	AWMUUO		;AND STORE IT
  5270	035713	542 07 0 00 035714 		HRRM	7,AWMUUO	;AN A NEW PC
  5271	035714	000000	000000		AWMUUO:	0			;THIS IS THE UUO
  5272	035715	254 04 0 00 035715 		HALT	.		;SHOULD NOT HALT
  5273	035716	550 01 0 00 000424 	AWMUPC:	HRRZ	1,MUUO
  5274	035717	312 01 0 00 000007 		CAME	1,7		;CORRECT E STORED
  5275						ERROR1	13,C,A,MUUO DID NOT STORE E CORRECTLY,C(424) HAS E VALUE STORED^
  5276												SALL
  5277	035720	036 13 0 00 041562 
  5278	035721	035 02 0 00 035703 		ERLP2	AWMST
  5279	035722	271 07 0 00 001000 		ADDI	7,1000		;NEXT E FIELD
  5280	035723	603 07 0 00 000001 		TLNE	7,1		;DONE 2^18TH TESTS?
  5281	035724	254 00 0 00 035726 		JRST	BXMBEG		;NEXT SET OF TESTS
  5282	035725	254 00 0 00 035703 		JRST	AWMST		;LOOP TEST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 133
DSKEAM	MAC	29-Mar-78 14:55		TEST MUUO'S IN CONCEALED MODE                                                      SEQ 0189

  5283					SUBTTL	TEST MUUO'S IN CONCEALED MODE
  5284
  5285					;*MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
  5286
  5287					SALL
  5288			041565		T=SIXBTZ MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
  5289					LALL
  5290			044424		A=UPMP+MUUO		;DATA STORED
  5291			035753		C=BXMUUO		;CORRECT DATA
  5292
  5293	035726				BXMBEG:	TNSET^
  5294	035726	201 00 0 00 035726 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5295	035727	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5296					^
  5297						PAGECN^
  5298	035730	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5299	035731	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5300					^
  5301	035732	201 00 0 00 000040 		MOVEI	40		;SET UP TEST
  5302	035733	202 00 0 00 043726 		MOVEM	COUNT#		;COUNTER
  5303	035734	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5304	035735	202 00 0 00 035753 		MOVEM	BXMUUO		;FOR EXECUTION
  5305	035736	260 17 0 00 037025 	BXMST:	GO	PAGE1
  5306	035737	201 00 0 00 035756 		MOVEI	BXMUPC		;SET UP UUO TRAP PC
  5307	035740	202 00 0 00 044434 		MOVEM	UPMP+CNTRP	;INTO CONCEALED NO TRAP
  5308	035741	201 00 0 00 035764 		MOVEI	BXERR		;SET WRONG TRAP ERROR
  5309	035742	202 00 0 00 044430 		MOVEM	UPMP+KNTRP
  5310	035743	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5311	035744	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5312	035745	202 00 0 00 044431 		MOVEM	UPMP+KTRP
  5313	035746	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5314	035747	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5315	035750	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5316	035751	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR UUO TRAP
  5317	035752	402 00 0 00 044425 		SETZM	UPMP+MUUO+1	;LOCATIONS
  5318	035753	000000	000000		BXMUUO:	0			;THIS IS THE UUO
  5319						ERROR1	13,C,A,MUUO DID NOT TRAP IN CONCEALED MODE,C(CORRECT)=MONITOR UUO^
  5320												SALL
  5321	035754	036 13 0 00 041603 
  5322	035755	035 02 0 00 035736 		ERLP2	BXMST
  5323	035756	336 00 0 00 043726 	BXMUPC:	SKIPN	COUNT		;DONE 40 UUOS
  5324	035757	254 00 0 00 035766 		JRST	BYMBEG		;YES DO NEXT SET
  5325	035760	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5326	035761	272 00 0 00 035753 		ADDM	BXMUUO		;ADD IN FOR NEXT UUO
  5327	035762	370 00 0 00 043726 		SOS	COUNT		;FIX UP COUNTER
  5328	035763	254 00 0 00 035736 		JRST	BXMST		;LOOP
  5329	035764				BXERR:	ERROR1	13,C,A,MUUO TRAPPED TO INCORRECT TRAP LOCATION,^
  5330	035764	036 13 0 00 041615 
  5331	035765	035 02 0 00 035736 		ERLP2	BXMST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 134
DSKEAM	MAC	29-Mar-78 14:55		TEST MUUO'S IN CONCEALED MODE                                                      SEQ 0190

  5332					;*MONITOR UUO TEST - UUO STORE INTO 424
  5333
  5334					SALL
  5335			041473		T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
  5336					LALL
  5337			044424		A=UPMP+MUUO		;ACTUAL DATA STORED
  5338			036007		C=BYMUUO		;CORRECT DATA LOCATION
  5339
  5340	035766				BYMBEG:	PAGECN^
  5341	035766	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5342	035767	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5343					^
  5344	035770	201 00 0 00 000040 		MOVEI	40		;SET UP TEST COUNTER
  5345	035771	202 00 0 00 043726 		MOVEM	COUNT
  5346						TNSET^
  5347	035772	201 00 0 00 035772 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5348	035773	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5349					^
  5350	035774	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5351	035775	202 00 0 00 036007 		MOVEM	BYMUUO		;FOR EXECUTION
  5352	035776	260 17 0 00 037025 	BYMST:	GO	PAGE1
  5353	035777	201 00 0 00 036012 		MOVEI	BYMUPC		;SET UP UUO TRAP
  5354	036000	202 00 0 00 044434 		MOVEM	UPMP+CNTRP	;INTO CONCEALED NO TRAP
  5355	036001	201 00 0 00 036024 		MOVEI	BYERR		;IN CASE WE GO TO THE WRONG TRAP
  5356	036002	202 00 0 00 044430 		MOVEM	UPMP+KNTRP
  5357	036003	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5358	036004	202 00 0 00 044436 		MOVEM	UPMP+PNTRP	;SET UP THE OTHER TRAP LOCATIONS
  5359	036005	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR MUUO TRAP
  5360	036006	402 00 0 00 044425 		SETZM	UPMP+MUUO+1	;LOCATIONS
  5361	036007	000000	000000		BYMUUO:	0			;EXECUTE THIS UUO
  5362						ERROR1	13,C,A,MUUO DID NOT TRAP,^
  5363												SALL
  5364	036010	036 13 0 00 041623 
  5365	036011	035 02 0 00 035776 		ERLP2	BYMST
  5366	036012	200 00 0 00 044424 	BYMUPC:	MOVE	UPMP+MUUO	;GET WRITTEN UUO
  5367	036013	312 00 0 00 036007 		CAME	BYMUUO		;STORED CORRECTLY?
  5368						ERROR1	13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
  5369	036014	036 13 0 00 041626 
  5370	036015	035 02 0 00 035776 		ERLP2	BYMST
  5371	036016	336 00 0 00 043726 		SKIPN	COUNT		;DONE 40 UUO'S
  5372	036017	254 00 0 00 036026 		JRST	BZMBEG		;DO NEXT SET
  5373	036020	205 00 0 00 001000 		MOVSI	1B26		;SET UP FOR NEXT UUO
  5374	036021	272 00 0 00 036007 		ADDM	BYMUUO		;ADD IN FOR NEXT UUO
  5375	036022	370 00 0 00 043726 		SOS	COUNT		;FIX UUO COUNTER
  5376	036023	254 00 0 00 035776 		JRST	BYMST		;LOOP
  5377	036024				BYERR:	ERROR1	13,C,A,MUUO TRAPED TO INCORRECT TRAP LOCATION,^
  5378	036024	036 13 0 00 041640 
  5379	036025	035 02 0 00 035776 		ERLP2	BYMST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 135
DSKEAM	MAC	29-Mar-78 14:55		TEST MUUO'S IN CONCEALED MODE                                                      SEQ 0191

  5380					;*MONITOR UUO - STORING THE CORRECT PC
  5381
  5382					SALL
  5383			041643		T=SIXBTZ MONITOR UUO - STORING THE CORRECT PC
  5384					LALL
  5385			041652		C=[BZMUUO+1]		;CORRECT DATA
  5386			000001		A=1			;ACTUAL DATA
  5387
  5388	036026				BZMBEG:	TNSET^
  5389	036026	201 00 0 00 036026 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5390	036027	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5391					^
  5392						PAGECN^
  5393	036030	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5394	036031	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5395					^
  5396	036032	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR MONITOR UUO
  5397	036033	402 00 0 00 044425 		SETZM	UPMP+MUUO+1	;TRAP LOCATIONS
  5398	036034	205 00 0 00 040000 		MOVSI	1B21		;SET UP FIRST UUO
  5399	036035	202 00 0 00 036045 		MOVEM	BZMUUO		;TO BE EXECUTED
  5400	036036	260 17 0 00 037025 	BZMST:	GO	PAGE1
  5401	036037	201 00 0 00 036047 		MOVEI	BZMUPC		;SET UP TRAP INSTRUCTION
  5402	036040	202 00 0 00 044434 		MOVEM	UPMP+CNTRP	;INTO CONCEALED NO TRAP
  5403	036041	201 00 0 00 036054 		MOVEI	BZERR		;SET UP TRAP FOR INCORRECT TRAP
  5404	036042	202 00 0 00 044430 		MOVEM	UPMP+KNTRP	;INTO KERNAL NO TRAP
  5405	036043	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5406	036044	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5407	036045	000000	000000		BZMUUO:	0			;EXECUTABLE UUO
  5408	036046	254 04 0 00 036046 		HALT	.		;SHOULDN'T  UUO DID NOT TRAP
  5409	036047	550 01 0 00 044425 	BZMUPC:	HRRZ	1,UPMP+MUUO+1	;GET THE PC OF THE UUO
  5410	036050	302 01 0 00 036046 		CAIE	1,BZMUUO+1	;PC+1 OF THE UUO SHOULD BE STORED
  5411						ERROR1	13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
  5412												SALL
  5413	036051	036 13 0 00 041653 
  5414	036052	035 02 0 00 036036 		ERLP2	BZMST
  5415	036053	254 00 0 00 036056 		JRST	BWMBEG		;GO TO NEXT SET
  5416	036054				BZERR:	ERROR1	13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
  5417	036054	036 13 0 00 041664 
  5418	036055	035 02 0 00 036036 		ERLP2	BZMST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 136
DSKEAM	MAC	29-Mar-78 14:55		TEST MUUO'S IN CONCEALED MODE                                                      SEQ 0192

  5419					;*MUUO STORING THE CORRECT E FIELD
  5420
  5421					SALL
  5422			041667		T=SIXBTZ MUUO STORING THE CORRECT E FIELD
  5423					LALL
  5424			000001		A=1			;ACTUAL DATA
  5425			000007		C=7			;CORRECT DATA
  5426
  5427	036056				BWMBEG:	PAGECN^
  5428	036056	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5429	036057	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5430					^
  5431						TNSET^
  5432	036060	201 00 0 00 036060 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5433	036061	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5434					^
  5435	036062	201 07 0 00 001000 		MOVEI	7,1000		;FIRST E FEILD TO TEST
  5436	036063	260 17 0 00 037025 	BWMST:	GO	PAGE1
  5437	036064	201 00 0 00 036102 		MOVEI	BWMUPC		;SET UP MUUO TRAP INSTUCTION
  5438	036065	202 00 0 00 044434 		MOVEM	UPMP+CNTRP	;INTO CONCEALED NO TRAP
  5439	036066	201 00 0 00 036113 		MOVEI	BWERR		;SET UP FOR INCORRECT TRAP
  5440	036067	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5441	036070	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5442	036071	202 00 0 00 044430 		MOVEM	UPMP+KNTRP
  5443	036072	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR MUUO TRAP LOCATIONS
  5444	036073	402 00 0 00 044425 		SETZM	UPMP+MUUO+1
  5445	036074	205 00 0 00 040000 		MOVSI	1B21		;SET UP UUO TO EXECUTE
  5446	036075	202 00 0 00 036077 		MOVEM	BWMUUO		;AND STORE IT
  5447	036076	542 07 0 00 036077 		HRRM	7,BWMUUO	;AN A NEW PC
  5448	036077	000000	000000		BWMUUO:	0			;THIS IS THE UUO
  5449						ERROR1	13,C,A,MUUO DID NOT TRAP IN CONCEALED,^
  5450												SALL
  5451	036100	036 13 0 00 041703 
  5452	036101	035 02 0 00 036063 		ERLP2	BWMST
  5453	036102	550 01 0 00 044424 	BWMUPC:	HRRZ	1,UPMP+MUUO
  5454	036103	312 01 0 00 000007 		CAME	1,7		;CORRECT E STORED
  5455						ERROR1	13,C,A,MUUO DID NOT STORE E CORRECTLY,^
  5456	036104	036 13 0 00 041706 
  5457	036105	035 02 0 00 036063 		ERLP2	BWMST
  5458	036106	271 07 0 00 001000 		ADDI	7,1000		;NEXT E FIELD
  5459	036107	603 07 0 00 000001 		TLNE	7,1		;DONE 2^18TH TESTS?
  5460	036110	254 00 0 00 036115 		JRST	TRAP0		;NEXT SET
  5461	036111	254 00 0 00 036063 		JRST	BWMST		;LOOP TEST
  5462	036112	254 00 0 00 036115 		JRST	TRAP0		;GO TO NEXT SET
  5463	036113				BWERR:	ERROR1	13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
  5464	036113	036 13 0 00 041711 
  5465	036114	035 02 0 00 036063 		ERLP2	BWMST
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 137
DSKEAM	MAC	29-Mar-78 14:55		TRAP TESTING                                                                       SEQ 0193

  5466					SUBTTL TRAP TESTING
  5467
  5468					;*CAUSE TRAPS VIA JRSTF INSTRUCTION
  5469					;*TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO
  5470					;*AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP
  5471					;*TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0
  5472
  5473					SALL
  5474			041714		T=SIXBTZ AROV TRAP TEST
  5475					LALL
  5476			041717		C=[AROVTP]		;CORRECT DATA
  5477			000000		A=0			;ACTUAL DATA
  5478	036115	400 00 0 00 000000 	TRAP0:	SETZ			;CLEAR AC0
  5479						TNSET^
  5480	036116	201 00 0 00 036116 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5481	036117	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5482					^
  5483	036120	700 04 0 00 200000 		RESET
  5484	036121	264 00 0 00 037005 		TRPSET
  5485	036122	7 010 20 0 00 020000 	TRAP0A:	CONO	PAG,LTRPEN
  5486	036123	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	 ;SET UP FOR ALLOWING TRAPS
  5487	036124	200 00 0 00 041720 		MOVE	[XWD TN1,.+2]	;TRAP PC WORD FOR JRSTF
  5488	036125	254 02 1 00 000000 		JRSTF	@		;CAUSE TRAP VIA JRSTF
  5489	036126	302 00 0 00 000421 		CAIE	0,AROVTP	;TRAP DID NOT OCCUR
  5490						ERROR1	13,C,A,AROV DID NOT TRAP TO 421,^
  5491												SALL
  5492	036127	036 13 0 00 041726 
  5493	036130	035 02 0 00 036122 		ERLP2	TRAP0A
  5494
  5495					;*TEST PUSHDOWN LIST OVERFLOW TRAP TO 422
  5496					SALL
  5497			041731		T=SIXBTZ PDLOV TRAP TEST
  5498					LALL
  5499			041734		C=[PDOVTP]		;CORRECT DATA
  5500			000000		A=0			;ACTUAL DATA
  5501
  5502	036131	400 00 0 00 000000 	TRAP1:	SETZ			;CLEAR AC0
  5503						TNSET^
  5504	036132	201 00 0 00 036132 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5505	036133	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5506					^
  5507	036134	700 04 0 00 200000 		RESET
  5508	036135	264 00 0 00 037005 		TRPSET
  5509	036136	7 010 20 0 00 020000 	TRAP1A:	CONO	PAG,LTRPEN
  5510	036137	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	 ;SET UP FOR ALLOWING TRAPS
  5511	036140	200 00 0 00 041735 		MOVE	[XWD TN0,.+2]	;TRAP PC WORD FOR JRSTF
  5512	036141	254 02 1 00 000000 		JRSTF	@		;CAUSE TRAP VIA JRSTF
  5513	036142	302 00 0 00 000422 		CAIE	0,PDOVTP	;TRAP DID NOT OCCUR
  5514						ERROR1	13,C,A,PDOVTP DID NOT TRAP TO 422,^
  5515												SALL
  5516	036143	036 13 0 00 041743 
  5517	036144	035 02 0 00 036136 		ERLP2	TRAP1A
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 138
DSKEAM	MAC	29-Mar-78 14:55		TRAP TESTING                                                                       SEQ 0194

  5518					;*TRAP3 TRAP TEST TRAPPING TO 423
  5519
  5520					SALL
  5521			041746		T=SIXBTZ TRAP3 TRAP TEST
  5522					LALL
  5523			041751		C=[TRP3TP]		;CORRECT DATA
  5524			000000		A=0			;ACTUAL DATA
  5525	036145	400 00 0 00 000000 	TRP02:	SETZ			;CLEAR AC0
  5526						TNSET^
  5527	036146	201 00 0 00 036146 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5528	036147	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5529					^
  5530	036150	700 04 0 00 200000 		RESET
  5531	036151	264 00 0 00 037005 		TRPSET
  5532	036152	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  5533	036153	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	 ;SET UP FOR ALLOWING TRAPS
  5534	036154	200 00 0 00 041752 	TRAP2A:	MOVE	[XWD TN0!TN1,.+2]	;PC FOR JRSTF
  5535	036155	254 02 1 00 000000 		JRSTF	@		;CAUSE TRAP VIA JRSTF
  5536	036156	302 00 0 00 000423 		CAIE	0,TRP3TP	;TRAP DID NOT OCCUR
  5537						ERROR1	13,C,A,TRAP3 TRAP DID NOT TRAP TO 423,^
  5538												SALL
  5539	036157	036 13 0 00 041761 
  5540	036160	035 02 0 00 036154 		ERLP2	TRAP2A
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 139
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0195

  5541					SUBTTL FLAG SETTING
  5542			000001			MODE=1
  5543
  5544						FLGTST	USERF,<MUUO DID NOT RE-ENTER USER-MODE>^
  5545					;*TRY TO SET USERF VIA MONITOR UUO TRAP
  5546					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5547
  5548			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5549			041764			C=[USERF,,..0001]	;CORRECT FLAGS AND PC
  5550
  5551	036161	7 010 20 0 00 020000 	..0002:	CONO	PAG,LTRPEN
  5552	036162	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5553						TNSET^
  5554	036163	201 00 0 00 036163 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5555	036164	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5556					^
  5557	036165	255 17 0 00 036166 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5558	036166	336 00 0 00 041765 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5559	036167	254 00 0 00 036172 		JRST	.+3
  5560						PAGECN^
  5561	036170	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5562	036171	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5563					^
  5564	036172	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5565	036173	202 00 0 00 036207 		MOVEM	..0003		;STORE UUO TO DO
  5566	036174	200 00 0 00 041764 		MOVE	[USERF,,..0001]	;PC AND FLAGS TO RESTORE
  5567	036175	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5568	036176	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5569	036177	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5570	036200	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5571	036201	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5572	036202	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5573	036203	202 00 0 00 000430 		MOVEM	KNTRP
  5574	036204	202 00 0 00 000431 		MOVEM	KTRP
  5575	036205	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5576	036206	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5577	036207	000000	000000		..0003:	0			;HERE IS THE UUO
  5578						ERROR	..0002,13,0,0,MUUO DID NOT CAUSE TRAP^
  5579												SALL
  5580	036210	036 13 0 00 041772 
  5581	036211	035 00 0 00 036161 		ERLOOP	..0002		;IF ERROR, LOOP TO ..0002
  5582	036212	265 01 0 00 036213 	..0001:	JSP	1,.+1		;GET FLAGS
  5583	036213	607 01 0 00 010000 		TLNN	1,USERF		;ARE USERF(S) SET?
  5584						ERROR	..0002,13,C,A,MUUO DID NOT RE-ENTER USER-MODE^
  5585												SALL
  5586	036214	036 13 0 00 042003 
  5587	036215	035 00 0 00 036161 		ERLOOP	..0002		;IF ERROR, LOOP TO ..0002
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 140
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0196

  5588					;*THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER
  5589					;*MODE RESTORE VIA MUUO
  5590
  5591	036216	200 00 0 00 042006 	USRRTN:	MOVE	[UEXT]		;PC FOR RETURN
  5592	036217	202 00 0 00 044430 		MOVEM	UPMP+KNTRP
  5593	036220	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5594	036221	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5595	036222	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5596	036223	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5597	036224	202 00 0 00 044431 		MOVEM	UPMP+KTRP
  5598	036225	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5599	036226	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5600	036227	205 00 0 00 040000 		MOVSI	1B21
  5601	036230	202 00 0 00 036231 		MOVEM	.+1		;UUO TO GET US OUT
  5602	036231	000000	000000		USREXT:	0			;DO THIS UUO TO EXIT TO KERNAL
  5603	036232	254 04 0 00 036232 		HALT	.		;FATAL ERROR (DID NOT ENTER KERNAL
  5604	036233	265 00 0 00 036234 	UEXT:	JSP	.+1		;GET FLAGS
  5605	036234	603 00 0 00 010000 		TLNE	USERF		;STILL IN USER MODE
  5606	036235	254 04 0 00 036236 		HALT	.+1		;FATAL - TRAPPED FROM UUO BUT STILL
  5607	036236	254 00 0 00 036237 		JRST	.+1		;IN USER MODE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0197

  5608			000001			MODE=1
  5609						FLGTST	EXIOT,<MMUO DID NOT SET EXIOT FLAG>^
  5610					;*TRY TO SET EXIOT VIA MONITOR UUO TRAP
  5611					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5612
  5613			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5614			042007			C=[EXIOT,,..0004]	;CORRECT FLAGS AND PC
  5615
  5616	036237	7 010 20 0 00 020000 	..0005:	CONO	PAG,LTRPEN
  5617	036240	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5618						TNSET^
  5619	036241	201 00 0 00 036241 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5620	036242	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5621					^
  5622	036243	255 17 0 00 036244 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5623	036244	336 00 0 00 041765 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5624	036245	254 00 0 00 036250 		JRST	.+3
  5625						PAGECN^
  5626	036246	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5627	036247	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5628					^
  5629	036250	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5630	036251	202 00 0 00 036265 		MOVEM	..0006		;STORE UUO TO DO
  5631	036252	200 00 0 00 042007 		MOVE	[EXIOT,,..0004]	;PC AND FLAGS TO RESTORE
  5632	036253	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5633	036254	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5634	036255	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5635	036256	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5636	036257	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5637	036260	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5638	036261	202 00 0 00 000430 		MOVEM	KNTRP
  5639	036262	202 00 0 00 000431 		MOVEM	KTRP
  5640	036263	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5641	036264	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5642	036265	000000	000000		..0006:	0			;HERE IS THE UUO
  5643						ERROR	..0005,13,0,0,MUUO DID NOT CAUSE TRAP^
  5644												SALL
  5645	036266	036 13 0 00 041772 
  5646	036267	035 00 0 00 036237 		ERLOOP	..0005		;IF ERROR, LOOP TO ..0005
  5647	036270	265 01 0 00 036271 	..0004:	JSP	1,.+1		;GET FLAGS
  5648	036271	607 01 0 00 004000 		TLNN	1,EXIOT		;ARE EXIOT(S) SET?
  5649						ERROR	..0005,13,C,A,MMUO DID NOT SET EXIOT FLAG^
  5650												SALL
  5651	036272	036 13 0 00 042015 
  5652	036273	035 00 0 00 036237 		ERLOOP	..0005		;IF ERROR, LOOP TO ..0005
  5653					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-1
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0198

  5654			000000			MODE=0
  5655						FLGTST	AROV,<MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG>^
  5656					;*TRY TO SET AROV VIA MONITOR UUO TRAP
  5657					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5658
  5659			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5660			042020			C=[AROV,,..0007]	;CORRECT FLAGS AND PC
  5661
  5662	036274	7 010 20 0 00 020000 	..0010:	CONO	PAG,LTRPEN
  5663	036275	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5664						TNSET^
  5665	036276	201 00 0 00 036276 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5666	036277	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5667					^
  5668	036300	255 17 0 00 036301 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5669	036301	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5670	036302	254 00 0 00 036305 		JRST	.+3
  5671						PAGECN^
  5672	036303	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5673	036304	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5674					^
  5675	036305	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5676	036306	202 00 0 00 036322 		MOVEM	..0011		;STORE UUO TO DO
  5677	036307	200 00 0 00 042020 		MOVE	[AROV,,..0007]	;PC AND FLAGS TO RESTORE
  5678	036310	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5679	036311	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5680	036312	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5681	036313	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5682	036314	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5683	036315	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5684	036316	202 00 0 00 000430 		MOVEM	KNTRP
  5685	036317	202 00 0 00 000431 		MOVEM	KTRP
  5686	036320	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5687	036321	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5688	036322	000000	000000		..0011:	0			;HERE IS THE UUO
  5689						ERROR	..0010,13,0,0,MUUO DID NOT CAUSE TRAP^
  5690												SALL
  5691	036323	036 13 0 00 041772 
  5692	036324	035 00 0 00 036274 		ERLOOP	..0010		;IF ERROR, LOOP TO ..0010
  5693	036325	265 01 0 00 036326 	..0007:	JSP	1,.+1		;GET FLAGS
  5694	036326	607 01 0 00 400000 		TLNN	1,AROV		;ARE AROV(S) SET?
  5695						ERROR	..0010,13,C,A,MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG^
  5696												SALL
  5697	036327	036 13 0 00 042030 
  5698	036330	035 00 0 00 036274 		ERLOOP	..0010		;IF ERROR, LOOP TO ..0010
  5699					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-2
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0199

  5700						FLGTST	CRY0,<MUUO DID NOT SET CRY0 FLAG>^
  5701					;*TRY TO SET CRY0 VIA MONITOR UUO TRAP
  5702					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5703
  5704			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5705			042033			C=[CRY0,,..0012]	;CORRECT FLAGS AND PC
  5706
  5707	036331	7 010 20 0 00 020000 	..0013:	CONO	PAG,LTRPEN
  5708	036332	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5709						TNSET^
  5710	036333	201 00 0 00 036333 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5711	036334	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5712					^
  5713	036335	255 17 0 00 036336 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5714	036336	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5715	036337	254 00 0 00 036342 		JRST	.+3
  5716						PAGECN^
  5717	036340	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5718	036341	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5719					^
  5720	036342	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5721	036343	202 00 0 00 036357 		MOVEM	..0014		;STORE UUO TO DO
  5722	036344	200 00 0 00 042033 		MOVE	[CRY0,,..0012]	;PC AND FLAGS TO RESTORE
  5723	036345	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5724	036346	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5725	036347	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5726	036350	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5727	036351	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5728	036352	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5729	036353	202 00 0 00 000430 		MOVEM	KNTRP
  5730	036354	202 00 0 00 000431 		MOVEM	KTRP
  5731	036355	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5732	036356	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5733	036357	000000	000000		..0014:	0			;HERE IS THE UUO
  5734						ERROR	..0013,13,0,0,MUUO DID NOT CAUSE TRAP^
  5735												SALL
  5736	036360	036 13 0 00 041772 
  5737	036361	035 00 0 00 036331 		ERLOOP	..0013		;IF ERROR, LOOP TO ..0013
  5738	036362	265 01 0 00 036363 	..0012:	JSP	1,.+1		;GET FLAGS
  5739	036363	607 01 0 00 200000 		TLNN	1,CRY0		;ARE CRY0(S) SET?
  5740						ERROR	..0013,13,C,A,MUUO DID NOT SET CRY0 FLAG^
  5741												SALL
  5742	036364	036 13 0 00 042041 
  5743	036365	035 00 0 00 036331 		ERLOOP	..0013		;IF ERROR, LOOP TO ..0013
  5744					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-3
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0200

  5745						FLGTST	CRY1,<MUUO DID NOT SET CRY1 FLAG>^
  5746					;*TRY TO SET CRY1 VIA MONITOR UUO TRAP
  5747					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5748
  5749			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5750			042044			C=[CRY1,,..0015]	;CORRECT FLAGS AND PC
  5751
  5752	036366	7 010 20 0 00 020000 	..0016:	CONO	PAG,LTRPEN
  5753	036367	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5754						TNSET^
  5755	036370	201 00 0 00 036370 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5756	036371	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5757					^
  5758	036372	255 17 0 00 036373 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5759	036373	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5760	036374	254 00 0 00 036377 		JRST	.+3
  5761						PAGECN^
  5762	036375	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5763	036376	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5764					^
  5765	036377	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5766	036400	202 00 0 00 036414 		MOVEM	..0017		;STORE UUO TO DO
  5767	036401	200 00 0 00 042044 		MOVE	[CRY1,,..0015]	;PC AND FLAGS TO RESTORE
  5768	036402	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5769	036403	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5770	036404	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5771	036405	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5772	036406	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5773	036407	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5774	036410	202 00 0 00 000430 		MOVEM	KNTRP
  5775	036411	202 00 0 00 000431 		MOVEM	KTRP
  5776	036412	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5777	036413	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5778	036414	000000	000000		..0017:	0			;HERE IS THE UUO
  5779						ERROR	..0016,13,0,0,MUUO DID NOT CAUSE TRAP^
  5780												SALL
  5781	036415	036 13 0 00 041772 
  5782	036416	035 00 0 00 036366 		ERLOOP	..0016		;IF ERROR, LOOP TO ..0016
  5783	036417	265 01 0 00 036420 	..0015:	JSP	1,.+1		;GET FLAGS
  5784	036420	607 01 0 00 100000 		TLNN	1,CRY1		;ARE CRY1(S) SET?
  5785						ERROR	..0016,13,C,A,MUUO DID NOT SET CRY1 FLAG^
  5786												SALL
  5787	036421	036 13 0 00 042052 
  5788	036422	035 00 0 00 036366 		ERLOOP	..0016		;IF ERROR, LOOP TO ..0016
  5789					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-4
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0201

  5790						FLGTST	FOV,<MUUO DID NOT SET FOV FLAG>^
  5791					;*TRY TO SET FOV VIA MONITOR UUO TRAP
  5792					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5793
  5794			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5795			042055			C=[FOV,,..0020]	;CORRECT FLAGS AND PC
  5796
  5797	036423	7 010 20 0 00 020000 	..0021:	CONO	PAG,LTRPEN
  5798	036424	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5799						TNSET^
  5800	036425	201 00 0 00 036425 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5801	036426	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5802					^
  5803	036427	255 17 0 00 036430 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5804	036430	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5805	036431	254 00 0 00 036434 		JRST	.+3
  5806						PAGECN^
  5807	036432	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5808	036433	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5809					^
  5810	036434	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5811	036435	202 00 0 00 036451 		MOVEM	..0022		;STORE UUO TO DO
  5812	036436	200 00 0 00 042055 		MOVE	[FOV,,..0020]	;PC AND FLAGS TO RESTORE
  5813	036437	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5814	036440	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5815	036441	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5816	036442	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5817	036443	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5818	036444	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5819	036445	202 00 0 00 000430 		MOVEM	KNTRP
  5820	036446	202 00 0 00 000431 		MOVEM	KTRP
  5821	036447	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5822	036450	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5823	036451	000000	000000		..0022:	0			;HERE IS THE UUO
  5824						ERROR	..0021,13,0,0,MUUO DID NOT CAUSE TRAP^
  5825												SALL
  5826	036452	036 13 0 00 041772 
  5827	036453	035 00 0 00 036423 		ERLOOP	..0021		;IF ERROR, LOOP TO ..0021
  5828	036454	265 01 0 00 036455 	..0020:	JSP	1,.+1		;GET FLAGS
  5829	036455	607 01 0 00 040000 		TLNN	1,FOV		;ARE FOV(S) SET?
  5830						ERROR	..0021,13,C,A,MUUO DID NOT SET FOV FLAG^
  5831												SALL
  5832	036456	036 13 0 00 042063 
  5833	036457	035 00 0 00 036423 		ERLOOP	..0021		;IF ERROR, LOOP TO ..0021
  5834					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-5
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0202

  5835						FLGTST	BIS,<MUUO DID NOT SET BIS FLAG>^
  5836					;*TRY TO SET BIS VIA MONITOR UUO TRAP
  5837					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5838
  5839			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5840			042066			C=[BIS,,..0023]	;CORRECT FLAGS AND PC
  5841
  5842	036460	7 010 20 0 00 020000 	..0024:	CONO	PAG,LTRPEN
  5843	036461	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5844						TNSET^
  5845	036462	201 00 0 00 036462 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5846	036463	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5847					^
  5848	036464	255 17 0 00 036465 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5849	036465	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5850	036466	254 00 0 00 036471 		JRST	.+3
  5851						PAGECN^
  5852	036467	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5853	036470	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5854					^
  5855	036471	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5856	036472	202 00 0 00 036506 		MOVEM	..0025		;STORE UUO TO DO
  5857	036473	200 00 0 00 042066 		MOVE	[BIS,,..0023]	;PC AND FLAGS TO RESTORE
  5858	036474	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5859	036475	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5860	036476	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5861	036477	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5862	036500	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5863	036501	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5864	036502	202 00 0 00 000430 		MOVEM	KNTRP
  5865	036503	202 00 0 00 000431 		MOVEM	KTRP
  5866	036504	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5867	036505	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5868	036506	000000	000000		..0025:	0			;HERE IS THE UUO
  5869						ERROR	..0024,13,0,0,MUUO DID NOT CAUSE TRAP^
  5870												SALL
  5871	036507	036 13 0 00 041772 
  5872	036510	035 00 0 00 036460 		ERLOOP	..0024		;IF ERROR, LOOP TO ..0024
  5873	036511	265 01 0 00 036512 	..0023:	JSP	1,.+1		;GET FLAGS
  5874	036512	607 01 0 00 020000 		TLNN	1,BIS		;ARE BIS(S) SET?
  5875						ERROR	..0024,13,C,A,MUUO DID NOT SET BIS FLAG^
  5876												SALL
  5877	036513	036 13 0 00 042074 
  5878	036514	035 00 0 00 036460 		ERLOOP	..0024		;IF ERROR, LOOP TO ..0024
  5879					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-6
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0203

  5880						FLGTST	FXU,<MUUO DID NOT SET FXU FLAG>^
  5881					;*TRY TO SET FXU VIA MONITOR UUO TRAP
  5882					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5883
  5884			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5885			042077			C=[FXU,,..0026]	;CORRECT FLAGS AND PC
  5886
  5887	036515	7 010 20 0 00 020000 	..0027:	CONO	PAG,LTRPEN
  5888	036516	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5889						TNSET^
  5890	036517	201 00 0 00 036517 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5891	036520	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5892					^
  5893	036521	255 17 0 00 036522 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5894	036522	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5895	036523	254 00 0 00 036526 		JRST	.+3
  5896						PAGECN^
  5897	036524	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5898	036525	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5899					^
  5900	036526	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5901	036527	202 00 0 00 036543 		MOVEM	..0030		;STORE UUO TO DO
  5902	036530	200 00 0 00 042077 		MOVE	[FXU,,..0026]	;PC AND FLAGS TO RESTORE
  5903	036531	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5904	036532	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5905	036533	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5906	036534	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5907	036535	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5908	036536	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5909	036537	202 00 0 00 000430 		MOVEM	KNTRP
  5910	036540	202 00 0 00 000431 		MOVEM	KTRP
  5911	036541	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5912	036542	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5913	036543	000000	000000		..0030:	0			;HERE IS THE UUO
  5914						ERROR	..0027,13,0,0,MUUO DID NOT CAUSE TRAP^
  5915												SALL
  5916	036544	036 13 0 00 041772 
  5917	036545	035 00 0 00 036515 		ERLOOP	..0027		;IF ERROR, LOOP TO ..0027
  5918	036546	265 01 0 00 036547 	..0026:	JSP	1,.+1		;GET FLAGS
  5919	036547	607 01 0 00 000100 		TLNN	1,FXU		;ARE FXU(S) SET?
  5920						ERROR	..0027,13,C,A,MUUO DID NOT SET FXU FLAG^
  5921												SALL
  5922	036550	036 13 0 00 042105 
  5923	036551	035 00 0 00 036515 		ERLOOP	..0027		;IF ERROR, LOOP TO ..0027
  5924					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-7
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0204

  5925						FLGTST	DCK,<MUUO DID NOT SET DCK FLAG>^
  5926					;*TRY TO SET DCK VIA MONITOR UUO TRAP
  5927					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5928
  5929			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5930			042110			C=[DCK,,..0031]	;CORRECT FLAGS AND PC
  5931
  5932	036552	7 010 20 0 00 020000 	..0032:	CONO	PAG,LTRPEN
  5933	036553	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5934						TNSET^
  5935	036554	201 00 0 00 036554 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5936	036555	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5937					^
  5938	036556	255 17 0 00 036557 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5939	036557	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5940	036560	254 00 0 00 036563 		JRST	.+3
  5941						PAGECN^
  5942	036561	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5943	036562	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5944					^
  5945	036563	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5946	036564	202 00 0 00 036600 		MOVEM	..0033		;STORE UUO TO DO
  5947	036565	200 00 0 00 042110 		MOVE	[DCK,,..0031]	;PC AND FLAGS TO RESTORE
  5948	036566	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5949	036567	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5950	036570	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5951	036571	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5952	036572	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5953	036573	202 00 0 00 044433 		MOVEM	UPMP+STRP
  5954	036574	202 00 0 00 000430 		MOVEM	KNTRP
  5955	036575	202 00 0 00 000431 		MOVEM	KTRP
  5956	036576	402 00 0 00 044424 		SETZM	UPMP+MUUO
  5957	036577	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  5958	036600	000000	000000		..0033:	0			;HERE IS THE UUO
  5959						ERROR	..0032,13,0,0,MUUO DID NOT CAUSE TRAP^
  5960												SALL
  5961	036601	036 13 0 00 041772 
  5962	036602	035 00 0 00 036552 		ERLOOP	..0032		;IF ERROR, LOOP TO ..0032
  5963	036603	265 01 0 00 036604 	..0031:	JSP	1,.+1		;GET FLAGS
  5964	036604	607 01 0 00 000040 		TLNN	1,DCK		;ARE DCK(S) SET?
  5965						ERROR	..0032,13,C,A,MUUO DID NOT SET DCK FLAG^
  5966												SALL
  5967	036605	036 13 0 00 042116 
  5968	036606	035 00 0 00 036552 		ERLOOP	..0032		;IF ERROR, LOOP TO ..0032
  5969					PAGE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 141-8
DSKEAM	MAC	29-Mar-78 14:55		FLAG SETTING                                                                       SEQ 0205

  5970						FLGTST	CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,<MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK
  5971					+BIS FLAGS>^
  5972					;*TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP
  5973					;*TRAPS TO ANY MODE IS OK FOR THIS TEST
  5974
  5975			000001			A=1			;ACTUAL FLAGS AND PC STORED
  5976			042121			C=[CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034]	;CORRECT FLAGS AND PC
  5977
  5978	036607	7 010 20 0 00 020000 	..0035:	CONO	PAG,LTRPEN
  5979	036610	7 010 14 0 00 037116 		DATAO	PAG,[LLDUSB,,400000]	;CLEAR BASE REGISTER
  5980						TNSET^
  5981	036611	201 00 0 00 036611 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  5982	036612	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  5983					^
  5984	036613	255 17 0 00 036614 		JFCL	17,.+1		;CLEAR ANY AND ALL FLAGS
  5985	036614	336 00 0 00 037173 		SKIPN	[MODE]		;DONT PAGE IF MODE = 0
  5986	036615	254 00 0 00 036620 		JRST	.+3
  5987						PAGECN^
  5988	036616	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  5989	036617	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  5990					^
  5991	036620	205 00 0 00 040000 		MOVSI	1B21		;UUO TO DO
  5992	036621	202 00 0 00 036635 		MOVEM	..0036		;STORE UUO TO DO
  5993	036622	200 00 0 00 042121 		MOVE	[CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034]	;PC AND FLAGS TO RESTORE
  5994	036623	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  5995	036624	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  5996	036625	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  5997	036626	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  5998	036627	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  5999	036630	202 00 0 00 044433 		MOVEM	UPMP+STRP
  6000	036631	202 00 0 00 000430 		MOVEM	KNTRP
  6001	036632	202 00 0 00 000431 		MOVEM	KTRP
  6002	036633	402 00 0 00 044424 		SETZM	UPMP+MUUO
  6003	036634	402 00 0 00 044425 		SETZM	UPMP+MUUOPC	 ;CLEAR WORK AREAS
  6004	036635	000000	000000		..0036:	0			;HERE IS THE UUO
  6005						ERROR	..0035,13,0,0,MUUO DID NOT CAUSE TRAP^
  6006												SALL
  6007	036636	036 13 0 00 041772 
  6008	036637	035 00 0 00 036607 		ERLOOP	..0035		;IF ERROR, LOOP TO ..0035
  6009	036640	265 01 0 00 036641 	..0034:	JSP	1,.+1		;GET FLAGS
  6010						TLNN	1,CRY0+CRY1+AROV+FOV+FXU+DCK+BIS		;ARE CRY0+CRY1+AROV+FOV+FXU
  6011	036641	607 01 0 00 760140 	+DCK+BIS(S) SET?
  6012						ERROR	..0035,13,C,A,MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS FLAGS^
  6013												SALL
  6014	036642	036 13 0 00 042133 
  6015	036643	035 00 0 00 036607 		ERLOOP	..0035		;IF ERROR, LOOP TO ..0035
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 142
DSKEAM	MAC	29-Mar-78 14:55		TEST IOT'S IN CONCEALED MODE                                                       SEQ 0206

  6016					SUBTTL	TEST IOT'S IN CONCEALED MODE
  6017
  6018					SALL
  6019			042136		T=SIXBTZ	IOT MUUO^CONCEALED MODE
  6020					LALL
  6021			044424		A=UPMP+MUUO
  6022			036670		C=IOTCM1
  6023
  6024	036644				IOTCM:	TNSET^
  6025	036644	201 00 0 00 036644 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  6026	036645	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  6027					^
  6028						PAGECN^
  6029	036646	476 00 0 00 043725 		SETOM	CNSFLG		;INFORM PAGE ROUTINE 
  6030	036647	260 17 0 00 037016 		GO	PAGSET		;THAT I WANT CONCEALED MODE
  6031					^
  6032
  6033	036650	402 00 0 00 000010 		SETZM	10		;INIT COUNTER
  6034
  6035	036651	200 00 0 10 036717 	IOTCM0:	MOVE	IOTTAB(10)	;SETUP IOT FOR EXECUTION
  6036	036652	202 00 0 00 036670 		MOVEM	IOTCM1
  6037
  6038	036653	260 17 0 00 037025 		GO	PAGE1
  6039	036654	201 00 0 00 036676 		MOVEI	IOTCM3		;SETUP MUUO TRAP PC
  6040	036655	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  6041	036656	201 00 0 00 036674 		MOVEI	IOTCM2		;SETUP FOR INCORRECT TRAP
  6042	036657	202 00 0 00 044430 		MOVEM	UPMP+KNTRP
  6043	036660	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  6044	036661	202 00 0 00 044432 		MOVEM	UPMP+SNTRP
  6045	036662	202 00 0 00 044431 		MOVEM	UPMP+KTRP
  6046	036663	202 00 0 00 044433 		MOVEM	UPMP+STRP
  6047	036664	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  6048	036665	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  6049
  6050	036666	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR MUUO LOCATIONS
  6051	036667	403 00 0 00 044425 		SETZB	0,UPMP+MUUO+1
  6052
  6053	036670	000000	000000		IOTCM1:	0			;DO "IOT"
  6054
  6055						ERROR1	13,C,A,IOT DID NOT TRAP,C=IOT^
  6056												SALL
  6057	036671	036 13 0 00 042146 
  6058	036672	035 02 0 00 036651 		ERLP2	IOTCM0
  6059	036673	254 00 0 00 036676 		JRST	IOTCM3
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 143
DSKEAM	MAC	29-Mar-78 14:55		TEST IOT'S IN CONCEALED MODE                                                       SEQ 0207

  6060	036674				IOTCM2:	ERROR1	13,C,A,IOT DID NOT TRAP TO PROPER TRAP^
  6061	036674	036 13 0 00 042157 
  6062	036675	035 02 0 00 036651 		ERLP2	IOTCM0
  6063
  6064	036676	200 00 0 00 044424 	IOTCM3:	MOVE	UPMP+MUUO	;GET SAVED MUUO
  6065	036677	312 00 0 00 036670 		CAME	IOTCM1
  6066						ERROR1	13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
  6067	036700	036 13 0 00 042170 
  6068	036701	035 02 0 00 036651 		ERLP2	IOTCM0
  6069
  6070			042173		C=[IOTCM1+1]
  6071			000001		A=1
  6072
  6073	036702	550 01 0 00 044425 		HRRZ	1,UPMP+MUUO+1	;GET SAVED PC
  6074	036703	302 01 0 00 036671 		CAIE	1,IOTCM1+1
  6075						ERROR1	13,C,A,IOT MUUO DID NOT STORE CORRECT PC,,IOTCMX^
  6076	036704	036 13 0 00 042202 
  6077	036705	035 02 0 00 036651 		ERLP2	IOTCM0
  6078
  6079	036706	350 00 0 00 000010 		AOS	10
  6080	036707	302 10 0 00 000013 		CAIE	10,^D11		;DONE ALL ILLEGAL IOT'S ?
  6081	036710	254 00 0 00 036651 		JRST	IOTCM0		;NOT YET
  6082	036711	254 00 0 00 036733 		JRST	UBLT		;YES, TO NEXT TEST
  6083
  6084	036712				IOTCMX:	PMSG	<IOT = >^
  6085	036712	037 02 0 00 042205 		PSIXM	[SIXBIT\IOT = _\]^
  6086	036713	200 00 0 00 036670 		MOVE	IOTCM1
  6087	036714	037 13 0 00 000000 		PNTHW
  6088	036715	037 00 0 00 030242 		PCRL
  6089	036716	263 17 0 00 000000 		RTN
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 144
DSKEAM	MAC	29-Mar-78 14:55		TEST IOT'S IN CONCEALED MODE                                                       SEQ 0208

  6090					;*ILLEGAL USER MODE IOT TABLE
  6091
  6092	036717	7 000 20 0 00 000000 	IOTTAB:	CONO
  6093	036720	7 000 24 0 00 000000 		CONI
  6094	036721	7 000 14 0 00 000000 		DATAO
  6095	036722	7 000 04 0 00 000000 		DATAI
  6096	036723	7 000 30 0 00 000000 		CONSZ
  6097	036724	7 000 34 0 00 000000 		CONSO
  6098	036725	7 000 10 0 00 000000 		BLKO
  6099	036726	7 000 00 0 00 000000 		BLKI
  6100	036727	254 04 0 00 000000 		HALT
  6101	036730	254 12 0 00 000000 		JEN
  6102	036731	254 10 0 00 000000 		JRST	10,
  6103	036732	254 04 0 00 000000 		HALT
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 145
DSKEAM	MAC	29-Mar-78 14:55		TEST USER MODE ADDRESSING                                                          SEQ 0209

  6104					SUBTTL	TEST USER MODE ADDRESSING
  6105
  6106					;*USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER
  6107
  6108					SALL
  6109			042207		T=SIXBTZ	USER MODE CONCEALED^MAXIMUM BLOCK TRANSFER
  6110					LALL
  6111
  6112			044424		A=UPMP+MUUO
  6113			042217		C=[HALT 13]
  6114
  6115	036733				UBLT:
  6116	036733				UBLT3:	TNSET^
  6117	036733	201 00 0 00 036733 		MOVEI	.		;STORE THIS PC IN CASE WE GET LOST
  6118	036734	202 00 0 00 030051 		MOVEM	TESTPC		;INTO TEST
  6119					^
  6120	036735	201 00 0 00 540045 	UBLT4:	MOVEI	<<UPMP+1000>_-^D9>!540000
  6121	036736	504 00 0 00 000000 		HRL				;SETUP PAGE TABLE ENTRY
  6122	036737	205 01 0 00 777400 		MOVSI	1,-1000/2	;SO ALL PAGES POINT TO SAME 512 WORDS
  6123	036740	202 00 0 01 044000 		MOVEM	UPMP(1)
  6124	036741	253 01 0 00 036740 		AOBJN	1,.-1
  6125
  6126	036742	200 10 0 00 042220 		MOVE	10,[JRST 1,11]	;PORTAL
  6127	036743	200 11 0 00 042221 		MOVE	11,[SETOM 20]	;SET FIRST LOC
  6128	036744	200 12 0 00 042222 		MOVE	12,[BLT 7,777777] ;MAX BLT
  6129	036745	200 13 0 00 042217 		MOVE	13,[HALT 13]	;MUUO TO GET BACK TO EXEC
  6130	036746	200 07 0 00 042223 		MOVE	7,[20,,21]	;BLT START ADDRESSES
  6131
  6132	036747	201 00 0 00 036766 		MOVEI	UBLT5		;SETUP FOR TERMINATION MUUO
  6133	036750	202 00 0 00 044434 		MOVEM	UPMP+CNTRP
  6134	036751	201 00 0 00 036777 		MOVEI	UBLT6		;SETUP FOR ERROR TERMINATION MUUO
  6135	036752	202 00 0 00 044435 		MOVEM	UPMP+CTRP
  6136	036753	202 00 0 00 044436 		MOVEM	UPMP+PNTRP
  6137	036754	202 00 0 00 044437 		MOVEM	UPMP+PTRP
  6138
  6139	036755	402 00 0 00 044424 		SETZM	UPMP+MUUO	;CLEAR MUUO LOCATIONS
  6140	036756	402 00 0 00 044425 		SETZM	UPMP+MUUO+1
  6141
  6142	036757	200 00 0 00 042224 		MOVE	[0,,UPMP+LPGFTRP]	;SETUP FOR PAGE FAIL
  6143	036760	202 00 0 00 044502 		MOVEM	UPMP+LPGFTRP		;HANDLE VIA MUUO
  6144
  6145	036761	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  6146	036762	7 010 14 0 00 042225 		DATAO	PAG,[LLDUSB,,400000!<UPMP_-^D9>]
  6147
  6148	036763	254 02 1 00 036764 		JRSTF	@.+1		;GO TO USER MODE
  6149	036764	010000	000010			USERF,,10		;IN THE AC'S
  6150	036765	254 04 0 00 036765 		HALT	.
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 146
DSKEAM	MAC	29-Mar-78 14:55		TEST USER MODE ADDRESSING                                                          SEQ 0210

  6151	036766	200 00 0 00 044424 	UBLT5:	MOVE	UPMP+MUUO	;COMPLETED, CHECK RESULTS
  6152	036767	312 00 0 00 042217 		CAME	[HALT 13]
  6153						ERROR1	13,C,A,INCORRECT TERMINATION MUUO^
  6154												SALL
  6155	036770	036 13 0 00 042233 
  6156	036771	035 02 0 00 036735 		ERLP2	UBLT4
  6157
  6158			044425		A=UPMP+MUUO+1
  6159			042236		C=[USERF,,14]
  6160
  6161	036772	200 00 0 00 044425 		MOVE	UPMP+MUUO+1
  6162	036773	312 00 0 00 042236 		CAME	[USERF,,14]
  6163						ERROR1	13,C,A,INCORRECT TERMINATION PC^
  6164	036774	036 13 0 00 042244 
  6165	036775	035 02 0 00 036735 		ERLP2	UBLT4
  6166	036776	254 00 0 00 037003 		JRST	UBLT7
  6167
  6168			000005		C=5
  6169			000006		A=6
  6170
  6171	036777	200 05 0 00 044500 	UBLT6:	MOVE	5,UPMP+LEUPFW
  6172	037000	200 06 0 00 044425 		MOVE	6,UPMP+MUUO+1
  6173						ERROR1	13,C,A,PAGE FAILURE,<CORRECT=PF WORD, ACTUAL=PF PC>^
  6174	037001	036 13 0 00 042257 
  6175	037002	035 02 0 00 036735 		ERLP2	UBLT4
  6176
  6177	037003	254 00 0 00 037004 	UBLT7:	JRST	LAST
  6178
  6179	037004	254 00 0 00 030057 	LAST:	JRST	BEGEND
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 147
DSKEAM	MAC	29-Mar-78 14:55		SPECIAL PROGRAM SUBROUTINES                                                        SEQ 0211

  6180					SUBTTL	SPECIAL PROGRAM SUBROUTINES
  6181
  6182					IFNDEF	PAGSIZ,<PAGSIZ=24>
  6183
  6184	037005	000000	000000		TRAPST:	0			;FOR JSR
  6185	037006	202 00 0 00 043740 		MOVEM	XAC0#		;SAVE AC0
  6186	037007	200 00 0 00 042262 		MOVE	[TPLST,,421]	;BLT POINTER
  6187	037010	251 00 0 00 000423 		BLT	423		;FILL LOCATIONS
  6188	037011	200 00 0 00 043740 		MOVE	XAC0		;RESTORE AC0
  6189	037012	254 00 1 00 037005 		JRST	@TRAPST		;RETURN
  6190
  6191	037013	201 00 0 00 000421 	TPLST:	MOVEI	421
  6192	037014	201 00 0 00 000422 		MOVEI	422
  6193	037015	201 00 0 00 000423 		MOVEI	423
  6194
  6195					;*PAGE TABLE SETUP
  6196
  6197	037016	205 01 0 00 777754 	PAGSET:	MOVSI	1,-PAGSIZ	;SET UP PAGE COUNT
  6198	037017	200 00 0 00 042263 		MOVE	[737776,,737777]	;ADDRESS
  6199	037020	332 00 0 00 043725 		SKIPE	CNSFLG#		;IF CONCEALED DONT SET PUBLIC
  6200	037021	200 00 0 00 042264 		MOVE	[537776,,537777]
  6201	037022	270 00 0 00 040357 		ADD	[2,,2]		;NEW ADRESS
  6202	037023	202 00 0 01 044000 		MOVEM	UPMP(1)		;STORE PAGE MAP
  6203	037024	253 01 0 00 037022 		AOBJN	1,.-2		;LOOP TILL DONE
  6204	037025	265 01 0 00 037026 	PAGE1:	JSP	1,.+1
  6205	037026	603 01 0 00 010000 		TLNE	1,USERF		;IF IN USER MODE FORGET PAGE RESET
  6206	037027	263 17 0 00 000000 		POPJ	P,		;EXIT DIRECTLY
  6207	037030	7 010 20 0 00 020000 		CONO	PAG,LTRPEN
  6208	037031	7 010 14 0 00 042225 		DATAO	PAG,[LLDUSB,,400000!<UPMP_-^D9>]
  6209	037032	254 02 1 00 037033 		JRSTF	@.+1		;ENTER USER MODE
  6210	037033	010000	037034			USERF,,.+1		;ENTRY FLAG
  6211	037034	254 01 0 00 037035 		JRST	1,.+1		;ENTRY
  6212	037035	265 00 0 00 037036 		JSP	.+1		;GET FLAGS
  6213	037036	607 00 0 00 010000 		TLNN	USERF		;DID WE GET INTO USER MODE?
  6214						ERROR1	13,C,A,ENTRY TO USER MODE UNSUCESSFUL,JRSTF FAILED^
  6215	037037	036 13 0 00 042276 
  6216	037040	035 02 0 00 037016 		ERLP2	PAGSET
  6217	037041	263 17 0 00 000000 		POPJ	P,		;RETURN TO CALLING SEQUENCE
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0212

  6218					SUBTTL	*STOR* RESERVED STORAGE, MARCH 1978
  6219
  6220					;PROGRAM LITERALS
  6221
  6222						XLIST
  6223					IFNDEF	$LPAPER,<LIST>
  6224	037042					LIT
  6225	037042	42 41 63 45 00 62 
  6226	037043	45 47 51 63 64 45 
  6227	037044	62 00 64 45 63 64 
  6228	037045	77 00 00 00 00 00 
  6229	037046	45 42 62 77 00 00 
  6230	037047	41 54 54 00 00 20 
  6231	037050	07 63 77 00 00 00 
  6232	037051	037042	037046
  6233	037052	000014	000013
  6234	037053	037047	000000
  6235	037054	56 57 00 42 51 64 
  6236	037055	63 00 63 45 64 77 
  6237	037056	037042	037046
  6238	037057	000014	000013
  6239	037060	037054	000000
  6240	037061	64 62 41 60 00 45 
  6241	037062	56 41 42 54 45 00 
  6242	037063	42 51 64 77 00 00 
  6243	037064	037042	037046
  6244	037065	000014	000013
  6245	037066	037061	000000
  6246	037067	46 54 57 41 64 51 
  6247	037070	56 47 00 21 77 00 
  6248	037071	037042	037046
  6249	037072	000014	000013
  6250	037073	037067	000000
  6251	037074	41 54 54 00 21 07 
  6252	037075	63 77 00 00 00 00 
  6253	037076	037042	037046
  6254	037077	000014	000013
  6255	037100	037074	000000
  6256	037101	46 54 57 41 64 51 
  6257	037102	56 47 00 20 77 00 
  6258	037103	037042	037046
  6259	037104	000014	000013
  6260	037105	037101	000000
  6261	037106	500000	400000
  6262	037107	65 42 62 77 00 00 
  6263	037110	41 54 54 00 20 07 
  6264	037111	63 77 00 00 00 00 
  6265	037112	037042	037107
  6266	037113	000014	000013
  6267	037114	037110	000000
  6268	037115	100000	403777
  6269	037116	100000	400000
  6270	037117	037042	037107
  6271	037120	000014	000013
  6272	037121	037054	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0213

  6273	037122	100000	400001
  6274	037123	037042	037107
  6275	037124	000014	000013
  6276	037125	037067	000000
  6277	037126	100000	400002
  6278	037127	100000	400004
  6279	037130	100000	400010
  6280	037131	100000	400020
  6281	037132	100000	400040
  6282	037133	100000	400100
  6283	037134	100000	400200
  6284	037135	100000	400400
  6285	037136	100000	401000
  6286	037137	100000	402000
  6287	037140	037042	037107
  6288	037141	000014	000013
  6289	037142	037074	000000
  6290	037143	100000	403776
  6291	037144	037042	037107
  6292	037145	000014	000013
  6293	037146	037101	000000
  6294	037147	100000	403775
  6295	037150	100000	403773
  6296	037151	100000	403767
  6297	037152	100000	403757
  6298	037153	100000	403737
  6299	037154	100000	403677
  6300	037155	100000	403577
  6301	037156	100000	403377
  6302	037157	100000	402777
  6303	037160	100000	401777
  6304	037161	60 62 57 43 45 63 
  6305	037162	63 57 62 00 64 62 
  6306	037163	41 60 00 64 45 63 
  6307	037164	64 77 00 00 00 00 
  6308	037165	264 00 0 00 031537 
  6309	037166	64 62 41 60 00 23 
  6310	037167	00 46 41 51 54 45 
  6311	037170	44 77 00 00 00 00 
  6312	037171	46 41 64 41 54 77 
  6313	037172	037161	037166
  6314	037173	000000	000000
  6315	037174	037171	000000
  6316	037175	000000	031533
  6317	037176	64 62 41 60 00 23 
  6318	037177	00 63 41 66 45 44 
  6319	037200	00 60 43 77 00 00 
  6320	037201	037161	037176
  6321	037202	000014	000013
  6322	037203	037045	000000
  6323	037204	264 00 0 00 031561 
  6324	037205	64 62 41 60 00 22 
  6325	037206	00 46 41 51 54 45 
  6326	037207	44 77 00 00 00 00 
  6327	037210	037161	037205
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-2
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0214

  6328	037211	000000	000000
  6329	037212	037171	000000
  6330	037213	000000	031555
  6331	037214	64 62 41 60 00 22 
  6332	037215	00 63 41 66 45 44 
  6333	037216	00 60 43 77 00 00 
  6334	037217	037161	037214
  6335	037220	000014	000013
  6336	037221	037045	000000
  6337	037222	264 00 0 00 031603 
  6338	037223	64 62 41 60 00 21 
  6339	037224	00 46 41 51 54 45 
  6340	037225	44 77 00 00 00 00 
  6341	037226	037161	037223
  6342	037227	000000	000000
  6343	037230	037171	000000
  6344	037231	000000	031577
  6345	037232	64 62 41 60 00 21 
  6346	037233	00 63 41 66 45 44 
  6347	037234	00 60 43 77 00 00 
  6348	037235	037161	037232
  6349	037236	000014	000013
  6350	037237	037045	000000
  6351	037240	777777	032365
  6352	037241	60 65 63 50 77 00 
  6353	037242	60 65 63 50 00 44 
  6354	037243	51 44 00 56 57 64 
  6355	037244	00 64 62 41 60 77 
  6356	037245	037161	037241
  6357	037246	000000	000000
  6358	037247	037242	000000
  6359	037250	000000	032366
  6360	037251	44 51 44 00 56 57 
  6361	037252	64 00 51 56 43 62 
  6362	037253	45 55 45 56 64 00 
  6363	037254	60 57 51 56 64 45 
  6364	037255	62 77 00 00 00 00 
  6365	037256	037161	037241
  6366	037257	037250	000001
  6367	037260	037251	000000
  6368	037261	44 51 44 00 56 57 
  6369	037262	64 00 63 64 57 62 
  6370	037263	45 00 44 41 64 41 
  6371	037264	77 00 00 00 00 00 
  6372	037265	037161	037241
  6373	037266	032365	000001
  6374	037267	037261	000000
  6375	037270	60 65 63 50 52 77 
  6376	037271	44 51 44 00 56 57 
  6377	037272	64 00 64 62 41 60 
  6378	037273	00 57 62 00 43 41 
  6379	037274	54 43 00 45 41 77 
  6380	037275	037161	037270
  6381	037276	000000	000000
  6382	037277	037271	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-3
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0215

  6383	037300	44 51 44 00 56 57 
  6384	037301	64 00 64 62 41 60 
  6385	037302	77 00 00 00 00 00 
  6386	037303	037161	037270
  6387	037304	000000	000000
  6388	037305	037300	000000
  6389	037306	037161	037270
  6390	037307	037250	000001
  6391	037310	037251	000000
  6392	037311	44 51 44 00 56 57 
  6393	037312	64 00 63 41 66 45 
  6394	037313	00 62 51 47 50 64 
  6395	037314	00 62 45 64 00 41 
  6396	037315	44 44 62 77 00 00 
  6397	037316	037161	037270
  6398	037317	000002	000001
  6399	037320	037311	000000
  6400	037321	60 57 60 77 00 00 
  6401	037322	037161	037321
  6402	037323	000000	000000
  6403	037324	037300	000000
  6404	037325	44 51 44 00 56 57 
  6405	037326	64 00 62 45 63 64 
  6406	037327	57 62 45 00 44 41 
  6407	037330	64 41 77 00 00 00 
  6408	037331	037161	037321
  6409	037332	032365	000002
  6410	037333	037325	000000
  6411	037334	44 51 44 00 56 57 
  6412	037335	64 00 44 45 43 62 
  6413	037336	45 55 45 56 64 00 
  6414	037337	60 57 51 56 64 45 
  6415	037340	62 77 00 00 00 00 
  6416	037341	037161	037321
  6417	037342	037240	000001
  6418	037343	037334	000000
  6419	037344	60 57 60 52 77 00 
  6420	037345	44 51 44 00 56 57 
  6421	037346	64 00 64 62 41 60 
  6422	037347	00 57 62 00 47 45 
  6423	037350	64 00 62 45 64 65 
  6424	037351	62 56 00 41 44 62 
  6425	037352	77 00 00 00 00 00 
  6426	037353	037161	037344
  6427	037354	000000	000000
  6428	037355	037345	000000
  6429	037356	037161	037344
  6430	037357	000000	000000
  6431	037360	037300	000000
  6432	037361	037161	037344
  6433	037362	037240	000001
  6434	037363	037334	000000
  6435	037364	377777	777777
  6436	037365	41 63 50 00 57 66 
  6437	037366	45 62 46 54 57 67 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-4
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0216

  6438	037367	77 00 00 00 00 00 
  6439	037370	037161	037365
  6440	037371	000000	000000
  6441	037372	037300	000000
  6442	037373	377777	777776
  6443	037374	41 43 00 67 62 57 
  6444	037375	56 47 77 00 00 00 
  6445	037376	037161	037365
  6446	037377	037373	000002
  6447	037400	037374	000000
  6448	037401	41 63 50 43 00 57 
  6449	037402	66 45 62 46 54 57 
  6450	037403	67 77 00 00 00 00 
  6451	037404	037161	037401
  6452	037405	000000	000000
  6453	037406	037300	000000
  6454	037407	037161	037401
  6455	037410	037373	000002
  6456	037411	037374	000000
  6457	037412	400000	000000
  6458	037413	55 65 54 00 57 66 
  6459	037414	45 62 46 54 57 67 
  6460	037415	77 00 00 00 00 00 
  6461	037416	037161	037413
  6462	037417	000000	000000
  6463	037420	037300	000000
  6464	037421	41 43 00 55 57 44 
  6465	037422	51 46 51 45 44 77 
  6466	037423	037161	037413
  6467	037424	037412	000002
  6468	037425	037421	000000
  6469	037426	51 55 65 54 00 57 
  6470	037427	66 45 62 46 54 57 
  6471	037430	67 77 00 00 00 00 
  6472	037431	037161	037426
  6473	037432	000000	000000
  6474	037433	037300	000000
  6475	037434	037161	037426
  6476	037435	037412	000002
  6477	037436	037421	000000
  6478	037437	017700	000000
  6479	037440	41 44 52 42 60 00 
  6480	037441	57 66 45 62 46 54 
  6481	037442	57 67 77 00 00 00 
  6482	037443	037161	037440
  6483	037444	000000	000000
  6484	037445	037300	000000
  6485	037446	400400	000000
  6486	037447	46 63 43 00 57 66 
  6487	037450	45 62 46 54 57 67 
  6488	037451	77 00 00 00 00 00 
  6489	037452	037161	037447
  6490	037453	000000	000000
  6491	037454	037300	000000
  6492	037455	244400	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-5
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0217

  6493	037456	46 51 70 00 57 66 
  6494	037457	45 62 46 54 57 67 
  6495	037460	77 00 00 00 00 00 
  6496	037461	037161	037456
  6497	037462	000000	000000
  6498	037463	037300	000000
  6499	037464	037161	037456
  6500	037465	037455	000002
  6501	037466	037421	000000
  6502	037467	46 51 70 62 00 57 
  6503	037470	66 45 62 46 54 57 
  6504	037471	67 77 00 00 00 00 
  6505	037472	037161	037467
  6506	037473	000000	000000
  6507	037474	037300	000000
  6508	037475	037161	037467
  6509	037476	037455	000002
  6510	037477	037421	000000
  6511	037500	377400	000000
  6512	037501	46 41 44 00 57 66 
  6513	037502	45 62 46 54 57 67 
  6514	037503	77 00 00 00 00 00 
  6515	037504	037161	037501
  6516	037505	000000	000000
  6517	037506	037300	000000
  6518	037507	44 46 41 44 00 57 
  6519	037510	66 45 62 46 54 57 
  6520	037511	67 77 00 00 00 00 
  6521	037512	037161	037507
  6522	037513	000000	000000
  6523	037514	037300	000000
  6524	037515	46 63 42 00 57 66 
  6525	037516	45 62 46 54 57 67 
  6526	037517	77 00 00 00 00 00 
  6527	037520	037161	037515
  6528	037521	000000	000000
  6529	037522	037300	000000
  6530	037523	44 46 63 42 00 57 
  6531	037524	66 45 62 46 54 57 
  6532	037525	67 77 00 00 00 00 
  6533	037526	037161	037523
  6534	037527	000000	000000
  6535	037530	037300	000000
  6536	037531	46 55 60 00 57 66 
  6537	037532	45 62 46 54 57 67 
  6538	037533	77 00 00 00 00 00 
  6539	037534	037161	037531
  6540	037535	000000	000000
  6541	037536	037300	000000
  6542	037537	44 46 55 60 00 57 
  6543	037540	66 45 62 46 54 57 
  6544	037541	67 77 00 00 00 00 
  6545	037542	037161	037537
  6546	037543	000000	000000
  6547	037544	037300	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-6
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0218

  6548	037545	44 51 66 00 56 57 
  6549	037546	00 44 51 66 51 44 
  6550	037547	45 77 00 00 00 00 
  6551	037550	037161	037545
  6552	037551	000000	000000
  6553	037552	037300	000000
  6554	037553	037161	037545
  6555	037554	037173	000002
  6556	037555	037421	000000
  6557	037556	41 43 13 21 00 55 
  6558	037557	57 44 51 46 51 45 
  6559	037560	44 77 00 00 00 00 
  6560	037561	037161	037545
  6561	037562	037173	000003
  6562	037563	037556	000000
  6563	037564	51 44 51 66 00 56 
  6564	037565	57 00 44 51 66 51 
  6565	037566	44 45 77 00 00 00 
  6566	037567	037161	037564
  6567	037570	000000	000000
  6568	037571	037300	000000
  6569	037572	037161	037564
  6570	037573	037173	000002
  6571	037574	037421	000000
  6572	037575	037161	037564
  6573	037576	037173	000003
  6574	037577	037556	000000
  6575	037600	46 44 66 00 56 57 
  6576	037601	00 44 51 66 51 44 
  6577	037602	45 77 00 00 00 00 
  6578	037603	037161	037600
  6579	037604	000000	000000
  6580	037605	037300	000000
  6581	037606	037161	037600
  6582	037607	037173	000002
  6583	037610	037421	000000
  6584	037611	037161	037600
  6585	037612	037173	000003
  6586	037613	037556	000000
  6587	037614	46 44 66 62 00 56 
  6588	037615	57 00 44 51 66 51 
  6589	037616	44 45 77 00 00 00 
  6590	037617	037161	037614
  6591	037620	000000	000000
  6592	037621	037300	000000
  6593	037622	037161	037614
  6594	037623	037173	000002
  6595	037624	037421	000000
  6596	037625	037161	037614
  6597	037626	037173	000003
  6598	037627	037556	000000
  6599	037630	44 46 44 66 00 56 
  6600	037631	57 00 44 51 66 51 
  6601	037632	44 45 77 00 00 00 
  6602	037633	037161	037630
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-7
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0219

  6603	037634	000000	000000
  6604	037635	037300	000000
  6605	037636	037161	037630
  6606	037637	037173	000002
  6607	037640	037421	000000
  6608	037641	037161	037630
  6609	037642	037173	000003
  6610	037643	037556	000000
  6611	037644	42 41 44 00 64 62 
  6612	037645	41 60 77 00 00 00 
  6613	037646	037161	037644
  6614	037647	032360	000001
  6615	037650	037045	000000
  6616	037651	55 41 60 00 51 56 
  6617	037652	63 64 00 64 45 63 
  6618	037653	64 77 00 00 00 00 
  6619	037654	161000	000000
  6620	037655	55 41 60 00 41 44 
  6621	037656	62 00 20 77 00 00 
  6622	037657	037651	037655
  6623	037660	000014	000013
  6624	037661	037045	000000
  6625	037662	161000	337000
  6626	037663	55 41 60 00 41 44 
  6627	037664	62 00 23 23 27 20 
  6628	037665	20 20 77 00 00 00 
  6629	037666	037651	037663
  6630	037667	000014	000013
  6631	037670	037045	000000
  6632	037671	000200	000201
  6633	037672	001000	400000
  6634	037673	55 41 60 00 41 44 
  6635	037674	62 00 24 20 20 20 
  6636	037675	20 20 77 00 00 00 
  6637	037676	60 41 47 45 00 55 
  6638	037677	41 60 00 43 54 45 
  6639	037700	41 62 77 00 00 00 
  6640	037701	037651	037673
  6641	037702	000014	000013
  6642	037703	037676	000000
  6643	037704	001000	777000
  6644	037705	55 41 60 00 41 44 
  6645	037706	62 00 27 27 27 20 
  6646	037707	20 20 77 00 00 00 
  6647	037710	037651	037705
  6648	037711	000014	000013
  6649	037712	037676	000000
  6650	037713	41 54 54 00 42 65 
  6651	037714	64 00 41 43 43 45 
  6652	037715	63 63 77 00 00 00 
  6653	037716	037651	037673
  6654	037717	000014	000013
  6655	037720	037713	000000
  6656	037721	037651	037705
  6657	037722	000014	000013
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-8
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0220

  6658	037723	037713	000000
  6659	037724	60 41 47 45 00 46 
  6660	037725	41 51 54 00 64 62 
  6661	037726	41 60 00 64 45 63 
  6662	037727	64 77 00 00 00 00 
  6663	037730	64 62 41 60 00 46 
  6664	037731	41 51 54 45 44 77 
  6665	037732	62 45 46 00 64 57 
  6666	037733	00 24 20 20 20 20 
  6667	037734	20 77 00 00 00 00 
  6668	037735	037724	037730
  6669	037736	000000	000013
  6670	037737	037732	000000
  6671	037740	60 41 47 45 00 46 
  6672	037741	41 51 54 00 63 64 
  6673	037742	57 62 45 44 00 51 
  6674	037743	56 00 41 43 77 00 
  6675	037744	037724	037740
  6676	037745	000014	000013
  6677	037746	037732	000000
  6678	037747	60 41 47 45 00 46 
  6679	037750	41 51 54 00 63 64 
  6680	037751	57 62 45 44 00 51 
  6681	037752	56 00 20 77 00 00 
  6682	037753	037724	037747
  6683	037754	000014	000013
  6684	037755	037732	000000
  6685	037756	60 41 47 45 00 46 
  6686	037757	41 51 54 00 67 57 
  6687	037760	62 44 00 67 62 57 
  6688	037761	56 47 77 00 00 00 
  6689	037762	037724	037756
  6690	037763	000014	000013
  6691	037764	037732	000000
  6692	037765	56 57 56 15 70 15 
  6693	037766	55 45 55 77 00 00 
  6694	037767	037724	037765
  6695	037770	000014	000013
  6696	037771	037732	000000
  6697	037772	62 45 46 00 64 57 
  6698	037773	00 27 27 27 27 27 
  6699	037774	27 77 00 00 00 00 
  6700	037775	037724	037730
  6701	037776	000000	000013
  6702	037777	037772	000000
  6703	040000	037724	037740
  6704	040001	000014	000013
  6705	040002	037772	000000
  6706	040003	037724	037747
  6707	040004	000014	000013
  6708	040005	037772	000000
  6709	040006	001000	777777
  6710	040007	037724	037756
  6711	040010	000014	000013
  6712	040011	037772	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-9
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0221

  6713	040012	037724	037765
  6714	040013	000014	000013
  6715	040014	037772	000000
  6716	040015	45 70 45 43 15 60 
  6717	040016	45 62 15 60 62 57 
  6718	040017	43 45 63 63 00 55 
  6719	040020	41 60 00 64 45 63 
  6720	040021	64 77 00 00 00 00 
  6721	040022	001000	340000
  6722	040023	55 41 60 00 41 44 
  6723	040024	62 00 23 24 20 20 
  6724	040025	20 20 77 00 00 00 
  6725	040026	040015	040023
  6726	040027	000014	000013
  6727	040030	037676	000000
  6728	040031	001000	377000
  6729	040032	55 41 60 00 41 44 
  6730	040033	62 00 23 27 27 20 
  6731	040034	20 20 77 00 00 00 
  6732	040035	040015	040032
  6733	040036	000014	000013
  6734	040037	037676	000000
  6735	040040	040015	040023
  6736	040041	000014	000013
  6737	040042	037713	000000
  6738	040043	040015	040032
  6739	040044	000014	000013
  6740	040045	037713	000000
  6741	040046	55 41 60 00 62 45 
  6742	040047	41 44 57 65 64 00 
  6743	040050	46 41 51 54 65 62 
  6744	040051	45 77 00 00 00 00 
  6745	040052	040015	040046
  6746	040053	000014	000013
  6747	040054	040032	000000
  6748	040055	161003	777000
  6749	040056	040015	040046
  6750	040057	000014	000013
  6751	040060	040023	000000
  6752	040061	46 54 57 41 64 51 
  6753	040062	56 47 00 42 51 64 
  6754	040063	00 64 45 63 64 77 
  6755	040064	040061	040046
  6756	040065	000014	000013
  6757	040066	037045	032707
  6758	040067	62 45 46 00 64 57 
  6759	040070	00 77 00 00 00 00 
  6760	040071	64 62 41 60 00 64 
  6761	040072	45 63 64 77 00 00 
  6762	040073	62 45 46 00 64 57 
  6763	040074	00 10 43 57 62 62 
  6764	040075	45 43 64 11 77 00 
  6765	040076	040071	037730
  6766	040077	000014	000013
  6767	040100	040073	000000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-10
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0222

  6768	040101	040071	037740
  6769	040102	000014	000013
  6770	040103	037045	000000
  6771	040104	040071	037747
  6772	040105	000014	000013
  6773	040106	037045	000000
  6774	040107	040071	037756
  6775	040110	000014	000013
  6776	040111	037045	000000
  6777	040112	60 41 47 45 44 00 
  6778	040113	44 41 64 41 00 62 
  6779	040114	45 41 44 00 64 45 
  6780	040115	63 64 77 00 00 00 
  6781	040116	44 41 64 41 00 45 
  6782	040117	62 62 57 62 77 00 
  6783	040120	41 44 62 00 24 20 
  6784	040121	20 70 70 70 77 00 
  6785	040122	040112	040116
  6786	040123	000014	000013
  6787	040124	040120	000000
  6788	040125	41 44 62 00 27 27 
  6789	040126	27 70 70 70 77 00 
  6790	040127	040112	040116
  6791	040130	000014	000013
  6792	040131	040125	000000
  6793	040132	51 56 43 00 60 41 
  6794	040133	47 51 56 47 00 41 
  6795	040134	44 62 07 63 77 00 
  6796	040135	040112	040116
  6797	040136	000014	000013
  6798	040137	040132	033115
  6799	040140	62 45 66 45 62 63 
  6800	040141	45 00 62 45 41 44 
  6801	040142	77 00 00 00 00 00 
  6802	040143	040112	040116
  6803	040144	000014	000013
  6804	040145	040140	033115
  6805	040146	60 41 47 45 44 00 
  6806	040147	44 41 64 41 00 67 
  6807	040150	62 51 64 45 00 64 
  6808	040151	45 63 64 77 00 00 
  6809	040152	377000	400777
  6810	040153	60 41 47 45 44 00 
  6811	040154	62 45 62 45 41 44 
  6812	040155	77 00 00 00 00 00 
  6813	040156	040146	040153
  6814	040157	000014	000013
  6815	040160	040120	000000
  6816	040161	44 51 62 45 43 64 
  6817	040162	00 62 45 62 45 41 
  6818	040163	44 77 00 00 00 00 
  6819	040164	040146	040161
  6820	040165	000014	000013
  6821	040166	040120	000000
  6822	040167	000777	777000
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-11
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0223

  6823	040170	040146	040153
  6824	040171	000014	000013
  6825	040172	040125	000000
  6826	040173	040146	040161
  6827	040174	000014	000013
  6828	040175	040125	000000
  6829	040176	043742	043743
  6830	040177	040146	040116
  6831	040200	000014	000013
  6832	040201	040153	033337
  6833	040202	040146	040116
  6834	040203	000014	000013
  6835	040204	040161	033337
  6836	040205	44 51 62 45 43 64 
  6837	040206	00 62 45 41 44 77 
  6838	040207	040146	040116
  6839	040210	000014	000013
  6840	040211	040205	033344
  6841	040212	62 45 66 45 62 63 
  6842	040213	45 00 60 41 47 45 
  6843	040214	44 00 62 45 62 45 
  6844	040215	41 44 77 00 00 00 
  6845	040216	040146	040116
  6846	040217	000014	000013
  6847	040220	040212	033337
  6848	040221	62 45 66 45 62 63 
  6849	040222	45 00 44 51 62 45 
  6850	040223	43 64 00 62 45 62 
  6851	040224	45 41 44 77 00 00 
  6852	040225	040146	040116
  6853	040226	000014	000013
  6854	040227	040221	033351
  6855	040230	60 41 47 45 00 46 
  6856	040231	41 51 54 00 67 57 
  6857	040232	62 44 00 64 45 63 
  6858	040233	64 77 00 00 00 00 
  6859	040234	000000	000201
  6860	040235	040230	037730
  6861	040236	000014	000013
  6862	040237	037171	000000
  6863	040240	040230	037740
  6864	040241	000014	000013
  6865	040242	037045	000000
  6866	040243	040230	037747
  6867	040244	000014	000013
  6868	040245	037045	000000
  6869	040246	001000	400170
  6870	040247	040230	037756
  6871	040250	000014	000013
  6872	040251	037045	000000
  6873	040252	67 62 51 64 45 00 
  6874	040253	60 62 57 64 45 43 
  6875	040254	64 00 64 45 63 64 
  6876	040255	77 00 00 00 00 00 
  6877	040256	040252	037730
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-12
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0224

  6878	040257	000014	000013
  6879	040260	040120	000000
  6880	040261	040252	037740
  6881	040262	000014	000013
  6882	040263	040120	000000
  6883	040264	040252	037747
  6884	040265	000014	000013
  6885	040266	040120	000000
  6886	040267	131000	400170
  6887	040270	040252	037756
  6888	040271	000014	000013
  6889	040272	040120	000000
  6890	040273	44 41 64 41 00 67 
  6891	040274	57 62 44 00 67 62 
  6892	040275	57 56 47 77 00 00 
  6893	040276	040252	040273
  6894	040277	000014	000013
  6895	040300	040120	000000
  6896	040301	040252	037730
  6897	040302	000014	000013
  6898	040303	040125	000000
  6899	040304	040252	037740
  6900	040305	000014	000013
  6901	040306	040125	000000
  6902	040307	111000	777171
  6903	040310	040252	037756
  6904	040311	000014	000013
  6905	040312	040125	000000
  6906	040313	040252	040273
  6907	040314	000014	000013
  6908	040315	040125	000000
  6909	040316	60 41 47 45 44 00 
  6910	040317	42 54 64 00 64 45 
  6911	040320	63 64 77 00 00 00 
  6912	040321	740076	740076
  6913	040322	340000	340001
  6914	040323	56 57 64 00 41 54 
  6915	040324	54 00 72 45 62 57 
  6916	040325	63 77 00 00 00 00 
  6917	040326	040316	040323
  6918	040327	000014	000013
  6919	040330	040073	000000
  6920	040331	777777	777777
  6921	040332	56 57 64 00 41 54 
  6922	040333	54 00 57 56 45 63 
  6923	040334	77 00 00 00 00 00 
  6924	040335	040316	040332
  6925	040336	000014	000013
  6926	040337	040073	000000
  6927	040340	525252	525252
  6928	040341	56 57 64 00 41 54 
  6929	040342	64 00 42 51 64 63 
  6930	040343	77 00 00 00 00 00 
  6931	040344	040316	040341
  6932	040345	000014	000013
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-13
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0225

  6933	040346	040073	000000
  6934	040347	252525	252525
  6935	040350	42 41 63 45 00 62 
  6936	040351	45 47 51 63 64 45 
  6937	040352	62 00 62 45 54 57 
  6938	040353	43 41 64 51 57 56 
  6939	040354	00 64 45 63 64 77 
  6940	040355	076200	076201
  6941	040356	540000	540001
  6942	040357	000002	000002
  6943	040360	255 00 0 00 000000 
  6944	040361	55 65 65 57 00 46 
  6945	040362	41 51 54 45 44 77 
  6946	040363	43 57 62 35 55 65 
  6947	040364	65 57 14 00 41 43 
  6948	040365	64 35 55 65 65 57 
  6949	040366	00 41 44 62 77 00 
  6950	040367	040350	040361
  6951	040370	000014	000013
  6952	040371	040363	000000
  6953	040372	55 65 65 57 00 63 
  6954	040373	64 57 62 45 44 00 
  6955	040374	67 62 57 56 47 77 
  6956	040375	60 41 47 45 00 20 
  6957	040376	77 00 00 00 00 00 
  6958	040377	040350	040372
  6959	040400	000014	000013
  6960	040401	040375	000000
  6961	040402	55 65 65 57 00 60 
  6962	040403	43 00 63 64 57 62 
  6963	040404	45 44 00 67 62 57 
  6964	040405	56 47 77 00 00 00 
  6965	040406	040350	040402
  6966	040407	000014	000013
  6967	040410	040375	000000
  6968	040411	100000	400076
  6969	040412	62 45 54 57 43 41 
  6970	040413	64 45 44 00 60 41 
  6971	040414	47 45 77 00 00 00 
  6972	040415	040350	040372
  6973	040416	000014	000013
  6974	040417	040412	000000
  6975	040420	040350	040402
  6976	040421	000014	000013
  6977	040422	040412	000000
  6978	040423	60 41 47 45 00 46 
  6979	040424	41 51 54 00 46 41 
  6980	040425	51 54 45 44 77 00 
  6981	040426	040350	040423
  6982	040427	000014	000013
  6983	040430	037772	000000
  6984	040431	040350	037740
  6985	040432	000014	000013
  6986	040433	037772	000000
  6987	040434	040350	037756
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-14
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0226

  6988	040435	000014	000013
  6989	040436	037772	000000
  6990	040437	62 45 54 57 43 41 
  6991	040440	64 45 44 00 45 70 
  6992	040441	45 43 15 60 45 62 
  6993	040442	15 60 62 57 43 45 
  6994	040443	63 63 00 60 41 47 
  6995	040444	51 56 47 77 00 00 
  6996	040445	040437	040116
  6997	040446	000014	000013
  6998	040447	040153	033337
  6999	040450	040437	040116
  7000	040451	000014	000013
  7001	040452	040161	033344
  7002	040453	040437	040116
  7003	040454	000014	000013
  7004	040455	040205	033344
  7005	040456	254 01 0 00 340001 
  7006	040457	254 02 1 00 340002 
  7007	040460	000600	340003
  7008	040461	254 00 0 00 340003 
  7009	040462	264 00 0 00 034113 
  7010	040463	264 00 0 00 034105 
  7011	040464	45 60 60 00 41 44 
  7012	040465	62 00 64 62 41 60 
  7013	040466	00 45 62 62 57 62 
  7014	040467	77 00 00 00 00 00 
  7015	040470	64 62 41 60 60 45 
  7016	040471	44 00 65 63 51 56 
  7017	040472	47 00 65 42 62 77 
  7018	040473	040437	040464
  7019	040474	000000	000000
  7020	040475	040470	000000
  7021	040476	000000	340003
  7022	040477	63 41 66 45 44 00 
  7023	040500	60 43 00 67 62 57 
  7024	040501	56 47 77 00 00 00 
  7025	040502	040437	040464
  7026	040503	000014	000013
  7027	040504	040477	000000
  7028	040505	60 41 47 45 00 46 
  7029	040506	41 65 54 64 00 46 
  7030	040507	41 51 54 45 44 77 
  7031	040510	040437	040505
  7032	040511	000014	000013
  7033	040512	037171	000000
  7034	040513	62 45 54 57 43 41 
  7035	040514	64 51 57 56 00 46 
  7036	040515	41 51 54 45 44 77 
  7037	040516	60 41 47 45 00 46 
  7038	040517	41 51 54 00 64 62 
  7039	040520	41 60 60 45 44 00 
  7040	040521	64 57 00 60 41 47 
  7041	040522	45 00 20 77 00 00 
  7042	040523	040437	040513
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-15
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0227

  7043	040524	000014	000013
  7044	040525	040516	000000
  7045	040526	62 45 54 57 43 41 
  7046	040527	64 51 57 56 00 63 
  7047	040530	65 43 43 45 45 44 
  7048	040531	45 44 77 00 00 00 
  7049	040532	040437	040526
  7050	040533	000014	000013
  7051	040534	037756	000000
  7052	040535	264 00 0 00 034203 
  7053	040536	040437	037166
  7054	040537	000000	000000
  7055	040540	037171	000000
  7056	040541	000000	034200
  7057	040542	040437	037176
  7058	040543	000014	000013
  7059	040544	037045	000000
  7060	040545	264 00 0 00 034222 
  7061	040546	040437	037205
  7062	040547	000000	000000
  7063	040550	037171	000000
  7064	040551	000000	034217
  7065	040552	040437	037214
  7066	040553	000014	000013
  7067	040554	037045	000000
  7068	040555	264 00 0 00 034241 
  7069	040556	040437	037223
  7070	040557	000000	000000
  7071	040560	037171	000000
  7072	040561	000000	034236
  7073	040562	040437	037232
  7074	040563	000014	000013
  7075	040564	037045	000000
  7076	040565	62 45 54 57 43 41 
  7077	040566	64 45 44 00 51 56 
  7078	040567	64 45 62 62 65 60 
  7079	040570	64 00 64 45 63 64 
  7080	040571	77 00 00 00 00 00 
  7081	040572	264 00 0 00 034406 
  7082	040573	264 00 0 00 034376 
  7083	040574	264 00 0 00 034366 
  7084	040575	264 00 0 00 034356 
  7085	040576	264 00 0 00 034346 
  7086	040577	264 00 0 00 034336 
  7087	040600	264 00 0 00 034326 
  7088	040601	264 00 0 00 034310 
  7089	040602	60 41 47 45 00 20 
  7090	040603	00 51 56 64 45 62 
  7091	040604	62 65 60 64 00 45 
  7092	040605	62 62 57 62 77 00 
  7093	040606	43 57 62 35 41 60 
  7094	040607	62 14 00 41 43 64 
  7095	040610	35 60 51 77 00 00 
  7096	040611	040565	040602
  7097	040612	000014	000013
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-16
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0228

  7098	040613	040606	000000
  7099	040614	264 00 0 00 030104 
  7100	040615	62 45 54 57 43 41 
  7101	040616	64 45 44 00 45 60 
  7102	040617	55 60 00 62 45 46 
  7103	040620	51 54 54 00 60 41 
  7104	040621	47 51 56 47 77 00 
  7105	040622	040615	040116
  7106	040623	000014	000013
  7107	040624	040153	033337
  7108	040625	040615	040116
  7109	040626	000014	000013
  7110	040627	040161	033344
  7111	040630	040615	040116
  7112	040631	000014	000013
  7113	040632	040205	033344
  7114	040633	42 54 64 00 60 41 
  7115	040634	47 45 00 46 41 51 
  7116	040635	54 77 00 00 00 00 
  7117	040636	400775	400776
  7118	040637	41 43 64 35 42 54 
  7119	040640	64 00 41 43 77 00 
  7120	040641	040633	037730
  7121	040642	000014	000013
  7122	040643	040637	000000
  7123	040644	400777	401000
  7124	040645	42 54 64 00 41 43 
  7125	040646	00 67 62 57 56 47 
  7126	040647	77 00 00 00 00 00 
  7127	040650	040633	040645
  7128	040651	000014	000013
  7129	040652	037045	000000
  7130	040653	011000	401000
  7131	040654	040633	037756
  7132	040655	000014	000013
  7133	040656	037045	000000
  7134	040657	000000	034547
  7135	040660	63 41 66 45 44 00 
  7136	040661	46 54 41 47 63 14 
  7137	040662	14 60 43 00 67 62 
  7138	040663	57 56 47 77 00 00 
  7139	040664	040633	040660
  7140	040665	000014	000013
  7141	040666	037045	000000
  7142	040667	42 54 64 00 44 41 
  7143	040670	64 41 00 67 62 57 
  7144	040671	56 47 77 00 00 00 
  7145	040672	41 44 62 00 24 20 
  7146	040673	20 27 27 25 77 00 
  7147	040674	040633	040667
  7148	040675	000014	000013
  7149	040676	040672	000000
  7150	040677	41 44 62 00 24 20 
  7151	040700	20 27 27 26 77 00 
  7152	040701	040633	040667
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-17
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0229

  7153	040702	000014	000013
  7154	040703	040677	000000
  7155	040704	41 44 62 00 24 20 
  7156	040705	20 27 27 27 77 00 
  7157	040706	040633	040667
  7158	040707	000014	000013
  7159	040710	040704	000000
  7160	040711	41 44 62 00 24 20 
  7161	040712	21 20 20 20 77 00 
  7162	040713	040633	040667
  7163	040714	000014	000013
  7164	040715	040711	000000
  7165	040716	41 44 62 00 24 20 
  7166	040717	21 20 20 21 77 00 
  7167	040720	040633	040667
  7168	040721	000014	000013
  7169	040722	040716	000000
  7170	040723	41 44 62 00 24 20 
  7171	040724	21 20 20 22 77 00 
  7172	040725	040633	040667
  7173	040726	000014	000013
  7174	040727	040723	000000
  7175	040730	42 54 64 00 67 45 
  7176	040731	56 64 00 64 57 57 
  7177	040732	00 46 41 62 77 00 
  7178	040733	040633	040730
  7179	040734	000014	000013
  7180	040735	040723	000000
  7181	040736	740075	740076
  7182	040737	42 71 64 45 00 60 
  7183	040740	41 47 45 00 46 41 
  7184	040741	51 54 77 00 00 00 
  7185	040742	44 06 0 00 400000 
  7186	040743	51 54 44 42 00 64 
  7187	040744	62 41 60 00 46 41 
  7188	040745	51 54 45 44 77 00 
  7189	040746	41 43 64 35 60 57 
  7190	040747	51 56 64 45 62 14 
  7191	040750	00 43 57 62 35 42 
  7192	040751	71 64 45 00 41 43 
  7193	040752	77 00 00 00 00 00 
  7194	040753	040737	040743
  7195	040754	000014	000013
  7196	040755	040746	000000
  7197	040756	51 54 44 42 00 43 
  7198	040757	50 41 56 47 45 44 
  7199	040760	00 42 71 64 45 00 
  7200	040761	41 43 77 00 00 00 
  7201	040762	040737	040756
  7202	040763	000014	000013
  7203	040764	040746	000000
  7204	040765	36 06 0 00 400000 
  7205	040766	51 54 44 42 00 60 
  7206	040767	57 51 56 64 45 62 
  7207	040770	00 67 62 57 56 47 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-18
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0230

  7208	040771	77 00 00 00 00 00 
  7209	040772	040737	040766
  7210	040773	000014	000013
  7211	040774	037045	000000
  7212	040775	51 54 44 42 00 55 
  7213	040776	57 44 51 46 51 45 
  7214	040777	44 00 42 71 64 45 
  7215	041000	00 63 57 65 62 43 
  7216	041001	45 77 00 00 00 00 
  7217	041002	41 44 62 00 24 20 
  7218	041003	20 20 20 20 77 00 
  7219	041004	040737	040775
  7220	041005	000014	000013
  7221	041006	041002	000000
  7222	041007	040737	037756
  7223	041010	000014	000013
  7224	041011	037045	000000
  7225	041012	020000	034706
  7226	041013	040737	040660
  7227	041014	000014	000013
  7228	041015	037045	000000
  7229	041016	51 44 60 42 00 64 
  7230	041017	62 41 60 00 46 41 
  7231	041020	51 54 45 44 77 00 
  7232	041021	040737	041016
  7233	041022	000014	000013
  7234	041023	040746	000000
  7235	041024	51 44 60 42 00 43 
  7236	041025	50 41 56 47 45 44 
  7237	041026	00 42 71 64 45 00 
  7238	041027	41 43 77 00 00 00 
  7239	041030	040737	041024
  7240	041031	000014	000013
  7241	041032	040746	000000
  7242	041033	51 44 60 42 00 60 
  7243	041034	57 51 56 64 45 62 
  7244	041035	00 67 62 57 56 47 
  7245	041036	77 00 00 00 00 00 
  7246	041037	040737	041033
  7247	041040	000014	000013
  7248	041041	037045	000000
  7249	041042	51 44 60 42 00 55 
  7250	041043	57 44 51 46 51 45 
  7251	041044	44 00 42 71 64 45 
  7252	041045	00 44 45 63 64 51 
  7253	041046	56 41 64 51 57 56 
  7254	041047	77 00 00 00 00 00 
  7255	041050	040737	041042
  7256	041051	000014	000013
  7257	041052	041002	000000
  7258	041053	020000	034743
  7259	041054	44 06 0 00 000014 
  7260	041055	60 57 51 56 64 45 
  7261	041056	62 00 46 45 64 43 
  7262	041057	50 00 64 62 41 60 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-19
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0231

  7263	041060	00 46 41 51 54 45 
  7264	041061	44 77 00 00 00 00 
  7265	041062	040737	041055
  7266	041063	000014	000013
  7267	041064	041002	000000
  7268	041065	60 57 51 56 64 45 
  7269	041066	62 00 46 45 64 43 
  7270	041067	50 00 55 57 44 51 
  7271	041070	46 51 45 44 00 42 
  7272	041071	71 64 45 00 41 43 
  7273	041072	77 00 00 00 00 00 
  7274	041073	040737	041065
  7275	041074	000014	000013
  7276	041075	037045	000000
  7277	041076	41 43 00 07 41 43 
  7278	041077	64 07 00 55 57 44 
  7279	041100	51 46 51 45 44 77 
  7280	041101	040737	041076
  7281	041102	000014	000013
  7282	041103	037045	000000
  7283	041104	60 57 51 56 64 45 
  7284	041105	62 00 67 62 57 56 
  7285	041106	47 77 00 00 00 00 
  7286	041107	040737	041104
  7287	041110	000014	000013
  7288	041111	041002	000000
  7289	041112	011000	400000
  7290	041113	000000	035002
  7291	041114	44 57 65 42 54 45 
  7292	041115	00 55 57 66 45 00 
  7293	041116	60 41 47 45 00 46 
  7294	041117	41 51 54 77 00 00 
  7295	041120	041114	037730
  7296	041121	000014	000013
  7297	041122	041002	000000
  7298	041123	44 55 57 66 45 00 
  7299	041124	55 57 44 51 46 51 
  7300	041125	45 44 00 41 43 77 
  7301	041126	46 45 64 43 50 00 
  7302	041127	46 62 57 55 00 24 
  7303	041130	20 20 20 20 20 77 
  7304	041131	041114	041123
  7305	041132	000014	000013
  7306	041133	041126	000000
  7307	041134	44 55 57 66 45 00 
  7308	041135	55 57 44 51 46 51 
  7309	041136	45 44 00 41 43 21 
  7310	041137	77 00 00 00 00 00 
  7311	041140	46 45 64 43 50 00 
  7312	041141	46 62 57 55 00 24 
  7313	041142	20 20 20 20 21 77 
  7314	041143	041114	041134
  7315	041144	000014	000013
  7316	041145	041140	000000
  7317	041146	041114	037756
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-20
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0232

  7318	041147	000014	000013
  7319	041150	037045	000000
  7320	041151	000000	035051
  7321	041152	041114	040660
  7322	041153	000014	000013
  7323	041154	037045	000000
  7324	041155	041114	037730
  7325	041156	000014	000013
  7326	041157	037045	000000
  7327	041160	46 45 64 43 50 00 
  7328	041161	46 62 57 55 00 24 
  7329	041162	20 20 27 27 27 77 
  7330	041163	041114	041123
  7331	041164	000014	000013
  7332	041165	041160	000000
  7333	041166	46 45 64 43 50 00 
  7334	041167	46 62 57 55 00 24 
  7335	041170	20 21 20 20 20 77 
  7336	041171	041114	041134
  7337	041172	000014	000013
  7338	041173	041166	000000
  7339	041174	001000	401000
  7340	041175	000000	035111
  7341	041176	44 42 54 00 55 57 
  7342	041177	66 45 00 64 57 00 
  7343	041200	55 45 55 00 60 41 
  7344	041201	47 45 00 46 41 51 
  7345	041202	54 77 00 00 00 00 
  7346	041203	041176	037730
  7347	041204	000014	000013
  7348	041205	041002	000000
  7349	041206	44 55 57 66 45 55 
  7350	041207	00 55 57 44 51 46 
  7351	041210	51 45 44 00 41 43 
  7352	041211	00 44 45 63 64 51 
  7353	041212	56 41 64 51 57 56 
  7354	041213	77 00 00 00 00 00 
  7355	041214	041176	041206
  7356	041215	000014	000013
  7357	041216	041002	000000
  7358	041217	44 55 57 66 45 55 
  7359	041220	00 55 57 44 51 46 
  7360	041221	51 45 44 00 41 43 
  7361	041222	21 00 44 45 63 64 
  7362	041223	51 56 41 64 51 57 
  7363	041224	56 77 00 00 00 00 
  7364	041225	41 44 62 00 24 20 
  7365	041226	20 20 20 21 77 00 
  7366	041227	041176	041217
  7367	041230	000014	000013
  7368	041231	041225	000000
  7369	041232	44 55 57 66 45 55 
  7370	041233	00 55 57 44 51 46 
  7371	041234	51 45 44 00 41 43 
  7372	041235	77 00 00 00 00 00 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-21
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0233

  7373	041236	041176	041232
  7374	041237	000014	000013
  7375	041240	037045	000000
  7376	041241	44 55 57 66 45 55 
  7377	041242	00 55 57 44 51 46 
  7378	041243	51 45 44 00 41 43 
  7379	041244	21 77 00 00 00 00 
  7380	041245	041176	041241
  7381	041246	000014	000013
  7382	041247	037045	000000
  7383	041250	011000	400001
  7384	041251	041176	037756
  7385	041252	000014	000013
  7386	041253	037045	000000
  7387	041254	000000	035157
  7388	041255	041176	040660
  7389	041256	000014	000013
  7390	041257	037045	000000
  7391	041260	22 56 44 00 67 57 
  7392	041261	62 44 00 44 55 57 
  7393	041262	66 45 55 77 00 00 
  7394	041263	041176	037730
  7395	041264	000014	000013
  7396	041265	041260	000000
  7397	041266	041176	041206
  7398	041267	000014	000013
  7399	041270	040704	000000
  7400	041271	041176	041217
  7401	041272	000014	000013
  7402	041273	040711	000000
  7403	041274	000000	035225
  7404	041275	64 62 41 60 00 51 
  7405	041276	56 63 64 62 65 43 
  7406	041277	64 51 57 56 00 60 
  7407	041300	41 47 45 00 46 41 
  7408	041301	51 54 77 00 00 00 
  7409	041302	264 00 0 00 400326 
  7410	041303	041275	037730
  7411	041304	000000	000000
  7412	041305	037171	000000
  7413	041306	52 62 63 64 46 00 
  7414	041307	50 41 60 60 45 56 
  7415	041310	45 44 77 00 00 00 
  7416	041311	56 57 00 64 62 41 
  7417	041312	60 77 00 00 00 00 
  7418	041313	041275	041306
  7419	041314	000000	000000
  7420	041315	041311	000000
  7421	041316	011000	400326
  7422	041317	041275	037756
  7423	041320	000014	000013
  7424	041321	037045	000000
  7425	041322	000600	035277
  7426	041323	041275	040660
  7427	041324	000014	000013
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-22
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0234

  7428	041325	041116	000000
  7429	041326	60 41 47 45 00 46 
  7430	041327	41 51 54 00 43 57 
  7431	041330	56 64 51 56 65 45 
  7432	041331	00 46 41 51 54 45 
  7433	041332	44 77 00 00 00 00 
  7434	041333	041275	041326
  7435	041334	000000	000000
  7436	041335	037171	000000
  7437	041336	000000	400332
  7438	041337	62 45 54 57 43 41 
  7439	041340	64 51 57 56 00 51 
  7440	041341	56 43 57 62 62 45 
  7441	041342	43 64 77 00 00 00 
  7442	041343	60 46 00 43 57 56 
  7443	041344	64 51 56 65 45 77 
  7444	041345	041275	041337
  7445	041346	000014	000013
  7446	041347	041343	000000
  7447	041350	000000	035277
  7448	041351	64 62 41 60 00 63 
  7449	041352	41 66 45 44 00 60 
  7450	041353	43 00 67 62 57 56 
  7451	041354	47 77 00 00 00 00 
  7452	041355	041275	041351
  7453	041356	000014	000013
  7454	041357	041343	000000
  7455	041360	64 62 41 60 00 60 
  7456	041361	41 47 45 00 46 41 
  7457	041362	51 54 77 00 00 00 
  7458	041363	264 00 0 00 035402 
  7459	041364	041360	037730
  7460	041365	000000	000000
  7461	041366	037171	000000
  7462	041367	041360	041306
  7463	041370	000000	000000
  7464	041371	041311	000000
  7465	041372	64 62 41 60 00 23 
  7466	041373	00 50 41 60 60 45 
  7467	041374	56 45 44 77 00 00 
  7468	041375	56 57 00 60 41 47 
  7469	041376	45 00 46 41 51 54 
  7470	041377	77 00 00 00 00 00 
  7471	041400	041360	041372
  7472	041401	000000	000000
  7473	041402	041375	000000
  7474	041403	001000	400373
  7475	041404	041360	037756
  7476	041405	000014	000013
  7477	041406	037045	000000
  7478	041407	000600	400373
  7479	041410	041360	040660
  7480	041411	000014	000013
  7481	041412	041116	000000
  7482	041413	51 17 57 00 51 56 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-23
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0235

  7483	041414	63 64 00 60 41 47 
  7484	041415	45 00 46 41 51 54 
  7485	041416	77 00 00 00 00 00 
  7486	041417	43 57 56 51 00 64 
  7487	041420	62 41 60 00 46 41 
  7488	041421	51 54 45 44 77 00 
  7489	041422	041413	041417
  7490	041423	000000	000000
  7491	041424	037171	000000
  7492	041425	44 41 64 41 51 77 
  7493	041426	041413	037756
  7494	041427	000014	000013
  7495	041430	041425	000000
  7496	041431	000000	035442
  7497	041432	041413	040660
  7498	041433	000014	000013
  7499	041434	041425	000000
  7500	041435	55 57 56 51 64 57 
  7501	041436	62 00 65 65 57 00 
  7502	041437	64 45 63 64 00 15 
  7503	041440	00 64 62 41 60 60 
  7504	041441	51 56 47 00 51 56 
  7505	041442	00 53 45 62 56 41 
  7506	041443	54 00 55 57 44 45 
  7507	041444	77 00 00 00 00 00 
  7508	041445	55 65 65 57 00 44 
  7509	041446	51 44 00 56 57 64 
  7510	041447	00 64 62 41 60 00 
  7511	041450	51 56 00 53 45 62 
  7512	041451	56 41 54 00 55 57 
  7513	041452	44 45 77 00 00 00 
  7514	041453	43 10 43 57 62 62 
  7515	041454	45 43 64 11 35 55 
  7516	041455	57 56 51 64 57 62 
  7517	041456	00 65 65 57 77 00 
  7518	041457	041435	041445
  7519	041460	035557	000000
  7520	041461	041453	000000
  7521	041462	43 10 43 57 62 62 
  7522	041463	45 43 64 11 35 55 
  7523	041464	65 65 57 77 00 00 
  7524	041465	041435	041445
  7525	041466	035602	000000
  7526	041467	041462	000000
  7527	041470	041435	041445
  7528	041471	035625	000000
  7529	041472	041462	000000
  7530	041473	55 57 56 51 64 57 
  7531	041474	62 00 65 65 57 00 
  7532	041475	64 45 63 64 00 15 
  7533	041476	00 65 65 57 00 63 
  7534	041477	64 57 62 45 00 51 
  7535	041500	56 64 57 00 24 22 
  7536	041501	24 77 00 00 00 00 
  7537	041502	43 57 56 64 45 56 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-24
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0236

  7538	041503	64 63 00 57 46 00 
  7539	041504	24 22 24 00 51 63 
  7540	041505	00 56 57 64 00 45 
  7541	041506	61 65 41 54 00 64 
  7542	041507	57 00 45 70 45 43 
  7543	041510	65 64 45 44 00 65 
  7544	041511	65 57 77 00 00 00 
  7545	041512	041473	041502
  7546	041513	035650	000424
  7547	041514	037045	000000
  7548	041515	55 57 56 51 64 57 
  7549	041516	62 00 65 65 57 00 
  7550	041517	15 00 63 64 57 62 
  7551	041520	45 00 43 57 62 62 
  7552	041521	45 43 64 00 60 43 
  7553	041522	77 00 00 00 00 00 
  7554	041523	000000	035675
  7555	041524	55 65 65 57 00 44 
  7556	041525	51 44 00 56 57 64 
  7557	041526	00 63 64 57 62 45 
  7558	041527	00 64 50 45 00 43 
  7559	041530	57 62 62 45 43 64 
  7560	041531	00 60 43 77 00 00 
  7561	041532	43 10 24 22 25 11 
  7562	041533	00 50 41 63 00 60 
  7563	041534	43 00 63 64 57 62 
  7564	041535	45 44 77 00 00 00 
  7565	041536	041515	041524
  7566	041537	041523	000001
  7567	041540	041532	000000
  7568	041541	55 57 56 51 64 57 
  7569	041542	62 00 65 65 57 00 
  7570	041543	15 00 63 64 57 62 
  7571	041544	45 00 45 00 43 57 
  7572	041545	62 62 45 43 64 54 
  7573	041546	71 77 00 00 00 00 
  7574	041547	55 65 65 57 00 44 
  7575	041550	51 44 00 56 57 64 
  7576	041551	00 63 64 57 62 45 
  7577	041552	00 45 00 43 57 62 
  7578	041553	62 45 43 64 54 71 
  7579	041554	77 00 00 00 00 00 
  7580	041555	43 10 24 22 24 11 
  7581	041556	00 50 41 63 00 45 
  7582	041557	00 66 41 54 65 45 
  7583	041560	00 63 64 57 62 45 
  7584	041561	44 77 00 00 00 00 
  7585	041562	041541	041547
  7586	041563	000007	000001
  7587	041564	041555	000000
  7588	041565	55 57 56 51 64 57 
  7589	041566	62 00 65 65 57 00 
  7590	041567	64 45 63 64 00 15 
  7591	041570	00 64 62 41 60 60 
  7592	041571	51 56 47 00 51 56 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-25
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0237

  7593	041572	00 43 57 56 43 45 
  7594	041573	41 54 45 44 00 55 
  7595	041574	57 44 45 77 00 00 
  7596	041575	55 65 65 57 00 44 
  7597	041576	51 44 00 56 57 64 
  7598	041577	00 64 62 41 60 00 
  7599	041600	51 56 00 43 57 56 
  7600	041601	43 45 41 54 45 44 
  7601	041602	00 55 57 44 45 77 
  7602	041603	041565	041575
  7603	041604	035753	044424
  7604	041605	041453	000000
  7605	041606	55 65 65 57 00 64 
  7606	041607	62 41 60 60 45 44 
  7607	041610	00 64 57 00 51 56 
  7608	041611	43 57 62 62 45 43 
  7609	041612	64 00 64 62 41 60 
  7610	041613	00 54 57 43 41 64 
  7611	041614	51 57 56 77 00 00 
  7612	041615	041565	041606
  7613	041616	035753	044424
  7614	041617	037045	000000
  7615	041620	55 65 65 57 00 44 
  7616	041621	51 44 00 56 57 64 
  7617	041622	00 64 62 41 60 77 
  7618	041623	041473	041620
  7619	041624	036007	044424
  7620	041625	037045	000000
  7621	041626	041473	041502
  7622	041627	036007	044424
  7623	041630	037045	000000
  7624	041631	55 65 65 57 00 64 
  7625	041632	62 41 60 45 44 00 
  7626	041633	64 57 00 51 56 43 
  7627	041634	57 62 62 45 43 64 
  7628	041635	00 64 62 41 60 00 
  7629	041636	54 57 43 41 64 51 
  7630	041637	57 56 77 00 00 00 
  7631	041640	041473	041631
  7632	041641	036007	044424
  7633	041642	037045	000000
  7634	041643	55 57 56 51 64 57 
  7635	041644	62 00 65 65 57 00 
  7636	041645	15 00 63 64 57 62 
  7637	041646	51 56 47 00 64 50 
  7638	041647	45 00 43 57 62 62 
  7639	041650	45 43 64 00 60 43 
  7640	041651	77 00 00 00 00 00 
  7641	041652	000000	036046
  7642	041653	041643	041524
  7643	041654	041652	000001
  7644	041655	037045	000000
  7645	041656	55 65 65 57 00 44 
  7646	041657	51 44 00 56 57 64 
  7647	041660	00 64 62 41 60 00 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-26
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0238

  7648	041661	64 57 00 43 57 62 
  7649	041662	62 45 43 64 00 64 
  7650	041663	62 41 60 77 00 00 
  7651	041664	041643	041656
  7652	041665	041652	000001
  7653	041666	037045	000000
  7654	041667	55 65 65 57 00 63 
  7655	041670	64 57 62 51 56 47 
  7656	041671	00 64 50 45 00 43 
  7657	041672	57 62 62 45 43 64 
  7658	041673	00 45 00 46 51 45 
  7659	041674	54 44 77 00 00 00 
  7660	041675	55 65 65 57 00 44 
  7661	041676	51 44 00 56 57 64 
  7662	041677	00 64 62 41 60 00 
  7663	041700	51 56 00 43 57 56 
  7664	041701	43 45 41 54 45 44 
  7665	041702	77 00 00 00 00 00 
  7666	041703	041667	041675
  7667	041704	000007	000001
  7668	041705	037045	000000
  7669	041706	041667	041547
  7670	041707	000007	000001
  7671	041710	037045	000000
  7672	041711	041667	041656
  7673	041712	000007	000001
  7674	041713	037045	000000
  7675	041714	41 62 57 66 00 64 
  7676	041715	62 41 60 00 64 45 
  7677	041716	63 64 77 00 00 00 
  7678	041717	000000	000421
  7679	041720	000200	036126
  7680	041721	41 62 57 66 00 44 
  7681	041722	51 44 00 56 57 64 
  7682	041723	00 64 62 41 60 00 
  7683	041724	64 57 00 24 22 21 
  7684	041725	77 00 00 00 00 00 
  7685	041726	041714	041721
  7686	041727	041717	000000
  7687	041730	037045	000000
  7688	041731	60 44 54 57 66 00 
  7689	041732	64 62 41 60 00 64 
  7690	041733	45 63 64 77 00 00 
  7691	041734	000000	000422
  7692	041735	000400	036142
  7693	041736	60 44 57 66 64 60 
  7694	041737	00 44 51 44 00 56 
  7695	041740	57 64 00 64 62 41 
  7696	041741	60 00 64 57 00 24 
  7697	041742	22 22 77 00 00 00 
  7698	041743	041731	041736
  7699	041744	041734	000000
  7700	041745	037045	000000
  7701	041746	64 62 41 60 23 00 
  7702	041747	64 62 41 60 00 64 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-27
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0239

  7703	041750	45 63 64 77 00 00 
  7704	041751	000000	000423
  7705	041752	000600	036156
  7706	041753	64 62 41 60 23 00 
  7707	041754	64 62 41 60 00 44 
  7708	041755	51 44 00 56 57 64 
  7709	041756	00 64 62 41 60 00 
  7710	041757	64 57 00 24 22 23 
  7711	041760	77 00 00 00 00 00 
  7712	041761	041746	041753
  7713	041762	041751	000000
  7714	041763	037045	000000
  7715	041764	010000	036212
  7716	041765	000000	000001
  7717	041766	55 65 65 57 00 44 
  7718	041767	51 44 00 56 57 64 
  7719	041770	00 43 41 65 63 45 
  7720	041771	00 64 62 41 60 77 
  7721	041772	041746	041766
  7722	041773	000000	000000
  7723	041774	037045	000000
  7724	041775	55 65 65 57 00 44 
  7725	041776	51 44 00 56 57 64 
  7726	041777	00 62 45 15 45 56 
  7727	042000	64 45 62 00 65 63 
  7728	042001	45 62 15 55 57 44 
  7729	042002	45 77 00 00 00 00 
  7730	042003	041746	041775
  7731	042004	041764	000001
  7732	042005	037045	000000
  7733	042006	000000	036233
  7734	042007	004000	036270
  7735	042010	55 55 65 57 00 44 
  7736	042011	51 44 00 56 57 64 
  7737	042012	00 63 45 64 00 45 
  7738	042013	70 51 57 64 00 46 
  7739	042014	54 41 47 77 00 00 
  7740	042015	041746	042010
  7741	042016	042007	000001
  7742	042017	037045	000000
  7743	042020	400000	036325
  7744	042021	55 65 65 57 00 44 
  7745	042022	51 44 00 56 57 64 
  7746	042023	00 63 45 64 00 41 
  7747	042024	62 51 64 50 55 45 
  7748	042025	64 51 43 00 57 66 
  7749	042026	45 62 46 54 57 67 
  7750	042027	00 46 54 41 47 77 
  7751	042030	041746	042021
  7752	042031	042020	000001
  7753	042032	037045	000000
  7754	042033	200000	036362
  7755	042034	55 65 65 57 00 44 
  7756	042035	51 44 00 56 57 64 
  7757	042036	00 63 45 64 00 43 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-28
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0240

  7758	042037	62 71 20 00 46 54 
  7759	042040	41 47 77 00 00 00 
  7760	042041	041746	042034
  7761	042042	042033	000001
  7762	042043	037045	000000
  7763	042044	100000	036417
  7764	042045	55 65 65 57 00 44 
  7765	042046	51 44 00 56 57 64 
  7766	042047	00 63 45 64 00 43 
  7767	042050	62 71 21 00 46 54 
  7768	042051	41 47 77 00 00 00 
  7769	042052	041746	042045
  7770	042053	042044	000001
  7771	042054	037045	000000
  7772	042055	040000	036454
  7773	042056	55 65 65 57 00 44 
  7774	042057	51 44 00 56 57 64 
  7775	042060	00 63 45 64 00 46 
  7776	042061	57 66 00 46 54 41 
  7777	042062	47 77 00 00 00 00 
  7778	042063	041746	042056
  7779	042064	042055	000001
  7780	042065	037045	000000
  7781	042066	020000	036511
  7782	042067	55 65 65 57 00 44 
  7783	042070	51 44 00 56 57 64 
  7784	042071	00 63 45 64 00 42 
  7785	042072	51 63 00 46 54 41 
  7786	042073	47 77 00 00 00 00 
  7787	042074	041746	042067
  7788	042075	042066	000001
  7789	042076	037045	000000
  7790	042077	000100	036546
  7791	042100	55 65 65 57 00 44 
  7792	042101	51 44 00 56 57 64 
  7793	042102	00 63 45 64 00 46 
  7794	042103	70 65 00 46 54 41 
  7795	042104	47 77 00 00 00 00 
  7796	042105	041746	042100
  7797	042106	042077	000001
  7798	042107	037045	000000
  7799	042110	000040	036603
  7800	042111	55 65 65 57 00 44 
  7801	042112	51 44 00 56 57 64 
  7802	042113	00 63 45 64 00 44 
  7803	042114	43 53 00 46 54 41 
  7804	042115	47 77 00 00 00 00 
  7805	042116	041746	042111
  7806	042117	042110	000001
  7807	042120	037045	000000
  7808	042121	760140	036640
  7809	042122	55 65 65 57 00 44 
  7810	042123	51 44 00 56 57 64 
  7811	042124	00 63 45 64 00 43 
  7812	042125	62 71 20 13 43 62 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-29
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0241

  7813	042126	71 21 13 41 62 57 
  7814	042127	66 13 46 57 66 13 
  7815	042130	46 70 65 13 44 43 
  7816	042131	53 13 42 51 63 00 
  7817	042132	46 54 41 47 63 77 
  7818	042133	041746	042122
  7819	042134	042121	000001
  7820	042135	037045	000000
  7821	042136	51 57 64 00 55 65 
  7822	042137	65 57 76 43 57 56 
  7823	042140	43 45 41 54 45 44 
  7824	042141	00 55 57 44 45 77 
  7825	042142	51 57 64 00 44 51 
  7826	042143	44 00 56 57 64 00 
  7827	042144	64 62 41 60 77 00 
  7828	042145	43 35 51 57 64 77 
  7829	042146	042136	042142
  7830	042147	036670	044424
  7831	042150	042145	000000
  7832	042151	51 57 64 00 44 51 
  7833	042152	44 00 56 57 64 00 
  7834	042153	64 62 41 60 00 64 
  7835	042154	57 00 60 62 57 60 
  7836	042155	45 62 00 64 62 41 
  7837	042156	60 77 00 00 00 00 
  7838	042157	042136	042151
  7839	042160	036670	044424
  7840	042161	037045	000000
  7841	042162	43 57 56 64 45 56 
  7842	042163	64 63 00 57 46 00 
  7843	042164	24 22 24 00 56 57 
  7844	042165	64 00 45 70 45 43 
  7845	042166	65 64 45 44 00 51 
  7846	042167	57 64 77 00 00 00 
  7847	042170	042136	042162
  7848	042171	036670	044424
  7849	042172	037045	000000
  7850	042173	000000	036671
  7851	042174	51 57 64 00 55 65 
  7852	042175	65 57 00 44 51 44 
  7853	042176	00 56 57 64 00 63 
  7854	042177	64 57 62 45 00 43 
  7855	042200	57 62 62 45 43 64 
  7856	042201	00 60 43 77 00 00 
  7857	042202	042136	042174
  7858	042203	042173	000001
  7859	042204	037045	036712
  7860	042205	51 57 64 00 35 00 
  7861	042206	77 00 00 00 00 00 
  7862	042207	65 63 45 62 00 55 
  7863	042210	57 44 45 00 43 57 
  7864	042211	56 43 45 41 54 45 
  7865	042212	44 76 55 41 70 51 
  7866	042213	55 65 55 00 42 54 
  7867	042214	57 43 53 00 64 62 
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-30
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0242

  7868	042215	41 56 63 46 45 62 
  7869	042216	77 00 00 00 00 00 
  7870	042217	254 04 0 00 000013 
  7871	042220	254 01 0 00 000011 
  7872	042221	476 00 0 00 000020 
  7873	042222	251 07 0 00 777777 
  7874	042223	000020	000021
  7875	042224	000000	044502
  7876	042225	100000	400044
  7877	042226	51 56 43 57 62 62 
  7878	042227	45 43 64 00 64 45 
  7879	042230	62 55 51 56 41 64 
  7880	042231	51 57 56 00 55 65 
  7881	042232	65 57 77 00 00 00 
  7882	042233	042207	042226
  7883	042234	042217	044424
  7884	042235	037045	000000
  7885	042236	010000	000014
  7886	042237	51 56 43 57 62 62 
  7887	042240	45 43 64 00 64 45 
  7888	042241	62 55 51 56 41 64 
  7889	042242	51 57 56 00 60 43 
  7890	042243	77 00 00 00 00 00 
  7891	042244	042207	042237
  7892	042245	042236	044425
  7893	042246	037045	000000
  7894	042247	60 41 47 45 00 46 
  7895	042250	41 51 54 65 62 45 
  7896	042251	77 00 00 00 00 00 
  7897	042252	43 57 62 62 45 43 
  7898	042253	64 35 60 46 00 67 
  7899	042254	57 62 44 14 00 41 
  7900	042255	43 64 65 41 54 35 
  7901	042256	60 46 00 60 43 77 
  7902	042257	042207	042247
  7903	042260	000005	000006
  7904	042261	042252	000000
  7905	042262	037013	000421
  7906	042263	737776	737777
  7907	042264	537776	537777
  7908	042265	45 56 64 62 71 00 
  7909	042266	64 57 00 65 63 45 
  7910	042267	62 00 55 57 44 45 
  7911	042270	00 65 56 63 65 43 
  7912	042271	45 63 63 46 65 54 
  7913	042272	77 00 00 00 00 00 
  7914	042273	52 62 63 64 46 00 
  7915	042274	46 41 51 54 45 44 
  7916	042275	77 00 00 00 00 00 
  7917	042276	042207	042265
  7918	042277	000005	000006
  7919	042300	042273	000000
  7920						LIST
  7921	043624	000000	000000		ENDSLD:	0
  7922
DSKEA	DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1	MACRO %53(1020) 15:12 29-Mar-78 Page 1-31
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0243

  7923					IFDEF	DEBUG,<
  7924	043625				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7925					>
  7926
  7927					;PROGRAM VARIABLES
  7928	043725					VAR
  7929
  7930					IFDEF	PGMEND,<
  7931	043741	000000	000000		END:	0
  7932			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 043742
CPU TIME USED 00:30.973

36P CORE USED

A	  5117#	  5195#	  5216	  5230#	  5248	  5256#	  5277	  5290#	  5321	  5330	  5337#	  5364	  5369	  5378
	  5386#	  5413	  5417	  5424#	  5451	  5456	  5464	  5477#	  5492	  5500#	  5516	  5524#	  5539	  5548#    SEQ 0244
	  5586	  5613#	  5651	  5659#	  5697	  5704#	  5742	  5749#	  5787	  5794#	  5832	  5839#	  5877	  5884#
	  5922	  5929#	  5967	  5975#	  6014	  6021#	  6057	  6061	  6067	  6071#	  6076	  6112#	  6155	  6158#
	  6164	  6169#	  6174	  6215
ABORT	   260#
AC	    37#	   890	   892	   893	  1750	  1751	  1774	  1775	  1797	  1798	  2455	  2456	  2490	  2491
	  2505	  2506	  2531	  2532	  2540	  2541	  2582	  2583	  2619	  2620	  2638	  2639	  2673	  2674
	  2686	  2687	  2694	  2695	  2696	  2697	  2759	  2760	  2763	  2764	  2768	  2769	  2770	  2771
	  2792	  2793	  2794	  2809	  2826	  2827	  2828	  2829	  2831	  2834	  2835	  2869	  2870	  2884
	  2885	  2886	  2887	  2888	  2889	  2944	  2946	  2951	  2961	  2966	  2972	  2973	  2985	  2989
	  2991	  3004	  3029	  3030	  3031	  3032	  3033	  3034	  3103	  3113	  3118	  3125	  3126	  3128
	  3130	  3150	  3154	  3156	  3165	  3169	  3170	  3172	  3174	  3196	  3199	  3201	  3210	  3307
	  3308	  3309	  3310	  3311	  3312	  3313	  3314	  3352	  3353	  3382	  3383	  3399	  3401	  3406
	  3412	  3413	  3427	  3428	  3443	  3444	  3458	  3459	  3491	  3492	  3494	  3495	  3528	  3529
	  3530	  3531	  3588	  3589	  3590	  3591	  3592	  3615	  3616	  3633	  3643	  3647	  3652	  3653
	  3657	  3658	  3678	  3684	  3686	  3695	  3751	  3752	  3753	  3754	  3798	  3799	  3819	  3820
	  3840	  3841	  3859	  3860	  3953	  3954	  3973	  3974	  3993	  3994	  4013	  4014	  4033	  4034
	  4053	  4054	  4073	  4074	  4091	  4092	  4110	  4120	  4123	  4130	  4131	  4133	  4136	  4157
	  4162	  4163	  4172	  4197	  4198	  4199	  4200	  4201	  4202	  4277	  4278	  4290	  4292	  4334
	  4335	  4357	  4358	  4359	  4360	  4406	  4407	  4455	  4456	  4503	  4518	  4519	  4520	  4521
	  4524	  4531	  4540	  4567	  4568	  4569	  4570	  4574	  4581	  4589	  4627	  4628	  4629	  4630
	  4636	  4643	  4663	  4693	  4694	  4695	  4696	  4699	  4706	  4741	  4742	  4760	  4761	  4763
	  4764	  4765	  4766	  4810	  4811	  4851	  4852	  4854	  4855	  4856	  4857
AC1	    38#	  2764	  2765	  2766	  2767	  2769	  2771	  2946	  2947	  2948	  2949	  2950	  2961	  2962
	  2963	  2964	  2965	  2977	  2978	  2979	  2980	  2995	  2996	  2997	  2998	  2999	  3011	  3113
	  3114	  3115	  3116	  3117	  3134	  3135	  3136	  3138	  3140	  3178	  3179	  3180	  3181	  3182
	  3184	  3217	  3401	  3402	  3403	  3404	  3405	  3643	  3644	  3645	  3646	  3662	  3663	  3664
	  3666	  3667	  4120	  4121	  4122	  4140	  4141	  4142	  4143	  4144	  4340	  4341	  4524	  4544
	  4574	  4594	  4636	  4668	  4699
AC2	    39#	  2776	  2953	  2954	  2955	  2956	  2957	  2958	  2959	  2960	  3105	  3106	  3107	  3108
	  3109	  3110	  3111	  3112	  3189	  3190	  3191	  3229	  3400	  3405	  3635	  3636	  3637	  3638
	  3639	  3640	  3641	  3642	  4112	  4113	  4114	  4115	  4116	  4117	  4118	  4119
AC3	    40#	  2956	  2960	  2965	  3108	  3112	  3117	  3638	  3642	  3646	  4115	  4119	  4122
ACT	    41#	   914	   915	   918	   929	   931	   933	   943	   945	   947	   972	   974	   977	   986
	   988	   991	  1000	  1002	  1005	  1014	  1016	  1019	  1028	  1030	  1033	  1042	  1044	  1047
	  1056	  1058	  1061	  1070	  1072	  1075	  1084	  1086	  1089	  1098	  1100	  1103	  1112	  1114
	  1117	  1124	  1126	  1128	  1153	  1155	  1158	  1167	  1169	  1172	  1181	  1183	  1186	  1195
	  1197	  1200	  1209	  1211	  1214	  1223	  1225	  1228	  1237	  1239	  1242	  1251	  1253	  1256
	  1265	  1267	  1270	  1279	  1281	  1284	  1293	  1295	  1298	  1312	  1315	  1317	  1325	  1329
	  1331	  1358	  1362	  1365	  1374	  1378	  1381	  1390	  1394	  1397	  1406	  1410	  1413	  1422
	  1426	  1429	  1438	  1442	  1445	  1454	  1458	  1461	  1470	  1474	  1477	  1486	  1490	  1493
	  1502	  1506	  1509	  1518	  1522	  1525	  1531	  1535	  1537	  1562	  1566	  1569	  1578	  1582
	  1585	  1594	  1598	  1601	  1610	  1614	  1617	  1626	  1630	  1633	  1642	  1646	  1649	  1658
	  1662	  1665	  1674	  1678	  1681	  1690	  1694	  1697	  1706	  1710	  1713	  1722	  1726	  1729
	  1767	  1768	  1770	  1790	  1791	  1793	  1813	  1814	  1816	  2433	  2434	  2437	  2446	  2447
	  2449	  2466	  2467	  2469	  2479	  2480	  2482	  2493	  2494	  2496	  2508	  2509	  2511	  2543
	  2544	  2547	  2553	  2555	  2557	  2558	  2560	  2563	  2564	  2566	  2573	  2584	  2585	  2587
	  2594	  2596	  2598	  2599	  2601	  2604	  2605	  2607	  2614	  2650	  2651	  2654	  2664	  2665
	  2667	  2676	  2677	  2679	  2689	  2690	  2692	  2714	  2715	  2717	  2734	  2735	  2737	  2794
	  2795	  2798	  2839	  2840	  2843	  2847	  2849	  2851	  2852	  2854	  2859	  2860	  2862	  2903
	  2904	  2907	  2919	  2920	  2922	  2980	  2981	  2983	  2999	  3000	  3002	  3050	  3051	  3052
	  3055	  3057	  3058	  3060	  3074	  3075	  3076	  3078	  3080	  3081	  3083	  3139	  3140	  3141
	  3143	  3145	  3146	  3148	  3160	  3161	  3163	  3183	  3184	  3185	  3187	  3191	  3192	  3194
	  3205	  3206	  3208	  3261	  3263	  3265	  3268	  3271	  3273	  3276	  3277	  3279	  3283	  3284     SEQ 0245
	  3286	  3320	  3322	  3325	  3330	  3332	  3334	  3335	  3337	  3340	  3341	  3343	  3346	  3347
	  3349	  3356	  3358	  3360	  3362	  3364	  3367	  3368	  3370	  3374	  3375	  3377	  3417	  3418
	  3421	  3432	  3433	  3435	  3441	  3442	  3447	  3448	  3450	  3456	  3457	  3463	  3464	  3466
	  3534	  3540	  3544	  3545	  3547	  3550	  3551	  3553	  3563	  3569	  3574	  3575	  3577	  3580
	  3581	  3583	  3595	  3597	  3599	  3603	  3605	  3608	  3609	  3611	  3667	  3668	  3671	  3673
	  3674	  3676	  3690	  3691	  3693	  3732	  3733	  3735	  3759	  3763	  3770	  3776	  3777	  3779
	  3811	  3812	  3814	  3832	  3833	  3835	  3853	  3854	  3856	  3912	  3917	  4144	  4147	  4150
	  4152	  4153	  4155	  4167	  4168	  4170	  4216	  4218	  4221	  4226	  4228	  4230	  4232	  4234
	  4236	  4238	  4240	  4243	  4244	  4246	  4248	  4249	  4251	  4253	  4254	  4256	  4259	  4260
	  4262	  4264	  4265	  4267	  4269	  4270	  4272	  4299	  4300	  4302	  4304	  4305	  4307	  4309
	  4310	  4312	  4314	  4315	  4317	  4319	  4320	  4322	  4325	  4326	  4328	  4369	  4371	  4374
	  4382	  4384	  4386	  4388	  4389	  4391	  4392	  4394	  4396	  4397	  4399	  4401	  4413	  4415
	  4417	  4424	  4427	  4429	  4432	  4433	  4435	  4437	  4439	  4441	  4443	  4445	  4447	  4458
	  4459	  4468	  4475	  4478	  4480	  4482	  4483	  4485	  4487	  4489	  4491	  4493	  4495	  4497
	  4522	  4534	  4540	  4541	  4543	  4544	  4545	  4547	  4549	  4551	  4553	  4555	  4557	  4559
	  4571	  4583	  4589	  4590	  4592	  4594	  4595	  4597	  4599	  4601	  4603	  4605	  4607	  4609
	  4634	  4646	  4652	  4653	  4655	  4657	  4658	  4660	  4663	  4664	  4666	  4668	  4669	  4671
	  4673	  4675	  4677	  4679	  4681	  4683	  4708	  4714	  4715	  4717	  4720	  4721	  4723	  4725
	  4727	  4729	  4731	  4733	  4735	  4793	  4794	  4796	  4800	  4801	  4803	  4806	  4825	  4827
	  4829	  4832	  4833	  4835	  4902	  4903	  4905	  4909	  4910	  4912	  4945	  4947	  4949	  4952
	  4954	  4956
ADJRET	  2037	  2050#
ADJTRP	  2036	  2044#
ADJTST	  2036#	  2048
ALTMGO	   610#
AMTAB1	  2763	  2779	  2792	  2837	  2856	  5063#
AMTST4	  2757#	  2805
AMTST5	  2762#	  2772
AMTST6	  2779#	  2799	  2801	  2803
AMTST7	  2806	  2824#	  2850	  2855	  2863	  2867
AMTST8	  2837#	  2844	  2865
AMTST9	  2834	  2846#
AMTSTA	  2845	  2865#
AMTSTX	  2798	  2808#
APR	   206	  2535	  2571	  2578	  2612	  2621	  3905	  3911	  3913	  3952	  3961	  3972	  3981	  3992
	  4001	  4012	  4021	  4032	  4041	  4052	  4061	  4072	  4081	  4089	  4093	  4939
AROV	   524#	  5660	  5677	  5694	  5976	  5993	  6010
AROVTP	   233#	   524#	  5476	  5489
AROVU	   524#
ARSET	  1945	  1968	  1992	  2015	  2038	  2056	  2074	  2097	  2120	  2138	  2156	  2175	  2195	  2213
	  2231	  2259	  2287	  2315	  2343	  2374#
ASHCRE	  1967	  1982#
ASHCTR	  1966	  1975#
ASHCTS	  1966#	  1979	  1987
ASHRET	  1944	  1958#
ASHTRP	  1943	  1951#
ASHTST	  1943#	  1955	  1963
AST	   725#
ATSIN	   726#
AWMBEG	  5259#
AWMST	  5260#	  5278	  5282
AWMUPC	  5260	  5273#
AWMUUO	  5269	  5270	  5271#                                                                                            SEQ 0246
AXMBEG	  5123#
AXMST	  5131#	  5139	  5145
AXMUPC	  5131	  5140#
AXMUUO	  5118	  5130	  5135#	  5143
AYMBEG	  5141	  5198#
AYMST	  5206#	  5217	  5223
AYMUPC	  5206	  5212#
AYMUUO	  5196	  5205	  5210#	  5213	  5221
AZMBEG	  5219	  5232#
AZMST	  5240#	  5249
AZMUPC	  5240	  5244#
AZMUUO	  5229	  5239	  5242#	  5245
BEGEND	   606#	  6179
BEGIN	    31	    32	    97	   100	   101	   102	   103	   104	   105	   537#	  7932
BEGIN1	   553#	   607	   898
BELL	   729#
BIS	   524#	  4398	  4444	  5840	  5857	  5874	  5976	  5993	  6010
BLT0	  3397#	  3470
BLT1	  3401#	  3407	  3422
BLT2	  3409#
BLT3	  3415#	  3423
BLT4	  3424#	  3436
BLT5	  3430#	  3437
BLT6	  3439#	  3451
BLT7	  3445#	  3452
BLT8	  3454#	  3467
BLT9	  3461#	  3468
BWERR	  5439	  5463#
BWMBEG	  5415	  5427#
BWMST	  5436#	  5452	  5457	  5461	  5465
BWMUPC	  5437	  5453#
BWMUUO	  5446	  5447	  5448#
BXERR	  5308	  5329#
BXMBEG	  5281	  5293#
BXMST	  5305#	  5322	  5328	  5331
BXMUPC	  5306	  5323#
BXMUUO	  5291	  5304	  5318#	  5326
BYERR	  5355	  5377#
BYMBEG	  5324	  5340#
BYMST	  5352#	  5365	  5370	  5376	  5379
BYMUPC	  5353	  5366#
BYMUUO	  5338	  5351	  5361#	  5367	  5374
BZERR	  5403	  5416#
BZMBEG	  5372	  5388#
BZMST	  5400#	  5414	  5418
BZMUPC	  5401	  5409#
BZMUUO	  5385	  5399	  5407#	  5410
C	  1848#	  1849	  1851	  1877#	  1878	  1880	  1911#	  1912	  1914	  1936#	  1937	  1939	  1957#	  1960
	  1962	  1981#	  1984	  1986	  2004#	  2007	  2009	  2027#	  2030	  2032	  2086#	  2089	  2091	  2109#
	  2112	  2114	  2243#	  2246	  2248	  2251	  2253	  2271#	  2274	  2276	  2279	  2281	  2299#	  2302
	  2304	  2307	  2309	  2327#	  2330	  2332	  2335	  2337	  2354#	  2357	  2359	  2362	  2364	  5118#
	  5138	  5146#	  5160	  5168#	  5182	  5196#	  5216	  5229#	  5248	  5257#	  5277	  5291#	  5321	  5330
	  5338#	  5364	  5369	  5378	  5385#	  5413	  5417	  5425#	  5451	  5456	  5464	  5476#	  5492	  5499#    SEQ 0247
	  5516	  5523#	  5539	  5549#	  5586	  5614#	  5651	  5660#	  5697	  5705#	  5742	  5750#	  5787	  5795#
	  5832	  5840#	  5877	  5885#	  5922	  5930#	  5967	  5976#	  6014	  6022#	  6057	  6061	  6067	  6070#
	  6076	  6113#	  6155	  6159#	  6164	  6168#	  6174	  6215
CCA	   524#
CHAIN	   280#
CHNOFF	   524#	  2534
CHNON	   524#
CLKU	   524#
CLOCKF	   592#
CNSFLG	  5298	  5341	  5393	  5428	  5561	  5626	  5672	  5717	  5762	  5807	  5852	  5897	  5942	  5988
	  6029	  6199#	  6199
CNTLC	   609#
CNTR	    36#	  2774	  2803
CNTRP	   242#	   524#	  5307	  5354	  5402	  5438	  5567	  5595	  5632	  5678	  5723	  5768	  5813	  5858
	  5903	  5948	  5994	  6040	  6133
COMCHK	  2398#
COMMA	   718#
CONSW	   593#
COR	    42#	   912	   913	   915	   918	   927	   928	   933	   941	   942	   945	   947	   970	   971
	   974	   977	   984	   985	   988	   991	   998	   999	  1002	  1005	  1012	  1013	  1016	  1019
	  1026	  1027	  1030	  1033	  1040	  1041	  1044	  1047	  1054	  1055	  1058	  1061	  1068	  1069
	  1072	  1075	  1082	  1083	  1086	  1089	  1096	  1097	  1100	  1103	  1110	  1111	  1114	  1117
	  1122	  1123	  1126	  1128	  1151	  1152	  1155	  1158	  1165	  1166	  1169	  1172	  1179	  1180
	  1183	  1186	  1193	  1194	  1197	  1200	  1207	  1208	  1211	  1214	  1221	  1222	  1225	  1228
	  1235	  1236	  1239	  1242	  1249	  1250	  1253	  1256	  1263	  1264	  1267	  1270	  1277	  1278
	  1281	  1284	  1291	  1292	  1295	  1298	  1310	  1311	  1313	  1314	  1315	  1317	  1323	  1324
	  1327	  1328	  1331	  1356	  1357	  1360	  1361	  1362	  1365	  1372	  1373	  1376	  1377	  1378
	  1381	  1388	  1389	  1392	  1393	  1394	  1397	  1404	  1405	  1408	  1409	  1410	  1413	  1420
	  1421	  1424	  1425	  1426	  1429	  1436	  1437	  1440	  1441	  1442	  1445	  1452	  1453	  1456
	  1457	  1458	  1461	  1468	  1469	  1472	  1473	  1474	  1477	  1484	  1485	  1488	  1489	  1490
	  1493	  1500	  1501	  1504	  1505	  1506	  1509	  1516	  1517	  1520	  1521	  1522	  1525	  1529
	  1530	  1533	  1534	  1535	  1537	  1560	  1561	  1564	  1565	  1566	  1569	  1576	  1577	  1580
	  1581	  1582	  1585	  1592	  1593	  1596	  1597	  1598	  1601	  1608	  1609	  1612	  1613	  1614
	  1617	  1624	  1625	  1628	  1629	  1630	  1633	  1640	  1641	  1644	  1645	  1646	  1649	  1656
	  1657	  1660	  1661	  1662	  1665	  1672	  1673	  1676	  1677	  1678	  1681	  1688	  1689	  1692
	  1693	  1694	  1697	  1704	  1705	  1708	  1709	  1710	  1713	  1720	  1721	  1724	  1725	  1726
	  1729	  1766	  1768	  1770	  1789	  1791	  1793	  1812	  1814	  1816	  2432	  2434	  2437	  2445
	  2447	  2449	  2465	  2467	  2469	  2478	  2480	  2482	  2492	  2494	  2496	  2507	  2509	  2511
	  2552	  2553	  2555	  2558	  2560	  2562	  2564	  2566	  2573	  2593	  2594	  2596	  2599	  2601
	  2603	  2605	  2607	  2614	  2649	  2651	  2654	  2663	  2665	  2667	  2675	  2677	  2679	  2688
	  2690	  2692	  2713	  2715	  2717	  2733	  2735	  2737	  2779	  2780	  2781	  2782	  2783	  2784
	  2785	  2786	  2787	  2788	  2789	  2790	  2791	  2795	  2798	  2837	  2838	  2840	  2843	  2846
	  2847	  2849	  2852	  2854	  2856	  2857	  2858	  2860	  2862	  2902	  2904	  2907	  2918	  2920
	  2922	  2973	  2974	  2975	  2976	  2979	  2981	  2983	  2991	  2992	  2993	  2994	  2998	  3000
	  3002	  3048	  3049	  3052	  3055	  3058	  3060	  3072	  3073	  3076	  3078	  3081	  3083	  3130
	  3131	  3132	  3133	  3136	  3138	  3141	  3143	  3146	  3148	  3156	  3157	  3158	  3159	  3161
	  3163	  3174	  3175	  3176	  3177	  3181	  3182	  3185	  3187	  3192	  3194	  3201	  3202	  3203
	  3204	  3206	  3208	  3260	  3268	  3271	  3273	  3277	  3279	  3282	  3284	  3286	  3319	  3325
	  3329	  3330	  3332	  3335	  3337	  3339	  3341	  3343	  3345	  3347	  3349	  3355	  3360	  3362
	  3364	  3366	  3368	  3370	  3373	  3375	  3377	  3416	  3421	  3431	  3435	  3446	  3450	  3462
	  3466	  3533	  3540	  3543	  3545	  3547	  3549	  3551	  3553	  3562	  3569	  3573	  3575	  3577
	  3579	  3581	  3583	  3594	  3599	  3602	  3603	  3605	  3607	  3609	  3611	  3658	  3659	  3660
	  3661	  3664	  3666	  3668	  3671	  3674	  3676	  3686	  3687	  3688	  3689	  3691	  3693	  3731     SEQ 0248
	  3733	  3735	  3763	  3768	  3770	  3775	  3777	  3779	  3810	  3812	  3814	  3831	  3833	  3835
	  3852	  3854	  3856	  3911	  3917	  4136	  4137	  4138	  4139	  4142	  4143	  4147	  4150	  4153
	  4155	  4163	  4164	  4165	  4166	  4168	  4170	  4204	  4221	  4225	  4226	  4228	  4231	  4232
	  4234	  4237	  4238	  4240	  4242	  4244	  4246	  4249	  4251	  4254	  4256	  4258	  4260	  4262
	  4265	  4267	  4270	  4272	  4298	  4300	  4302	  4305	  4307	  4310	  4312	  4315	  4317	  4320
	  4322	  4324	  4326	  4328	  4362	  4371	  4374	  4380	  4382	  4383	  4384	  4386	  4387	  4389
	  4391	  4393	  4394	  4396	  4398	  4399	  4401	  4408	  4415	  4417	  4422	  4424	  4426	  4427
	  4429	  4431	  4433	  4435	  4438	  4439	  4441	  4444	  4445	  4447	  4457	  4458	  4466	  4468
	  4473	  4475	  4477	  4478	  4480	  4483	  4485	  4488	  4489	  4491	  4494	  4495	  4497	  4523
	  4534	  4539	  4541	  4543	  4545	  4547	  4550	  4551	  4553	  4556	  4557	  4559	  4571	  4583
	  4588	  4590	  4592	  4595	  4597	  4600	  4601	  4603	  4606	  4607	  4609	  4635	  4646	  4651
	  4653	  4655	  4658	  4660	  4662	  4664	  4666	  4669	  4671	  4674	  4675	  4677	  4680	  4681
	  4683	  4708	  4713	  4715	  4717	  4719	  4721	  4723	  4726	  4727	  4729	  4732	  4733	  4735
	  4792	  4794	  4796	  4799	  4801	  4803	  4806	  4826	  4827	  4829	  4831	  4833	  4835	  4901
	  4903	  4905	  4908	  4910	  4912	  4946	  4947	  4949	  4953	  4954	  4956
COUNT	  5124#	  5124	  5140	  5144	  5148	  5162	  5166	  5170	  5184	  5188	  5199	  5218	  5222	  5302#
	  5302	  5323	  5327	  5345	  5371	  5375
CPOPJ	   613#
CPOPJ1	   611#
CRLF	   410	   411	   713#
CRLF2	   414	   415	   715#
CRY0	   524#	  5705	  5722	  5739	  5976	  5993	  6010
CRY1	   524#	  5750	  5767	  5784	  5976	  5993	  6010
CSHFLG	   772#	   869
CSHMEM	   773#
CTRP	   243#	   524#	  5315	  5568	  5598	  5633	  5679	  5724	  5769	  5814	  5859	  5904	  5949	  5995
	  6048	  6135
CYCL60	   766#
DCK	   524#	  5930	  5947	  5964	  5976	  5993	  6010
DDTLNK	   294#	   551
DDTSRT	   551#
DEBUG	    30#	  7923	  7924
DECVER	     4#	    10	    15	   572
DF22F	   677#
DFADRE	  2137	  2150#
DFADTR	  2136	  2144#
DFADTS	  2136#	  2148
DFDVRE	  2342	  2355#
DFDVTR	  2341	  2348#
DFDVTS	  2341#	  2352	  2360	  2365
DFMPRE	  2212	  2225#
DFMPTR	  2211	  2219#
DFMPTS	  2211#	  2223
DFSBRE	  2174	  2189#
DFSBTR	  2173	  2183#
DFSBTS	  2173#	  2187
DIAGMN	   540#
DING	   266#
DIVRET	  2230	  2244#
DIVTRP	  2229	  2237#
DIVTST	  2229#	  2241	  2249	  2254
DOLLAR	   732#
DSKUPD	   577                                                                                                             SEQ 0249
EBIT0	   524#
EBIT1	   524#
EBIT10	   524#
EBIT11	   524#
EBIT12	   524#
EBIT13	   524#
EBIT14	   524#
EBIT15	   524#
EBIT2	   524#
EBIT3	   524#
EBIT4	   524#
EBIT5	   524#
EBIT6	   524#
EBIT7	   524#
EBIT8	   524#
EBIT9	   524#
EBRC1A	   941#	   948
EBRCK0	   894	   911#	   919	  1300
EBRCK1	   927#	   934
EBRCK2	   954#
EBRCK3	  1122#	  1129
EBRCK4	  1135#
END	    49	    50	    51	   227	  7931#
END1	    51#
ENDFIX	   852#
ENDSLD	  7921#
EPPM0	  2636#	  2740
EPPM1	  2649#
EPPM2	  2663#
EPPM3	  2673#
EPPM4	  2686#
EPPM5	  2694#
EPPM6	  2711#	  2718
EPPM7	  2731#	  2738
EPPM9	  2640#	  2655	  2668	  2680	  2693
EPPT0	  3700#
EPPT1	  3714	  3719#
EPPT2	  3712	  3726#	  3732
EPPT3	  3725	  3738#
ERMORE	   626#
EROLD	   486
ERRPC	   597#	   888
ERRTLS	   598#	   897
ERSTOP	   269#
EXCASB	    28#	   575
EXCTRP	  2392	  2393#	  2398
EXIOT	   524#	  5614	  5631	  5648
FADRET	  2119	  2132#
FADTRP	  2118	  2126#
FADTST	  2118#	  2130
FDVRET	  2286	  2300#
FDVRRE	  2314	  2328#
FDVRTR	  2313	  2321#                                                                                                    SEQ 0250
FDVRTS	  2313#	  2325	  2333	  2338
FDVTRP	  2285	  2293#
FDVTST	  2285#	  2297	  2305	  2310
FIXRET	  2073	  2087#
FIXRRE	  2096	  2110#
FIXRTR	  2095	  2103#
FIXRTS	  2095#	  2107	  2115
FIXTRP	  2072	  2080#
FIXTST	  2072#	  2084	  2092
FMPRET	  2194	  2207#
FMPTRP	  2193	  2201#
FMPTST	  2193#	  2205
FOV	   524#	  5795	  5812	  5829	  5976	  5993	  6010
FOVU	   524#
FRDLNK	   292#
FSBRET	  2155	  2169#
FSBTRP	  2154	  2163#
FSBTST	  2154#	  2167
FSCRET	  2055	  2068#
FSCTRP	  2054	  2062#
FSCTST	  2054#	  2066
FSELNK	   291#
FXU	   524#	  5885	  5902	  5919	  5976	  5993	  6010
HYPEN	   723#
IDIVRE	  2258	  2272#
IDIVTR	  2257	  2265#
IDIVTS	  2257#	  2269	  2277	  2282
IMULRE	  2014	  2028#
IMULTR	  2013	  2021#
IMULTS	  2013#	  2025	  2033
INDX	    43#	  2762	  2763	  2772	  2775	  2779	  2792	  2801	  2833	  2837	  2856	  2865	  2943	  2950
	  2953	  2957	  2967	  2971	  2977	  2986	  2988	  2996	  3005	  3102	  3105	  3109	  3119	  3120
	  3127	  3134	  3145	  3151	  3153	  3160	  3166	  3171	  3179	  3190	  3197	  3198	  3205	  3211
	  3223	  3398	  3407	  3415	  3416	  3417	  3423	  3430	  3431	  3432	  3437	  3445	  3446	  3447
	  3452	  3461	  3462	  3463	  3468	  3632	  3635	  3639	  3648	  3649	  3656	  3662	  3673	  3679
	  3683	  3690	  3696	  4109	  4112	  4116	  4124	  4125	  4132	  4140	  4152	  4158	  4161	  4167
	  4173
INHCSH	   277#
INHPAG	   274#
IOCLR	   524#
IOTCM	  6024#
IOTCM0	  6035#	  6058	  6062	  6068	  6077	  6081
IOTCM1	  6022	  6036	  6053#	  6065	  6070	  6074	  6086
IOTCM2	  6041	  6060#
IOTCM3	  6039	  6059	  6064#
IOTCMX	  6076	  6084#
IOTTAB	  6035	  6092#
ITERAT	   114#	   570
ITRCH1	   630#	  4091
ITRCNT	   570#	  2828
JOB41	   524#
JOBAPR	   524#
JOBCNI	   524#                                                                                                            SEQ 0251
JOBDDT	   524#
JOBFF	   524#
JOBOPC	   524#
JOBREL	   524#
JOBREN	   524#
JOBSA	   524#
JOBSYM	   524#
JOBTPC	   524#
JOBUSY	   524#
JOBUUO	   524#
JOBVER	   524#
KAIFLG	   587#
KLFLG	   588#
KLUBRX	   873#	   873	  1314	  1328	  1361	  1377	  1393	  1409	  1425	  1441	  1457	  1473	  1489	  1505
	  1521	  1534	  1565	  1581	  1597	  1613	  1629	  1645	  1661	  1677	  1693	  1709	  1725
KNTRP	   238#	   524#	  5132	  5155	  5177	  5207	  5241	  5261	  5309	  5356	  5404	  5442	  5573	  5592
	  5638	  5684	  5729	  5774	  5819	  5864	  5909	  5954	  6000	  6042
KTRP	   239#	   524#	  5312	  5574	  5597	  5639	  5685	  5730	  5775	  5820	  5865	  5910	  5955	  6001
	  6045
LACLK	   524#
LACLKE	   524#
LAPRAL	   524#	  4093
LAPRP1	   524#
LAPRP2	   524#	  2535	  2578	  2621
LAPRP3	   524#
LAPRP4	   524#
LAPRP5	   524#
LAPRP6	   524#
LAPRP7	   524#
LAROVS	   885#	   885	  1802	  1810	  1951	  1958	  1975	  1982	  1998	  2005	  2021	  2028	  2044	  2050
	  2062	  2068	  2080	  2087	  2103	  2110	  2126	  2132	  2144	  2150	  2163	  2169	  2183	  2189
	  2201	  2207	  2219	  2225	  2237	  2244	  2265	  2272	  2293	  2300	  2321	  2328	  2348	  2355
LAROVT	   127#	   140#	   884	  1798	  1803	  1811	  1952	  1959	  1976	  1983	  1999	  2006	  2022	  2029
	  2045	  2051	  2063	  2069	  2081	  2088	  2104	  2111	  2127	  2133	  2145	  2151	  2164	  2170
	  2184	  2190	  2202	  2208	  2220	  2226	  2238	  2245	  2266	  2273	  2294	  2301	  2322	  2329
	  2349	  2356	  2382	  3509	  3841	  3860
LAST	  6177	  6179#
LCHNOF	   524#	  3904	  3914	  3962	  3982	  4002	  4022	  4042	  4062	  4082	  4088
LCHNON	   524#	  2622	  3951	  3971	  3991	  4011	  4031	  4051	  4071	  4094
LCNTRP	   152#	  3519
LCNTXT	   146#	   524#
LCNXER	   524#	  2535	  2578	  2621
LCPAER	   524#	  3961	  3981	  4001	  4021	  4041	  4061	  4081	  4089
LCPSFT	   524#
LCPWRF	   524#
LCTRP	   153#	  3520
LDATAF	   524#
LDLNK	   293#	   540	   542
LDNXER	   524#
LDPAER	   524#	  3961	  3981	  4001	  4021	  4041	  4061	  4081	  4089
LDPSFT	   524#
LDPWRF	   524#
LEBXMH	   161#	   524#                                                                                                    SEQ 0252
LEBXML	   162#	   524#
LENXER	   524#
LEPAER	   524#	  3952	  3972	  3992	  4012	  4032	  4052	  4072
LEPSFT	   524#
LEPWRF	   524#
LEUPFW	   157#	   524#	  2536	  2563	  2579	  2604	  2859	  3283	  3340	  3367	  3593	  3608	  3768	  3776
	  4210	  4230	  4364	  4392	  4410	  4437	  4460	  4487	  4525	  4549	  4575	  4599	  4637	  4673
	  4700	  4725	  4768	  4793	  4859	  4902	  4933	  4945	  6171
LEXCMP	   524#
LFLGCL	   524#
LFLGDS	   524#
LFLGEN	   524#
LFLGST	   524#
LFP	   727#
LINSTF	   524#
LINT	   524#
LIOCLR	   524#	  3905	  3913	  4089
LIP	   247#
LKNTRP	   148#	   878	  3514	  3515	  3529	  3531	  3589	  3590
LKTRP	   149#	  3516
LLACBL	   524#	  1310
LLDUSB	   524#	  1310	  1323	  1326	  1356	  1359	  1372	  1375	  1388	  1391	  1404	  1407	  1420	  1423
	  1436	  1439	  1452	  1455	  1468	  1471	  1484	  1487	  1500	  1503	  1516	  1519	  1529	  1532
	  1560	  1563	  1576	  1579	  1592	  1595	  1608	  1611	  1624	  1627	  1640	  1643	  1656	  1659
	  1672	  1675	  1688	  1691	  1704	  1707	  1720	  1723	  1746	  2458	  2539	  2581	  2641	  2712
	  2732	  2778	  2832	  2901	  2970	  3046	  3123	  3259	  3318	  3410	  3425	  3440	  3455	  3489
	  3561	  3567	  3572	  3596	  3614	  3655	  3682	  3701	  3721	  3728	  3750	  3758	  3761	  3767
	  3774	  3794	  4128	  4135	  4146	  4212	  4286	  4366	  4462	  4527	  4577	  4633	  4639	  4702
	  4772	  4863	  4869	  4879	  4935	  5122	  5486	  5510	  5533	  5552	  5617	  5663	  5708	  5753
	  5798	  5843	  5888	  5933	  5979	  6146	  6208
LMBXMH	   163#	   524#
LMBXML	   164#	   524#
LMUUO	   144#	  3544	  3574
LMUUOP	   145#	  3550	  3580
LNXMEN	   524#
LNXMER	   524#	  2571	  2612
LOOPER	   268#
LPAREN	   524#
LPARER	   524#
LPDOVS	   883#	   883	  1779	  1787	  2369
LPDOVT	   128#	   141#	   882	  1775	  1780	  1788	  2370	  2384	  3510	  3511	  3820
LPFWPC	   158#	   524#	  2537	  4236	  4343	  4397	  4443	  4493	  4555	  4605	  4679	  4731	  4769	  4800
	  4814	  4860	  4909	  4952
LPGFTR	   159#	   524#	   876	  2541	  2583	  2620	  2835	  2870	  3255	  3292	  3314	  3353	  3383	  3506
	  3507	  3592	  3616	  3752	  3754	  3785	  4202	  4278	  4335	  4360	  4407	  4456	  4504	  4521
	  4568	  4630	  4694	  4742	  4764	  4790	  4855	  4871	  4881	  4890	  4899	  4931	  4962	  6142
	  6143
LPICH1	   524#	  4094
LPICH2	   524#	  2622
LPICH3	   524#
LPICH4	   524#
LPICH5	   524#
LPICH6	   524#                                                                                                            SEQ 0253
LPICH7	   524#
LPICHA	   524#
LPICLR	   524#	  3904	  3914	  3962	  3982	  4002	  4022	  4042	  4062	  4082	  4088
LPIIP1	   524#
LPIIP2	   524#
LPIIP3	   524#
LPIIP4	   524#
LPIIP5	   524#
LPIIP6	   524#
LPIIP7	   524#
LPIOFF	   524#	  3904	  3914	  3962	  3982	  4002	  4022	  4042	  4062	  4082	  4088
LPION	   524#	  3951	  3971	  3991	  4011	  4031	  4051	  4071	  4094
LPNTRP	   154#	  3521
LPRCH1	   524#
LPRCH2	   524#
LPRCH3	   524#
LPRCH4	   524#
LPRCH5	   524#
LPRCH6	   524#
LPRCH7	   524#
LPRFMH	   133#	   524#
LPRFML	   134#	   524#
LPSFT	   524#
LPSFTE	   524#
LPTRP	   155#	  3522
LPWRFE	   524#
LPWRFL	   524#
LREQSE	   524#
LRQCLR	   524#
LSECMO	   524#
LSMODE	   524#
LSNTRP	   150#	  3517
LSNXER	   524#
LSPAER	   524#	  3952	  3972	  3992	  4012	  4032	  4052	  4072
LSPSFT	   524#
LSPWRF	   524#
LSTRP	   151#	  3518
LTBASH	   131#	   524#
LTBASL	   132#	   524#
LTRP3S	   881#	   881	  1755	  1764	  3729	  4823
LTRP3T	   129#	   142#	   880	  1751	  1756	  1765	  3512	  3513	  3713	  3715	  3730	  3799	  4766	  4824
	  4857
LTRPAE	   524#
LTRPEN	   524#	   941	   944	   973	   987	  1001	  1015	  1029	  1043	  1057	  1071	  1085	  1099	  1113
	  1125	  1154	  1168	  1182	  1196	  1210	  1224	  1238	  1252	  1266	  1280	  1294	  1745	  1752
	  1763	  1776	  1786	  1799	  1809	  2457	  2538	  2580	  2640	  2711	  2731	  2777	  2830	  2900
	  2969	  3045	  3122	  3258	  3317	  3409	  3424	  3439	  3454	  3488	  3654	  3681	  3700	  3720
	  3727	  3749	  3757	  3760	  3766	  3773	  3793	  3800	  3803	  3809	  3821	  3824	  3830	  3842
	  3845	  3851	  3910	  3942	  4087	  4127	  4134	  4145	  4160	  4211	  4285	  4342	  4365	  4461
	  4526	  4576	  4632	  4638	  4701	  4771	  4777	  4783	  4812	  4862	  4868	  4878	  4934	  5121
	  5485	  5509	  5532	  5551	  5616	  5662	  5707	  5752	  5797	  5842	  5887	  5932	  5978	  6145
	  6207
LUSCMP	   524#                                                                                                            SEQ 0254
LUUO	   524#
LUUO1	   657	   658
LUUO10	   657	   662
LUUO11	   657	   662
LUUO12	   657	   663
LUUO13	   657	   663
LUUO14	   657	   664
LUUO15	   657	   664
LUUO16	   657	   665
LUUO17	   657	   665
LUUO2	   657	   659
LUUO20	   657	   666
LUUO21	   657	   666
LUUO22	   657	   667
LUUO23	   657	   667
LUUO24	   657	   668
LUUO25	   657	   668
LUUO26	   657	   669
LUUO27	   657	   669
LUUO3	   657	   659
LUUO30	   657	   670
LUUO31	   657	   670
LUUO32	   657	   671
LUUO33	   657	   671
LUUO4	   657	   660
LUUO5	   657	   660
LUUO6	   657	   661
LUUO7	   657	   661
LUUOI	   524#	   874	  3503
LUUOIS	   875#	   875
LWRITE	   524#
MAPCK0	  2371	  2431#	  2514
MAPCK1	  2445#
MAPCK2	  2454#
MAPCK3	  2465#
MAPCK4	  2478#
MAPCK5	  2490#
MAPCK6	  2505#
MAPCK9	  2457#	  2470	  2483	  2497	  2512
MAPNEW	   678#
MARGIN	   600#
MCNVER	     3#	    10	    15	   572
MEMLOW	   680#
MEMMAP	   578
MEMSIZ	   681#
MEMTOT	   679#
MINUS	   722#
MODDVC	   276#
MODDVL	    31#	   475	   573
MODDVU	    32#	   476	   574
MODE	  5542#	  5558	  5608#	  5623	  5654#	  5669	  5714	  5759	  5804	  5849	  5894	  5939	  5985
MODLNK	   295#	   537
MONCTL	   590#                                                                                                            SEQ 0255
MONFLG	   589#
MONTEN	   591#
MONTYP	   804#
MPVU	   524#
MTRX	  2417#
MTRZ	  2416#
MULRET	  1991	  2005#
MULTRP	  1990	  1998#
MULTST	  1990#	  2002	  2010
MUU100	  5147#
MUU114	  5163	  5169#	  5185
MUUO	   236#	   524#	  5117	  5133	  5134	  5156	  5157	  5178	  5179	  5195	  5208	  5209	  5212	  5232
	  5233	  5244	  5266	  5267	  5273	  5290	  5316	  5317	  5337	  5359	  5360	  5366	  5396	  5397
	  5409	  5443	  5444	  5453	  5575	  5640	  5686	  5731	  5776	  5821	  5866	  5911	  5956	  6002
	  6021	  6050	  6051	  6064	  6073	  6112	  6139	  6140	  6151	  6158	  6161	  6172
MUUOER	   879	  3588#	  3588
MUUOPC	   237#	   524#	  5576	  5641	  5687	  5732	  5777	  5822	  5867	  5912	  5957	  6003
MUUOXA	  5146	  5153	  5158#	  5165	  5187
MUUOXB	  5168	  5175	  5180#
MUUSTA	  5154#	  5161	  5167
MUUSTB	  5176#	  5183	  5189
MUXPCA	  5154	  5162#
MUXPCB	  5176	  5184#
MXFLG	   886#	   886
NOPNT	   264#
NXMU	   524#
OPRSEL	   278#
OPTIME	   692#
OVSTR1	  1840	  1848	  1854	  1865	  1877	  1883	  1896	  1898#	  1898	  1911	  1922	  1924	  1936	  2415#
P	   321	   322	   323	   324	   524#	   612	  6206	  6217
P0ARO1	  1806	  1820#
P0AROV	  1797	  1808#	  1813
P0AROX	  1783	  1802#	  1812
P0PDL	  1774	  1785#	  1790
P0PDLX	  1760	  1779#	  1789
P0TP3	  1750	  1762#	  1767
P0TP3X	  1755#	  1766
P0TRP0	  1744#	  1819
P0TRP1	  1750#	  1771	  1794	  1817
PAG	   524#	   913	   914	   928	   929	   930	   942	   943	   944	   971	   972	   973	   985	   986
	   987	   999	  1000	  1001	  1013	  1014	  1015	  1027	  1028	  1029	  1041	  1042	  1043	  1055
	  1056	  1057	  1069	  1070	  1071	  1083	  1084	  1085	  1097	  1098	  1099	  1111	  1112	  1113
	  1123	  1124	  1125	  1152	  1153	  1154	  1166	  1167	  1168	  1180	  1181	  1182	  1194	  1195
	  1196	  1208	  1209	  1210	  1222	  1223	  1224	  1236	  1237	  1238	  1250	  1251	  1252	  1264
	  1265	  1266	  1278	  1279	  1280	  1292	  1293	  1294	  1311	  1312	  1324	  1325	  1326	  1357
	  1358	  1359	  1373	  1374	  1375	  1389	  1390	  1391	  1405	  1406	  1407	  1421	  1422	  1423
	  1437	  1438	  1439	  1453	  1454	  1455	  1469	  1470	  1471	  1485	  1486	  1487	  1501	  1502
	  1503	  1517	  1518	  1519	  1530	  1531	  1532	  1561	  1562	  1563	  1577	  1578	  1579	  1593
	  1594	  1595	  1609	  1610	  1611	  1625	  1626	  1627	  1641	  1642	  1643	  1657	  1658	  1659
	  1673	  1674	  1675	  1689	  1690	  1691	  1705	  1706	  1707	  1721	  1722	  1723	  1745	  1746
	  1752	  1763	  1776	  1786	  1799	  1809	  2457	  2458	  2538	  2539	  2580	  2581	  2640	  2641
	  2711	  2712	  2731	  2732	  2777	  2778	  2830	  2832	  2900	  2901	  2969	  2970	  3045	  3046
	  3122	  3123	  3258	  3259	  3317	  3318	  3409	  3410	  3424	  3425	  3439	  3440	  3454	  3455     SEQ 0256
	  3488	  3489	  3561	  3567	  3572	  3596	  3614	  3654	  3655	  3681	  3682	  3700	  3701	  3720
	  3721	  3727	  3728	  3749	  3750	  3757	  3758	  3760	  3761	  3766	  3767	  3773	  3774	  3793
	  3794	  3800	  3803	  3809	  3821	  3824	  3830	  3842	  3845	  3851	  3910	  3942	  4087	  4127
	  4128	  4134	  4135	  4145	  4146	  4160	  4211	  4212	  4285	  4286	  4342	  4365	  4366	  4461
	  4462	  4526	  4527	  4576	  4577	  4632	  4633	  4638	  4639	  4701	  4702	  4771	  4772	  4777
	  4783	  4812	  4862	  4863	  4868	  4869	  4878	  4879	  4934	  4935	  5121	  5122	  5485	  5486
	  5509	  5510	  5532	  5533	  5551	  5552	  5616	  5617	  5662	  5663	  5707	  5708	  5752	  5753
	  5797	  5798	  5842	  5843	  5887	  5888	  5932	  5933	  5978	  5979	  6145	  6146	  6207	  6208
PAGE1	  5305	  5352	  5400	  5436	  6038	  6204#
PAGRD0	  2927	  2941#
PAGRD1	  2946#	  2967
PAGRD2	  2952	  2966#
PAGRD3	  2969#	  3007
PAGRD4	  2973#	  2984	  2986
PAGRD5	  2988#	  3003	  3005
PAGRDA	  2882#	  2925
PAGRDB	  2900#	  2908
PAGRDC	  2918#
PAGRDX	  2983	  3002	  3010#
PAGSET	  5299	  5342	  5394	  5429	  5562	  5627	  5673	  5718	  5763	  5808	  5853	  5898	  5943	  5989
	  6030	  6197#	  6216
PAGSIZ	  6182	  6197
PALERS	   270#
PAREA1	   107#	   568
PAREA2	   108#	   569
PAREA3	   109#	   566
PAREA4	   110#	   567
PAREA5	   111#	   579
PAREA6	   112#	   580
PAREA7	   579#
PAREA8	   580#
PARU	   524#
PASCNT	   594#	   896
PATCH	  7924#
PDISF	   689#
PDLOVU	   524#
PDOVTP	   234#	   524#	  5499	  5513
PDSET	  1838	  1863	  1894	  1920	  2377#
PDT0	  1834#	  2403
PDT1	  1836#	  1846	  1852	  1858	  2367
PDT10	  1918#	  1930	  1934	  1940
PDT11	  1928#
PDT11A	  1918	  1923	  1932#
PDT12	  1919	  1937#
PDT2	  1836	  1844#
PDT3	  1837	  1849#
PDT4	  1869#	  1884
PDT4A	  1861#	  1871	  1875	  1881	  1889
PDT5	  1861	  1867	  1873#
PDT6	  1862	  1878#
PDT7	  1892#	  1904	  1909	  1915
PDT8	  1892	  1902#
PDT9	  1893	  1906#                                                                                                    SEQ 0257
PERIOD	   719#
PFAIL0	  2528#	  2548	  2556	  2561	  2567	  2574	  2624
PFAIL1	  2540	  2552#
PFAIL2	  2549	  2571#
PFAIL3	  2578#	  2588	  2597	  2602	  2608	  2615
PFAIL4	  2582	  2593#
PFAIL5	  2589	  2612#
PFAIL6	  2619#
PFBLT0	  4195#	  4332
PFBLT1	  4204#	  4222	  4274
PFBLT2	  4218#	  4237
PFBLT3	  4201	  4225#	  4330
PFBLT4	  4277#
PFBLT5	  4277	  4340#
PFBYT0	  4336	  4355#	  4501
PFBYT1	  4362#	  4375	  4403
PFBYT2	  4371#	  4398
PFBYT3	  4359	  4380#
PFBYT4	  4406#	  4418	  4449
PFBYT5	  4415#	  4444
PFBYT6	  4406	  4422#
PFBYT7	  4455#	  4469	  4499
PFBYT8	  4466#	  4494
PFBYT9	  4455	  4473#
PFDMM0	  4625#	  4739
PFDMM1	  4632#	  4647	  4685
PFDMM2	  4643#	  4680
PFDMM3	  4629	  4651#
PFDMM4	  4693#	  4709	  4737
PFDMM5	  4706#	  4732
PFDMM6	  4693	  4713#
PFDMV0	  4516#	  4613
PFDMV1	  4522#	  4535	  4561
PFDMV2	  4531#	  4556
PFDMV3	  4520	  4539#
PFDMV4	  4567#	  4584	  4611
PFDMV5	  4581#	  4606
PFDMV6	  4567	  4588#
PFIO0	  4925#	  4959
PFIO1	  4933#	  4943	  4944	  4950	  4957
PFIO2	  4939#	  4953
PFIO3	  4930	  4945#
PFSTRT	   546#
PFT0	  3214	  3246#	  3289
PFT1	  3257#	  3269	  3274	  3280	  3287
PFT2	  3254	  3271#
PFT3	  3270	  3291#
PGFAIL	   877#	   877	  2619	  2869	  3291	  3382	  3615	  3784	  4334	  4503	  4741	  4789	  4870	  4880
	  4889	  4898	  4961
PGMEND	    29#	  7930
PGMNAM	   571	   855#
PGR400	  2886	  2902	  2903	  2929#
PGR777	  2888	  2918	  2919	  2930#                                                                                    SEQ 0258
PGRDTB	    49#	  2950	  2953	  2957	  2977	  2995
PGW400	  3031	  3047	  3049	  3051	  3057	  3090#	  3251	  3257	  3263	  3265	  3282	  3309	  3316	  3321
	  3322	  3339	  3346
PGW777	  3033	  3071	  3073	  3075	  3080	  3091#	  3311	  3354	  3357	  3358	  3366	  3374
PGWRT0	  3088	  3100#	  3213
PGWRT1	  3105#	  3120
PGWRT2	  3122#	  3164
PGWRT3	  3130#	  3144	  3149	  3151
PGWRT4	  3153#	  3166
PGWRT5	  3168#	  3209
PGWRT6	  3174#	  3188	  3195	  3197
PGWRT7	  3198#	  3211
PGWRTA	  3008	  3027#	  3086
PGWRTB	    50#	  3105	  3109	  3124	  3125	  3126	  3134	  3145	  3160	  3168	  3169	  3170	  3178	  3189
	  3205	  3223	  3635	  3639	  3651	  3652	  3653	  3662	  3673	  3690	  4112	  4116	  4129	  4130
	  4131	  4140	  4152	  4167
PGWRTC	  3071#	  3079	  3084
PGWRTX	  3143	  3148	  3187	  3216#	  3671	  4150
PGWRTY	  3163	  3208	  3222#	  3676	  3693	  4155	  4170
PGWRTZ	  3194	  3228#
PGWTBB	  3045#	  3056	  3061
PI	  2534	  2622	  3904	  3912	  3914	  3951	  3962	  3971	  3982	  3991	  4002	  4011	  4022	  4031
	  4042	  4051	  4062	  4071	  4082	  4088	  4094
PICHN1	   524#
PICHN2	   524#	  2534
PICHN3	   524#
PICHN4	   524#
PICHN5	   524#
PICHN6	   524#
PICHN7	   524#
PICHNA	   524#
PICLR	   524#
PIOFF	   524#
PION	   524#
PLIST	   758#	   758
PLISTE	   758	   760#
PLISTS	   759#
PLUS	   724#
PNTENB	   688#
PNTEXT	   567#
PNTFLG	   687#
PNTINH	   690#
PNTLPT	   265#
PNTNAM	   566#
PNTRP	   244#	   524#	  5310	  5358	  5406	  5440	  5569	  5593	  5634	  5680	  5725	  5770	  5815	  5860
	  5905	  5950	  5996	  6043	  6136
PNTSPC	   691#
PTRP	   245#	   524#	  5314	  5570	  5599	  5635	  5681	  5726	  5771	  5816	  5861	  5906	  5951	  5997
	  6047	  6137
PVPAGI	   785#	   870
QUEST	   730#
RADIX	   733#
RADLSC	   735#                                                                                                            SEQ 0259
RADLSP	   734#
RANDBS	   568#
REENTR	   548#
RELIAB	   272#	   891
REPT	   122	   524#	   911	  1309	  1744	  1834	  2431	  2528	  2636	  2757	  2824	  2882	  2941	  2942
	  3027	  3100	  3101	  3246	  3305	  3397	  3487	  3630	  3631	  3748	  3792	  3878	  3879	  4107
	  4108	  4195	  4355	  4516	  4625	  4758	  4849	  4925
REPT1	   524#
REPTU	   646#
REQSET	   524#
RESRT1	    96	   623#
RESRT2	   624#
RETO	  2379	  2405	  2410#
RETURN	   555#
RLARO1	  3848	  3863#
RLAROV	  3840	  3850#	  3853
RLAROX	  3845#	  3852
RLBAS0	  3487#	  3617
RLBAS1	  3528#
RLBAS2	  3533#	  3541	  3548	  3554
RLBAS3	  3561#	  3570	  3578	  3584
RLBAS4	  3588#
RLBAS5	  3614#
RLBAS6	  3630#	  3724	  3736	  3738
RLBMU0	  3537#	  3549
RLBMU1	  3528	  3543#
RLBMU2	  3566#	  3579
RLBMU3	  3530	  3572#
RLEPM0	  4107#	  4175
RLEPM1	  4112#	  4125
RLEPM2	  4127#	  4171
RLEPM3	  4136#	  4151	  4156	  4158
RLEPM4	  4160#	  4173
RLIERR	  3895	  3909#
RLINT0	  3878#
RLINT1	  3904#	  3918	  4085
RLINT2	  3906	  3942#
RLINT3	  3945#
RLINT4	  3965#
RLINT5	  3985#
RLINT6	  4005#
RLINT7	  4025#
RLINT8	  4045#
RLINT9	  4065#
RLINTA	  4087#
RLITR1	  3880	  4077#
RLITR2	  3882	  4057#
RLITR3	  3884	  4037#
RLITR4	  3886	  4017#
RLITR5	  3888	  3997#
RLITR6	  3890	  3977#
RLITR7	  3892	  3957#
RLPDL	  3819	  3829#	  3832                                                                                             SEQ 0260
RLPDL1	  3827	  3837#
RLPDLX	  3824#	  3831
RLPF1	  3593#	  3600	  3606	  3612
RLPFL	  3591	  3602#
RLPFT0	  3748#	  3782
RLPFT1	  3751	  3773#
RLPFT2	  3753	  3766#
RLPFT3	  3759#	  3780
RLPFT4	  3764	  3771	  3784#
RLTP3	  3798	  3808#	  3811
RLTP3X	  3803#	  3810
RLTP4	  3806	  3816#
RLTRP0	  3792#	  3862
RLTRP1	  3798#	  3815	  3836	  3857
RLWRT1	  3635#	  3649
RLWRT2	  3651#	  3672	  3677	  3694
RLWRT3	  3658#	  3679
RLWRT4	  3681#	  3696
RPEAT	   893#	   893	   911	  1309	  1744	  1834	  2431	  2528	  2636	  2757	  2882	  2941	  3027	  3100
	  3246	  3305	  3397	  3487	  3630	  3748	  3792	  3878	  4107	  4195	  4355	  4516	  4625	  4758
	  4849	  4925
RSTART	   261#
RTP	   728#
RUNFLG	   595#
SADR1	    95#	   544
SADR10	   104#	   560
SADR11	   105#	   561
SADR2	    96#	   546
SADR3	    97#	   548
SADR4	    98#
SADR5	    99#	   609
SADR6	   100#	   610
SADR7	   101#	   557
SADR8	   102#	   558
SADR9	   103#	   559
SBINIT	   334	   554#
SCOPE	   647#	   887	  5120#	  5120
SFSRT1	    95	   896#
SFSTRT	   544#
SHTRP	  2380	  2400	  2402	  2409#
SLASH	   731#
SM10	   835#
SNTRP	   240#	   524#	  5311	  5357	  5405	  5441	  5571	  5594	  5636	  5682	  5727	  5772	  5817	  5862
	  5907	  5952	  5998	  6044
SPACE	   720#
SRTDDT	    98	   550#
START	   538	   867#
START1	   557#
START2	   558#
START3	   559#
START4	   560#
START5	   561#
STARTA	   553	   887#                                                                                                    SEQ 0261
STMUUO	  4964	  5120#
STRP	   241#	   524#	  5313	  5572	  5596	  5637	  5683	  5728	  5773	  5818	  5863	  5908	  5953	  5999
	  6046
SUBLNK	   296#	   554
SWPTAB	   841#
SWTEXR	   569#
SYSEXR	   542#
T	   902#	   918	   933	   947	   977	   991	  1005	  1019	  1033	  1047	  1061	  1075	  1089	  1103
	  1117	  1128	  1158	  1172	  1186	  1200	  1214	  1228	  1242	  1256	  1270	  1284	  1298	  1317
	  1331	  1365	  1381	  1397	  1413	  1429	  1445	  1461	  1477	  1493	  1509	  1525	  1537	  1569
	  1585	  1601	  1617	  1633	  1649	  1665	  1681	  1697	  1713	  1729	  1738#	  1759	  1770	  1782
	  1793	  1805	  1816	  1845	  1851	  1857	  1870	  1874	  1880	  1888	  1903	  1908	  1914	  1929
	  1933	  1939	  1954	  1962	  1978	  1986	  2001	  2009	  2024	  2032	  2047	  2065	  2083	  2091
	  2106	  2114	  2129	  2147	  2166	  2186	  2204	  2222	  2240	  2248	  2253	  2268	  2276	  2281
	  2296	  2304	  2309	  2324	  2332	  2337	  2351	  2359	  2364	  2402	  2421#	  2437	  2449	  2469
	  2482	  2496	  2511	  2519#	  2547	  2555	  2560	  2566	  2573	  2587	  2596	  2601	  2607	  2614
	  2630#	  2654	  2667	  2679	  2692	  2717	  2737	  2751#	  2798	  2818#	  2843	  2849	  2854	  2862
	  2876#	  2907	  2922	  2983	  3002	  3021#	  3055	  3060	  3078	  3083	  3143	  3148	  3163	  3187
	  3194	  3208	  3236#	  3268	  3273	  3279	  3286	  3299#	  3325	  3332	  3337	  3343	  3349	  3360
	  3364	  3370	  3377	  3391#	  3421	  3435	  3450	  3466	  3481#	  3540	  3547	  3553	  3569	  3577
	  3583	  3599	  3605	  3611	  3624#	  3671	  3676	  3693	  3723	  3735	  3763	  3770	  3779	  3805
	  3814	  3826	  3835	  3847	  3856	  3872#	  3917	  4101#	  4150	  4155	  4170	  4189#	  4221	  4228
	  4234	  4240	  4246	  4251	  4256	  4262	  4267	  4272	  4302	  4307	  4312	  4317	  4322	  4328
	  4349#	  4374	  4382	  4386	  4391	  4396	  4401	  4417	  4424	  4429	  4435	  4441	  4447	  4468
	  4475	  4480	  4485	  4491	  4497	  4510#	  4534	  4543	  4547	  4553	  4559	  4583	  4592	  4597
	  4603	  4609	  4619#	  4646	  4655	  4660	  4666	  4671	  4677	  4683	  4708	  4717	  4723	  4729
	  4735	  4752#	  4780	  4785	  4796	  4803	  4817	  4829	  4835	  4843#	  4874	  4883	  4892	  4905
	  4912	  4919#	  4942	  4949	  4956	  5115#	  5138	  5160	  5182	  5193#	  5216	  5227#	  5248	  5254#
	  5277	  5288#	  5321	  5330	  5335#	  5364	  5369	  5378	  5383#	  5413	  5417	  5422#	  5451	  5456
	  5464	  5474#	  5492	  5497#	  5516	  5521#	  5539	  5580	  5586	  5645	  5651	  5691	  5697	  5736
	  5742	  5781	  5787	  5826	  5832	  5871	  5877	  5916	  5922	  5961	  5967	  6007	  6014	  6019#
	  6057	  6061	  6067	  6076	  6109#	  6155	  6164	  6174	  6215
TAB	   721#
TESTPC	   596#	   868	   910	   926	   940	   953	  1134	  1308	  1337	  1743	  1833	  2430	  2527	  2635
	  2756	  2823	  2881	  2940	  3026	  3099	  3245	  3304	  3396	  3486	  3629	  3747	  3791	  3877
	  4106	  4194	  4354	  4515	  4624	  4757	  4848	  4924	  5127	  5151	  5173	  5202	  5236	  5264
	  5295	  5348	  5390	  5433	  5481	  5505	  5528	  5555	  5620	  5666	  5711	  5756	  5801	  5846
	  5891	  5936	  5982	  6026	  6118
TICKS	   599#
TIPF0	  4758#	  4781	  4786	  4797	  4804	  4830	  4836	  4838
TIPF1	  4777#
TIPF10	  4818	  4849#	  4875	  4876	  4884	  4885	  4893	  4894	  4906	  4913	  4915
TIPF11	  4868#
TIPF12	  4854	  4898#
TIPF14	  4856	  4888#
TIPF1X	  4866	  4878#	  4901	  4908
TIPF2	  4763	  4789#
TIPF3	  4807	  4810#
TIPF4	  4765	  4792	  4822#	  4832
TIPF5	  4825	  4826#	  4826
TIPFX	  4775	  4783#	  4799	  4810	  4831
TN0	    53#	   248#	   524#	  1754	  1778	  3707	  3802	  3823	  4775	  4799	  4866	  4908	  5511	  5534
TN1	    54#	   249#	   524#	  1754	  1801	  3707	  3802	  3844	  4775	  4799	  4866	  4908	  5487	  5534     SEQ 0262
TOTALS	   262#
TPLST	  6186	  6191#
TRAP0	  5460	  5462	  5478#
TRAP0A	  5485#	  5493
TRAP1	  5502#
TRAP1A	  5509#	  5517
TRAP2A	  5534#	  5540
TRAPST	   204	  6184#	  6189
TRINST	  2387	  2392#
TRP02	  5525#
TRP3TP	   235#	   524#	  5523	  5536
TRPLOC	  2385	  2388	  2396	  2412#
TRPSAV	  2389	  2395	  2411#
TRPTYP	  2374	  2377	  2383	  2413#
TSTWD	  1842	  1855	  1857	  1897#	  1897	  1906	  1908	  2414#
TTNBRF	   779#
TTYFIL	   695#
TTYSPD	   696#
TXTINH	   273#
UBAVEC	   524#
UBLT	  6082	  6115#
UBLT3	  6116#
UBLT4	  6120#	  6156	  6165	  6175
UBLT5	  6132	  6151#
UBLT6	  6134	  6171#
UBLT7	  6166	  6177#
UBRCK0	  1309#	  1318	  1731
UBRCK1	  1323#	  1332
UBRCK2	  1338#
UBRCK3	  1529#	  1538
UBRCK4	  1542#
UEXT	  5591	  5604#
UPMP	   227	   227#	  5290	  5307	  5309	  5310	  5311	  5312	  5313	  5314	  5315	  5316	  5317	  5337
	  5354	  5356	  5357	  5358	  5359	  5360	  5366	  5396	  5397	  5402	  5404	  5405	  5406	  5409
	  5438	  5440	  5441	  5442	  5443	  5444	  5453	  5567	  5568	  5569	  5570	  5571	  5572	  5575
	  5576	  5592	  5593	  5594	  5595	  5596	  5597	  5598	  5599	  5632	  5633	  5634	  5635	  5636
	  5637	  5640	  5641	  5678	  5679	  5680	  5681	  5682	  5683	  5686	  5687	  5723	  5724	  5725
	  5726	  5727	  5728	  5731	  5732	  5768	  5769	  5770	  5771	  5772	  5773	  5776	  5777	  5813
	  5814	  5815	  5816	  5817	  5818	  5821	  5822	  5858	  5859	  5860	  5861	  5862	  5863	  5866
	  5867	  5903	  5904	  5905	  5906	  5907	  5908	  5911	  5912	  5948	  5949	  5950	  5951	  5952
	  5953	  5956	  5957	  5994	  5995	  5996	  5997	  5998	  5999	  6002	  6003	  6021	  6040	  6042
	  6043	  6044	  6045	  6046	  6047	  6048	  6050	  6051	  6064	  6073	  6112	  6120	  6123	  6133
	  6135	  6136	  6137	  6139	  6140	  6142	  6143	  6146	  6151	  6158	  6161	  6171	  6172	  6202
	  6208
USER	   586#
USERF	   524#	  5549	  5566	  5583	  5605	  6149	  6159	  6162	  6205	  6210	  6213
USRASB	   576
USRCRF	   705#
USREXT	  5602#
USRLFF	   704#
USRRTN	  5591#
UUODIS	   658#
UUOEXT	   614#                                                                                                            SEQ 0263
UUORTN	   615#
UUOSKP	   612#
WRTP0	  3305#	  3380
WRTP1	  3316#	  3326	  3327	  3333	  3338	  3344	  3350	  3365	  3371	  3378
WRTP2	  3345#
WRTP3	  3352#	  3361
WRTP4	  3373#
WRTPF	  3313	  3329#
WRTPF1	  3352	  3362#
XAC0	  6185#	  6185	  6188
XX	   949#	   968	   968#	   969	   969#	   970	   982	   982#	   983	   984	   996	   996#	   997	   998
	  1010	  1010#	  1011	  1012	  1024	  1024#	  1025	  1026	  1038	  1038#	  1039	  1040	  1052	  1052#
	  1053	  1054	  1066	  1066#	  1067	  1068	  1080	  1080#	  1081	  1082	  1094	  1094#	  1095	  1096
	  1108	  1108#	  1109	  1110	  1130#	  1149	  1149#	  1150	  1150#	  1151	  1163	  1163#	  1164	  1165
	  1177	  1177#	  1178	  1179	  1191	  1191#	  1192	  1193	  1205	  1205#	  1206	  1207	  1219	  1219#
	  1220	  1221	  1233	  1233#	  1234	  1235	  1247	  1247#	  1248	  1249	  1261	  1261#	  1262	  1263
	  1275	  1275#	  1276	  1277	  1289	  1289#	  1290	  1291	  1333#	  1354	  1354#	  1355	  1355#	  1356
	  1370	  1370#	  1371	  1372	  1386	  1386#	  1387	  1388	  1402	  1402#	  1403	  1404	  1418	  1418#
	  1419	  1420	  1434	  1434#	  1435	  1436	  1450	  1450#	  1451	  1452	  1466	  1466#	  1467	  1468
	  1482	  1482#	  1483	  1484	  1498	  1498#	  1499	  1500	  1514	  1514#	  1515	  1516	  1540#	  1558
	  1558#	  1559	  1559#	  1560	  1574	  1574#	  1575	  1576	  1590	  1590#	  1591	  1592	  1606	  1606#
	  1607	  1608	  1622	  1622#	  1623	  1624	  1638	  1638#	  1639	  1640	  1654	  1654#	  1655	  1656
	  1670	  1670#	  1671	  1672	  1686	  1686#	  1687	  1688	  1702	  1702#	  1703	  1704	  1718	  1718#
	  1719	  1720
$$MUUO	   810#
$$OUTE	   816#
$$TAX1	   828#
$$TAX2	   829#
$$TOGG	   822#
$$UUO	   799#
$ACC0	   637#
$BEND1	   607#
$BEND2	    99	   608#
$CHRIN	   698#
$CRLF	   700#
$DEVCH	   524#
$DSKUP	   577#
$DVOFF	   694#
$EMODE	   575#
$FFF	   702#
$IBUF	   750#
$INEXT	   752#
$INNM	   751#
$ITRHL	   618#
$ITRX1	   619#
$LPAPE	  6223
$MMAP	   578#
$MODVL	   573#
$MODVU	   574#
$OBUF	   741#
$ONETM	   601#
$OUTEX	   743#
$OUTNM	   742#                                                                                                            SEQ 0264
$PAPER	   524
$PARER	   625#
$PNAME	   571#
$PSHER	   629#
$PVER	   572#
$RSRTX	   621#
$RSRTY	   622#
$SPAG1	   641#
$START	   538#
$SVAPR	   639#
$SVPAG	   640#
$SVPI	   638#
$SVUPC	   644#
$SVUUO	   643#
$TABF	   701#
$TTCHR	   697#
$TWCNT	   693#
$TYPNB	   699#
$UMODE	   576#
$UORTX	   616#
$USRHL	   620#
$UUOER	   617#	   658
$VTF	   703#
%ACTFL	   650#
%ACTUL	   651#
%COREC	   649#
%CORFL	   648#
%DISCR	   652#
%ERHI1	   791#
%ERHI2	   792#
%ERHI3	   793#
..0001	  5549	  5566	  5582#
..0002	  5551#	  5581	  5587
..0003	  5565	  5577#
..0004	  5614	  5631	  5647#
..0005	  5616#	  5646	  5652
..0006	  5630	  5642#
..0007	  5660	  5677	  5693#
..0010	  5662#	  5692	  5698
..0011	  5676	  5688#
..0012	  5705	  5722	  5738#
..0013	  5707#	  5737	  5743
..0014	  5721	  5733#
..0015	  5750	  5767	  5783#
..0016	  5752#	  5782	  5788
..0017	  5766	  5778#
..0020	  5795	  5812	  5828#
..0021	  5797#	  5827	  5833
..0022	  5811	  5823#
..0023	  5840	  5857	  5873#
..0024	  5842#	  5872	  5878
..0025	  5856	  5868#
..0026	  5885	  5902	  5918#                                                                                            SEQ 0265
..0027	  5887#	  5917	  5923
..0030	  5901	  5913#
..0031	  5930	  5947	  5963#
..0032	  5932#	  5962	  5968
..0033	  5946	  5958#
..0034	  5976	  5993	  6009#
..0035	  5978#	  6008	  6015
..0036	  5992	  6004#
.JB41	   524#
.JBAPR	   524#
.JBCNI	   524#
.JBDDT	   524#
.JBFF	   524#
.JBOPC	   524#
.JBREL	   524#
.JBREN	   524#
.JBSA	   524#
.JBSYM	   524#
.JBTPC	   524#
.JBUSY	   524#
.JBUUO	   524#
.JBVER	   524#

APRID	   524#
BCIO	   524#                                                                                                            SEQ 0266
BCIOB	   524#
BSIO	   524#
BSIOB	   524#
CFLUSH	   446#
CINVAL	   445#
CLOKOP	   440#
CLRPT	   524#
CWRTBI	   447#
DROPDV	   407#
ENDUUO	   453#	   606
EOPUUO	   454#	   608
ERLOOP	   494#	   919	   934	   948	   978	   992	  1006	  1020	  1034	  1048	  1062	  1076	  1090	  1104
	  1118	  1129	  1159	  1173	  1187	  1201	  1215	  1229	  1243	  1257	  1271	  1285	  1299	  1318
	  1332	  1366	  1382	  1398	  1414	  1430	  1446	  1462	  1478	  1494	  1510	  1526	  1538	  1570
	  1586	  1602	  1618	  1634	  1650	  1666	  1682	  1698	  1714	  1730	  1771	  1794	  1817	  1846
	  1852	  1858	  1871	  1875	  1881	  1889	  1904	  1909	  1915	  1930	  1934	  1940	  1955	  1963
	  1979	  1987	  2002	  2010	  2025	  2033	  2048	  2066	  2084	  2092	  2107	  2115	  2130	  2148
	  2167	  2187	  2205	  2223	  2241	  2249	  2254	  2269	  2277	  2282	  2297	  2305	  2310	  2325
	  2333	  2338	  2352	  2360	  2365	  2403	  2438	  2450	  2470	  2483	  2497	  2512	  2548	  2556
	  2561	  2567	  2574	  2588	  2597	  2602	  2608	  2615	  2655	  2668	  2680	  2693	  2718	  2738
	  2799	  2844	  2850	  2855	  2863	  2908	  2923	  2984	  3003	  3056	  3061	  3079	  3084	  3144
	  3149	  3164	  3188	  3195	  3209	  3269	  3274	  3280	  3287	  3326	  3333	  3338	  3344	  3350
	  3365	  3371	  3378	  3422	  3436	  3451	  3467	  3541	  3548	  3554	  3570	  3578	  3584	  3600
	  3606	  3612	  3672	  3677	  3694	  3724	  3736	  3780	  3815	  3836	  3857	  4151	  4156	  4171
	  4274	  4330	  4403	  4449	  4499	  4561	  4611	  4685	  4737	  4797	  4804	  4830	  4836	  4875
	  4884	  4893	  4906	  4913	  4943	  4950	  4957	  5581	  5587	  5646	  5652	  5692	  5698	  5737
	  5743	  5782	  5788	  5827	  5833	  5872	  5878	  5917	  5923	  5962	  5968	  6008	  6015
ERLP1	   495#
ERLP2	   496#	  5139	  5161	  5183	  5217	  5249	  5278	  5322	  5331	  5365	  5370	  5379	  5414	  5418
	  5452	  5457	  5465	  5493	  5517	  5540	  6058	  6062	  6068	  6077	  6156	  6165	  6175	  6216
ERRHLT	   341#
ERROR	   503#	   916	   932	   946	   975	   989	  1003	  1017	  1031	  1045	  1059	  1073	  1087	  1101
	  1115	  1127	  1156	  1170	  1184	  1198	  1212	  1226	  1240	  1254	  1268	  1282	  1296	  1316
	  1330	  1363	  1379	  1395	  1411	  1427	  1443	  1459	  1475	  1491	  1507	  1523	  1536	  1567
	  1583	  1599	  1615	  1631	  1647	  1663	  1679	  1695	  1711	  1727	  1769	  1792	  1815	  1844
	  1850	  1856	  1869	  1873	  1879	  1887	  1902	  1907	  1913	  1928	  1932	  1938	  1953	  1961
	  1977	  1985	  2000	  2008	  2023	  2031	  2046	  2064	  2082	  2090	  2105	  2113	  2128	  2146
	  2165	  2185	  2203	  2221	  2239	  2247	  2252	  2267	  2275	  2280	  2295	  2303	  2308	  2323
	  2331	  2336	  2350	  2358	  2363	  2401	  2435	  2448	  2468	  2481	  2495	  2510	  2545	  2554
	  2559	  2565	  2572	  2586	  2595	  2600	  2606	  2613	  2652	  2666	  2678	  2691	  2716	  2736
	  2796	  2841	  2848	  2853	  2861	  2905	  2982	  3001	  3053	  3059	  3077	  3082	  3142	  3147
	  3162	  3186	  3193	  3207	  3266	  3272	  3278	  3285	  3323	  3331	  3336	  3342	  3348	  3363
	  3369	  3376	  3419	  3434	  3449	  3465	  3538	  3546	  3552	  3568	  3576	  3582	  3598	  3604
	  3610	  3669	  3675	  3692	  3722	  3734	  3813	  3834	  3855	  4148	  4154	  4169	  4795	  4802
	  4828	  4834	  4872	  4882	  4891	  4904	  4911	  4940	  4948	  4955	  5578	  5584	  5643	  5649
	  5689	  5695	  5734	  5740	  5779	  5785	  5824	  5830	  5869	  5875	  5914	  5920	  5959	  5965
	  6005	  6012
ERROR1	   514#	  1757	  1781	  1804	  2921	  3359	  3762	  3769	  3778	  3804	  3825	  3846	  3915	  4219
	  4227	  4233	  4239	  4245	  4250	  4255	  4261	  4266	  4271	  4301	  4306	  4311	  4316	  4321
	  4327	  4372	  4381	  4385	  4390	  4395	  4400	  4416	  4423	  4428	  4434	  4440	  4446	  4467
	  4474	  4479	  4484	  4490	  4496	  4532	  4542	  4546	  4552	  4558	  4582	  4591	  4596	  4602
	  4608	  4644	  4654	  4659	  4665	  4670	  4676	  4682	  4707	  4716	  4722	  4728	  4734	  4778
	  4784	  4816	  5136	  5159	  5181	  5214	  5246	  5275	  5319	  5329	  5362	  5368	  5377	  5411     SEQ 0267
	  5416	  5449	  5455	  5463	  5490	  5514	  5537	  6055	  6060	  6066	  6075	  6153	  6163	  6173
	  6214
ERUUO	   493#	   918	   933	   947	   977	   991	  1005	  1019	  1033	  1047	  1061	  1075	  1089	  1103
	  1117	  1128	  1158	  1172	  1186	  1200	  1214	  1228	  1242	  1256	  1270	  1284	  1298	  1317
	  1331	  1365	  1381	  1397	  1413	  1429	  1445	  1461	  1477	  1493	  1509	  1525	  1537	  1569
	  1585	  1601	  1617	  1633	  1649	  1665	  1681	  1697	  1713	  1729	  1759	  1770	  1782	  1793
	  1805	  1816	  1845	  1851	  1857	  1870	  1874	  1880	  1888	  1903	  1908	  1914	  1929	  1933
	  1939	  1954	  1962	  1978	  1986	  2001	  2009	  2024	  2032	  2047	  2065	  2083	  2091	  2106
	  2114	  2129	  2147	  2166	  2186	  2204	  2222	  2240	  2248	  2253	  2268	  2276	  2281	  2296
	  2304	  2309	  2324	  2332	  2337	  2351	  2359	  2364	  2402	  2437	  2449	  2469	  2482	  2496
	  2511	  2547	  2555	  2560	  2566	  2573	  2587	  2596	  2601	  2607	  2614	  2654	  2667	  2679
	  2692	  2717	  2737	  2798	  2843	  2849	  2854	  2862	  2907	  2922	  2983	  3002	  3055	  3060
	  3078	  3083	  3143	  3148	  3163	  3187	  3194	  3208	  3268	  3273	  3279	  3286	  3325	  3332
	  3337	  3343	  3349	  3360	  3364	  3370	  3377	  3421	  3435	  3450	  3466	  3540	  3547	  3553
	  3569	  3577	  3583	  3599	  3605	  3611	  3671	  3676	  3693	  3723	  3735	  3763	  3770	  3779
	  3805	  3814	  3826	  3835	  3847	  3856	  3917	  4150	  4155	  4170	  4221	  4228	  4234	  4240
	  4246	  4251	  4256	  4262	  4267	  4272	  4302	  4307	  4312	  4317	  4322	  4328	  4374	  4382
	  4386	  4391	  4396	  4401	  4417	  4424	  4429	  4435	  4441	  4447	  4468	  4475	  4480	  4485
	  4491	  4497	  4534	  4543	  4547	  4553	  4559	  4583	  4592	  4597	  4603	  4609	  4646	  4655
	  4660	  4666	  4671	  4677	  4683	  4708	  4717	  4723	  4729	  4735	  4780	  4785	  4796	  4803
	  4817	  4829	  4835	  4874	  4883	  4892	  4905	  4912	  4942	  4949	  4956	  5138	  5160	  5182
	  5216	  5248	  5277	  5321	  5330	  5364	  5369	  5378	  5413	  5417	  5451	  5456	  5464	  5492
	  5516	  5539	  5580	  5586	  5645	  5651	  5691	  5697	  5736	  5742	  5781	  5787	  5826	  5832
	  5871	  5877	  5916	  5922	  5961	  5967	  6007	  6014	  6057	  6061	  6067	  6076	  6155	  6164
	  6174	  6215
FATAL	   340#
FLGTST	   167#	  5544	  5609	  5655	  5700	  5745	  5790	  5835	  5880	  5925	  5970
FRD36	   482#
FRD8	   483#
FREAD	   481#
FSELEC	   480#
GET	   324#	  2404
GO	   321#	  1838	  1863	  1894	  1920	  1945	  1968	  1992	  2015	  2038	  2056	  2074	  2097	  2120
	  2138	  2156	  2175	  2195	  2213	  2231	  2259	  2287	  2315	  2343	  5299	  5305	  5342	  5352
	  5394	  5400	  5429	  5436	  5562	  5627	  5673	  5718	  5763	  5808	  5853	  5898	  5943	  5989
	  6030	  6038
HALT	   101	   102	   103	   104	   105	   326#	   627	  3955	  3975	  3995	  4015	  4035	  4055	  4075
	  5211	  5243	  5272	  5408	  5603	  5606	  6100	  6103	  6113	  6129	  6150	  6152
JEN	   328#	  6101
JRSTF	   327#	  1753	  1777	  1800	  2405	  3535	  3564	  3705	  3801	  3822	  3843	  4213	  4287	  4343
	  4367	  4411	  4463	  4528	  4578	  4640	  4703	  4774	  4814	  4865	  4936	  5488	  5512	  5535
	  6148	  6209
MAP	    47#	  2433	  2446	  2466	  2479	  2493	  2508	  2650	  2664	  2676	  2689	  2714	  2734	  2794
MAPADR	   463#
MAPCNK	   464#
MAPMEM	   460#
MAPPNT	   466#
MAPSET	   465#
MEMSEG	   462#
MEMZRO	   461#
MODPCP	   473#
MODPCU	   472#
MOVMEM	   208#                                                                                                            SEQ 0268
MTROP	   441#
NAME	     7#	    10
PAGECN	   213#	  5297	  5340	  5392	  5427	  5560	  5625	  5671	  5716	  5761	  5806	  5851	  5896	  5941
	  5987	  6028
PAGEPN	   217#
PBELL	   416#
PCRL	   410#	  2811	  3013	  3219	  3225	  3231	  6088
PCRL2	   414#
PCRL2F	   415#
PCRLF	   411#
PFORCE	   418#
PGMINT	   334#	   871
PJRST	   325#
PMSG	   420#	  6084
PMSGF	   423#
PNT1	   376#
PNT11	   390#
PNT11F	   391#
PNT1F	   377#
PNT2	   378#
PNT2F	   379#
PNT3	   380#
PNT3F	   381#
PNT4	   382#
PNT4F	   383#
PNT5	   384#
PNT5F	   385#
PNT6	   386#	  2810	  3012	  3218	  3224	  3230
PNT6F	   387#
PNT7	   388#
PNT7F	   389#
PNTA	   362#
PNTADF	   393#
PNTADR	   392#
PNTAF	   363#
PNTAL	   364#
PNTALF	   365#
PNTCHF	   375#
PNTCHR	   374#
PNTCI	   372#
PNTCIF	   373#
PNTCW	   408#
PNTCWF	   409#
PNTDCF	   401#
PNTDEC	   400#
PNTDS	   402#
PNTDSF	   403#
PNTHW	   396#	  6087
PNTHWF	   397#
PNTMSF	   369#
PNTMSG	   368#
PNTNM	   404#
PNTOCF	   399#                                                                                                            SEQ 0269
PNTOCS	   398#
PNTOCT	   394#
PNTOTF	   395#
PNTSIX	   405#
PNTSXF	   406#
PSIXL	   366#
PSIXLF	   367#
PSIXM	   370#	  2808	  3010	  3216	  3222	  3228	  6085
PSIXMF	   371#
PSP	   412#
PSPF	   413#
PUT	   323#	  2394
RDAPR	   524#
RDCSB	   524#
RDCSTM	   524#
RDEBR	   524#
RDHSB	   524#
RDINT	   524#
RDIO	   524#
RDIOB	   524#
RDPI	   524#
RDPUR	   524#
RDSPB	   524#
RDTIM	   524#
RDUBR	   524#
REPTLP	   122#	  1300	  1731	  1819	  2367	  2514	  2624	  2740	  2805	  2867	  2925	  3007	  3086	  3213
	  3289	  3380	  3470	  3617	  3738	  3782	  3862	  4085	  4175	  4332	  4501	  4613	  4739	  4838
	  4915	  4959
REPTUO	   497#
RESET	   206#	  5483	  5507	  5530
RLITRC	  3935#	  3957	  3977	  3997	  4017	  4037	  4057	  4077
RLITRX	  3922#	  3945	  3965	  3985	  4005	  4025	  4045	  4065
RTN	   322#	   614	  2390	  2812	  3014	  3220	  3226	  3232	  6089
S	   123	   125	   136	   138	   252#	   254	   258	   287	   289	   298	   301	   316	   317	   319
	   330	   332	   336	   338	   343	   347	   489	   491	   524	   529	   535	   562	   564	   582
	   584	   602	   604	   633	   635	   653	   655	   673	   675	   683	   685	   706	   711	   737
	   739	   746	   748	   754	   756	   762	   764	   768	   770	   775	   777	   781	   783	   787
	   789	   795	   797	   800	   802	   806	   808	   812	   814	   818	   820	   824	   826	   831
	   833	   837	   839	   843	   845	   847	   849
SIXBTZ	   429#	   902	  1738	  2421	  2519	  2630	  2751	  2808	  2818	  2876	  3010	  3021	  3216	  3222
	  3228	  3236	  3299	  3391	  3481	  3624	  3872	  4101	  4189	  4349	  4510	  4619	  4752	  4843
	  4919	  5115	  5193	  5227	  5254	  5288	  5335	  5383	  5422	  5474	  5497	  5521	  6019	  6109
SUBTST	   118#	   908	   924	   938	   951	  1132	  1306	  1335	  1741	  1831	  2428	  2525	  2633	  2754
	  2821	  2879	  2938	  3024	  3097	  3243	  3302	  3394	  3484	  3627	  3745	  3789	  3875	  4104
	  4192	  4352	  4513	  4622	  4755	  4846	  4922
SWITCH	   435#	   889
TIOE	   524#
TIOEB	   524#
TION	   524#
TIONB	   524#
TNSET	   222#	  5125	  5149	  5171	  5200	  5234	  5262	  5293	  5346	  5388	  5431	  5479	  5503	  5526
	  5553	  5618	  5664	  5709	  5754	  5799	  5844	  5889	  5934	  5980	  6024	  6116
TRPSET	   204#	  5484	  5508	  5531                                                                                     SEQ 0270
TTALTM	   356#
TTICHR	   349#
TTICLR	   359#
TTICNV	   354#
TTIDEC	   353#
TTINO	   351#
TTIOCT	   352#
TTIYES	   350#
TTLOOK	   355#
TTSIXB	   357#
TTYINP	   358#
WRAPR	   524#
WRCSB	   524#
WRCSTM	   524#
WREBR	   524#
WRHSB	   524#
WRINT	   524#
WRIO	   524#
WRIOB	   524#
WRPI	   524#
WRPUR	   524#
WRSPB	   524#
WRTIM	   524#
WRUBR	   524#

ADD	  3499	  6201
ADDI	  2767	  2955	  2959	  2964	  2979	  2998	  3107	  3111	  3116	  3118	  3136	  3181	  3404	  3406     SEQ 0271
	  3637	  3641	  3645	  3647	  3664	  4114	  4118	  4123	  4142	  5279	  5458
ADDM	  5143	  5165	  5187	  5221	  5326	  5374
ANDI	  2978	  2997	  3135	  3180	  3663	  4141
AOBJN	  2772	  2801	  2865	  2967	  2986	  3005	  3120	  3151	  3166	  3197	  3211	  3407	  3423	  3437
	  3452	  3468	  3501	  3649	  3679	  3696	  4125	  4158	  4173	  6124	  6203
AOS	   612	  2966	  2985	  3119	  3150	  3165	  3210	  3648	  3678	  3695	  4124	  4157	  4172	  6079
ASCII	   713	   715	   718	   719	   720	   721	   723	   724	   725	   726	   727	   728	   730	   731
	   732
ASCIZ	   855
ASH	  1949
ASHC	  1973
BLKI	  6099
BLKO	  6098
BLOCK	   681	   741	   744	   750	   753	   759	  7924
BLT	  2456	  2532	  2639	  2760	  2827	  2885	  3030	  3126	  3170	  3249	  3308	  3413	  3428	  3444
	  3459	  3492	  3495	  3653	  4131	  4198	  4218	  4292	  4358	  4519	  4628	  4761	  4852	  4928
	  6128	  6187
BYTE	   729
CAIE	  5245	  5410	  5489	  5513	  5536	  6074	  6080
CAIGE	  2766	  2963	  3115	  3403
CAME	   915	   945	   974	   988	  1002	  1016	  1030	  1044	  1058	  1072	  1086	  1100	  1114	  1126
	  1155	  1169	  1183	  1197	  1211	  1225	  1239	  1253	  1267	  1281	  1295	  1315	  1362	  1378
	  1394	  1410	  1426	  1442	  1458	  1474	  1490	  1506	  1522	  1535	  1566	  1582	  1598	  1614
	  1630	  1646	  1662	  1678	  1694	  1710	  1726	  1768	  1791	  1814	  1849	  1855	  1878	  1886
	  1906	  1912	  1937	  1960	  1984	  2007	  2030	  2089	  2112	  2246	  2251	  2274	  2279	  2302
	  2307	  2330	  2335	  2357	  2362	  2400	  2434	  2447	  2467	  2480	  2494	  2509	  2553	  2558
	  2564	  2594	  2599	  2605	  2651	  2665	  2677	  2690	  2715	  2735	  2795	  2847	  2852	  2860
	  2904	  2920	  2981	  3000	  3052	  3058	  3076	  3081	  3141	  3146	  3161	  3185	  3192	  3206
	  3271	  3277	  3284	  3330	  3335	  3341	  3347	  3362	  3368	  3375	  3418	  3433	  3448	  3464
	  3545	  3551	  3575	  3581	  3603	  3609	  3668	  3674	  3691	  3733	  3777	  3812	  3833	  3854
	  4147	  4153	  4168	  4226	  4232	  4238	  4244	  4249	  4254	  4260	  4265	  4270	  4300	  4305
	  4310	  4315	  4320	  4326	  4384	  4389	  4394	  4399	  4427	  4433	  4439	  4445	  4478	  4483
	  4489	  4495	  4541	  4545	  4551	  4557	  4590	  4595	  4601	  4607	  4653	  4658	  4664	  4669
	  4675	  4681	  4715	  4721	  4727	  4733	  4794	  4801	  4806	  4827	  4833	  4903	  4910	  4947
	  4954	  5213	  5274	  5367	  5454	  6065	  6152	  6162
COMMEN	    56
CONI	   914	   929	   943	   972	   986	  1000	  1014	  1028	  1042	  1056	  1070	  1084	  1098	  1112
	  1124	  1153	  1167	  1181	  1195	  1209	  1223	  1237	  1251	  1265	  1279	  1293	  3911	  3912
	  4939	  6093
CONO	   206	   913	   928	   930	   942	   944	   971	   973	   985	   987	   999	  1001	  1013	  1015
	  1027	  1029	  1041	  1043	  1055	  1057	  1069	  1071	  1083	  1085	  1097	  1099	  1111	  1113
	  1123	  1125	  1152	  1154	  1166	  1168	  1180	  1182	  1194	  1196	  1208	  1210	  1222	  1224
	  1236	  1238	  1250	  1252	  1264	  1266	  1278	  1280	  1292	  1294	  1745	  1752	  1763	  1776
	  1786	  1799	  1809	  2457	  2534	  2535	  2538	  2578	  2580	  2621	  2622	  2640	  2711	  2731
	  2777	  2830	  2900	  2969	  3045	  3122	  3258	  3317	  3409	  3424	  3439	  3454	  3488	  3654
	  3681	  3700	  3720	  3727	  3749	  3757	  3760	  3766	  3773	  3793	  3800	  3803	  3809	  3821
	  3824	  3830	  3842	  3845	  3851	  3904	  3905	  3910	  3913	  3914	  3942	  3951	  3952	  3961
	  3962	  3971	  3972	  3981	  3982	  3991	  3992	  4001	  4002	  4011	  4012	  4021	  4022	  4031
	  4032	  4041	  4042	  4051	  4052	  4061	  4062	  4071	  4072	  4081	  4082	  4087	  4088	  4089
	  4093	  4094	  4127	  4134	  4145	  4160	  4211	  4285	  4342	  4365	  4461	  4526	  4576	  4632
	  4638	  4701	  4771	  4777	  4783	  4812	  4862	  4868	  4878	  4934	  5121	  5485	  5509	  5532
	  5551	  5616	  5662	  5707	  5752	  5797	  5842	  5887	  5932	  5978	  6092	  6145	  6207
CONSO	  6097                                                                                                             SEQ 0272
CONSZ	  2571	  2612	  6096
DATAI	  1312	  1325	  1358	  1374	  1390	  1406	  1422	  1438	  1454	  1470	  1486	  1502	  1518	  1531
	  1562	  1578	  1594	  1610	  1626	  1642	  1658	  1674	  1690	  1706	  1722	  6095
DATAO	  1311	  1324	  1326	  1357	  1359	  1373	  1375	  1389	  1391	  1405	  1407	  1421	  1423	  1437
	  1439	  1453	  1455	  1469	  1471	  1485	  1487	  1501	  1503	  1517	  1519	  1530	  1532	  1561
	  1563	  1577	  1579	  1593	  1595	  1609	  1611	  1625	  1627	  1641	  1643	  1657	  1659	  1673
	  1675	  1689	  1691	  1705	  1707	  1721	  1723	  1746	  2458	  2539	  2581	  2641	  2712	  2732
	  2778	  2832	  2901	  2970	  3046	  3123	  3259	  3318	  3410	  3425	  3440	  3455	  3489	  3561
	  3567	  3572	  3596	  3614	  3655	  3682	  3701	  3721	  3728	  3750	  3758	  3761	  3767	  3774
	  3794	  4128	  4135	  4146	  4212	  4286	  4366	  4462	  4527	  4577	  4633	  4639	  4702	  4772
	  4863	  4869	  4879	  4935	  5122	  5486	  5510	  5533	  5552	  5617	  5663	  5708	  5753	  5798
	  5843	  5888	  5933	  5979	  6094	  6146	  6208
DEFINE	     7	   118	   167	   208	   213	   217	   222	   252	   420	   423	   429	   503	   514	  3922
	  3935
DFAD	  2142
DFDV	  2346
DFMP	  2217
DFSB	  2181
DIV	  2235
DMOVE	  4531	  4581
DMOVEM	  4643	  4706
END	  7932
EXCH	  2388
FAD	  2124
FDV	  2291
FDVR	  2319
FIX	  2078
FIXR	  2101
FMP	  2199
FSB	  2161
FSC	  2060
HLLM	  2769
HLRM	  2771
HLRZ	  2779
HLRZM	  2380
HRL	  2956	  3108	  3638	  4115	  6121
HRLI	  1328	  1361	  1377	  1393	  1409	  1425	  1441	  1457	  1473	  1489	  1505	  1521	  1534	  1565
	  1581	  1597	  1613	  1629	  1645	  1661	  1677	  1693	  1709	  1725
HRR	  2960	  3112	  3642	  4119
HRRI	  1837	  1862	  1893	  1919	  1944	  1967	  1991	  2014	  2037	  2055	  2073	  2096	  2119	  2137
	  2155	  2174	  2194	  2212	  2230	  2258	  2286	  2314	  2342
HRRM	  5270	  5447
HRRZ	  2764	  2792	  2837	  2856	  2961	  3113	  3401	  3643	  4120	  5244	  5273	  5409	  5453	  6073
HRRZM	  2379
HRRZS	  1885	  2399
IBP	  2042
IDIV	  2263
IDPB	  4415
IFDEF	   524	   575	   576	   577	   578	  7923	  7930
IFE	   969	   983	   997	  1011	  1025	  1039	  1053	  1067	  1081	  1095	  1109	  1150	  1164	  1178
	  1192	  1206	  1220	  1234	  1248	  1262	  1276	  1290	  1355	  1371	  1387	  1403	  1419	  1435
	  1451	  1467	  1483	  1499	  1515	  1559	  1575	  1591	  1607	  1623	  1639	  1655	  1671	  1687
	  1703	  1719                                                                                                     SEQ 0273
IFNDEF	   227	   475	   476	   486	   575	   576	   577	   578	   657	  6182	  6223
ILDB	  4371	  4466
IMUL	  2019
IMULI	  2942	  3101	  3631	  3879	  4108
JFCL	   615	   616	   617	   618	   619	   620	   621	   622	   623	   624	   625	   626	  3508	  3859
	  5557	  5622	  5668	  5713	  5758	  5803	  5848	  5893	  5938	  5984
JRST	   325	   326	   327	   328	   537	   538	   540	   542	   544	   546	   548	   551	   553	   554
	   607	   894	   898	  1760	  1783	  1806	  2371	  2375	  2549	  2589	  2806	  2845	  2927	  2952
	  3008	  3088	  3214	  3270	  3327	  3361	  3703	  3709	  3717	  3725	  3764	  3771	  3806	  3827
	  3848	  3906	  3918	  4222	  4336	  4375	  4418	  4469	  4535	  4584	  4647	  4709	  4781	  4786
	  4807	  4818	  4876	  4885	  4894	  4944	  4964	  5141	  5145	  5163	  5167	  5185	  5189	  5219
	  5223	  5281	  5282	  5324	  5328	  5372	  5376	  5415	  5460	  5461	  5462	  5559	  5607	  5624
	  5670	  5715	  5760	  5805	  5850	  5895	  5940	  5986	  6059	  6081	  6082	  6102	  6126	  6166
	  6177	  6179	  6189	  6211
JSP	   334	  4825	  5582	  5604	  5647	  5693	  5738	  5783	  5828	  5873	  5918	  5963	  6009	  6204
	  6212
JSR	   204	  1750	  1774	  1797	  2392	  3712	  3714	  3798	  3819	  3840	  3880	  3882	  3884	  3886
	  3888	  3890	  3892	  3895	  4091	  4765	  4856
LALL	     8	   903	  1739	  2422	  2520	  2631	  2752	  2819	  2877	  3022	  3237	  3300	  3392	  3482
	  3625	  3873	  3944	  4102	  4190	  4350	  4511	  4620	  4753	  4844	  4920	  5116	  5194	  5228
	  5255	  5289	  5336	  5384	  5423	  5475	  5498	  5522	  5545	  5582	  5610	  5647	  5656	  5693
	  5701	  5738	  5746	  5783	  5791	  5828	  5836	  5873	  5881	  5918	  5926	  5963	  5972	  6009
	  6020	  6110
LIST	     7	   486	   524	   657	  1734	  2626	  3741	  6223	  7920
LIT	  6224
LOC	    14	   527	   851
LSH	  2765	  2780	  2793	  2838	  2857	  2947	  2954	  2958	  2962	  2974	  2992	  3106	  3110	  3114
	  3131	  3157	  3175	  3202	  3402	  3636	  3640	  3644	  3659	  3687	  4113	  4117	  4121	  4137
	  4164
MOVE	   874	   876	   878	   880	   882	   884	   911	  1309	  1310	  1323	  1356	  1372	  1388	  1404
	  1420	  1436	  1452	  1468	  1484	  1500	  1516	  1529	  1560	  1576	  1592	  1608	  1624	  1640
	  1656	  1672	  1688	  1704	  1720	  1744	  1750	  1755	  1764	  1766	  1767	  1774	  1779	  1787
	  1789	  1790	  1797	  1802	  1810	  1812	  1813	  1834	  1840	  1854	  1865	  1883	  1897	  1947
	  1951	  1958	  1970	  1975	  1982	  1994	  1998	  2005	  2017	  2021	  2028	  2040	  2044	  2050
	  2058	  2062	  2068	  2076	  2080	  2087	  2099	  2103	  2110	  2122	  2126	  2132	  2140	  2144
	  2150	  2158	  2159	  2163	  2169	  2177	  2178	  2183	  2189	  2197	  2201	  2207	  2215	  2219
	  2225	  2237	  2244	  2265	  2272	  2293	  2300	  2321	  2328	  2348	  2355	  2369	  2387	  2395
	  2398	  2431	  2432	  2445	  2455	  2465	  2478	  2492	  2507	  2528	  2531	  2544	  2557	  2562
	  2563	  2585	  2598	  2603	  2604	  2619	  2636	  2638	  2649	  2663	  2675	  2688	  2713	  2733
	  2757	  2759	  2763	  2809	  2826	  2828	  2840	  2851	  2859	  2869	  2882	  2884	  2902	  2903
	  2918	  2919	  2941	  2946	  2973	  2980	  2991	  2999	  3011	  3027	  3029	  3048	  3051	  3057
	  3072	  3075	  3080	  3100	  3125	  3130	  3140	  3145	  3156	  3160	  3169	  3174	  3184	  3191
	  3201	  3205	  3217	  3229	  3246	  3248	  3263	  3265	  3276	  3282	  3283	  3291	  3305	  3307
	  3322	  3334	  3339	  3340	  3346	  3358	  3366	  3367	  3374	  3382	  3397	  3400	  3412	  3417
	  3427	  3432	  3441	  3443	  3447	  3456	  3458	  3463	  3487	  3491	  3494	  3496	  3502	  3504
	  3506	  3508	  3510	  3512	  3514	  3544	  3550	  3574	  3580	  3588	  3597	  3607	  3608	  3615
	  3630	  3652	  3658	  3667	  3673	  3686	  3690	  3703	  3705	  3707	  3709	  3712	  3714	  3729
	  3731	  3732	  3748	  3759	  3768	  3775	  3776	  3784	  3792	  3798	  3810	  3811	  3819	  3831
	  3832	  3840	  3852	  3853	  3859	  3878	  3880	  3882	  3884	  3886	  3888	  3890	  3892	  3895
	  4091	  4107	  4130	  4136	  4144	  4152	  4163	  4167	  4195	  4197	  4216	  4225	  4230	  4231
	  4236	  4237	  4243	  4248	  4253	  4259	  4264	  4269	  4290	  4299	  4304	  4309	  4314	  4319
	  4325	  4334	  4340	  4355	  4357	  4369	  4383	  4388	  4392	  4393	  4397	  4398	  4413	  4426
	  4432	  4437	  4438	  4443	  4444	  4458	  4477	  4482	  4487	  4488	  4493	  4494	  4503	  4516     SEQ 0274
	  4518	  4540	  4544	  4549	  4550	  4555	  4556	  4589	  4594	  4599	  4600	  4605	  4606	  4625
	  4627	  4652	  4657	  4663	  4668	  4673	  4674	  4679	  4680	  4714	  4720	  4725	  4726	  4731
	  4732	  4741	  4758	  4760	  4765	  4789	  4792	  4793	  4799	  4800	  4823	  4826	  4831	  4832
	  4849	  4851	  4856	  4870	  4880	  4889	  4898	  4901	  4902	  4908	  4909	  4925	  4927	  4945
	  4946	  4952	  4953	  4961	  5212	  5366	  5487	  5511	  5534	  5566	  5591	  5631	  5677	  5722
	  5767	  5812	  5857	  5902	  5947	  5993	  6035	  6064	  6086	  6126	  6127	  6128	  6129	  6130
	  6142	  6151	  6161	  6171	  6172	  6186	  6188	  6198	  6200
MOVEI	   867	   872	   890	   892	   909	   912	   925	   927	   939	   941	   952	   970	   984	   998
	  1012	  1026	  1040	  1054	  1068	  1082	  1096	  1110	  1122	  1133	  1151	  1165	  1179	  1193
	  1207	  1221	  1235	  1249	  1263	  1277	  1291	  1307	  1336	  1742	  1832	  1884	  1896	  1922
	  1923	  1971	  2382	  2384	  2429	  2505	  2526	  2540	  2582	  2634	  2686	  2694	  2755	  2774
	  2776	  2822	  2824	  2834	  2880	  2888	  2939	  2944	  2953	  2957	  2972	  2977	  2989	  2995
	  3025	  3033	  3098	  3103	  3105	  3109	  3128	  3134	  3154	  3172	  3178	  3189	  3199	  3223
	  3244	  3254	  3303	  3311	  3313	  3352	  3395	  3399	  3416	  3431	  3446	  3462	  3485	  3528
	  3530	  3534	  3543	  3549	  3563	  3573	  3579	  3591	  3594	  3628	  3633	  3635	  3639	  3657
	  3662	  3684	  3746	  3751	  3753	  3790	  3876	  3953	  3973	  3993	  4013	  4033	  4053	  4073
	  4105	  4110	  4112	  4116	  4133	  4140	  4162	  4193	  4201	  4277	  4353	  4359	  4406	  4455
	  4514	  4520	  4567	  4623	  4629	  4693	  4756	  4763	  4847	  4854	  4923	  4930	  5123	  5126
	  5131	  5147	  5150	  5154	  5169	  5172	  5176	  5198	  5201	  5206	  5235	  5240	  5259	  5260
	  5263	  5294	  5301	  5306	  5308	  5344	  5347	  5353	  5355	  5389	  5401	  5403	  5432	  5435
	  5437	  5439	  5480	  5504	  5527	  5554	  5619	  5665	  5710	  5755	  5800	  5845	  5890	  5935
	  5981	  6025	  6039	  6041	  6117	  6120	  6132	  6134	  6191	  6192	  6193
MOVEM	   868	   873	   875	   877	   879	   881	   883	   885	   893	   910	   926	   940	   953	  1134
	  1308	  1337	  1743	  1751	  1756	  1765	  1775	  1780	  1788	  1798	  1803	  1811	  1833	  1898
	  1924	  1952	  1959	  1976	  1983	  1999	  2006	  2022	  2029	  2045	  2051	  2063	  2069	  2081
	  2088	  2104	  2111	  2127	  2133	  2145	  2151	  2164	  2170	  2184	  2190	  2202	  2208	  2220
	  2226	  2238	  2245	  2266	  2273	  2294	  2301	  2322	  2329	  2349	  2356	  2370	  2385	  2389
	  2396	  2430	  2491	  2506	  2527	  2541	  2583	  2620	  2635	  2674	  2687	  2695	  2697	  2756
	  2823	  2835	  2870	  2881	  2887	  2889	  2940	  2950	  2965	  3026	  3032	  3034	  3049	  3073
	  3099	  3117	  3138	  3182	  3245	  3252	  3255	  3292	  3304	  3310	  3312	  3314	  3353	  3383
	  3396	  3405	  3442	  3457	  3486	  3497	  3500	  3503	  3505	  3507	  3509	  3511	  3513	  3515
	  3516	  3517	  3518	  3519	  3520	  3521	  3522	  3529	  3531	  3589	  3590	  3592	  3616	  3629
	  3646	  3666	  3704	  3706	  3708	  3710	  3713	  3715	  3730	  3747	  3752	  3754	  3785	  3791
	  3799	  3820	  3841	  3860	  3877	  3881	  3883	  3885	  3887	  3889	  3891	  3893	  3896	  3897
	  3898	  3899	  3900	  3901	  3902	  4092	  4106	  4122	  4143	  4194	  4200	  4202	  4278	  4335
	  4341	  4354	  4360	  4407	  4456	  4459	  4504	  4515	  4521	  4568	  4570	  4624	  4630	  4694
	  4696	  4742	  4757	  4764	  4766	  4790	  4811	  4824	  4848	  4855	  4857	  4871	  4881	  4890
	  4899	  4924	  4931	  4962	  5124	  5127	  5130	  5132	  5148	  5151	  5153	  5155	  5170	  5173
	  5175	  5177	  5199	  5202	  5205	  5207	  5236	  5239	  5241	  5261	  5264	  5269	  5295	  5302
	  5304	  5307	  5309	  5310	  5311	  5312	  5313	  5314	  5315	  5345	  5348	  5351	  5354	  5356
	  5357	  5358	  5390	  5399	  5402	  5404	  5405	  5406	  5433	  5438	  5440	  5441	  5442	  5446
	  5481	  5505	  5528	  5555	  5565	  5567	  5568	  5569	  5570	  5571	  5572	  5573	  5574	  5592
	  5593	  5594	  5595	  5596	  5597	  5598	  5599	  5601	  5620	  5630	  5632	  5633	  5634	  5635
	  5636	  5637	  5638	  5639	  5666	  5676	  5678	  5679	  5680	  5681	  5682	  5683	  5684	  5685
	  5711	  5721	  5723	  5724	  5725	  5726	  5727	  5728	  5729	  5730	  5756	  5766	  5768	  5769
	  5770	  5771	  5772	  5773	  5774	  5775	  5801	  5811	  5813	  5814	  5815	  5816	  5817	  5818
	  5819	  5820	  5846	  5856	  5858	  5859	  5860	  5861	  5862	  5863	  5864	  5865	  5891	  5901
	  5903	  5904	  5905	  5906	  5907	  5908	  5909	  5910	  5936	  5946	  5948	  5949	  5950	  5951
	  5952	  5953	  5954	  5955	  5982	  5992	  5994	  5995	  5996	  5997	  5998	  5999	  6000	  6001
	  6026	  6036	  6040	  6042	  6043	  6044	  6045	  6046	  6047	  6048	  6118	  6123	  6133	  6135
	  6136	  6137	  6143	  6185	  6202
MOVSI	  1314	  1836	  1861	  1892	  1918	  1943	  1966	  1990	  2013	  2036	  2054	  2072	  2095	  2118
	  2136	  2154	  2173	  2193	  2211	  2229	  2257	  2285	  2313	  2341	  2490	  2673	  2696	  2762     SEQ 0275
	  2775	  2833	  2886	  2943	  2971	  2988	  3031	  3102	  3127	  3153	  3171	  3198	  3251	  3309
	  3398	  3415	  3430	  3445	  3461	  3498	  3632	  3656	  3683	  4109	  4132	  4161	  4199	  4569
	  4695	  4810	  5129	  5142	  5152	  5164	  5174	  5186	  5204	  5220	  5238	  5268	  5303	  5325
	  5350	  5373	  5398	  5445	  5564	  5600	  5629	  5675	  5720	  5765	  5810	  5855	  5900	  5945
	  5991	  6122	  6197
MUL	  1996
NOSYM	    23
OPDEF	    47	   122	   204	   206	   321	   322	   323	   324	   325	   326	   327	   328	   334	   340
	   341	   349	   350	   351	   352	   353	   354	   355	   356	   357	   358	   359	   362	   363
	   364	   365	   366	   367	   368	   369	   370	   371	   372	   373	   374	   375	   376	   377
	   378	   379	   380	   381	   382	   383	   384	   385	   386	   387	   388	   389	   390	   391
	   392	   393	   394	   395	   396	   397	   398	   399	   400	   401	   402	   403	   404	   405
	   406	   407	   408	   409	   410	   411	   412	   413	   414	   415	   416	   418	   435	   440
	   441	   445	   446	   447	   453	   454	   460	   461	   462	   463	   464	   465	   466	   472
	   473	   480	   481	   482	   483	   493	   494	   495	   496	   497	   524
PAGE	  5653	  5699	  5744	  5789	  5834	  5879	  5924	  5969
POINT	  4369	  4383	  4413	  4426	  4458	  4477
POP	   324	  1901
POPJ	   322	  1926	  6206	  6217
PUSH	   323	  1842
PUSHJ	   321	  1867
REPEAT	   954	  1135	  1338	  1542	  1734	  2626	  3741	  4966
SALL	   901	   917	   933	   947	   977	   991	  1005	  1019	  1033	  1047	  1061	  1075	  1089	  1103
	  1117	  1128	  1158	  1172	  1186	  1200	  1214	  1228	  1242	  1256	  1270	  1284	  1298	  1317
	  1331	  1365	  1381	  1397	  1413	  1429	  1445	  1461	  1477	  1493	  1509	  1525	  1537	  1569
	  1585	  1601	  1617	  1633	  1649	  1665	  1681	  1697	  1713	  1729	  1737	  1758	  1770	  1782
	  1793	  1805	  1816	  1845	  1851	  1857	  1870	  1874	  1880	  1888	  1903	  1908	  1914	  1929
	  1933	  1939	  1954	  1962	  1978	  1986	  2001	  2009	  2024	  2032	  2047	  2065	  2083	  2091
	  2106	  2114	  2129	  2147	  2166	  2186	  2204	  2222	  2240	  2248	  2253	  2268	  2276	  2281
	  2296	  2304	  2309	  2324	  2332	  2337	  2351	  2359	  2364	  2402	  2420	  2436	  2449	  2469
	  2482	  2496	  2511	  2518	  2546	  2555	  2560	  2566	  2573	  2587	  2596	  2601	  2607	  2614
	  2629	  2653	  2667	  2679	  2692	  2717	  2737	  2750	  2797	  2817	  2842	  2849	  2854	  2862
	  2875	  2906	  2922	  2983	  3002	  3020	  3054	  3060	  3078	  3083	  3143	  3148	  3163	  3187
	  3194	  3208	  3235	  3267	  3273	  3279	  3286	  3298	  3324	  3332	  3337	  3343	  3349	  3360
	  3364	  3370	  3377	  3390	  3420	  3435	  3450	  3466	  3480	  3539	  3547	  3553	  3569	  3577
	  3583	  3599	  3605	  3611	  3623	  3670	  3676	  3693	  3723	  3735	  3763	  3770	  3779	  3805
	  3814	  3826	  3835	  3847	  3856	  3871	  3916	  4100	  4149	  4155	  4170	  4188	  4220	  4228
	  4234	  4240	  4246	  4251	  4256	  4262	  4267	  4272	  4302	  4307	  4312	  4317	  4322	  4328
	  4348	  4373	  4382	  4386	  4391	  4396	  4401	  4417	  4424	  4429	  4435	  4441	  4447	  4468
	  4475	  4480	  4485	  4491	  4497	  4509	  4533	  4543	  4547	  4553	  4559	  4583	  4592	  4597
	  4603	  4609	  4618	  4645	  4655	  4660	  4666	  4671	  4677	  4683	  4708	  4717	  4723	  4729
	  4735	  4751	  4779	  4785	  4796	  4803	  4817	  4829	  4835	  4842	  4873	  4883	  4892	  4905
	  4912	  4918	  4941	  4949	  4956	  5114	  5137	  5160	  5182	  5192	  5215	  5226	  5247	  5253
	  5276	  5287	  5320	  5330	  5334	  5363	  5369	  5378	  5382	  5412	  5417	  5421	  5450	  5456
	  5464	  5473	  5491	  5496	  5515	  5520	  5538	  5579	  5585	  5644	  5650	  5690	  5696	  5735
	  5741	  5780	  5786	  5825	  5831	  5870	  5876	  5915	  5921	  5960	  5966	  6006	  6013	  6018
	  6056	  6061	  6067	  6076	  6108	  6154	  6164	  6174	  6215
SETOB	  2543	  2839	  4524	  4574	  4636	  4699
SETOM	   869	   870	  2377	  2536	  2537	  2552	  2846	  3050	  3074	  3139	  3183	  3257	  3321	  3354
	  3355	  3356	  3373	  3426	  3593	  3595	  3602	  4210	  4215	  4242	  4289	  4298	  4363	  4364
	  4387	  4409	  4410	  4431	  4460	  4525	  4539	  4575	  4588	  4637	  4662	  4700	  4768	  4769
	  4859	  4860	  4933	  5298	  5341	  5393	  5428	  5561	  5626	  5672	  5717	  5762	  5807	  5852
	  5897	  5942	  5988	  6029	  6127                                                                             SEQ 0276
SETZ	  1899	  5478	  5502	  5525
SETZB	  2179	  2233	  2261	  2289	  2317	  2345	  2584	  3261	  3320	  4204	  4522	  4523	  4571	  4634
	  4635	  6051
SETZM	   886	   887	   888	   896	   897	  2374	  2454	  2530	  2579	  2593	  2637	  2758	  2825	  2883
	  3028	  3047	  3071	  3124	  3168	  3247	  3260	  3306	  3316	  3319	  3329	  3345	  3357	  3411
	  3490	  3493	  3533	  3562	  3651	  3756	  4129	  4196	  4205	  4206	  4207	  4208	  4209	  4258
	  4279	  4280	  4281	  4282	  4283	  4284	  4324	  4356	  4362	  4408	  4457	  4517	  4572	  4573
	  4626	  4651	  4697	  4698	  4713	  4719	  4759	  4850	  4926	  5120	  5133	  5134	  5156	  5157
	  5178	  5179	  5208	  5209	  5232	  5233	  5266	  5267	  5316	  5317	  5359	  5360	  5396	  5397
	  5443	  5444	  5575	  5576	  5640	  5641	  5686	  5687	  5731	  5732	  5776	  5777	  5821	  5822
	  5866	  5867	  5911	  5912	  5956	  5957	  6002	  6003	  6033	  6050	  6139	  6140
SIXBIT	   109	   742	   743	   751	   752	   902	   918	   933	   947	   977	   991	  1005	  1019	  1033
	  1047	  1061	  1075	  1089	  1103	  1117	  1128	  1158	  1172	  1186	  1200	  1214	  1228	  1242
	  1256	  1270	  1284	  1298	  1317	  1331	  1365	  1381	  1397	  1413	  1429	  1445	  1461	  1477
	  1493	  1509	  1525	  1537	  1569	  1585	  1601	  1617	  1633	  1649	  1665	  1681	  1697	  1713
	  1729	  1738	  1759	  1770	  1782	  1793	  1805	  1816	  1845	  1851	  1857	  1870	  1874	  1880
	  1888	  1903	  1908	  1914	  1929	  1933	  1939	  1954	  1962	  1978	  1986	  2001	  2009	  2024
	  2032	  2047	  2065	  2083	  2091	  2106	  2114	  2129	  2147	  2166	  2186	  2204	  2222	  2240
	  2248	  2253	  2268	  2276	  2281	  2296	  2304	  2309	  2324	  2332	  2337	  2351	  2359	  2364
	  2402	  2421	  2437	  2449	  2469	  2482	  2496	  2511	  2519	  2547	  2555	  2560	  2566	  2573
	  2587	  2596	  2601	  2607	  2614	  2630	  2654	  2667	  2679	  2692	  2717	  2737	  2751	  2798
	  2808	  2818	  2843	  2849	  2854	  2862	  2876	  2907	  2922	  2983	  3002	  3010	  3021	  3055
	  3060	  3078	  3083	  3143	  3148	  3163	  3187	  3194	  3208	  3216	  3222	  3228	  3236	  3268
	  3273	  3279	  3286	  3299	  3325	  3332	  3337	  3343	  3349	  3360	  3364	  3370	  3377	  3391
	  3421	  3435	  3450	  3466	  3481	  3540	  3547	  3553	  3569	  3577	  3583	  3599	  3605	  3611
	  3624	  3671	  3676	  3693	  3723	  3735	  3763	  3770	  3779	  3805	  3814	  3826	  3835	  3847
	  3856	  3872	  3917	  4101	  4150	  4155	  4170	  4189	  4221	  4228	  4234	  4240	  4246	  4251
	  4256	  4262	  4267	  4272	  4302	  4307	  4312	  4317	  4322	  4328	  4349	  4374	  4382	  4386
	  4391	  4396	  4401	  4417	  4424	  4429	  4435	  4441	  4447	  4468	  4475	  4480	  4485	  4491
	  4497	  4510	  4534	  4543	  4547	  4553	  4559	  4583	  4592	  4597	  4603	  4609	  4619	  4646
	  4655	  4660	  4666	  4671	  4677	  4683	  4708	  4717	  4723	  4729	  4735	  4752	  4780	  4785
	  4796	  4803	  4817	  4829	  4835	  4843	  4874	  4883	  4892	  4905	  4912	  4919	  4942	  4949
	  4956	  5115	  5138	  5160	  5182	  5193	  5216	  5227	  5248	  5254	  5277	  5288	  5321	  5330
	  5335	  5364	  5369	  5378	  5383	  5413	  5417	  5422	  5451	  5456	  5464	  5474	  5492	  5497
	  5516	  5521	  5539	  5580	  5586	  5645	  5651	  5691	  5697	  5736	  5742	  5781	  5787	  5826
	  5832	  5871	  5877	  5916	  5922	  5961	  5967	  6007	  6014	  6019	  6057	  6061	  6067	  6076
	  6085	  6109	  6155	  6164	  6174	  6215
SKIPE	  2383	  4380	  4422	  4473	  6199
SKIPN	   931	  1329	  5140	  5162	  5184	  5218	  5323	  5371	  5558	  5623	  5669	  5714	  5759	  5804
	  5849	  5894	  5939	  5985
SOJG	   122	  3954	  3974	  3994	  4014	  4034	  4054	  4074
SOJGE	  2803
SOS	  3004	  3196	  5144	  5166	  5188	  5222	  5327	  5375
SUBI	  2996	  3179	  3190
SUBTTL	    24	   165	   202	   250	   285	   487	   524	   525	   853	   899	  1301	  1735	  1821	  2418
	  2516	  2627	  2741	  2871	  3015	  3233	  3293	  3384	  3471	  3864	  4095	  4176	  4743	  5058
	  5110	  5283	  5466	  5541	  6016	  6104	  6180	  6218
TITLE	    12
TLNE	  5280	  5459	  5605	  6205
TLNN	   891	  5583	  5648	  5694	  5739	  5784	  5829	  5874	  5919	  5964	  6010	  6213
TLO	  2782	  2784	  2787	  2789	  2791	  2858	  2948	  2975	  2993	  3132	  3158	  3176	  3203	  3660
	  3688	  4138	  4165
TLZ	  2781	  2785	  2949	  2976	  2994	  3133	  3159	  3177	  3204	  3661	  3689	  4139	  4166             SEQ 0277
TLZE	  2783	  2786	  2788	  2790
TRNE	  2770	  2829	  2951
TRNN	  2768	  2831
TRZ	  1313	  1327	  1360	  1376	  1392	  1408	  1424	  1440	  1456	  1472	  1488	  1504	  1520	  1533
	  1564	  1580	  1596	  1612	  1628	  1644	  1660	  1676	  1692	  1708	  1724
VAR	  7928
XALL	   919	   934	   948	   978	   992	  1006	  1020	  1034	  1048	  1062	  1076	  1090	  1104	  1118
	  1129	  1159	  1173	  1187	  1201	  1215	  1229	  1243	  1257	  1271	  1285	  1299	  1318	  1332
	  1366	  1382	  1398	  1414	  1430	  1446	  1462	  1478	  1494	  1510	  1526	  1538	  1570	  1586
	  1602	  1618	  1634	  1650	  1666	  1682	  1698	  1714	  1730	  1760	  1771	  1783	  1794	  1806
	  1817	  1846	  1852	  1858	  1871	  1875	  1881	  1889	  1904	  1909	  1915	  1930	  1934	  1940
	  1955	  1963	  1979	  1987	  2002	  2010	  2025	  2033	  2048	  2066	  2084	  2092	  2107	  2115
	  2130	  2148	  2167	  2187	  2205	  2223	  2241	  2249	  2254	  2269	  2277	  2282	  2297	  2305
	  2310	  2325	  2333	  2338	  2352	  2360	  2365	  2403	  2438	  2450	  2470	  2483	  2497	  2512
	  2548	  2556	  2561	  2567	  2574	  2588	  2597	  2602	  2608	  2615	  2655	  2668	  2680	  2693
	  2718	  2738	  2799	  2844	  2850	  2855	  2863	  2908	  2923	  2984	  3003	  3056	  3061	  3079
	  3084	  3144	  3149	  3164	  3188	  3195	  3209	  3269	  3274	  3280	  3287	  3326	  3333	  3338
	  3344	  3350	  3361	  3365	  3371	  3378	  3422	  3436	  3451	  3467	  3541	  3548	  3554	  3570
	  3578	  3584	  3600	  3606	  3612	  3672	  3677	  3694	  3724	  3736	  3764	  3771	  3780	  3806
	  3815	  3827	  3836	  3848	  3857	  3918	  4151	  4156	  4171	  4222	  4229	  4235	  4241	  4247
	  4252	  4257	  4263	  4268	  4273	  4303	  4308	  4313	  4318	  4323	  4329	  4375	  4383	  4387
	  4392	  4397	  4402	  4418	  4425	  4430	  4436	  4442	  4448	  4469	  4476	  4481	  4486	  4492
	  4498	  4535	  4544	  4548	  4554	  4560	  4584	  4593	  4598	  4604	  4610	  4647	  4656	  4661
	  4667	  4672	  4678	  4684	  4709	  4718	  4724	  4730	  4736	  4781	  4786	  4797	  4804	  4818
	  4830	  4836	  4875	  4884	  4893	  4906	  4913	  4943	  4950	  4957	  5139	  5161	  5183	  5217
	  5249	  5278	  5322	  5331	  5365	  5370	  5379	  5414	  5418	  5452	  5457	  5465	  5493	  5517
	  5540	  5581	  5587	  5646	  5652	  5692	  5698	  5737	  5743	  5782	  5788	  5827	  5833	  5872
	  5878	  5917	  5923	  5962	  5968	  6008	  6015	  6058	  6062	  6068	  6077	  6156	  6165	  6175
	  6216
XLIST	     6	   485	   523	   656	  1733	  2625	  3740	  6222
XWD	  5487	  5511	  5534