Google
 

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







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

	PRODUCT CODE:		AH-E327A-DD

	DIAGNOSTIC CODE:	DSKCB

	PRODUCT NAME:	 	DSKCBA0 DECSYSTEM 2020
				ADVANCED INSTRUCTION DIAGNOSTIC (2)

	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-DSKCB.TXT
							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-DSKCB.TXT
							PAGE 3                                                             SEQ 0004

1.0	ABSTRACT

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

	THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
	AND MICRO-CODE FLOATING MULTIPLY AND FLOATING DIVIDE FUNCTIONS.
	THE FLOATING MULTIPLY INSTRUCTION IS USED TO TEST THE
	EXPONENT CALCULATION FUNCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	CONSOLE PROCESSOR
	CONSOLE TELETYPE
	LOAD DEVICE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

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

	FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
							MAINDEC-10-DSKCB.TXT
							PAGE 4                                                             SEQ 0005

3.2	STARTING PROCEDURE

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

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

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

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

		    SPECIFY LH SWITCHES IN OCTAL-

		    SPECIFY RH SWITCHES IN OCTAL-

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

		    IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
		    ARE USED.  THIS IS ONLY VALID UPON RESTARTING
		    OF AN INTERRUPTED PROGRAM.
							MAINDEC-10-DSKCB.TXT
							PAGE 5                                                             SEQ 0006

3.3	OPERATING PROCEDURE

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

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

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

	C.  WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
	    THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
	    BELL TO BE RUNG WHEN A ERROR OCCURS.  IF THE MARGIN OBTAINED
	    IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
	    SETTINGS FOR DEBUGGING PURPOSES.

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

	E.  IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
	    AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT 
	    BUT HALT THE PROGRAM POINTING TO THE ERROR.
							MAINDEC-10-DSKCB.TXT
							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		NOT USED

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

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

	12   MODDVC		NOT USED

	13   INHCSH	0	ALLOW CACHE USE
			1	INHIBIT CACHE
							MAINDEC-10-DSKCB.TXT
							PAGE 7                                                             SEQ 0008

5.0	ERRORS

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

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

	IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED
	THE 'DING' SWITCH MAY BE SET.

6.0	ITERATION COUNTER

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

7.0	CYCLE TIME

	THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
	IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
	ETC.
							MAINDEC-10-DSKCB.TXT
							PAGE 8                                                             SEQ 0009

8.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
	    RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
	    QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
	    OF THE PROCESSOR.  CERTAIN PROCEDURES ARE USED WHEN THE
	    PROGRAM IS USED IN THIS MANNER.  THEY ARE:

	    1.	THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
		AND STARTS IT AT LOCATION 30002.

	    2.	MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
		CONTROL WORD.
			LH = 0, STAND-ALONE OPERATION
			    -1, RUNNING UNDER DIAGNOSTIC MONITOR

			RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
			     DIAGNOSTIC MONITOR CONTROL.

	B.  USER MODE

	    TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
	    DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
	    DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'.  THE PHYSICAL
	    DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
	    FORMAT SUCH AS LPT, DSK, DTA, ETC.  THE CORRESPONDING 
	    OUTPUT FILE IS 'DSKCB.LPT'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

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

8.0	OPERATIONAL VARIATIONS (CON'T)

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

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

	C.  SYSTEM EXERCISER

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

9.0	MISCELLANEOUS

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

10.0	LISTING
		HISTORY FILE FOR DSKCB                                                                                     SEQ 0011
		----------------------

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

CODE:		MAINDEC-10-DSKCB

TITLE:		DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (2)

VERSION:	0.1

DATE:		MARCH 1978

REASON:		ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
DSKCBT	MAC	29-Mar-78 11:24		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0012

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

    25					SUBTTL	DIAGNOSTIC PARAMETERS
    26
    27					;OPERATOR DEFINITIONS
    28
    29		001000	000000		OPDEF	ER1	[1B8]
    30		002000	000000		OPDEF	ER2	[2B8]
    31		003000	000000		OPDEF	ER3	[3B8]
    32		004000	000000		OPDEF	ER4	[4B8]
    33		005000	000000		OPDEF	ER5	[5B8]
    34		006000	000000		OPDEF	ER6	[6B8]
    35		007000	000000		OPDEF	ER7	[7B8]
    36		010000	000000		OPDEF	ER10	[10B8]
    37		011000	000000		OPDEF	ER11	[11B8]
    38		012000	000000		OPDEF	ER12	[12B8]
    39		013000	000000		OPDEF	ER13	[13B8]
    40
    41			033265		LUUO1==ERRMES
    42			033265		LUUO2==ERRMES
    43			033265		LUUO3==ERRMES
    44			033265		LUUO4==ERRMES
    45			033265		LUUO5==ERRMES
    46			033265		LUUO6==ERRMES
    47			033265		LUUO7==ERRMES
    48			033265		LUUO10==ERRMES
    49			033265		LUUO11==ERRMES
    50			033265		LUUO12==ERRMES
    51			033265		LUUO13==ERRMES
    52
    53					;SUBROUTINE ASSEMBLY DEFINITIONS
    54
    55			000100		DEBUG=100
    56			000001		EXCASB=1
    57			000001		USRASB=1
    58			000001		PGMEND=1
    59			000001		ERDIAG=1
    60			000001		EROLD=1
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 3
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0014

    61					;MACROS
    62
    63					DEFINE	SAVEAC	(A,B)<
    64						MOVEI	AC+2,.
    65						MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
    66						MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
    67						MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION>
    68
    69					;BEGIN ASSEMBLY PARAMETERS
    70
    71			030000		SADR1=BEGIN
    72			030076		SADR2=RESRT1
    73			030600		SADR3=RENTR1
    74			030007		SADR4=SRTDDT
    75			030061		SADR5=$BEND2
    76			030000		SADR6=BEGIN
    77		254200	030000		SADR7=HALT BEGIN
    78		254200	030000		SADR8=HALT BEGIN
    79		254200	030000		SADR9=HALT BEGIN
    80		254200	030000		SADR10=HALT BEGIN
    81		254200	030000		SADR11=HALT BEGIN
    82
    83			000000		PAREA1=0
    84			000000		PAREA2=0
    85		446353	434200		PAREA3=SIXBIT/DSKCB/
    86		546064	000000		PAREA4=SIXBIT/LPT/
    87			000000		PAREA5=0
    88			000000		PAREA6=0
    89
    90			000001		ITERAT=1
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 4
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0015

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

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

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

   209					DEFINE	DMVNF	(L,A,B,C,D,KSEF,KSUF,KLEF,KLUF)	<
   210					;**KS10**
   211					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   212					;OR CARRY FLAGS ON THE KS10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   213					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   214					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   215					
   216					;**KL10**
   217					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   218					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   219					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   220					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   221					
   222					Q'L'0:	JFCL	17,.+1		;CLEAR OVFL AND CRY0,1 FLAGS
   223						DMOVN	AC+1,[XWD A,B	;*DMOVN TEST
   224							      XWD C,D]
   225						JSP	AC,.+1		;READ FLAGS
   226					Q'L'1:	TLZ	AC,027777	;CLEAR EXTRA JUNK
   227						TLNE	AC,USERF	;IN USER MODE ?
   228						JRST	Q'L'4		;YES
   229						SKIPN	SM10		;KL10 ?
   230						JRST	Q'L'3		;YES
   231					;KS10 EXEC MODE
   232						CAME	AC,[KSEF,,Q'L'1]
   233						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   234					Q'L'2:	JUMPL	SAC,Q'L'0	;LOOP ON ERROR SWITCH
   235						JRST	Q'L'6
   236					;KL10 EXEC MODE
   237					Q'L'3:	CAME	AC,[KLEF,,Q'L'1]
   238						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   239						JRST	Q'L'2
   240					;KL10/KS10 USER MODE
   241					Q'L'4:	SKIPN	SM10		;KL10 ?
   242						JRST	Q'L'5		;YES
   243					;KS10 USER MODE
   244						CAME	AC,[KSUF,,Q'L'1]
   245						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   246						JRST	Q'L'2
   247					;KL10 USER MODE
   248					Q'L'5:	CAME	AC,[KLUF,,Q'L'1]
   249						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   250						JRST	Q'L'2
   251					
   252					Q'L'6:	JRST	.+1>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 8
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0019

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

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

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

   372					DEFINE	DMVNMF	(L,A,B,C,D,KSEF,KSUF,KLEF,KLUF)	<
   373					;**KS10**
   374					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   375					;OR CARRY FLAGS ON THE KS10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   376					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   377					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   378					
   379					;**KL10**
   380					;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
   381					;OR CARRY FLAGS ON THE KL10.  FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
   382					;THEN,DMOVN IS EXECUTED.  NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
   383					;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
   384					
   385					Q'L'0:	JFCL	17,.+1		;CLEAR OVFL AND CRY0,1 FLAGS
   386						DMOVE	AC,[XWD A,B
   387							    XWD C,D]	;SETUP INITIAL
   388						DMOVNM	AC,TSTWD	;*DMOVNM TEST
   389						JSP	AC,.+1		;READ FLAGS
   390					Q'L'1:	TLZ	AC,027777	;CLEAR EXTRA JUNK
   391						TLNE	AC,USERF	;IN USER MODE ?
   392						JRST	Q'L'4		;YES
   393						SKIPN	SM10		;KL10 ?
   394						JRST	Q'L'3		;YES
   395					;KS10 EXEC MODE
   396						CAME	AC,[KSEF,,Q'L'1]
   397						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   398					Q'L'2:	JUMPL	SAC,Q'L'0	;LOOP ON ERROR SWITCH
   399						JRST	Q'L'6
   400					;KL10 EXEC MODE
   401					Q'L'3:	CAME	AC,[KLEF,,Q'L'1]
   402						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   403						JRST	Q'L'2
   404					;KL10/KS10 USER MODE
   405					Q'L'4:	SKIPN	SM10		;KL10 ?
   406						JRST	Q'L'5		;YES
   407					;KS10 USER MODE
   408						CAME	AC,[KSUF,,Q'L'1]
   409						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   410						JRST	Q'L'2
   411					;KL10 USER MODE
   412					Q'L'5:	CAME	AC,[KLUF,,Q'L'1]
   413						ER13	AC,L'1		;FAIL IF FLAGS NOT SET
   414						JRST	Q'L'2
   415					
   416					Q'L'6:	JRST	.+1>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 12
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0023

   417					DEFINE	DFA	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   418					R'T'00:	DMOVE	AC,[A,,B
   419							C,,D]
   420						DFAD	AC,[E,,F
   421							G,,H]
   422						CAME	AC,[I,,M]
   423						ER3	AC,T'01
   424						CAME	AC+1,[K,,L]
   425						ER4	AC+1,T'01
   426						JUMPL	AC+4,R'T'00	;LOOP ON ERROR SWITCH>
   427
   428					DEFINE	DFS	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   429					R'T'00:	DMOVE	AC,[A,,B
   430							C,,D]
   431						DFSB	AC,[E,,F
   432							G,,H]
   433						CAME	AC,[I,,M]
   434						ER3	AC,T'01
   435						CAME	AC+1,[K,,L]
   436						ER4	AC+1,T'01
   437						JUMPL	AC+4,R'T'00	;LOOP ON ERROR SWITCH>
   438
   439					DEFINE	DFM	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   440					R'T'00:	DMOVE	AC,[A,,B
   441							C,,D]
   442						DFMP	AC,[E,,F
   443							G,,H]
   444						CAME	AC,[I,,M]
   445						ER3	AC,T'01
   446						CAME	AC+1,[K,,L]
   447						ER4	AC+1,T'01
   448						JUMPL	AC+4,R'T'00	;LOOP ON ERROR SWITCH>
   449
   450					DEFINE	DFD	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   451					R'T'00:	DMOVE	AC,[A,,B
   452							C,,D]
   453						DFDV	AC,[E,,F
   454							G,,H]
   455						CAME	AC,[I,,M]
   456						ER3	AC,T'01
   457						CAME	AC+1,[K,,L]
   458						ER4	AC+1,T'01
   459						JUMPL	AC+4,R'T'00	;LOOP ON ERROR SWITCH>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 13
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0024

   460					DEFINE	DFARP	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   461						DMOVE	AC,[A,,B
   462							C,,D]
   463						DFAD	AC,[E,,F
   464							G,,H]
   465						CAME	AC,[I,,M]
   466						ER3	AC,T
   467						CAME	AC+1,[K,,L]
   468						ER4	AC+1,T
   469						JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH>
   470
   471					DEFINE	SDFA	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   472					S'T'00:	DMOVE	AC,[A,,B
   473							C,,D]
   474						DFAD	AC,[E,,F
   475							G,,H]
   476						CAME	AC,[I,,M]
   477						ER3	AC,T'01
   478						CAME	AC+1,[K,,L]
   479						ER4	AC+1,T'01
   480						JUMPL	AC+4,S'T'00	;LOOP ON ERROR SWITCH>
   481
   482					DEFINE	SDFS	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   483					S'T'00:	DMOVE	AC,[A,,B
   484							C,,D]
   485						DFSB	AC,[E,,F
   486							G,,H]
   487						CAME	AC,[I,,M]
   488						ER3	AC,T'01
   489						CAME	AC+1,[K,,L]
   490						ER4	AC+1,T'01
   491						JUMPL	AC+4,S'T'00	;LOOP ON ERROR SWITCH>
   492
   493					DEFINE	SDFM	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   494					S'T'00:	DMOVE	AC,[A,,B
   495							C,,D]
   496						DFMP	AC,[E,,F
   497							G,,H]
   498						CAME	AC,[I,,M]
   499						ER3	AC,T'01
   500						CAME	AC+1,[K,,L]
   501						ER4	AC+1,T'01
   502						JUMPL	AC+4,S'T'00	;LOOP ON ERROR SWITCH>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 14
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0025

   503					DEFINE	SDFMKL	(T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4)	<
   504					S'T'00:	DMOVE	AC,[A,,B
   505							C,,D]
   506						DFMP	AC,[E,,F
   507							G,,H]
   508						SKIPE	KLFLG
   509						JRST	S'T'05
   510						CAME	AC,[I,,M]
   511						ER3	AC,T'01
   512						CAME	AC+1,[K,,L]
   513						ER4	AC+1,T'01
   514					S'T'06:	JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH
   515						JRST	S'T'07
   516					
   517					S'T'05:	CAME	AC,[KL1,,KL2]
   518						ER3	AC,T'01
   519						CAME	AC+1,[KL3,,KL4]
   520						ER4	AC+1,T'01
   521						JRST	S'T'06
   522					
   523					S'T'07:	JRST	.+1	>
   524
   525					DEFINE	SDFD	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   526					S'T'00:	DMOVE	AC,[A,,B
   527							C,,D]
   528						DFDV	AC,[E,,F
   529							G,,H]
   530						CAME	AC,[I,,M]
   531						ER3	AC,T'01
   532						CAME	AC+1,[K,,L]
   533						ER4	AC+1,T'01
   534						JUMPL	AC+4,S'T'00	;LOOP ON ERROR SWITCH>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 15
DSKCBT	MAC	29-Mar-78 11:24		DIAGNOSTIC PARAMETERS                                                              SEQ 0026

   535					DEFINE	SDFDKL	(T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4)	<
   536					S'T'00:	DMOVE	AC,[A,,B
   537							C,,D]
   538						DFDV	AC,[E,,F
   539							G,,H]
   540						SKIPN	SM10
   541						JRST	S'T'05
   542						CAME	AC,[I,,M]
   543						ER3	AC,T'01
   544						CAME	AC+1,[K,,L]
   545						ER4	AC+1,T'01
   546					S'T'06:	JUMPL	AC+4,S'T'00		;LOOP ON ERROR SWITCH
   547						JRST	S'T'07
   548					
   549					S'T'05:	CAME	AC,[KL1,,KL2]
   550						ER3	AC,T'01
   551						CAME	AC+1,[KL3,,KL4]
   552						ER4	AC+1,T'01
   553						JRST	S'T'06
   554					
   555					S'T'07:	JRST	.+1	>
   556
   557					DEFINE	SDFARP	(T,A,B,C,D,E,F,G,H,I,M,K,L)	<
   558						DMOVE	AC,[A,,B
   559							C,,D]
   560						DFAD	AC,[E,,F
   561							G,,H]
   562						CAME	AC,[I,,M]
   563						ER3	AC,T
   564						CAME	AC+1,[K,,L]
   565						ER4	AC+1,T
   566						JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH>
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
PARAM	KSM	28-Mar-78 11:27		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0027

   567					SUBTTL	CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
   568
   569					DEFINE	S,<;*********************************************************************>
   570
   571					S^;*********************************************************************^
   572					;*DATA SWITCHES
   573					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   574					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   575					S^;*********************************************************************^
   576
   577			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   578			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   579			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   580
   581			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   582			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   583			010000		DING==	010000			;RING BELL ON ERROR
   584
   585			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   586			002000		ERSTOP==002000			;HALT ON TEST ERROR
   587			001000		PALERS==001000			;PRINT ALL ERRORS
   588
   589			000400		RELIAB==000400			;RELIABILITY MODE
   590			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   591			000100		INHPAG==000100			;INHIBIT PAGING
   592
   593			000040		MODDVC==000040			;MODIFY DEVICE CODE
   594			000020		INHCSH==000020			;INHIBIT CACHE
   595			000010		OPRSEL==000010			;OPERATOR SELECTION
   596
   597			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   598
   599									;SWITCH 16 RESERVED
   600
   601									;SWITCH 17 RESERVED !!!
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 2
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0028

   602					SUBTTL	PROGRAM/SUBROUTINE PARAMETERS
   603
   604					S^;*********************************************************************^
   605					;*SPECIAL SUBPROGRAM LINKAGES
   606					S^;*********************************************************************^
   607
   608			027772		FSELNK=	27772	;FILE SELECT LINK
   609			027773		FRDLNK=	27773	;FILE READ LINK
   610			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   611			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   612			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   613			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   614
   615					S^;*********************************************************************^
   616					;*SPECIAL SUBROUTINE FATAL HALTS
   617					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   618					S^;*********************************************************************^
   619
   620					;ADDRESS   TAG	REASON
   621					;---------------------
   622
   623					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   624					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   625					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   626					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   627					; 1014  SMBER	;KS-10 INTERRUPT WITHOUT DOORBELL
   628					; 1015  SMCER	;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
   629					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   630					; 1017  EOPERR	;END OF PROGRAM ERROR
   631					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   632
   633					S^;*********************************************************************^
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 3
PARAM	KSM	28-Mar-78 11:27		PROGRAM/SUBROUTINE PARAMETERS                                                      SEQ 0029

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

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

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

   765					;*END OF PASS/PROGRAM UUOS
   766
   767					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   768					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   769
   770		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   771		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   772
   773					;*MEMORY MANAGEMENT UUO'S
   774					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   775					;*ADDRESS CONVERSION, ETC...
   776
   777		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   778		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   779		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   780		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   781		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   782		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   783		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   784
   785					;*DEVICE CODE MODIFICATION UUO
   786					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   787					;*IOT'S TO A DIFFERENT DEVICE CODE.
   788
   789		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   790		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   791
   792			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   793			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   794
   795					;*"DIAMON" FILE SELECTION AND READ UUOS
   796
   797		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   798		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   799		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   800		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   801
   802						XLIST
   803						LIST
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0033

   804					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
   805
   806	030000					LOC	30000
   807
   808					S^;*********************************************************************^
   809					;*PROGRAM STARTING ADDRESSES
   810					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   811					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   812					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   813					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   814					S^;*********************************************************************^
   815
   816	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   817	030001	254 00 0 00 030617 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   818
   819	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   820
   821	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   822
   823	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   824
   825	030005	254 00 0 00 030076 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   826
   827	030006	254 00 0 00 030600 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   828
   829	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   830	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   831
   832	030010	254 00 0 00 030622 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   833	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   834	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   835
   836	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   837	030014	254200	030000		START2:	SADR8			; "
   838	030015	254200	030000		START3:	SADR9			; "
   839	030016	254200	030000		START4:	SADR10			; "
   840	030017	254200	030000		START5:	SADR11			; "
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 2
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0034

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

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

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

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

  1033					S^;*********************************************************************^
  1034					;*PUSHDOWN LIST CONTROL INFORMATION
  1035					S^;*********************************************************************^
  1036
  1037	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
  1038	030304				PLISTS:	BLOCK	200
  1039	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
  1040
  1041					S^;*********************************************************************^
  1042					;*POWER LINE CLOCK FREQUENCY FLAG
  1043					S^;*********************************************************************^
  1044
  1045	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
  1046
  1047					S^;*********************************************************************^
  1048					;*KL10 CACHE CONTROL FLAGS
  1049					S^;*********************************************************************^
  1050
  1051	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
  1052	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
  1053
  1054					S^;*********************************************************************^
  1055					;*NUMBER INPUT DIGIT FLAG
  1056					S^;*********************************************************************^
  1057
  1058	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
  1059
  1060					S^;*********************************************************************^
  1061					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
  1062					S^;*********************************************************************^
  1063
  1064	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
  1065
  1066					S^;*********************************************************************^
  1067					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
  1068					S^;*********************************************************************^
  1069
  1070	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
  1071	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
  1072	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
  1073
  1074					S^;*********************************************************************^
  1075					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
  1076					S^;*********************************************************************^
  1077
  1078	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 7
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0039

  1079					S^;*********************************************************************^
  1080					;*USER MODE MONITOR TYPE FLAG
  1081					S^;*********************************************************************^
  1082
  1083	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
  1084
  1085					S^;*********************************************************************^
  1086					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
  1087					S^;*********************************************************************^
  1088
  1089	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
  1090
  1091					S^;*********************************************************************^
  1092					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
  1093					S^;*********************************************************************^
  1094
  1095	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
  1096
  1097					S^;*********************************************************************^
  1098					;*"SWITCH" CALL USAGE CONTROL
  1099					S^;*********************************************************************^
  1100
  1101	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
  1102
  1103					S^;*********************************************************************^
  1104					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
  1105					S^;*********************************************************************^
  1106
  1107	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
  1108	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
  1109
  1110					S^;*********************************************************************^
  1111					;*SM10 (KS-10) PROCESSOR TYPE FLAG
  1112					S^;*********************************************************************^
  1113
  1114	030524	000000	000000		SM10:	0	;IF -1 THIS IS AN KS-10
  1115
  1116					S^;*********************************************************************^
  1117					;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
  1118					S^;*********************************************************************^
  1119
  1120	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
  1121
  1122					S^;*********************************************************************^
  1123					;*SPECIAL FUTURE EXPANSION ROOM
  1124					S^;*********************************************************************^
  1125
  1126					S^;*********************************************************************^
  1127					;*END OF FIXED STORAGE
  1128					S^;*********************************************************************^
  1129
  1130	030577					LOC	30577
  1131	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
DSKCB1	MAC	29-Mar-78 11:24		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0040

  1132	030600	037 05 0 00 000002 	RENTR1:	DROPDV			;CLOSE LOGICAL OUTPUT FILE
  1133	030601	040 00 0 00 033453 		CALL	[SIXBIT .EXIT.]
  1134
  1135	030602				PGMNAM:	ASCIZ?
  1136	030602	015 012 104 105 103 	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2 (DSKCB)
  1137	030603	123 131 123 124 105 
  1138	030604	115 040 062 060 062 
  1139	030605	060 040 101 104 126 
  1140	030606	101 116 103 105 104 
  1141	030607	040 111 116 123 124 
  1142	030610	122 125 103 124 111 
  1143	030611	117 116 040 104 111 
  1144	030612	101 107 116 117 123 
  1145	030613	124 111 103 040 043 
  1146	030614	062 040 050 104 123 
  1147	030615	113 103 102 051 015 
  1148	030616	012 000 000 000 000 	?
  1149					;INITIALIZE SUBROUTINES
  1150
  1151	030617	265 00 0 00 030011 	START:	PGMINT
  1152	030620	200 00 0 00 033454 		MOVE	[ASCIZ/CB/]
  1153	030621	202 00 0 00 033374 		MOVEM	TLET		;INITIALIZE TEST LETTER
  1154
  1155	030622	254 00 0 00 030623 	STARTA:	JRST	.+1		;GO PERFORM DIAGNOSTIC
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 2
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0041

  1156					SUBTTL	DIAGNOSTIC SECTION, PART TWO
  1157
  1158					;	GENERAL DESCRIPTION
  1159					;PART   I-FMP AND EXPONENT CALCULATE
  1160					;PART   II-GEN TEST-FMP,FDV
  1161					;PART	III - FMP AND EXPONENT CALCULATE
  1162						LALL
  1163					;TEST FMP
  1164					;TEST APPARENT ABILITY TO FCE,
  1165					;SCA AND DECODE
  1166					;FCE FAILING RESULTS IN -NR ALL ZERO
  1167					;SAC FAILS - C(AC)=ORIGINAL
  1168
  1169			000014		CB00:	AC=14
  1170						SAVEAC	(1,1)^
  1171	030623	201 16 0 00 030623 		MOVEI	AC+2,.
  1172	030624	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1173	030625	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1174	030626	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1175
  1176									;TEST FCE
  1177	030627	205 14 0 00 200400 	P100:	MOVSI	AC,200400	;SETUP AC
  1178	030630	400 13 0 00 000000 		SETZ	AC-1,		;SETUP BR
  1179	030631	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1180	030632	332 00 0 00 000014 		SKIPE	AC		;TEST PROD=0
  1181	030633	003 14 0 00 000101 		ER3	AC,101		;FCE FAILED
  1182	030634	321 16 0 00 030627 		JUMPL	AC+2,P100	;LOOP ON ERROR SWITCH
  1183
  1184									;TEST SAC
  1185	030635	205 14 0 00 200400 	P200:	MOVSI	AC,200400	;SETUP AC
  1186	030636	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  1187	030637	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1188	030640	316 14 0 00 000013 		CAMN	AC,AC-1		;TEST C(AC)=ORIG
  1189	030641	003 14 0 00 000201 		ER3	AC,201		;SAC FAILED
  1190	030642	321 16 0 00 030635 		JUMPL	AC+2,P200	;LOOP ON ERROR SWITCH
  1191
  1192					;TEST FMP-EXP CAL
  1193					;AR=000400000000
  1194					;BR=000400000000
  1195					;CORR PROD=177400000000 AND OVERFLOW
  1196					;ERR PROD=177400000000 AND NOT OVERFLOW
  1197
  1198			000014			AC=14
  1199						SAVEAC	(1,1)^
  1200	030643	201 16 0 00 030643 		MOVEI	AC+2,.
  1201	030644	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1202	030645	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1203	030646	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1204
  1205	030647	255 10 0 00 030650 	P300:	JFCL	10,.+1		;CLEAR AROV, EXEC NEXT INST
  1206	030650	205 12 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1207	030651	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1208	030652	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1209	030653	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1210	030654	265 11 0 00 030655 		JSP	AC-3,.+1	;SAVE FLAGS
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 2-1
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0042

  1211	030655	255 10 0 00 030657 		JFCL	10,.+2		;TEST FOR OVERFLOW
  1212	030656	013 11 0 00 000301 		ER13	AC-3,301	;AROV FLAG WAS NOT SET
  1213	030657	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD=177400000000
  1214	030660	003 14 0 00 000301 		ER3	AC,301
  1215	030661	321 16 0 00 030647 		JUMPL	AC+2,P300	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 3
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0043

  1216					;TEST FMP - EXP CAL
  1217					;AR=000400000000
  1218					;BR=000400000000
  1219					;CORR PROD=177400000000 AND UNDERFLOW
  1220					;ERR PROD=377400000000 AND UNDERFLOW
  1221
  1222			000013			AC=13
  1223						SAVEAC	(1,1)^
  1224	030662	201 15 0 00 030662 		MOVEI	AC+2,.
  1225	030663	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1226	030664	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1227	030665	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1228
  1229	030666	254 02 1 00 033455 	P400:	JRST	2,@[.+1]	;CLEAR AR FXU FLAG
  1230	030667	205 11 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1231	030670	205 13 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1232	030671	205 12 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1233	030672	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC) X C(E)
  1234	030673	265 10 0 00 030674 		JSP	AC-3,.+1	;STORE FLAGS AND PC
  1235	030674	607 10 0 00 000100 		TLNN	AC-3,FXU	;EXAMINE FXU FLAG
  1236	030675	013 10 0 00 000401 		ER13	AC-3,401	;FXU FLAG WAS NOT SET
  1237	030676	312 13 0 00 000011 		CAME	AC,AC-2		;TEST PROD=177400000000
  1238	030677	003 13 0 00 000401 		ER3	AC,401
  1239	030700	255 10 0 00 030702 		JOV	.+2		;EXAMINE AROV FLAG
  1240	030701	013 10 0 00 000401 		ER13	AC-3,401	;AROV WAS NOT SET
  1241	030702	255 01 0 00 030704 		JFOV	.+2		;EXAMINE FOV FLAG
  1242	030703	013 10 0 00 000401 		ER13	AC-3,401	;FOV WAS NOT SET
  1243	030704	321 15 0 00 030666 		JUMPL	AC+2,P400	;LOOP ON ERROR SWITCH
  1244
  1245					;TEST FMP
  1246					;AR=000400000000
  1247					;BR=000400000000
  1248					;CORR PROD=177400000000 AND OVERFLOW
  1249					;ERR PROD=600400000000 AND OVERFLOW
  1250
  1251			000012			AC=12
  1252						SAVEAC	(1,1)^
  1253	030705	201 14 0 00 030705 		MOVEI	AC+2,.
  1254	030706	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1255	030707	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1256	030710	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1257
  1258	030711	255 10 0 00 030712 	P500:	JFCL	10,.+1		;CLEAR AROV, EXEC NEXT INST
  1259	030712	205 10 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1260	030713	205 12 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1261	030714	205 11 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1262	030715	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC) X C(E)
  1263	030716	265 07 0 00 030717 		JSP	AC-3,.+1	;SAVE FLAGS
  1264	030717	255 10 0 00 030721 		JFCL	10,.+2		;TEST AROV FLAG
  1265	030720	013 07 0 00 000501 		ER13	AC-3,501	;NOT OVERFLOW
  1266	030721	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD=177400000000
  1267	030722	003 12 0 00 000501 		ER3	AC,501
  1268	030723	321 14 0 00 030711 		JUMPL	AC+2,P500	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 4
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0044

  1269					;TEST FMP
  1270					;AR=200400000000
  1271					;BR=000400000000
  1272					;CORR PROD=377400000000 AND OVERFLOW
  1273					;ERR PROD=1774000000000 AND NOT OVERFLOW
  1274
  1275			000005			AC=5
  1276						SAVEAC (1,1)^
  1277	030724	201 07 0 00 030724 		MOVEI	AC+2,.
  1278	030725	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1279	030726	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1280	030727	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1281
  1282	030730	255 10 0 00 030731 	P600:	JFCL	10,.+1		;CLR AROV,EXEC NEXT INST
  1283	030731	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1284	030732	205 05 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1285	030733	205 04 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1286	030734	160 05 0 00 000004 		FMP	AC,AC-1		;C(AC) X C(E)
  1287	030735	265 02 0 00 030736 		JSP	AC-3,.+1	;SAVE FLAGS
  1288	030736	255 10 0 00 030740 		JFCL	10,.+2		;TEST AROV FLAG
  1289	030737	013 02 0 00 000601 		ER13	AC-3,601	;AROV NOT SET
  1290	030740	312 05 0 00 000003 		CAME	AC,AC-2		;TEST PROD=377400000000
  1291	030741	003 05 0 00 000601 		ER3	AC,601
  1292	030742	321 07 0 00 030730 		JUMPL	AC+2,P600	;LOOP ON ERROR SWITCH
  1293
  1294					;TEST FMP
  1295					;AR=000400000000
  1296					;BR=000400000000
  1297					;CORRECT PROD=177400000000 AND OVERFLOW
  1298					;FAILURE OF EITHER RESULTS IN AN
  1299					;ERROR PROD=144400000000 AND OVERFLOW
  1300
  1301			000011			AC=11
  1302						SAVEAC	(1,1)^
  1303	030743	201 13 0 00 030743 		MOVEI	AC+2,.
  1304	030744	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1305	030745	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1306	030746	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1307
  1308	030747	205 07 0 00 177400 	P700:	MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1309	030750	205 11 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1310	030751	205 10 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1311	030752	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC) X C(E)
  1312	030753	265 06 0 00 030754 		JSP	AC-3,.+1	;SAVE FLAGS
  1313	030754	255 10 0 00 030756 		JOV	.+2		;EXAMINE AROV FLAG
  1314	030755	013 06 0 00 000701 		ER13	AC-3,701	;AROV NOT SET
  1315	030756	255 01 0 00 030760 		JFOV	.+2		;EXAMINE FOV FLAG
  1316	030757	013 06 0 00 000701 		ER13	AC-3,701	;FOV NOT SET
  1317	030760	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD=144400000000
  1318	030761	003 11 0 00 000701 		ER3	AC,701
  1319	030762	321 13 0 00 030747 		JUMPL	AC+2,P700	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 5
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0045

  1320					;TEST FMP
  1321					;AR=000400000000
  1322					;BR=000400000000
  1323					;FAILURE OF A BIT TO SET RESULTS
  1324					;IN A PROD=176.4, 173.4, 137.4,
  1325					;165.4,153.4
  1326					;CORRECT PROD=177400000000 AND OVERFLOW
  1327					;NOTE-FAILURE TO INH FP EXP ADD LEVEL
  1328					;(TEST NOT FP EXP ADD
  1329					;MAY LOOK LIKE BIT 8 FAILING TO SET
  1330
  1331			000010			AC=10
  1332						SAVEAC	(1,1)^
  1333	030763	201 12 0 00 030763 		MOVEI	AC+2,.
  1334	030764	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1335	030765	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1336	030766	202 12 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1337
  1338			001000		SN=1000
  1339			201400			ZZ=201400
  1340
  1341					P1000:	REPEAT	^D2,		;TEST SC8,6 SET
  1342					<SN=SN+1
  1343						ZZ=ZZ-3000
  1344						MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1345						MOVSI	AC,400		;SETUP AC
  1346						MOVSI	AC-1,400	;SETUP BR
  1347						FMP	AC,AC-1		;C(AC) X C(E)
  1348						CAMN	AC,AC-2		;TEST PROD
  1349						ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1350						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1351					>
  1352			001001		SN=SN+1
  1353			176400			ZZ=ZZ-3000
  1354	030767	205 06 0 00 176400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1355	030770	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1356	030771	205 07 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1357	030772	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  1358	030773	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD
  1359	030774	003 10 0 00 001001 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1360	030775	321 12 0 00 030767 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1361
  1362			001002		SN=SN+1
  1363			173400			ZZ=ZZ-3000
  1364	030776	205 06 0 00 173400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1365	030777	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1366	031000	205 07 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1367	031001	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  1368	031002	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD
  1369	031003	003 10 0 00 001002 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1370	031004	321 12 0 00 030776 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1371
  1372					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 5-1
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0046

  1373			001100		SN=1100
  1374			011400			ZZ=11400
  1375
  1376					P1100:	REPEAT	^D2,		;TEST SC3, 2 SET
  1377					<SN=SN+1
  1378						ZZ=ZZ+26000
  1379						MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1380						MOVSI	AC,400		;SETUP AC
  1381						MOVSI	AC-1,400	;SETUP BR
  1382						FMP	AC,AC-1		;C(AC) X C(E)
  1383						CAMN	AC,AC-2		;TEST PROD
  1384						ER3	AC,SN		;BIT UNDER TEST FAILED
  1385						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1386					>
  1387			001101		SN=SN+1
  1388			037400			ZZ=ZZ+26000
  1389	031005	205 06 0 00 037400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1390	031006	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1391	031007	205 07 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1392	031010	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  1393	031011	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD
  1394	031012	003 10 0 00 001101 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1395	031013	321 12 0 00 031005 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1396
  1397			001102		SN=SN+1
  1398			065400			ZZ=ZZ+26000
  1399	031014	205 06 0 00 065400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1400	031015	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1401	031016	205 07 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1402	031017	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  1403	031020	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD
  1404	031021	003 10 0 00 001102 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1405	031022	321 12 0 00 031014 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1406
  1407
  1408									;TEST SC1 SET
  1409	031023	205 06 0 00 153400 	P1200:	MOVSI	AC-2,153400	;SETUP FOR COMPARISON
  1410	031024	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1411	031025	205 07 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1412	031026	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) + C(E)
  1413	031027	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD
  1414	031030	003 10 0 00 001201 		ER3	AC,1201		;SC1 FAILED TO SET
  1415	031031	321 12 0 00 031023 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 6
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0047

  1416					;TEST FMP
  1417					;AR=000400000000
  1418					;BR=000400000000
  1419					;CORR PROD=177400000000 AND OVERFLOW
  1420					;FAILURE RESULTS IN LOSS OF MULTIPLICAND
  1421					;AND AN NR ALL ZERO COND
  1422
  1423			000007			AC=7
  1424						SAVEAC	(1,1)^
  1425	031032	201 11 0 00 031032 		MOVEI	AC+2,.
  1426	031033	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1427	031034	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1428	031035	202 11 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1429
  1430	031036	205 07 0 00 000400 	P1300:	MOVSI	AC,400		;SETUP AC
  1431	031037	205 06 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1432	031040	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC) X C(E)
  1433	031041	336 00 0 00 000007 		SKIPN	AC		;TEST PROD=0
  1434	031042	003 07 0 00 001301 		ER3	AC,1301
  1435	031043	321 11 0 00 031036 		JUMPL	AC+2,P1300	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 7
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0048

  1436					;TEST FMP - EXP CAL
  1437					;AR=200400000000
  1438					;BR=000400000000
  1439					;CORR PROD=377400000000 AND OVERFLOW
  1440					;ERR PROD=177400000000 AND OVERFLOW
  1441
  1442			000006			AC=6
  1443						SAVEAC	(1,1)^
  1444	031044	201 10 0 00 031044 		MOVEI	AC+2,.
  1445	031045	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1446	031046	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1447	031047	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1448
  1449	031050	255 10 0 00 031051 	P1400:	JFCL	10,.+1		;CLEAR AROV, EXEC NEXT INST
  1450	031051	205 04 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1451	031052	205 06 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1452	031053	205 05 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1453	031054	160 06 0 00 000005 		FMP	AC,AC-1		;C(AC) X C(E)
  1454	031055	265 03 0 00 031056 		JSP	AC-3,.+1	;SAVE FLAGS
  1455	031056	255 10 0 00 031060 		JFCL	10,.+2		;TEST AROV FLAG
  1456	031057	013 03 0 00 001401 		ER13	AC-3,1401	;NOT OVERFLOW
  1457	031060	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST PROD=177400000000
  1458	031061	003 06 0 00 001401 		ER3	AC,1401
  1459	031062	321 10 0 00 031050 		JUMPL	AC+2,P1400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 8
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0049

  1460					;TEST FMP - EXP CAL
  1461					;TEST ABILITY TO SET INDIVIDUAL BITS
  1462					;OF FE AND SC
  1463					;AR=177400000000
  1464					;BR=000400000000
  1465					;CORR PROD=376400000000 AND UNDERFLOW
  1466					;ERR PRODS=375.4, 374.4, 372.4,
  1467					;366.4, 356.4, 336.4, 276.4, 176.4, 376.4 (CORR PROD, NOT UNDERFLOW)
  1468
  1469			000014			AC=14
  1470						SAVEAC	(1,1)^
  1471	031063	201 16 0 00 031063 		MOVEI	AC+2,.
  1472	031064	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1473	031065	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1474	031066	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1475
  1476			001500		SN=1500
  1477			376400			ZZ=376400
  1478
  1479					P1500:	REPEAT	^D2,		;TEST BITS 8, 7 SET
  1480					<SN=SN+1
  1481						ZZ=ZZ-1000
  1482						MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1483						MOVSI	AC,177400	;SETUP AC
  1484						MOVSI	AC-1,400	;SETUP BR
  1485						FMP	AC,AC-1		;C(AC) X C(E)
  1486						CAMN	AC,AC-2		;TEST PROD
  1487						ER3	AC,SN		;BIT UNDER TEST FAILED
  1488						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1489					>
  1490			001501		SN=SN+1
  1491			375400			ZZ=ZZ-1000
  1492	031067	205 12 0 00 375400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1493	031070	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1494	031071	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1495	031072	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1496	031073	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1497	031074	003 14 0 00 001501 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1498	031075	321 16 0 00 031067 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1499
  1500			001502		SN=SN+1
  1501			374400			ZZ=ZZ-1000
  1502	031076	205 12 0 00 374400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1503	031077	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1504	031100	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1505	031101	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1506	031102	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1507	031103	003 14 0 00 001502 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1508	031104	321 16 0 00 031076 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1509
  1510					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 8-1
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0050

  1511									;TEST BIT 6 SET
  1512	031105	205 12 0 00 372400 	P1600:	MOVSI	AC-2,372400	;SETUP FOR COMPARISON
  1513	031106	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1514	031107	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1515	031110	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1516	031111	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1517	031112	003 14 0 00 001601 		ER3	AC,1601		;FE BIT 6 FAILED TO SET
  1518	031113	321 16 0 00 031105 		JUMPL	AC+2,P1600	;LOOP ON ERROR SWITCH
  1519
  1520			001700		SN=1700
  1521			367400			ZZ=367400
  1522
  1523					P1700:	REPEAT	^D2,		;TEST BITS 5-4 SET
  1524					<SN=SN+1
  1525						ZZ=ZZ-1000
  1526						MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1527						MOVSI	AC,177400	;SETUP AC
  1528						MOVSI	AC-1,400	;SETUP BR
  1529						FMP	AC,AC-1		;C(AC) X C(E)
  1530						CAMN	AC,AC-2		;TEST PROD
  1531						ER3	AC,SN		;BIT UNDER TEST FAILED
  1532						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1533					>
  1534			001701		SN=SN+1
  1535			366400			ZZ=ZZ-1000
  1536	031114	205 12 0 00 366400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1537	031115	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1538	031116	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1539	031117	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1540	031120	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1541	031121	003 14 0 00 001701 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1542	031122	321 16 0 00 031114 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1543
  1544			001702		SN=SN+1
  1545			365400			ZZ=ZZ-1000
  1546	031123	205 12 0 00 365400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1547	031124	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1548	031125	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1549	031126	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1550	031127	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1551	031130	003 14 0 00 001702 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1552	031131	321 16 0 00 031123 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1553
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 9
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0051

  1554			002000		SN=2000
  1555			376400			ZZ=376400
  1556
  1557					P2000:	REPEAT	^D2,		;TEST BITS 3,2 SET
  1558					<SN=SN+1
  1559						ZZ=ZZ-40000
  1560						MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1561						MOVSI	AC,177400	;SETUP AC
  1562						MOVSI	AC-1,400	;SETUP BR
  1563						FMP	AC,AC-1		;C(AC) X C(E)
  1564						CAMN	AC,AC-2		;TEST PROD
  1565						ER3	AC,SN		;BIT UNDER TEST FAILED
  1566						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1567					>
  1568			002001		SN=SN+1
  1569			336400			ZZ=ZZ-40000
  1570	031132	205 12 0 00 336400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1571	031133	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1572	031134	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1573	031135	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1574	031136	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1575	031137	003 14 0 00 002001 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1576	031140	321 16 0 00 031132 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1577
  1578			002002		SN=SN+1
  1579			276400			ZZ=ZZ-40000
  1580	031141	205 12 0 00 276400 		MOVSI	AC-2,ZZ		;SETUP FOR COMPARISON
  1581	031142	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1582	031143	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1583	031144	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1584	031145	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1585	031146	003 14 0 00 002002 		ER3	AC,SN		;BIT UNDER TEST FAILED
  1586	031147	321 16 0 00 031141 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1587
  1588
  1589									;TEST BIT 1 SET
  1590	031150	205 12 0 00 176400 	P2100:	MOVSI	AC-2,176400	;SETUP FOR COMPARISON
  1591	031151	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1592	031152	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1593	031153	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1594	031154	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD
  1595	031155	003 14 0 00 002101 		ER3	AC,2101		;BIT UNDER TEST FAILED
  1596	031156	321 16 0 00 031150 		JUMPL	AC+2,P2100	;LOOP ON ERROR SWITCH
  1597					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 9-1
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0052

  1598
  1599									;TEST BIT 0 SET
  1600	031157	254 02 1 00 033456 	P2200:	JRST	2,@[.+1]	;CLEAR ARFXU FLAG
  1601	031160	205 12 0 00 376400 		MOVSI	AC-2,376400	;SETUP FOR COMPARISON
  1602	031161	205 14 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1603	031162	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1604	031163	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1605	031164	265 11 0 00 031165 		JSP	AC-3,.+1	;STORE FLAGS AND PC
  1606	031165	607 11 0 00 000100 		TLNN	AC-3,FXU	;EXAMINE FXU FLAG
  1607	031166	013 11 0 00 002201 		ER13	AC-3,2201	;FXU NOT SET
  1608	031167	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD=376400000000
  1609	031170	003 14 0 00 002201 		ER3	AC,2201		;BIT 0 FAILED TO SET
  1610	031171	254 02 0 11 000005 		JRST	2,5(AC-3)	;CLEAR AROV, ARFOV FLAGS
  1611	031172	321 16 0 00 031157 		JUMPL	AC+2,P2200	;LOOP ON ERROR SWITCH
  1612
  1613					;TEST FMP - EXP CAL
  1614					;AR=377400000000
  1615					;BR=000400000000
  1616					;CORR PROD=176400000000
  1617					;ERR PROD=142400000000
  1618
  1619			000014			AC=14
  1620						SAVEAC	(1,1)^
  1621	031173	201 16 0 00 031173 		MOVEI	AC+2,.
  1622	031174	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1623	031175	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1624	031176	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1625
  1626	031177	205 12 0 00 142400 	P2300:	MOVSI	AC-2,142400	;SETUP FOR COMPARISON
  1627	031200	205 14 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  1628	031201	205 13 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1629	031202	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1630	031203	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD=142400000000
  1631	031204	003 14 0 00 002301 		ER3	AC,2301
  1632	031205	321 16 0 00 031177 		JUMPL	AC+2,P2300	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 10
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0053

  1633					;TEST FMP - EXP CAL
  1634					;TEST ABILITY TO CLEAR SC BITS 7, 5, 4
  1635					;AR=377400000000
  1636					;BR=000400000000
  1637					;CORR PROD=176400000000
  1638					;ERR PRODS=112.4, 120.4, 130.4
  1639
  1640			000013			AC=13
  1641						SAVEAC	(1,1)^
  1642	031206	201 15 0 00 031206 		MOVEI	AC+2,.
  1643	031207	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1644	031210	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1645	031211	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1646
  1647									;TEST SC7 CLEARING
  1648	031212	205 11 0 00 112400 	P2400:	MOVSI	AC-2,112400	;SETUP FOR COMPARISON
  1649	031213	205 13 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  1650	031214	205 12 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1651	031215	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC) X C(E)
  1652	031216	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST PROD=112400000000
  1653	031217	003 13 0 00 002401 		ER3	AC,2401		;SC7 FAILED TO CLEAR
  1654	031220	321 15 0 00 031212 		JUMPL	AC+2,P2400	;LOOP ON ERROR SWITCH
  1655
  1656									;TEST SC5 CLEARING
  1657	031221	205 11 0 00 120400 	P2500:	MOVSI	AC-2,120400	;SETUP FOR COMPARISON
  1658	031222	205 13 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  1659	031223	205 12 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1660	031224	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC) X C(E)
  1661	031225	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST PROD=120400000000
  1662	031226	003 13 0 00 002501 		ER3	AC,2501		;SC5 FAILED TO CLEAR
  1663	031227	321 15 0 00 031221 		JUMPL	AC+2,P2500	;LOOP ON ERROR SWITCH
  1664									;TEST SC4 CLEARING
  1665	031230	205 11 0 00 130400 	P2600:	MOVSI	AC-2,130400	;SETUP FOR COMPARISON
  1666	031231	205 13 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  1667	031232	205 12 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1668	031233	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC) X C(E)
  1669	031234	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST PROD=130400000000
  1670	031235	003 13 0 00 002601 		ER3	AC,2601		;SC4 FAILED TO CLEAR
  1671	031236	321 15 0 00 031230 		JUMPL	AC+2,P2600	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 11
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0054

  1672					;TEST FMP - EXP CAL
  1673					;AR=377400000000
  1674					;BR=000400000000
  1675					;CORR PROD=176400000000
  1676					;ERR PROD=601400000000
  1677
  1678			000012			AC=12
  1679						SAVEAC	(1,1)^
  1680	031237	201 14 0 00 031237 		MOVEI	AC+2,.
  1681	031240	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1682	031241	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1683	031242	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1684
  1685	031243	205 10 0 00 601400 	P2700:	MOVSI	AC-2,601400	;SETUP FOR COMPARISON
  1686	031244	205 12 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  1687	031245	205 11 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1688	031246	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC) X C(E)
  1689	031247	316 12 0 00 000010 		CAMN	AC,AC-2		;TEST PROD=601400000000
  1690	031250	003 12 0 00 002701 		ER3	AC,2701
  1691	031251	321 14 0 00 031243 		JUMPL	AC+2,P2700	;LOOP ON ERROR SWITCH
  1692
  1693					;TEST FMP - EXP CAL
  1694					;AR=577400000000
  1695					;BR=000400000000
  1696					;CORR PROD=377400000000 AND UNDERFLOW
  1697					;ERR PROD=376400000000
  1698
  1699			000011			AC=11
  1700						SAVEAC	(1,1)^
  1701	031252	201 13 0 00 031252 		MOVEI	AC+2,.
  1702	031253	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1703	031254	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1704	031255	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1705
  1706	031256	205 07 0 00 376400 	P3000:	MOVSI	AC-2,376400	;SETUP FOR COMPARISON
  1707	031257	205 11 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  1708	031260	205 10 0 00 000400 		MOVSI	AC-1,400	;SETUP BR
  1709	031261	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC) X C(E)
  1710	031262	316 11 0 00 000007 		CAMN	AC,AC-2		;TEST PROD=376400000000
  1711	031263	003 11 0 00 003001 		ER3	AC,3001
  1712	031264	321 13 0 00 031256 		JUMPL	AC+2,P3000	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 12
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0055

  1713					;TEST FMP - EXP CAL
  1714					;AR=000400000000
  1715					;BR=200400000000
  1716					;CORR PROD=377400000000 AND UNDERFLOW
  1717					;ERR PROD=177400000000 AND OVERFLOW
  1718
  1719			000010			AC=10
  1720						SAVEAC	(1,1)^
  1721	031265	201 12 0 00 031265 		MOVEI	AC+2,.
  1722	031266	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1723	031267	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1724	031270	202 12 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1725
  1726	031271	255 10 0 00 031272 	P3100:	JFCL	10,.+1		;CLEAR AROV, EXEC NEXT INST
  1727	031272	205 06 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1728	031273	205 10 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1729	031274	205 07 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  1730	031275	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  1731	031276	265 05 0 00 031277 		JSP	AC-3,.+1	;READ FLAGS
  1732	031277	255 10 0 00 031301 		JFCL	10,.+2		;TEST FOR OVERFLOW
  1733	031300	013 05 0 00 003101 		ER13	AC-3,3101	;AROV NOT SET
  1734	031301	607 05 0 00 000100 		TLNN	AC-3,FXU	;EXAMINE FXU FLAG
  1735	031302	013 05 0 00 003101 		ER13	AC-3,3101	;FXU NOT SET
  1736	031303	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST PROD=177400000000
  1737	031304	003 10 0 00 003101 		ER3	AC,3101
  1738	031305	321 12 0 00 031271 		JUMPL	AC+2,P3100	;LOOP ON ERROR SWITCH
  1739
  1740					;TEST FMP - EXP CAL
  1741					;AR=000400000000
  1742					;BR=200400000000
  1743					;CORR PROD=377400000000 AND UNDERFLOW
  1744					;ERR PROD=376400000000 AND OVER/UNDERFLOW NOT
  1745
  1746			000007			AC=7
  1747						SAVEAC	(1,1)^
  1748	031306	201 11 0 00 031306 		MOVEI	AC+2,.
  1749	031307	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1750	031310	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1751	031311	202 11 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1752
  1753	031312	205 05 0 00 376400 	P3200:	MOVSI	AC-2,376400	;SETUP FOR COMPARISON
  1754	031313	205 07 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1755	031314	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  1756	031315	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC) X C(E)
  1757	031316	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST PROD=376400000000
  1758	031317	003 07 0 00 003201 		ER3	AC,3201		;FP EXP ADD ASSERTED
  1759	031320	321 11 0 00 031312 		JUMPL	AC+2,P3200	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 13
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0056

  1760					;TEST FMP - EXP CAL
  1761					;AR=200400000000 (+1/2)
  1762					;BR=577400000000 (-1/2)
  1763					;CORR PROD=600400000000 (-1/4)
  1764					;ERR PROD=401400000000
  1765
  1766			000006			AC=6
  1767						SAVEAC	(1,1)^
  1768	031321	201 10 0 00 031321 		MOVEI	AC+2,.
  1769	031322	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1770	031323	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1771	031324	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1772
  1773	031325	205 04 0 00 401400 	P3300:	MOVSI	AC-2,401400	;SETUP FOR COMPARISON
  1774	031326	205 06 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1775	031327	205 05 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  1776	031330	160 06 0 00 000005 		FMP	AC,AC-1		;C(AC) X C(E)
  1777	031331	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST PROD=401400000000
  1778	031332	003 06 0 00 003301 		ER3	AC,3301		;FP EXP ADD FAILED
  1779	031333	321 10 0 00 031325 		JUMPL	AC+2,P3300	;LOOP ON ERROR SWITCH
  1780
  1781					;TEST FMP - EXP CAL
  1782					;AR=200400000000
  1783					;BR=200400000000
  1784					;CORR PROD=177400000000
  1785					;ERR PROD=377400000000 AND UNDERFLOW
  1786
  1787			000005			AC=5
  1788						SAVEAC	(1,1)^
  1789	031334	201 07 0 00 031334 		MOVEI	AC+2,.
  1790	031335	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1791	031336	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1792	031337	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1793
  1794	031340	254 02 1 00 033457 	P3400:	JRST	2,@[.+1]	;CLEAR AR FXU, EXEC NEXT INST
  1795	031341	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1796	031342	205 05 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1797	031343	205 04 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  1798	031344	160 05 0 00 000004 		FMP	AC,AC-1		;C(AC) X C(E)
  1799	031345	265 02 0 00 031346 		JSP	AC-3,.+1	;STORE FLAGS, PC
  1800	031346	603 02 0 00 000100 		TLNE	AC-3,FXU	;EXAMINE FXU FLAG
  1801	031347	013 02 0 00 003401 		ER13	AC-3,3401	;FXU IS SET
  1802	031350	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST PROD=377400000000
  1803	031351	003 05 0 00 003401 		ER3	AC,3401
  1804	031352	254 02 0 02 000005 		JRST	2,5(AC-3)	;CLEAR AROV, ARFOV FLAGS
  1805	031353	321 07 0 00 031340 		JUMPL	AC+2,P3400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 14
DSKCB1	MAC	29-Mar-78 11:24		DIAGNOSTIC SECTION, PART TWO                                                       SEQ 0057

  1806
  1807					;TEST FMP - EXP CAL
  1808					;AR=200400000000 (+1/2)
  1809					;BR=205400000000 (+20)
  1810					;CORR PROD=204400000000 (+10)
  1811					;ERR PROD=372400000000 AND OVERFLOW
  1812
  1813			000014			AC=14
  1814						SAVEAC	(1,1)^
  1815	031354	201 16 0 00 031354 		MOVEI	AC+2,.
  1816	031355	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1817	031356	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1818	031357	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1819
  1820	031360	255 10 0 00 031361 	P3500:	JFCL	10,.+1		;CLEAR AROV, EXEC NEXT INST
  1821	031361	205 12 0 00 372400 		MOVSI	AC-2,372400	;SETUP FOR COMPARISON
  1822	031362	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1823	031363	205 13 0 00 205400 		MOVSI	AC-1,205400	;SETUP BR
  1824	031364	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1825	031365	265 11 0 00 031366 		JSP	AC-3,.+1	;SAVE FLAGS
  1826	031366	255 10 0 00 031370 		JFCL	10,.+2		;TEST AROV
  1827	031367	254 00 0 00 031371 		JRST	.+2
  1828	031370	013 11 0 00 003501 		ER13	AC-3,3501	;AROV SET
  1829	031371	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD=372400000000
  1830	031372	003 14 0 00 003501 		ER3	AC,3501
  1831	031373	321 16 0 00 031360 		JUMPL	AC+2,P3500	;LOOP ON ERROR SWITCH
  1832
  1833					;TEST FMP
  1834					;AR=0
  1835					;BR=577400000000
  1836					;CORR PROD=0 (NR ALL ZERO COND)
  1837					;ERR PROD=312400000000 AND UNDERFLOW
  1838
  1839			000014			AC=14
  1840						SAVEAC	(1,1)^
  1841	031374	201 16 0 00 031374 		MOVEI	AC+2,.
  1842	031375	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1843	031376	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1844	031377	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1845
  1846	031400	205 12 0 00 312400 	P3600:	MOVSI	AC-2,312400	;SETUP FOR COMPARISON
  1847	031401	400 14 0 00 000000 		SETZ	AC,		;SETUP AC
  1848	031402	205 13 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  1849	031403	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC) X C(E)
  1850	031404	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST PROD=312400000000
  1851	031405	003 14 0 00 003601 		ER3	AC,3601
  1852	031406	321 16 0 00 031400 		JUMPL	AC+2,P3600	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 15
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0058

  1853					SUBTTL  PART IIIB-GEN TEST-FMP,FDV
  1854
  1855					;PART IIIB-GENTEST -FMP, FDV
  1856					;TEST FMP-EXPCAL
  1857					;NR NORMAL
  1858					;TWO POSITIVES, INCREASING BR EXPONENT
  1859					;AR=200400000000
  1860					;BR=201.4,202.4,204.4,210.4,220.4
  1861					;240.4,300.4
  1862					;PRODS=200.4,201.4,203.4,207.4,217.4
  1863					;237.4,277.4
  1864
  1865			000014			AC=14
  1866						SAVEAC	(1,1)^
  1867	031407	201 16 0 00 031407 		MOVEI	AC+2,.
  1868	031410	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1869	031411	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1870	031412	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1871			003700		SN=3700
  1872			000400			ZZ=400
  1873
  1874					P3700:	REPEAT	^D7,		;TEST FMP
  1875					<SN=SN+1
  1876						ZZ=ZZ+ZZ
  1877						XX=ZZ-1000
  1878						MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1879						MOVSI	AC,200400	;SETUP AC
  1880						MOVSI	AC-1,200400+ZZ	;SETUP BR
  1881						FMP	AC,AC-1		;C(AC)XC(E)
  1882						CAME	AC,AC-2		;TEST PROD
  1883						ER3	AC,SN		;FMP FAILED
  1884						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1885					>
  1886			003701		SN=SN+1
  1887			001000			ZZ=ZZ+ZZ
  1888			000000			XX=ZZ-1000
  1889	031413	205 12 0 00 200400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1890	031414	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1891	031415	205 13 0 00 201400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1892	031416	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1893	031417	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1894	031420	003 14 0 00 003701 		ER3	AC,SN		;FMP FAILED
  1895	031421	321 16 0 00 031413 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1896
  1897			003702		SN=SN+1
  1898			002000			ZZ=ZZ+ZZ
  1899			001000			XX=ZZ-1000
  1900	031422	205 12 0 00 201400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1901	031423	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1902	031424	205 13 0 00 202400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1903	031425	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1904	031426	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1905	031427	003 14 0 00 003702 		ER3	AC,SN		;FMP FAILED
  1906	031430	321 16 0 00 031422 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1907
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 15-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0059

  1908			003703		SN=SN+1
  1909			004000			ZZ=ZZ+ZZ
  1910			003000			XX=ZZ-1000
  1911	031431	205 12 0 00 203400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1912	031432	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1913	031433	205 13 0 00 204400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1914	031434	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1915	031435	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1916	031436	003 14 0 00 003703 		ER3	AC,SN		;FMP FAILED
  1917	031437	321 16 0 00 031431 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1918
  1919			003704		SN=SN+1
  1920			010000			ZZ=ZZ+ZZ
  1921			007000			XX=ZZ-1000
  1922	031440	205 12 0 00 207400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1923	031441	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1924	031442	205 13 0 00 210400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1925	031443	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1926	031444	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1927	031445	003 14 0 00 003704 		ER3	AC,SN		;FMP FAILED
  1928	031446	321 16 0 00 031440 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1929
  1930			003705		SN=SN+1
  1931			020000			ZZ=ZZ+ZZ
  1932			017000			XX=ZZ-1000
  1933	031447	205 12 0 00 217400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1934	031450	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1935	031451	205 13 0 00 220400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1936	031452	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1937	031453	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1938	031454	003 14 0 00 003705 		ER3	AC,SN		;FMP FAILED
  1939	031455	321 16 0 00 031447 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1940
  1941			003706		SN=SN+1
  1942			040000			ZZ=ZZ+ZZ
  1943			037000			XX=ZZ-1000
  1944	031456	205 12 0 00 237400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1945	031457	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1946	031460	205 13 0 00 240400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1947	031461	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1948	031462	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1949	031463	003 14 0 00 003706 		ER3	AC,SN		;FMP FAILED
  1950	031464	321 16 0 00 031456 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1951
  1952			003707		SN=SN+1
  1953			100000			ZZ=ZZ+ZZ
  1954			077000			XX=ZZ-1000
  1955	031465	205 12 0 00 277400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1956	031466	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1957	031467	205 13 0 00 300400 		MOVSI	AC-1,200400+ZZ	;SETUP BR
  1958	031470	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1959	031471	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  1960	031472	003 14 0 00 003707 		ER3	AC,SN		;FMP FAILED
  1961	031473	321 16 0 00 031465 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1962
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 16
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0060

  1963					;TEST FMP-EXP CAL
  1964					;NR NORMAL
  1965					;TWO POSITIVES, INCREASING AR EXPONENT
  1966					;AR=201.4,202.4,204.4,210.4,220.4,
  1967					;240.4,300.4
  1968					;BR=200400000000
  1969					;PRODS=200.4 201.4,203.4,207.4,217.4,237.4,277.4
  1970
  1971			000014			AC=14
  1972						SAVEAC	(1,1)^
  1973	031474	201 16 0 00 031474 		MOVEI	AC+2,.
  1974	031475	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1975	031476	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1976	031477	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1977			004000		SN=4000
  1978			000400			ZZ=400
  1979
  1980					P4000:	REPEAT	^D7,		;TEST FMP
  1981					<SN=SN+1
  1982						ZZ=ZZ+ZZ
  1983						XX=ZZ-1000
  1984						MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1985						MOVSI	AC,200400+ZZ	;SETUP AC
  1986						MOVSI	AC-1,200400	;SETUP BR
  1987						FMP	AC,AC-1		;C(AC)XC(E)
  1988						CAME	AC,AC-2		;TEST PROD
  1989						ER3	AC,SN		;FMP FAILED
  1990						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  1991					>
  1992			004001		SN=SN+1
  1993			001000			ZZ=ZZ+ZZ
  1994			000000			XX=ZZ-1000
  1995	031500	205 12 0 00 200400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  1996	031501	205 14 0 00 201400 		MOVSI	AC,200400+ZZ	;SETUP AC
  1997	031502	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  1998	031503	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  1999	031504	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2000	031505	003 14 0 00 004001 		ER3	AC,SN		;FMP FAILED
  2001	031506	321 16 0 00 031500 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2002
  2003			004002		SN=SN+1
  2004			002000			ZZ=ZZ+ZZ
  2005			001000			XX=ZZ-1000
  2006	031507	205 12 0 00 201400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  2007	031510	205 14 0 00 202400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2008	031511	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2009	031512	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2010	031513	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2011	031514	003 14 0 00 004002 		ER3	AC,SN		;FMP FAILED
  2012	031515	321 16 0 00 031507 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2013
  2014			004003		SN=SN+1
  2015			004000			ZZ=ZZ+ZZ
  2016			003000			XX=ZZ-1000
  2017	031516	205 12 0 00 203400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 16-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0061

  2018	031517	205 14 0 00 204400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2019	031520	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2020	031521	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2021	031522	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2022	031523	003 14 0 00 004003 		ER3	AC,SN		;FMP FAILED
  2023	031524	321 16 0 00 031516 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2024
  2025			004004		SN=SN+1
  2026			010000			ZZ=ZZ+ZZ
  2027			007000			XX=ZZ-1000
  2028	031525	205 12 0 00 207400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  2029	031526	205 14 0 00 210400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2030	031527	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2031	031530	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2032	031531	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2033	031532	003 14 0 00 004004 		ER3	AC,SN		;FMP FAILED
  2034	031533	321 16 0 00 031525 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2035
  2036			004005		SN=SN+1
  2037			020000			ZZ=ZZ+ZZ
  2038			017000			XX=ZZ-1000
  2039	031534	205 12 0 00 217400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  2040	031535	205 14 0 00 220400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2041	031536	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2042	031537	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2043	031540	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2044	031541	003 14 0 00 004005 		ER3	AC,SN		;FMP FAILED
  2045	031542	321 16 0 00 031534 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2046
  2047			004006		SN=SN+1
  2048			040000			ZZ=ZZ+ZZ
  2049			037000			XX=ZZ-1000
  2050	031543	205 12 0 00 237400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  2051	031544	205 14 0 00 240400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2052	031545	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2053	031546	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2054	031547	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2055	031550	003 14 0 00 004006 		ER3	AC,SN		;FMP FAILED
  2056	031551	321 16 0 00 031543 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2057
  2058			004007		SN=SN+1
  2059			100000			ZZ=ZZ+ZZ
  2060			077000			XX=ZZ-1000
  2061	031552	205 12 0 00 277400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  2062	031553	205 14 0 00 300400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2063	031554	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2064	031555	160 14 0 00 000013 		FMP	AC,AC-1		;C(AC)XC(E)
  2065	031556	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2066	031557	003 14 0 00 004007 		ER3	AC,SN		;FMP FAILED
  2067	031560	321 16 0 00 031552 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2068
  2069					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 16-2
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0062

  2070					;TEST FMP - EXP CAL
  2071					;FP EXP ADD, NR NORMAL
  2072					;AR=200400000000
  2073					;BR=577.4,576.4,575.4
  2074					;PRODS=600.4,577.4,576.4
  2075
  2076			000013			AC=13
  2077						SAVEAC	(1,1)^
  2078	031561	201 15 0 00 031561 		MOVEI	AC+2,.
  2079	031562	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2080	031563	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2081	031564	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2082			004100		SN=4100
  2083			601400			XX=601400
  2084			600400			ZZ=600400
  2085
  2086					P4100:	REPEAT	^D3,		;TEST FMP
  2087					<SN=SN+1
  2088						XX=XX-1000
  2089						ZZ=ZZ-1000
  2090						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2091						MOVSI	AC,200400	;SETUP AC
  2092						MOVSI	AC-1,ZZ		;SETUP BR
  2093						FMP	AC,AC-1		;C(AC)XC(E)
  2094						CAME	AC,AC-2		;TEST PROD
  2095						ER3	AC,SN		;FMP FAILED
  2096						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2097					>
  2098			004101		SN=SN+1
  2099			600400			XX=XX-1000
  2100			577400			ZZ=ZZ-1000
  2101	031565	205 11 0 00 600400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2102	031566	205 13 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  2103	031567	205 12 0 00 577400 		MOVSI	AC-1,ZZ		;SETUP BR
  2104	031570	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC)XC(E)
  2105	031571	312 13 0 00 000011 		CAME	AC,AC-2		;TEST PROD
  2106	031572	003 13 0 00 004101 		ER3	AC,SN		;FMP FAILED
  2107	031573	321 15 0 00 031565 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2108
  2109			004102		SN=SN+1
  2110			577400			XX=XX-1000
  2111			576400			ZZ=ZZ-1000
  2112	031574	205 11 0 00 577400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2113	031575	205 13 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  2114	031576	205 12 0 00 576400 		MOVSI	AC-1,ZZ		;SETUP BR
  2115	031577	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC)XC(E)
  2116	031600	312 13 0 00 000011 		CAME	AC,AC-2		;TEST PROD
  2117	031601	003 13 0 00 004102 		ER3	AC,SN		;FMP FAILED
  2118	031602	321 15 0 00 031574 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2119
  2120			004103		SN=SN+1
  2121			576400			XX=XX-1000
  2122			575400			ZZ=ZZ-1000
  2123	031603	205 11 0 00 576400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2124	031604	205 13 0 00 200400 		MOVSI	AC,200400	;SETUP AC
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 16-3
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0063

  2125	031605	205 12 0 00 575400 		MOVSI	AC-1,ZZ		;SETUP BR
  2126	031606	160 13 0 00 000012 		FMP	AC,AC-1		;C(AC)XC(E)
  2127	031607	312 13 0 00 000011 		CAME	AC,AC-2		;TEST PROD
  2128	031610	003 13 0 00 004103 		ER3	AC,SN		;FMP FAILED
  2129	031611	321 15 0 00 031603 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2130
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 17
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0064

  2131					;TEST FMP
  2132					;AR=200777777777,6,5,4
  2133					;BR=200400000000
  2134					;PRODS=177777777777,6,5,4
  2135
  2136			000012			AC=12
  2137						SAVEAC	(1,1)^
  2138	031612	201 14 0 00 031612 		MOVEI	AC+2,.
  2139	031613	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2140	031614	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2141	031615	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2142			004200		SN=4200
  2143			000000			ZZ=0
  2144					P4200:	REPEAT	^D4,		;TEST FMP
  2145					<SN=SN+1
  2146						ZZ=ZZ-1
  2147						HRLI	AC-2,177777	;SETUP AC-2
  2148						HRRI	AC-2,ZZ		;FOR COMPARISON
  2149						HRLI	AC,200777	;SETUP
  2150						HRRI	AC,ZZ		;AC
  2151						MOVSI	AC-1,200400	;SETUP BR
  2152						FMP	AC,AC-1		;C(AC)XC(E)
  2153						CAME	AC,AC-2		;TEST PROD
  2154						ER3	AC,SN		;FMP FAILED
  2155						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2156					>
  2157			004201		SN=SN+1
  2158		777777	777777			ZZ=ZZ-1
  2159	031616	505 10 0 00 177777 		HRLI	AC-2,177777	;SETUP AC-2
  2160	031617	541 10 0 00 777777 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2161	031620	505 12 0 00 200777 		HRLI	AC,200777	;SETUP
  2162	031621	541 12 0 00 777777 		HRRI	AC,ZZ		;AC
  2163	031622	205 11 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2164	031623	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC)XC(E)
  2165	031624	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2166	031625	003 12 0 00 004201 		ER3	AC,SN		;FMP FAILED
  2167	031626	321 14 0 00 031616 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2168
  2169			004202		SN=SN+1
  2170		777777	777776			ZZ=ZZ-1
  2171	031627	505 10 0 00 177777 		HRLI	AC-2,177777	;SETUP AC-2
  2172	031630	541 10 0 00 777776 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2173	031631	505 12 0 00 200777 		HRLI	AC,200777	;SETUP
  2174	031632	541 12 0 00 777776 		HRRI	AC,ZZ		;AC
  2175	031633	205 11 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2176	031634	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC)XC(E)
  2177	031635	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2178	031636	003 12 0 00 004202 		ER3	AC,SN		;FMP FAILED
  2179	031637	321 14 0 00 031627 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2180
  2181			004203		SN=SN+1
  2182		777777	777775			ZZ=ZZ-1
  2183	031640	505 10 0 00 177777 		HRLI	AC-2,177777	;SETUP AC-2
  2184	031641	541 10 0 00 777775 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2185	031642	505 12 0 00 200777 		HRLI	AC,200777	;SETUP
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 17-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0065

  2186	031643	541 12 0 00 777775 		HRRI	AC,ZZ		;AC
  2187	031644	205 11 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2188	031645	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC)XC(E)
  2189	031646	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2190	031647	003 12 0 00 004203 		ER3	AC,SN		;FMP FAILED
  2191	031650	321 14 0 00 031640 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2192
  2193			004204		SN=SN+1
  2194		777777	777774			ZZ=ZZ-1
  2195	031651	505 10 0 00 177777 		HRLI	AC-2,177777	;SETUP AC-2
  2196	031652	541 10 0 00 777774 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2197	031653	505 12 0 00 200777 		HRLI	AC,200777	;SETUP
  2198	031654	541 12 0 00 777774 		HRRI	AC,ZZ		;AC
  2199	031655	205 11 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2200	031656	160 12 0 00 000011 		FMP	AC,AC-1		;C(AC)XC(E)
  2201	031657	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2202	031660	003 12 0 00 004204 		ER3	AC,SN		;FMP FAILED
  2203	031661	321 14 0 00 031651 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2204
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 18
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0066

  2205					;TEST FMP-EXP CAL
  2206					;NR ALL ZERO
  2207					;AR=0
  2208					;BR=200400000000
  2209					;PROD=0
  2210
  2211			000011			AC=11
  2212						SAVEAC	(1,1)^
  2213	031662	201 13 0 00 031662 		MOVEI	AC+2,.
  2214	031663	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2215	031664	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2216	031665	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2217
  2218	031666	400 11 0 00 000000 	P4300:	SETZ	AC,		;SETUP AC
  2219	031667	205 10 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2220	031670	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)XC(E)
  2221	031671	332 00 0 00 000011 		SKIPE	AC		;TEST PROD
  2222	031672	003 11 0 00 004301 		ER3	AC,4301		;FMP FAILED
  2223	031673	321 13 0 00 031666 		JUMPL	AC+2,P4300	;LOOP ON ERROR SWITCH
  2224
  2225					;TEST FMP-EXP CAL
  2226					;NEGATIVE AR EXP
  2227					;AR=577400000000
  2228					;BR=200400000000
  2229					;PROD=600400000000
  2230
  2231			000010			AC=10
  2232						SAVEAC	(1,1)^
  2233	031674	201 12 0 00 031674 		MOVEI	AC+2,.
  2234	031675	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2235	031676	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2236	031677	202 12 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2237
  2238	031700	205 06 0 00 600400 	P4400:	MOVSI	AC-2,600400	;SETUP FOR COMPARISON
  2239	031701	205 10 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  2240	031702	205 07 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2241	031703	160 10 0 00 000007 		FMP	AC,AC-1		;C(AC) X C(E)
  2242	031704	312 10 0 00 000006 		CAME	AC,AC-2		;TEST PROD
  2243	031705	003 10 0 00 004401 		ER3	AC,4401		;FMP FAILED
  2244	031706	321 12 0 00 031700 		JUMPL	AC+2,P4400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 19
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0067

  2245					;TEST FMP-EXP CAL
  2246					;TWO NEGATIVES-INCREASING AR EXPONENT
  2247					;AR=501.7,502.7,503.7,504.7,505.7
  2248					;BR=500400000000
  2249					;PRODS=372.4,371.4,370.4,367.4,366.4
  2250
  2251			000011			AC=11
  2252						SAVEAC	(1,1)^
  2253	031707	201 13 0 00 031707 		MOVEI	AC+2,.
  2254	031710	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2255	031711	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2256	031712	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2257			004500		SN=4500
  2258			373400			XX=373400
  2259			500700			ZZ=500700
  2260
  2261					P4500:	REPEAT	^D5,		;TEST FMP
  2262					<SN=SN+1
  2263						XX=XX-1000
  2264						ZZ=ZZ+1000
  2265						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2266						MOVSI	AC,ZZ		;SETUP AC
  2267						MOVSI	AC-1,500400	;SETUP BR
  2268						FMP	AC,AC-1		;C(AC)+C(E)
  2269						CAME	AC,AC-2		;TEST PROD
  2270						ER3	AC,SN		;FMP FAILED
  2271						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2272					>
  2273			004501		SN=SN+1
  2274			372400			XX=XX-1000
  2275			501700			ZZ=ZZ+1000
  2276	031713	205 07 0 00 372400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2277	031714	205 11 0 00 501700 		MOVSI	AC,ZZ		;SETUP AC
  2278	031715	205 10 0 00 500400 		MOVSI	AC-1,500400	;SETUP BR
  2279	031716	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)+C(E)
  2280	031717	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2281	031720	003 11 0 00 004501 		ER3	AC,SN		;FMP FAILED
  2282	031721	321 13 0 00 031713 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2283
  2284			004502		SN=SN+1
  2285			371400			XX=XX-1000
  2286			502700			ZZ=ZZ+1000
  2287	031722	205 07 0 00 371400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2288	031723	205 11 0 00 502700 		MOVSI	AC,ZZ		;SETUP AC
  2289	031724	205 10 0 00 500400 		MOVSI	AC-1,500400	;SETUP BR
  2290	031725	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)+C(E)
  2291	031726	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2292	031727	003 11 0 00 004502 		ER3	AC,SN		;FMP FAILED
  2293	031730	321 13 0 00 031722 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2294
  2295			004503		SN=SN+1
  2296			370400			XX=XX-1000
  2297			503700			ZZ=ZZ+1000
  2298	031731	205 07 0 00 370400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2299	031732	205 11 0 00 503700 		MOVSI	AC,ZZ		;SETUP AC
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 19-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0068

  2300	031733	205 10 0 00 500400 		MOVSI	AC-1,500400	;SETUP BR
  2301	031734	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)+C(E)
  2302	031735	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2303	031736	003 11 0 00 004503 		ER3	AC,SN		;FMP FAILED
  2304	031737	321 13 0 00 031731 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2305
  2306			004504		SN=SN+1
  2307			367400			XX=XX-1000
  2308			504700			ZZ=ZZ+1000
  2309	031740	205 07 0 00 367400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2310	031741	205 11 0 00 504700 		MOVSI	AC,ZZ		;SETUP AC
  2311	031742	205 10 0 00 500400 		MOVSI	AC-1,500400	;SETUP BR
  2312	031743	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)+C(E)
  2313	031744	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2314	031745	003 11 0 00 004504 		ER3	AC,SN		;FMP FAILED
  2315	031746	321 13 0 00 031740 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2316
  2317			004505		SN=SN+1
  2318			366400			XX=XX-1000
  2319			505700			ZZ=ZZ+1000
  2320	031747	205 07 0 00 366400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2321	031750	205 11 0 00 505700 		MOVSI	AC,ZZ		;SETUP AC
  2322	031751	205 10 0 00 500400 		MOVSI	AC-1,500400	;SETUP BR
  2323	031752	160 11 0 00 000010 		FMP	AC,AC-1		;C(AC)+C(E)
  2324	031753	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2325	031754	003 11 0 00 004505 		ER3	AC,SN		;FMP FAILED
  2326	031755	321 13 0 00 031747 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2327
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 20
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0069

  2328					;TEST FMP-EXP CAL
  2329					;TWO POSITIVES
  2330					;AR MANTISSA DECREASING
  2331					;NR NORM TEST
  2332					;AR=200.2,200.1,200.04,200.02,200.01,200.004,200.002
  2333					;BR=200400000000
  2334					;PRODS=176.4,175.4,174.4,173.4,172.4,171.4,170.4
  2335
  2336			000007			AC=7
  2337						SAVEAC	(1,1)^
  2338	031756	201 11 0 00 031756 		MOVEI	AC+2,.
  2339	031757	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2340	031760	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2341	031761	202 11 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2342			004600		SN=4600
  2343			177400			XX=177400
  2344			000400			ZZ=400
  2345
  2346					P4600:	REPEAT	^D7,		;TEST FMP
  2347					<SN=SN+1
  2348						XX=XX-1000
  2349						ZZ=ZZ/2
  2350						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2351						MOVSI	AC,200000+ZZ	;SETUP AC
  2352						MOVSI	AC-1,200400	;SETUP BR
  2353						FMP	AC,AC-1		;C(AC)XC(E)
  2354						CAME	AC,AC-2		;TEST PROD
  2355						ER3	AC,SN		;FMP FAILED
  2356						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2357					>
  2358			004601		SN=SN+1
  2359			176400			XX=XX-1000
  2360			000200			ZZ=ZZ/2
  2361	031762	205 05 0 00 176400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2362	031763	205 07 0 00 200200 		MOVSI	AC,200000+ZZ	;SETUP AC
  2363	031764	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2364	031765	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2365	031766	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2366	031767	003 07 0 00 004601 		ER3	AC,SN		;FMP FAILED
  2367	031770	321 11 0 00 031762 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2368
  2369			004602		SN=SN+1
  2370			175400			XX=XX-1000
  2371			000100			ZZ=ZZ/2
  2372	031771	205 05 0 00 175400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2373	031772	205 07 0 00 200100 		MOVSI	AC,200000+ZZ	;SETUP AC
  2374	031773	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2375	031774	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2376	031775	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2377	031776	003 07 0 00 004602 		ER3	AC,SN		;FMP FAILED
  2378	031777	321 11 0 00 031771 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2379
  2380			004603		SN=SN+1
  2381			174400			XX=XX-1000
  2382			000040			ZZ=ZZ/2
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 20-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0070

  2383	032000	205 05 0 00 174400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2384	032001	205 07 0 00 200040 		MOVSI	AC,200000+ZZ	;SETUP AC
  2385	032002	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2386	032003	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2387	032004	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2388	032005	003 07 0 00 004603 		ER3	AC,SN		;FMP FAILED
  2389	032006	321 11 0 00 032000 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2390
  2391			004604		SN=SN+1
  2392			173400			XX=XX-1000
  2393			000020			ZZ=ZZ/2
  2394	032007	205 05 0 00 173400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2395	032010	205 07 0 00 200020 		MOVSI	AC,200000+ZZ	;SETUP AC
  2396	032011	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2397	032012	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2398	032013	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2399	032014	003 07 0 00 004604 		ER3	AC,SN		;FMP FAILED
  2400	032015	321 11 0 00 032007 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2401
  2402			004605		SN=SN+1
  2403			172400			XX=XX-1000
  2404			000010			ZZ=ZZ/2
  2405	032016	205 05 0 00 172400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2406	032017	205 07 0 00 200010 		MOVSI	AC,200000+ZZ	;SETUP AC
  2407	032020	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2408	032021	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2409	032022	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2410	032023	003 07 0 00 004605 		ER3	AC,SN		;FMP FAILED
  2411	032024	321 11 0 00 032016 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2412
  2413			004606		SN=SN+1
  2414			171400			XX=XX-1000
  2415			000004			ZZ=ZZ/2
  2416	032025	205 05 0 00 171400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2417	032026	205 07 0 00 200004 		MOVSI	AC,200000+ZZ	;SETUP AC
  2418	032027	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2419	032030	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2420	032031	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2421	032032	003 07 0 00 004606 		ER3	AC,SN		;FMP FAILED
  2422	032033	321 11 0 00 032025 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2423
  2424			004607		SN=SN+1
  2425			170400			XX=XX-1000
  2426			000002			ZZ=ZZ/2
  2427	032034	205 05 0 00 170400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2428	032035	205 07 0 00 200002 		MOVSI	AC,200000+ZZ	;SETUP AC
  2429	032036	205 06 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2430	032037	160 07 0 00 000006 		FMP	AC,AC-1		;C(AC)XC(E)
  2431	032040	312 07 0 00 000005 		CAME	AC,AC-2		;TEST PROD
  2432	032041	003 07 0 00 004607 		ER3	AC,SN		;FMP FAILED
  2433	032042	321 11 0 00 032034 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2434
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 21
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0071

  2435					;TEST FMP-EXP CAL
  2436					;AR=500.7,500.77
  2437					;BR=200400000000
  2438					;PRODS=503.4,506.4
  2439
  2440			000006			AC=6
  2441						SAVEAC	(1,1)^
  2442	032043	201 10 0 00 032043 		MOVEI	AC+2,.
  2443	032044	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2444	032045	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2445	032046	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2446			004700		SN=4700
  2447			500400			XX=500400
  2448			500610			ZZ=500610
  2449
  2450					P4700:	REPEAT	^D2,		;TEST FMP
  2451					<SN=SN+1
  2452						XX=XX+3000
  2453						ZZ=ZZ+70
  2454						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2455						MOVSI	AC,ZZ		;SETUP AC
  2456						MOVSI	AC-1,200400	;SETUP BR
  2457						FMP	AC,AC-1		;C(AC)XC(E)
  2458						CAME	AC,AC-2		;TEST PROD
  2459						ER3	AC,SN		;FMP FAILED
  2460						CAME	AC-1,[200400,,0];EXAMINE C(E)
  2461						ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2462						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2463					>
  2464			004701		SN=SN+1
  2465			503400			XX=XX+3000
  2466			500700			ZZ=ZZ+70
  2467	032047	205 04 0 00 503400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2468	032050	205 06 0 00 500700 		MOVSI	AC,ZZ		;SETUP AC
  2469	032051	205 05 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2470	032052	160 06 0 00 000005 		FMP	AC,AC-1		;C(AC)XC(E)
  2471	032053	312 06 0 00 000004 		CAME	AC,AC-2		;TEST PROD
  2472	032054	003 06 0 00 004701 		ER3	AC,SN		;FMP FAILED
  2473	032055	312 05 0 00 033460 		CAME	AC-1,[200400,,0];EXAMINE C(E)
  2474	032056	005 05 0 00 004701 		ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2475	032057	321 10 0 00 032047 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2476
  2477			004702		SN=SN+1
  2478			506400			XX=XX+3000
  2479			500770			ZZ=ZZ+70
  2480	032060	205 04 0 00 506400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2481	032061	205 06 0 00 500770 		MOVSI	AC,ZZ		;SETUP AC
  2482	032062	205 05 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2483	032063	160 06 0 00 000005 		FMP	AC,AC-1		;C(AC)XC(E)
  2484	032064	312 06 0 00 000004 		CAME	AC,AC-2		;TEST PROD
  2485	032065	003 06 0 00 004702 		ER3	AC,SN		;FMP FAILED
  2486	032066	312 05 0 00 033460 		CAME	AC-1,[200400,,0];EXAMINE C(E)
  2487	032067	005 05 0 00 004702 		ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2488	032070	321 10 0 00 032060 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  2489
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 21-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0072

  2490					;TEST ECO49
  2491					;TEST UNDERFLOW
  2492					;AR=000400000000
  2493					;BR=000400000000
  2494					;FLAGS=440100
  2495					;SMALLEST NORMALIZED NUMBER SQUARED SHOULD CAUSE UNDERFLOW
  2496
  2497			000006			AC=6
  2498						SAVEAC	(1,1)^
  2499	032071	201 10 0 00 032071 		MOVEI	AC+2,.
  2500	032072	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2501	032073	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2502	032074	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2503
  2504	032075	254 02 1 00 032076 	P5000:	JRST	2,@.+1		;CLEAR PC FLAGS
  2505	032076	000000	032077			XWD	0,.+1
  2506	032077	205 06 0 00 000400 		MOVSI	AC,000400	;GET SMALLEST NORMALIZED NUMBER
  2507	032100	160 06 0 00 000006 		FMP	AC,AC		;SQUARE IT AND CAUSE UNDERFLOW
  2508	032101	265 04 0 00 032102 		JSP	AC-2,.+1	;GET PC FLAGS
  2509	032102	607 04 0 00 000100 		TLNN	AC-2,FXU	;UNDERFLOW SHOULD BE A ONE
  2510	032103	013 04 0 00 005001 		ER13	AC-2,5001	;ERROR
  2511	032104	321 10 0 00 032075 		JUMPL	AC+2,P5000	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 22
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0073

  2512					;TEST FMPB
  2513					;AR=200775000000
  2514					;BR=200775000000
  2515					;PROD=200772011000
  2516
  2517			000005			AC=5
  2518						SAVEAC	(1,1)^
  2519	032105	201 07 0 00 032105 		MOVEI	AC+2,.
  2520	032106	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2521	032107	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2522	032110	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2523
  2524	032111	505 03 0 00 200772 	P5100:	HRLI	AC-2,200772		;SETUP AC-2
  2525	032112	541 03 0 00 011000 		HRRI	AC-2,11000		;FOR COMPARISON
  2526	032113	205 05 0 00 200775 		MOVSI	AC,200775		;SETUP AC
  2527	032114	205 04 0 00 200775 		MOVSI	AC-1,200775		;SETUP BR
  2528	032115	163 05 0 00 000004 		FMPB	AC,AC-1			;C(AC)XC(E)
  2529	032116	312 05 0 00 000003 		CAME	AC,AC-2			;TEST PROD (AC)
  2530	032117	003 05 0 00 005101 		ER3	AC,5101			;C(AC) FAILED
  2531	032120	312 04 0 00 000003 		CAME	AC-1,AC-2		;TEST PROD (E)
  2532	032121	005 04 0 00 005101 		ER5	AC-1,5101		;C(E) FAILED
  2533	032122	321 07 0 00 032111 		JUMPL	AC+2,P5100		;LOOP ON ERROR SWITCH
  2534
  2535					;TEST FMPB
  2536					;AR=200774000000
  2537					;BR=200774000000
  2538					;PROD=200770020000
  2539
  2540			000014			AC=14
  2541						SAVEAC	(1,1)^
  2542	032123	201 16 0 00 032123 		MOVEI	AC+2,.
  2543	032124	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2544	032125	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2545	032126	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2546
  2547	032127	505 12 0 00 200770 	P5200:	HRLI	AC-2,200770	;SETUP AC-2
  2548	032130	541 12 0 00 020000 		HRRI	AC-2,20000	;FOR COMPARISON
  2549	032131	205 14 0 00 200774 		MOVSI	AC,200774	;SETUP AC
  2550	032132	205 13 0 00 200774 		MOVSI	AC-1,200774	;SETUP BR
  2551	032133	163 14 0 00 000013 		FMPB	AC,AC-1		;C(AC)XC(E)
  2552	032134	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD (AC)
  2553	032135	003 14 0 00 005201 		ER3	AC,5201		;C(AC) FAILED
  2554	032136	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST PROD (E)
  2555	032137	005 13 0 00 005201 		ER5	AC-1,5201	;C(E) FAILED
  2556	032140	321 16 0 00 032127 		JUMPL	AC+2,P5200	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 23
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0074

  2557					;TEST FMPM
  2558					;AR=200773000000
  2559					;BR=200773000000
  2560					;PROD=200766031000
  2561
  2562			000014			AC=14
  2563						SAVEAC	(1,1)^
  2564	032141	201 16 0 00 032141 		MOVEI	AC+2,.
  2565	032142	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2566	032143	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2567	032144	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2568
  2569	032145	505 12 0 00 200766 	P5300:	HRLI	AC-2,200766	;SETUP AC-2
  2570	032146	541 12 0 00 031000 		HRRI	AC-2,31000	;FOR COMPARISON
  2571	032147	205 14 0 00 200773 		MOVSI	AC,200773	;SETUP AC
  2572	032150	205 13 0 00 200773 		MOVSI	AC-1,200773	;SETUP BR
  2573	032151	162 14 0 00 000013 		FMPM	AC,AC-1		;C(AC)XC(E)
  2574	032152	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST PROD
  2575	032153	005 13 0 00 005301 		ER5	AC-1,5301	;FMPM FAILED
  2576	032154	321 16 0 00 032145 		JUMPL	AC+2,P5300	;LOOP ON ERROR SWITCH
  2577
  2578					;TEST FMPM
  2579					;AR=177477000000
  2580					;BR=200700000000
  2581					;PROD=177427100000
  2582
  2583			000013			AC=13
  2584						SAVEAC	(1,1)^
  2585	032155	201 15 0 00 032155 		MOVEI	AC+2,.
  2586	032156	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2587	032157	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2588	032160	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2589
  2590	032161	505 11 0 00 177427 	P5400:	HRLI	AC-2,177427	;SETUP AC-2
  2591	032162	541 11 0 00 100000 		HRRI	AC-2,100000	;FOR COMPARISON
  2592	032163	205 13 0 00 177477 		MOVSI	AC,177477	;SETUP AC
  2593	032164	205 12 0 00 200700 		MOVSI	AC-1,200700	;SETUP BR
  2594	032165	162 13 0 00 000012 		FMPM	AC,AC-1		;C(AC)XC(E)
  2595	032166	312 13 0 00 033461 		CAME	AC,[177477,,0]	;EXAMINE C(AC)
  2596	032167	003 13 0 00 005401 		ER3	AC,5401		;C(AC) WAS CLOBBERED
  2597	032170	312 12 0 00 000011 		CAME	AC-1,AC-2	;TEST PROD
  2598	032171	005 12 0 00 005401 		ER5	AC-1,5401	;FMPM FAILED
  2599	032172	321 15 0 00 032161 		JUMPL	AC+2,P5400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 24
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0075

  2600					;TEST FMPR
  2601					;(NOT ROUND COND)
  2602					;AR=200777777777
  2603					;BR=200000000002
  2604					;PROD=146777777777
  2605
  2606			000006			AC=6
  2607						SAVEAC	(1,1)^
  2608	032173	201 10 0 00 032173 		MOVEI	AC+2,.
  2609	032174	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2610	032175	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2611	032176	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2612
  2613	032177	505 04 0 00 146777 	P6100:	HRLI	AC-2,146777	;SETUP AC-2
  2614	032200	541 04 0 00 777777 		HRRI	AC-2,-1		;FOR COMPARISON
  2615	032201	505 06 0 00 200777 		HRLI	AC,200777	;SETUP
  2616	032202	541 06 0 00 777777 		HRRI	AC,-1		;AC
  2617	032203	205 05 0 00 200000 		MOVSI	AC-1,200000	;SETUP
  2618	032204	271 05 0 00 000002 		ADDI	AC-1,2		;BR
  2619	032205	164 06 0 00 000005 		FMPR	AC,AC-1		;C(AC)XC(E)
  2620	032206	312 06 0 00 000004 		CAME	AC,AC-2		;TEST PROD
  2621	032207	003 06 0 00 006101 		ER3	AC,6101		;FMPR FAILED
  2622	032210	321 10 0 00 032177 		JUMPL	AC+2,P6100	;LOOP ON ERROR SWITCH
  2623					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 24-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0076

  2624					;TEST FMPR
  2625					;AR=200700000000
  2626					;BR=200400000077,(76)
  2627					;PROD=177700000156,(155)
  2628
  2629			000014			AC=14
  2630						SAVEAC	(1,1)^
  2631	032211	201 16 0 00 032211 		MOVEI	AC+2,.
  2632	032212	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2633	032213	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2634	032214	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2635			006200		SN=6200
  2636			000100			XX=100
  2637			000157			ZZ=157
  2638
  2639					P6200:	REPEAT	^D2,	;TEST FMPR
  2640					<SN=SN+1
  2641						XX=XX-1
  2642						ZZ=ZZ-1
  2643						HRLI	AC-2,177700	;SETUP AC-2
  2644						HRRI	AC-2,ZZ		;FOR COMPARISON
  2645						MOVSI	AC,200700	;SETUP AC
  2646						HRLI	AC-1,200400	;SETUP
  2647						HRRI	AC-1,XX		;BR
  2648						FMPR	AC,AC-1		;C(AC)XC(E)
  2649						CAME	AC,AC-2		;TEST PROD
  2650						ER3	AC,SN		;FMPR FAILED
  2651						CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  2652						ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2653						JUMPL	AC-2,.-^D10	;LOOP ON ERROR SWITCH
  2654					>
  2655			006201		SN=SN+1
  2656			000077			XX=XX-1
  2657			000156			ZZ=ZZ-1
  2658	032215	505 12 0 00 177700 		HRLI	AC-2,177700	;SETUP AC-2
  2659	032216	541 12 0 00 000156 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2660	032217	205 14 0 00 200700 		MOVSI	AC,200700	;SETUP AC
  2661	032220	505 13 0 00 200400 		HRLI	AC-1,200400	;SETUP
  2662	032221	541 13 0 00 000077 		HRRI	AC-1,XX		;BR
  2663	032222	164 14 0 00 000013 		FMPR	AC,AC-1		;C(AC)XC(E)
  2664	032223	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2665	032224	003 14 0 00 006201 		ER3	AC,SN		;FMPR FAILED
  2666	032225	312 13 0 00 033462 		CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  2667	032226	005 13 0 00 006201 		ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2668	032227	321 12 0 00 032215 		JUMPL	AC-2,.-^D10	;LOOP ON ERROR SWITCH
  2669
  2670			006202		SN=SN+1
  2671			000076			XX=XX-1
  2672			000155			ZZ=ZZ-1
  2673	032230	505 12 0 00 177700 		HRLI	AC-2,177700	;SETUP AC-2
  2674	032231	541 12 0 00 000155 		HRRI	AC-2,ZZ		;FOR COMPARISON
  2675	032232	205 14 0 00 200700 		MOVSI	AC,200700	;SETUP AC
  2676	032233	505 13 0 00 200400 		HRLI	AC-1,200400	;SETUP
  2677	032234	541 13 0 00 000076 		HRRI	AC-1,XX		;BR
  2678	032235	164 14 0 00 000013 		FMPR	AC,AC-1		;C(AC)XC(E)
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 24-2
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0077

  2679	032236	312 14 0 00 000012 		CAME	AC,AC-2		;TEST PROD
  2680	032237	003 14 0 00 006202 		ER3	AC,SN		;FMPR FAILED
  2681	032240	312 13 0 00 033463 		CAME	AC-1,[200400,,XX]	;EXAMINE C(E)
  2682	032241	005 13 0 00 006202 		ER5	AC-1,SN		;C(E) WAS CLOBBERED
  2683	032242	321 12 0 00 032230 		JUMPL	AC-2,.-^D10	;LOOP ON ERROR SWITCH
  2684
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 25
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0078

  2685					;TEST FMPRM
  2686					;AR=200700000000
  2687					;BR=200400000075
  2688					;PROD=177700000153
  2689
  2690			000014			AC=14
  2691						SAVEAC	(1,1)^
  2692	032243	201 16 0 00 032243 		MOVEI	AC+2,.
  2693	032244	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2694	032245	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2695	032246	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2696
  2697	032247	505 12 0 00 177700 	P6300:	HRLI	AC-2,177700	;SETUP AC-2
  2698	032250	541 12 0 00 000153 		HRRI	AC-2,153	;FOR COMPARISON
  2699	032251	205 14 0 00 200700 		MOVSI	AC,200700	;SETUP AC
  2700	032252	505 13 0 00 200400 		HRLI	AC-1,200400	;SETUP
  2701	032253	541 13 0 00 000075 		HRRI	AC-1,75		;BR
  2702	032254	166 14 0 00 000013 		FMPRM	AC,AC-1		;C(AC)XC(E)
  2703	032255	312 14 0 00 033464 		CAME	AC,[200700,,0]	;EXAMINE C(AC)
  2704	032256	003 14 0 00 006301 		ER3	AC,6301		;C(AC) WAS CLOBBERED
  2705	032257	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST PROD
  2706	032260	005 13 0 00 006301 		ER5	AC-1,6301	;FMPRM FAILED
  2707	032261	321 16 0 00 032247 		JUMPL	AC+2,P6300	;LOOP ON ERROR SWITCH
  2708
  2709					;TEST FMPRB
  2710					;AR=577400000000
  2711					;BR=600400000000
  2712					;PROD=176400000000
  2713
  2714			000013			AC=13
  2715						SAVEAC	(1,1)^
  2716	032262	201 15 0 00 032262 		MOVEI	AC+2,.
  2717	032263	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2718	032264	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2719	032265	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2720
  2721	032266	205 11 0 00 176400 	P6400:	MOVSI	AC-2,176400	;SETUP FOR COMPARISON
  2722	032267	205 13 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  2723	032270	205 12 0 00 600400 		MOVSI	AC-1,600400	;SETUP BR
  2724	032271	167 13 0 00 000012 		FMPRB	AC,AC-1		;C(AC)XC(E)
  2725	032272	312 13 0 00 000011 		CAME	AC,AC-2		;TEST PROD (AC)
  2726	032273	003 13 0 00 006401 		ER3	AC,6401		;C(AC) FAILED
  2727	032274	312 12 0 00 000011 		CAME	AC-1,AC-2	;TEST PROD (E)
  2728	032275	005 12 0 00 006401 		ER5	AC-1,6401	;FMPRB FAILED
  2729	032276	321 15 0 00 032266 		JUMPL	AC+2,P6400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 26
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0079

  2730					;TEST FMPRI
  2731					;AR=600400000077,(76)
  2732					;E=177600
  2733					;PRODS=602200000136,(135),
  2734
  2735			000012			AC=12
  2736						SAVEAC	(1,1)^
  2737	032277	201 14 0 00 032277 		MOVEI	AC+2,.
  2738	032300	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2739	032301	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2740	032302	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2741			006500		SN=6500
  2742			000137			XX=137
  2743			000100			ZZ=100
  2744
  2745					P6500:	REPEAT	^D2,		;TEST FMPRI
  2746					<SN=SN+1
  2747						XX=XX-1
  2748						ZZ=ZZ-1
  2749						HRLI	AC-2,602200	;SETUP AC-2
  2750						HRRI	AC-2,XX		;FOR COMPARISON
  2751						HRLI	AC,600400	;SETUP
  2752						HRRI	AC,ZZ		;AC
  2753						FMPRI	AC,177600	;C(AC)X E
  2754						CAME	AC,AC-2		;TEST PROD
  2755						ER3	AC,SN		;FMPRI FAILED
  2756						JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2757					>
  2758			006501		SN=SN+1
  2759			000136			XX=XX-1
  2760			000077			ZZ=ZZ-1
  2761	032303	505 10 0 00 602200 		HRLI	AC-2,602200	;SETUP AC-2
  2762	032304	541 10 0 00 000136 		HRRI	AC-2,XX		;FOR COMPARISON
  2763	032305	505 12 0 00 600400 		HRLI	AC,600400	;SETUP
  2764	032306	541 12 0 00 000077 		HRRI	AC,ZZ		;AC
  2765	032307	165 12 0 00 177600 		FMPRI	AC,177600	;C(AC)X E
  2766	032310	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2767	032311	003 12 0 00 006501 		ER3	AC,SN		;FMPRI FAILED
  2768	032312	321 14 0 00 032303 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2769
  2770			006502		SN=SN+1
  2771			000135			XX=XX-1
  2772			000076			ZZ=ZZ-1
  2773	032313	505 10 0 00 602200 		HRLI	AC-2,602200	;SETUP AC-2
  2774	032314	541 10 0 00 000135 		HRRI	AC-2,XX		;FOR COMPARISON
  2775	032315	505 12 0 00 600400 		HRLI	AC,600400	;SETUP
  2776	032316	541 12 0 00 000076 		HRRI	AC,ZZ		;AC
  2777	032317	165 12 0 00 177600 		FMPRI	AC,177600	;C(AC)X E
  2778	032320	312 12 0 00 000010 		CAME	AC,AC-2		;TEST PROD
  2779	032321	003 12 0 00 006502 		ER3	AC,SN		;FMPRI FAILED
  2780	032322	321 14 0 00 032313 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  2781
  2782					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 26-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0080

  2783					;TEST FMPRI
  2784					;AR=600400000000
  2785					;E=576400,575400
  2786					;PROD=177400000000,200400000000
  2787
  2788			000011			AC=11
  2789						SAVEAC	(1,1)^
  2790	032323	201 13 0 00 032323 		MOVEI	AC+2,.
  2791	032324	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2792	032325	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2793	032326	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2794
  2795			006600		SN=6600
  2796			176400			XX=176400
  2797			577400			ZZ=577400
  2798
  2799					P6600:	REPEAT	^D2,		;TEST FMPRI
  2800					<SN=SN+1
  2801						XX=XX+1000
  2802						ZZ=ZZ-1000
  2803						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2804						MOVSI	AC,600400	;SETUP AC
  2805						FMPRI	AC,ZZ		;C(AC)X E
  2806						CAME	AC,AC-2		;TEST PROD
  2807						ER3	AC,6601		;FMPRI FAILED
  2808						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2809					
  2810					>
  2811			006601		SN=SN+1
  2812			177400			XX=XX+1000
  2813			576400			ZZ=ZZ-1000
  2814	032327	205 07 0 00 177400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2815	032330	205 11 0 00 600400 		MOVSI	AC,600400	;SETUP AC
  2816	032331	165 11 0 00 576400 		FMPRI	AC,ZZ		;C(AC)X E
  2817	032332	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2818	032333	003 11 0 00 006601 		ER3	AC,6601		;FMPRI FAILED
  2819	032334	321 13 0 00 032327 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2820
  2821
  2822			006602		SN=SN+1
  2823			200400			XX=XX+1000
  2824			575400			ZZ=ZZ-1000
  2825	032335	205 07 0 00 200400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2826	032336	205 11 0 00 600400 		MOVSI	AC,600400	;SETUP AC
  2827	032337	165 11 0 00 575400 		FMPRI	AC,ZZ		;C(AC)X E
  2828	032340	312 11 0 00 000007 		CAME	AC,AC-2		;TEST PROD
  2829	032341	003 11 0 00 006601 		ER3	AC,6601		;FMPRI FAILED
  2830	032342	321 13 0 00 032335 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2831
  2832
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 27
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0081

  2833					;TEST ECO49
  2834					;TEST CLEAR MQ LOGIC
  2835					;AR=400000000001
  2836					;E=1.0
  2837					;PROD=400000000001
  2838					;ERROR PROD=777400000000
  2839					;FLAGS=0
  2840
  2841			000011			AC=11
  2842						SAVEAC	(1,1)^
  2843	032343	201 13 0 00 032343 		MOVEI	AC+2,.
  2844	032344	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2845	032345	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2846	032346	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2847
  2848	032347	254 02 1 00 032350 	P6700:	JRST	2,@.+1		;CLEAR PC FLAGS
  2849	032350	000000	032351			XWD	0,.+1
  2850	032351	200 11 0 00 033465 		MOVE	AC,[XWD 400000,000001]	;GET LARGEST NEGATIVE FP NUMBER
  2851	032352	165 11 0 00 201400 		FMPRI	AC,(1.0)	;MULTIPLY IT BY ONE
  2852	032353	316 11 0 00 033466 		CAMN	AC,[XWD 777400,0]	;CLEAR MQ LOGIC WORKING
  2853	032354	003 11 0 00 006701 		ER3	AC,6701		;NO
  2854	032355	312 11 0 00 033465 		CAME	AC,[XWD 400000,000001]	;CORRECT ANSWER
  2855	032356	003 11 0 00 006701 		ER3	AC,6701		;NO
  2856	032357	265 07 0 00 032360 		JSP	AC-2,.+1	;GET PC FLAGS
  2857	032360	603 07 0 00 640140 		TLNE	AC-2,640140	;ARE ALL FLAGS ZERO
  2858	032361	013 07 0 00 006701 		ER13	AC-2,6701	;NO, THEY SHOULD BE
  2859	032362	255 10 0 00 032364 		JOV	.+2		;EXAMINE ARCV FLAG
  2860	032363	254 00 0 00 032365 		JRST	.+2
  2861	032364	013 07 0 00 006701 		ER13	AC-2,6701	;AROV IS SET
  2862	032365	321 13 0 00 032347 		JUMPL	AC+2,P6700	;LOOP ON ERROR SWITCH
  2863					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 27-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0082

  2864					;TEST FDV
  2865					;AR=200.4,201.4,202.4
  2866					;BR=200.4,201.4,202.4
  2867					;QUOT=201400000000
  2868
  2869			000014			AC=14
  2870						SAVEAC	(1,1)^
  2871	032366	201 16 0 00 032366 		MOVEI	AC+2,.
  2872	032367	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2873	032370	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2874	032371	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2875			007000		SN=7000
  2876			177400			ZZ=177400
  2877
  2878					P7000:	REPEAT ^D3,		;TEST FDV
  2879					<SN=SN+1
  2880						ZZ=ZZ+1000
  2881						MOVSI	AC-2,201400	;SETUP FOR COMPARISON
  2882						MOVSI	AC,ZZ		;SETUP AC
  2883						MOVSI	AC-1,ZZ		;SETUP BR
  2884						FDV	AC,AC-1		;C(AC)/C(E)
  2885						CAME	AC,AC-2		;TEST QUOT
  2886						ER3	AC,7001		;FDV FAILED
  2887						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2888					>
  2889			007001		SN=SN+1
  2890			200400			ZZ=ZZ+1000
  2891	032372	205 12 0 00 201400 		MOVSI	AC-2,201400	;SETUP FOR COMPARISON
  2892	032373	205 14 0 00 200400 		MOVSI	AC,ZZ		;SETUP AC
  2893	032374	205 13 0 00 200400 		MOVSI	AC-1,ZZ		;SETUP BR
  2894	032375	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2895	032376	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2896	032377	003 14 0 00 007001 		ER3	AC,7001		;FDV FAILED
  2897	032400	321 16 0 00 032372 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2898
  2899			007002		SN=SN+1
  2900			201400			ZZ=ZZ+1000
  2901	032401	205 12 0 00 201400 		MOVSI	AC-2,201400	;SETUP FOR COMPARISON
  2902	032402	205 14 0 00 201400 		MOVSI	AC,ZZ		;SETUP AC
  2903	032403	205 13 0 00 201400 		MOVSI	AC-1,ZZ		;SETUP BR
  2904	032404	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2905	032405	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2906	032406	003 14 0 00 007001 		ER3	AC,7001		;FDV FAILED
  2907	032407	321 16 0 00 032401 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2908
  2909			007003		SN=SN+1
  2910			202400			ZZ=ZZ+1000
  2911	032410	205 12 0 00 201400 		MOVSI	AC-2,201400	;SETUP FOR COMPARISON
  2912	032411	205 14 0 00 202400 		MOVSI	AC,ZZ		;SETUP AC
  2913	032412	205 13 0 00 202400 		MOVSI	AC-1,ZZ		;SETUP BR
  2914	032413	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2915	032414	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2916	032415	003 14 0 00 007001 		ER3	AC,7001		;FDV FAILED
  2917	032416	321 16 0 00 032410 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2918
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 28
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0083

  2919					;TEST FDV
  2920					;AR=201.4,202.4,203.4
  2921					;BR=200400000000
  2922					;QUOT=202.4,203.4,204.4
  2923
  2924			000014			AC=14
  2925						SAVEAC	(1,1)^
  2926	032417	201 16 0 00 032417 		MOVEI	AC+2,.
  2927	032420	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2928	032421	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2929	032422	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2930			007100		SN=7100
  2931			201400			XX=201400
  2932			200400			ZZ=200400
  2933
  2934					P7100:	REPEAT ^D3,		;TEST FDV
  2935					<SN=SN+1
  2936						XX=XX+1000
  2937						ZZ=ZZ+1000
  2938						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2939						MOVSI	AC,ZZ		;SETUP AC
  2940						MOVSI	AC-1,200400	;SETUP BR
  2941						FDV	AC,AC-1		;C(AC)/C(E)
  2942						CAME	AC,AC-2		;TEST QUOT
  2943						ER3	AC,7101		;FDV FAILED
  2944						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2945					>
  2946			007101		SN=SN+1
  2947			202400			XX=XX+1000
  2948			201400			ZZ=ZZ+1000
  2949	032423	205 12 0 00 202400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2950	032424	205 14 0 00 201400 		MOVSI	AC,ZZ		;SETUP AC
  2951	032425	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2952	032426	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2953	032427	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2954	032430	003 14 0 00 007101 		ER3	AC,7101		;FDV FAILED
  2955	032431	321 16 0 00 032423 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2956
  2957			007102		SN=SN+1
  2958			203400			XX=XX+1000
  2959			202400			ZZ=ZZ+1000
  2960	032432	205 12 0 00 203400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2961	032433	205 14 0 00 202400 		MOVSI	AC,ZZ		;SETUP AC
  2962	032434	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  2963	032435	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2964	032436	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2965	032437	003 14 0 00 007101 		ER3	AC,7101		;FDV FAILED
  2966	032440	321 16 0 00 032432 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2967
  2968			007103		SN=SN+1
  2969			204400			XX=XX+1000
  2970			203400			ZZ=ZZ+1000
  2971	032441	205 12 0 00 204400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  2972	032442	205 14 0 00 203400 		MOVSI	AC,ZZ		;SETUP AC
  2973	032443	205 13 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 28-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0084

  2974	032444	170 14 0 00 000013 		FDV	AC,AC-1		;C(AC)/C(E)
  2975	032445	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  2976	032446	003 14 0 00 007101 		ER3	AC,7101		;FDV FAILED
  2977	032447	321 16 0 00 032441 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2978
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 29
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0085

  2979					;TEST FDV
  2980					;AR=200.6,200.7,200.74
  2981					;BR=200400000000
  2982					;QUOT=201.6,201.7,201.74
  2983
  2984			000013			AC=13
  2985						SAVEAC	(1,1)^
  2986	032450	201 15 0 00 032450 		MOVEI	AC+2,.
  2987	032451	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2988	032452	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2989	032453	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2990			007200		SN=7200
  2991			000200			WW=200
  2992			201400			XX=201400
  2993			200400			ZZ=200400
  2994
  2995					P7200:	REPEAT ^D3,		;TEST FDV
  2996					<SN=SN+1
  2997						XX=XX+WW
  2998						ZZ=ZZ+WW
  2999						WW=WW/2
  3000						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3001						MOVSI	AC,ZZ		;SETUP AC
  3002						MOVSI	AC-1,200400	;SETUP BR
  3003						FDV	AC,AC-1		;C(AC)/C(E)
  3004						CAME	AC,AC-2		;TEST QUOT
  3005						ER3	AC,SN		;FDV FAILED
  3006						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3007					>
  3008			007201		SN=SN+1
  3009			201600			XX=XX+WW
  3010			200600			ZZ=ZZ+WW
  3011			000100			WW=WW/2
  3012	032454	205 11 0 00 201600 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3013	032455	205 13 0 00 200600 		MOVSI	AC,ZZ		;SETUP AC
  3014	032456	205 12 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  3015	032457	170 13 0 00 000012 		FDV	AC,AC-1		;C(AC)/C(E)
  3016	032460	312 13 0 00 000011 		CAME	AC,AC-2		;TEST QUOT
  3017	032461	003 13 0 00 007201 		ER3	AC,SN		;FDV FAILED
  3018	032462	321 15 0 00 032454 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3019
  3020			007202		SN=SN+1
  3021			201700			XX=XX+WW
  3022			200700			ZZ=ZZ+WW
  3023			000040			WW=WW/2
  3024	032463	205 11 0 00 201700 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3025	032464	205 13 0 00 200700 		MOVSI	AC,ZZ		;SETUP AC
  3026	032465	205 12 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  3027	032466	170 13 0 00 000012 		FDV	AC,AC-1		;C(AC)/C(E)
  3028	032467	312 13 0 00 000011 		CAME	AC,AC-2		;TEST QUOT
  3029	032470	003 13 0 00 007202 		ER3	AC,SN		;FDV FAILED
  3030	032471	321 15 0 00 032463 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3031
  3032			007203		SN=SN+1
  3033			201740			XX=XX+WW
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 29-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0086

  3034			200740			ZZ=ZZ+WW
  3035			000020			WW=WW/2
  3036	032472	205 11 0 00 201740 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3037	032473	205 13 0 00 200740 		MOVSI	AC,ZZ		;SETUP AC
  3038	032474	205 12 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  3039	032475	170 13 0 00 000012 		FDV	AC,AC-1		;C(AC)/C(E)
  3040	032476	312 13 0 00 000011 		CAME	AC,AC-2		;TEST QUOT
  3041	032477	003 13 0 00 007203 		ER3	AC,SN		;FDV FAILED
  3042	032500	321 15 0 00 032472 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3043
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 30
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0087

  3044					;TEST FDV
  3045					;AR=200.4,200.6
  3046					;BR=577400000000
  3047					;QUOT=576.4,576.2
  3048
  3049			000012			AC=12
  3050						SAVEAC	(1,1)^
  3051	032501	201 14 0 00 032501 		MOVEI	AC+2,.
  3052	032502	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3053	032503	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3054	032504	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3055
  3056			007300		SN=7300
  3057			576600			XX=576600
  3058			200200			ZZ=200200
  3059
  3060					P7300:	REPEAT ^D2,		;TEST FDV
  3061					<SN=SN+1
  3062						XX=XX-200
  3063						ZZ=ZZ+200
  3064						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3065						MOVSI	AC,ZZ		;SETUP AC
  3066						MOVSI	AC-1,577400	;SETUP BR
  3067						FDV	AC,AC-1		;C(AC)/C(E)
  3068						CAME	AC,AC-2		;TEST QUOT
  3069						ER3	AC,SN		;FDV FAILED
  3070						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3071					>
  3072			007301		SN=SN+1
  3073			576400			XX=XX-200
  3074			200400			ZZ=ZZ+200
  3075	032505	205 10 0 00 576400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3076	032506	205 12 0 00 200400 		MOVSI	AC,ZZ		;SETUP AC
  3077	032507	205 11 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  3078	032510	170 12 0 00 000011 		FDV	AC,AC-1		;C(AC)/C(E)
  3079	032511	312 12 0 00 000010 		CAME	AC,AC-2		;TEST QUOT
  3080	032512	003 12 0 00 007301 		ER3	AC,SN		;FDV FAILED
  3081	032513	321 14 0 00 032505 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3082
  3083			007302		SN=SN+1
  3084			576200			XX=XX-200
  3085			200600			ZZ=ZZ+200
  3086	032514	205 10 0 00 576200 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3087	032515	205 12 0 00 200600 		MOVSI	AC,ZZ		;SETUP AC
  3088	032516	205 11 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  3089	032517	170 12 0 00 000011 		FDV	AC,AC-1		;C(AC)/C(E)
  3090	032520	312 12 0 00 000010 		CAME	AC,AC-2		;TEST QUOT
  3091	032521	003 12 0 00 007302 		ER3	AC,SN		;FDV FAILED
  3092	032522	321 14 0 00 032514 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3093
  3094					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 30-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0088

  3095					;TEST FDV
  3096					;AR=177400000000
  3097					;BR=204400000000
  3098					;QUOT=1744000000
  3099
  3100
  3101			000011			AC=11
  3102						SAVEAC (1,1)^
  3103	032523	201 13 0 00 032523 		MOVEI	AC+2,.
  3104	032524	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3105	032525	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3106	032526	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3107
  3108	032527	205 07 0 00 174400 	P7400:	MOVSI	AC-2,174400	;SETUP FOR COMPARISON
  3109	032530	205 11 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  3110	032531	205 10 0 00 204400 		MOVSI	AC-1,204400	;SETUP BR
  3111	032532	170 11 0 00 000010 		FDV	AC,AC-1		;C(AC)/C(E)
  3112	032533	312 11 0 00 000007 		CAME	AC,AC-2		;TEST QUOT
  3113	032534	003 11 0 00 007401 		ER3	AC,7401		;FDV FAILED
  3114	032535	321 13 0 00 032527 		JUMPL	AC+2,P7400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 31
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0089

  3115					;TEST FDV
  3116					;AR=576400000000
  3117					;BR=200600000000
  3118					;QUOT=576252525252
  3119
  3120			000010			AC=10
  3121						SAVEAC (1,1)^
  3122	032536	201 12 0 00 032536 		MOVEI	AC+2,.
  3123	032537	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3124	032540	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3125	032541	202 12 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3126
  3127	032542	505 06 0 00 576252 	P7500:	HRLI	AC-2,576252	;SETUP AC-2
  3128	032543	541 06 0 00 525252 		HRRI	AC-2,525252	;FOR COMPARISON
  3129	032544	205 10 0 00 576400 		MOVSI	AC,576400	;SETUP AC
  3130	032545	205 07 0 00 200600 		MOVSI	AC-1,200600	;SETUP BR
  3131	032546	170 10 0 00 000007 		FDV	AC,AC-1		;C(AC)/C(E)
  3132	032547	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT
  3133	032550	003 10 0 00 007501 		ER3	AC,7501		;FDV FAILED
  3134	032551	321 12 0 00 032542 		JUMPL	AC+2,P7500	;LOOP ON ERROR SWITCH
  3135					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 31-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0090

  3136					;TEST FDV
  3137					;AR=600.6,600.4
  3138					;BR=577400000000
  3139					;QUOT=177.4,200.4
  3140
  3141
  3142			000007			AC=7
  3143						SAVEAC	(1,1)^
  3144	032552	201 11 0 00 032552 		MOVEI	AC+2,.
  3145	032553	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3146	032554	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3147	032555	202 11 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3148			007600		SN=7600
  3149			176400			XX=176400
  3150			601000			ZZ=601000
  3151
  3152					P7600:	REPEAT ^D2,		;TEST FDV
  3153					<SN=SN+1
  3154						XX=XX+1000
  3155						ZZ=ZZ-200
  3156						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3157						MOVSI	AC,ZZ		;SETUP AC
  3158						MOVSI	AC-1,577400	;SETUP BR
  3159						FDV	AC,AC-1		;C(AC)/C(E)
  3160						CAME	AC,AC-2		;TEST QUOT
  3161						ER3	AC,SN		;FDV FAILED
  3162						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3163					>
  3164			007601		SN=SN+1
  3165			177400			XX=XX+1000
  3166			600600			ZZ=ZZ-200
  3167	032556	205 05 0 00 177400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3168	032557	205 07 0 00 600600 		MOVSI	AC,ZZ		;SETUP AC
  3169	032560	205 06 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  3170	032561	170 07 0 00 000006 		FDV	AC,AC-1		;C(AC)/C(E)
  3171	032562	312 07 0 00 000005 		CAME	AC,AC-2		;TEST QUOT
  3172	032563	003 07 0 00 007601 		ER3	AC,SN		;FDV FAILED
  3173	032564	321 11 0 00 032556 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3174
  3175			007602		SN=SN+1
  3176			200400			XX=XX+1000
  3177			600400			ZZ=ZZ-200
  3178	032565	205 05 0 00 200400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  3179	032566	205 07 0 00 600400 		MOVSI	AC,ZZ		;SETUP AC
  3180	032567	205 06 0 00 577400 		MOVSI	AC-1,577400	;SETUP BR
  3181	032570	170 07 0 00 000006 		FDV	AC,AC-1		;C(AC)/C(E)
  3182	032571	312 07 0 00 000005 		CAME	AC,AC-2		;TEST QUOT
  3183	032572	003 07 0 00 007602 		ER3	AC,SN		;FDV FAILED
  3184	032573	321 11 0 00 032565 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3185
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 32
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0091

  3186					;TEST FDV
  3187					;AR=377400777777
  3188					;BR=577400777777
  3189					;QUOT=777375773771
  3190
  3191			000006			AC=6
  3192						SAVEAC (1,1)^
  3193	032574	201 10 0 00 032574 		MOVEI	AC+2,.
  3194	032575	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3195	032576	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3196	032577	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3197
  3198	032600	505 04 0 00 777375 	P7700:	HRLI	AC-2,777375	;SETUP AC-2
  3199	032601	541 04 0 00 773771 		HRRI	AC-2,773771	;FOR COMPARISON
  3200	032602	505 06 0 00 377400 		HRLI	AC,377400	;SETUP
  3201	032603	541 06 0 00 777777 		HRRI	AC,-1		;AC
  3202	032604	505 05 0 00 577400 		HRLI	AC-1,577400	;SETUP
  3203	032605	541 05 0 00 777777 		HRRI	AC-1,-1		;BR
  3204	032606	170 06 0 00 000005 		FDV	AC,AC-1		;C(AC)/C(E)
  3205	032607	312 06 0 00 000004 		CAME	AC,AC-2		;TEST QUOT
  3206	032610	003 06 0 00 007701 		ER3	AC,7701		;FDV FAILED
  3207	032611	312 05 0 00 033467 		CAME	AC-1,[577400,,-1]	;EXAMINE C(E)
  3208	032612	005 05 0 00 007701 		ER5	AC-1,7701	;C(E) WAS CLOBBERED
  3209	032613	321 10 0 00 032600 		JUMPL	AC+2,P7700	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 33
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0092

  3210					;TEST ECO49
  3211					;TEST FDV DIVIDE CHECK
  3212					;AR=201400000000, 1.0
  3213					;BR=0
  3214					;FLAGS=440040
  3215
  3216			000006			AC=6
  3217						SAVEAC	(1,1)^
  3218	032614	201 10 0 00 032614 		MOVEI	AC+2,.
  3219	032615	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3220	032616	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3221	032617	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3222
  3223	032620	254 02 1 00 032621 	P10000:	JRST	2,@.+1		;CLEAR PC FLAGS
  3224	032621	000000	032622			XWD	0,.+1
  3225	032622	205 06 0 00 201400 		MOVSI	AC,201400	;SETUP DVND
  3226	032623	201 05 0 00 000000 		MOVEI	AC-1,0		;SETUP DVSR
  3227	032624	170 06 0 00 000005 		FDV	AC,AC-1		;FLOATING DIVIDE 1.0 BY 0
  3228	032625	265 04 0 00 032626 		JSP	AC-2,.+1	;STORE PC AND FLAGS
  3229	032626	607 04 0 00 000040 		TLNN	AC-2,40		;TEST BIT 12
  3230	032627	013 04 0 00 010001 		ER13	AC-2,10001	;AR DCK FAILED TO SET
  3231	032630	321 10 0 00 032620 		JUMPL	AC+2,P10000	;LOOP ON ERROR SWITCH
  3232
  3233
  3234					;TEST ECO49
  3235					;TEST UNDERFLOW
  3236					;AR=377400000000
  3237					;BR=000400000000
  3238					;FLAGS=440000
  3239
  3240			000006			AC=6
  3241						SAVEAC	(1,1)^
  3242	032631	201 10 0 00 032631 		MOVEI	AC+2,.
  3243	032632	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3244	032633	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3245	032634	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3246
  3247	032635	254 02 1 00 032636 	P10100:	JRST	2,@.+1		;CLEAR PC FLAGS
  3248	032636	000000	032637			XWD	0,.+1
  3249	032637	205 06 0 00 377400 		MOVSI	AC,377400	;SETUP DVND
  3250	032640	205 05 0 00 000400 		MOVSI	AC-1,000400	;SETUP DVSR
  3251	032641	170 06 0 00 000005 		FDV	AC,AC-1		;FLOATING DIVIDE
  3252	032642	265 04 0 00 032643 		JSP	AC-2,.+1	;GET PC FLAGS
  3253	032643	603 04 0 00 000100 		TLNE	AC-2,FXU	;UNDERFLOW SHOULD BE 0
  3254	032644	013 04 0 00 010101 		ER13	AC-2,10101	;ERROR
  3255	032645	321 10 0 00 032635 		JUMPL	AC+2,P10100	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 34
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0093

  3256					;TEST FDVM
  3257					;AR=577775000000,577774000000
  3258					;BR=577777000000
  3259					;QUOT=577777000000
  3260
  3261			000005			AC=5
  3262						SAVEAC	(1,1)^
  3263	032646	201 07 0 00 032646 		MOVEI	AC+2,.
  3264	032647	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3265	032650	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3266	032651	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3267			010200		SN=10200
  3268			577776			ZZ=577776
  3269
  3270					P10200:	REPEAT ^D2,		;TEST FDVM
  3271					<SN=SN+1
  3272						ZZ=ZZ-1
  3273						MOVSI	AC-2,577777	;SETUP FOR COMPARISON
  3274						MOVSI	AC,ZZ		;SETUP AC
  3275						MOVSI	AC-1,577777	;SETUP BR
  3276						FDVM	AC,AC-1		;C(AC)/C(E)
  3277						CAME	AC-1,AC-2	;TEST QUOT
  3278						ER5	AC-1,SN		;FDVM FAILED
  3279						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3280					>
  3281			010201		SN=SN+1
  3282			577775			ZZ=ZZ-1
  3283	032652	205 03 0 00 577777 		MOVSI	AC-2,577777	;SETUP FOR COMPARISON
  3284	032653	205 05 0 00 577775 		MOVSI	AC,ZZ		;SETUP AC
  3285	032654	205 04 0 00 577777 		MOVSI	AC-1,577777	;SETUP BR
  3286	032655	172 05 0 00 000004 		FDVM	AC,AC-1		;C(AC)/C(E)
  3287	032656	312 04 0 00 000003 		CAME	AC-1,AC-2	;TEST QUOT
  3288	032657	005 04 0 00 010201 		ER5	AC-1,SN		;FDVM FAILED
  3289	032660	321 07 0 00 032652 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3290
  3291			010202		SN=SN+1
  3292			577774			ZZ=ZZ-1
  3293	032661	205 03 0 00 577777 		MOVSI	AC-2,577777	;SETUP FOR COMPARISON
  3294	032662	205 05 0 00 577774 		MOVSI	AC,ZZ		;SETUP AC
  3295	032663	205 04 0 00 577777 		MOVSI	AC-1,577777	;SETUP BR
  3296	032664	172 05 0 00 000004 		FDVM	AC,AC-1		;C(AC)/C(E)
  3297	032665	312 04 0 00 000003 		CAME	AC-1,AC-2	;TEST QUOT
  3298	032666	005 04 0 00 010202 		ER5	AC-1,SN		;FDVM FAILED
  3299	032667	321 07 0 00 032661 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3300
  3301					PAGE
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 34-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0094

  3302					;TEST FDVM
  3303					;AR=210777777777
  3304					;BR=170750000000
  3305					;QUOT=221414456123
  3306
  3307			000014			AC=14
  3308						SAVEAC (1,1)^
  3309	032670	201 16 0 00 032670 		MOVEI	AC+2,.
  3310	032671	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3311	032672	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3312	032673	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3313
  3314	032674	505 12 0 00 221414 	P10300:	HRLI	AC-2,221414	;SETUP AC-2
  3315	032675	541 12 0 00 456123 		HRRI	AC-2,456123	;FOR COMPARISON
  3316	032676	505 14 0 00 210777 		HRLI	AC,210777	;SETUP
  3317	032677	541 14 0 00 777777 		HRRI	AC,-1		;AC
  3318	032700	205 13 0 00 170750 		MOVSI	AC-1,170750	;SETUP BR
  3319	032701	172 14 0 00 000013 		FDVM	AC,AC-1		;C(AC)/C(E)
  3320	032702	312 14 0 00 033470 		CAME	AC,[210777,,-1]	;EXAMINE C(AC)
  3321	032703	003 14 0 00 010301 		ER3	AC,10301	;C(AC) WAS CLOBBERED
  3322	032704	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST QUOT
  3323	032705	005 13 0 00 010301 		ER5	AC-1,10301	;FDVM FAILED
  3324	032706	321 16 0 00 032674 		JUMPL	AC+2,P10300	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 35
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0095

  3325					;TEST FDVB
  3326					;AR=210777777777
  3327					;BR=170555000000
  3328					;QUOT=221547063714
  3329
  3330			000014			AC=14
  3331						SAVEAC (1,1)^
  3332	032707	201 16 0 00 032707 		MOVEI	AC+2,.
  3333	032710	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3334	032711	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3335	032712	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3336
  3337	032713	505 12 0 00 221547 	P10400:	HRLI	AC-2,221547	;SETUP AC-2
  3338	032714	541 12 0 00 063714 		HRRI	AC-2,63714	;FOR COMPARISON
  3339	032715	505 14 0 00 210777 		HRLI	AC,210777	;SETUP
  3340	032716	541 14 0 00 777777 		HRRI	AC,-1		;AC
  3341	032717	205 13 0 00 170555 		MOVSI	AC-1,170555	;SETUP BR
  3342	032720	173 14 0 00 000013 		FDVB	AC,AC-1		;C(AC)/C(E)
  3343	032721	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT(AC)
  3344	032722	003 14 0 00 010401 		ER3	AC,10401	;C(AC) FAILED
  3345	032723	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3346	032724	005 13 0 00 010401 		ER5	AC-1,10401	;FDVB FAILED
  3347	032725	321 16 0 00 032713 		JUMPL	AC+2,P10400	;LOOP ON ERROR SWITCH
  3348
  3349					;TEST FDVB
  3350					;AR=577000555555
  3351					;BR=200400000000
  3352					;QUOT=576000555555
  3353
  3354			000013			AC=13
  3355						SAVEAC (1,1)^
  3356	032726	201 15 0 00 032726 		MOVEI	AC+2,.
  3357	032727	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3358	032730	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3359	032731	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3360
  3361	032732	505 11 0 00 576000 	P10500:	HRLI	AC-2,576000	;SETUP AC-2
  3362	032733	541 11 0 00 555555 		HRRI	AC-2,555555	;FOR COMPARISON
  3363	032734	505 13 0 00 577000 		HRLI	AC,577000	;SETUP
  3364	032735	541 13 0 00 555555 		HRRI	AC,555555	;AC
  3365	032736	205 12 0 00 200400 		MOVSI	AC-1,200400	;SETUP BR
  3366	032737	173 13 0 00 000012 		FDVB	AC,AC-1		;C(AC)/C(E)
  3367	032740	312 13 0 00 000011 		CAME	AC,AC-2		;TEST QUOT(AC)
  3368	032741	003 13 0 00 010501 		ER3	AC,10501	;C(AC) FAILED
  3369	032742	312 12 0 00 000011 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3370	032743	005 12 0 00 010501 		ER5	AC-1,10501	;FDVB FAILED
  3371	032744	321 15 0 00 032732 		JUMPL	AC+2,P10500	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 36
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0096

  3372					;TEST FDVR
  3373					;AR=200777777777
  3374					;BR=200777777776,200777777774
  3375					;QUOT=201400000001,201400000002
  3376
  3377			000006			AC=6
  3378						SAVEAC	(1,1)^
  3379	032745	201 10 0 00 032745 		MOVEI	AC+2,.
  3380	032746	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3381	032747	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3382	032750	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3383
  3384			011200		SN=11200
  3385			000000			XX=0
  3386			000002			ZZ=2
  3387
  3388					P11200:	REPEAT ^D2,		;TEST FDVR
  3389					<SN=SN+1
  3390						XX=XX+1
  3391						ZZ=ZZ-2
  3392						IFE	ZZ,<ZZ=-2>
  3393						HRLI	AC-2,201400	;SETUP AC-2
  3394						HRRI	AC-2,XX		;FOR COMPARISON
  3395						HRLI	AC,200777	;SETUP
  3396						HRRI	AC,-1		;AC
  3397						HRLI	AC-1,200777	;SETUP
  3398						HRRI	AC-1,ZZ		;BR
  3399						FDVR	AC,AC-1		;C(AC)/C(E)
  3400						CAME	AC,AC-2		;TEST QUOT
  3401						ER3	AC,SN		;FDVR FAILED
  3402						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3403					>
  3404			011201		SN=SN+1
  3405			000001			XX=XX+1
  3406			000000			ZZ=ZZ-2
  3407		777777	777776			IFE	ZZ,<ZZ=-2>
  3408	032751	505 04 0 00 201400 		HRLI	AC-2,201400	;SETUP AC-2
  3409	032752	541 04 0 00 000001 		HRRI	AC-2,XX		;FOR COMPARISON
  3410	032753	505 06 0 00 200777 		HRLI	AC,200777	;SETUP
  3411	032754	541 06 0 00 777777 		HRRI	AC,-1		;AC
  3412	032755	505 05 0 00 200777 		HRLI	AC-1,200777	;SETUP
  3413	032756	541 05 0 00 777776 		HRRI	AC-1,ZZ		;BR
  3414	032757	174 06 0 00 000005 		FDVR	AC,AC-1		;C(AC)/C(E)
  3415	032760	312 06 0 00 000004 		CAME	AC,AC-2		;TEST QUOT
  3416	032761	003 06 0 00 011201 		ER3	AC,SN		;FDVR FAILED
  3417	032762	321 10 0 00 032751 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3418
  3419			011202		SN=SN+1
  3420			000002			XX=XX+1
  3421		777777	777774			ZZ=ZZ-2
  3422						IFE	ZZ,<ZZ=-2>
  3423	032763	505 04 0 00 201400 		HRLI	AC-2,201400	;SETUP AC-2
  3424	032764	541 04 0 00 000002 		HRRI	AC-2,XX		;FOR COMPARISON
  3425	032765	505 06 0 00 200777 		HRLI	AC,200777	;SETUP
  3426	032766	541 06 0 00 777777 		HRRI	AC,-1		;AC
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 36-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0097

  3427	032767	505 05 0 00 200777 		HRLI	AC-1,200777	;SETUP
  3428	032770	541 05 0 00 777774 		HRRI	AC-1,ZZ		;BR
  3429	032771	174 06 0 00 000005 		FDVR	AC,AC-1		;C(AC)/C(E)
  3430	032772	312 06 0 00 000004 		CAME	AC,AC-2		;TEST QUOT
  3431	032773	003 06 0 00 011202 		ER3	AC,SN		;FDVR FAILED
  3432	032774	321 10 0 00 032763 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3433
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 37
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0098

  3434					;TEST FDVR
  3435					;AR=210777777777
  3436					;BR=170555000000
  3437					;QUOT=221547063715
  3438
  3439			000005			AC=5
  3440						SAVEAC (1,1)^
  3441	032775	201 07 0 00 032775 		MOVEI	AC+2,.
  3442	032776	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3443	032777	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3444	033000	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3445
  3446	033001	505 03 0 00 221547 	P11300:	HRLI	AC-2,221547	;SETUP AC-2
  3447	033002	541 03 0 00 063715 		HRRI	AC-2,63715	;FOR COMPARISON
  3448	033003	505 05 0 00 210777 		HRLI	AC,210777	;SETUP
  3449	033004	541 05 0 00 777777 		HRRI	AC,-1		;AC
  3450	033005	205 04 0 00 170555 		MOVSI	AC-1,170555	;SETUP BR
  3451	033006	174 05 0 00 000004 		FDVR	AC,AC-1		;C(AC)/C(E)
  3452	033007	312 05 0 00 000003 		CAME	AC,AC-2		;TEST QUOT
  3453	033010	003 05 0 00 011301 		ER3	AC,11301	;FDVR FAILED
  3454	033011	321 07 0 00 033001 		JUMPL	AC+2,P11300	;LOOP ON ERROR SWITCH
  3455
  3456					;TEST FDVR
  3457					;AR=210777777776
  3458					;BR=170555000000
  3459					;QUOT=221547063714(NOT ROUND)
  3460
  3461			000014			AC=14
  3462						SAVEAC	(1,1)^
  3463	033012	201 16 0 00 033012 		MOVEI	AC+2,.
  3464	033013	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3465	033014	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3466	033015	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3467
  3468	033016	505 12 0 00 221547 	P11400:	HRLI	AC-2,221547	;SETUP AC-2
  3469	033017	541 12 0 00 063714 		HRRI	AC-2,63714	;FOR COMPARISON
  3470	033020	505 14 0 00 210777 		HRLI	AC,210777	;SETUP
  3471	033021	541 14 0 00 777776 		HRRI	AC,-2		;AC
  3472	033022	205 13 0 00 170555 		MOVSI	AC-1,170555	;SETUP BR
  3473	033023	174 14 0 00 000013 		FDVR	AC,AC-1		;C(AC)/C(E)
  3474	033024	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  3475	033025	003 14 0 00 011401 		ER3	AC,11401	;FDVR FAILED
  3476	033026	321 16 0 00 033016 		JUMPL	AC+2,P11400	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 38
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0099

  3477					;TEST FDVR
  3478					;AR=210777777777
  3479					;BR=170555600000
  3480					;QUOT=221546272703
  3481
  3482			000014			AC=14
  3483						SAVEAC (1,1)^
  3484	033027	201 16 0 00 033027 		MOVEI	AC+2,.
  3485	033030	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3486	033031	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3487	033032	202 16 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3488
  3489	033033	505 12 0 00 221546 	P11500:	HRLI	AC-2,221546	;SETUP AC-2
  3490	033034	541 12 0 00 272703 		HRRI	AC-2,272703	;FOR COMPARISON
  3491	033035	505 14 0 00 210777 		HRLI	AC,210777	;SETUP
  3492	033036	541 14 0 00 777777 		HRRI	AC,-1		;AC
  3493	033037	505 13 0 00 170555 		HRLI	AC-1,170555	;SETUP
  3494	033040	541 13 0 00 600000 		HRRI	AC-1,600000	;BR
  3495	033041	174 14 0 00 000013 		FDVR	AC,AC-1		;C(AC)/C(E)
  3496	033042	312 14 0 00 000012 		CAME	AC,AC-2		;TEST QUOT
  3497	033043	003 14 0 00 011501 		ER3	AC,11501	;FDVR FAILED
  3498	033044	312 13 0 00 033471 		CAME	AC-1,[170555,,600000] ;EXAMINE C(E)
  3499	033045	005 13 0 00 011501 		ER5	AC-1,11501	;C(E) WAS CLOBBERED
  3500	033046	321 16 0 00 033033 		JUMPL	AC+2,P11500	;LOOP ON ERROR SWITCH
  3501
  3502					;TEST FDVRM
  3503					;AR=210777777777
  3504					;BR=170557000000
  3505					;QUOT=221545111741
  3506
  3507			000013			AC=13
  3508						SAVEAC (1,1)^
  3509	033047	201 15 0 00 033047 		MOVEI	AC+2,.
  3510	033050	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3511	033051	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3512	033052	202 15 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3513
  3514	033053	505 11 0 00 221545 	P11600:	HRLI	AC-2,221545	;SETUP AC-2
  3515	033054	541 11 0 00 111741 		HRRI	AC-2,111741	;FOR COMPARISON
  3516	033055	505 13 0 00 210777 		HRLI	AC,210777	;SETUP
  3517	033056	541 13 0 00 777777 		HRRI	AC,-1		;AC
  3518	033057	205 12 0 00 170557 		MOVSI	AC-1,170557	;SETUP BR
  3519	033060	176 13 0 00 000012 		FDVRM	AC,AC-1		;C(AC)/C(E)
  3520	033061	312 12 0 00 000011 		CAME	AC-1,AC-2	;TEST QUOT
  3521	033062	005 12 0 00 011601 		ER5	AC-1,11601	;FDVRM FAILED
  3522	033063	321 15 0 00 033053 		JUMPL	AC+2,P11600	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 39
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0100

  3523					;TEST FDVRM
  3524					;AR=210777777777
  3525					;BR=170560000000
  3526					;QUOT=221544131026
  3527
  3528			000012			AC=12
  3529						SAVEAC (1,1)^
  3530	033064	201 14 0 00 033064 		MOVEI	AC+2,.
  3531	033065	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3532	033066	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3533	033067	202 14 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3534
  3535	033070	505 10 0 00 221544 	P11700:	HRLI	AC-2,221544	;SETUP AC-2
  3536	033071	541 10 0 00 131026 		HRRI	AC-2,131026	;FOR COMPARISON
  3537	033072	505 12 0 00 210777 		HRLI	AC,210777	;SETUP
  3538	033073	541 12 0 00 777777 		HRRI	AC,-1		;AC
  3539	033074	205 11 0 00 170560 		MOVSI	AC-1,170560	;SETUP BR
  3540	033075	176 12 0 00 000011 		FDVRM	AC,AC-1		;C(AC)/C(E)
  3541	033076	312 12 0 00 033470 		CAME	AC,[210777,,-1]	;EXAMINE C(AC)
  3542	033077	003 12 0 00 011701 		ER3	AC,11701	;C(AC) WAS CLOBBERED
  3543	033100	312 11 0 00 000010 		CAME	AC-1,AC-2	;TEST QUOT
  3544	033101	005 11 0 00 011701 		ER5	AC-1,11701	;FDVRM FAILED
  3545	033102	321 14 0 00 033070 		JUMPL	AC+2,P11700	;LOOP ON ERROR SWITCH
  3546
  3547					;TEST FDVRB
  3548					;AR=377400000000
  3549					;BR=100777000000
  3550					;QUOT=077400400401
  3551
  3552			000011			AC=11
  3553						SAVEAC (1,1)^
  3554	033103	201 13 0 00 033103 		MOVEI	AC+2,.
  3555	033104	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3556	033105	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3557	033106	202 13 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3558
  3559	033107	505 07 0 00 077400 	P12000:	HRLI	AC-2,77400	;SETUP AC-2
  3560	033110	541 07 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3561	033111	205 11 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  3562	033112	205 10 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3563	033113	177 11 0 00 000010 		FDVRB	AC,AC-1		;C(AC(/C(E)
  3564	033114	316 11 0 00 000007 		CAMN	AC,AC-2		;TEST QUOT(AC)
  3565	033115	312 10 0 00 000007 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3566	033116	005 10 0 00 012001 		ER5	AC-1,12001	;FDVRB FAILED
  3567	033117	321 13 0 00 033107 		JUMPL	AC+2,P12000	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 40
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0101

  3568					;TEST FDVRB
  3569					;AR=376.4,375.4,374.4,373.4,372.4
  3570					;BR=100777000000
  3571					;QUOT=076,075,074,073,072:400400401
  3572
  3573			000010			AC=10
  3574						SAVEAC	(1,1)^
  3575	033120	201 12 0 00 033120 		MOVEI	AC+2,.
  3576	033121	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3577	033122	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3578	033123	202 12 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3579
  3580			012100		SN=12100
  3581			077400			XX=77400
  3582			377400			ZZ=377400
  3583
  3584					P12100:	REPEAT ^D5,		;TEST FDVRB
  3585					<SN=SN+1
  3586						XX=XX-1000
  3587						ZZ=ZZ-1000
  3588						HRLI	AC-2,XX		;SETUP AC-2
  3589						HRRI	AC-2,400401	;FOR COMPARISON
  3590						MOVSI	AC,ZZ		;SETUP AC
  3591						MOVSI	AC-1,100777	;SETUP BR
  3592						FDVRB	AC,AC-1		;C(AC)/C(E)
  3593						CAME	AC,AC-2		;TEST QUOT(AC)
  3594						ER3	AC,SN		;C(AC) FAILED
  3595						CAME	AC-1,AC-2	;TEST QUOT(E)
  3596						ER5	AC-1,SN		;FDVRB FAILED
  3597						JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3598					>
  3599			012101		SN=SN+1
  3600			076400			XX=XX-1000
  3601			376400			ZZ=ZZ-1000
  3602	033124	505 06 0 00 076400 		HRLI	AC-2,XX		;SETUP AC-2
  3603	033125	541 06 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3604	033126	205 10 0 00 376400 		MOVSI	AC,ZZ		;SETUP AC
  3605	033127	205 07 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3606	033130	177 10 0 00 000007 		FDVRB	AC,AC-1		;C(AC)/C(E)
  3607	033131	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT(AC)
  3608	033132	003 10 0 00 012101 		ER3	AC,SN		;C(AC) FAILED
  3609	033133	312 07 0 00 000006 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3610	033134	005 07 0 00 012101 		ER5	AC-1,SN		;FDVRB FAILED
  3611	033135	321 12 0 00 033124 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3612
  3613			012102		SN=SN+1
  3614			075400			XX=XX-1000
  3615			375400			ZZ=ZZ-1000
  3616	033136	505 06 0 00 075400 		HRLI	AC-2,XX		;SETUP AC-2
  3617	033137	541 06 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3618	033140	205 10 0 00 375400 		MOVSI	AC,ZZ		;SETUP AC
  3619	033141	205 07 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3620	033142	177 10 0 00 000007 		FDVRB	AC,AC-1		;C(AC)/C(E)
  3621	033143	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT(AC)
  3622	033144	003 10 0 00 012102 		ER3	AC,SN		;C(AC) FAILED
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 40-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0102

  3623	033145	312 07 0 00 000006 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3624	033146	005 07 0 00 012102 		ER5	AC-1,SN		;FDVRB FAILED
  3625	033147	321 12 0 00 033136 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3626
  3627			012103		SN=SN+1
  3628			074400			XX=XX-1000
  3629			374400			ZZ=ZZ-1000
  3630	033150	505 06 0 00 074400 		HRLI	AC-2,XX		;SETUP AC-2
  3631	033151	541 06 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3632	033152	205 10 0 00 374400 		MOVSI	AC,ZZ		;SETUP AC
  3633	033153	205 07 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3634	033154	177 10 0 00 000007 		FDVRB	AC,AC-1		;C(AC)/C(E)
  3635	033155	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT(AC)
  3636	033156	003 10 0 00 012103 		ER3	AC,SN		;C(AC) FAILED
  3637	033157	312 07 0 00 000006 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3638	033160	005 07 0 00 012103 		ER5	AC-1,SN		;FDVRB FAILED
  3639	033161	321 12 0 00 033150 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3640
  3641			012104		SN=SN+1
  3642			073400			XX=XX-1000
  3643			373400			ZZ=ZZ-1000
  3644	033162	505 06 0 00 073400 		HRLI	AC-2,XX		;SETUP AC-2
  3645	033163	541 06 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3646	033164	205 10 0 00 373400 		MOVSI	AC,ZZ		;SETUP AC
  3647	033165	205 07 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3648	033166	177 10 0 00 000007 		FDVRB	AC,AC-1		;C(AC)/C(E)
  3649	033167	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT(AC)
  3650	033170	003 10 0 00 012104 		ER3	AC,SN		;C(AC) FAILED
  3651	033171	312 07 0 00 000006 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3652	033172	005 07 0 00 012104 		ER5	AC-1,SN		;FDVRB FAILED
  3653	033173	321 12 0 00 033162 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3654
  3655			012105		SN=SN+1
  3656			072400			XX=XX-1000
  3657			372400			ZZ=ZZ-1000
  3658	033174	505 06 0 00 072400 		HRLI	AC-2,XX		;SETUP AC-2
  3659	033175	541 06 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3660	033176	205 10 0 00 372400 		MOVSI	AC,ZZ		;SETUP AC
  3661	033177	205 07 0 00 100777 		MOVSI	AC-1,100777	;SETUP BR
  3662	033200	177 10 0 00 000007 		FDVRB	AC,AC-1		;C(AC)/C(E)
  3663	033201	312 10 0 00 000006 		CAME	AC,AC-2		;TEST QUOT(AC)
  3664	033202	003 10 0 00 012105 		ER3	AC,SN		;C(AC) FAILED
  3665	033203	312 07 0 00 000006 		CAME	AC-1,AC-2	;TEST QUOT(E)
  3666	033204	005 07 0 00 012105 		ER5	AC-1,SN		;FDVRB FAILED
  3667	033205	321 12 0 00 033174 		JUMPL	AC+2,.-^D9	;LOOP ON ERROR SWITCH
  3668
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 41
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0103

  3669					;TEST FDVRI
  3670					;AR=210777000000
  3671					;E=210777
  3672					;QUOT=201400000000
  3673
  3674			000007			AC=7
  3675						SAVEAC (1,1)^
  3676	033206	201 11 0 00 033206 		MOVEI	AC+2,.
  3677	033207	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3678	033210	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3679	033211	202 11 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3680
  3681	033212	205 05 0 00 201400 	P12200:	MOVSI	AC-2,201400	;SETUP FOR COMPARISON
  3682	033213	205 07 0 00 210777 		MOVSI	AC,210777	;SETUP AC
  3683	033214	175 07 0 00 210777 		FDVRI	AC,210777	;C(AC)/E
  3684	033215	312 07 0 00 000005 		CAME	AC,AC-2		;TEST QUOT
  3685	033216	003 07 0 00 012201 		ER3	AC,12201	;FDVRI FAILED
  3686	033217	321 11 0 00 033212 		JUMPL	AC+2,P12200	;LOOP ON ERROR SWITCH
  3687
  3688					;TEST FDVRI
  3689					;AR=200400000000
  3690					;E=210777
  3691					;QUOT=170400400401
  3692
  3693			000006			AC=6
  3694						SAVEAC (1,1)^
  3695	033220	201 10 0 00 033220 		MOVEI	AC+2,.
  3696	033221	202 10 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3697	033222	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3698	033223	202 10 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3699
  3700	033224	505 04 0 00 170400 	P12300:	HRLI	AC-2,170400	;SETUP AC-2
  3701	033225	541 04 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3702	033226	205 06 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  3703	033227	175 06 0 00 210777 		FDVRI	AC,210777	;C(AC)/E
  3704	033230	312 06 0 00 000004 		CAME	AC,AC-2		;TEST QUOT
  3705	033231	003 06 0 00 012301 		ER3	AC,12301	;FDVRI FAILED
  3706	033232	321 10 0 00 033224 		JUMPL	AC+2,P12300	;LOOP ON ERROR SWITCH
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 42
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0104

  3707					;TEST FDVRI
  3708					;AR=371.4,370.4,367.4
  3709					;E=100777
  3710					;QUOT=071,070,067:400400401
  3711
  3712			000005			AC=5
  3713						SAVEAC	(1,1)^
  3714	033233	201 07 0 00 033233 		MOVEI	AC+2,.
  3715	033234	202 07 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3716	033235	201 07 0 00 000007 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3717	033236	202 07 0 00 033652 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3718
  3719			012400		SN=12400
  3720			072400			XX=72400
  3721			372400			ZZ=372400
  3722
  3723					P12400:	REPEAT ^D3,		;TEST FDVRI
  3724					<SN=SN+1
  3725						XX=XX-1000
  3726						ZZ=ZZ-1000
  3727						HRLI	AC-2,XX		;SETUP AC-2
  3728						HRRI	AC-2,400401	;FOR COMPARISON
  3729						MOVSI	AC,ZZ		;SETUP AC
  3730						FDVRI	AC,100777	;C(AC)/E
  3731						CAME	AC,AC-2		;TEST QUOT
  3732						ER3	AC,SN		;FDVRI FAILED
  3733						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3734					>
  3735			012401		SN=SN+1
  3736			071400			XX=XX-1000
  3737			371400			ZZ=ZZ-1000
  3738	033237	505 03 0 00 071400 		HRLI	AC-2,XX		;SETUP AC-2
  3739	033240	541 03 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3740	033241	205 05 0 00 371400 		MOVSI	AC,ZZ		;SETUP AC
  3741	033242	175 05 0 00 100777 		FDVRI	AC,100777	;C(AC)/E
  3742	033243	312 05 0 00 000003 		CAME	AC,AC-2		;TEST QUOT
  3743	033244	003 05 0 00 012401 		ER3	AC,SN		;FDVRI FAILED
  3744	033245	321 07 0 00 033237 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3745
  3746			012402		SN=SN+1
  3747			070400			XX=XX-1000
  3748			370400			ZZ=ZZ-1000
  3749	033246	505 03 0 00 070400 		HRLI	AC-2,XX		;SETUP AC-2
  3750	033247	541 03 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
  3751	033250	205 05 0 00 370400 		MOVSI	AC,ZZ		;SETUP AC
  3752	033251	175 05 0 00 100777 		FDVRI	AC,100777	;C(AC)/E
  3753	033252	312 05 0 00 000003 		CAME	AC,AC-2		;TEST QUOT
  3754	033253	003 05 0 00 012402 		ER3	AC,SN		;FDVRI FAILED
  3755	033254	321 07 0 00 033246 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3756
  3757			012403		SN=SN+1
  3758			067400			XX=XX-1000
  3759			367400			ZZ=ZZ-1000
  3760	033255	505 03 0 00 067400 		HRLI	AC-2,XX		;SETUP AC-2
  3761	033256	541 03 0 00 400401 		HRRI	AC-2,400401	;FOR COMPARISON
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 42-1
DSKCB1	MAC	29-Mar-78 11:24		PART IIIB-GEN TEST-FMP,FDV                                                         SEQ 0105

  3762	033257	205 05 0 00 367400 		MOVSI	AC,ZZ		;SETUP AC
  3763	033260	175 05 0 00 100777 		FDVRI	AC,100777	;C(AC)/E
  3764	033261	312 05 0 00 000003 		CAME	AC,AC-2		;TEST QUOT
  3765	033262	003 05 0 00 012403 		ER3	AC,SN		;FDVRI FAILED
  3766	033263	321 07 0 00 033255 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  3767
  3768	033264	254 00 0 00 030057 		JRST	BEGEND
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0106

  3769					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
  3770
  3771					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  3772
  3773	033265	202 00 0 00 033656 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  3774	033266	202 01 0 00 033657 		MOVEM	1,%ERAC1#	;SAVE AC1
  3775	033267	202 02 0 00 033660 		MOVEM	2,%ERAC2#	;SAVE AC2
  3776	033270	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  3777	033271	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  3778	033272	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  3779	033273	350 00 0 00 033653 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  3780	033274	200 00 0 00 033653 		MOVE	0,MICNT
  3781	033275	504 00 0 00 030114 		HRL	0,$SVUPC
  3782	033276	402 00 0 00 033654 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  3783	033277	037 10 0 00 000002 		SWITCH
  3784	033300	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  3785	033301	254 00 0 00 033413 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  3786	033302	200 01 0 00 030113 		MOVE	1,$SVUUO
  3787	033303	242 01 0 00 777745 		LSH	1,-^D27
  3788	033304	202 01 0 00 033655 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  3789	033305	200 00 0 00 033656 		MOVE	0,%ERAC0
  3790	033306	200 01 0 00 033657 		MOVE	1,%ERAC1
  3791	033307	335 00 1 00 033652 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  3792	033310	254 00 0 00 033445 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  3793	033311	402 00 0 00 033653 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  3794	033312	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  3795	033313	254 00 0 00 033317 		JRST	.+4		;NO, DON'T NEED TITLE
  3796	033314	336 00 0 00 033661 		SKIPN	%ERFST#		;FIRST ERROR ?
  3797	033315	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  3798	033316	476 00 0 00 033661 		SETOM	%ERFST
  3799	033317	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  3800	033320	254 00 0 00 033324 		JRST	.+4		;YES
  3801						PMSG	<^TEST PASS COUNT = >^
  3802	033321	037 02 0 00 033472 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  3803	033322	200 00 0 00 030047 		MOVE	PASCNT
  3804	033323	037 15 0 00 000000 		PNTDEC
  3805						PMSG	<^PC =   >^
  3806	033324	037 02 0 00 033476 		PSIXM	[SIXBIT\^PC =   _\]^
  3807	033325	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  3808	033326	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  3809	033327	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  3810						XLIST
  3811						IFDEF	ERDIAG,<LIST
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 2
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0107

  3812					;DIAGNOSTIC FORMAT ERROR PRINTER
  3813
  3814					;PRINT RESULT
  3815
  3816	033330				%ERMS2:	PMSG	<^RESULT  = >^
  3817	033330	037 02 0 00 033500 		PSIXM	[SIXBIT\^RESULT  = _\]^
  3818	033331	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
  3819	033332	242 01 0 00 777751 		LSH	1,-27
  3820	033333	405 01 0 00 000017 		ANDI	1,17
  3821	033334	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  3822	033335	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
  3823	033336	200 00 0 01 033656 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  3824	033337	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
  3825
  3826	033340	200 00 0 00 030046 		MOVE	CONSW
  3827	033341	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
  3828	033342	254 00 0 00 033411 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
  3829
  3830					;PRINT FAILURE DESCRIPTOR
  3831
  3832	033343	200 01 0 00 033655 		MOVE	1,%ACS1A	;GET UUO NUMBER
  3833	033344	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
  3834	033345	254 00 0 00 033351 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
  3835	033346	037 00 0 00 030242 		PCRL
  3836	033347	200 00 0 01 033375 		MOVE	%FLTTB(1)
  3837	033350	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
  3838
  3839					;PRINT FAULT NUMBER
  3840
  3841	033351				%ERMS3:	PMSG	<^FAULT NUMBER = >^
  3842	033351	037 02 0 00 033502 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
  3843	033352	201 00 0 00 033374 		MOVEI	TLET
  3844	033353	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 3
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0108

  3845
  3846	033354	550 00 0 00 030113 		HRRZ	$SVUUO
  3847	033355	602 00 0 00 700000 		TRNE	700000
  3848	033356	254 00 0 00 033372 		JRST	%ER6X
  3849	033357	602 00 0 00 070000 		TRNE	070000
  3850	033360	254 00 0 00 033370 		JRST	%ER5X
  3851	033361	602 00 0 00 007000 		TRNE	007000
  3852	033362	254 00 0 00 033366 		JRST	%ER4X
  3853	033363	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
  3854	033364	037 00 0 00 030242 	%ER7X:	PCRL
  3855	033365	254 00 0 00 033411 		JRST	%ERMORE
  3856
  3857	033366	037 04 0 00 000000 	%ER4X:	PNT4
  3858	033367	254 00 0 00 033364 		JRST	%ER7X
  3859	033370	037 05 0 00 000000 	%ER5X:	PNT5
  3860	033371	254 00 0 00 033364 		JRST	%ER7X
  3861	033372	037 06 0 00 000000 	%ER6X:	PNT6
  3862	033373	254 00 0 00 033364 		JRST	%ER7X
  3863
  3864					;FAILURE DESCRIPTORS
  3865
  3866	033374	000000	000000		TLET:	0			;TEST LETTER
  3867	033375	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
  3868	033376	000000	033505		%NODES:	[0]			;NO DESCRIPTOR
  3869	033377	000000	033505		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
  3870	033400	000000	033506		$ACF:	[ASCIZ/C(AC) FAILED/]
  3871	033401	000000	033511		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
  3872	033402	000000	033514		%EF:	[ASCIZ/C(E) FAILED/]
  3873	033403	000000	033517		%E1F:	[ASCIZ/C(E+1) FAILED/]
  3874	033404	000000	033522		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
  3875	033405	000000	033526		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
  3876	033406	000000	033532		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
  3877	033407	000000	033536		%EEF:	[ASCIZ/C(C(E)) FAILED/]
  3878	033410	000000	033541		%FF:	[ASCIZ/FLAG FAILED/]
  3879					>
  3880						XLIST
  3881						LIST
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 8
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0109

  3882					;RESTORE AC'S AND RETURN OR HALT
  3883
  3884	033411	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  3885	033412	037 10 0 00 000002 		SWITCH
  3886
  3887	033413	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  3888	033414	254 00 0 00 033420 		JRST	.+4		;NONE
  3889	033415	201 00 0 00 033420 		MOVEI	.+3		;SAVE CONT ADDRESS
  3890	033416	202 00 0 00 000130 		MOVEM	JOBOPC
  3891	033417	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  3892	033420	200 00 0 00 030046 		MOVE	CONSW
  3893	033421	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  3894	033422	037 14 0 00 000004 		ERRHLT			;YES
  3895	033423	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  3896	033424	476 00 0 00 033654 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  3897	033425	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  3898	033426	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  3899
  3900	033427	200 02 0 00 033660 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  3901	033430	200 01 0 00 033657 		MOVE	1,%ERAC1
  3902	033431	476 00 1 00 033652 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  3903	033432	336 00 0 00 033654 		SKIPN	PROCED		;LOOP ON ERROR ?
  3904	033433	254 00 0 00 033443 		JRST	%ERRS5		;YES
  3905	033434	350 00 1 00 033652 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  3906	033435	350 00 1 00 033652 		AOS	@ERRLOP		;SO IT ='S 1
  3907	033436	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  3908	033437	254 00 0 00 033443 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  3909	033440	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  3910	033441	301 00 0 00 000024 		CAIL	0,^D20		;PRINTED ALLOWED ERRORS ?
  3911	033442	254 00 0 00 033451 		JRST	%ERRS6
  3912
  3913	033443	200 00 0 00 033656 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  3914	033444	254 00 0 00 030065 		JRST	UUOEXT
  3915
  3916	033445	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  3917	033446	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  3918	033447	254 00 0 00 033413 		JRST	%ERRS1		;NO
  3919	033450	254 00 0 00 033311 		JRST	%ERMS1		;YES
  3920
  3921	033451				%ERRS6:	PMSGF	<^EXCEEDED ALLOWED ERRORS^>^
  3922	033451	037 04 0 00 033544 		PSIXMF	[SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
  3923	033452	254 00 0 00 030061 		JRST	$BEND2
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0110

  3924					SUBTTL	*STOR* RESERVED STORAGE, MARCH 1978
  3925
  3926					;PROGRAM LITERALS
  3927
  3928						XLIST
  3929					IFNDEF	$LPAPER,<LIST>
  3930	033453					LIT
  3931	033453	45 70 51 64 00 00 
  3932	033454	103 102 000 000 000 
  3933	033455	000000	030667
  3934	033456	000000	031160
  3935	033457	000000	031341
  3936	033460	200400	000000
  3937	033461	177477	000000
  3938	033462	200400	000077
  3939	033463	200400	000076
  3940	033464	200700	000000
  3941	033465	400000	000001
  3942	033466	777400	000000
  3943	033467	577400	777777
  3944	033470	210777	777777
  3945	033471	170555	600000
  3946	033472	76 64 45 63 64 00 
  3947	033473	60 41 63 63 00 43 
  3948	033474	57 65 56 64 00 35 
  3949	033475	00 77 00 00 00 00 
  3950	033476	76 60 43 00 35 00 
  3951	033477	00 00 77 00 00 00 
  3952	033500	76 62 45 63 65 54 
  3953	033501	64 00 00 35 00 77 
  3954	033502	76 46 41 65 54 64 
  3955	033503	00 56 65 55 42 45 
  3956	033504	62 00 35 00 77 00 
  3957	033505	000000	000000
  3958	033506	103 050 101 103 051 
  3959	033507	040 106 101 111 114 
  3960	033510	105 104 000 000 000 
  3961	033511	103 050 101 103 053 
  3962	033512	061 051 040 106 101 
  3963	033513	111 114 105 104 000 
  3964	033514	103 050 105 051 040 
  3965	033515	106 101 111 114 105 
  3966	033516	104 000 000 000 000 
  3967	033517	103 050 105 053 061 
  3968	033520	051 040 106 101 111 
  3969	033521	114 105 104 000 000 
  3970	033522	103 050 103 050 101 
  3971	033523	103 122 051 051 040 
  3972	033524	106 101 111 114 105 
  3973	033525	104 000 000 000 000 
  3974	033526	103 050 103 050 101 
  3975	033527	103 122 053 061 051 
  3976	033530	051 040 106 101 111 
  3977	033531	114 105 104 000 000 
  3978	033532	103 050 103 050 101 
DSKCB	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 	MACRO %53(1020) 11:43 29-Mar-78 Page 1-1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0111

  3979	033533	103 114 051 051 040 
  3980	033534	106 101 111 114 105 
  3981	033535	104 000 000 000 000 
  3982	033536	103 050 103 050 105 
  3983	033537	051 051 040 106 101 
  3984	033540	111 114 105 104 000 
  3985	033541	106 114 101 107 040 
  3986	033542	106 101 111 114 105 
  3987	033543	104 000 000 000 000 
  3988	033544	76 45 70 43 45 45 
  3989	033545	44 45 44 00 41 54 
  3990	033546	54 57 67 45 44 00 
  3991	033547	45 62 62 57 62 63 
  3992	033550	76 77 00 00 00 00 
  3993						LIST
  3994	033551	000000	000000		ENDSLD:	0
  3995
  3996					IFDEF	DEBUG,<
  3997	033552				PATCH:	BLOCK DEBUG		;PATCHING AREA
  3998					>
  3999
  4000					;PROGRAM VARIABLES
  4001	033652					VAR
  4002
  4003					IFDEF	PGMEND,<
  4004	033662	000000	000000		END:	0
  4005			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 033663
CPU TIME USED 00:12.453

28P CORE USED

ABORT	   577#
AC	  1169#	  1171	  1172	  1173	  1174	  1177	  1178	  1179	  1180	  1181	  1182	  1185	  1186	  1187     SEQ 0112
	  1188	  1189	  1190	  1198#	  1200	  1201	  1202	  1203	  1206	  1207	  1208	  1209	  1210	  1212
	  1213	  1214	  1215	  1222#	  1224	  1225	  1226	  1227	  1230	  1231	  1232	  1233	  1234	  1235
	  1236	  1237	  1238	  1240	  1242	  1243	  1251#	  1253	  1254	  1255	  1256	  1259	  1260	  1261
	  1262	  1263	  1265	  1266	  1267	  1268	  1275#	  1277	  1278	  1279	  1280	  1283	  1284	  1285
	  1286	  1287	  1289	  1290	  1291	  1292	  1301#	  1303	  1304	  1305	  1306	  1308	  1309	  1310
	  1311	  1312	  1314	  1316	  1317	  1318	  1319	  1331#	  1333	  1334	  1335	  1336	  1354	  1355
	  1356	  1357	  1358	  1359	  1360	  1364	  1365	  1366	  1367	  1368	  1369	  1370	  1389	  1390
	  1391	  1392	  1393	  1394	  1395	  1399	  1400	  1401	  1402	  1403	  1404	  1405	  1409	  1410
	  1411	  1412	  1413	  1414	  1415	  1423#	  1425	  1426	  1427	  1428	  1430	  1431	  1432	  1433
	  1434	  1435	  1442#	  1444	  1445	  1446	  1447	  1450	  1451	  1452	  1453	  1454	  1456	  1457
	  1458	  1459	  1469#	  1471	  1472	  1473	  1474	  1492	  1493	  1494	  1495	  1496	  1497	  1498
	  1502	  1503	  1504	  1505	  1506	  1507	  1508	  1512	  1513	  1514	  1515	  1516	  1517	  1518
	  1536	  1537	  1538	  1539	  1540	  1541	  1542	  1546	  1547	  1548	  1549	  1550	  1551	  1552
	  1570	  1571	  1572	  1573	  1574	  1575	  1576	  1580	  1581	  1582	  1583	  1584	  1585	  1586
	  1590	  1591	  1592	  1593	  1594	  1595	  1596	  1601	  1602	  1603	  1604	  1605	  1606	  1607
	  1608	  1609	  1610	  1611	  1619#	  1621	  1622	  1623	  1624	  1626	  1627	  1628	  1629	  1630
	  1631	  1632	  1640#	  1642	  1643	  1644	  1645	  1648	  1649	  1650	  1651	  1652	  1653	  1654
	  1657	  1658	  1659	  1660	  1661	  1662	  1663	  1665	  1666	  1667	  1668	  1669	  1670	  1671
	  1678#	  1680	  1681	  1682	  1683	  1685	  1686	  1687	  1688	  1689	  1690	  1691	  1699#	  1701
	  1702	  1703	  1704	  1706	  1707	  1708	  1709	  1710	  1711	  1712	  1719#	  1721	  1722	  1723
	  1724	  1727	  1728	  1729	  1730	  1731	  1733	  1734	  1735	  1736	  1737	  1738	  1746#	  1748
	  1749	  1750	  1751	  1753	  1754	  1755	  1756	  1757	  1758	  1759	  1766#	  1768	  1769	  1770
	  1771	  1773	  1774	  1775	  1776	  1777	  1778	  1779	  1787#	  1789	  1790	  1791	  1792	  1795
	  1796	  1797	  1798	  1799	  1800	  1801	  1802	  1803	  1804	  1805	  1813#	  1815	  1816	  1817
	  1818	  1821	  1822	  1823	  1824	  1825	  1828	  1829	  1830	  1831	  1839#	  1841	  1842	  1843
	  1844	  1846	  1847	  1848	  1849	  1850	  1851	  1852	  1865#	  1867	  1868	  1869	  1870	  1889
	  1890	  1891	  1892	  1893	  1894	  1895	  1900	  1901	  1902	  1903	  1904	  1905	  1906	  1911
	  1912	  1913	  1914	  1915	  1916	  1917	  1922	  1923	  1924	  1925	  1926	  1927	  1928	  1933
	  1934	  1935	  1936	  1937	  1938	  1939	  1944	  1945	  1946	  1947	  1948	  1949	  1950	  1955
	  1956	  1957	  1958	  1959	  1960	  1961	  1971#	  1973	  1974	  1975	  1976	  1995	  1996	  1997
	  1998	  1999	  2000	  2001	  2006	  2007	  2008	  2009	  2010	  2011	  2012	  2017	  2018	  2019
	  2020	  2021	  2022	  2023	  2028	  2029	  2030	  2031	  2032	  2033	  2034	  2039	  2040	  2041
	  2042	  2043	  2044	  2045	  2050	  2051	  2052	  2053	  2054	  2055	  2056	  2061	  2062	  2063
	  2064	  2065	  2066	  2067	  2076#	  2078	  2079	  2080	  2081	  2101	  2102	  2103	  2104	  2105
	  2106	  2107	  2112	  2113	  2114	  2115	  2116	  2117	  2118	  2123	  2124	  2125	  2126	  2127
	  2128	  2129	  2136#	  2138	  2139	  2140	  2141	  2159	  2160	  2161	  2162	  2163	  2164	  2165
	  2166	  2167	  2171	  2172	  2173	  2174	  2175	  2176	  2177	  2178	  2179	  2183	  2184	  2185
	  2186	  2187	  2188	  2189	  2190	  2191	  2195	  2196	  2197	  2198	  2199	  2200	  2201	  2202
	  2203	  2211#	  2213	  2214	  2215	  2216	  2218	  2219	  2220	  2221	  2222	  2223	  2231#	  2233
	  2234	  2235	  2236	  2238	  2239	  2240	  2241	  2242	  2243	  2244	  2251#	  2253	  2254	  2255
	  2256	  2276	  2277	  2278	  2279	  2280	  2281	  2282	  2287	  2288	  2289	  2290	  2291	  2292
	  2293	  2298	  2299	  2300	  2301	  2302	  2303	  2304	  2309	  2310	  2311	  2312	  2313	  2314
	  2315	  2320	  2321	  2322	  2323	  2324	  2325	  2326	  2336#	  2338	  2339	  2340	  2341	  2361
	  2362	  2363	  2364	  2365	  2366	  2367	  2372	  2373	  2374	  2375	  2376	  2377	  2378	  2383
	  2384	  2385	  2386	  2387	  2388	  2389	  2394	  2395	  2396	  2397	  2398	  2399	  2400	  2405
	  2406	  2407	  2408	  2409	  2410	  2411	  2416	  2417	  2418	  2419	  2420	  2421	  2422	  2427
	  2428	  2429	  2430	  2431	  2432	  2433	  2440#	  2442	  2443	  2444	  2445	  2467	  2468	  2469
	  2470	  2471	  2472	  2473	  2474	  2475	  2480	  2481	  2482	  2483	  2484	  2485	  2486	  2487
	  2488	  2497#	  2499	  2500	  2501	  2502	  2506	  2507	  2508	  2509	  2510	  2511	  2517#	  2519
	  2520	  2521	  2522	  2524	  2525	  2526	  2527	  2528	  2529	  2530	  2531	  2532	  2533	  2540#
	  2542	  2543	  2544	  2545	  2547	  2548	  2549	  2550	  2551	  2552	  2553	  2554	  2555	  2556
	  2562#	  2564	  2565	  2566	  2567	  2569	  2570	  2571	  2572	  2573	  2574	  2575	  2576	  2583#
	  2585	  2586	  2587	  2588	  2590	  2591	  2592	  2593	  2594	  2595	  2596	  2597	  2598	  2599     SEQ 0113
	  2606#	  2608	  2609	  2610	  2611	  2613	  2614	  2615	  2616	  2617	  2618	  2619	  2620	  2621
	  2622	  2629#	  2631	  2632	  2633	  2634	  2658	  2659	  2660	  2661	  2662	  2663	  2664	  2665
	  2666	  2667	  2668	  2673	  2674	  2675	  2676	  2677	  2678	  2679	  2680	  2681	  2682	  2683
	  2690#	  2692	  2693	  2694	  2695	  2697	  2698	  2699	  2700	  2701	  2702	  2703	  2704	  2705
	  2706	  2707	  2714#	  2716	  2717	  2718	  2719	  2721	  2722	  2723	  2724	  2725	  2726	  2727
	  2728	  2729	  2735#	  2737	  2738	  2739	  2740	  2761	  2762	  2763	  2764	  2765	  2766	  2767
	  2768	  2773	  2774	  2775	  2776	  2777	  2778	  2779	  2780	  2788#	  2790	  2791	  2792	  2793
	  2814	  2815	  2816	  2817	  2818	  2819	  2825	  2826	  2827	  2828	  2829	  2830	  2841#	  2843
	  2844	  2845	  2846	  2850	  2851	  2852	  2853	  2854	  2855	  2856	  2857	  2858	  2861	  2862
	  2869#	  2871	  2872	  2873	  2874	  2891	  2892	  2893	  2894	  2895	  2896	  2897	  2901	  2902
	  2903	  2904	  2905	  2906	  2907	  2911	  2912	  2913	  2914	  2915	  2916	  2917	  2924#	  2926
	  2927	  2928	  2929	  2949	  2950	  2951	  2952	  2953	  2954	  2955	  2960	  2961	  2962	  2963
	  2964	  2965	  2966	  2971	  2972	  2973	  2974	  2975	  2976	  2977	  2984#	  2986	  2987	  2988
	  2989	  3012	  3013	  3014	  3015	  3016	  3017	  3018	  3024	  3025	  3026	  3027	  3028	  3029
	  3030	  3036	  3037	  3038	  3039	  3040	  3041	  3042	  3049#	  3051	  3052	  3053	  3054	  3075
	  3076	  3077	  3078	  3079	  3080	  3081	  3086	  3087	  3088	  3089	  3090	  3091	  3092	  3101#
	  3103	  3104	  3105	  3106	  3108	  3109	  3110	  3111	  3112	  3113	  3114	  3120#	  3122	  3123
	  3124	  3125	  3127	  3128	  3129	  3130	  3131	  3132	  3133	  3134	  3142#	  3144	  3145	  3146
	  3147	  3167	  3168	  3169	  3170	  3171	  3172	  3173	  3178	  3179	  3180	  3181	  3182	  3183
	  3184	  3191#	  3193	  3194	  3195	  3196	  3198	  3199	  3200	  3201	  3202	  3203	  3204	  3205
	  3206	  3207	  3208	  3209	  3216#	  3218	  3219	  3220	  3221	  3225	  3226	  3227	  3228	  3229
	  3230	  3231	  3240#	  3242	  3243	  3244	  3245	  3249	  3250	  3251	  3252	  3253	  3254	  3255
	  3261#	  3263	  3264	  3265	  3266	  3283	  3284	  3285	  3286	  3287	  3288	  3289	  3293	  3294
	  3295	  3296	  3297	  3298	  3299	  3307#	  3309	  3310	  3311	  3312	  3314	  3315	  3316	  3317
	  3318	  3319	  3320	  3321	  3322	  3323	  3324	  3330#	  3332	  3333	  3334	  3335	  3337	  3338
	  3339	  3340	  3341	  3342	  3343	  3344	  3345	  3346	  3347	  3354#	  3356	  3357	  3358	  3359
	  3361	  3362	  3363	  3364	  3365	  3366	  3367	  3368	  3369	  3370	  3371	  3377#	  3379	  3380
	  3381	  3382	  3408	  3409	  3410	  3411	  3412	  3413	  3414	  3415	  3416	  3417	  3423	  3424
	  3425	  3426	  3427	  3428	  3429	  3430	  3431	  3432	  3439#	  3441	  3442	  3443	  3444	  3446
	  3447	  3448	  3449	  3450	  3451	  3452	  3453	  3454	  3461#	  3463	  3464	  3465	  3466	  3468
	  3469	  3470	  3471	  3472	  3473	  3474	  3475	  3476	  3482#	  3484	  3485	  3486	  3487	  3489
	  3490	  3491	  3492	  3493	  3494	  3495	  3496	  3497	  3498	  3499	  3500	  3507#	  3509	  3510
	  3511	  3512	  3514	  3515	  3516	  3517	  3518	  3519	  3520	  3521	  3522	  3528#	  3530	  3531
	  3532	  3533	  3535	  3536	  3537	  3538	  3539	  3540	  3541	  3542	  3543	  3544	  3545	  3552#
	  3554	  3555	  3556	  3557	  3559	  3560	  3561	  3562	  3563	  3564	  3565	  3566	  3567	  3573#
	  3575	  3576	  3577	  3578	  3602	  3603	  3604	  3605	  3606	  3607	  3608	  3609	  3610	  3611
	  3616	  3617	  3618	  3619	  3620	  3621	  3622	  3623	  3624	  3625	  3630	  3631	  3632	  3633
	  3634	  3635	  3636	  3637	  3638	  3639	  3644	  3645	  3646	  3647	  3648	  3649	  3650	  3651
	  3652	  3653	  3658	  3659	  3660	  3661	  3662	  3663	  3664	  3665	  3666	  3667	  3674#	  3676
	  3677	  3678	  3679	  3681	  3682	  3683	  3684	  3685	  3686	  3693#	  3695	  3696	  3697	  3698
	  3700	  3701	  3702	  3703	  3704	  3705	  3706	  3712#	  3714	  3715	  3716	  3717	  3738	  3739
	  3740	  3741	  3742	  3743	  3744	  3749	  3750	  3751	  3752	  3753	  3754	  3755	  3760	  3761
	  3762	  3763	  3764	  3765	  3766
ALTMGO	   889#	  3891
AROV	   803#
AROVTP	   803#
AROVU	   803#
AST	  1004#
ATSIN	  1005#
BEGEND	   885#	  3768
BEGIN	    71	    76	    77	    78	    79	    80	    81	   792	   793	   816#	  4005
BEGIN1	   832#	   886
BELL	  1008#                                                                                                            SEQ 0114
BIS	   803#
CB00	  1169#
CCA	   803#
CHAIN	   597#
CHNOFF	   803#
CHNON	   803#
CLKU	   803#
CLOCKF	   871#
CNTLC	   888#
CNTRP	   803#
COMMA	   997#
CONSW	   872#	  3826	  3892	  3916
CPOPJ	   892#
CPOPJ1	   890#
CRLF	   727	   728	   992#
CRLF2	   731	   732	   994#
CRY0	   803#
CRY1	   803#
CSHFLG	  1051#
CSHMEM	  1052#
CTRP	   803#
CYCL60	  1045#
DCK	   803#
DDTLNK	   611#	   830
DDTSRT	   830#
DEBUG	    55#	  3996	  3997
DECVER	     4#	    10	    23	   851
DF22F	   956#
DIAGMN	   819#
DING	   583#	  3897
DOLLAR	  1011#
DSKUPD	   856
EBIT0	   803#
EBIT1	   803#
EBIT10	   803#
EBIT11	   803#
EBIT12	   803#
EBIT13	   803#
EBIT14	   803#
EBIT15	   803#
EBIT2	   803#
EBIT3	   803#
EBIT4	   803#
EBIT5	   803#
EBIT6	   803#
EBIT7	   803#
EBIT8	   803#
EBIT9	   803#
END	  4004#
ENDFIX	  1131#
ENDSLD	  3994#
ERDIAG	    59#	  3811
ERMORE	   905#	  3884                                                                                                     SEQ 0115
EROLD	    60#	   803
ERRELB	  3881
ERRLOP	  1174#	  1174	  1203#	  1203	  1227#	  1227	  1256#	  1256	  1280#	  1280	  1306#	  1306	  1336#	  1336
	  1428#	  1428	  1447#	  1447	  1474#	  1474	  1624#	  1624	  1645#	  1645	  1683#	  1683	  1704#	  1704
	  1724#	  1724	  1751#	  1751	  1771#	  1771	  1792#	  1792	  1818#	  1818	  1844#	  1844	  1870#	  1870
	  1976#	  1976	  2081#	  2081	  2141#	  2141	  2216#	  2216	  2236#	  2236	  2256#	  2256	  2341#	  2341
	  2445#	  2445	  2502#	  2502	  2522#	  2522	  2545#	  2545	  2567#	  2567	  2588#	  2588	  2611#	  2611
	  2634#	  2634	  2695#	  2695	  2719#	  2719	  2740#	  2740	  2793#	  2793	  2846#	  2846	  2874#	  2874
	  2929#	  2929	  2989#	  2989	  3054#	  3054	  3106#	  3106	  3125#	  3125	  3147#	  3147	  3196#	  3196
	  3221#	  3221	  3245#	  3245	  3266#	  3266	  3312#	  3312	  3335#	  3335	  3359#	  3359	  3382#	  3382
	  3444#	  3444	  3466#	  3466	  3487#	  3487	  3512#	  3512	  3533#	  3533	  3557#	  3557	  3578#	  3578
	  3679#	  3679	  3698#	  3698	  3717#	  3717	  3791	  3902	  3905	  3906
ERRMES	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	    51	  3773#
ERRPC	   876#	  3778	  3808
ERRTLS	   877#	  3776	  3909
ERSTOP	   586#	  3893
EXCASB	    56#	   854
EXIOT	   803#
FOV	   803#
FOVU	   803#
FRDLNK	   609#
FSELNK	   608#
FXU	   803#	  1235	  1606	  1734	  1800	  2509	  3253
HYPEN	  1002#
INHCSH	   594#
INHPAG	   591#
IOCLR	   803#
ITERAT	    90#	   849
ITRCH1	   909#
ITRCNT	   849#
JOB41	   803#
JOBAPR	   803#
JOBCNI	   803#
JOBDDT	   803#
JOBFF	   803#
JOBOPC	   803#	  3890
JOBREL	   803#
JOBREN	   803#
JOBSA	   803#
JOBSYM	   803#
JOBTPC	   803#
JOBUSY	   803#
JOBUUO	   803#
JOBVER	   803#
KAIFLG	   866#
KLFLG	   867#
KNTRP	   803#
KTRP	   803#
LACLK	   803#
LACLKE	   803#
LAPRAL	   803#
LAPRP1	   803#
LAPRP2	   803#                                                                                                            SEQ 0116
LAPRP3	   803#
LAPRP4	   803#
LAPRP5	   803#
LAPRP6	   803#
LAPRP7	   803#
LCHNOF	   803#
LCHNON	   803#
LCNTXT	   803#
LCNXER	   803#
LCPAER	   803#
LCPSFT	   803#
LCPWRF	   803#
LDATAF	   803#
LDLNK	   610#	   819	   821
LDNXER	   803#
LDPAER	   803#
LDPSFT	   803#
LDPWRF	   803#
LEBXMH	   803#
LEBXML	   803#
LENXER	   803#
LEPAER	   803#
LEPSFT	   803#
LEPWRF	   803#
LEUPFW	   803#
LEXCMP	   803#
LFLGCL	   803#
LFLGDS	   803#
LFLGEN	   803#
LFLGST	   803#
LFP	  1006#
LINSTF	   803#
LINT	   803#
LIOCLR	   803#
LLACBL	   803#
LLDUSB	   803#
LMBXMH	   803#
LMBXML	   803#
LNXMEN	   803#
LNXMER	   803#
LOOPER	   585#	  3895
LPAREN	   803#
LPARER	   803#
LPFWPC	   803#
LPGFTR	   803#
LPICH1	   803#
LPICH2	   803#
LPICH3	   803#
LPICH4	   803#
LPICH5	   803#
LPICH6	   803#
LPICH7	   803#
LPICHA	   803#                                                                                                            SEQ 0117
LPICLR	   803#
LPIIP1	   803#
LPIIP2	   803#
LPIIP3	   803#
LPIIP4	   803#
LPIIP5	   803#
LPIIP6	   803#
LPIIP7	   803#
LPIOFF	   803#
LPION	   803#
LPRCH1	   803#
LPRCH2	   803#
LPRCH3	   803#
LPRCH4	   803#
LPRCH5	   803#
LPRCH6	   803#
LPRCH7	   803#
LPRFMH	   803#
LPRFML	   803#
LPSFT	   803#
LPSFTE	   803#
LPWRFE	   803#
LPWRFL	   803#
LREQSE	   803#
LRQCLR	   803#
LSECMO	   803#
LSMODE	   803#
LSNXER	   803#
LSPAER	   803#
LSPSFT	   803#
LSPWRF	   803#
LTBASH	   803#
LTBASL	   803#
LTRPAE	   803#
LTRPEN	   803#
LUSCMP	   803#
LUUO	   803#
LUUO1	    41#	   936	   937
LUUO10	    48#	   936	   941
LUUO11	    49#	   936	   941
LUUO12	    50#	   936	   942
LUUO13	    51#	   936	   942
LUUO14	   936	   943
LUUO15	   936	   943
LUUO16	   936	   944
LUUO17	   936	   944
LUUO2	    42#	   936	   938
LUUO20	   936	   945
LUUO21	   936	   945
LUUO22	   936	   946
LUUO23	   936	   946
LUUO24	   936	   947
LUUO25	   936	   947                                                                                                     SEQ 0118
LUUO26	   936	   948
LUUO27	   936	   948
LUUO3	    43#	   936	   938
LUUO30	   936	   949
LUUO31	   936	   949
LUUO32	   936	   950
LUUO33	   936	   950
LUUO4	    44#	   936	   939
LUUO5	    45#	   936	   939
LUUO6	    46#	   936	   940
LUUO7	    47#	   936	   940
LUUOI	   803#
LWRITE	   803#
MAPNEW	   957#
MARGIN	   879#
MCNVER	     3#	    10	    23	   851
MEMLOW	   959#
MEMMAP	   857
MEMSIZ	   960#
MEMTOT	   958#
MICNT	  3779#	  3779	  3780	  3793
MINUS	  1001#
MODDVC	   593#
MODDVL	   792	   792#	   852
MODDVU	   793	   793#	   853
MODLNK	   612#	   816
MONCTL	   869#	  3794	  3907
MONFLG	   868#
MONTEN	   870#
MONTYP	  1083#
MPVU	   803#
MUUO	   803#
MUUOPC	   803#
NOPNT	   581#	  3784
NXMU	   803#
OPRSEL	   595#
OPTIME	   971#
P	   638	   639	   640	   641	   803#	   891
P100	  1177#	  1182
P1000	  1341#
P10000	  3223#	  3231
P10100	  3247#	  3255
P10200	  3270#
P10300	  3314#	  3324
P10400	  3337#	  3347
P10500	  3361#	  3371
P1100	  1376#
P11200	  3388#
P11300	  3446#	  3454
P11400	  3468#	  3476
P11500	  3489#	  3500
P11600	  3514#	  3522
P11700	  3535#	  3545                                                                                                     SEQ 0119
P1200	  1409#
P12000	  3559#	  3567
P12100	  3584#
P12200	  3681#	  3686
P12300	  3700#	  3706
P12400	  3723#
P1300	  1430#	  1435
P1400	  1449#	  1459
P1500	  1479#
P1600	  1512#	  1518
P1700	  1523#
P200	  1185#	  1190
P2000	  1557#
P2100	  1590#	  1596
P2200	  1600#	  1611
P2300	  1626#	  1632
P2400	  1648#	  1654
P2500	  1657#	  1663
P2600	  1665#	  1671
P2700	  1685#	  1691
P300	  1205#	  1215
P3000	  1706#	  1712
P3100	  1726#	  1738
P3200	  1753#	  1759
P3300	  1773#	  1779
P3400	  1794#	  1805
P3500	  1820#	  1831
P3600	  1846#	  1852
P3700	  1874#
P400	  1229#	  1243
P4000	  1980#
P4100	  2086#
P4200	  2144#
P4300	  2218#	  2223
P4400	  2238#	  2244
P4500	  2261#
P4600	  2346#
P4700	  2450#
P500	  1258#	  1268
P5000	  2504#	  2511
P5100	  2524#	  2533
P5200	  2547#	  2556
P5300	  2569#	  2576
P5400	  2590#	  2599
P600	  1282#	  1292
P6100	  2613#	  2622
P6200	  2639#
P6300	  2697#	  2707
P6400	  2721#	  2729
P6500	  2745#
P6600	  2799#
P6700	  2848#	  2862
P700	  1308#	  1319                                                                                                     SEQ 0120
P7000	  2878#
P7100	  2934#
P7200	  2995#
P7300	  3060#
P7400	  3108#	  3114
P7500	  3127#	  3134
P7600	  3152#
P7700	  3198#	  3209
PAG	   803#
PALERS	   587#	  3917
PAREA1	    83#	   847
PAREA2	    84#	   848
PAREA3	    85#	   845
PAREA4	    86#	   846
PAREA5	    87#	   858
PAREA6	    88#	   859
PAREA7	   858#
PAREA8	   859#
PARU	   803#
PASCNT	   873#	  3799	  3803
PATCH	  3997#
PDISF	   968#
PDLOVU	   803#
PDOVTP	   803#
PERIOD	   998#
PFSTRT	   825#
PGMEND	    58#	  4003
PGMNAM	   850	  1135#
PICHN1	   803#
PICHN2	   803#
PICHN3	   803#
PICHN4	   803#
PICHN5	   803#
PICHN6	   803#
PICHN7	   803#
PICHNA	   803#
PICLR	   803#
PIOFF	   803#
PION	   803#
PLIST	  1037#	  1037
PLISTE	  1037	  1039#
PLISTS	  1038#
PLUS	  1003#
PNTENB	   967#
PNTEXT	   846#
PNTFLG	   966#
PNTINH	   969#
PNTLPT	   582#
PNTNAM	   845#
PNTRP	   803#
PNTSPC	   970#
PROCED	  3782#	  3782	  3896	  3903
PTRP	   803#                                                                                                            SEQ 0121
PVPAGI	  1064#
QUEST	  1009#
RADIX	  1012#
RADLSC	  1014#
RADLSP	  1013#
RANDBS	   847#
REENTR	   827#
RELIAB	   589#
RENTR1	    73	  1132#
REPT	   803#
REPT1	   803#
REPTU	   925#
REQSET	   803#
RESRT1	    72	   902#
RESRT2	   903#
RETURN	   834#
RSTART	   578#
RTP	  1007#
RUNFLG	   874#
SADR1	    71#	   823
SADR10	    80#	   839
SADR11	    81#	   840
SADR2	    72#	   825
SADR3	    73#	   827
SADR4	    74#
SADR5	    75#	   888
SADR6	    76#	   889
SADR7	    77#	   836
SADR8	    78#	   837
SADR9	    79#	   838
SBINIT	   651	   833#
SCOPE	   926#
SFSTRT	   823#
SLASH	  1010#
SM10	  1114#
SN	  1338#	  1352	  1352#	  1359	  1362	  1362#	  1369	  1373#	  1387	  1387#	  1394	  1397	  1397#	  1404
	  1476#	  1490	  1490#	  1497	  1500	  1500#	  1507	  1520#	  1534	  1534#	  1541	  1544	  1544#	  1551
	  1554#	  1568	  1568#	  1575	  1578	  1578#	  1585	  1871#	  1886	  1886#	  1894	  1897	  1897#	  1905
	  1908	  1908#	  1916	  1919	  1919#	  1927	  1930	  1930#	  1938	  1941	  1941#	  1949	  1952	  1952#
	  1960	  1977#	  1992	  1992#	  2000	  2003	  2003#	  2011	  2014	  2014#	  2022	  2025	  2025#	  2033
	  2036	  2036#	  2044	  2047	  2047#	  2055	  2058	  2058#	  2066	  2082#	  2098	  2098#	  2106	  2109
	  2109#	  2117	  2120	  2120#	  2128	  2142#	  2157	  2157#	  2166	  2169	  2169#	  2178	  2181	  2181#
	  2190	  2193	  2193#	  2202	  2257#	  2273	  2273#	  2281	  2284	  2284#	  2292	  2295	  2295#	  2303
	  2306	  2306#	  2314	  2317	  2317#	  2325	  2342#	  2358	  2358#	  2366	  2369	  2369#	  2377	  2380
	  2380#	  2388	  2391	  2391#	  2399	  2402	  2402#	  2410	  2413	  2413#	  2421	  2424	  2424#	  2432
	  2446#	  2464	  2464#	  2472	  2474	  2477	  2477#	  2485	  2487	  2635#	  2655	  2655#	  2665	  2667
	  2670	  2670#	  2680	  2682	  2741#	  2758	  2758#	  2767	  2770	  2770#	  2779	  2795#	  2811	  2811#
	  2822	  2822#	  2875#	  2889	  2889#	  2899	  2899#	  2909	  2909#	  2930#	  2946	  2946#	  2957	  2957#
	  2968	  2968#	  2990#	  3008	  3008#	  3017	  3020	  3020#	  3029	  3032	  3032#	  3041	  3056#	  3072
	  3072#	  3080	  3083	  3083#	  3091	  3148#	  3164	  3164#	  3172	  3175	  3175#	  3183	  3267#	  3281
	  3281#	  3288	  3291	  3291#	  3298	  3384#	  3404	  3404#	  3416	  3419	  3419#	  3431	  3580#	  3599
	  3599#	  3608	  3610	  3613	  3613#	  3622	  3624	  3627	  3627#	  3636	  3638	  3641	  3641#	  3650
	  3652	  3655	  3655#	  3664	  3666	  3719#	  3735	  3735#	  3743	  3746	  3746#	  3754	  3757	  3757#    SEQ 0122
	  3765
SNTRP	   803#
SPACE	   999#
SPDES	  3869#
SRTDDT	    74	   829#
START	   817	  1151#
START1	   836#
START2	   837#
START3	   838#
START4	   839#
START5	   840#
STARTA	   832	  1155#
STRP	   803#
SUBLNK	   613#	   833
SWPTAB	  1120#
SWTEXR	   848#
SYSEXR	   821#
TAB	  1000#
TESTPC	   875#	  1172	  1201	  1225	  1254	  1278	  1304	  1334	  1426	  1445	  1472	  1622	  1643	  1681
	  1702	  1722	  1749	  1769	  1790	  1816	  1842	  1868	  1974	  2079	  2139	  2214	  2234	  2254
	  2339	  2443	  2500	  2520	  2543	  2565	  2586	  2609	  2632	  2693	  2717	  2738	  2791	  2844
	  2872	  2927	  2987	  3052	  3104	  3123	  3145	  3194	  3219	  3243	  3264	  3310	  3333	  3357
	  3380	  3442	  3464	  3485	  3510	  3531	  3555	  3576	  3677	  3696	  3715
TICKS	   878#
TLET	  1153	  3843	  3866#
TN0	   803#
TN1	   803#
TOTALS	   579#
TRP3TP	   803#
TTNBRF	  1058#
TTYFIL	   974#
TTYSPD	   975#
TXTINH	   590#	  3827
UBAVEC	   803#
USER	   865#
USERF	   803#
USRASB	    57#	   855
USRCRF	   984#
USRLFF	   983#
UUODIS	   937#
UUOEXT	   893#	  3914
UUORTN	   894#
UUOSKP	   891#
WW	  2991#	  3009	  3010	  3011	  3011#	  3021	  3022	  3023	  3023#	  3033	  3034	  3035	  3035#
XX	  1888#	  1889	  1899#	  1900	  1910#	  1911	  1921#	  1922	  1932#	  1933	  1943#	  1944	  1954#	  1955
	  1994#	  1995	  2005#	  2006	  2016#	  2017	  2027#	  2028	  2038#	  2039	  2049#	  2050	  2060#	  2061
	  2083#	  2099	  2099#	  2101	  2110	  2110#	  2112	  2121	  2121#	  2123	  2258#	  2274	  2274#	  2276
	  2285	  2285#	  2287	  2296	  2296#	  2298	  2307	  2307#	  2309	  2318	  2318#	  2320	  2343#	  2359
	  2359#	  2361	  2370	  2370#	  2372	  2381	  2381#	  2383	  2392	  2392#	  2394	  2403	  2403#	  2405
	  2414	  2414#	  2416	  2425	  2425#	  2427	  2447#	  2465	  2465#	  2467	  2478	  2478#	  2480	  2636#
	  2656	  2656#	  2662	  2666	  2671	  2671#	  2677	  2681	  2742#	  2759	  2759#	  2762	  2771	  2771#
	  2774	  2796#	  2812	  2812#	  2814	  2823	  2823#	  2825	  2931#	  2947	  2947#	  2949	  2958	  2958#
	  2960	  2969	  2969#	  2971	  2992#	  3009	  3009#	  3012	  3021	  3021#	  3024	  3033	  3033#	  3036     SEQ 0123
	  3057#	  3073	  3073#	  3075	  3084	  3084#	  3086	  3149#	  3165	  3165#	  3167	  3176	  3176#	  3178
	  3385#	  3405	  3405#	  3409	  3420	  3420#	  3424	  3581#	  3600	  3600#	  3602	  3614	  3614#	  3616
	  3628	  3628#	  3630	  3642	  3642#	  3644	  3656	  3656#	  3658	  3720#	  3736	  3736#	  3738	  3747
	  3747#	  3749	  3758	  3758#	  3760
ZZ	  1339#	  1353	  1353#	  1354	  1363	  1363#	  1364	  1374#	  1388	  1388#	  1389	  1398	  1398#	  1399
	  1477#	  1491	  1491#	  1492	  1501	  1501#	  1502	  1521#	  1535	  1535#	  1536	  1545	  1545#	  1546
	  1555#	  1569	  1569#	  1570	  1579	  1579#	  1580	  1872#	  1887	  1887#	  1888	  1891	  1898	  1898#
	  1899	  1902	  1909	  1909#	  1910	  1913	  1920	  1920#	  1921	  1924	  1931	  1931#	  1932	  1935
	  1942	  1942#	  1943	  1946	  1953	  1953#	  1954	  1957	  1978#	  1993	  1993#	  1994	  1996	  2004
	  2004#	  2005	  2007	  2015	  2015#	  2016	  2018	  2026	  2026#	  2027	  2029	  2037	  2037#	  2038
	  2040	  2048	  2048#	  2049	  2051	  2059	  2059#	  2060	  2062	  2084#	  2100	  2100#	  2103	  2111
	  2111#	  2114	  2122	  2122#	  2125	  2143#	  2158	  2158#	  2160	  2162	  2170	  2170#	  2172	  2174
	  2182	  2182#	  2184	  2186	  2194	  2194#	  2196	  2198	  2259#	  2275	  2275#	  2277	  2286	  2286#
	  2288	  2297	  2297#	  2299	  2308	  2308#	  2310	  2319	  2319#	  2321	  2344#	  2360	  2360#	  2362
	  2371	  2371#	  2373	  2382	  2382#	  2384	  2393	  2393#	  2395	  2404	  2404#	  2406	  2415	  2415#
	  2417	  2426	  2426#	  2428	  2448#	  2466	  2466#	  2468	  2479	  2479#	  2481	  2637#	  2657	  2657#
	  2659	  2672	  2672#	  2674	  2743#	  2760	  2760#	  2764	  2772	  2772#	  2776	  2797#	  2813	  2813#
	  2816	  2824	  2824#	  2827	  2876#	  2890	  2890#	  2892	  2893	  2900	  2900#	  2902	  2903	  2910
	  2910#	  2912	  2913	  2932#	  2948	  2948#	  2950	  2959	  2959#	  2961	  2970	  2970#	  2972	  2993#
	  3010	  3010#	  3013	  3022	  3022#	  3025	  3034	  3034#	  3037	  3058#	  3074	  3074#	  3076	  3085
	  3085#	  3087	  3150#	  3166	  3166#	  3168	  3177	  3177#	  3179	  3268#	  3282	  3282#	  3284	  3292
	  3292#	  3294	  3386#	  3406	  3406#	  3407	  3407#	  3413	  3421	  3421#	  3422	  3428	  3582#	  3601
	  3601#	  3604	  3615	  3615#	  3618	  3629	  3629#	  3632	  3643	  3643#	  3646	  3657	  3657#	  3660
	  3721#	  3737	  3737#	  3740	  3748	  3748#	  3751	  3759	  3759#	  3762
$$MUUO	  1089#
$$OUTE	  1095#
$$TAX1	  1107#
$$TAX2	  1108#
$$TOGG	  1101#
$$UUO	  1078#
$ACC0	   916#
$ACF	  3870#
$BEND1	   886#
$BEND2	    75	   887#	  3923
$CHRIN	   977#
$CRLF	   979#
$DEVCH	   803#
$DSKUP	   856#
$DVOFF	   973#
$EMODE	   854#
$FFF	   981#
$IBUF	  1029#
$INEXT	  1031#
$INNM	  1030#
$ITRHL	   897#
$ITRX1	   898#
$LPAPE	  3929
$MMAP	   857#
$MODVL	   852#
$MODVU	   853#
$OBUF	  1020#
$ONETM	   880#
$OUTEX	  1022#                                                                                                            SEQ 0124
$OUTNM	  1021#
$PAPER	   803
$PARER	   904#
$PNAME	   850#
$PSHER	   908#
$PVER	   851#
$RSRTX	   900#
$RSRTY	   901#
$SPAG1	   920#
$START	   817#
$SVAPR	   918#
$SVPAG	   919#
$SVPI	   917#
$SVUPC	   923#	  3777	  3781	  3807
$SVUUO	   922#	  3786	  3818	  3846
$TABF	   980#
$TTCHR	   976#
$TWCNT	   972#
$TYPNB	   978#
$UMODE	   855#
$UORTX	   895#
$USRHL	   899#
$UUOER	   896#	   937
$VTF	   982#
%AC1F	  3871#
%ACS1A	  3788#	  3788	  3832
%ACTFL	   929#
%ACTUL	   930#
%ALF	  3876#
%AR1F	  3875#
%ARF	  3874#
%COREC	   928#
%CORFL	   927#
%DISCR	   931#
%E1F	  3873#
%EEF	  3877#
%EF	  3872#
%ER4X	  3852	  3857#
%ER5X	  3850	  3859#
%ER6X	  3848	  3861#
%ER7X	  3854#	  3858	  3860	  3862
%ERAC0	  3773#	  3773	  3789	  3823	  3913
%ERAC1	  3774#	  3774	  3790	  3901
%ERAC2	  3775#	  3775	  3900
%ERFST	  3796#	  3796	  3798
%ERHI1	  1070#
%ERHI2	  1071#
%ERHI3	  1072#
%ERMOR	  3828	  3855	  3884#
%ERMS1	  3793#	  3919
%ERMS2	  3816#
%ERMS3	  3834	  3841#
%ERRS1	  3785	  3887#	  3918                                                                                             SEQ 0125
%ERRS2	  3900#
%ERRS4	  3792	  3916#
%ERRS5	  3904	  3908	  3913#
%ERRS6	  3911	  3921#
%FF	  3878#
%FLTTB	  3836	  3867#
%NODES	  3868#
.JB41	   803#
.JBAPR	   803#
.JBCNI	   803#
.JBDDT	   803#
.JBFF	   803#
.JBOPC	   803#
.JBREL	   803#
.JBREN	   803#
.JBSA	   803#
.JBSYM	   803#
.JBTPC	   803#
.JBUSY	   803#
.JBUUO	   803#
.JBVER	   803#

APRID	   803#
BCIO	   803#                                                                                                            SEQ 0126
BCIOB	   803#
BSIO	   803#
BSIOB	   803#
CFLUSH	   763#
CINVAL	   762#
CLOKOP	   757#
CLRPT	   803#
CWRTBI	   764#
DFA	   417#
DFARP	   460#
DFD	   450#
DFM	   439#
DFS	   428#
DMVE	    91#
DMVE17	   113#
DMVM	   253#
DMVM17	   305#
DMVN	   141#
DMVN17	   171#
DMVNF	   209#
DMVNM	   278#
DMVNM1	   337#
DMVNMF	   372#
DROPDV	   724#	  1132
ENDUUO	   770#	   885
EOPUUO	   771#	   887
ER1	    29#
ER10	    36#
ER11	    37#
ER12	    38#
ER13	    39#	  1212	  1236	  1240	  1242	  1265	  1289	  1314	  1316	  1456	  1607	  1733	  1735	  1801
	  1828	  2510	  2858	  2861	  3230	  3254
ER2	    30#
ER3	    31#	  1181	  1189	  1214	  1238	  1267	  1291	  1318	  1359	  1369	  1394	  1404	  1414	  1434
	  1458	  1497	  1507	  1517	  1541	  1551	  1575	  1585	  1595	  1609	  1631	  1653	  1662	  1670
	  1690	  1711	  1737	  1758	  1778	  1803	  1830	  1851	  1894	  1905	  1916	  1927	  1938	  1949
	  1960	  2000	  2011	  2022	  2033	  2044	  2055	  2066	  2106	  2117	  2128	  2166	  2178	  2190
	  2202	  2222	  2243	  2281	  2292	  2303	  2314	  2325	  2366	  2377	  2388	  2399	  2410	  2421
	  2432	  2472	  2485	  2530	  2553	  2596	  2621	  2665	  2680	  2704	  2726	  2767	  2779	  2818
	  2829	  2853	  2855	  2896	  2906	  2916	  2954	  2965	  2976	  3017	  3029	  3041	  3080	  3091
	  3113	  3133	  3172	  3183	  3206	  3321	  3344	  3368	  3416	  3431	  3453	  3475	  3497	  3542
	  3608	  3622	  3636	  3650	  3664	  3685	  3705	  3743	  3754	  3765
ER4	    32#
ER5	    33#	  2474	  2487	  2532	  2555	  2575	  2598	  2667	  2682	  2706	  2728	  3208	  3288	  3298
	  3323	  3346	  3370	  3499	  3521	  3544	  3566	  3610	  3624	  3638	  3652	  3666
ER6	    34#
ER7	    35#
ERRHLT	   658#	  3894
FATAL	   657#
FRD36	   799#
FRD8	   800#
FREAD	   798#
FSELEC	   797#                                                                                                            SEQ 0127
GET	   641#
GO	   638#
HALT	    77	    78	    79	    80	    81	   643#	   906
JEN	   645#
JRSTF	   644#
MAPADR	   780#
MAPCNK	   781#
MAPMEM	   777#
MAPPNT	   783#
MAPSET	   782#
MEMSEG	   779#
MEMZRO	   778#
MODPCP	   790#
MODPCU	   789#
MTROP	   758#
NAME	     7#	    10
PBELL	   733#	  3898
PCRL	   727#	  3835	  3854
PCRL2	   731#
PCRL2F	   732#
PCRLF	   728#
PFORCE	   735#
PGMINT	   651#	  1151
PJRST	   642#
PMSG	   737#	  3801	  3805	  3816	  3841
PMSGF	   740#	  3921
PNT1	   693#
PNT11	   707#
PNT11F	   708#
PNT1F	   694#
PNT2	   695#
PNT2F	   696#
PNT3	   697#	  3853
PNT3F	   698#
PNT4	   699#	  3857
PNT4F	   700#
PNT5	   701#	  3859
PNT5F	   702#
PNT6	   703#	  3809	  3861
PNT6F	   704#
PNT7	   705#
PNT7F	   706#
PNTA	   679#	  3844
PNTADF	   710#
PNTADR	   709#
PNTAF	   680#
PNTAL	   681#	  3837
PNTALF	   682#
PNTCHF	   692#
PNTCHR	   691#
PNTCI	   689#
PNTCIF	   690#
PNTCW	   725#                                                                                                            SEQ 0128
PNTCWF	   726#
PNTDCF	   718#
PNTDEC	   717#	  3804
PNTDS	   719#
PNTDSF	   720#
PNTHW	   713#	  3824
PNTHWF	   714#
PNTMSF	   686#
PNTMSG	   685#
PNTNM	   721#	  3797
PNTOCF	   716#
PNTOCS	   715#
PNTOCT	   711#
PNTOTF	   712#
PNTSIX	   722#
PNTSXF	   723#
PSIXL	   683#
PSIXLF	   684#
PSIXM	   687#	  3802	  3806	  3817	  3842
PSIXMF	   688#	  3922
PSP	   729#
PSPF	   730#
PUT	   640#
RDAPR	   803#
RDCSB	   803#
RDCSTM	   803#
RDEBR	   803#
RDHSB	   803#
RDINT	   803#
RDIO	   803#
RDIOB	   803#
RDPI	   803#
RDPUR	   803#
RDSPB	   803#
RDTIM	   803#
RDUBR	   803#
RTN	   639#	   893
S	   569#	   571	   575	   604	   606	   615	   618	   633	   634	   636	   647	   649	   653	   655
	   660	   664	   803	   808	   814	   841	   843	   861	   863	   881	   883	   912	   914	   932
	   934	   952	   954	   962	   964	   985	   990	  1016	  1018	  1025	  1027	  1033	  1035	  1041
	  1043	  1047	  1049	  1054	  1056	  1060	  1062	  1066	  1068	  1074	  1076	  1079	  1081	  1085
	  1087	  1091	  1093	  1097	  1099	  1103	  1105	  1110	  1112	  1116	  1118	  1122	  1124	  1126
	  1128
SAVEAC	    63#	  1170	  1199	  1223	  1252	  1276	  1302	  1332	  1424	  1443	  1470	  1620	  1641	  1679
	  1700	  1720	  1747	  1767	  1788	  1814	  1840	  1866	  1972	  2077	  2137	  2212	  2232	  2252
	  2337	  2441	  2498	  2518	  2541	  2563	  2584	  2607	  2630	  2691	  2715	  2736	  2789	  2842
	  2870	  2925	  2985	  3050	  3102	  3121	  3143	  3192	  3217	  3241	  3262	  3308	  3331	  3355
	  3378	  3440	  3462	  3483	  3508	  3529	  3553	  3574	  3675	  3694	  3713
SDFA	   471#
SDFARP	   557#
SDFD	   525#
SDFDKL	   535#
SDFM	   493#                                                                                                            SEQ 0129
SDFMKL	   503#
SDFS	   482#
SIXBTZ	   746#
SWITCH	   752#	  3783	  3885
TIOE	   803#
TIOEB	   803#
TION	   803#
TIONB	   803#
TTALTM	   673#	  3887
TTICHR	   666#
TTICLR	   676#
TTICNV	   671#
TTIDEC	   670#
TTINO	   668#
TTIOCT	   669#
TTIYES	   667#
TTLOOK	   672#
TTSIXB	   674#
TTYINP	   675#
WRAPR	   803#
WRCSB	   803#
WRCSTM	   803#
WREBR	   803#
WRHSB	   803#
WRINT	   803#
WRIO	   803#
WRIOB	   803#
WRPI	   803#
WRPUR	   803#
WRSPB	   803#
WRTIM	   803#
WRUBR	   803#

ADDI	  2618
ANDI	  3820                                                                                                             SEQ 0130
AOS	   891	  3776	  3779	  3905	  3906
ASCII	   992	   994	   997	   998	   999	  1000	  1002	  1003	  1004	  1005	  1006	  1007	  1009	  1010
	  1011
ASCIZ	  1135	  1152	  3870	  3871	  3872	  3873	  3874	  3875	  3876	  3877	  3878
BLOCK	   960	  1020	  1023	  1029	  1032	  1038	  3997
BYTE	  1008
CAIG	  3822	  3833
CAIL	  3910
CALL	  1133
CAME	  1213	  1237	  1266	  1290	  1317	  1608	  1893	  1904	  1915	  1926	  1937	  1948	  1959	  1999
	  2010	  2021	  2032	  2043	  2054	  2065	  2105	  2116	  2127	  2165	  2177	  2189	  2201	  2242
	  2280	  2291	  2302	  2313	  2324	  2365	  2376	  2387	  2398	  2409	  2420	  2431	  2471	  2473
	  2484	  2486	  2529	  2531	  2552	  2554	  2574	  2595	  2597	  2620	  2664	  2666	  2679	  2681
	  2703	  2705	  2725	  2727	  2766	  2778	  2817	  2828	  2854	  2895	  2905	  2915	  2953	  2964
	  2975	  3016	  3028	  3040	  3079	  3090	  3112	  3132	  3171	  3182	  3205	  3207	  3287	  3297
	  3320	  3322	  3343	  3345	  3367	  3369	  3415	  3430	  3452	  3474	  3496	  3498	  3520	  3541
	  3543	  3565	  3607	  3609	  3621	  3623	  3635	  3637	  3649	  3651	  3663	  3665	  3684	  3704
	  3742	  3753	  3764
CAMN	  1188	  1358	  1368	  1393	  1403	  1413	  1457	  1496	  1506	  1516	  1540	  1550	  1574	  1584
	  1594	  1630	  1652	  1661	  1669	  1689	  1710	  1736	  1757	  1777	  1802	  1829	  1850	  2852
	  3564	  3778
DEFINE	     7	    63	    91	   113	   141	   171	   209	   253	   278	   305	   337	   372	   417	   428
	   439	   450	   460	   471	   482	   493	   503	   525	   535	   557	   569	   737	   740	   746
END	  4005
FDV	  2894	  2904	  2914	  2952	  2963	  2974	  3015	  3027	  3039	  3078	  3089	  3111	  3131	  3170
	  3181	  3204	  3227	  3251
FDVB	  3342	  3366
FDVM	  3286	  3296	  3319
FDVR	  3414	  3429	  3451	  3473	  3495
FDVRB	  3563	  3606	  3620	  3634	  3648	  3662
FDVRI	  3683	  3703	  3741	  3752	  3763
FDVRM	  3519	  3540
FMP	  1179	  1187	  1209	  1233	  1262	  1286	  1311	  1357	  1367	  1392	  1402	  1412	  1432	  1453
	  1495	  1505	  1515	  1539	  1549	  1573	  1583	  1593	  1604	  1629	  1651	  1660	  1668	  1688
	  1709	  1730	  1756	  1776	  1798	  1824	  1849	  1892	  1903	  1914	  1925	  1936	  1947	  1958
	  1998	  2009	  2020	  2031	  2042	  2053	  2064	  2104	  2115	  2126	  2164	  2176	  2188	  2200
	  2220	  2241	  2279	  2290	  2301	  2312	  2323	  2364	  2375	  2386	  2397	  2408	  2419	  2430
	  2470	  2483	  2507
FMPB	  2528	  2551
FMPM	  2573	  2594
FMPR	  2619	  2663	  2678
FMPRB	  2724
FMPRI	  2765	  2777	  2816	  2827	  2851
FMPRM	  2702
HRL	  3781
HRLI	  2159	  2161	  2171	  2173	  2183	  2185	  2195	  2197	  2524	  2547	  2569	  2590	  2613	  2615
	  2658	  2661	  2673	  2676	  2697	  2700	  2761	  2763	  2773	  2775	  3127	  3198	  3200	  3202
	  3314	  3316	  3337	  3339	  3361	  3363	  3408	  3410	  3412	  3423	  3425	  3427	  3446	  3448
	  3468	  3470	  3489	  3491	  3493	  3514	  3516	  3535	  3537	  3559	  3602	  3616	  3630	  3644
	  3658	  3700	  3738	  3749	  3760
HRRI	  2160	  2162	  2172	  2174	  2184	  2186	  2196	  2198	  2525	  2548	  2570	  2591	  2614	  2616
	  2659	  2662	  2674	  2677	  2698	  2701	  2762	  2764	  2774	  2776	  3128	  3199	  3201	  3203
	  3315	  3317	  3338	  3340	  3362	  3364	  3409	  3411	  3413	  3424	  3426	  3428	  3447	  3449     SEQ 0131
	  3469	  3471	  3490	  3492	  3494	  3515	  3517	  3536	  3538	  3560	  3603	  3617	  3631	  3645
	  3659	  3701	  3739	  3750	  3761
HRRZ	  3777	  3807	  3846
IFDEF	   803	   854	   855	   856	   857	  3811	  3881	  3996	  4003
IFE	  3407	  3422
IFNDEF	   792	   793	   803	   854	   855	   856	   857	   936	  3929
JFCL	   894	   895	   896	   897	   898	   899	   900	   901	   902	   903	   904	   905	  1205	  1211
	  1258	  1264	  1282	  1288	  1449	  1455	  1726	  1732	  1820	  1826
JFOV	  1241	  1315
JOV	  1239	  1313	  2859
JRST	   642	   643	   644	   645	   816	   817	   819	   821	   823	   825	   827	   830	   832	   833
	   886	  1155	  1229	  1600	  1610	  1794	  1804	  1827	  2504	  2848	  2860	  3223	  3247	  3768
	  3785	  3792	  3795	  3800	  3828	  3834	  3848	  3850	  3852	  3855	  3858	  3860	  3862	  3888
	  3891	  3904	  3908	  3911	  3914	  3918	  3919	  3923
JSP	   651	  1210	  1234	  1263	  1287	  1312	  1454	  1605	  1731	  1799	  1825	  2508	  2856	  3228
	  3252
JUMPL	  1182	  1190	  1215	  1243	  1268	  1292	  1319	  1360	  1370	  1395	  1405	  1415	  1435	  1459
	  1498	  1508	  1518	  1542	  1552	  1576	  1586	  1596	  1611	  1632	  1654	  1663	  1671	  1691
	  1712	  1738	  1759	  1779	  1805	  1831	  1852	  1895	  1906	  1917	  1928	  1939	  1950	  1961
	  2001	  2012	  2023	  2034	  2045	  2056	  2067	  2107	  2118	  2129	  2167	  2179	  2191	  2203
	  2223	  2244	  2282	  2293	  2304	  2315	  2326	  2367	  2378	  2389	  2400	  2411	  2422	  2433
	  2475	  2488	  2511	  2533	  2556	  2576	  2599	  2622	  2668	  2683	  2707	  2729	  2768	  2780
	  2819	  2830	  2862	  2897	  2907	  2917	  2955	  2966	  2977	  3018	  3030	  3042	  3081	  3092
	  3114	  3134	  3173	  3184	  3209	  3231	  3255	  3289	  3299	  3324	  3347	  3371	  3417	  3432
	  3454	  3476	  3500	  3522	  3545	  3567	  3611	  3625	  3639	  3653	  3667	  3686	  3706	  3744
	  3755	  3766
LALL	     8	  1162
LIST	     7	   803	   936	  3811	  3881	  3929	  3993
LIT	  3930
LOC	    22	   806	  1130
LSH	  3787	  3819
MOVE	  1152	  2850	  3780	  3786	  3789	  3790	  3803	  3818	  3821	  3823	  3826	  3832	  3836	  3892
	  3900	  3901	  3909	  3913	  3916
MOVEI	  1171	  1173	  1200	  1202	  1224	  1226	  1253	  1255	  1277	  1279	  1303	  1305	  1333	  1335
	  1425	  1427	  1444	  1446	  1471	  1473	  1621	  1623	  1642	  1644	  1680	  1682	  1701	  1703
	  1721	  1723	  1748	  1750	  1768	  1770	  1789	  1791	  1815	  1817	  1841	  1843	  1867	  1869
	  1973	  1975	  2078	  2080	  2138	  2140	  2213	  2215	  2233	  2235	  2253	  2255	  2338	  2340
	  2442	  2444	  2499	  2501	  2519	  2521	  2542	  2544	  2564	  2566	  2585	  2587	  2608	  2610
	  2631	  2633	  2692	  2694	  2716	  2718	  2737	  2739	  2790	  2792	  2843	  2845	  2871	  2873
	  2926	  2928	  2986	  2988	  3051	  3053	  3103	  3105	  3122	  3124	  3144	  3146	  3193	  3195
	  3218	  3220	  3226	  3242	  3244	  3263	  3265	  3309	  3311	  3332	  3334	  3356	  3358	  3379
	  3381	  3441	  3443	  3463	  3465	  3484	  3486	  3509	  3511	  3530	  3532	  3554	  3556	  3575
	  3577	  3676	  3678	  3695	  3697	  3714	  3716	  3843	  3889
MOVEM	  1153	  1172	  1174	  1201	  1203	  1225	  1227	  1254	  1256	  1278	  1280	  1304	  1306	  1334
	  1336	  1426	  1428	  1445	  1447	  1472	  1474	  1622	  1624	  1643	  1645	  1681	  1683	  1702
	  1704	  1722	  1724	  1749	  1751	  1769	  1771	  1790	  1792	  1816	  1818	  1842	  1844	  1868
	  1870	  1974	  1976	  2079	  2081	  2139	  2141	  2214	  2216	  2234	  2236	  2254	  2256	  2339
	  2341	  2443	  2445	  2500	  2502	  2520	  2522	  2543	  2545	  2565	  2567	  2586	  2588	  2609
	  2611	  2632	  2634	  2693	  2695	  2717	  2719	  2738	  2740	  2791	  2793	  2844	  2846	  2872
	  2874	  2927	  2929	  2987	  2989	  3052	  3054	  3104	  3106	  3123	  3125	  3145	  3147	  3194
	  3196	  3219	  3221	  3243	  3245	  3264	  3266	  3310	  3312	  3333	  3335	  3357	  3359	  3380
	  3382	  3442	  3444	  3464	  3466	  3485	  3487	  3510	  3512	  3531	  3533	  3555	  3557	  3576
	  3578	  3677	  3679	  3696	  3698	  3715	  3717	  3773	  3774	  3775	  3788	  3808	  3890             SEQ 0132
MOVSI	  1177	  1185	  1186	  1206	  1207	  1208	  1230	  1231	  1232	  1259	  1260	  1261	  1283	  1284
	  1285	  1308	  1309	  1310	  1354	  1355	  1356	  1364	  1365	  1366	  1389	  1390	  1391	  1399
	  1400	  1401	  1409	  1410	  1411	  1430	  1431	  1450	  1451	  1452	  1492	  1493	  1494	  1502
	  1503	  1504	  1512	  1513	  1514	  1536	  1537	  1538	  1546	  1547	  1548	  1570	  1571	  1572
	  1580	  1581	  1582	  1590	  1591	  1592	  1601	  1602	  1603	  1626	  1627	  1628	  1648	  1649
	  1650	  1657	  1658	  1659	  1665	  1666	  1667	  1685	  1686	  1687	  1706	  1707	  1708	  1727
	  1728	  1729	  1753	  1754	  1755	  1773	  1774	  1775	  1795	  1796	  1797	  1821	  1822	  1823
	  1846	  1848	  1889	  1890	  1891	  1900	  1901	  1902	  1911	  1912	  1913	  1922	  1923	  1924
	  1933	  1934	  1935	  1944	  1945	  1946	  1955	  1956	  1957	  1995	  1996	  1997	  2006	  2007
	  2008	  2017	  2018	  2019	  2028	  2029	  2030	  2039	  2040	  2041	  2050	  2051	  2052	  2061
	  2062	  2063	  2101	  2102	  2103	  2112	  2113	  2114	  2123	  2124	  2125	  2163	  2175	  2187
	  2199	  2219	  2238	  2239	  2240	  2276	  2277	  2278	  2287	  2288	  2289	  2298	  2299	  2300
	  2309	  2310	  2311	  2320	  2321	  2322	  2361	  2362	  2363	  2372	  2373	  2374	  2383	  2384
	  2385	  2394	  2395	  2396	  2405	  2406	  2407	  2416	  2417	  2418	  2427	  2428	  2429	  2467
	  2468	  2469	  2480	  2481	  2482	  2506	  2526	  2527	  2549	  2550	  2571	  2572	  2592	  2593
	  2617	  2660	  2675	  2699	  2721	  2722	  2723	  2814	  2815	  2825	  2826	  2891	  2892	  2893
	  2901	  2902	  2903	  2911	  2912	  2913	  2949	  2950	  2951	  2960	  2961	  2962	  2971	  2972
	  2973	  3012	  3013	  3014	  3024	  3025	  3026	  3036	  3037	  3038	  3075	  3076	  3077	  3086
	  3087	  3088	  3108	  3109	  3110	  3129	  3130	  3167	  3168	  3169	  3178	  3179	  3180	  3225
	  3249	  3250	  3283	  3284	  3285	  3293	  3294	  3295	  3318	  3341	  3365	  3450	  3472	  3518
	  3539	  3561	  3562	  3604	  3605	  3618	  3619	  3632	  3633	  3646	  3647	  3660	  3661	  3681
	  3682	  3702	  3740	  3751	  3762
NOSYM	    24
OPDEF	    29	    30	    31	    32	    33	    34	    35	    36	    37	    38	    39	   638	   639	   640
	   641	   642	   643	   644	   645	   651	   657	   658	   666	   667	   668	   669	   670	   671
	   672	   673	   674	   675	   676	   679	   680	   681	   682	   683	   684	   685	   686	   687
	   688	   689	   690	   691	   692	   693	   694	   695	   696	   697	   698	   699	   700	   701
	   702	   703	   704	   705	   706	   707	   708	   709	   710	   711	   712	   713	   714	   715
	   716	   717	   718	   719	   720	   721	   722	   723	   724	   725	   726	   727	   728	   729
	   730	   731	   732	   733	   735	   752	   757	   758	   762	   763	   764	   770	   771	   777
	   778	   779	   780	   781	   782	   783	   789	   790	   797	   798	   799	   800	   803
PAGE	  1372	  1510	  1597	  2069	  2623	  2782	  2863	  3094	  3135	  3301
POP	   641
POPJ	   639
PUSH	   640
PUSHJ	   638
REPEAT	  1341	  1376	  1479	  1523	  1557	  1874	  1980	  2086	  2144	  2261	  2346	  2450	  2639	  2745
	  2799	  2878	  2934	  2995	  3060	  3152	  3270	  3388	  3584	  3723
SETOM	  3798	  3896	  3902
SETZ	  1178	  1847	  2218
SETZM	  3782	  3793
SIXBIT	    85	    86	  1021	  1022	  1030	  1031	  1133	  3802	  3806	  3817	  3842	  3922
SKIPE	  1180	  2221
SKIPGE	  3791
SKIPL	  3794	  3907
SKIPN	  1433	  3796	  3799	  3903
SUBTTL	    25	   567	   602	   803	   804	  1156	  1853	  3769	  3924
TITLE	    12
TLNE	  1800	  2857	  3253	  3784	  3827	  3893	  3897
TLNN	  1235	  1606	  1734	  2509	  3229	  3895	  3917
TRNE	  3847	  3849	  3851
VAR	  4001
XALL	    14                                                                                                             SEQ 0133
XCT	  3884
XLIST	     6	   802	   803	   935	  3810	  3880	  3928
XWD	  2505	  2849	  2850	  2852	  2854	  3224	  3248
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 1                  SEQ 0134
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777 


*030631  FMP 	14,000013

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

*030637  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 177400 000000 
----------

*030653  FMP 	14,000013

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*030672  FMP 	13,000012

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*030715  FMP 	12,000011

FLAGS - INT/FINAL   000300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 2
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0135

*030734  FMP 	5,000004

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 200400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 377400 000000 
----------

*030752  FMP 	11,000010

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*030772  FMP 	10,000007

FLAGS - INT/FINAL   000300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031001  FMP 	10,000007

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031010  FMP 	10,000007

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 3
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0136

*031017  FMP 	10,000007

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031026  FMP 	10,000007

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031040  FMP 	7,000006

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031054  FMP 	6,000005

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 200400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 377400 000000 
----------

*031072  FMP 	14,000013

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 4
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0137

*031101  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031110  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031117  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031126  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031135  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 5
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0138

*031144  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031153  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031163  FMP 	14,000013

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 177400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 376400 000000 
----------

*031202  FMP 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 176400 000000 
----------

*031215  FMP 	13,000012

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 176400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 6
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0139

*031224  FMP 	13,000012

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 176400 000000 
----------

*031233  FMP 	13,000012

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 176400 000000 
----------

*031246  FMP 	12,000011

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 176400 000000 
----------

*031261  FMP 	11,000010

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 577400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 400400 000000 
----------

*031275  FMP 	10,000007

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 377400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 7
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0140

*031315  FMP 	7,000006

FLAGS - INT/FINAL   040300 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 377400 000000 
----------

*031330  FMP 	6,000005

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200400 000000  C(E)= 577400 000000 
FINAL
C(AC)= 600400 000000 
----------

*031344  FMP 	5,000004

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 177400 000000 
----------

*031364  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 205400 000000 
FINAL
C(AC)= 204400 000000 
----------

*031403  FMP 	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 8
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0141

*031416  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 201400 000000 
FINAL
C(AC)= 200400 000000 
----------

*031425  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 202400 000000 
FINAL
C(AC)= 201400 000000 
----------

*031434  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 204400 000000 
FINAL
C(AC)= 203400 000000 
----------

*031443  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 210400 000000 
FINAL
C(AC)= 207400 000000 
----------

*031452  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 220400 000000 
FINAL
C(AC)= 217400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 9
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0142

*031461  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 240400 000000 
FINAL
C(AC)= 237400 000000 
----------

*031470  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 300400 000000 
FINAL
C(AC)= 277400 000000 
----------

*031503  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 200400 000000 
----------

*031512  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 201400 000000 
----------

*031521  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 204400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 203400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 10
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0143

*031530  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 210400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 207400 000000 
----------

*031537  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 220400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 217400 000000 
----------

*031546  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 240400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 237400 000000 
----------

*031555  FMP 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 300400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 277400 000000 
----------

*031570  FMP 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 577400 000000 
FINAL
C(AC)= 600400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 11
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0144

*031577  FMP 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 576400 000000 
FINAL
C(AC)= 577400 000000 
----------

*031606  FMP 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 575400 000000 
FINAL
C(AC)= 576400 000000 
----------

*031623  FMP 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777777  C(E)= 200400 000000 
FINAL
C(AC)= 177777 777777 
----------

*031634  FMP 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777776  C(E)= 200400 000000 
FINAL
C(AC)= 177777 777776 
----------

*031645  FMP 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777775  C(E)= 200400 000000 
FINAL
C(AC)= 177777 777775 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 12
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0145

*031656  FMP 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777774  C(E)= 200400 000000 
FINAL
C(AC)= 177777 777774 
----------

*031670  FMP 	11,000010

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

*031703  FMP 	10,000007

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 577400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 600400 000000 
----------

*031716  FMP 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 501700 000000  C(E)= 500400 000000 
FINAL
C(AC)= 372400 000000 
----------

*031725  FMP 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 502700 000000  C(E)= 500400 000000 
FINAL
C(AC)= 371400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 13
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0146

*031734  FMP 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 503700 000000  C(E)= 500400 000000 
FINAL
C(AC)= 370400 000000 
----------

*031743  FMP 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 504700 000000  C(E)= 500400 000000 
FINAL
C(AC)= 367400 000000 
----------

*031752  FMP 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 505700 000000  C(E)= 500400 000000 
FINAL
C(AC)= 366400 000000 
----------

*031765  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000000  C(E)= 200400 000000 
FINAL
C(AC)= 176400 000000 
----------

*031774  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200100 000000  C(E)= 200400 000000 
FINAL
C(AC)= 175400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 14
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0147

*032003  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200040 000000  C(E)= 200400 000000 
FINAL
C(AC)= 174400 000000 
----------

*032012  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200020 000000  C(E)= 200400 000000 
FINAL
C(AC)= 173400 000000 
----------

*032021  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200010 000000  C(E)= 200400 000000 
FINAL
C(AC)= 172400 000000 
----------

*032030  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200004 000000  C(E)= 200400 000000 
FINAL
C(AC)= 171400 000000 
----------

*032037  FMP 	7,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200002 000000  C(E)= 200400 000000 
FINAL
C(AC)= 170400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 15
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0148

*032052  FMP 	6,000005

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 500700 000000  C(E)= 200400 000000 
FINAL
C(AC)= 503400 000000 
----------

*032063  FMP 	6,000005

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 500770 000000  C(E)= 200400 000000 
FINAL
C(AC)= 506400 000000 
----------

*032100  FMP 	6,000006

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 177400 000000 
----------

*032115  FMPB	5,000004

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200775 000000  C(E)= 200775 000000 
FINAL
C(AC)= 200772 011000  C(E)= 200772 011000 
----------

*032133  FMPB	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200774 000000  C(E)= 200774 000000 
FINAL
C(AC)= 200770 020000  C(E)= 200770 020000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 16
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0149

*032151  FMPM	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200773 000000  C(E)= 200773 000000 
FINAL
 C(E)= 200766 031000 
----------

*032165  FMPM	13,000012

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 177477 000000  C(E)= 200700 000000 
FINAL
 C(E)= 177427 100000 
----------

*032205  FMPR 	6,000005

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777777  C(E)= 200000 000002 
FINAL
C(AC)= 146777 777777 
----------

*032222  FMPR 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200700 000000  C(E)= 200400 000077 
FINAL
C(AC)= 177700 000156 
----------

*032235  FMPR 	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200700 000000  C(E)= 200400 000076 
FINAL
C(AC)= 177700 000155 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 17
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0150

*032254  FMPRM	14,000013

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200700 000000  C(E)= 200400 000075 
FINAL
 C(E)= 177700 000153 
----------

*032271  FMPRB	13,000012

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 577400 000000  C(E)= 600400 000000 
FINAL
C(AC)= 176400 000000  C(E)= 176400 000000 
----------

*032307  FMPRI	12,177600

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 600400 000077     E= 000000 177600 
FINAL
C(AC)= 602200 000136 
----------

*032317  FMPRI	12,177600

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 600400 000076     E= 000000 177600 
FINAL
C(AC)= 602200 000135 
----------

*032331  FMPRI	11,576400

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 600400 000000     E= 000000 576400 
FINAL
C(AC)= 177400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 18
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0151

*032337  FMPRI	11,575400

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 600400 000000     E= 000000 575400 
FINAL
C(AC)= 200400 000000 
----------

*032352  FMPRI	11,201400

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400000 000001     E= 000000 201400 
FINAL
C(AC)= 400000 000001 
----------

*032375  FDV 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 201400 000000 
----------

*032404  FDV 	14,000013

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

*032413  FDV 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202400 000000  C(E)= 202400 000000 
FINAL
C(AC)= 201400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 19
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0152

*032426  FDV 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 202400 000000 
----------

*032435  FDV 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 203400 000000 
----------

*032444  FDV 	14,000013

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 203400 000000  C(E)= 200400 000000 
FINAL
C(AC)= 204400 000000 
----------

*032457  FDV 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200600 000000  C(E)= 200400 000000 
FINAL
C(AC)= 201600 000000 
----------

*032466  FDV 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200700 000000  C(E)= 200400 000000 
FINAL
C(AC)= 201700 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 20
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0153

*032475  FDV 	13,000012

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200740 000000  C(E)= 200400 000000 
FINAL
C(AC)= 201740 000000 
----------

*032510  FDV 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000  C(E)= 577400 000000 
FINAL
C(AC)= 576400 000000 
----------

*032517  FDV 	12,000011

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200600 000000  C(E)= 577400 000000 
FINAL
C(AC)= 576200 000000 
----------

*032532  FDV 	11,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 177400 000000  C(E)= 204400 000000 
FINAL
C(AC)= 174400 000000 
----------

*032546  FDV 	10,000007

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000  C(E)= 200600 000000 
FINAL
C(AC)= 576252 525253 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 21
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0154

*032561  FDV 	7,000006

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)= 600600 000000  C(E)= 577400 000000 
FINAL
C(AC)= 177400 000000 
----------

*032570  FDV 	7,000006

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)= 600400 000000  C(E)= 577400 000000 
FINAL
C(AC)= 200400 000000 
----------

*032606  FDV 	6,000005

FLAGS - INT/FINAL   300000 740200 
INITIAL
C(AC)= 377400 777777  C(E)= 577400 777777 
FINAL
C(AC)= 777375 773772 
----------

*032624  FDV 	6,000005

FLAGS - INT/FINAL   000000 440240 
INITIAL
C(AC)= 201400 000000  C(E)= 000000 000000 
FINAL
C(AC)= 201400 000000 
----------

*032641  FDV 	6,000005

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 377400 000000  C(E)= 000400 000000 
FINAL
C(AC)= 200400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 22
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0155

*032655  FDVM	5,000004

FLAGS - INT/FINAL   440200 440240 
INITIAL
C(AC)= 577775 000000  C(E)= 577777 000000 
FINAL
 C(E)= 577777 000000 
----------

*032664  FDVM	5,000004

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 577774 000000  C(E)= 577777 000000 
FINAL
 C(E)= 577777 000000 
----------

*032701  FDVM	14,000013

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170750 000000 
FINAL
 C(E)= 221414 456123 
----------

*032720  FDVB	14,000013

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170555 000000 
FINAL
C(AC)= 221547 063714  C(E)= 221547 063714 
----------

*032737  FDVB	13,000012

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 577000 555555  C(E)= 200400 000000 
FINAL
C(AC)= 576000 555555  C(E)= 576000 555555 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 23
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0156

*032757  FDVR 	6,000005

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 200777 777777  C(E)= 200777 777776 
FINAL
C(AC)= 201400 000001 
----------

*032771  FDVR 	6,000005

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 200777 777777  C(E)= 200777 777774 
FINAL
C(AC)= 201400 000002 
----------

*033006  FDVR 	5,000004

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170555 000000 
FINAL
C(AC)= 221547 063715 
----------

*033023  FDVR 	14,000013

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777776  C(E)= 170555 000000 
FINAL
C(AC)= 221547 063714 
----------

*033041  FDVR 	14,000013

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170555 600000 
FINAL
C(AC)= 221546 272703 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 24
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0157

*033060  FDVRM	13,000012

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170557 000000 
FINAL
 C(E)= 221545 111741 
----------

*033075  FDVRM	12,000011

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 777777  C(E)= 170560 000000 
FINAL
 C(E)= 221544 131026 
----------

*033113  FDVRB	11,000010

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 377400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 077400 400401  C(E)= 077400 400401 
----------

*033130  FDVRB	10,000007

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 376400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 076400 400401  C(E)= 076400 400401 
----------

*033142  FDVRB	10,000007

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 375400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 075400 400401  C(E)= 075400 400401 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 25
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0158

*033154  FDVRB	10,000007

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 374400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 074400 400401  C(E)= 074400 400401 
----------

*033166  FDVRB	10,000007

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 373400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 073400 400401  C(E)= 073400 400401 
----------

*033200  FDVRB	10,000007

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 372400 000000  C(E)= 100777 000000 
FINAL
C(AC)= 072400 400401  C(E)= 072400 400401 
----------

*033214  FDVRI	7,210777

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 210777 000000     E= 000000 210777 
FINAL
C(AC)= 201400 000000 
----------

*033227  FDVRI	6,210777

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 200400 000000     E= 000000 210777 
FINAL
C(AC)= 170400 400401 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 26
DSKCB	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0159

*033242  FDVRI	5,100777

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 371400 000000     E= 000000 100777 
FINAL
C(AC)= 071400 400401 
----------

*033251  FDVRI	5,100777

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 370400 000000     E= 000000 100777 
FINAL
C(AC)= 070400 400401 
----------

*033260  FDVRI	5,100777

FLAGS - INT/FINAL   440240 440240 
INITIAL
C(AC)= 367400 000000     E= 000000 100777 
FINAL
C(AC)= 067400 400401 
----------