Google
 

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







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

	PRODUCT CODE:		AH-E333A-DD

	DIAGNOSTIC CODE:	DSKCE

	PRODUCT NAME:	 	DSKCEA0 DECSYSTEM 2020 ADVANCED
				INSTRUCTION DIAGNOSTIC (5)

	VERSION:		0.1

	DATE RELEASED:		JUNE 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-DSKCE.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-DSKCE.TXT
							PAGE 3                                                             SEQ 0004

1.0	ABSTRACT

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

	THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
	AND MICRO-CODE DOUBLE PRECISION FLOATING POINT
	INSTRUCTIONS: DFAD, DFSB, DFMP AND DFDV.


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-DSKCE.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-DSKCE.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-DSKCE.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-DSKCE.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-DSKCE.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 'DSKCE.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-DSKCE.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 DSKCE                                                                                     SEQ 0011
		----------------------

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

CODE:		MAINDEC-10-DSKCE

TITLE:		DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (5)

VERSION:	0.1

DATE:		JUNE 1978

REASON:		ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
		PREVIOUS MARCH RELEASE MODIFIED FOR TEST S73400 DUE TO
		SPECIFICATION CHANGE ON LEAST SIGNIFICANT BIT FOR
		DOUBLE FLOATING DIVIDE.
---------------------------------------------------------------
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
DSKCET	MAC	21-Jun-78 09:35		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0012

     1					;MAINDEC-10-DSKCE
     2
     3			000000		MCNVER=0
     4			000001		DECVER=1
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, 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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2
DSKCET	MAC	21-Jun-78 09:35		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			037666		LUUO1==ERRMES
    42			037666		LUUO2==ERRMES
    43			037666		LUUO3==ERRMES
    44			037666		LUUO4==ERRMES
    45			037666		LUUO5==ERRMES
    46			037666		LUUO6==ERRMES
    47			037666		LUUO7==ERRMES
    48			037666		LUUO10==ERRMES
    49			037666		LUUO11==ERRMES
    50			037666		LUUO12==ERRMES
    51			037666		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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3
DSKCET	MAC	21-Jun-78 09:35		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	434500		PAREA3=SIXBIT/DSKCE/
    86		546064	000000		PAREA4=SIXBIT/LPT/
    87			000000		PAREA5=0
    88			000000		PAREA6=0
    89
    90			000001		ITERAT=1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 11
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 12
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 13
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 14
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 15
DSKCET	MAC	21-Jun-78 09:35		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>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
PARAM	KSM	28-Mar-78 16: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 !!!
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2
PARAM	KSM	28-Mar-78 16: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^;*********************************************************************^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3
PARAM	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4
PARAM	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5
PARAM	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6
PARAM	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
FIXED	KSM	28-Mar-78 16: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			; "
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2
FIXED	KSM	28-Mar-78 16:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0034

   841					S^;*********************************************************************^
   842					;*PROGRAM FIXED PARAMETER AREA
   843					S^;*********************************************************************^
   844
   845	030020	446353	434500		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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3
FIXED	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4
FIXED	KSM	28-Mar-78 16: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	037666	030070		UUODIS:	LUUO1,,$UUOER
   938	030125	037666	037666			LUUO3,,LUUO2
   939	030126	037666	037666			LUUO5,,LUUO4
   940	030127	037666	037666			LUUO7,,LUUO6
   941	030130	037666	037666			LUUO11,,LUUO10
   942	030131	037666	037666			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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5
FIXED	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6
FIXED	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7
FIXED	KSM	28-Mar-78 16: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
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
DSKCE1	MAC	21-Jun-78 10:46		*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 040054 		CALL	[SIXBIT .EXIT.]
  1134
  1135	030602				PGMNAM:	ASCIZ?
  1136	030602	015 012 104 105 103 	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5 (DSKCE)
  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	065 040 050 104 123 
  1147	030615	113 103 105 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 040055 		MOVE	[ASCIZ/CE/]
  1153	030621	202 00 0 00 037775 		MOVEM	TLET		;INITIALIZE TEST LETTER
  1154
  1155	030622	254 00 0 00 030623 	STARTA:	JRST	.+1		;GO PERFORM DIAGNOSTIC
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0041

  1156					SUBTTL CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS
  1157
  1158			000004			AC=4
  1159	030623				CE00:	SAVEAC	(1,1)^
  1160	030623	201 06 0 00 030623 		MOVEI	AC+2,.
  1161	030624	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1162	030625	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1163	030626	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1164	030627	254 02 1 00 040056 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  1165
  1166			000101		T=101
  1167	030630				S100:	SDFARP	T,201400,0,0,0,577400,0,0,0,200400,0,0,0^
  1168						DMOVE	AC,[201400,,0
  1169	030630	120 04 0 00 040057 			0,,0]
  1170						DFAD	AC,[577400,,0
  1171	030631	110 04 0 00 040061 			0,,0]
  1172	030632	312 04 0 00 040063 		CAME	AC,[200400,,0]
  1173	030633	003 04 0 00 000101 		ER3	AC,T
  1174	030634	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1175	030635	004 05 0 00 000101 		ER4	AC+1,T
  1176	030636	321 10 0 00 030630 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1177
  1178			000400			XX=400
  1179			200400			ZZ=200400
  1180
  1181						REPEAT	^D8,
  1182					<T=T+1
  1183						XX=XX/2
  1184						ZZ=ZZ-1000
  1185						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0
  1186					>
  1187			000102		T=T+1
  1188			000200			XX=XX/2
  1189			177400			ZZ=ZZ-1000
  1190						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1191						DMOVE	AC,[200400+XX,,0
  1192	030637	120 04 0 00 040064 			0,,0]
  1193						DFAD	AC,[577400,,0
  1194	030640	110 04 0 00 040061 			0,,0]
  1195	030641	312 04 0 00 040066 		CAME	AC,[ZZ,,0]
  1196	030642	003 04 0 00 000102 		ER3	AC,T
  1197	030643	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1198	030644	004 05 0 00 000102 		ER4	AC+1,T
  1199	030645	321 10 0 00 030637 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1200
  1201			000103		T=T+1
  1202			000100			XX=XX/2
  1203			176400			ZZ=ZZ-1000
  1204						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1205						DMOVE	AC,[200400+XX,,0
  1206	030646	120 04 0 00 040067 			0,,0]
  1207						DFAD	AC,[577400,,0
  1208	030647	110 04 0 00 040061 			0,,0]
  1209	030650	312 04 0 00 040071 		CAME	AC,[ZZ,,0]
  1210	030651	003 04 0 00 000103 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-1
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0042

  1211	030652	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1212	030653	004 05 0 00 000103 		ER4	AC+1,T
  1213	030654	321 10 0 00 030646 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1214
  1215			000104		T=T+1
  1216			000040			XX=XX/2
  1217			175400			ZZ=ZZ-1000
  1218						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1219						DMOVE	AC,[200400+XX,,0
  1220	030655	120 04 0 00 040072 			0,,0]
  1221						DFAD	AC,[577400,,0
  1222	030656	110 04 0 00 040061 			0,,0]
  1223	030657	312 04 0 00 040074 		CAME	AC,[ZZ,,0]
  1224	030660	003 04 0 00 000104 		ER3	AC,T
  1225	030661	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1226	030662	004 05 0 00 000104 		ER4	AC+1,T
  1227	030663	321 10 0 00 030655 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1228
  1229			000105		T=T+1
  1230			000020			XX=XX/2
  1231			174400			ZZ=ZZ-1000
  1232						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1233						DMOVE	AC,[200400+XX,,0
  1234	030664	120 04 0 00 040075 			0,,0]
  1235						DFAD	AC,[577400,,0
  1236	030665	110 04 0 00 040061 			0,,0]
  1237	030666	312 04 0 00 040077 		CAME	AC,[ZZ,,0]
  1238	030667	003 04 0 00 000105 		ER3	AC,T
  1239	030670	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1240	030671	004 05 0 00 000105 		ER4	AC+1,T
  1241	030672	321 10 0 00 030664 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1242
  1243			000106		T=T+1
  1244			000010			XX=XX/2
  1245			173400			ZZ=ZZ-1000
  1246						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1247						DMOVE	AC,[200400+XX,,0
  1248	030673	120 04 0 00 040100 			0,,0]
  1249						DFAD	AC,[577400,,0
  1250	030674	110 04 0 00 040061 			0,,0]
  1251	030675	312 04 0 00 040102 		CAME	AC,[ZZ,,0]
  1252	030676	003 04 0 00 000106 		ER3	AC,T
  1253	030677	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1254	030700	004 05 0 00 000106 		ER4	AC+1,T
  1255	030701	321 10 0 00 030673 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1256
  1257			000107		T=T+1
  1258			000004			XX=XX/2
  1259			172400			ZZ=ZZ-1000
  1260						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1261						DMOVE	AC,[200400+XX,,0
  1262	030702	120 04 0 00 040103 			0,,0]
  1263						DFAD	AC,[577400,,0
  1264	030703	110 04 0 00 040061 			0,,0]
  1265	030704	312 04 0 00 040105 		CAME	AC,[ZZ,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-2
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0043

  1266	030705	003 04 0 00 000107 		ER3	AC,T
  1267	030706	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1268	030707	004 05 0 00 000107 		ER4	AC+1,T
  1269	030710	321 10 0 00 030702 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1270
  1271			000110		T=T+1
  1272			000002			XX=XX/2
  1273			171400			ZZ=ZZ-1000
  1274						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1275						DMOVE	AC,[200400+XX,,0
  1276	030711	120 04 0 00 040106 			0,,0]
  1277						DFAD	AC,[577400,,0
  1278	030712	110 04 0 00 040061 			0,,0]
  1279	030713	312 04 0 00 040110 		CAME	AC,[ZZ,,0]
  1280	030714	003 04 0 00 000110 		ER3	AC,T
  1281	030715	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1282	030716	004 05 0 00 000110 		ER4	AC+1,T
  1283	030717	321 10 0 00 030711 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1284
  1285			000111		T=T+1
  1286			000001			XX=XX/2
  1287			170400			ZZ=ZZ-1000
  1288						SDFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
  1289						DMOVE	AC,[200400+XX,,0
  1290	030720	120 04 0 00 040111 			0,,0]
  1291						DFAD	AC,[577400,,0
  1292	030721	110 04 0 00 040061 			0,,0]
  1293	030722	312 04 0 00 040113 		CAME	AC,[ZZ,,0]
  1294	030723	003 04 0 00 000111 		ER3	AC,T
  1295	030724	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1296	030725	004 05 0 00 000111 		ER4	AC+1,T
  1297	030726	321 10 0 00 030720 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1298
  1299
  1300		000001	000000			XX=1000000
  1301
  1302						REPEAT	^D18,
  1303					<T=T+1
  1304						XX=XX/2
  1305						ZZ=ZZ-1000
  1306						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0
  1307					>
  1308			000112		T=T+1
  1309			400000			XX=XX/2
  1310			167400			ZZ=ZZ-1000
  1311						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1312						DMOVE	AC,[200400,,XX
  1313	030727	120 04 0 00 040114 			0,,0]
  1314						DFAD	AC,[577400,,0
  1315	030730	110 04 0 00 040061 			0,,0]
  1316	030731	312 04 0 00 040116 		CAME	AC,[ZZ,,0]
  1317	030732	003 04 0 00 000112 		ER3	AC,T
  1318	030733	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1319	030734	004 05 0 00 000112 		ER4	AC+1,T
  1320	030735	321 10 0 00 030727 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-3
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0044

  1321
  1322			000113		T=T+1
  1323			200000			XX=XX/2
  1324			166400			ZZ=ZZ-1000
  1325						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1326						DMOVE	AC,[200400,,XX
  1327	030736	120 04 0 00 040117 			0,,0]
  1328						DFAD	AC,[577400,,0
  1329	030737	110 04 0 00 040061 			0,,0]
  1330	030740	312 04 0 00 040121 		CAME	AC,[ZZ,,0]
  1331	030741	003 04 0 00 000113 		ER3	AC,T
  1332	030742	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1333	030743	004 05 0 00 000113 		ER4	AC+1,T
  1334	030744	321 10 0 00 030736 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1335
  1336			000114		T=T+1
  1337			100000			XX=XX/2
  1338			165400			ZZ=ZZ-1000
  1339						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1340						DMOVE	AC,[200400,,XX
  1341	030745	120 04 0 00 040122 			0,,0]
  1342						DFAD	AC,[577400,,0
  1343	030746	110 04 0 00 040061 			0,,0]
  1344	030747	312 04 0 00 040124 		CAME	AC,[ZZ,,0]
  1345	030750	003 04 0 00 000114 		ER3	AC,T
  1346	030751	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1347	030752	004 05 0 00 000114 		ER4	AC+1,T
  1348	030753	321 10 0 00 030745 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1349
  1350			000115		T=T+1
  1351			040000			XX=XX/2
  1352			164400			ZZ=ZZ-1000
  1353						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1354						DMOVE	AC,[200400,,XX
  1355	030754	120 04 0 00 040125 			0,,0]
  1356						DFAD	AC,[577400,,0
  1357	030755	110 04 0 00 040061 			0,,0]
  1358	030756	312 04 0 00 040127 		CAME	AC,[ZZ,,0]
  1359	030757	003 04 0 00 000115 		ER3	AC,T
  1360	030760	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1361	030761	004 05 0 00 000115 		ER4	AC+1,T
  1362	030762	321 10 0 00 030754 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1363
  1364			000116		T=T+1
  1365			020000			XX=XX/2
  1366			163400			ZZ=ZZ-1000
  1367						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1368						DMOVE	AC,[200400,,XX
  1369	030763	120 04 0 00 040130 			0,,0]
  1370						DFAD	AC,[577400,,0
  1371	030764	110 04 0 00 040061 			0,,0]
  1372	030765	312 04 0 00 040132 		CAME	AC,[ZZ,,0]
  1373	030766	003 04 0 00 000116 		ER3	AC,T
  1374	030767	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1375	030770	004 05 0 00 000116 		ER4	AC+1,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-4
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0045

  1376	030771	321 10 0 00 030763 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1377
  1378			000117		T=T+1
  1379			010000			XX=XX/2
  1380			162400			ZZ=ZZ-1000
  1381						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1382						DMOVE	AC,[200400,,XX
  1383	030772	120 04 0 00 040133 			0,,0]
  1384						DFAD	AC,[577400,,0
  1385	030773	110 04 0 00 040061 			0,,0]
  1386	030774	312 04 0 00 040135 		CAME	AC,[ZZ,,0]
  1387	030775	003 04 0 00 000117 		ER3	AC,T
  1388	030776	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1389	030777	004 05 0 00 000117 		ER4	AC+1,T
  1390	031000	321 10 0 00 030772 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1391
  1392			000120		T=T+1
  1393			004000			XX=XX/2
  1394			161400			ZZ=ZZ-1000
  1395						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1396						DMOVE	AC,[200400,,XX
  1397	031001	120 04 0 00 040136 			0,,0]
  1398						DFAD	AC,[577400,,0
  1399	031002	110 04 0 00 040061 			0,,0]
  1400	031003	312 04 0 00 040140 		CAME	AC,[ZZ,,0]
  1401	031004	003 04 0 00 000120 		ER3	AC,T
  1402	031005	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1403	031006	004 05 0 00 000120 		ER4	AC+1,T
  1404	031007	321 10 0 00 031001 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1405
  1406			000121		T=T+1
  1407			002000			XX=XX/2
  1408			160400			ZZ=ZZ-1000
  1409						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1410						DMOVE	AC,[200400,,XX
  1411	031010	120 04 0 00 040141 			0,,0]
  1412						DFAD	AC,[577400,,0
  1413	031011	110 04 0 00 040061 			0,,0]
  1414	031012	312 04 0 00 040143 		CAME	AC,[ZZ,,0]
  1415	031013	003 04 0 00 000121 		ER3	AC,T
  1416	031014	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1417	031015	004 05 0 00 000121 		ER4	AC+1,T
  1418	031016	321 10 0 00 031010 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1419
  1420			000122		T=T+1
  1421			001000			XX=XX/2
  1422			157400			ZZ=ZZ-1000
  1423						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1424						DMOVE	AC,[200400,,XX
  1425	031017	120 04 0 00 040144 			0,,0]
  1426						DFAD	AC,[577400,,0
  1427	031020	110 04 0 00 040061 			0,,0]
  1428	031021	312 04 0 00 040146 		CAME	AC,[ZZ,,0]
  1429	031022	003 04 0 00 000122 		ER3	AC,T
  1430	031023	312 05 0 00 040060 		CAME	AC+1,[0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-5
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0046

  1431	031024	004 05 0 00 000122 		ER4	AC+1,T
  1432	031025	321 10 0 00 031017 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1433
  1434			000123		T=T+1
  1435			000400			XX=XX/2
  1436			156400			ZZ=ZZ-1000
  1437						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1438						DMOVE	AC,[200400,,XX
  1439	031026	120 04 0 00 040147 			0,,0]
  1440						DFAD	AC,[577400,,0
  1441	031027	110 04 0 00 040061 			0,,0]
  1442	031030	312 04 0 00 040151 		CAME	AC,[ZZ,,0]
  1443	031031	003 04 0 00 000123 		ER3	AC,T
  1444	031032	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1445	031033	004 05 0 00 000123 		ER4	AC+1,T
  1446	031034	321 10 0 00 031026 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1447
  1448			000124		T=T+1
  1449			000200			XX=XX/2
  1450			155400			ZZ=ZZ-1000
  1451						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1452						DMOVE	AC,[200400,,XX
  1453	031035	120 04 0 00 040152 			0,,0]
  1454						DFAD	AC,[577400,,0
  1455	031036	110 04 0 00 040061 			0,,0]
  1456	031037	312 04 0 00 040154 		CAME	AC,[ZZ,,0]
  1457	031040	003 04 0 00 000124 		ER3	AC,T
  1458	031041	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1459	031042	004 05 0 00 000124 		ER4	AC+1,T
  1460	031043	321 10 0 00 031035 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1461
  1462			000125		T=T+1
  1463			000100			XX=XX/2
  1464			154400			ZZ=ZZ-1000
  1465						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1466						DMOVE	AC,[200400,,XX
  1467	031044	120 04 0 00 040155 			0,,0]
  1468						DFAD	AC,[577400,,0
  1469	031045	110 04 0 00 040061 			0,,0]
  1470	031046	312 04 0 00 040157 		CAME	AC,[ZZ,,0]
  1471	031047	003 04 0 00 000125 		ER3	AC,T
  1472	031050	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1473	031051	004 05 0 00 000125 		ER4	AC+1,T
  1474	031052	321 10 0 00 031044 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1475
  1476			000126		T=T+1
  1477			000040			XX=XX/2
  1478			153400			ZZ=ZZ-1000
  1479						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1480						DMOVE	AC,[200400,,XX
  1481	031053	120 04 0 00 040160 			0,,0]
  1482						DFAD	AC,[577400,,0
  1483	031054	110 04 0 00 040061 			0,,0]
  1484	031055	312 04 0 00 040162 		CAME	AC,[ZZ,,0]
  1485	031056	003 04 0 00 000126 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-6
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0047

  1486	031057	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1487	031060	004 05 0 00 000126 		ER4	AC+1,T
  1488	031061	321 10 0 00 031053 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1489
  1490			000127		T=T+1
  1491			000020			XX=XX/2
  1492			152400			ZZ=ZZ-1000
  1493						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1494						DMOVE	AC,[200400,,XX
  1495	031062	120 04 0 00 040163 			0,,0]
  1496						DFAD	AC,[577400,,0
  1497	031063	110 04 0 00 040061 			0,,0]
  1498	031064	312 04 0 00 040165 		CAME	AC,[ZZ,,0]
  1499	031065	003 04 0 00 000127 		ER3	AC,T
  1500	031066	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1501	031067	004 05 0 00 000127 		ER4	AC+1,T
  1502	031070	321 10 0 00 031062 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1503
  1504			000130		T=T+1
  1505			000010			XX=XX/2
  1506			151400			ZZ=ZZ-1000
  1507						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1508						DMOVE	AC,[200400,,XX
  1509	031071	120 04 0 00 040166 			0,,0]
  1510						DFAD	AC,[577400,,0
  1511	031072	110 04 0 00 040061 			0,,0]
  1512	031073	312 04 0 00 040170 		CAME	AC,[ZZ,,0]
  1513	031074	003 04 0 00 000130 		ER3	AC,T
  1514	031075	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1515	031076	004 05 0 00 000130 		ER4	AC+1,T
  1516	031077	321 10 0 00 031071 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1517
  1518			000131		T=T+1
  1519			000004			XX=XX/2
  1520			150400			ZZ=ZZ-1000
  1521						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1522						DMOVE	AC,[200400,,XX
  1523	031100	120 04 0 00 040171 			0,,0]
  1524						DFAD	AC,[577400,,0
  1525	031101	110 04 0 00 040061 			0,,0]
  1526	031102	312 04 0 00 040173 		CAME	AC,[ZZ,,0]
  1527	031103	003 04 0 00 000131 		ER3	AC,T
  1528	031104	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1529	031105	004 05 0 00 000131 		ER4	AC+1,T
  1530	031106	321 10 0 00 031100 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1531
  1532			000132		T=T+1
  1533			000002			XX=XX/2
  1534			147400			ZZ=ZZ-1000
  1535						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1536						DMOVE	AC,[200400,,XX
  1537	031107	120 04 0 00 040174 			0,,0]
  1538						DFAD	AC,[577400,,0
  1539	031110	110 04 0 00 040061 			0,,0]
  1540	031111	312 04 0 00 040176 		CAME	AC,[ZZ,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-7
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0048

  1541	031112	003 04 0 00 000132 		ER3	AC,T
  1542	031113	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1543	031114	004 05 0 00 000132 		ER4	AC+1,T
  1544	031115	321 10 0 00 031107 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1545
  1546			000133		T=T+1
  1547			000001			XX=XX/2
  1548			146400			ZZ=ZZ-1000
  1549						SDFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
  1550						DMOVE	AC,[200400,,XX
  1551	031116	120 04 0 00 040177 			0,,0]
  1552						DFAD	AC,[577400,,0
  1553	031117	110 04 0 00 040061 			0,,0]
  1554	031120	312 04 0 00 040201 		CAME	AC,[ZZ,,0]
  1555	031121	003 04 0 00 000133 		ER3	AC,T
  1556	031122	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1557	031123	004 05 0 00 000133 		ER4	AC+1,T
  1558	031124	321 10 0 00 031116 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1559
  1560
  1561			400000			XX=400000
  1562
  1563						REPEAT	^D17,
  1564					<T=T+1
  1565						XX=XX/2
  1566						ZZ=ZZ-1000
  1567						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0
  1568					>
  1569			000134		T=T+1
  1570			200000			XX=XX/2
  1571			145400			ZZ=ZZ-1000
  1572						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1573						DMOVE	AC,[200400,,0
  1574	031125	120 04 0 00 040202 			XX,,0]
  1575						DFAD	AC,[577400,,0
  1576	031126	110 04 0 00 040061 			0,,0]
  1577	031127	312 04 0 00 040204 		CAME	AC,[ZZ,,0]
  1578	031130	003 04 0 00 000134 		ER3	AC,T
  1579	031131	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1580	031132	004 05 0 00 000134 		ER4	AC+1,T
  1581	031133	321 10 0 00 031125 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1582
  1583			000135		T=T+1
  1584			100000			XX=XX/2
  1585			144400			ZZ=ZZ-1000
  1586						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1587						DMOVE	AC,[200400,,0
  1588	031134	120 04 0 00 040205 			XX,,0]
  1589						DFAD	AC,[577400,,0
  1590	031135	110 04 0 00 040061 			0,,0]
  1591	031136	312 04 0 00 040207 		CAME	AC,[ZZ,,0]
  1592	031137	003 04 0 00 000135 		ER3	AC,T
  1593	031140	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1594	031141	004 05 0 00 000135 		ER4	AC+1,T
  1595	031142	321 10 0 00 031134 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-8
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0049

  1596
  1597			000136		T=T+1
  1598			040000			XX=XX/2
  1599			143400			ZZ=ZZ-1000
  1600						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1601						DMOVE	AC,[200400,,0
  1602	031143	120 04 0 00 040210 			XX,,0]
  1603						DFAD	AC,[577400,,0
  1604	031144	110 04 0 00 040061 			0,,0]
  1605	031145	312 04 0 00 040212 		CAME	AC,[ZZ,,0]
  1606	031146	003 04 0 00 000136 		ER3	AC,T
  1607	031147	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1608	031150	004 05 0 00 000136 		ER4	AC+1,T
  1609	031151	321 10 0 00 031143 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1610
  1611			000137		T=T+1
  1612			020000			XX=XX/2
  1613			142400			ZZ=ZZ-1000
  1614						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1615						DMOVE	AC,[200400,,0
  1616	031152	120 04 0 00 040213 			XX,,0]
  1617						DFAD	AC,[577400,,0
  1618	031153	110 04 0 00 040061 			0,,0]
  1619	031154	312 04 0 00 040215 		CAME	AC,[ZZ,,0]
  1620	031155	003 04 0 00 000137 		ER3	AC,T
  1621	031156	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1622	031157	004 05 0 00 000137 		ER4	AC+1,T
  1623	031160	321 10 0 00 031152 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1624
  1625			000140		T=T+1
  1626			010000			XX=XX/2
  1627			141400			ZZ=ZZ-1000
  1628						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1629						DMOVE	AC,[200400,,0
  1630	031161	120 04 0 00 040216 			XX,,0]
  1631						DFAD	AC,[577400,,0
  1632	031162	110 04 0 00 040061 			0,,0]
  1633	031163	312 04 0 00 040220 		CAME	AC,[ZZ,,0]
  1634	031164	003 04 0 00 000140 		ER3	AC,T
  1635	031165	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1636	031166	004 05 0 00 000140 		ER4	AC+1,T
  1637	031167	321 10 0 00 031161 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1638
  1639			000141		T=T+1
  1640			004000			XX=XX/2
  1641			140400			ZZ=ZZ-1000
  1642						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1643						DMOVE	AC,[200400,,0
  1644	031170	120 04 0 00 040221 			XX,,0]
  1645						DFAD	AC,[577400,,0
  1646	031171	110 04 0 00 040061 			0,,0]
  1647	031172	312 04 0 00 040223 		CAME	AC,[ZZ,,0]
  1648	031173	003 04 0 00 000141 		ER3	AC,T
  1649	031174	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1650	031175	004 05 0 00 000141 		ER4	AC+1,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-9
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0050

  1651	031176	321 10 0 00 031170 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1652
  1653			000142		T=T+1
  1654			002000			XX=XX/2
  1655			137400			ZZ=ZZ-1000
  1656						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1657						DMOVE	AC,[200400,,0
  1658	031177	120 04 0 00 040224 			XX,,0]
  1659						DFAD	AC,[577400,,0
  1660	031200	110 04 0 00 040061 			0,,0]
  1661	031201	312 04 0 00 040226 		CAME	AC,[ZZ,,0]
  1662	031202	003 04 0 00 000142 		ER3	AC,T
  1663	031203	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1664	031204	004 05 0 00 000142 		ER4	AC+1,T
  1665	031205	321 10 0 00 031177 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1666
  1667			000143		T=T+1
  1668			001000			XX=XX/2
  1669			136400			ZZ=ZZ-1000
  1670						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1671						DMOVE	AC,[200400,,0
  1672	031206	120 04 0 00 040227 			XX,,0]
  1673						DFAD	AC,[577400,,0
  1674	031207	110 04 0 00 040061 			0,,0]
  1675	031210	312 04 0 00 040231 		CAME	AC,[ZZ,,0]
  1676	031211	003 04 0 00 000143 		ER3	AC,T
  1677	031212	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1678	031213	004 05 0 00 000143 		ER4	AC+1,T
  1679	031214	321 10 0 00 031206 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1680
  1681			000144		T=T+1
  1682			000400			XX=XX/2
  1683			135400			ZZ=ZZ-1000
  1684						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1685						DMOVE	AC,[200400,,0
  1686	031215	120 04 0 00 040232 			XX,,0]
  1687						DFAD	AC,[577400,,0
  1688	031216	110 04 0 00 040061 			0,,0]
  1689	031217	312 04 0 00 040234 		CAME	AC,[ZZ,,0]
  1690	031220	003 04 0 00 000144 		ER3	AC,T
  1691	031221	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1692	031222	004 05 0 00 000144 		ER4	AC+1,T
  1693	031223	321 10 0 00 031215 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1694
  1695			000145		T=T+1
  1696			000200			XX=XX/2
  1697			134400			ZZ=ZZ-1000
  1698						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1699						DMOVE	AC,[200400,,0
  1700	031224	120 04 0 00 040235 			XX,,0]
  1701						DFAD	AC,[577400,,0
  1702	031225	110 04 0 00 040061 			0,,0]
  1703	031226	312 04 0 00 040237 		CAME	AC,[ZZ,,0]
  1704	031227	003 04 0 00 000145 		ER3	AC,T
  1705	031230	312 05 0 00 040060 		CAME	AC+1,[0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-10
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0051

  1706	031231	004 05 0 00 000145 		ER4	AC+1,T
  1707	031232	321 10 0 00 031224 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1708
  1709			000146		T=T+1
  1710			000100			XX=XX/2
  1711			133400			ZZ=ZZ-1000
  1712						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1713						DMOVE	AC,[200400,,0
  1714	031233	120 04 0 00 040240 			XX,,0]
  1715						DFAD	AC,[577400,,0
  1716	031234	110 04 0 00 040061 			0,,0]
  1717	031235	312 04 0 00 040242 		CAME	AC,[ZZ,,0]
  1718	031236	003 04 0 00 000146 		ER3	AC,T
  1719	031237	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1720	031240	004 05 0 00 000146 		ER4	AC+1,T
  1721	031241	321 10 0 00 031233 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1722
  1723			000147		T=T+1
  1724			000040			XX=XX/2
  1725			132400			ZZ=ZZ-1000
  1726						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1727						DMOVE	AC,[200400,,0
  1728	031242	120 04 0 00 040243 			XX,,0]
  1729						DFAD	AC,[577400,,0
  1730	031243	110 04 0 00 040061 			0,,0]
  1731	031244	312 04 0 00 040245 		CAME	AC,[ZZ,,0]
  1732	031245	003 04 0 00 000147 		ER3	AC,T
  1733	031246	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1734	031247	004 05 0 00 000147 		ER4	AC+1,T
  1735	031250	321 10 0 00 031242 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1736
  1737			000150		T=T+1
  1738			000020			XX=XX/2
  1739			131400			ZZ=ZZ-1000
  1740						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1741						DMOVE	AC,[200400,,0
  1742	031251	120 04 0 00 040246 			XX,,0]
  1743						DFAD	AC,[577400,,0
  1744	031252	110 04 0 00 040061 			0,,0]
  1745	031253	312 04 0 00 040250 		CAME	AC,[ZZ,,0]
  1746	031254	003 04 0 00 000150 		ER3	AC,T
  1747	031255	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1748	031256	004 05 0 00 000150 		ER4	AC+1,T
  1749	031257	321 10 0 00 031251 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1750
  1751			000151		T=T+1
  1752			000010			XX=XX/2
  1753			130400			ZZ=ZZ-1000
  1754						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1755						DMOVE	AC,[200400,,0
  1756	031260	120 04 0 00 040251 			XX,,0]
  1757						DFAD	AC,[577400,,0
  1758	031261	110 04 0 00 040061 			0,,0]
  1759	031262	312 04 0 00 040253 		CAME	AC,[ZZ,,0]
  1760	031263	003 04 0 00 000151 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-11
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0052

  1761	031264	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1762	031265	004 05 0 00 000151 		ER4	AC+1,T
  1763	031266	321 10 0 00 031260 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1764
  1765			000152		T=T+1
  1766			000004			XX=XX/2
  1767			127400			ZZ=ZZ-1000
  1768						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1769						DMOVE	AC,[200400,,0
  1770	031267	120 04 0 00 040254 			XX,,0]
  1771						DFAD	AC,[577400,,0
  1772	031270	110 04 0 00 040061 			0,,0]
  1773	031271	312 04 0 00 040256 		CAME	AC,[ZZ,,0]
  1774	031272	003 04 0 00 000152 		ER3	AC,T
  1775	031273	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1776	031274	004 05 0 00 000152 		ER4	AC+1,T
  1777	031275	321 10 0 00 031267 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1778
  1779			000153		T=T+1
  1780			000002			XX=XX/2
  1781			126400			ZZ=ZZ-1000
  1782						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1783						DMOVE	AC,[200400,,0
  1784	031276	120 04 0 00 040257 			XX,,0]
  1785						DFAD	AC,[577400,,0
  1786	031277	110 04 0 00 040061 			0,,0]
  1787	031300	312 04 0 00 040261 		CAME	AC,[ZZ,,0]
  1788	031301	003 04 0 00 000153 		ER3	AC,T
  1789	031302	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1790	031303	004 05 0 00 000153 		ER4	AC+1,T
  1791	031304	321 10 0 00 031276 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1792
  1793			000154		T=T+1
  1794			000001			XX=XX/2
  1795			125400			ZZ=ZZ-1000
  1796						SDFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
  1797						DMOVE	AC,[200400,,0
  1798	031305	120 04 0 00 040262 			XX,,0]
  1799						DFAD	AC,[577400,,0
  1800	031306	110 04 0 00 040061 			0,,0]
  1801	031307	312 04 0 00 040264 		CAME	AC,[ZZ,,0]
  1802	031310	003 04 0 00 000154 		ER3	AC,T
  1803	031311	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1804	031312	004 05 0 00 000154 		ER4	AC+1,T
  1805	031313	321 10 0 00 031305 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1806
  1807
  1808		000001	000000			XX=1000000
  1809
  1810						REPEAT	^D18,
  1811					<T=T+1
  1812						XX=XX/2
  1813						ZZ=ZZ-1000
  1814						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0
  1815					>
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-12
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0053

  1816			000155		T=T+1
  1817			400000			XX=XX/2
  1818			124400			ZZ=ZZ-1000
  1819						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1820						DMOVE	AC,[200400,,0
  1821	031314	120 04 0 00 040265 			0,,XX]
  1822						DFAD	AC,[577400,,0
  1823	031315	110 04 0 00 040061 			0,,0]
  1824	031316	312 04 0 00 040267 		CAME	AC,[ZZ,,0]
  1825	031317	003 04 0 00 000155 		ER3	AC,T
  1826	031320	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1827	031321	004 05 0 00 000155 		ER4	AC+1,T
  1828	031322	321 10 0 00 031314 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1829
  1830			000156		T=T+1
  1831			200000			XX=XX/2
  1832			123400			ZZ=ZZ-1000
  1833						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1834						DMOVE	AC,[200400,,0
  1835	031323	120 04 0 00 040270 			0,,XX]
  1836						DFAD	AC,[577400,,0
  1837	031324	110 04 0 00 040061 			0,,0]
  1838	031325	312 04 0 00 040272 		CAME	AC,[ZZ,,0]
  1839	031326	003 04 0 00 000156 		ER3	AC,T
  1840	031327	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1841	031330	004 05 0 00 000156 		ER4	AC+1,T
  1842	031331	321 10 0 00 031323 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1843
  1844			000157		T=T+1
  1845			100000			XX=XX/2
  1846			122400			ZZ=ZZ-1000
  1847						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1848						DMOVE	AC,[200400,,0
  1849	031332	120 04 0 00 040273 			0,,XX]
  1850						DFAD	AC,[577400,,0
  1851	031333	110 04 0 00 040061 			0,,0]
  1852	031334	312 04 0 00 040275 		CAME	AC,[ZZ,,0]
  1853	031335	003 04 0 00 000157 		ER3	AC,T
  1854	031336	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1855	031337	004 05 0 00 000157 		ER4	AC+1,T
  1856	031340	321 10 0 00 031332 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1857
  1858			000160		T=T+1
  1859			040000			XX=XX/2
  1860			121400			ZZ=ZZ-1000
  1861						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1862						DMOVE	AC,[200400,,0
  1863	031341	120 04 0 00 040276 			0,,XX]
  1864						DFAD	AC,[577400,,0
  1865	031342	110 04 0 00 040061 			0,,0]
  1866	031343	312 04 0 00 040300 		CAME	AC,[ZZ,,0]
  1867	031344	003 04 0 00 000160 		ER3	AC,T
  1868	031345	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1869	031346	004 05 0 00 000160 		ER4	AC+1,T
  1870	031347	321 10 0 00 031341 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-13
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0054

  1871
  1872			000161		T=T+1
  1873			020000			XX=XX/2
  1874			120400			ZZ=ZZ-1000
  1875						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1876						DMOVE	AC,[200400,,0
  1877	031350	120 04 0 00 040301 			0,,XX]
  1878						DFAD	AC,[577400,,0
  1879	031351	110 04 0 00 040061 			0,,0]
  1880	031352	312 04 0 00 040303 		CAME	AC,[ZZ,,0]
  1881	031353	003 04 0 00 000161 		ER3	AC,T
  1882	031354	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1883	031355	004 05 0 00 000161 		ER4	AC+1,T
  1884	031356	321 10 0 00 031350 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1885
  1886			000162		T=T+1
  1887			010000			XX=XX/2
  1888			117400			ZZ=ZZ-1000
  1889						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1890						DMOVE	AC,[200400,,0
  1891	031357	120 04 0 00 040304 			0,,XX]
  1892						DFAD	AC,[577400,,0
  1893	031360	110 04 0 00 040061 			0,,0]
  1894	031361	312 04 0 00 040306 		CAME	AC,[ZZ,,0]
  1895	031362	003 04 0 00 000162 		ER3	AC,T
  1896	031363	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1897	031364	004 05 0 00 000162 		ER4	AC+1,T
  1898	031365	321 10 0 00 031357 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1899
  1900			000163		T=T+1
  1901			004000			XX=XX/2
  1902			116400			ZZ=ZZ-1000
  1903						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1904						DMOVE	AC,[200400,,0
  1905	031366	120 04 0 00 040307 			0,,XX]
  1906						DFAD	AC,[577400,,0
  1907	031367	110 04 0 00 040061 			0,,0]
  1908	031370	312 04 0 00 040311 		CAME	AC,[ZZ,,0]
  1909	031371	003 04 0 00 000163 		ER3	AC,T
  1910	031372	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1911	031373	004 05 0 00 000163 		ER4	AC+1,T
  1912	031374	321 10 0 00 031366 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1913
  1914			000164		T=T+1
  1915			002000			XX=XX/2
  1916			115400			ZZ=ZZ-1000
  1917						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1918						DMOVE	AC,[200400,,0
  1919	031375	120 04 0 00 040312 			0,,XX]
  1920						DFAD	AC,[577400,,0
  1921	031376	110 04 0 00 040061 			0,,0]
  1922	031377	312 04 0 00 040314 		CAME	AC,[ZZ,,0]
  1923	031400	003 04 0 00 000164 		ER3	AC,T
  1924	031401	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1925	031402	004 05 0 00 000164 		ER4	AC+1,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-14
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0055

  1926	031403	321 10 0 00 031375 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1927
  1928			000165		T=T+1
  1929			001000			XX=XX/2
  1930			114400			ZZ=ZZ-1000
  1931						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1932						DMOVE	AC,[200400,,0
  1933	031404	120 04 0 00 040315 			0,,XX]
  1934						DFAD	AC,[577400,,0
  1935	031405	110 04 0 00 040061 			0,,0]
  1936	031406	312 04 0 00 040317 		CAME	AC,[ZZ,,0]
  1937	031407	003 04 0 00 000165 		ER3	AC,T
  1938	031410	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1939	031411	004 05 0 00 000165 		ER4	AC+1,T
  1940	031412	321 10 0 00 031404 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1941
  1942			000166		T=T+1
  1943			000400			XX=XX/2
  1944			113400			ZZ=ZZ-1000
  1945						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1946						DMOVE	AC,[200400,,0
  1947	031413	120 04 0 00 040320 			0,,XX]
  1948						DFAD	AC,[577400,,0
  1949	031414	110 04 0 00 040061 			0,,0]
  1950	031415	312 04 0 00 040322 		CAME	AC,[ZZ,,0]
  1951	031416	003 04 0 00 000166 		ER3	AC,T
  1952	031417	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1953	031420	004 05 0 00 000166 		ER4	AC+1,T
  1954	031421	321 10 0 00 031413 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1955
  1956			000167		T=T+1
  1957			000200			XX=XX/2
  1958			112400			ZZ=ZZ-1000
  1959						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1960						DMOVE	AC,[200400,,0
  1961	031422	120 04 0 00 040323 			0,,XX]
  1962						DFAD	AC,[577400,,0
  1963	031423	110 04 0 00 040061 			0,,0]
  1964	031424	312 04 0 00 040325 		CAME	AC,[ZZ,,0]
  1965	031425	003 04 0 00 000167 		ER3	AC,T
  1966	031426	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1967	031427	004 05 0 00 000167 		ER4	AC+1,T
  1968	031430	321 10 0 00 031422 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1969
  1970			000170		T=T+1
  1971			000100			XX=XX/2
  1972			111400			ZZ=ZZ-1000
  1973						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1974						DMOVE	AC,[200400,,0
  1975	031431	120 04 0 00 040326 			0,,XX]
  1976						DFAD	AC,[577400,,0
  1977	031432	110 04 0 00 040061 			0,,0]
  1978	031433	312 04 0 00 040330 		CAME	AC,[ZZ,,0]
  1979	031434	003 04 0 00 000170 		ER3	AC,T
  1980	031435	312 05 0 00 040060 		CAME	AC+1,[0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-15
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0056

  1981	031436	004 05 0 00 000170 		ER4	AC+1,T
  1982	031437	321 10 0 00 031431 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1983
  1984			000171		T=T+1
  1985			000040			XX=XX/2
  1986			110400			ZZ=ZZ-1000
  1987						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  1988						DMOVE	AC,[200400,,0
  1989	031440	120 04 0 00 040331 			0,,XX]
  1990						DFAD	AC,[577400,,0
  1991	031441	110 04 0 00 040061 			0,,0]
  1992	031442	312 04 0 00 040333 		CAME	AC,[ZZ,,0]
  1993	031443	003 04 0 00 000171 		ER3	AC,T
  1994	031444	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  1995	031445	004 05 0 00 000171 		ER4	AC+1,T
  1996	031446	321 10 0 00 031440 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  1997
  1998			000172		T=T+1
  1999			000020			XX=XX/2
  2000			107400			ZZ=ZZ-1000
  2001						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  2002						DMOVE	AC,[200400,,0
  2003	031447	120 04 0 00 040334 			0,,XX]
  2004						DFAD	AC,[577400,,0
  2005	031450	110 04 0 00 040061 			0,,0]
  2006	031451	312 04 0 00 040336 		CAME	AC,[ZZ,,0]
  2007	031452	003 04 0 00 000172 		ER3	AC,T
  2008	031453	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2009	031454	004 05 0 00 000172 		ER4	AC+1,T
  2010	031455	321 10 0 00 031447 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2011
  2012			000173		T=T+1
  2013			000010			XX=XX/2
  2014			106400			ZZ=ZZ-1000
  2015						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  2016						DMOVE	AC,[200400,,0
  2017	031456	120 04 0 00 040337 			0,,XX]
  2018						DFAD	AC,[577400,,0
  2019	031457	110 04 0 00 040061 			0,,0]
  2020	031460	312 04 0 00 040341 		CAME	AC,[ZZ,,0]
  2021	031461	003 04 0 00 000173 		ER3	AC,T
  2022	031462	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2023	031463	004 05 0 00 000173 		ER4	AC+1,T
  2024	031464	321 10 0 00 031456 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2025
  2026			000174		T=T+1
  2027			000004			XX=XX/2
  2028			105400			ZZ=ZZ-1000
  2029						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  2030						DMOVE	AC,[200400,,0
  2031	031465	120 04 0 00 040342 			0,,XX]
  2032						DFAD	AC,[577400,,0
  2033	031466	110 04 0 00 040061 			0,,0]
  2034	031467	312 04 0 00 040344 		CAME	AC,[ZZ,,0]
  2035	031470	003 04 0 00 000174 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2-16
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0057

  2036	031471	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2037	031472	004 05 0 00 000174 		ER4	AC+1,T
  2038	031473	321 10 0 00 031465 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2039
  2040			000175		T=T+1
  2041			000002			XX=XX/2
  2042			104400			ZZ=ZZ-1000
  2043						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  2044						DMOVE	AC,[200400,,0
  2045	031474	120 04 0 00 040345 			0,,XX]
  2046						DFAD	AC,[577400,,0
  2047	031475	110 04 0 00 040061 			0,,0]
  2048	031476	312 04 0 00 040347 		CAME	AC,[ZZ,,0]
  2049	031477	003 04 0 00 000175 		ER3	AC,T
  2050	031500	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2051	031501	004 05 0 00 000175 		ER4	AC+1,T
  2052	031502	321 10 0 00 031474 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2053
  2054			000176		T=T+1
  2055			000001			XX=XX/2
  2056			103400			ZZ=ZZ-1000
  2057						SDFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
  2058						DMOVE	AC,[200400,,0
  2059	031503	120 04 0 00 040350 			0,,XX]
  2060						DFAD	AC,[577400,,0
  2061	031504	110 04 0 00 040061 			0,,0]
  2062	031505	312 04 0 00 040352 		CAME	AC,[ZZ,,0]
  2063	031506	003 04 0 00 000176 		ER3	AC,T
  2064	031507	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2065	031510	004 05 0 00 000176 		ER4	AC+1,T
  2066	031511	321 10 0 00 031503 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2067
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0058

  2068			000200		T=200
  2069			776777			XX=776777
  2070			577377			YY=577377
  2071			000000			ZZ=0
  2072
  2073					S200:	REPEAT	^D9,
  2074					<T=T+1
  2075						XX=<XX-1>/2
  2076						YY=YY+1000
  2077						ZZ=ZZ+ZZ
  2078						IFE	ZZ,<ZZ=-1>
  2079						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ
  2080					>
  2081			000201		T=T+1
  2082			377377			XX=<XX-1>/2
  2083			600377			YY=YY+1000
  2084			000000			ZZ=ZZ+ZZ
  2085		777777	777777			IFE	ZZ,<ZZ=-1>
  2086						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2087						DMOVE	AC,[600000+XX&777,,-1
  2088	031512	120 04 0 00 040353 			-1,,-1]
  2089						DFAD	AC,[0,,0
  2090	031513	110 04 0 00 040355 			0,,0]
  2091	031514	312 04 0 00 040353 		CAME	AC,[YY,,-1]
  2092	031515	003 04 0 00 000201 		ER3	AC,T
  2093	031516	312 05 0 00 040357 		CAME	AC+1,[377777,,ZZ]
  2094	031517	004 05 0 00 000201 		ER4	AC+1,T
  2095	031520	321 10 0 00 031512 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2096
  2097			000202		T=T+1
  2098			177577			XX=<XX-1>/2
  2099			601377			YY=YY+1000
  2100		777777	777776			ZZ=ZZ+ZZ
  2101						IFE	ZZ,<ZZ=-1>
  2102						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2103						DMOVE	AC,[600000+XX&777,,-1
  2104	031521	120 04 0 00 040360 			-1,,-1]
  2105						DFAD	AC,[0,,0
  2106	031522	110 04 0 00 040355 			0,,0]
  2107	031523	312 04 0 00 040362 		CAME	AC,[YY,,-1]
  2108	031524	003 04 0 00 000202 		ER3	AC,T
  2109	031525	312 05 0 00 040363 		CAME	AC+1,[377777,,ZZ]
  2110	031526	004 05 0 00 000202 		ER4	AC+1,T
  2111	031527	321 10 0 00 031521 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2112
  2113			000203		T=T+1
  2114			077677			XX=<XX-1>/2
  2115			602377			YY=YY+1000
  2116		777777	777774			ZZ=ZZ+ZZ
  2117						IFE	ZZ,<ZZ=-1>
  2118						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2119						DMOVE	AC,[600000+XX&777,,-1
  2120	031530	120 04 0 00 040364 			-1,,-1]
  2121						DFAD	AC,[0,,0
  2122	031531	110 04 0 00 040355 			0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-1
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0059

  2123	031532	312 04 0 00 040366 		CAME	AC,[YY,,-1]
  2124	031533	003 04 0 00 000203 		ER3	AC,T
  2125	031534	312 05 0 00 040367 		CAME	AC+1,[377777,,ZZ]
  2126	031535	004 05 0 00 000203 		ER4	AC+1,T
  2127	031536	321 10 0 00 031530 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2128
  2129			000204		T=T+1
  2130			037737			XX=<XX-1>/2
  2131			603377			YY=YY+1000
  2132		777777	777770			ZZ=ZZ+ZZ
  2133						IFE	ZZ,<ZZ=-1>
  2134						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2135						DMOVE	AC,[600000+XX&777,,-1
  2136	031537	120 04 0 00 040370 			-1,,-1]
  2137						DFAD	AC,[0,,0
  2138	031540	110 04 0 00 040355 			0,,0]
  2139	031541	312 04 0 00 040372 		CAME	AC,[YY,,-1]
  2140	031542	003 04 0 00 000204 		ER3	AC,T
  2141	031543	312 05 0 00 040373 		CAME	AC+1,[377777,,ZZ]
  2142	031544	004 05 0 00 000204 		ER4	AC+1,T
  2143	031545	321 10 0 00 031537 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2144
  2145			000205		T=T+1
  2146			017757			XX=<XX-1>/2
  2147			604377			YY=YY+1000
  2148		777777	777760			ZZ=ZZ+ZZ
  2149						IFE	ZZ,<ZZ=-1>
  2150						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2151						DMOVE	AC,[600000+XX&777,,-1
  2152	031546	120 04 0 00 040374 			-1,,-1]
  2153						DFAD	AC,[0,,0
  2154	031547	110 04 0 00 040355 			0,,0]
  2155	031550	312 04 0 00 040376 		CAME	AC,[YY,,-1]
  2156	031551	003 04 0 00 000205 		ER3	AC,T
  2157	031552	312 05 0 00 040377 		CAME	AC+1,[377777,,ZZ]
  2158	031553	004 05 0 00 000205 		ER4	AC+1,T
  2159	031554	321 10 0 00 031546 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2160
  2161			000206		T=T+1
  2162			007767			XX=<XX-1>/2
  2163			605377			YY=YY+1000
  2164		777777	777740			ZZ=ZZ+ZZ
  2165						IFE	ZZ,<ZZ=-1>
  2166						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2167						DMOVE	AC,[600000+XX&777,,-1
  2168	031555	120 04 0 00 040400 			-1,,-1]
  2169						DFAD	AC,[0,,0
  2170	031556	110 04 0 00 040355 			0,,0]
  2171	031557	312 04 0 00 040402 		CAME	AC,[YY,,-1]
  2172	031560	003 04 0 00 000206 		ER3	AC,T
  2173	031561	312 05 0 00 040403 		CAME	AC+1,[377777,,ZZ]
  2174	031562	004 05 0 00 000206 		ER4	AC+1,T
  2175	031563	321 10 0 00 031555 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2176
  2177			000207		T=T+1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-2
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0060

  2178			003773			XX=<XX-1>/2
  2179			606377			YY=YY+1000
  2180		777777	777700			ZZ=ZZ+ZZ
  2181						IFE	ZZ,<ZZ=-1>
  2182						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2183						DMOVE	AC,[600000+XX&777,,-1
  2184	031564	120 04 0 00 040404 			-1,,-1]
  2185						DFAD	AC,[0,,0
  2186	031565	110 04 0 00 040355 			0,,0]
  2187	031566	312 04 0 00 040406 		CAME	AC,[YY,,-1]
  2188	031567	003 04 0 00 000207 		ER3	AC,T
  2189	031570	312 05 0 00 040407 		CAME	AC+1,[377777,,ZZ]
  2190	031571	004 05 0 00 000207 		ER4	AC+1,T
  2191	031572	321 10 0 00 031564 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2192
  2193			000210		T=T+1
  2194			001775			XX=<XX-1>/2
  2195			607377			YY=YY+1000
  2196		777777	777600			ZZ=ZZ+ZZ
  2197						IFE	ZZ,<ZZ=-1>
  2198						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2199						DMOVE	AC,[600000+XX&777,,-1
  2200	031573	120 04 0 00 040410 			-1,,-1]
  2201						DFAD	AC,[0,,0
  2202	031574	110 04 0 00 040355 			0,,0]
  2203	031575	312 04 0 00 040412 		CAME	AC,[YY,,-1]
  2204	031576	003 04 0 00 000210 		ER3	AC,T
  2205	031577	312 05 0 00 040413 		CAME	AC+1,[377777,,ZZ]
  2206	031600	004 05 0 00 000210 		ER4	AC+1,T
  2207	031601	321 10 0 00 031573 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2208
  2209			000211		T=T+1
  2210			000776			XX=<XX-1>/2
  2211			610377			YY=YY+1000
  2212		777777	777400			ZZ=ZZ+ZZ
  2213						IFE	ZZ,<ZZ=-1>
  2214						SDFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2215						DMOVE	AC,[600000+XX&777,,-1
  2216	031602	120 04 0 00 040414 			-1,,-1]
  2217						DFAD	AC,[0,,0
  2218	031603	110 04 0 00 040355 			0,,0]
  2219	031604	312 04 0 00 040416 		CAME	AC,[YY,,-1]
  2220	031605	003 04 0 00 000211 		ER3	AC,T
  2221	031606	312 05 0 00 040417 		CAME	AC+1,[377777,,ZZ]
  2222	031607	004 05 0 00 000211 		ER4	AC+1,T
  2223	031610	321 10 0 00 031602 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2224
  2225
  2226		777776	777777			XX=777776777777
  2227
  2228						REPEAT	^D10,
  2229					<T=T+1
  2230						XX=<XX-1>/2
  2231						YY=YY+1000
  2232						ZZ=ZZ+ZZ
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-3
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0061

  2233						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ
  2234					>
  2235			000212		T=T+1
  2236		777777	377777			XX=<XX-1>/2
  2237			611377			YY=YY+1000
  2238		777777	777000			ZZ=ZZ+ZZ
  2239						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2240						DMOVE	AC,[600777,,XX&777777
  2241	031611	120 04 0 00 040420 			-1,,-1]
  2242						DFAD	AC,[0,,0
  2243	031612	110 04 0 00 040355 			0,,0]
  2244	031613	312 04 0 00 040422 		CAME	AC,[YY,,-1]
  2245	031614	003 04 0 00 000212 		ER3	AC,T
  2246	031615	312 05 0 00 040423 		CAME	AC+1,[377777,,ZZ]
  2247	031616	004 05 0 00 000212 		ER4	AC+1,T
  2248	031617	321 10 0 00 031611 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2249
  2250			000213		T=T+1
  2251		777777	577777			XX=<XX-1>/2
  2252			612377			YY=YY+1000
  2253		777777	776000			ZZ=ZZ+ZZ
  2254						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2255						DMOVE	AC,[600777,,XX&777777
  2256	031620	120 04 0 00 040424 			-1,,-1]
  2257						DFAD	AC,[0,,0
  2258	031621	110 04 0 00 040355 			0,,0]
  2259	031622	312 04 0 00 040426 		CAME	AC,[YY,,-1]
  2260	031623	003 04 0 00 000213 		ER3	AC,T
  2261	031624	312 05 0 00 040427 		CAME	AC+1,[377777,,ZZ]
  2262	031625	004 05 0 00 000213 		ER4	AC+1,T
  2263	031626	321 10 0 00 031620 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2264
  2265			000214		T=T+1
  2266		777777	677777			XX=<XX-1>/2
  2267			613377			YY=YY+1000
  2268		777777	774000			ZZ=ZZ+ZZ
  2269						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2270						DMOVE	AC,[600777,,XX&777777
  2271	031627	120 04 0 00 040430 			-1,,-1]
  2272						DFAD	AC,[0,,0
  2273	031630	110 04 0 00 040355 			0,,0]
  2274	031631	312 04 0 00 040432 		CAME	AC,[YY,,-1]
  2275	031632	003 04 0 00 000214 		ER3	AC,T
  2276	031633	312 05 0 00 040433 		CAME	AC+1,[377777,,ZZ]
  2277	031634	004 05 0 00 000214 		ER4	AC+1,T
  2278	031635	321 10 0 00 031627 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2279
  2280			000215		T=T+1
  2281		777777	737777			XX=<XX-1>/2
  2282			614377			YY=YY+1000
  2283		777777	770000			ZZ=ZZ+ZZ
  2284						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2285						DMOVE	AC,[600777,,XX&777777
  2286	031636	120 04 0 00 040434 			-1,,-1]
  2287						DFAD	AC,[0,,0
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-4
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0062

  2288	031637	110 04 0 00 040355 			0,,0]
  2289	031640	312 04 0 00 040436 		CAME	AC,[YY,,-1]
  2290	031641	003 04 0 00 000215 		ER3	AC,T
  2291	031642	312 05 0 00 040437 		CAME	AC+1,[377777,,ZZ]
  2292	031643	004 05 0 00 000215 		ER4	AC+1,T
  2293	031644	321 10 0 00 031636 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2294
  2295			000216		T=T+1
  2296		777777	757777			XX=<XX-1>/2
  2297			615377			YY=YY+1000
  2298		777777	760000			ZZ=ZZ+ZZ
  2299						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2300						DMOVE	AC,[600777,,XX&777777
  2301	031645	120 04 0 00 040440 			-1,,-1]
  2302						DFAD	AC,[0,,0
  2303	031646	110 04 0 00 040355 			0,,0]
  2304	031647	312 04 0 00 040442 		CAME	AC,[YY,,-1]
  2305	031650	003 04 0 00 000216 		ER3	AC,T
  2306	031651	312 05 0 00 040443 		CAME	AC+1,[377777,,ZZ]
  2307	031652	004 05 0 00 000216 		ER4	AC+1,T
  2308	031653	321 10 0 00 031645 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2309
  2310			000217		T=T+1
  2311		777777	767777			XX=<XX-1>/2
  2312			616377			YY=YY+1000
  2313		777777	740000			ZZ=ZZ+ZZ
  2314						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2315						DMOVE	AC,[600777,,XX&777777
  2316	031654	120 04 0 00 040444 			-1,,-1]
  2317						DFAD	AC,[0,,0
  2318	031655	110 04 0 00 040355 			0,,0]
  2319	031656	312 04 0 00 040446 		CAME	AC,[YY,,-1]
  2320	031657	003 04 0 00 000217 		ER3	AC,T
  2321	031660	312 05 0 00 040447 		CAME	AC+1,[377777,,ZZ]
  2322	031661	004 05 0 00 000217 		ER4	AC+1,T
  2323	031662	321 10 0 00 031654 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2324
  2325			000220		T=T+1
  2326		777777	773777			XX=<XX-1>/2
  2327			617377			YY=YY+1000
  2328		777777	700000			ZZ=ZZ+ZZ
  2329						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2330						DMOVE	AC,[600777,,XX&777777
  2331	031663	120 04 0 00 040450 			-1,,-1]
  2332						DFAD	AC,[0,,0
  2333	031664	110 04 0 00 040355 			0,,0]
  2334	031665	312 04 0 00 040452 		CAME	AC,[YY,,-1]
  2335	031666	003 04 0 00 000220 		ER3	AC,T
  2336	031667	312 05 0 00 040453 		CAME	AC+1,[377777,,ZZ]
  2337	031670	004 05 0 00 000220 		ER4	AC+1,T
  2338	031671	321 10 0 00 031663 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2339
  2340			000221		T=T+1
  2341		777777	775777			XX=<XX-1>/2
  2342			620377			YY=YY+1000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-5
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0063

  2343		777777	600000			ZZ=ZZ+ZZ
  2344						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2345						DMOVE	AC,[600777,,XX&777777
  2346	031672	120 04 0 00 040454 			-1,,-1]
  2347						DFAD	AC,[0,,0
  2348	031673	110 04 0 00 040355 			0,,0]
  2349	031674	312 04 0 00 040456 		CAME	AC,[YY,,-1]
  2350	031675	003 04 0 00 000221 		ER3	AC,T
  2351	031676	312 05 0 00 040457 		CAME	AC+1,[377777,,ZZ]
  2352	031677	004 05 0 00 000221 		ER4	AC+1,T
  2353	031700	321 10 0 00 031672 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2354
  2355			000222		T=T+1
  2356		777777	776777			XX=<XX-1>/2
  2357			621377			YY=YY+1000
  2358		777777	400000			ZZ=ZZ+ZZ
  2359						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2360						DMOVE	AC,[600777,,XX&777777
  2361	031701	120 04 0 00 040460 			-1,,-1]
  2362						DFAD	AC,[0,,0
  2363	031702	110 04 0 00 040355 			0,,0]
  2364	031703	312 04 0 00 040462 		CAME	AC,[YY,,-1]
  2365	031704	003 04 0 00 000222 		ER3	AC,T
  2366	031705	312 05 0 00 040463 		CAME	AC+1,[377777,,ZZ]
  2367	031706	004 05 0 00 000222 		ER4	AC+1,T
  2368	031707	321 10 0 00 031701 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2369
  2370			000223		T=T+1
  2371		777777	777377			XX=<XX-1>/2
  2372			622377			YY=YY+1000
  2373		777777	000000			ZZ=ZZ+ZZ
  2374						SDFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
  2375						DMOVE	AC,[600777,,XX&777777
  2376	031710	120 04 0 00 040464 			-1,,-1]
  2377						DFAD	AC,[0,,0
  2378	031711	110 04 0 00 040355 			0,,0]
  2379	031712	312 04 0 00 040466 		CAME	AC,[YY,,-1]
  2380	031713	003 04 0 00 000223 		ER3	AC,T
  2381	031714	312 05 0 00 040467 		CAME	AC+1,[377777,,ZZ]
  2382	031715	004 05 0 00 000223 		ER4	AC+1,T
  2383	031716	321 10 0 00 031710 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2384
  2385
  2386		777777	777777			ZZ=-1
  2387
  2388						REPEAT	^D8,
  2389					<T=T+1
  2390						XX=<XX-1>/2
  2391						YY=YY+1000
  2392						ZZ=ZZ+ZZ
  2393						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0
  2394					>
  2395			000224		T=T+1
  2396		777777	777577			XX=<XX-1>/2
  2397			623377			YY=YY+1000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-6
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0064

  2398		777777	777776			ZZ=ZZ+ZZ
  2399						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2400						DMOVE	AC,[600777,,XX
  2401	031717	120 04 0 00 040470 			-1,,-1]
  2402						DFAD	AC,[0,,0
  2403	031720	110 04 0 00 040355 			0,,0]
  2404	031721	312 04 0 00 040472 		CAME	AC,[YY,,-1]
  2405	031722	003 04 0 00 000224 		ER3	AC,T
  2406	031723	312 05 0 00 040473 		CAME	AC+1,[ZZ&377777,,0]
  2407	031724	004 05 0 00 000224 		ER4	AC+1,T
  2408	031725	321 10 0 00 031717 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2409
  2410			000225		T=T+1
  2411		777777	777677			XX=<XX-1>/2
  2412			624377			YY=YY+1000
  2413		777777	777774			ZZ=ZZ+ZZ
  2414						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2415						DMOVE	AC,[600777,,XX
  2416	031726	120 04 0 00 040474 			-1,,-1]
  2417						DFAD	AC,[0,,0
  2418	031727	110 04 0 00 040355 			0,,0]
  2419	031730	312 04 0 00 040476 		CAME	AC,[YY,,-1]
  2420	031731	003 04 0 00 000225 		ER3	AC,T
  2421	031732	312 05 0 00 040477 		CAME	AC+1,[ZZ&377777,,0]
  2422	031733	004 05 0 00 000225 		ER4	AC+1,T
  2423	031734	321 10 0 00 031726 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2424
  2425			000226		T=T+1
  2426		777777	777737			XX=<XX-1>/2
  2427			625377			YY=YY+1000
  2428		777777	777770			ZZ=ZZ+ZZ
  2429						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2430						DMOVE	AC,[600777,,XX
  2431	031735	120 04 0 00 040500 			-1,,-1]
  2432						DFAD	AC,[0,,0
  2433	031736	110 04 0 00 040355 			0,,0]
  2434	031737	312 04 0 00 040502 		CAME	AC,[YY,,-1]
  2435	031740	003 04 0 00 000226 		ER3	AC,T
  2436	031741	312 05 0 00 040503 		CAME	AC+1,[ZZ&377777,,0]
  2437	031742	004 05 0 00 000226 		ER4	AC+1,T
  2438	031743	321 10 0 00 031735 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2439
  2440			000227		T=T+1
  2441		777777	777757			XX=<XX-1>/2
  2442			626377			YY=YY+1000
  2443		777777	777760			ZZ=ZZ+ZZ
  2444						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2445						DMOVE	AC,[600777,,XX
  2446	031744	120 04 0 00 040504 			-1,,-1]
  2447						DFAD	AC,[0,,0
  2448	031745	110 04 0 00 040355 			0,,0]
  2449	031746	312 04 0 00 040506 		CAME	AC,[YY,,-1]
  2450	031747	003 04 0 00 000227 		ER3	AC,T
  2451	031750	312 05 0 00 040507 		CAME	AC+1,[ZZ&377777,,0]
  2452	031751	004 05 0 00 000227 		ER4	AC+1,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-7
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0065

  2453	031752	321 10 0 00 031744 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2454
  2455			000230		T=T+1
  2456		777777	777767			XX=<XX-1>/2
  2457			627377			YY=YY+1000
  2458		777777	777740			ZZ=ZZ+ZZ
  2459						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2460						DMOVE	AC,[600777,,XX
  2461	031753	120 04 0 00 040510 			-1,,-1]
  2462						DFAD	AC,[0,,0
  2463	031754	110 04 0 00 040355 			0,,0]
  2464	031755	312 04 0 00 040512 		CAME	AC,[YY,,-1]
  2465	031756	003 04 0 00 000230 		ER3	AC,T
  2466	031757	312 05 0 00 040513 		CAME	AC+1,[ZZ&377777,,0]
  2467	031760	004 05 0 00 000230 		ER4	AC+1,T
  2468	031761	321 10 0 00 031753 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2469
  2470			000231		T=T+1
  2471		777777	777773			XX=<XX-1>/2
  2472			630377			YY=YY+1000
  2473		777777	777700			ZZ=ZZ+ZZ
  2474						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2475						DMOVE	AC,[600777,,XX
  2476	031762	120 04 0 00 040514 			-1,,-1]
  2477						DFAD	AC,[0,,0
  2478	031763	110 04 0 00 040355 			0,,0]
  2479	031764	312 04 0 00 040516 		CAME	AC,[YY,,-1]
  2480	031765	003 04 0 00 000231 		ER3	AC,T
  2481	031766	312 05 0 00 040517 		CAME	AC+1,[ZZ&377777,,0]
  2482	031767	004 05 0 00 000231 		ER4	AC+1,T
  2483	031770	321 10 0 00 031762 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2484
  2485			000232		T=T+1
  2486		777777	777775			XX=<XX-1>/2
  2487			631377			YY=YY+1000
  2488		777777	777600			ZZ=ZZ+ZZ
  2489						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2490						DMOVE	AC,[600777,,XX
  2491	031771	120 04 0 00 040520 			-1,,-1]
  2492						DFAD	AC,[0,,0
  2493	031772	110 04 0 00 040355 			0,,0]
  2494	031773	312 04 0 00 040522 		CAME	AC,[YY,,-1]
  2495	031774	003 04 0 00 000232 		ER3	AC,T
  2496	031775	312 05 0 00 040523 		CAME	AC+1,[ZZ&377777,,0]
  2497	031776	004 05 0 00 000232 		ER4	AC+1,T
  2498	031777	321 10 0 00 031771 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2499
  2500			000233		T=T+1
  2501		777777	777776			XX=<XX-1>/2
  2502			632377			YY=YY+1000
  2503		777777	777400			ZZ=ZZ+ZZ
  2504						SDFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2505						DMOVE	AC,[600777,,XX
  2506	032000	120 04 0 00 040524 			-1,,-1]
  2507						DFAD	AC,[0,,0
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3-8
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0066

  2508	032001	110 04 0 00 040355 			0,,0]
  2509	032002	312 04 0 00 040526 		CAME	AC,[YY,,-1]
  2510	032003	003 04 0 00 000233 		ER3	AC,T
  2511	032004	312 05 0 00 040527 		CAME	AC+1,[ZZ&377777,,0]
  2512	032005	004 05 0 00 000233 		ER4	AC+1,T
  2513	032006	321 10 0 00 032000 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2514
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0067

  2515		777777	377777			XX=777777377777
  2516
  2517						REPEAT	^D9,
  2518					<T=T+1
  2519						XX=<XX-1>/2
  2520						YY=YY+1000
  2521						ZZ=ZZ+ZZ
  2522						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0
  2523					>
  2524			000234		T=T+1
  2525		777777	577777			XX=<XX-1>/2
  2526			633377			YY=YY+1000
  2527		777777	777000			ZZ=ZZ+ZZ
  2528						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2529						DMOVE	AC,[600777,,-1
  2530	032007	120 04 0 00 040530 			XX,,-1]
  2531						DFAD	AC,[0,,0
  2532	032010	110 04 0 00 040355 			0,,0]
  2533	032011	312 04 0 00 040532 		CAME	AC,[YY,,-1]
  2534	032012	003 04 0 00 000234 		ER3	AC,T
  2535	032013	312 05 0 00 040533 		CAME	AC+1,[ZZ&377777,,0]
  2536	032014	004 05 0 00 000234 		ER4	AC+1,T
  2537	032015	321 10 0 00 032007 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2538
  2539			000235		T=T+1
  2540		777777	677777			XX=<XX-1>/2
  2541			634377			YY=YY+1000
  2542		777777	776000			ZZ=ZZ+ZZ
  2543						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2544						DMOVE	AC,[600777,,-1
  2545	032016	120 04 0 00 040534 			XX,,-1]
  2546						DFAD	AC,[0,,0
  2547	032017	110 04 0 00 040355 			0,,0]
  2548	032020	312 04 0 00 040536 		CAME	AC,[YY,,-1]
  2549	032021	003 04 0 00 000235 		ER3	AC,T
  2550	032022	312 05 0 00 040537 		CAME	AC+1,[ZZ&377777,,0]
  2551	032023	004 05 0 00 000235 		ER4	AC+1,T
  2552	032024	321 10 0 00 032016 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2553
  2554			000236		T=T+1
  2555		777777	737777			XX=<XX-1>/2
  2556			635377			YY=YY+1000
  2557		777777	774000			ZZ=ZZ+ZZ
  2558						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2559						DMOVE	AC,[600777,,-1
  2560	032025	120 04 0 00 040540 			XX,,-1]
  2561						DFAD	AC,[0,,0
  2562	032026	110 04 0 00 040355 			0,,0]
  2563	032027	312 04 0 00 040542 		CAME	AC,[YY,,-1]
  2564	032030	003 04 0 00 000236 		ER3	AC,T
  2565	032031	312 05 0 00 040543 		CAME	AC+1,[ZZ&377777,,0]
  2566	032032	004 05 0 00 000236 		ER4	AC+1,T
  2567	032033	321 10 0 00 032025 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2568
  2569			000237		T=T+1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-1
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0068

  2570		777777	757777			XX=<XX-1>/2
  2571			636377			YY=YY+1000
  2572		777777	770000			ZZ=ZZ+ZZ
  2573						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2574						DMOVE	AC,[600777,,-1
  2575	032034	120 04 0 00 040544 			XX,,-1]
  2576						DFAD	AC,[0,,0
  2577	032035	110 04 0 00 040355 			0,,0]
  2578	032036	312 04 0 00 040546 		CAME	AC,[YY,,-1]
  2579	032037	003 04 0 00 000237 		ER3	AC,T
  2580	032040	312 05 0 00 040547 		CAME	AC+1,[ZZ&377777,,0]
  2581	032041	004 05 0 00 000237 		ER4	AC+1,T
  2582	032042	321 10 0 00 032034 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2583
  2584			000240		T=T+1
  2585		777777	767777			XX=<XX-1>/2
  2586			637377			YY=YY+1000
  2587		777777	760000			ZZ=ZZ+ZZ
  2588						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2589						DMOVE	AC,[600777,,-1
  2590	032043	120 04 0 00 040550 			XX,,-1]
  2591						DFAD	AC,[0,,0
  2592	032044	110 04 0 00 040355 			0,,0]
  2593	032045	312 04 0 00 040552 		CAME	AC,[YY,,-1]
  2594	032046	003 04 0 00 000240 		ER3	AC,T
  2595	032047	312 05 0 00 040553 		CAME	AC+1,[ZZ&377777,,0]
  2596	032050	004 05 0 00 000240 		ER4	AC+1,T
  2597	032051	321 10 0 00 032043 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2598
  2599			000241		T=T+1
  2600		777777	773777			XX=<XX-1>/2
  2601			640377			YY=YY+1000
  2602		777777	740000			ZZ=ZZ+ZZ
  2603						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2604						DMOVE	AC,[600777,,-1
  2605	032052	120 04 0 00 040554 			XX,,-1]
  2606						DFAD	AC,[0,,0
  2607	032053	110 04 0 00 040355 			0,,0]
  2608	032054	312 04 0 00 040556 		CAME	AC,[YY,,-1]
  2609	032055	003 04 0 00 000241 		ER3	AC,T
  2610	032056	312 05 0 00 040557 		CAME	AC+1,[ZZ&377777,,0]
  2611	032057	004 05 0 00 000241 		ER4	AC+1,T
  2612	032060	321 10 0 00 032052 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2613
  2614			000242		T=T+1
  2615		777777	775777			XX=<XX-1>/2
  2616			641377			YY=YY+1000
  2617		777777	700000			ZZ=ZZ+ZZ
  2618						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2619						DMOVE	AC,[600777,,-1
  2620	032061	120 04 0 00 040560 			XX,,-1]
  2621						DFAD	AC,[0,,0
  2622	032062	110 04 0 00 040355 			0,,0]
  2623	032063	312 04 0 00 040562 		CAME	AC,[YY,,-1]
  2624	032064	003 04 0 00 000242 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-2
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0069

  2625	032065	312 05 0 00 040563 		CAME	AC+1,[ZZ&377777,,0]
  2626	032066	004 05 0 00 000242 		ER4	AC+1,T
  2627	032067	321 10 0 00 032061 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2628
  2629			000243		T=T+1
  2630		777777	776777			XX=<XX-1>/2
  2631			642377			YY=YY+1000
  2632		777777	600000			ZZ=ZZ+ZZ
  2633						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2634						DMOVE	AC,[600777,,-1
  2635	032070	120 04 0 00 040564 			XX,,-1]
  2636						DFAD	AC,[0,,0
  2637	032071	110 04 0 00 040355 			0,,0]
  2638	032072	312 04 0 00 040566 		CAME	AC,[YY,,-1]
  2639	032073	003 04 0 00 000243 		ER3	AC,T
  2640	032074	312 05 0 00 040203 		CAME	AC+1,[ZZ&377777,,0]
  2641	032075	004 05 0 00 000243 		ER4	AC+1,T
  2642	032076	321 10 0 00 032070 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2643
  2644			000244		T=T+1
  2645		777777	777377			XX=<XX-1>/2
  2646			643377			YY=YY+1000
  2647		777777	400000			ZZ=ZZ+ZZ
  2648						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
  2649						DMOVE	AC,[600777,,-1
  2650	032077	120 04 0 00 040567 			XX,,-1]
  2651						DFAD	AC,[0,,0
  2652	032100	110 04 0 00 040355 			0,,0]
  2653	032101	312 04 0 00 040571 		CAME	AC,[YY,,-1]
  2654	032102	003 04 0 00 000244 		ER3	AC,T
  2655	032103	312 05 0 00 040060 		CAME	AC+1,[ZZ&377777,,0]
  2656	032104	004 05 0 00 000244 		ER4	AC+1,T
  2657	032105	321 10 0 00 032077 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2658
  2659
  2660		777777	777777			ZZ=-1
  2661
  2662						REPEAT	^D8,
  2663					<T=T+1
  2664						XX=<XX-1>/2
  2665						YY=YY+1000
  2666						ZZ=ZZ+ZZ
  2667						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0
  2668					>
  2669			000245		T=T+1
  2670		777777	777577			XX=<XX-1>/2
  2671			644377			YY=YY+1000
  2672		777777	777776			ZZ=ZZ+ZZ
  2673						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2674						DMOVE	AC,[600777,,-1
  2675	032106	120 04 0 00 040572 			XX,,-1]
  2676						DFAD	AC,[0,,0
  2677	032107	110 04 0 00 040355 			0,,0]
  2678	032110	312 04 0 00 040574 		CAME	AC,[YY,,ZZ]
  2679	032111	003 04 0 00 000245 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-3
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0070

  2680	032112	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2681	032113	004 05 0 00 000245 		ER4	AC+1,T
  2682	032114	321 10 0 00 032106 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2683
  2684			000246		T=T+1
  2685		777777	777677			XX=<XX-1>/2
  2686			645377			YY=YY+1000
  2687		777777	777774			ZZ=ZZ+ZZ
  2688						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2689						DMOVE	AC,[600777,,-1
  2690	032115	120 04 0 00 040575 			XX,,-1]
  2691						DFAD	AC,[0,,0
  2692	032116	110 04 0 00 040355 			0,,0]
  2693	032117	312 04 0 00 040577 		CAME	AC,[YY,,ZZ]
  2694	032120	003 04 0 00 000246 		ER3	AC,T
  2695	032121	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2696	032122	004 05 0 00 000246 		ER4	AC+1,T
  2697	032123	321 10 0 00 032115 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2698
  2699			000247		T=T+1
  2700		777777	777737			XX=<XX-1>/2
  2701			646377			YY=YY+1000
  2702		777777	777770			ZZ=ZZ+ZZ
  2703						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2704						DMOVE	AC,[600777,,-1
  2705	032124	120 04 0 00 040600 			XX,,-1]
  2706						DFAD	AC,[0,,0
  2707	032125	110 04 0 00 040355 			0,,0]
  2708	032126	312 04 0 00 040602 		CAME	AC,[YY,,ZZ]
  2709	032127	003 04 0 00 000247 		ER3	AC,T
  2710	032130	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2711	032131	004 05 0 00 000247 		ER4	AC+1,T
  2712	032132	321 10 0 00 032124 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2713
  2714			000250		T=T+1
  2715		777777	777757			XX=<XX-1>/2
  2716			647377			YY=YY+1000
  2717		777777	777760			ZZ=ZZ+ZZ
  2718						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2719						DMOVE	AC,[600777,,-1
  2720	032133	120 04 0 00 040603 			XX,,-1]
  2721						DFAD	AC,[0,,0
  2722	032134	110 04 0 00 040355 			0,,0]
  2723	032135	312 04 0 00 040605 		CAME	AC,[YY,,ZZ]
  2724	032136	003 04 0 00 000250 		ER3	AC,T
  2725	032137	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2726	032140	004 05 0 00 000250 		ER4	AC+1,T
  2727	032141	321 10 0 00 032133 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2728
  2729			000251		T=T+1
  2730		777777	777767			XX=<XX-1>/2
  2731			650377			YY=YY+1000
  2732		777777	777740			ZZ=ZZ+ZZ
  2733						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2734						DMOVE	AC,[600777,,-1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-4
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0071

  2735	032142	120 04 0 00 040606 			XX,,-1]
  2736						DFAD	AC,[0,,0
  2737	032143	110 04 0 00 040355 			0,,0]
  2738	032144	312 04 0 00 040610 		CAME	AC,[YY,,ZZ]
  2739	032145	003 04 0 00 000251 		ER3	AC,T
  2740	032146	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2741	032147	004 05 0 00 000251 		ER4	AC+1,T
  2742	032150	321 10 0 00 032142 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2743
  2744			000252		T=T+1
  2745		777777	777773			XX=<XX-1>/2
  2746			651377			YY=YY+1000
  2747		777777	777700			ZZ=ZZ+ZZ
  2748						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2749						DMOVE	AC,[600777,,-1
  2750	032151	120 04 0 00 040611 			XX,,-1]
  2751						DFAD	AC,[0,,0
  2752	032152	110 04 0 00 040355 			0,,0]
  2753	032153	312 04 0 00 040613 		CAME	AC,[YY,,ZZ]
  2754	032154	003 04 0 00 000252 		ER3	AC,T
  2755	032155	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2756	032156	004 05 0 00 000252 		ER4	AC+1,T
  2757	032157	321 10 0 00 032151 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2758
  2759			000253		T=T+1
  2760		777777	777775			XX=<XX-1>/2
  2761			652377			YY=YY+1000
  2762		777777	777600			ZZ=ZZ+ZZ
  2763						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2764						DMOVE	AC,[600777,,-1
  2765	032160	120 04 0 00 040614 			XX,,-1]
  2766						DFAD	AC,[0,,0
  2767	032161	110 04 0 00 040355 			0,,0]
  2768	032162	312 04 0 00 040616 		CAME	AC,[YY,,ZZ]
  2769	032163	003 04 0 00 000253 		ER3	AC,T
  2770	032164	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2771	032165	004 05 0 00 000253 		ER4	AC+1,T
  2772	032166	321 10 0 00 032160 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2773
  2774			000254		T=T+1
  2775		777777	777776			XX=<XX-1>/2
  2776			653377			YY=YY+1000
  2777		777777	777400			ZZ=ZZ+ZZ
  2778						SDFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
  2779						DMOVE	AC,[600777,,-1
  2780	032167	120 04 0 00 040617 			XX,,-1]
  2781						DFAD	AC,[0,,0
  2782	032170	110 04 0 00 040355 			0,,0]
  2783	032171	312 04 0 00 040621 		CAME	AC,[YY,,ZZ]
  2784	032172	003 04 0 00 000254 		ER3	AC,T
  2785	032173	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2786	032174	004 05 0 00 000254 		ER4	AC+1,T
  2787	032175	321 10 0 00 032167 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2788
  2789
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-5
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0072

  2790		777776	777777			XX=777776777777
  2791
  2792						REPEAT	^D10,
  2793					<T=T+1
  2794						XX=<XX-1>/2
  2795						YY=YY+1000
  2796						ZZ=ZZ+ZZ
  2797						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0
  2798					>
  2799			000255		T=T+1
  2800		777777	377777			XX=<XX-1>/2
  2801			654377			YY=YY+1000
  2802		777777	777000			ZZ=ZZ+ZZ
  2803						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2804						DMOVE	AC,[600777,,-1
  2805	032176	120 04 0 00 040622 			-1,,XX]
  2806						DFAD	AC,[0,,0
  2807	032177	110 04 0 00 040355 			0,,0]
  2808	032200	312 04 0 00 040624 		CAME	AC,[YY,,ZZ]
  2809	032201	003 04 0 00 000255 		ER3	AC,T
  2810	032202	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2811	032203	004 05 0 00 000255 		ER4	AC+1,T
  2812	032204	321 10 0 00 032176 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2813
  2814			000256		T=T+1
  2815		777777	577777			XX=<XX-1>/2
  2816			655377			YY=YY+1000
  2817		777777	776000			ZZ=ZZ+ZZ
  2818						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2819						DMOVE	AC,[600777,,-1
  2820	032205	120 04 0 00 040625 			-1,,XX]
  2821						DFAD	AC,[0,,0
  2822	032206	110 04 0 00 040355 			0,,0]
  2823	032207	312 04 0 00 040627 		CAME	AC,[YY,,ZZ]
  2824	032210	003 04 0 00 000256 		ER3	AC,T
  2825	032211	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2826	032212	004 05 0 00 000256 		ER4	AC+1,T
  2827	032213	321 10 0 00 032205 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2828
  2829			000257		T=T+1
  2830		777777	677777			XX=<XX-1>/2
  2831			656377			YY=YY+1000
  2832		777777	774000			ZZ=ZZ+ZZ
  2833						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2834						DMOVE	AC,[600777,,-1
  2835	032214	120 04 0 00 040630 			-1,,XX]
  2836						DFAD	AC,[0,,0
  2837	032215	110 04 0 00 040355 			0,,0]
  2838	032216	312 04 0 00 040632 		CAME	AC,[YY,,ZZ]
  2839	032217	003 04 0 00 000257 		ER3	AC,T
  2840	032220	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2841	032221	004 05 0 00 000257 		ER4	AC+1,T
  2842	032222	321 10 0 00 032214 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2843
  2844			000260		T=T+1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-6
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0073

  2845		777777	737777			XX=<XX-1>/2
  2846			657377			YY=YY+1000
  2847		777777	770000			ZZ=ZZ+ZZ
  2848						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2849						DMOVE	AC,[600777,,-1
  2850	032223	120 04 0 00 040633 			-1,,XX]
  2851						DFAD	AC,[0,,0
  2852	032224	110 04 0 00 040355 			0,,0]
  2853	032225	312 04 0 00 040635 		CAME	AC,[YY,,ZZ]
  2854	032226	003 04 0 00 000260 		ER3	AC,T
  2855	032227	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2856	032230	004 05 0 00 000260 		ER4	AC+1,T
  2857	032231	321 10 0 00 032223 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2858
  2859			000261		T=T+1
  2860		777777	757777			XX=<XX-1>/2
  2861			660377			YY=YY+1000
  2862		777777	760000			ZZ=ZZ+ZZ
  2863						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2864						DMOVE	AC,[600777,,-1
  2865	032232	120 04 0 00 040636 			-1,,XX]
  2866						DFAD	AC,[0,,0
  2867	032233	110 04 0 00 040355 			0,,0]
  2868	032234	312 04 0 00 040640 		CAME	AC,[YY,,ZZ]
  2869	032235	003 04 0 00 000261 		ER3	AC,T
  2870	032236	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2871	032237	004 05 0 00 000261 		ER4	AC+1,T
  2872	032240	321 10 0 00 032232 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2873
  2874			000262		T=T+1
  2875		777777	767777			XX=<XX-1>/2
  2876			661377			YY=YY+1000
  2877		777777	740000			ZZ=ZZ+ZZ
  2878						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2879						DMOVE	AC,[600777,,-1
  2880	032241	120 04 0 00 040641 			-1,,XX]
  2881						DFAD	AC,[0,,0
  2882	032242	110 04 0 00 040355 			0,,0]
  2883	032243	312 04 0 00 040643 		CAME	AC,[YY,,ZZ]
  2884	032244	003 04 0 00 000262 		ER3	AC,T
  2885	032245	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2886	032246	004 05 0 00 000262 		ER4	AC+1,T
  2887	032247	321 10 0 00 032241 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2888
  2889			000263		T=T+1
  2890		777777	773777			XX=<XX-1>/2
  2891			662377			YY=YY+1000
  2892		777777	700000			ZZ=ZZ+ZZ
  2893						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2894						DMOVE	AC,[600777,,-1
  2895	032250	120 04 0 00 040644 			-1,,XX]
  2896						DFAD	AC,[0,,0
  2897	032251	110 04 0 00 040355 			0,,0]
  2898	032252	312 04 0 00 040646 		CAME	AC,[YY,,ZZ]
  2899	032253	003 04 0 00 000263 		ER3	AC,T
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-7
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0074

  2900	032254	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2901	032255	004 05 0 00 000263 		ER4	AC+1,T
  2902	032256	321 10 0 00 032250 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2903
  2904			000264		T=T+1
  2905		777777	775777			XX=<XX-1>/2
  2906			663377			YY=YY+1000
  2907		777777	600000			ZZ=ZZ+ZZ
  2908						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2909						DMOVE	AC,[600777,,-1
  2910	032257	120 04 0 00 040647 			-1,,XX]
  2911						DFAD	AC,[0,,0
  2912	032260	110 04 0 00 040355 			0,,0]
  2913	032261	312 04 0 00 040651 		CAME	AC,[YY,,ZZ]
  2914	032262	003 04 0 00 000264 		ER3	AC,T
  2915	032263	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2916	032264	004 05 0 00 000264 		ER4	AC+1,T
  2917	032265	321 10 0 00 032257 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2918
  2919			000265		T=T+1
  2920		777777	776777			XX=<XX-1>/2
  2921			664377			YY=YY+1000
  2922		777777	400000			ZZ=ZZ+ZZ
  2923						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2924						DMOVE	AC,[600777,,-1
  2925	032266	120 04 0 00 040652 			-1,,XX]
  2926						DFAD	AC,[0,,0
  2927	032267	110 04 0 00 040355 			0,,0]
  2928	032270	312 04 0 00 040654 		CAME	AC,[YY,,ZZ]
  2929	032271	003 04 0 00 000265 		ER3	AC,T
  2930	032272	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2931	032273	004 05 0 00 000265 		ER4	AC+1,T
  2932	032274	321 10 0 00 032266 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2933
  2934			000266		T=T+1
  2935		777777	777377			XX=<XX-1>/2
  2936			665377			YY=YY+1000
  2937		777777	000000			ZZ=ZZ+ZZ
  2938						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
  2939						DMOVE	AC,[600777,,-1
  2940	032275	120 04 0 00 040655 			-1,,XX]
  2941						DFAD	AC,[0,,0
  2942	032276	110 04 0 00 040355 			0,,0]
  2943	032277	312 04 0 00 040657 		CAME	AC,[YY,,ZZ]
  2944	032300	003 04 0 00 000266 		ER3	AC,T
  2945	032301	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2946	032302	004 05 0 00 000266 		ER4	AC+1,T
  2947	032303	321 10 0 00 032275 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2948
  2949
  2950			665000			YY=YY-377
  2951		777777	777777			ZZ=-1
  2952
  2953						REPEAT	^D7,
  2954					<T=T+1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-8
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0075

  2955						XX=<XX-1>/2
  2956						YY=YY+1000
  2957						ZZ=ZZ+ZZ
  2958						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0
  2959					>
  2960			000267		T=T+1
  2961		777777	777577			XX=<XX-1>/2
  2962			666000			YY=YY+1000
  2963		777777	777776			ZZ=ZZ+ZZ
  2964						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  2965						DMOVE	AC,[600777,,-1
  2966	032304	120 04 0 00 040660 			-1,,XX]
  2967						DFAD	AC,[0,,0
  2968	032305	110 04 0 00 040355 			0,,0]
  2969	032306	312 04 0 00 040662 		CAME	AC,[YY+ZZ&377,,0]
  2970	032307	003 04 0 00 000267 		ER3	AC,T
  2971	032310	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2972	032311	004 05 0 00 000267 		ER4	AC+1,T
  2973	032312	321 10 0 00 032304 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2974
  2975			000270		T=T+1
  2976		777777	777677			XX=<XX-1>/2
  2977			667000			YY=YY+1000
  2978		777777	777774			ZZ=ZZ+ZZ
  2979						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  2980						DMOVE	AC,[600777,,-1
  2981	032313	120 04 0 00 040663 			-1,,XX]
  2982						DFAD	AC,[0,,0
  2983	032314	110 04 0 00 040355 			0,,0]
  2984	032315	312 04 0 00 040665 		CAME	AC,[YY+ZZ&377,,0]
  2985	032316	003 04 0 00 000270 		ER3	AC,T
  2986	032317	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  2987	032320	004 05 0 00 000270 		ER4	AC+1,T
  2988	032321	321 10 0 00 032313 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  2989
  2990			000271		T=T+1
  2991		777777	777737			XX=<XX-1>/2
  2992			670000			YY=YY+1000
  2993		777777	777770			ZZ=ZZ+ZZ
  2994						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  2995						DMOVE	AC,[600777,,-1
  2996	032322	120 04 0 00 040666 			-1,,XX]
  2997						DFAD	AC,[0,,0
  2998	032323	110 04 0 00 040355 			0,,0]
  2999	032324	312 04 0 00 040670 		CAME	AC,[YY+ZZ&377,,0]
  3000	032325	003 04 0 00 000271 		ER3	AC,T
  3001	032326	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3002	032327	004 05 0 00 000271 		ER4	AC+1,T
  3003	032330	321 10 0 00 032322 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  3004
  3005			000272		T=T+1
  3006		777777	777757			XX=<XX-1>/2
  3007			671000			YY=YY+1000
  3008		777777	777760			ZZ=ZZ+ZZ
  3009						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-9
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0076

  3010						DMOVE	AC,[600777,,-1
  3011	032331	120 04 0 00 040671 			-1,,XX]
  3012						DFAD	AC,[0,,0
  3013	032332	110 04 0 00 040355 			0,,0]
  3014	032333	312 04 0 00 040673 		CAME	AC,[YY+ZZ&377,,0]
  3015	032334	003 04 0 00 000272 		ER3	AC,T
  3016	032335	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3017	032336	004 05 0 00 000272 		ER4	AC+1,T
  3018	032337	321 10 0 00 032331 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  3019
  3020			000273		T=T+1
  3021		777777	777767			XX=<XX-1>/2
  3022			672000			YY=YY+1000
  3023		777777	777740			ZZ=ZZ+ZZ
  3024						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  3025						DMOVE	AC,[600777,,-1
  3026	032340	120 04 0 00 040674 			-1,,XX]
  3027						DFAD	AC,[0,,0
  3028	032341	110 04 0 00 040355 			0,,0]
  3029	032342	312 04 0 00 040676 		CAME	AC,[YY+ZZ&377,,0]
  3030	032343	003 04 0 00 000273 		ER3	AC,T
  3031	032344	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3032	032345	004 05 0 00 000273 		ER4	AC+1,T
  3033	032346	321 10 0 00 032340 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  3034
  3035			000274		T=T+1
  3036		777777	777773			XX=<XX-1>/2
  3037			673000			YY=YY+1000
  3038		777777	777700			ZZ=ZZ+ZZ
  3039						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  3040						DMOVE	AC,[600777,,-1
  3041	032347	120 04 0 00 040677 			-1,,XX]
  3042						DFAD	AC,[0,,0
  3043	032350	110 04 0 00 040355 			0,,0]
  3044	032351	312 04 0 00 040701 		CAME	AC,[YY+ZZ&377,,0]
  3045	032352	003 04 0 00 000274 		ER3	AC,T
  3046	032353	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3047	032354	004 05 0 00 000274 		ER4	AC+1,T
  3048	032355	321 10 0 00 032347 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  3049
  3050			000275		T=T+1
  3051		777777	777775			XX=<XX-1>/2
  3052			674000			YY=YY+1000
  3053		777777	777600			ZZ=ZZ+ZZ
  3054						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
  3055						DMOVE	AC,[600777,,-1
  3056	032356	120 04 0 00 040702 			-1,,XX]
  3057						DFAD	AC,[0,,0
  3058	032357	110 04 0 00 040355 			0,,0]
  3059	032360	312 04 0 00 040704 		CAME	AC,[YY+ZZ&377,,0]
  3060	032361	003 04 0 00 000275 		ER3	AC,T
  3061	032362	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3062	032363	004 05 0 00 000275 		ER4	AC+1,T
  3063	032364	321 10 0 00 032356 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
  3064
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 4-10
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0077

  3065
  3066			000276		T=T+1
  3067		777777	777776			XX=<XX-1>/2
  3068		777777	777400			ZZ=ZZ+ZZ
  3069						SDFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&777,0,0,0^
  3070						DMOVE	AC,[600777,,-1
  3071	032365	120 04 0 00 040705 			-1,,XX]
  3072						DFAD	AC,[0,,0
  3073	032366	110 04 0 00 040355 			0,,0]
  3074	032367	312 04 0 00 040707 		CAME	AC,[YY+ZZ&777,,0]
  3075	032370	003 04 0 00 000276 		ER3	AC,T
  3076	032371	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3077	032372	004 05 0 00 000276 		ER4	AC+1,T
  3078	032373	321 10 0 00 032365 		JUMPL	AC+4,.-^D6	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5
DSKCE1	MAC	21-Jun-78 10:46		CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS                    SEQ 0078

  3079
  3080					SUBTTL	DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND
  3081
  3082					;CHECK THAT DFAD AC,E DOES NOT ALTER C(E) OR C(E+1)
  3083
  3084					S10100:	DMOVE	AC,[200777,,-1
  3085	032374	120 04 0 00 040710 			-1,,-1]
  3086						DMOVE	AC+2,[200000,,0
  3087	032375	120 06 0 00 040712 			400000,,-1]
  3088	032376	110 04 0 00 000006 		DFAD	AC,AC+2
  3089	032377	312 06 0 00 040203 		CAME	AC+2,[200000,,0]
  3090	032400	005 06 0 00 010101 		ER5	AC+2,10101	;C(E) WAS ALTERED
  3091	032401	312 07 0 00 040713 		CAME	AC+3,[400000,,-1]
  3092	032402	006 07 0 00 010101 		ER6	AC+3,10101	;C(E+1) WAS ALTERED
  3093	032403	321 10 0 00 032374 		JUMPL	AC+4,S10100	;LOOP ON ERROR SWITCH
  3094
  3095						SDFA	102,600,0,0,0,400,0,0,0,1500,0,0,0^
  3096					S10200:	DMOVE	AC,[600,,0
  3097	032404	120 04 0 00 040714 			0,,0]
  3098						DFAD	AC,[400,,0
  3099	032405	110 04 0 00 040716 			0,,0]
  3100	032406	312 04 0 00 040720 		CAME	AC,[1500,,0]
  3101	032407	003 04 0 00 010201 		ER3	AC,10201
  3102	032410	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3103	032411	004 05 0 00 010201 		ER4	AC+1,10201
  3104	032412	321 10 0 00 032404 		JUMPL	AC+4,S10200	;LOOP ON ERROR SWITCH^
  3105
  3106						SDFA	103,377000,0,0,0,377600,0,0,0,377600,0,0,0^
  3107					S10300:	DMOVE	AC,[377000,,0
  3108	032413	120 04 0 00 040721 			0,,0]
  3109						DFAD	AC,[377600,,0
  3110	032414	110 04 0 00 040723 			0,,0]
  3111	032415	312 04 0 00 040523 		CAME	AC,[377600,,0]
  3112	032416	003 04 0 00 010301 		ER3	AC,10301
  3113	032417	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3114	032420	004 05 0 00 010301 		ER4	AC+1,10301
  3115	032421	321 10 0 00 032413 		JUMPL	AC+4,S10300	;LOOP ON ERROR SWITCH^
  3116
  3117						SDFA	104,600400,0,0,0,177400,0,0,0,0,0,0,0^
  3118					S10400:	DMOVE	AC,[600400,,0
  3119	032422	120 04 0 00 040725 			0,,0]
  3120						DFAD	AC,[177400,,0
  3121	032423	110 04 0 00 040727 			0,,0]
  3122	032424	312 04 0 00 040060 		CAME	AC,[0,,0]
  3123	032425	003 04 0 00 010401 		ER3	AC,10401
  3124	032426	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3125	032427	004 05 0 00 010401 		ER4	AC+1,10401
  3126	032430	321 10 0 00 032422 		JUMPL	AC+4,S10400	;LOOP ON ERROR SWITCH^
  3127
  3128						SDFA	105,200400,0,0,0,205400,0,0,0,205410,0,0,0^
  3129					S10500:	DMOVE	AC,[200400,,0
  3130	032431	120 04 0 00 040731 			0,,0]
  3131						DFAD	AC,[205400,,0
  3132	032432	110 04 0 00 040733 			0,,0]
  3133	032433	312 04 0 00 040735 		CAME	AC,[205410,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0079

  3134	032434	003 04 0 00 010501 		ER3	AC,10501
  3135	032435	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3136	032436	004 05 0 00 010501 		ER4	AC+1,10501
  3137	032437	321 10 0 00 032431 		JUMPL	AC+4,S10500	;LOOP ON ERROR SWITCH^
  3138
  3139						SDFA	106,200400,0,0,0,205600,0,0,0,205610,0,0,0^
  3140					S10600:	DMOVE	AC,[200400,,0
  3141	032440	120 04 0 00 040731 			0,,0]
  3142						DFAD	AC,[205600,,0
  3143	032441	110 04 0 00 040736 			0,,0]
  3144	032442	312 04 0 00 040740 		CAME	AC,[205610,,0]
  3145	032443	003 04 0 00 010601 		ER3	AC,10601
  3146	032444	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3147	032445	004 05 0 00 010601 		ER4	AC+1,10601
  3148	032446	321 10 0 00 032440 		JUMPL	AC+4,S10600	;LOOP ON ERROR SWITCH^
  3149
  3150						SDFA	107,600,0,0,0,200400,0,0,0,200400,0,0,0^
  3151					S10700:	DMOVE	AC,[600,,0
  3152	032447	120 04 0 00 040714 			0,,0]
  3153						DFAD	AC,[200400,,0
  3154	032450	110 04 0 00 040731 			0,,0]
  3155	032451	312 04 0 00 040063 		CAME	AC,[200400,,0]
  3156	032452	003 04 0 00 010701 		ER3	AC,10701
  3157	032453	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3158	032454	004 05 0 00 010701 		ER4	AC+1,10701
  3159	032455	321 10 0 00 032447 		JUMPL	AC+4,S10700	;LOOP ON ERROR SWITCH^
  3160
  3161						SDFA	110,200700,0,0,0,0,0,0,0,200700,0,0,0^
  3162					S11000:	DMOVE	AC,[200700,,0
  3163	032456	120 04 0 00 040741 			0,,0]
  3164						DFAD	AC,[0,,0
  3165	032457	110 04 0 00 040355 			0,,0]
  3166	032460	312 04 0 00 040741 		CAME	AC,[200700,,0]
  3167	032461	003 04 0 00 011001 		ER3	AC,11001
  3168	032462	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3169	032463	004 05 0 00 011001 		ER4	AC+1,11001
  3170	032464	321 10 0 00 032456 		JUMPL	AC+4,S11000	;LOOP ON ERROR SWITCH^
  3171
  3172						SDFA	111,201400,0,0,0,200400,0,0,0,201600,0,0,0^
  3173					S11100:	DMOVE	AC,[201400,,0
  3174	032465	120 04 0 00 040057 			0,,0]
  3175						DFAD	AC,[200400,,0
  3176	032466	110 04 0 00 040731 			0,,0]
  3177	032467	312 04 0 00 040743 		CAME	AC,[201600,,0]
  3178	032470	003 04 0 00 011101 		ER3	AC,11101
  3179	032471	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3180	032472	004 05 0 00 011101 		ER4	AC+1,11101
  3181	032473	321 10 0 00 032465 		JUMPL	AC+4,S11100	;LOOP ON ERROR SWITCH^
  3182
  3183						SDFA	112,202400,0,0,0,200400,0,0,0,202500,0,0,0^
  3184					S11200:	DMOVE	AC,[202400,,0
  3185	032474	120 04 0 00 040744 			0,,0]
  3186						DFAD	AC,[200400,,0
  3187	032475	110 04 0 00 040731 			0,,0]
  3188	032476	312 04 0 00 040746 		CAME	AC,[202500,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0080

  3189	032477	003 04 0 00 011201 		ER3	AC,11201
  3190	032500	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3191	032501	004 05 0 00 011201 		ER4	AC+1,11201
  3192	032502	321 10 0 00 032474 		JUMPL	AC+4,S11200	;LOOP ON ERROR SWITCH^
  3193
  3194						SDFA	113,204400,0,0,0,200400,0,0,0,204420,0,0,0^
  3195					S11300:	DMOVE	AC,[204400,,0
  3196	032503	120 04 0 00 040747 			0,,0]
  3197						DFAD	AC,[200400,,0
  3198	032504	110 04 0 00 040731 			0,,0]
  3199	032505	312 04 0 00 040751 		CAME	AC,[204420,,0]
  3200	032506	003 04 0 00 011301 		ER3	AC,11301
  3201	032507	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3202	032510	004 05 0 00 011301 		ER4	AC+1,11301
  3203	032511	321 10 0 00 032503 		JUMPL	AC+4,S11300	;LOOP ON ERROR SWITCH^
  3204
  3205						SDFA	114,210400,0,0,0,200400,0,0,0,210401,0,0,0^
  3206					S11400:	DMOVE	AC,[210400,,0
  3207	032512	120 04 0 00 040752 			0,,0]
  3208						DFAD	AC,[200400,,0
  3209	032513	110 04 0 00 040731 			0,,0]
  3210	032514	312 04 0 00 040754 		CAME	AC,[210401,,0]
  3211	032515	003 04 0 00 011401 		ER3	AC,11401
  3212	032516	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3213	032517	004 05 0 00 011401 		ER4	AC+1,11401
  3214	032520	321 10 0 00 032512 		JUMPL	AC+4,S11400	;LOOP ON ERROR SWITCH^
  3215
  3216						SDFA	115,220400,0,0,0,200400,0,0,0,220400,2000,0,0^
  3217					S11500:	DMOVE	AC,[220400,,0
  3218	032521	120 04 0 00 040755 			0,,0]
  3219						DFAD	AC,[200400,,0
  3220	032522	110 04 0 00 040731 			0,,0]
  3221	032523	312 04 0 00 040757 		CAME	AC,[220400,,2000]
  3222	032524	003 04 0 00 011501 		ER3	AC,11501
  3223	032525	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3224	032526	004 05 0 00 011501 		ER4	AC+1,11501
  3225	032527	321 10 0 00 032521 		JUMPL	AC+4,S11500	;LOOP ON ERROR SWITCH^
  3226
  3227						SDFA	116,240400,0,0,0,200400,0,0,0,240400,0,4000,0^
  3228					S11600:	DMOVE	AC,[240400,,0
  3229	032530	120 04 0 00 040760 			0,,0]
  3230						DFAD	AC,[200400,,0
  3231	032531	110 04 0 00 040731 			0,,0]
  3232	032532	312 04 0 00 040760 		CAME	AC,[240400,,0]
  3233	032533	003 04 0 00 011601 		ER3	AC,11601
  3234	032534	312 05 0 00 040222 		CAME	AC+1,[4000,,0]
  3235	032535	004 05 0 00 011601 		ER4	AC+1,11601
  3236	032536	321 10 0 00 032530 		JUMPL	AC+4,S11600	;LOOP ON ERROR SWITCH^
  3237
  3238						SDFA	117,300400,0,0,0,200400,0,0,0,300400,0,0,0^
  3239					S11700:	DMOVE	AC,[300400,,0
  3240	032537	120 04 0 00 040762 			0,,0]
  3241						DFAD	AC,[200400,,0
  3242	032540	110 04 0 00 040731 			0,,0]
  3243	032541	312 04 0 00 040762 		CAME	AC,[300400,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0081

  3244	032542	003 04 0 00 011701 		ER3	AC,11701
  3245	032543	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3246	032544	004 05 0 00 011701 		ER4	AC+1,11701
  3247	032545	321 10 0 00 032537 		JUMPL	AC+4,S11700	;LOOP ON ERROR SWITCH^
  3248
  3249						SDFA	120,600400,0,0,0,600400,0,0,0,577400,0,0,0^
  3250					S12000:	DMOVE	AC,[600400,,0
  3251	032546	120 04 0 00 040725 			0,,0]
  3252						DFAD	AC,[600400,,0
  3253	032547	110 04 0 00 040725 			0,,0]
  3254	032550	312 04 0 00 040061 		CAME	AC,[577400,,0]
  3255	032551	003 04 0 00 012001 		ER3	AC,12001
  3256	032552	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3257	032553	004 05 0 00 012001 		ER4	AC+1,12001
  3258	032554	321 10 0 00 032546 		JUMPL	AC+4,S12000	;LOOP ON ERROR SWITCH^
  3259
  3260						SDFA	121,0,0,0,0,205400,0,0,0,205400,0,0,0^
  3261					S12100:	DMOVE	AC,[0,,0
  3262	032555	120 04 0 00 040355 			0,,0]
  3263						DFAD	AC,[205400,,0
  3264	032556	110 04 0 00 040733 			0,,0]
  3265	032557	312 04 0 00 040733 		CAME	AC,[205400,,0]
  3266	032560	003 04 0 00 012101 		ER3	AC,12101
  3267	032561	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3268	032562	004 05 0 00 012101 		ER4	AC+1,12101
  3269	032563	321 10 0 00 032555 		JUMPL	AC+4,S12100	;LOOP ON ERROR SWITCH^
  3270
  3271						SDFA	122,200400,0,0,0,200400,0,0,0,201400,0,0,0^
  3272					S12200:	DMOVE	AC,[200400,,0
  3273	032564	120 04 0 00 040731 			0,,0]
  3274						DFAD	AC,[200400,,0
  3275	032565	110 04 0 00 040731 			0,,0]
  3276	032566	312 04 0 00 040057 		CAME	AC,[201400,,0]
  3277	032567	003 04 0 00 012201 		ER3	AC,12201
  3278	032570	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3279	032571	004 05 0 00 012201 		ER4	AC+1,12201
  3280	032572	321 10 0 00 032564 		JUMPL	AC+4,S12200	;LOOP ON ERROR SWITCH^
  3281
  3282						SDFA	123,577400,0,0,0,577400,0,0,0,576400,0,0,0^
  3283					S12300:	DMOVE	AC,[577400,,0
  3284	032573	120 04 0 00 040061 			0,,0]
  3285						DFAD	AC,[577400,,0
  3286	032574	110 04 0 00 040061 			0,,0]
  3287	032575	312 04 0 00 040764 		CAME	AC,[576400,,0]
  3288	032576	003 04 0 00 012301 		ER3	AC,12301
  3289	032577	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3290	032600	004 05 0 00 012301 		ER4	AC+1,12301
  3291	032601	321 10 0 00 032573 		JUMPL	AC+4,S12300	;LOOP ON ERROR SWITCH^
  3292
  3293						SDFA	124,205600,0,0,0,177400,0,0,0,205604,0,0,0^
  3294					S12400:	DMOVE	AC,[205600,,0
  3295	032602	120 04 0 00 040736 			0,,0]
  3296						DFAD	AC,[177400,,0
  3297	032603	110 04 0 00 040727 			0,,0]
  3298	032604	312 04 0 00 040765 		CAME	AC,[205604,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 5-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0082

  3299	032605	003 04 0 00 012401 		ER3	AC,12401
  3300	032606	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3301	032607	004 05 0 00 012401 		ER4	AC+1,12401
  3302	032610	321 10 0 00 032602 		JUMPL	AC+4,S12400	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0083

  3303
  3304						SDFA	125,201000,0,0,0,202000,0,0,0,0,0,0,0^
  3305					S12500:	DMOVE	AC,[201000,,0
  3306	032611	120 04 0 00 040766 			0,,0]
  3307						DFAD	AC,[202000,,0
  3308	032612	110 04 0 00 040770 			0,,0]
  3309	032613	312 04 0 00 040060 		CAME	AC,[0,,0]
  3310	032614	003 04 0 00 012501 		ER3	AC,12501
  3311	032615	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3312	032616	004 05 0 00 012501 		ER4	AC+1,12501
  3313	032617	321 10 0 00 032611 		JUMPL	AC+4,S12500	;LOOP ON ERROR SWITCH^
  3314
  3315						SDFA	126,202000,0,0,0,204000,0,0,0,0,0,0,0^
  3316					S12600:	DMOVE	AC,[202000,,0
  3317	032620	120 04 0 00 040770 			0,,0]
  3318						DFAD	AC,[204000,,0
  3319	032621	110 04 0 00 040772 			0,,0]
  3320	032622	312 04 0 00 040060 		CAME	AC,[0,,0]
  3321	032623	003 04 0 00 012601 		ER3	AC,12601
  3322	032624	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3323	032625	004 05 0 00 012601 		ER4	AC+1,12601
  3324	032626	321 10 0 00 032620 		JUMPL	AC+4,S12600	;LOOP ON ERROR SWITCH^
  3325
  3326						SDFA	127,204000,0,0,0,207000,0,0,0,0,0,0,0^
  3327					S12700:	DMOVE	AC,[204000,,0
  3328	032627	120 04 0 00 040772 			0,,0]
  3329						DFAD	AC,[207000,,0
  3330	032630	110 04 0 00 040774 			0,,0]
  3331	032631	312 04 0 00 040060 		CAME	AC,[0,,0]
  3332	032632	003 04 0 00 012701 		ER3	AC,12701
  3333	032633	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3334	032634	004 05 0 00 012701 		ER4	AC+1,12701
  3335	032635	321 10 0 00 032627 		JUMPL	AC+4,S12700	;LOOP ON ERROR SWITCH^
  3336
  3337						SDFA	130,210000,0,0,0,214000,0,0,0,0,0,0,0^
  3338					S13000:	DMOVE	AC,[210000,,0
  3339	032636	120 04 0 00 040776 			0,,0]
  3340						DFAD	AC,[214000,,0
  3341	032637	110 04 0 00 041000 			0,,0]
  3342	032640	312 04 0 00 040060 		CAME	AC,[0,,0]
  3343	032641	003 04 0 00 013001 		ER3	AC,13001
  3344	032642	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3345	032643	004 05 0 00 013001 		ER4	AC+1,13001
  3346	032644	321 10 0 00 032636 		JUMPL	AC+4,S13000	;LOOP ON ERROR SWITCH^
  3347
  3348						SDFA	131,220000,0,0,0,225000,0,0,0,0,0,0,0^
  3349					S13100:	DMOVE	AC,[220000,,0
  3350	032645	120 04 0 00 041002 			0,,0]
  3351						DFAD	AC,[225000,,0
  3352	032646	110 04 0 00 041004 			0,,0]
  3353	032647	312 04 0 00 040060 		CAME	AC,[0,,0]
  3354	032650	003 04 0 00 013101 		ER3	AC,13101
  3355	032651	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3356	032652	004 05 0 00 013101 		ER4	AC+1,13101
  3357	032653	321 10 0 00 032645 		JUMPL	AC+4,S13100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0084

  3358
  3359						SDFA	132,240000,0,0,0,246000,0,0,0,0,0,0,0^
  3360					S13200:	DMOVE	AC,[240000,,0
  3361	032654	120 04 0 00 041006 			0,,0]
  3362						DFAD	AC,[246000,,0
  3363	032655	110 04 0 00 041010 			0,,0]
  3364	032656	312 04 0 00 040060 		CAME	AC,[0,,0]
  3365	032657	003 04 0 00 013201 		ER3	AC,13201
  3366	032660	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3367	032661	004 05 0 00 013201 		ER4	AC+1,13201
  3368	032662	321 10 0 00 032654 		JUMPL	AC+4,S13200	;LOOP ON ERROR SWITCH^
  3369
  3370						SDFA	133,300000,0,0,0,307000,0,0,0,0,0,0,0^
  3371					S13300:	DMOVE	AC,[300000,,0
  3372	032663	120 04 0 00 041012 			0,,0]
  3373						DFAD	AC,[307000,,0
  3374	032664	110 04 0 00 041014 			0,,0]
  3375	032665	312 04 0 00 040060 		CAME	AC,[0,,0]
  3376	032666	003 04 0 00 013301 		ER3	AC,13301
  3377	032667	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3378	032670	004 05 0 00 013301 		ER4	AC+1,13301
  3379	032671	321 10 0 00 032663 		JUMPL	AC+4,S13300	;LOOP ON ERROR SWITCH^
  3380
  3381						SDFA	134,200000,0,0,0,600400,0,0,0,600400,0,0,0^
  3382					S13400:	DMOVE	AC,[200000,,0
  3383	032672	120 04 0 00 041016 			0,,0]
  3384						DFAD	AC,[600400,,0
  3385	032673	110 04 0 00 040725 			0,,0]
  3386	032674	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3387	032675	003 04 0 00 013401 		ER3	AC,13401
  3388	032676	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3389	032677	004 05 0 00 013401 		ER4	AC+1,13401
  3390	032700	321 10 0 00 032672 		JUMPL	AC+4,S13400	;LOOP ON ERROR SWITCH^
  3391
  3392						SDFA	135,201000,0,0,0,600400,0,0,0,600400,0,0,0^
  3393					S13500:	DMOVE	AC,[201000,,0
  3394	032701	120 04 0 00 040766 			0,,0]
  3395						DFAD	AC,[600400,,0
  3396	032702	110 04 0 00 040725 			0,,0]
  3397	032703	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3398	032704	003 04 0 00 013501 		ER3	AC,13501
  3399	032705	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3400	032706	004 05 0 00 013501 		ER4	AC+1,13501
  3401	032707	321 10 0 00 032701 		JUMPL	AC+4,S13500	;LOOP ON ERROR SWITCH^
  3402
  3403						SDFA	136,202000,0,0,0,600400,0,0,0,600400,0,0,0^
  3404					S13600:	DMOVE	AC,[202000,,0
  3405	032710	120 04 0 00 040770 			0,,0]
  3406						DFAD	AC,[600400,,0
  3407	032711	110 04 0 00 040725 			0,,0]
  3408	032712	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3409	032713	003 04 0 00 013601 		ER3	AC,13601
  3410	032714	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3411	032715	004 05 0 00 013601 		ER4	AC+1,13601
  3412	032716	321 10 0 00 032710 		JUMPL	AC+4,S13600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0085

  3413
  3414						SDFA	137,203000,0,0,0,600400,0,0,0,600400,0,0,0^
  3415					S13700:	DMOVE	AC,[203000,,0
  3416	032717	120 04 0 00 041020 			0,,0]
  3417						DFAD	AC,[600400,,0
  3418	032720	110 04 0 00 040725 			0,,0]
  3419	032721	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3420	032722	003 04 0 00 013701 		ER3	AC,13701
  3421	032723	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3422	032724	004 05 0 00 013701 		ER4	AC+1,13701
  3423	032725	321 10 0 00 032717 		JUMPL	AC+4,S13700	;LOOP ON ERROR SWITCH^
  3424
  3425						SDFA	140,204000,0,0,0,600400,0,0,0,600400,0,0,0^
  3426					S14000:	DMOVE	AC,[204000,,0
  3427	032726	120 04 0 00 040772 			0,,0]
  3428						DFAD	AC,[600400,,0
  3429	032727	110 04 0 00 040725 			0,,0]
  3430	032730	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3431	032731	003 04 0 00 014001 		ER3	AC,14001
  3432	032732	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3433	032733	004 05 0 00 014001 		ER4	AC+1,14001
  3434	032734	321 10 0 00 032726 		JUMPL	AC+4,S14000	;LOOP ON ERROR SWITCH^
  3435
  3436						SDFA	141,206000,0,0,0,600400,0,0,0,600400,0,0,0^
  3437					S14100:	DMOVE	AC,[206000,,0
  3438	032735	120 04 0 00 041022 			0,,0]
  3439						DFAD	AC,[600400,,0
  3440	032736	110 04 0 00 040725 			0,,0]
  3441	032737	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3442	032740	003 04 0 00 014101 		ER3	AC,14101
  3443	032741	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3444	032742	004 05 0 00 014101 		ER4	AC+1,14101
  3445	032743	321 10 0 00 032735 		JUMPL	AC+4,S14100	;LOOP ON ERROR SWITCH^
  3446
  3447						SDFA	142,207000,0,0,0,600400,0,0,0,600400,0,0,0^
  3448					S14200:	DMOVE	AC,[207000,,0
  3449	032744	120 04 0 00 040774 			0,,0]
  3450						DFAD	AC,[600400,,0
  3451	032745	110 04 0 00 040725 			0,,0]
  3452	032746	312 04 0 00 040725 		CAME	AC,[600400,,0]
  3453	032747	003 04 0 00 014201 		ER3	AC,14201
  3454	032750	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3455	032751	004 05 0 00 014201 		ER4	AC+1,14201
  3456	032752	321 10 0 00 032744 		JUMPL	AC+4,S14200	;LOOP ON ERROR SWITCH^
  3457
  3458						SDFA	143,400200,0,0,0,377400,0,0,0,401400,0,0,0^
  3459					S14300:	DMOVE	AC,[400200,,0
  3460	032753	120 04 0 00 041024 			0,,0]
  3461						DFAD	AC,[377400,,0
  3462	032754	110 04 0 00 041026 			0,,0]
  3463	032755	312 04 0 00 041030 		CAME	AC,[401400,,0]
  3464	032756	003 04 0 00 014301 		ER3	AC,14301
  3465	032757	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3466	032760	004 05 0 00 014301 		ER4	AC+1,14301
  3467	032761	321 10 0 00 032753 		JUMPL	AC+4,S14300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0086

  3468
  3469						SDFA	144,377400,0,0,0,400200,0,0,0,401400,0,0,0^
  3470					S14400:	DMOVE	AC,[377400,,0
  3471	032762	120 04 0 00 041026 			0,,0]
  3472						DFAD	AC,[400200,,0
  3473	032763	110 04 0 00 041024 			0,,0]
  3474	032764	312 04 0 00 041030 		CAME	AC,[401400,,0]
  3475	032765	003 04 0 00 014401 		ER3	AC,14401
  3476	032766	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3477	032767	004 05 0 00 014401 		ER4	AC+1,14401
  3478	032770	321 10 0 00 032762 		JUMPL	AC+4,S14400	;LOOP ON ERROR SWITCH^
  3479
  3480						SDFA	145,200400,0,0,0,600400,0,0,0,177400,0,0,0^
  3481					S14500:	DMOVE	AC,[200400,,0
  3482	032771	120 04 0 00 040731 			0,,0]
  3483						DFAD	AC,[600400,,0
  3484	032772	110 04 0 00 040725 			0,,0]
  3485	032773	312 04 0 00 040066 		CAME	AC,[177400,,0]
  3486	032774	003 04 0 00 014501 		ER3	AC,14501
  3487	032775	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3488	032776	004 05 0 00 014501 		ER4	AC+1,14501
  3489	032777	321 10 0 00 032771 		JUMPL	AC+4,S14500	;LOOP ON ERROR SWITCH^
  3490
  3491						SDFA	146,200600,0,0,0,201400,0,0,0,201700,0,0,0^
  3492					S14600:	DMOVE	AC,[200600,,0
  3493	033000	120 04 0 00 040064 			0,,0]
  3494						DFAD	AC,[201400,,0
  3495	033001	110 04 0 00 040057 			0,,0]
  3496	033002	312 04 0 00 041031 		CAME	AC,[201700,,0]
  3497	033003	003 04 0 00 014601 		ER3	AC,14601
  3498	033004	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3499	033005	004 05 0 00 014601 		ER4	AC+1,14601
  3500	033006	321 10 0 00 033000 		JUMPL	AC+4,S14600	;LOOP ON ERROR SWITCH^
  3501
  3502						SDFA	147,577600,0,0,0,200400,0,0,0,177400,0,0,0^
  3503					S14700:	DMOVE	AC,[577600,,0
  3504	033007	120 04 0 00 041032 			0,,0]
  3505						DFAD	AC,[200400,,0
  3506	033010	110 04 0 00 040731 			0,,0]
  3507	033011	312 04 0 00 040066 		CAME	AC,[177400,,0]
  3508	033012	003 04 0 00 014701 		ER3	AC,14701
  3509	033013	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3510	033014	004 05 0 00 014701 		ER4	AC+1,14701
  3511	033015	321 10 0 00 033007 		JUMPL	AC+4,S14700	;LOOP ON ERROR SWITCH^
  3512
  3513						SDFA	150,600400,0,0,0,577200,0,0,0,576400,0,0,0^
  3514					S15000:	DMOVE	AC,[600400,,0
  3515	033016	120 04 0 00 040725 			0,,0]
  3516						DFAD	AC,[577200,,0
  3517	033017	110 04 0 00 041034 			0,,0]
  3518	033020	312 04 0 00 040764 		CAME	AC,[576400,,0]
  3519	033021	003 04 0 00 015001 		ER3	AC,15001
  3520	033022	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3521	033023	004 05 0 00 015001 		ER4	AC+1,15001
  3522	033024	321 10 0 00 033016 		JUMPL	AC+4,S15000	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0087

  3523
  3524						SDFA	151,576400,0,0,0,200400,0,0,0,577400,0,0,0^
  3525					S15100:	DMOVE	AC,[576400,,0
  3526	033025	120 04 0 00 041036 			0,,0]
  3527						DFAD	AC,[200400,,0
  3528	033026	110 04 0 00 040731 			0,,0]
  3529	033027	312 04 0 00 040061 		CAME	AC,[577400,,0]
  3530	033030	003 04 0 00 015101 		ER3	AC,15101
  3531	033031	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3532	033032	004 05 0 00 015101 		ER4	AC+1,15101
  3533	033033	321 10 0 00 033025 		JUMPL	AC+4,S15100	;LOOP ON ERROR SWITCH^
  3534
  3535						SDFA	152,200440,0,0,0,200400,0,0,0,201420,0,0,0^
  3536					S15200:	DMOVE	AC,[200440,,0
  3537	033034	120 04 0 00 040072 			0,,0]
  3538						DFAD	AC,[200400,,0
  3539	033035	110 04 0 00 040731 			0,,0]
  3540	033036	312 04 0 00 041040 		CAME	AC,[201420,,0]
  3541	033037	003 04 0 00 015201 		ER3	AC,15201
  3542	033040	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3543	033041	004 05 0 00 015201 		ER4	AC+1,15201
  3544	033042	321 10 0 00 033034 		JUMPL	AC+4,S15200	;LOOP ON ERROR SWITCH^
  3545
  3546						SDFA	153,577400,0,0,0,577400,0,0,0,576400,0,0,0^
  3547					S15300:	DMOVE	AC,[577400,,0
  3548	033043	120 04 0 00 040061 			0,,0]
  3549						DFAD	AC,[577400,,0
  3550	033044	110 04 0 00 040061 			0,,0]
  3551	033045	312 04 0 00 040764 		CAME	AC,[576400,,0]
  3552	033046	003 04 0 00 015301 		ER3	AC,15301
  3553	033047	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3554	033050	004 05 0 00 015301 		ER4	AC+1,15301
  3555	033051	321 10 0 00 033043 		JUMPL	AC+4,S15300	;LOOP ON ERROR SWITCH^
  3556
  3557						SDFA	154,200400,77,0,0,206400,0,0,0,206404,0,374000,0^
  3558					S15400:	DMOVE	AC,[200400,,77
  3559	033052	120 04 0 00 041041 			0,,0]
  3560						DFAD	AC,[206400,,0
  3561	033053	110 04 0 00 041043 			0,,0]
  3562	033054	312 04 0 00 041045 		CAME	AC,[206404,,0]
  3563	033055	003 04 0 00 015401 		ER3	AC,15401
  3564	033056	312 05 0 00 040543 		CAME	AC+1,[374000,,0]
  3565	033057	004 05 0 00 015401 		ER4	AC+1,15401
  3566	033060	321 10 0 00 033052 		JUMPL	AC+4,S15400	;LOOP ON ERROR SWITCH^
  3567
  3568						SDFA	155,30400,3,0,0,32400,0,0,0,32500,0,300000,0^
  3569					S15500:	DMOVE	AC,[30400,,3
  3570	033061	120 04 0 00 041046 			0,,0]
  3571						DFAD	AC,[32400,,0
  3572	033062	110 04 0 00 041050 			0,,0]
  3573	033063	312 04 0 00 041052 		CAME	AC,[32500,,0]
  3574	033064	003 04 0 00 015501 		ER3	AC,15501
  3575	033065	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  3576	033066	004 05 0 00 015501 		ER4	AC+1,15501
  3577	033067	321 10 0 00 033061 		JUMPL	AC+4,S15500	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 6-5
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0088

  3578
  3579						SDFA	156,200400,1,0,0,201600,0,0,0,202400,0,100000,0^
  3580					S15600:	DMOVE	AC,[200400,,1
  3581	033070	120 04 0 00 040177 			0,,0]
  3582						DFAD	AC,[201600,,0
  3583	033071	110 04 0 00 041053 			0,,0]
  3584	033072	312 04 0 00 040744 		CAME	AC,[202400,,0]
  3585	033073	003 04 0 00 015601 		ER3	AC,15601
  3586	033074	312 05 0 00 040206 		CAME	AC+1,[100000,,0]
  3587	033075	004 05 0 00 015601 		ER4	AC+1,15601
  3588	033076	321 10 0 00 033070 		JUMPL	AC+4,S15600	;LOOP ON ERROR SWITCH^
  3589
  3590						SDFA	157,577400,3,0,0,202400,0,0,0,201600,1,200000,0^
  3591					S15700:	DMOVE	AC,[577400,,3
  3592	033077	120 04 0 00 041055 			0,,0]
  3593						DFAD	AC,[202400,,0
  3594	033100	110 04 0 00 040744 			0,,0]
  3595	033101	312 04 0 00 041057 		CAME	AC,[201600,,1]
  3596	033102	003 04 0 00 015701 		ER3	AC,15701
  3597	033103	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  3598	033104	004 05 0 00 015701 		ER4	AC+1,15701
  3599	033105	321 10 0 00 033077 		JUMPL	AC+4,S15700	;LOOP ON ERROR SWITCH^
  3600
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0089

  3601
  3602						SDFA	160,200400,3,0,0,202400,0,0,0,202500,0,300000,0^
  3603					S16000:	DMOVE	AC,[200400,,3
  3604	033106	120 04 0 00 041060 			0,,0]
  3605						DFAD	AC,[202400,,0
  3606	033107	110 04 0 00 040744 			0,,0]
  3607	033110	312 04 0 00 040746 		CAME	AC,[202500,,0]
  3608	033111	003 04 0 00 016001 		ER3	AC,16001
  3609	033112	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  3610	033113	004 05 0 00 016001 		ER4	AC+1,16001
  3611	033114	321 10 0 00 033106 		JUMPL	AC+4,S16000	;LOOP ON ERROR SWITCH^
  3612
  3613						SDFA	161,200400,-1,0,0,202400,0,0,0,202500,177777,300000,0^
  3614					S16100:	DMOVE	AC,[200400,,-1
  3615	033115	120 04 0 00 041062 			0,,0]
  3616						DFAD	AC,[202400,,0
  3617	033116	110 04 0 00 040744 			0,,0]
  3618	033117	312 04 0 00 041064 		CAME	AC,[202500,,177777]
  3619	033120	003 04 0 00 016101 		ER3	AC,16101
  3620	033121	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  3621	033122	004 05 0 00 016101 		ER4	AC+1,16101
  3622	033123	321 10 0 00 033115 		JUMPL	AC+4,S16100	;LOOP ON ERROR SWITCH^
  3623
  3624						SDFA	162,200200,1,0,0,200200,1,0,0,200400,2,0,0^
  3625					S16200:	DMOVE	AC,[200200,,1
  3626	033124	120 04 0 00 041065 			0,,0]
  3627						DFAD	AC,[200200,,1
  3628	033125	110 04 0 00 041065 			0,,0]
  3629	033126	312 04 0 00 040174 		CAME	AC,[200400,,2]
  3630	033127	003 04 0 00 016201 		ER3	AC,16201
  3631	033130	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3632	033131	004 05 0 00 016201 		ER4	AC+1,16201
  3633	033132	321 10 0 00 033124 		JUMPL	AC+4,S16200	;LOOP ON ERROR SWITCH^
  3634
  3635						SDFA	163,200200,2,0,0,200200,2,0,0,200400,4,0,0^
  3636					S16300:	DMOVE	AC,[200200,,2
  3637	033133	120 04 0 00 041067 			0,,0]
  3638						DFAD	AC,[200200,,2
  3639	033134	110 04 0 00 041067 			0,,0]
  3640	033135	312 04 0 00 040171 		CAME	AC,[200400,,4]
  3641	033136	003 04 0 00 016301 		ER3	AC,16301
  3642	033137	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3643	033140	004 05 0 00 016301 		ER4	AC+1,16301
  3644	033141	321 10 0 00 033133 		JUMPL	AC+4,S16300	;LOOP ON ERROR SWITCH^
  3645
  3646						SDFA	164,200200,4,0,0,200200,4,0,0,200400,10,0,0^
  3647					S16400:	DMOVE	AC,[200200,,4
  3648	033142	120 04 0 00 041071 			0,,0]
  3649						DFAD	AC,[200200,,4
  3650	033143	110 04 0 00 041071 			0,,0]
  3651	033144	312 04 0 00 040166 		CAME	AC,[200400,,10]
  3652	033145	003 04 0 00 016401 		ER3	AC,16401
  3653	033146	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3654	033147	004 05 0 00 016401 		ER4	AC+1,16401
  3655	033150	321 10 0 00 033142 		JUMPL	AC+4,S16400	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0090

  3656
  3657						SDFA	165,200200,10,0,0,200200,10,0,0,200400,20,0,0^
  3658					S16500:	DMOVE	AC,[200200,,10
  3659	033151	120 04 0 00 041073 			0,,0]
  3660						DFAD	AC,[200200,,10
  3661	033152	110 04 0 00 041073 			0,,0]
  3662	033153	312 04 0 00 040163 		CAME	AC,[200400,,20]
  3663	033154	003 04 0 00 016501 		ER3	AC,16501
  3664	033155	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3665	033156	004 05 0 00 016501 		ER4	AC+1,16501
  3666	033157	321 10 0 00 033151 		JUMPL	AC+4,S16500	;LOOP ON ERROR SWITCH^
  3667
  3668						SDFA	166,200200,20,0,0,200200,20,0,0,200400,40,0,0^
  3669					S16600:	DMOVE	AC,[200200,,20
  3670	033160	120 04 0 00 041075 			0,,0]
  3671						DFAD	AC,[200200,,20
  3672	033161	110 04 0 00 041075 			0,,0]
  3673	033162	312 04 0 00 040160 		CAME	AC,[200400,,40]
  3674	033163	003 04 0 00 016601 		ER3	AC,16601
  3675	033164	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3676	033165	004 05 0 00 016601 		ER4	AC+1,16601
  3677	033166	321 10 0 00 033160 		JUMPL	AC+4,S16600	;LOOP ON ERROR SWITCH^
  3678
  3679						SDFA	167,200200,40,0,0,200200,40,0,0,200400,100,0,0^
  3680					S16700:	DMOVE	AC,[200200,,40
  3681	033167	120 04 0 00 041077 			0,,0]
  3682						DFAD	AC,[200200,,40
  3683	033170	110 04 0 00 041077 			0,,0]
  3684	033171	312 04 0 00 040155 		CAME	AC,[200400,,100]
  3685	033172	003 04 0 00 016701 		ER3	AC,16701
  3686	033173	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3687	033174	004 05 0 00 016701 		ER4	AC+1,16701
  3688	033175	321 10 0 00 033167 		JUMPL	AC+4,S16700	;LOOP ON ERROR SWITCH^
  3689
  3690						SDFA	170,200200,100,0,0,200200,100,0,0,200400,200,0,0^
  3691					S17000:	DMOVE	AC,[200200,,100
  3692	033176	120 04 0 00 041101 			0,,0]
  3693						DFAD	AC,[200200,,100
  3694	033177	110 04 0 00 041101 			0,,0]
  3695	033200	312 04 0 00 040152 		CAME	AC,[200400,,200]
  3696	033201	003 04 0 00 017001 		ER3	AC,17001
  3697	033202	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3698	033203	004 05 0 00 017001 		ER4	AC+1,17001
  3699	033204	321 10 0 00 033176 		JUMPL	AC+4,S17000	;LOOP ON ERROR SWITCH^
  3700
  3701						SDFA	171,200200,200,0,0,200200,200,0,0,200400,400,0,0^
  3702					S17100:	DMOVE	AC,[200200,,200
  3703	033205	120 04 0 00 041103 			0,,0]
  3704						DFAD	AC,[200200,,200
  3705	033206	110 04 0 00 041103 			0,,0]
  3706	033207	312 04 0 00 040147 		CAME	AC,[200400,,400]
  3707	033210	003 04 0 00 017101 		ER3	AC,17101
  3708	033211	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3709	033212	004 05 0 00 017101 		ER4	AC+1,17101
  3710	033213	321 10 0 00 033205 		JUMPL	AC+4,S17100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0091

  3711
  3712						SDFA	172,200200,400,0,0,200200,400,0,0,200400,1000,0,0^
  3713					S17200:	DMOVE	AC,[200200,,400
  3714	033214	120 04 0 00 041105 			0,,0]
  3715						DFAD	AC,[200200,,400
  3716	033215	110 04 0 00 041105 			0,,0]
  3717	033216	312 04 0 00 040144 		CAME	AC,[200400,,1000]
  3718	033217	003 04 0 00 017201 		ER3	AC,17201
  3719	033220	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3720	033221	004 05 0 00 017201 		ER4	AC+1,17201
  3721	033222	321 10 0 00 033214 		JUMPL	AC+4,S17200	;LOOP ON ERROR SWITCH^
  3722
  3723						SDFA	173,200200,1000,0,0,200200,1000,0,0,200400,2000,0,0^
  3724					S17300:	DMOVE	AC,[200200,,1000
  3725	033223	120 04 0 00 041107 			0,,0]
  3726						DFAD	AC,[200200,,1000
  3727	033224	110 04 0 00 041107 			0,,0]
  3728	033225	312 04 0 00 040141 		CAME	AC,[200400,,2000]
  3729	033226	003 04 0 00 017301 		ER3	AC,17301
  3730	033227	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3731	033230	004 05 0 00 017301 		ER4	AC+1,17301
  3732	033231	321 10 0 00 033223 		JUMPL	AC+4,S17300	;LOOP ON ERROR SWITCH^
  3733
  3734						SDFA	174,172400,0,0,0,201400,0,0,0,201402,0,0,0^
  3735					S17400:	DMOVE	AC,[172400,,0
  3736	033232	120 04 0 00 041111 			0,,0]
  3737						DFAD	AC,[201400,,0
  3738	033233	110 04 0 00 040057 			0,,0]
  3739	033234	312 04 0 00 041113 		CAME	AC,[201402,,0]
  3740	033235	003 04 0 00 017401 		ER3	AC,17401
  3741	033236	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3742	033237	004 05 0 00 017401 		ER4	AC+1,17401
  3743	033240	321 10 0 00 033232 		JUMPL	AC+4,S17400	;LOOP ON ERROR SWITCH^
  3744
  3745						SDFA	175,173400,0,0,0,201400,0,0,0,201404,0,0,0^
  3746					S17500:	DMOVE	AC,[173400,,0
  3747	033241	120 04 0 00 041114 			0,,0]
  3748						DFAD	AC,[201400,,0
  3749	033242	110 04 0 00 040057 			0,,0]
  3750	033243	312 04 0 00 041116 		CAME	AC,[201404,,0]
  3751	033244	003 04 0 00 017501 		ER3	AC,17501
  3752	033245	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3753	033246	004 05 0 00 017501 		ER4	AC+1,17501
  3754	033247	321 10 0 00 033241 		JUMPL	AC+4,S17500	;LOOP ON ERROR SWITCH^
  3755
  3756						SDFA	176,174400,0,0,0,201400,0,0,0,201410,0,0,0^
  3757					S17600:	DMOVE	AC,[174400,,0
  3758	033250	120 04 0 00 041117 			0,,0]
  3759						DFAD	AC,[201400,,0
  3760	033251	110 04 0 00 040057 			0,,0]
  3761	033252	312 04 0 00 041121 		CAME	AC,[201410,,0]
  3762	033253	003 04 0 00 017601 		ER3	AC,17601
  3763	033254	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3764	033255	004 05 0 00 017601 		ER4	AC+1,17601
  3765	033256	321 10 0 00 033250 		JUMPL	AC+4,S17600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0092

  3766
  3767						SDFA	177,175400,0,0,0,201400,0,0,0,201420,0,0,0^
  3768					S17700:	DMOVE	AC,[175400,,0
  3769	033257	120 04 0 00 041122 			0,,0]
  3770						DFAD	AC,[201400,,0
  3771	033260	110 04 0 00 040057 			0,,0]
  3772	033261	312 04 0 00 041040 		CAME	AC,[201420,,0]
  3773	033262	003 04 0 00 017701 		ER3	AC,17701
  3774	033263	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3775	033264	004 05 0 00 017701 		ER4	AC+1,17701
  3776	033265	321 10 0 00 033257 		JUMPL	AC+4,S17700	;LOOP ON ERROR SWITCH^
  3777
  3778						SDFA	200,176400,0,0,0,201400,0,0,0,201440,0,0,0^
  3779					S20000:	DMOVE	AC,[176400,,0
  3780	033266	120 04 0 00 041124 			0,,0]
  3781						DFAD	AC,[201400,,0
  3782	033267	110 04 0 00 040057 			0,,0]
  3783	033270	312 04 0 00 041126 		CAME	AC,[201440,,0]
  3784	033271	003 04 0 00 020001 		ER3	AC,20001
  3785	033272	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3786	033273	004 05 0 00 020001 		ER4	AC+1,20001
  3787	033274	321 10 0 00 033266 		JUMPL	AC+4,S20000	;LOOP ON ERROR SWITCH^
  3788
  3789						SDFA	201,177400,0,0,0,201400,0,0,0,201500,0,0,0^
  3790					S20100:	DMOVE	AC,[177400,,0
  3791	033275	120 04 0 00 040727 			0,,0]
  3792						DFAD	AC,[201400,,0
  3793	033276	110 04 0 00 040057 			0,,0]
  3794	033277	312 04 0 00 041127 		CAME	AC,[201500,,0]
  3795	033300	003 04 0 00 020101 		ER3	AC,20101
  3796	033301	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3797	033302	004 05 0 00 020101 		ER4	AC+1,20101
  3798	033303	321 10 0 00 033275 		JUMPL	AC+4,S20100	;LOOP ON ERROR SWITCH^
  3799
  3800						SDFA	202,202600,0,0,0,200400,0,0,0,202700,0,0,0^
  3801					S20200:	DMOVE	AC,[202600,,0
  3802	033304	120 04 0 00 041130 			0,,0]
  3803						DFAD	AC,[200400,,0
  3804	033305	110 04 0 00 040731 			0,,0]
  3805	033306	312 04 0 00 041132 		CAME	AC,[202700,,0]
  3806	033307	003 04 0 00 020201 		ER3	AC,20201
  3807	033310	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3808	033311	004 05 0 00 020201 		ER4	AC+1,20201
  3809	033312	321 10 0 00 033304 		JUMPL	AC+4,S20200	;LOOP ON ERROR SWITCH^
  3810
  3811						SDFA	203,400,0,0,0,200400,0,0,0,200400,0,0,0^
  3812					S20300:	DMOVE	AC,[400,,0
  3813	033313	120 04 0 00 040716 			0,,0]
  3814						DFAD	AC,[200400,,0
  3815	033314	110 04 0 00 040731 			0,,0]
  3816	033315	312 04 0 00 040063 		CAME	AC,[200400,,0]
  3817	033316	003 04 0 00 020301 		ER3	AC,20301
  3818	033317	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3819	033320	004 05 0 00 020301 		ER4	AC+1,20301
  3820	033321	321 10 0 00 033313 		JUMPL	AC+4,S20300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0093

  3821
  3822						SDFA	204,400,0,0,0,201400,0,0,0,201400,0,0,0^
  3823					S20400:	DMOVE	AC,[400,,0
  3824	033322	120 04 0 00 040716 			0,,0]
  3825						DFAD	AC,[201400,,0
  3826	033323	110 04 0 00 040057 			0,,0]
  3827	033324	312 04 0 00 040057 		CAME	AC,[201400,,0]
  3828	033325	003 04 0 00 020401 		ER3	AC,20401
  3829	033326	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3830	033327	004 05 0 00 020401 		ER4	AC+1,20401
  3831	033330	321 10 0 00 033322 		JUMPL	AC+4,S20400	;LOOP ON ERROR SWITCH^
  3832
  3833						SDFA	205,400,0,0,0,202400,0,0,0,202400,0,0,0^
  3834					S20500:	DMOVE	AC,[400,,0
  3835	033331	120 04 0 00 040716 			0,,0]
  3836						DFAD	AC,[202400,,0
  3837	033332	110 04 0 00 040744 			0,,0]
  3838	033333	312 04 0 00 040744 		CAME	AC,[202400,,0]
  3839	033334	003 04 0 00 020501 		ER3	AC,20501
  3840	033335	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3841	033336	004 05 0 00 020501 		ER4	AC+1,20501
  3842	033337	321 10 0 00 033331 		JUMPL	AC+4,S20500	;LOOP ON ERROR SWITCH^
  3843
  3844						SDFA	206,200000,0,0,0,201000,0,0,0,0,0,0,0^
  3845					S20600:	DMOVE	AC,[200000,,0
  3846	033340	120 04 0 00 041016 			0,,0]
  3847						DFAD	AC,[201000,,0
  3848	033341	110 04 0 00 040766 			0,,0]
  3849	033342	312 04 0 00 040060 		CAME	AC,[0,,0]
  3850	033343	003 04 0 00 020601 		ER3	AC,20601
  3851	033344	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3852	033345	004 05 0 00 020601 		ER4	AC+1,20601
  3853	033346	321 10 0 00 033340 		JUMPL	AC+4,S20600	;LOOP ON ERROR SWITCH^
  3854
  3855						SDFA	207,200000,0,0,0,202000,0,0,0,0,0,0,0^
  3856					S20700:	DMOVE	AC,[200000,,0
  3857	033347	120 04 0 00 041016 			0,,0]
  3858						DFAD	AC,[202000,,0
  3859	033350	110 04 0 00 040770 			0,,0]
  3860	033351	312 04 0 00 040060 		CAME	AC,[0,,0]
  3861	033352	003 04 0 00 020701 		ER3	AC,20701
  3862	033353	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3863	033354	004 05 0 00 020701 		ER4	AC+1,20701
  3864	033355	321 10 0 00 033347 		JUMPL	AC+4,S20700	;LOOP ON ERROR SWITCH^
  3865
  3866						SDFA	210,200000,0,0,0,203000,0,0,0,0,0,0,0^
  3867					S21000:	DMOVE	AC,[200000,,0
  3868	033356	120 04 0 00 041016 			0,,0]
  3869						DFAD	AC,[203000,,0
  3870	033357	110 04 0 00 041020 			0,,0]
  3871	033360	312 04 0 00 040060 		CAME	AC,[0,,0]
  3872	033361	003 04 0 00 021001 		ER3	AC,21001
  3873	033362	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3874	033363	004 05 0 00 021001 		ER4	AC+1,21001
  3875	033364	321 10 0 00 033356 		JUMPL	AC+4,S21000	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 7-5
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0094

  3876
  3877						SDFA	211,200400,0,0,0,200400,0,0,0,201400,0,0,0^
  3878					S21100:	DMOVE	AC,[200400,,0
  3879	033365	120 04 0 00 040731 			0,,0]
  3880						DFAD	AC,[200400,,0
  3881	033366	110 04 0 00 040731 			0,,0]
  3882	033367	312 04 0 00 040057 		CAME	AC,[201400,,0]
  3883	033370	003 04 0 00 021101 		ER3	AC,21101
  3884	033371	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3885	033372	004 05 0 00 021101 		ER4	AC+1,21101
  3886	033373	321 10 0 00 033365 		JUMPL	AC+4,S21100	;LOOP ON ERROR SWITCH^
  3887
  3888						SDFA	212,201400,0,0,0,201400,0,0,0,202400,0,0,0^
  3889					S21200:	DMOVE	AC,[201400,,0
  3890	033374	120 04 0 00 040057 			0,,0]
  3891						DFAD	AC,[201400,,0
  3892	033375	110 04 0 00 040057 			0,,0]
  3893	033376	312 04 0 00 040744 		CAME	AC,[202400,,0]
  3894	033377	003 04 0 00 021201 		ER3	AC,21201
  3895	033400	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3896	033401	004 05 0 00 021201 		ER4	AC+1,21201
  3897	033402	321 10 0 00 033374 		JUMPL	AC+4,S21200	;LOOP ON ERROR SWITCH^
  3898
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0095

  3899
  3900						SDFA	213,202400,0,0,0,202400,0,0,0,203400,0,0,0^
  3901					S21300:	DMOVE	AC,[202400,,0
  3902	033403	120 04 0 00 040744 			0,,0]
  3903						DFAD	AC,[202400,,0
  3904	033404	110 04 0 00 040744 			0,,0]
  3905	033405	312 04 0 00 041133 		CAME	AC,[203400,,0]
  3906	033406	003 04 0 00 021301 		ER3	AC,21301
  3907	033407	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3908	033410	004 05 0 00 021301 		ER4	AC+1,21301
  3909	033411	321 10 0 00 033403 		JUMPL	AC+4,S21300	;LOOP ON ERROR SWITCH^
  3910
  3911						SDFA	214,200100,0,0,0,200100,0,0,0,177400,0,0,0^
  3912					S21400:	DMOVE	AC,[200100,,0
  3913	033412	120 04 0 00 041134 			0,,0]
  3914						DFAD	AC,[200100,,0
  3915	033413	110 04 0 00 041134 			0,,0]
  3916	033414	312 04 0 00 040066 		CAME	AC,[177400,,0]
  3917	033415	003 04 0 00 021401 		ER3	AC,21401
  3918	033416	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3919	033417	004 05 0 00 021401 		ER4	AC+1,21401
  3920	033420	321 10 0 00 033412 		JUMPL	AC+4,S21400	;LOOP ON ERROR SWITCH^
  3921
  3922						SDFA	215,200040,0,0,0,200040,0,0,0,176400,0,0,0^
  3923					S21500:	DMOVE	AC,[200040,,0
  3924	033421	120 04 0 00 041136 			0,,0]
  3925						DFAD	AC,[200040,,0
  3926	033422	110 04 0 00 041136 			0,,0]
  3927	033423	312 04 0 00 040071 		CAME	AC,[176400,,0]
  3928	033424	003 04 0 00 021501 		ER3	AC,21501
  3929	033425	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3930	033426	004 05 0 00 021501 		ER4	AC+1,21501
  3931	033427	321 10 0 00 033421 		JUMPL	AC+4,S21500	;LOOP ON ERROR SWITCH^
  3932
  3933						SDFA	216,200020,0,0,0,200020,0,0,0,175400,0,0,0^
  3934					S21600:	DMOVE	AC,[200020,,0
  3935	033430	120 04 0 00 041140 			0,,0]
  3936						DFAD	AC,[200020,,0
  3937	033431	110 04 0 00 041140 			0,,0]
  3938	033432	312 04 0 00 040074 		CAME	AC,[175400,,0]
  3939	033433	003 04 0 00 021601 		ER3	AC,21601
  3940	033434	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3941	033435	004 05 0 00 021601 		ER4	AC+1,21601
  3942	033436	321 10 0 00 033430 		JUMPL	AC+4,S21600	;LOOP ON ERROR SWITCH^
  3943
  3944						SDFA	217,577400,0,0,0,576400,0,0,0,576200,0,0,0^
  3945					S21700:	DMOVE	AC,[577400,,0
  3946	033437	120 04 0 00 040061 			0,,0]
  3947						DFAD	AC,[576400,,0
  3948	033440	110 04 0 00 041036 			0,,0]
  3949	033441	312 04 0 00 041142 		CAME	AC,[576200,,0]
  3950	033442	003 04 0 00 021701 		ER3	AC,21701
  3951	033443	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3952	033444	004 05 0 00 021701 		ER4	AC+1,21701
  3953	033445	321 10 0 00 033437 		JUMPL	AC+4,S21700	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0096

  3954
  3955						SDFA	220,600400,0,0,0,576400,0,0,0,576300,0,0,0^
  3956					S22000:	DMOVE	AC,[600400,,0
  3957	033446	120 04 0 00 040725 			0,,0]
  3958						DFAD	AC,[576400,,0
  3959	033447	110 04 0 00 041036 			0,,0]
  3960	033450	312 04 0 00 041143 		CAME	AC,[576300,,0]
  3961	033451	003 04 0 00 022001 		ER3	AC,22001
  3962	033452	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3963	033453	004 05 0 00 022001 		ER4	AC+1,22001
  3964	033454	321 10 0 00 033446 		JUMPL	AC+4,S22000	;LOOP ON ERROR SWITCH^
  3965
  3966						SDFA	221,601400,0,0,0,576400,0,0,0,576340,0,0,0^
  3967					S22100:	DMOVE	AC,[601400,,0
  3968	033455	120 04 0 00 041144 			0,,0]
  3969						DFAD	AC,[576400,,0
  3970	033456	110 04 0 00 041036 			0,,0]
  3971	033457	312 04 0 00 041146 		CAME	AC,[576340,,0]
  3972	033460	003 04 0 00 022101 		ER3	AC,22101
  3973	033461	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3974	033462	004 05 0 00 022101 		ER4	AC+1,22101
  3975	033463	321 10 0 00 033455 		JUMPL	AC+4,S22100	;LOOP ON ERROR SWITCH^
  3976
  3977						SDFA	222,576400,0,0,0,577400,0,0,0,576200,0,0,0^
  3978					S22200:	DMOVE	AC,[576400,,0
  3979	033464	120 04 0 00 041036 			0,,0]
  3980						DFAD	AC,[577400,,0
  3981	033465	110 04 0 00 040061 			0,,0]
  3982	033466	312 04 0 00 041142 		CAME	AC,[576200,,0]
  3983	033467	003 04 0 00 022201 		ER3	AC,22201
  3984	033470	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3985	033471	004 05 0 00 022201 		ER4	AC+1,22201
  3986	033472	321 10 0 00 033464 		JUMPL	AC+4,S22200	;LOOP ON ERROR SWITCH^
  3987
  3988						SDFA	223,576400,0,0,0,600400,0,0,0,576300,0,0,0^
  3989					S22300:	DMOVE	AC,[576400,,0
  3990	033473	120 04 0 00 041036 			0,,0]
  3991						DFAD	AC,[600400,,0
  3992	033474	110 04 0 00 040725 			0,,0]
  3993	033475	312 04 0 00 041143 		CAME	AC,[576300,,0]
  3994	033476	003 04 0 00 022301 		ER3	AC,22301
  3995	033477	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  3996	033500	004 05 0 00 022301 		ER4	AC+1,22301
  3997	033501	321 10 0 00 033473 		JUMPL	AC+4,S22300	;LOOP ON ERROR SWITCH^
  3998
  3999						SDFA	224,576400,0,0,0,601400,0,0,0,576340,0,0,0^
  4000					S22400:	DMOVE	AC,[576400,,0
  4001	033502	120 04 0 00 041036 			0,,0]
  4002						DFAD	AC,[601400,,0
  4003	033503	110 04 0 00 041144 			0,,0]
  4004	033504	312 04 0 00 041146 		CAME	AC,[576340,,0]
  4005	033505	003 04 0 00 022401 		ER3	AC,22401
  4006	033506	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4007	033507	004 05 0 00 022401 		ER4	AC+1,22401
  4008	033510	321 10 0 00 033502 		JUMPL	AC+4,S22400	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0097

  4009
  4010						SDFA	225,577400,0,0,0,577400,0,0,0,576400,0,0,0^
  4011					S22500:	DMOVE	AC,[577400,,0
  4012	033511	120 04 0 00 040061 			0,,0]
  4013						DFAD	AC,[577400,,0
  4014	033512	110 04 0 00 040061 			0,,0]
  4015	033513	312 04 0 00 040764 		CAME	AC,[576400,,0]
  4016	033514	003 04 0 00 022501 		ER3	AC,22501
  4017	033515	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4018	033516	004 05 0 00 022501 		ER4	AC+1,22501
  4019	033517	321 10 0 00 033511 		JUMPL	AC+4,S22500	;LOOP ON ERROR SWITCH^
  4020
  4021						SDFA	226,601400,0,0,0,601400,0,0,0,600400,0,0,0^
  4022					S22600:	DMOVE	AC,[601400,,0
  4023	033520	120 04 0 00 041144 			0,,0]
  4024						DFAD	AC,[601400,,0
  4025	033521	110 04 0 00 041144 			0,,0]
  4026	033522	312 04 0 00 040725 		CAME	AC,[600400,,0]
  4027	033523	003 04 0 00 022601 		ER3	AC,22601
  4028	033524	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4029	033525	004 05 0 00 022601 		ER4	AC+1,22601
  4030	033526	321 10 0 00 033520 		JUMPL	AC+4,S22600	;LOOP ON ERROR SWITCH^
  4031
  4032						SDFA	227,201400,0,0,0,577400,0,0,0,200400,0,0,0^
  4033					S22700:	DMOVE	AC,[201400,,0
  4034	033527	120 04 0 00 040057 			0,,0]
  4035						DFAD	AC,[577400,,0
  4036	033530	110 04 0 00 040061 			0,,0]
  4037	033531	312 04 0 00 040063 		CAME	AC,[200400,,0]
  4038	033532	003 04 0 00 022701 		ER3	AC,22701
  4039	033533	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4040	033534	004 05 0 00 022701 		ER4	AC+1,22701
  4041	033535	321 10 0 00 033527 		JUMPL	AC+4,S22700	;LOOP ON ERROR SWITCH^
  4042
  4043						SDFA	230,201400,0,0,0,600400,0,0,0,200600,0,0,0^
  4044					S23000:	DMOVE	AC,[201400,,0
  4045	033536	120 04 0 00 040057 			0,,0]
  4046						DFAD	AC,[600400,,0
  4047	033537	110 04 0 00 040725 			0,,0]
  4048	033540	312 04 0 00 040064 		CAME	AC,[200600,,0]
  4049	033541	003 04 0 00 023001 		ER3	AC,23001
  4050	033542	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4051	033543	004 05 0 00 023001 		ER4	AC+1,23001
  4052	033544	321 10 0 00 033536 		JUMPL	AC+4,S23000	;LOOP ON ERROR SWITCH^
  4053
  4054						SDFA	231,201400,0,0,0,601400,0,0,0,200700,0,0,0^
  4055					S23100:	DMOVE	AC,[201400,,0
  4056	033545	120 04 0 00 040057 			0,,0]
  4057						DFAD	AC,[601400,,0
  4058	033546	110 04 0 00 041144 			0,,0]
  4059	033547	312 04 0 00 040741 		CAME	AC,[200700,,0]
  4060	033550	003 04 0 00 023101 		ER3	AC,23101
  4061	033551	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4062	033552	004 05 0 00 023101 		ER4	AC+1,23101
  4063	033553	321 10 0 00 033545 		JUMPL	AC+4,S23100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0098

  4064
  4065						SDFA	232,200000,0,0,0,200000,1,0,0,146400,0,0,0^
  4066					S23200:	DMOVE	AC,[200000,,0
  4067	033554	120 04 0 00 041016 			0,,0]
  4068						DFAD	AC,[200000,,1
  4069	033555	110 04 0 00 041147 			0,,0]
  4070	033556	312 04 0 00 040201 		CAME	AC,[146400,,0]
  4071	033557	003 04 0 00 023201 		ER3	AC,23201
  4072	033560	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4073	033561	004 05 0 00 023201 		ER4	AC+1,23201
  4074	033562	321 10 0 00 033554 		JUMPL	AC+4,S23200	;LOOP ON ERROR SWITCH^
  4075
  4076						SDFA	233,200000,0,0,0,200000,2,0,0,147400,0,0,0^
  4077					S23300:	DMOVE	AC,[200000,,0
  4078	033563	120 04 0 00 041016 			0,,0]
  4079						DFAD	AC,[200000,,2
  4080	033564	110 04 0 00 041151 			0,,0]
  4081	033565	312 04 0 00 040176 		CAME	AC,[147400,,0]
  4082	033566	003 04 0 00 023301 		ER3	AC,23301
  4083	033567	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4084	033570	004 05 0 00 023301 		ER4	AC+1,23301
  4085	033571	321 10 0 00 033563 		JUMPL	AC+4,S23300	;LOOP ON ERROR SWITCH^
  4086
  4087						SDFA	234,200000,0,0,0,200000,4,0,0,150400,0,0,0^
  4088					S23400:	DMOVE	AC,[200000,,0
  4089	033572	120 04 0 00 041016 			0,,0]
  4090						DFAD	AC,[200000,,4
  4091	033573	110 04 0 00 041153 			0,,0]
  4092	033574	312 04 0 00 040173 		CAME	AC,[150400,,0]
  4093	033575	003 04 0 00 023401 		ER3	AC,23401
  4094	033576	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4095	033577	004 05 0 00 023401 		ER4	AC+1,23401
  4096	033600	321 10 0 00 033572 		JUMPL	AC+4,S23400	;LOOP ON ERROR SWITCH^
  4097
  4098						SDFA	235,200000,0,0,0,200000,10,0,0,151400,0,0,0^
  4099					S23500:	DMOVE	AC,[200000,,0
  4100	033601	120 04 0 00 041016 			0,,0]
  4101						DFAD	AC,[200000,,10
  4102	033602	110 04 0 00 041155 			0,,0]
  4103	033603	312 04 0 00 040170 		CAME	AC,[151400,,0]
  4104	033604	003 04 0 00 023501 		ER3	AC,23501
  4105	033605	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4106	033606	004 05 0 00 023501 		ER4	AC+1,23501
  4107	033607	321 10 0 00 033601 		JUMPL	AC+4,S23500	;LOOP ON ERROR SWITCH^
  4108
  4109						SDFA	236,200000,0,0,0,200000,20,0,0,152400,0,0,0^
  4110					S23600:	DMOVE	AC,[200000,,0
  4111	033610	120 04 0 00 041016 			0,,0]
  4112						DFAD	AC,[200000,,20
  4113	033611	110 04 0 00 041157 			0,,0]
  4114	033612	312 04 0 00 040165 		CAME	AC,[152400,,0]
  4115	033613	003 04 0 00 023601 		ER3	AC,23601
  4116	033614	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4117	033615	004 05 0 00 023601 		ER4	AC+1,23601
  4118	033616	321 10 0 00 033610 		JUMPL	AC+4,S23600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0099

  4119
  4120						SDFA	237,200000,0,0,0,200000,40,0,0,153400,0,0,0^
  4121					S23700:	DMOVE	AC,[200000,,0
  4122	033617	120 04 0 00 041016 			0,,0]
  4123						DFAD	AC,[200000,,40
  4124	033620	110 04 0 00 041161 			0,,0]
  4125	033621	312 04 0 00 040162 		CAME	AC,[153400,,0]
  4126	033622	003 04 0 00 023701 		ER3	AC,23701
  4127	033623	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4128	033624	004 05 0 00 023701 		ER4	AC+1,23701
  4129	033625	321 10 0 00 033617 		JUMPL	AC+4,S23700	;LOOP ON ERROR SWITCH^
  4130
  4131						SDFA	240,200000,0,0,0,200000,100,0,0,154400,0,0,0^
  4132					S24000:	DMOVE	AC,[200000,,0
  4133	033626	120 04 0 00 041016 			0,,0]
  4134						DFAD	AC,[200000,,100
  4135	033627	110 04 0 00 041163 			0,,0]
  4136	033630	312 04 0 00 040157 		CAME	AC,[154400,,0]
  4137	033631	003 04 0 00 024001 		ER3	AC,24001
  4138	033632	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4139	033633	004 05 0 00 024001 		ER4	AC+1,24001
  4140	033634	321 10 0 00 033626 		JUMPL	AC+4,S24000	;LOOP ON ERROR SWITCH^
  4141
  4142						SDFA	241,200000,0,0,0,200000,200,0,0,155400,0,0,0^
  4143					S24100:	DMOVE	AC,[200000,,0
  4144	033635	120 04 0 00 041016 			0,,0]
  4145						DFAD	AC,[200000,,200
  4146	033636	110 04 0 00 041165 			0,,0]
  4147	033637	312 04 0 00 040154 		CAME	AC,[155400,,0]
  4148	033640	003 04 0 00 024101 		ER3	AC,24101
  4149	033641	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4150	033642	004 05 0 00 024101 		ER4	AC+1,24101
  4151	033643	321 10 0 00 033635 		JUMPL	AC+4,S24100	;LOOP ON ERROR SWITCH^
  4152
  4153						SDFA	242,200000,0,0,0,200000,400,0,0,156400,0,0,0^
  4154					S24200:	DMOVE	AC,[200000,,0
  4155	033644	120 04 0 00 041016 			0,,0]
  4156						DFAD	AC,[200000,,400
  4157	033645	110 04 0 00 041167 			0,,0]
  4158	033646	312 04 0 00 040151 		CAME	AC,[156400,,0]
  4159	033647	003 04 0 00 024201 		ER3	AC,24201
  4160	033650	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4161	033651	004 05 0 00 024201 		ER4	AC+1,24201
  4162	033652	321 10 0 00 033644 		JUMPL	AC+4,S24200	;LOOP ON ERROR SWITCH^
  4163
  4164						SDFA	243,200000,0,0,0,200000,1000,0,0,157400,0,0,0^
  4165					S24300:	DMOVE	AC,[200000,,0
  4166	033653	120 04 0 00 041016 			0,,0]
  4167						DFAD	AC,[200000,,1000
  4168	033654	110 04 0 00 041171 			0,,0]
  4169	033655	312 04 0 00 040146 		CAME	AC,[157400,,0]
  4170	033656	003 04 0 00 024301 		ER3	AC,24301
  4171	033657	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4172	033660	004 05 0 00 024301 		ER4	AC+1,24301
  4173	033661	321 10 0 00 033653 		JUMPL	AC+4,S24300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8-5
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0100

  4174
  4175						SDFA	244,200000,0,0,0,200000,2000,0,0,160400,0,0,0^
  4176					S24400:	DMOVE	AC,[200000,,0
  4177	033662	120 04 0 00 041016 			0,,0]
  4178						DFAD	AC,[200000,,2000
  4179	033663	110 04 0 00 041173 			0,,0]
  4180	033664	312 04 0 00 040143 		CAME	AC,[160400,,0]
  4181	033665	003 04 0 00 024401 		ER3	AC,24401
  4182	033666	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4183	033667	004 05 0 00 024401 		ER4	AC+1,24401
  4184	033670	321 10 0 00 033662 		JUMPL	AC+4,S24400	;LOOP ON ERROR SWITCH^
  4185
  4186						SDFA	245,200000,0,0,0,200000,4000,0,0,161400,0,0,0^
  4187					S24500:	DMOVE	AC,[200000,,0
  4188	033671	120 04 0 00 041016 			0,,0]
  4189						DFAD	AC,[200000,,4000
  4190	033672	110 04 0 00 041175 			0,,0]
  4191	033673	312 04 0 00 040140 		CAME	AC,[161400,,0]
  4192	033674	003 04 0 00 024501 		ER3	AC,24501
  4193	033675	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4194	033676	004 05 0 00 024501 		ER4	AC+1,24501
  4195	033677	321 10 0 00 033671 		JUMPL	AC+4,S24500	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0101

  4196
  4197						SDFA	246,200000,0,0,0,200000,10000,0,0,162400,0,0,0^
  4198					S24600:	DMOVE	AC,[200000,,0
  4199	033700	120 04 0 00 041016 			0,,0]
  4200						DFAD	AC,[200000,,10000
  4201	033701	110 04 0 00 041177 			0,,0]
  4202	033702	312 04 0 00 040135 		CAME	AC,[162400,,0]
  4203	033703	003 04 0 00 024601 		ER3	AC,24601
  4204	033704	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4205	033705	004 05 0 00 024601 		ER4	AC+1,24601
  4206	033706	321 10 0 00 033700 		JUMPL	AC+4,S24600	;LOOP ON ERROR SWITCH^
  4207
  4208						SDFA	247,200000,0,0,0,200000,20000,0,0,163400,0,0,0^
  4209					S24700:	DMOVE	AC,[200000,,0
  4210	033707	120 04 0 00 041016 			0,,0]
  4211						DFAD	AC,[200000,,20000
  4212	033710	110 04 0 00 041201 			0,,0]
  4213	033711	312 04 0 00 040132 		CAME	AC,[163400,,0]
  4214	033712	003 04 0 00 024701 		ER3	AC,24701
  4215	033713	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4216	033714	004 05 0 00 024701 		ER4	AC+1,24701
  4217	033715	321 10 0 00 033707 		JUMPL	AC+4,S24700	;LOOP ON ERROR SWITCH^
  4218
  4219						SDFA	250,200000,0,0,0,200000,40000,0,0,164400,0,0,0^
  4220					S25000:	DMOVE	AC,[200000,,0
  4221	033716	120 04 0 00 041016 			0,,0]
  4222						DFAD	AC,[200000,,40000
  4223	033717	110 04 0 00 041203 			0,,0]
  4224	033720	312 04 0 00 040127 		CAME	AC,[164400,,0]
  4225	033721	003 04 0 00 025001 		ER3	AC,25001
  4226	033722	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4227	033723	004 05 0 00 025001 		ER4	AC+1,25001
  4228	033724	321 10 0 00 033716 		JUMPL	AC+4,S25000	;LOOP ON ERROR SWITCH^
  4229
  4230						SDFA	251,200000,0,0,0,200000,100000,0,0,165400,0,0,0^
  4231					S25100:	DMOVE	AC,[200000,,0
  4232	033725	120 04 0 00 041016 			0,,0]
  4233						DFAD	AC,[200000,,100000
  4234	033726	110 04 0 00 041205 			0,,0]
  4235	033727	312 04 0 00 040124 		CAME	AC,[165400,,0]
  4236	033730	003 04 0 00 025101 		ER3	AC,25101
  4237	033731	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4238	033732	004 05 0 00 025101 		ER4	AC+1,25101
  4239	033733	321 10 0 00 033725 		JUMPL	AC+4,S25100	;LOOP ON ERROR SWITCH^
  4240
  4241						SDFA	252,200000,0,0,0,200000,200000,0,0,166400,0,0,0^
  4242					S25200:	DMOVE	AC,[200000,,0
  4243	033734	120 04 0 00 041016 			0,,0]
  4244						DFAD	AC,[200000,,200000
  4245	033735	110 04 0 00 041207 			0,,0]
  4246	033736	312 04 0 00 040121 		CAME	AC,[166400,,0]
  4247	033737	003 04 0 00 025201 		ER3	AC,25201
  4248	033740	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4249	033741	004 05 0 00 025201 		ER4	AC+1,25201
  4250	033742	321 10 0 00 033734 		JUMPL	AC+4,S25200	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0102

  4251
  4252						SDFA	253,200000,0,0,0,200000,400000,0,0,167400,0,0,0^
  4253					S25300:	DMOVE	AC,[200000,,0
  4254	033743	120 04 0 00 041016 			0,,0]
  4255						DFAD	AC,[200000,,400000
  4256	033744	110 04 0 00 041211 			0,,0]
  4257	033745	312 04 0 00 040116 		CAME	AC,[167400,,0]
  4258	033746	003 04 0 00 025301 		ER3	AC,25301
  4259	033747	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4260	033750	004 05 0 00 025301 		ER4	AC+1,25301
  4261	033751	321 10 0 00 033743 		JUMPL	AC+4,S25300	;LOOP ON ERROR SWITCH^
  4262
  4263						SDFA	254,200000,0,0,0,200001,0,0,0,170400,0,0,0^
  4264					S25400:	DMOVE	AC,[200000,,0
  4265	033752	120 04 0 00 041016 			0,,0]
  4266						DFAD	AC,[200001,,0
  4267	033753	110 04 0 00 041213 			0,,0]
  4268	033754	312 04 0 00 040113 		CAME	AC,[170400,,0]
  4269	033755	003 04 0 00 025401 		ER3	AC,25401
  4270	033756	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4271	033757	004 05 0 00 025401 		ER4	AC+1,25401
  4272	033760	321 10 0 00 033752 		JUMPL	AC+4,S25400	;LOOP ON ERROR SWITCH^
  4273
  4274						SDFA	255,200000,0,0,0,200002,0,0,0,171400,0,0,0^
  4275					S25500:	DMOVE	AC,[200000,,0
  4276	033761	120 04 0 00 041016 			0,,0]
  4277						DFAD	AC,[200002,,0
  4278	033762	110 04 0 00 041215 			0,,0]
  4279	033763	312 04 0 00 040110 		CAME	AC,[171400,,0]
  4280	033764	003 04 0 00 025501 		ER3	AC,25501
  4281	033765	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4282	033766	004 05 0 00 025501 		ER4	AC+1,25501
  4283	033767	321 10 0 00 033761 		JUMPL	AC+4,S25500	;LOOP ON ERROR SWITCH^
  4284
  4285						SDFA	256,200000,0,0,0,200004,0,0,0,172400,0,0,0^
  4286					S25600:	DMOVE	AC,[200000,,0
  4287	033770	120 04 0 00 041016 			0,,0]
  4288						DFAD	AC,[200004,,0
  4289	033771	110 04 0 00 041217 			0,,0]
  4290	033772	312 04 0 00 040105 		CAME	AC,[172400,,0]
  4291	033773	003 04 0 00 025601 		ER3	AC,25601
  4292	033774	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4293	033775	004 05 0 00 025601 		ER4	AC+1,25601
  4294	033776	321 10 0 00 033770 		JUMPL	AC+4,S25600	;LOOP ON ERROR SWITCH^
  4295
  4296						SDFA	257,200000,0,0,0,200010,0,0,0,173400,0,0,0^
  4297					S25700:	DMOVE	AC,[200000,,0
  4298	033777	120 04 0 00 041016 			0,,0]
  4299						DFAD	AC,[200010,,0
  4300	034000	110 04 0 00 041221 			0,,0]
  4301	034001	312 04 0 00 040102 		CAME	AC,[173400,,0]
  4302	034002	003 04 0 00 025701 		ER3	AC,25701
  4303	034003	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4304	034004	004 05 0 00 025701 		ER4	AC+1,25701
  4305	034005	321 10 0 00 033777 		JUMPL	AC+4,S25700	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0103

  4306
  4307						SDFA	260,200000,0,0,0,200020,0,0,0,174400,0,0,0^
  4308					S26000:	DMOVE	AC,[200000,,0
  4309	034006	120 04 0 00 041016 			0,,0]
  4310						DFAD	AC,[200020,,0
  4311	034007	110 04 0 00 041140 			0,,0]
  4312	034010	312 04 0 00 040077 		CAME	AC,[174400,,0]
  4313	034011	003 04 0 00 026001 		ER3	AC,26001
  4314	034012	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4315	034013	004 05 0 00 026001 		ER4	AC+1,26001
  4316	034014	321 10 0 00 034006 		JUMPL	AC+4,S26000	;LOOP ON ERROR SWITCH^
  4317
  4318						SDFA	261,200000,0,0,0,200040,0,0,0,175400,0,0,0^
  4319					S26100:	DMOVE	AC,[200000,,0
  4320	034015	120 04 0 00 041016 			0,,0]
  4321						DFAD	AC,[200040,,0
  4322	034016	110 04 0 00 041136 			0,,0]
  4323	034017	312 04 0 00 040074 		CAME	AC,[175400,,0]
  4324	034020	003 04 0 00 026101 		ER3	AC,26101
  4325	034021	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4326	034022	004 05 0 00 026101 		ER4	AC+1,26101
  4327	034023	321 10 0 00 034015 		JUMPL	AC+4,S26100	;LOOP ON ERROR SWITCH^
  4328
  4329						SDFA	262,200000,0,0,0,200100,0,0,0,176400,0,0,0^
  4330					S26200:	DMOVE	AC,[200000,,0
  4331	034024	120 04 0 00 041016 			0,,0]
  4332						DFAD	AC,[200100,,0
  4333	034025	110 04 0 00 041134 			0,,0]
  4334	034026	312 04 0 00 040071 		CAME	AC,[176400,,0]
  4335	034027	003 04 0 00 026201 		ER3	AC,26201
  4336	034030	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4337	034031	004 05 0 00 026201 		ER4	AC+1,26201
  4338	034032	321 10 0 00 034024 		JUMPL	AC+4,S26200	;LOOP ON ERROR SWITCH^
  4339
  4340						SDFA	263,377400,0,0,0,377400,0,0,0,400,0,0,0^
  4341					S26300:	DMOVE	AC,[377400,,0
  4342	034033	120 04 0 00 041026 			0,,0]
  4343						DFAD	AC,[377400,,0
  4344	034034	110 04 0 00 041026 			0,,0]
  4345	034035	312 04 0 00 040233 		CAME	AC,[400,,0]
  4346	034036	003 04 0 00 026301 		ER3	AC,26301
  4347	034037	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4348	034040	004 05 0 00 026301 		ER4	AC+1,26301
  4349	034041	321 10 0 00 034033 		JUMPL	AC+4,S26300	;LOOP ON ERROR SWITCH^
  4350
  4351						SDFA	264,777700,0,0,0,777700,0,0,0,400400,0,0,0^
  4352					S26400:	DMOVE	AC,[777700,,0
  4353	034042	120 04 0 00 041223 			0,,0]
  4354						DFAD	AC,[777700,,0
  4355	034043	110 04 0 00 041223 			0,,0]
  4356	034044	312 04 0 00 041225 		CAME	AC,[400400,,0]
  4357	034045	003 04 0 00 026401 		ER3	AC,26401
  4358	034046	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4359	034047	004 05 0 00 026401 		ER4	AC+1,26401
  4360	034050	321 10 0 00 034042 		JUMPL	AC+4,S26400	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0104

  4361
  4362						SDFA	265,200000,0,0,0,200777,-1,0,0,200777,-1,0,0^
  4363					S26500:	DMOVE	AC,[200000,,0
  4364	034051	120 04 0 00 041016 			0,,0]
  4365						DFAD	AC,[200777,,-1
  4366	034052	110 04 0 00 041226 			0,,0]
  4367	034053	312 04 0 00 040710 		CAME	AC,[200777,,-1]
  4368	034054	003 04 0 00 026501 		ER3	AC,26501
  4369	034055	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4370	034056	004 05 0 00 026501 		ER4	AC+1,26501
  4371	034057	321 10 0 00 034051 		JUMPL	AC+4,S26500	;LOOP ON ERROR SWITCH^
  4372
  4373						SDFA	266,200000,1,0,0,201400,0,0,0,201400,0,200000,0^
  4374					S26600:	DMOVE	AC,[200000,,1
  4375	034060	120 04 0 00 041147 			0,,0]
  4376						DFAD	AC,[201400,,0
  4377	034061	110 04 0 00 040057 			0,,0]
  4378	034062	312 04 0 00 040057 		CAME	AC,[201400,,0]
  4379	034063	003 04 0 00 026601 		ER3	AC,26601
  4380	034064	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4381	034065	004 05 0 00 026601 		ER4	AC+1,26601
  4382	034066	321 10 0 00 034060 		JUMPL	AC+4,S26600	;LOOP ON ERROR SWITCH^
  4383
  4384						SDFA	267,200000,2,0,0,202400,0,0,0,202400,0,200000,0^
  4385					S26700:	DMOVE	AC,[200000,,2
  4386	034067	120 04 0 00 041151 			0,,0]
  4387						DFAD	AC,[202400,,0
  4388	034070	110 04 0 00 040744 			0,,0]
  4389	034071	312 04 0 00 040744 		CAME	AC,[202400,,0]
  4390	034072	003 04 0 00 026701 		ER3	AC,26701
  4391	034073	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4392	034074	004 05 0 00 026701 		ER4	AC+1,26701
  4393	034075	321 10 0 00 034067 		JUMPL	AC+4,S26700	;LOOP ON ERROR SWITCH^
  4394
  4395						SDFA	270,200000,4,0,0,203400,0,0,0,203400,0,200000,0^
  4396					S27000:	DMOVE	AC,[200000,,4
  4397	034076	120 04 0 00 041153 			0,,0]
  4398						DFAD	AC,[203400,,0
  4399	034077	110 04 0 00 041230 			0,,0]
  4400	034100	312 04 0 00 041133 		CAME	AC,[203400,,0]
  4401	034101	003 04 0 00 027001 		ER3	AC,27001
  4402	034102	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4403	034103	004 05 0 00 027001 		ER4	AC+1,27001
  4404	034104	321 10 0 00 034076 		JUMPL	AC+4,S27000	;LOOP ON ERROR SWITCH^
  4405
  4406						SDFA	271,200000,10,0,0,204400,0,0,0,204400,0,200000,0^
  4407					S27100:	DMOVE	AC,[200000,,10
  4408	034105	120 04 0 00 041155 			0,,0]
  4409						DFAD	AC,[204400,,0
  4410	034106	110 04 0 00 040747 			0,,0]
  4411	034107	312 04 0 00 040747 		CAME	AC,[204400,,0]
  4412	034110	003 04 0 00 027101 		ER3	AC,27101
  4413	034111	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4414	034112	004 05 0 00 027101 		ER4	AC+1,27101
  4415	034113	321 10 0 00 034105 		JUMPL	AC+4,S27100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0105

  4416
  4417						SDFA	272,200000,20,0,0,205400,0,0,0,205400,0,200000,0^
  4418					S27200:	DMOVE	AC,[200000,,20
  4419	034114	120 04 0 00 041157 			0,,0]
  4420						DFAD	AC,[205400,,0
  4421	034115	110 04 0 00 040733 			0,,0]
  4422	034116	312 04 0 00 040733 		CAME	AC,[205400,,0]
  4423	034117	003 04 0 00 027201 		ER3	AC,27201
  4424	034120	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4425	034121	004 05 0 00 027201 		ER4	AC+1,27201
  4426	034122	321 10 0 00 034114 		JUMPL	AC+4,S27200	;LOOP ON ERROR SWITCH^
  4427
  4428						SDFA	273,200000,40,0,0,206400,0,0,0,206400,0,200000,0^
  4429					S27300:	DMOVE	AC,[200000,,40
  4430	034123	120 04 0 00 041161 			0,,0]
  4431						DFAD	AC,[206400,,0
  4432	034124	110 04 0 00 041043 			0,,0]
  4433	034125	312 04 0 00 041043 		CAME	AC,[206400,,0]
  4434	034126	003 04 0 00 027301 		ER3	AC,27301
  4435	034127	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4436	034130	004 05 0 00 027301 		ER4	AC+1,27301
  4437	034131	321 10 0 00 034123 		JUMPL	AC+4,S27300	;LOOP ON ERROR SWITCH^
  4438
  4439						SDFA	274,200000,100,0,0,207400,0,0,0,207400,0,200000,0^
  4440					S27400:	DMOVE	AC,[200000,,100
  4441	034132	120 04 0 00 041163 			0,,0]
  4442						DFAD	AC,[207400,,0
  4443	034133	110 04 0 00 041232 			0,,0]
  4444	034134	312 04 0 00 041232 		CAME	AC,[207400,,0]
  4445	034135	003 04 0 00 027401 		ER3	AC,27401
  4446	034136	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4447	034137	004 05 0 00 027401 		ER4	AC+1,27401
  4448	034140	321 10 0 00 034132 		JUMPL	AC+4,S27400	;LOOP ON ERROR SWITCH^
  4449
  4450						SDFA	275,200000,200,0,0,210400,0,0,0,210400,0,200000,0^
  4451					S27500:	DMOVE	AC,[200000,,200
  4452	034141	120 04 0 00 041165 			0,,0]
  4453						DFAD	AC,[210400,,0
  4454	034142	110 04 0 00 040752 			0,,0]
  4455	034143	312 04 0 00 040752 		CAME	AC,[210400,,0]
  4456	034144	003 04 0 00 027501 		ER3	AC,27501
  4457	034145	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4458	034146	004 05 0 00 027501 		ER4	AC+1,27501
  4459	034147	321 10 0 00 034141 		JUMPL	AC+4,S27500	;LOOP ON ERROR SWITCH^
  4460
  4461						SDFA	276,200000,400,0,0,211400,0,0,0,211400,0,200000,0^
  4462					S27600:	DMOVE	AC,[200000,,400
  4463	034150	120 04 0 00 041167 			0,,0]
  4464						DFAD	AC,[211400,,0
  4465	034151	110 04 0 00 041234 			0,,0]
  4466	034152	312 04 0 00 041234 		CAME	AC,[211400,,0]
  4467	034153	003 04 0 00 027601 		ER3	AC,27601
  4468	034154	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4469	034155	004 05 0 00 027601 		ER4	AC+1,27601
  4470	034156	321 10 0 00 034150 		JUMPL	AC+4,S27600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 9-5
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0106

  4471
  4472						SDFA	277,200000,1000,0,0,212400,0,0,0,212400,0,200000,0^
  4473					S27700:	DMOVE	AC,[200000,,1000
  4474	034157	120 04 0 00 041171 			0,,0]
  4475						DFAD	AC,[212400,,0
  4476	034160	110 04 0 00 041236 			0,,0]
  4477	034161	312 04 0 00 041236 		CAME	AC,[212400,,0]
  4478	034162	003 04 0 00 027701 		ER3	AC,27701
  4479	034163	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4480	034164	004 05 0 00 027701 		ER4	AC+1,27701
  4481	034165	321 10 0 00 034157 		JUMPL	AC+4,S27700	;LOOP ON ERROR SWITCH^
  4482
  4483						SDFA	300,200000,2000,0,0,213400,0,0,0,213400,0,200000,0^
  4484					S30000:	DMOVE	AC,[200000,,2000
  4485	034166	120 04 0 00 041173 			0,,0]
  4486						DFAD	AC,[213400,,0
  4487	034167	110 04 0 00 041240 			0,,0]
  4488	034170	312 04 0 00 041240 		CAME	AC,[213400,,0]
  4489	034171	003 04 0 00 030001 		ER3	AC,30001
  4490	034172	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4491	034173	004 05 0 00 030001 		ER4	AC+1,30001
  4492	034174	321 10 0 00 034166 		JUMPL	AC+4,S30000	;LOOP ON ERROR SWITCH^
  4493
  4494						SDFA	301,200000,4000,0,0,214400,0,0,0,214400,0,200000,0^
  4495					S30100:	DMOVE	AC,[200000,,4000
  4496	034175	120 04 0 00 041175 			0,,0]
  4497						DFAD	AC,[214400,,0
  4498	034176	110 04 0 00 041242 			0,,0]
  4499	034177	312 04 0 00 041242 		CAME	AC,[214400,,0]
  4500	034200	003 04 0 00 030101 		ER3	AC,30101
  4501	034201	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4502	034202	004 05 0 00 030101 		ER4	AC+1,30101
  4503	034203	321 10 0 00 034175 		JUMPL	AC+4,S30100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0107

  4504
  4505						SDFA	302,200000,10000,0,0,215400,0,0,0,215400,0,200000,0^
  4506					S30200:	DMOVE	AC,[200000,,10000
  4507	034204	120 04 0 00 041177 			0,,0]
  4508						DFAD	AC,[215400,,0
  4509	034205	110 04 0 00 041244 			0,,0]
  4510	034206	312 04 0 00 041244 		CAME	AC,[215400,,0]
  4511	034207	003 04 0 00 030201 		ER3	AC,30201
  4512	034210	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4513	034211	004 05 0 00 030201 		ER4	AC+1,30201
  4514	034212	321 10 0 00 034204 		JUMPL	AC+4,S30200	;LOOP ON ERROR SWITCH^
  4515
  4516						SDFA	303,200000,20000,0,0,216400,0,0,0,216400,0,200000,0^
  4517					S30300:	DMOVE	AC,[200000,,20000
  4518	034213	120 04 0 00 041201 			0,,0]
  4519						DFAD	AC,[216400,,0
  4520	034214	110 04 0 00 041246 			0,,0]
  4521	034215	312 04 0 00 041246 		CAME	AC,[216400,,0]
  4522	034216	003 04 0 00 030301 		ER3	AC,30301
  4523	034217	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4524	034220	004 05 0 00 030301 		ER4	AC+1,30301
  4525	034221	321 10 0 00 034213 		JUMPL	AC+4,S30300	;LOOP ON ERROR SWITCH^
  4526
  4527						SDFA	304,200000,40000,0,0,217400,0,0,0,217400,0,200000,0^
  4528					S30400:	DMOVE	AC,[200000,,40000
  4529	034222	120 04 0 00 041203 			0,,0]
  4530						DFAD	AC,[217400,,0
  4531	034223	110 04 0 00 041250 			0,,0]
  4532	034224	312 04 0 00 041250 		CAME	AC,[217400,,0]
  4533	034225	003 04 0 00 030401 		ER3	AC,30401
  4534	034226	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4535	034227	004 05 0 00 030401 		ER4	AC+1,30401
  4536	034230	321 10 0 00 034222 		JUMPL	AC+4,S30400	;LOOP ON ERROR SWITCH^
  4537
  4538						SDFA	305,200000,100000,0,0,220400,0,0,0,220400,0,200000,0^
  4539					S30500:	DMOVE	AC,[200000,,100000
  4540	034231	120 04 0 00 041205 			0,,0]
  4541						DFAD	AC,[220400,,0
  4542	034232	110 04 0 00 040755 			0,,0]
  4543	034233	312 04 0 00 040755 		CAME	AC,[220400,,0]
  4544	034234	003 04 0 00 030501 		ER3	AC,30501
  4545	034235	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4546	034236	004 05 0 00 030501 		ER4	AC+1,30501
  4547	034237	321 10 0 00 034231 		JUMPL	AC+4,S30500	;LOOP ON ERROR SWITCH^
  4548
  4549						SDFA	306,200000,200000,0,0,221400,0,0,0,221400,0,200000,0^
  4550					S30600:	DMOVE	AC,[200000,,200000
  4551	034240	120 04 0 00 041207 			0,,0]
  4552						DFAD	AC,[221400,,0
  4553	034241	110 04 0 00 041252 			0,,0]
  4554	034242	312 04 0 00 041252 		CAME	AC,[221400,,0]
  4555	034243	003 04 0 00 030601 		ER3	AC,30601
  4556	034244	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4557	034245	004 05 0 00 030601 		ER4	AC+1,30601
  4558	034246	321 10 0 00 034240 		JUMPL	AC+4,S30600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0108

  4559
  4560						SDFA	307,200000,400000,0,0,222400,0,0,0,222400,0,200000,0^
  4561					S30700:	DMOVE	AC,[200000,,400000
  4562	034247	120 04 0 00 041211 			0,,0]
  4563						DFAD	AC,[222400,,0
  4564	034250	110 04 0 00 041254 			0,,0]
  4565	034251	312 04 0 00 041254 		CAME	AC,[222400,,0]
  4566	034252	003 04 0 00 030701 		ER3	AC,30701
  4567	034253	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4568	034254	004 05 0 00 030701 		ER4	AC+1,30701
  4569	034255	321 10 0 00 034247 		JUMPL	AC+4,S30700	;LOOP ON ERROR SWITCH^
  4570
  4571						SDFA	310,200001,0,0,0,223400,0,0,0,223400,0,200000,0^
  4572					S31000:	DMOVE	AC,[200001,,0
  4573	034256	120 04 0 00 041213 			0,,0]
  4574						DFAD	AC,[223400,,0
  4575	034257	110 04 0 00 041256 			0,,0]
  4576	034260	312 04 0 00 041256 		CAME	AC,[223400,,0]
  4577	034261	003 04 0 00 031001 		ER3	AC,31001
  4578	034262	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4579	034263	004 05 0 00 031001 		ER4	AC+1,31001
  4580	034264	321 10 0 00 034256 		JUMPL	AC+4,S31000	;LOOP ON ERROR SWITCH^
  4581
  4582						SDFA	311,200002,0,0,0,224400,0,0,0,224400,0,200000,0^
  4583					S31100:	DMOVE	AC,[200002,,0
  4584	034265	120 04 0 00 041215 			0,,0]
  4585						DFAD	AC,[224400,,0
  4586	034266	110 04 0 00 041260 			0,,0]
  4587	034267	312 04 0 00 041260 		CAME	AC,[224400,,0]
  4588	034270	003 04 0 00 031101 		ER3	AC,31101
  4589	034271	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4590	034272	004 05 0 00 031101 		ER4	AC+1,31101
  4591	034273	321 10 0 00 034265 		JUMPL	AC+4,S31100	;LOOP ON ERROR SWITCH^
  4592
  4593						SDFA	312,200004,0,0,0,225400,0,0,0,225400,0,200000,0^
  4594					S31200:	DMOVE	AC,[200004,,0
  4595	034274	120 04 0 00 041217 			0,,0]
  4596						DFAD	AC,[225400,,0
  4597	034275	110 04 0 00 041262 			0,,0]
  4598	034276	312 04 0 00 041262 		CAME	AC,[225400,,0]
  4599	034277	003 04 0 00 031201 		ER3	AC,31201
  4600	034300	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4601	034301	004 05 0 00 031201 		ER4	AC+1,31201
  4602	034302	321 10 0 00 034274 		JUMPL	AC+4,S31200	;LOOP ON ERROR SWITCH^
  4603
  4604						SDFA	313,200010,0,0,0,226400,0,0,0,226400,0,200000,0^
  4605					S31300:	DMOVE	AC,[200010,,0
  4606	034303	120 04 0 00 041221 			0,,0]
  4607						DFAD	AC,[226400,,0
  4608	034304	110 04 0 00 041264 			0,,0]
  4609	034305	312 04 0 00 041264 		CAME	AC,[226400,,0]
  4610	034306	003 04 0 00 031301 		ER3	AC,31301
  4611	034307	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4612	034310	004 05 0 00 031301 		ER4	AC+1,31301
  4613	034311	321 10 0 00 034303 		JUMPL	AC+4,S31300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10-2
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0109

  4614
  4615						SDFA	314,200020,0,0,0,227400,0,0,0,227400,0,200000,0^
  4616					S31400:	DMOVE	AC,[200020,,0
  4617	034312	120 04 0 00 041140 			0,,0]
  4618						DFAD	AC,[227400,,0
  4619	034313	110 04 0 00 041266 			0,,0]
  4620	034314	312 04 0 00 041266 		CAME	AC,[227400,,0]
  4621	034315	003 04 0 00 031401 		ER3	AC,31401
  4622	034316	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4623	034317	004 05 0 00 031401 		ER4	AC+1,31401
  4624	034320	321 10 0 00 034312 		JUMPL	AC+4,S31400	;LOOP ON ERROR SWITCH^
  4625
  4626						SDFA	315,200040,0,0,0,230400,0,0,0,230400,0,200000,0^
  4627					S31500:	DMOVE	AC,[200040,,0
  4628	034321	120 04 0 00 041136 			0,,0]
  4629						DFAD	AC,[230400,,0
  4630	034322	110 04 0 00 041270 			0,,0]
  4631	034323	312 04 0 00 041270 		CAME	AC,[230400,,0]
  4632	034324	003 04 0 00 031501 		ER3	AC,31501
  4633	034325	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4634	034326	004 05 0 00 031501 		ER4	AC+1,31501
  4635	034327	321 10 0 00 034321 		JUMPL	AC+4,S31500	;LOOP ON ERROR SWITCH^
  4636
  4637						SDFA	316,200100,0,0,0,231400,0,0,0,231400,0,200000,0^
  4638					S31600:	DMOVE	AC,[200100,,0
  4639	034330	120 04 0 00 041134 			0,,0]
  4640						DFAD	AC,[231400,,0
  4641	034331	110 04 0 00 041272 			0,,0]
  4642	034332	312 04 0 00 041272 		CAME	AC,[231400,,0]
  4643	034333	003 04 0 00 031601 		ER3	AC,31601
  4644	034334	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4645	034335	004 05 0 00 031601 		ER4	AC+1,31601
  4646	034336	321 10 0 00 034330 		JUMPL	AC+4,S31600	;LOOP ON ERROR SWITCH^
  4647
  4648						SDFA	317,200200,0,0,0,232400,0,0,0,232400,0,200000,0^
  4649					S31700:	DMOVE	AC,[200200,,0
  4650	034337	120 04 0 00 041274 			0,,0]
  4651						DFAD	AC,[232400,,0
  4652	034340	110 04 0 00 041276 			0,,0]
  4653	034341	312 04 0 00 041276 		CAME	AC,[232400,,0]
  4654	034342	003 04 0 00 031701 		ER3	AC,31701
  4655	034343	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4656	034344	004 05 0 00 031701 		ER4	AC+1,31701
  4657	034345	321 10 0 00 034337 		JUMPL	AC+4,S31700	;LOOP ON ERROR SWITCH^
  4658
  4659						SDFA	320,200400,0,0,0,233400,0,0,0,233400,0,200000,0^
  4660					S32000:	DMOVE	AC,[200400,,0
  4661	034346	120 04 0 00 040731 			0,,0]
  4662						DFAD	AC,[233400,,0
  4663	034347	110 04 0 00 041300 			0,,0]
  4664	034350	312 04 0 00 041300 		CAME	AC,[233400,,0]
  4665	034351	003 04 0 00 032001 		ER3	AC,32001
  4666	034352	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4667	034353	004 05 0 00 032001 		ER4	AC+1,32001
  4668	034354	321 10 0 00 034346 		JUMPL	AC+4,S32000	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10-3
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0110

  4669
  4670						SDFA	321,200400,0,0,0,200400,1,0,0,201400,0,200000,0^
  4671					S32100:	DMOVE	AC,[200400,,0
  4672	034355	120 04 0 00 040731 			0,,0]
  4673						DFAD	AC,[200400,,1
  4674	034356	110 04 0 00 040177 			0,,0]
  4675	034357	312 04 0 00 040057 		CAME	AC,[201400,,0]
  4676	034360	003 04 0 00 032101 		ER3	AC,32101
  4677	034361	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  4678	034362	004 05 0 00 032101 		ER4	AC+1,32101
  4679	034363	321 10 0 00 034355 		JUMPL	AC+4,S32100	;LOOP ON ERROR SWITCH^
  4680
  4681						SDFA	322,200400,0,0,0,201400,0,0,0,201600,0,0,0^
  4682					S32200:	DMOVE	AC,[200400,,0
  4683	034364	120 04 0 00 040731 			0,,0]
  4684						DFAD	AC,[201400,,0
  4685	034365	110 04 0 00 040057 			0,,0]
  4686	034366	312 04 0 00 040743 		CAME	AC,[201600,,0]
  4687	034367	003 04 0 00 032201 		ER3	AC,32201
  4688	034370	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4689	034371	004 05 0 00 032201 		ER4	AC+1,32201
  4690	034372	321 10 0 00 034364 		JUMPL	AC+4,S32200	;LOOP ON ERROR SWITCH^
  4691
  4692						SDFA	323,200000,3,0,0,202400,0,0,0,202400,0,300000,0^
  4693					S32300:	DMOVE	AC,[200000,,3
  4694	034373	120 04 0 00 041302 			0,,0]
  4695						DFAD	AC,[202400,,0
  4696	034374	110 04 0 00 040744 			0,,0]
  4697	034375	312 04 0 00 040744 		CAME	AC,[202400,,0]
  4698	034376	003 04 0 00 032301 		ER3	AC,32301
  4699	034377	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  4700	034400	004 05 0 00 032301 		ER4	AC+1,32301
  4701	034401	321 10 0 00 034373 		JUMPL	AC+4,S32300	;LOOP ON ERROR SWITCH^
  4702
  4703						SDFA	324,200000,5,0,0,203400,0,0,0,203400,0,240000,0^
  4704					S32400:	DMOVE	AC,[200000,,5
  4705	034402	120 04 0 00 041304 			0,,0]
  4706						DFAD	AC,[203400,,0
  4707	034403	110 04 0 00 041230 			0,,0]
  4708	034404	312 04 0 00 041133 		CAME	AC,[203400,,0]
  4709	034405	003 04 0 00 032401 		ER3	AC,32401
  4710	034406	312 05 0 00 041006 		CAME	AC+1,[240000,,0]
  4711	034407	004 05 0 00 032401 		ER4	AC+1,32401
  4712	034410	321 10 0 00 034402 		JUMPL	AC+4,S32400	;LOOP ON ERROR SWITCH^
  4713
  4714						SDFA	325,200000,11,0,0,204400,0,0,0,204400,0,220000,0^
  4715					S32500:	DMOVE	AC,[200000,,11
  4716	034411	120 04 0 00 041306 			0,,0]
  4717						DFAD	AC,[204400,,0
  4718	034412	110 04 0 00 040747 			0,,0]
  4719	034413	312 04 0 00 040747 		CAME	AC,[204400,,0]
  4720	034414	003 04 0 00 032501 		ER3	AC,32501
  4721	034415	312 05 0 00 041002 		CAME	AC+1,[220000,,0]
  4722	034416	004 05 0 00 032501 		ER4	AC+1,32501
  4723	034417	321 10 0 00 034411 		JUMPL	AC+4,S32500	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10-4
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0111

  4724
  4725						SDFA	326,200000,21,0,0,205400,0,0,0,205400,0,210000,0^
  4726					S32600:	DMOVE	AC,[200000,,21
  4727	034420	120 04 0 00 041310 			0,,0]
  4728						DFAD	AC,[205400,,0
  4729	034421	110 04 0 00 040733 			0,,0]
  4730	034422	312 04 0 00 040733 		CAME	AC,[205400,,0]
  4731	034423	003 04 0 00 032601 		ER3	AC,32601
  4732	034424	312 05 0 00 040776 		CAME	AC+1,[210000,,0]
  4733	034425	004 05 0 00 032601 		ER4	AC+1,32601
  4734	034426	321 10 0 00 034420 		JUMPL	AC+4,S32600	;LOOP ON ERROR SWITCH^
  4735
  4736						SDFA	327,200000,41,0,0,206400,0,0,0,206400,0,204000,0^
  4737					S32700:	DMOVE	AC,[200000,,41
  4738	034427	120 04 0 00 041312 			0,,0]
  4739						DFAD	AC,[206400,,0
  4740	034430	110 04 0 00 041043 			0,,0]
  4741	034431	312 04 0 00 041043 		CAME	AC,[206400,,0]
  4742	034432	003 04 0 00 032701 		ER3	AC,32701
  4743	034433	312 05 0 00 040772 		CAME	AC+1,[204000,,0]
  4744	034434	004 05 0 00 032701 		ER4	AC+1,32701
  4745	034435	321 10 0 00 034427 		JUMPL	AC+4,S32700	;LOOP ON ERROR SWITCH^
  4746
  4747						SDFA	330,200000,101,0,0,207400,0,0,0,207400,0,202000,0^
  4748					S33000:	DMOVE	AC,[200000,,101
  4749	034436	120 04 0 00 041314 			0,,0]
  4750						DFAD	AC,[207400,,0
  4751	034437	110 04 0 00 041232 			0,,0]
  4752	034440	312 04 0 00 041232 		CAME	AC,[207400,,0]
  4753	034441	003 04 0 00 033001 		ER3	AC,33001
  4754	034442	312 05 0 00 040770 		CAME	AC+1,[202000,,0]
  4755	034443	004 05 0 00 033001 		ER4	AC+1,33001
  4756	034444	321 10 0 00 034436 		JUMPL	AC+4,S33000	;LOOP ON ERROR SWITCH^
  4757
  4758						SDFA	331,200000,201,0,0,210400,0,0,0,210400,0,201000,0^
  4759					S33100:	DMOVE	AC,[200000,,201
  4760	034445	120 04 0 00 041316 			0,,0]
  4761						DFAD	AC,[210400,,0
  4762	034446	110 04 0 00 040752 			0,,0]
  4763	034447	312 04 0 00 040752 		CAME	AC,[210400,,0]
  4764	034450	003 04 0 00 033101 		ER3	AC,33101
  4765	034451	312 05 0 00 040766 		CAME	AC+1,[201000,,0]
  4766	034452	004 05 0 00 033101 		ER4	AC+1,33101
  4767	034453	321 10 0 00 034445 		JUMPL	AC+4,S33100	;LOOP ON ERROR SWITCH^
  4768
  4769						SDFA	332,200000,401,0,0,211400,0,0,0,211400,0,200400,0^
  4770					S33200:	DMOVE	AC,[200000,,401
  4771	034454	120 04 0 00 041320 			0,,0]
  4772						DFAD	AC,[211400,,0
  4773	034455	110 04 0 00 041234 			0,,0]
  4774	034456	312 04 0 00 041234 		CAME	AC,[211400,,0]
  4775	034457	003 04 0 00 033201 		ER3	AC,33201
  4776	034460	312 05 0 00 040063 		CAME	AC+1,[200400,,0]
  4777	034461	004 05 0 00 033201 		ER4	AC+1,33201
  4778	034462	321 10 0 00 034454 		JUMPL	AC+4,S33200	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 10-5
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0112

  4779
  4780						SDFA	333,200000,1001,0,0,212400,0,0,0,212400,0,200200,0^
  4781					S33300:	DMOVE	AC,[200000,,1001
  4782	034463	120 04 0 00 041322 			0,,0]
  4783						DFAD	AC,[212400,,0
  4784	034464	110 04 0 00 041236 			0,,0]
  4785	034465	312 04 0 00 041236 		CAME	AC,[212400,,0]
  4786	034466	003 04 0 00 033301 		ER3	AC,33301
  4787	034467	312 05 0 00 041274 		CAME	AC+1,[200200,,0]
  4788	034470	004 05 0 00 033301 		ER4	AC+1,33301
  4789	034471	321 10 0 00 034463 		JUMPL	AC+4,S33300	;LOOP ON ERROR SWITCH^
  4790
  4791						SDFA	334,200000,2001,0,0,213400,0,0,0,213400,0,200100,0^
  4792					S33400:	DMOVE	AC,[200000,,2001
  4793	034472	120 04 0 00 041324 			0,,0]
  4794						DFAD	AC,[213400,,0
  4795	034473	110 04 0 00 041240 			0,,0]
  4796	034474	312 04 0 00 041240 		CAME	AC,[213400,,0]
  4797	034475	003 04 0 00 033401 		ER3	AC,33401
  4798	034476	312 05 0 00 041134 		CAME	AC+1,[200100,,0]
  4799	034477	004 05 0 00 033401 		ER4	AC+1,33401
  4800	034500	321 10 0 00 034472 		JUMPL	AC+4,S33400	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 11
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0113

  4801
  4802						SDFA	335,200000,4001,0,0,214400,0,0,0,214400,0,200040,0^
  4803					S33500:	DMOVE	AC,[200000,,4001
  4804	034501	120 04 0 00 041326 			0,,0]
  4805						DFAD	AC,[214400,,0
  4806	034502	110 04 0 00 041242 			0,,0]
  4807	034503	312 04 0 00 041242 		CAME	AC,[214400,,0]
  4808	034504	003 04 0 00 033501 		ER3	AC,33501
  4809	034505	312 05 0 00 041136 		CAME	AC+1,[200040,,0]
  4810	034506	004 05 0 00 033501 		ER4	AC+1,33501
  4811	034507	321 10 0 00 034501 		JUMPL	AC+4,S33500	;LOOP ON ERROR SWITCH^
  4812
  4813						SDFA	336,200000,10001,0,0,215400,0,0,0,215400,0,200020,0^
  4814					S33600:	DMOVE	AC,[200000,,10001
  4815	034510	120 04 0 00 041330 			0,,0]
  4816						DFAD	AC,[215400,,0
  4817	034511	110 04 0 00 041244 			0,,0]
  4818	034512	312 04 0 00 041244 		CAME	AC,[215400,,0]
  4819	034513	003 04 0 00 033601 		ER3	AC,33601
  4820	034514	312 05 0 00 041140 		CAME	AC+1,[200020,,0]
  4821	034515	004 05 0 00 033601 		ER4	AC+1,33601
  4822	034516	321 10 0 00 034510 		JUMPL	AC+4,S33600	;LOOP ON ERROR SWITCH^
  4823
  4824						SDFA	337,200000,20001,0,0,216400,0,0,0,216400,0,200010,0^
  4825					S33700:	DMOVE	AC,[200000,,20001
  4826	034517	120 04 0 00 041332 			0,,0]
  4827						DFAD	AC,[216400,,0
  4828	034520	110 04 0 00 041246 			0,,0]
  4829	034521	312 04 0 00 041246 		CAME	AC,[216400,,0]
  4830	034522	003 04 0 00 033701 		ER3	AC,33701
  4831	034523	312 05 0 00 041221 		CAME	AC+1,[200010,,0]
  4832	034524	004 05 0 00 033701 		ER4	AC+1,33701
  4833	034525	321 10 0 00 034517 		JUMPL	AC+4,S33700	;LOOP ON ERROR SWITCH^
  4834
  4835						SDFA	340,200000,40001,0,0,217400,0,0,0,217400,0,200004,0^
  4836					S34000:	DMOVE	AC,[200000,,40001
  4837	034526	120 04 0 00 041334 			0,,0]
  4838						DFAD	AC,[217400,,0
  4839	034527	110 04 0 00 041250 			0,,0]
  4840	034530	312 04 0 00 041250 		CAME	AC,[217400,,0]
  4841	034531	003 04 0 00 034001 		ER3	AC,34001
  4842	034532	312 05 0 00 041217 		CAME	AC+1,[200004,,0]
  4843	034533	004 05 0 00 034001 		ER4	AC+1,34001
  4844	034534	321 10 0 00 034526 		JUMPL	AC+4,S34000	;LOOP ON ERROR SWITCH^
  4845
  4846						SDFA	341,200000,100001,0,0,220400,0,0,0,220400,0,200002,0^
  4847					S34100:	DMOVE	AC,[200000,,100001
  4848	034535	120 04 0 00 041336 			0,,0]
  4849						DFAD	AC,[220400,,0
  4850	034536	110 04 0 00 040755 			0,,0]
  4851	034537	312 04 0 00 040755 		CAME	AC,[220400,,0]
  4852	034540	003 04 0 00 034101 		ER3	AC,34101
  4853	034541	312 05 0 00 041215 		CAME	AC+1,[200002,,0]
  4854	034542	004 05 0 00 034101 		ER4	AC+1,34101
  4855	034543	321 10 0 00 034535 		JUMPL	AC+4,S34100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 11-1
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0114

  4856
  4857						SDFA	342,200000,200001,0,0,221400,0,0,0,221400,0,200001,0^
  4858					S34200:	DMOVE	AC,[200000,,200001
  4859	034544	120 04 0 00 041340 			0,,0]
  4860						DFAD	AC,[221400,,0
  4861	034545	110 04 0 00 041252 			0,,0]
  4862	034546	312 04 0 00 041252 		CAME	AC,[221400,,0]
  4863	034547	003 04 0 00 034201 		ER3	AC,34201
  4864	034550	312 05 0 00 041213 		CAME	AC+1,[200001,,0]
  4865	034551	004 05 0 00 034201 		ER4	AC+1,34201
  4866	034552	321 10 0 00 034544 		JUMPL	AC+4,S34200	;LOOP ON ERROR SWITCH^
  4867
  4868						SDFA	343,200000,400001,0,0,222400,0,0,0,222400,0,200000,400000^
  4869					S34300:	DMOVE	AC,[200000,,400001
  4870	034553	120 04 0 00 041342 			0,,0]
  4871						DFAD	AC,[222400,,0
  4872	034554	110 04 0 00 041254 			0,,0]
  4873	034555	312 04 0 00 041254 		CAME	AC,[222400,,0]
  4874	034556	003 04 0 00 034301 		ER3	AC,34301
  4875	034557	312 05 0 00 041211 		CAME	AC+1,[200000,,400000]
  4876	034560	004 05 0 00 034301 		ER4	AC+1,34301
  4877	034561	321 10 0 00 034553 		JUMPL	AC+4,S34300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 12
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0115

  4878					;TEST AROV, FOV AND FXU FLAGS - DFAD
  4879
  4880			000004			AC=4
  4881						SAVEAC	(1,1)^
  4882	034562	201 06 0 00 034562 		MOVEI	AC+2,.
  4883	034563	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  4884	034564	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4885	034565	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4886
  4887	034566	254 02 1 00 041344 	S34400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4888						DMOVE	AC,[377400,,0
  4889	034567	120 04 0 00 041026 			    0,,0]
  4890						DFAD	AC,[376777,,-1
  4891	034570	110 04 0 00 041345 			    -1,,-2]	;EXPECT AROV, FOV, FXU=0,0,0
  4892	034571	265 03 0 00 034572 		JSP	AC-1,.+1	;SAVE FLAGS
  4893	034572	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  4894	034573	003 04 0 00 034401 		ER3	AC,34401	;C(AC) FAILED
  4895	034574	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  4896	034575	004 05 0 00 034401 		ER4	AC+1,34401	;C(AC+1) FAILED
  4897	034576	255 10 0 00 034600 		JOV	.+2
  4898	034577	254 00 0 00 034601 		JRST	.+2
  4899	034600	013 03 0 00 034401 		ER13	AC-1,34401	;AROV WAS SET
  4900	034601	255 01 0 00 034603 		JFOV	.+2
  4901	034602	254 00 0 00 034604 		JRST	.+2
  4902	034603	013 03 0 00 034401 		ER13	AC-1,34401	;FOV WAS SET
  4903	034604	603 03 0 00 000100 		TLNE	AC-1,FXU
  4904	034605	013 03 0 00 034401 		ER13	AC-1,34401	;FXU WAS SET
  4905	034606	321 10 0 00 034566 		JUMPL	AC+4,S34400	;LOOP ON ERROR SWITCH
  4906
  4907	034607	254 02 1 00 041347 	S34500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4908						DMOVE	AC,[377400,,0
  4909	034610	120 04 0 00 041026 			    0,,0]
  4910						DFAD	AC,[377400,,0
  4911	034611	110 04 0 00 041026 			    0,,0]	;EXPECT AROV, FOV, FXU=1,1,0
  4912	034612	265 03 0 00 034613 		JSP	AC-1,.+1	;SAVE FLAGS
  4913	034613	312 04 0 00 040233 		CAME	AC,[400,,0]
  4914	034614	003 04 0 00 034501 		ER3	AC,34501	;C(AC) FAILED
  4915	034615	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4916	034616	004 05 0 00 034501 		ER4	AC+1,34501	;C(AC+1) FAILED
  4917	034617	255 10 0 00 034621 		JOV	.+2
  4918	034620	013 03 0 00 034501 		ER13	AC-1,34501	;AROV WAS CLEAR
  4919	034621	255 01 0 00 034623 		JFOV	.+2
  4920	034622	013 03 0 00 034501 		ER13	AC-1,34501	;FOV WAS CLEAR
  4921	034623	603 03 0 00 000100 		TLNE	AC-1,FXU
  4922	034624	013 03 0 00 034501 		ER13	AC-1,34501	;FXU WAS SET
  4923	034625	321 10 0 00 034607 		JUMPL	AC+4,S34500	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 13
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0116

  4924	034626	254 02 1 00 041350 	S34600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4925						DMOVE	AC,[200,,0
  4926	034627	120 04 0 00 041351 			    0,,0]
  4927						DFAD	AC,[200,,0
  4928	034630	110 04 0 00 041351 			    0,,0]	;EXPECT AROV, FOV, FXU=0,0,0
  4929	034631	265 03 0 00 034632 		JSP	AC-1,.+1	;SAVE FLAGS
  4930	034632	312 04 0 00 040233 		CAME	AC,[400,,0]
  4931	034633	003 04 0 00 034601 		ER3	AC,34601	;C(AC) FAILED
  4932	034634	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4933	034635	004 05 0 00 034601 		ER4	AC+1,34601	;C(AC+1) FAILED
  4934	034636	255 10 0 00 034640 		JOV	.+2
  4935	034637	254 00 0 00 034641 		JRST	.+2
  4936	034640	013 03 0 00 034601 		ER13	AC-1,34601	;AROV WAS SET
  4937	034641	255 01 0 00 034643 		JFOV	.+2
  4938	034642	254 00 0 00 034644 		JRST	.+2
  4939	034643	013 03 0 00 034601 		ER13	AC-1,34601	;FOV WAS SET
  4940	034644	603 03 0 00 000100 		TLNE	AC-1,FXU
  4941	034645	013 03 0 00 034601 		ER13	AC-1,34601	;FXU WAS SET
  4942	034646	321 10 0 00 034626 		JUMPL	AC+4,S34600	;LOOP ON ERROR SWITCH
  4943
  4944	034647	254 02 1 00 041353 	S34700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4945						DMOVE	AC,[200,,0
  4946	034650	120 04 0 00 041351 			    0,,0]
  4947						DFAD	AC,[177,,-1
  4948	034651	110 04 0 00 041354 			    -1,,-1]	;EXPECT AROV,FOV,FXU=1,1,1
  4949	034652	265 03 0 00 034653 		JSP	AC-1,.+1	;SAVE FLAGS
  4950	034653	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  4951	034654	003 04 0 00 034701 		ER3	AC,34701	;C(AC) FAILED
  4952	034655	312 05 0 00 040363 		CAME	AC+1,[377777,,-2]
  4953	034656	004 05 0 00 034701 		ER4	AC+1,34701	;C(AC+1) FAILED
  4954	034657	255 10 0 00 034661 		JOV	.+2
  4955	034660	013 03 0 00 034701 		ER13	AC-1,34701	;AROV WAS CLEAR
  4956	034661	255 01 0 00 034663 		JFOV	.+2
  4957	034662	013 03 0 00 034701 		ER13	AC-1,34701	;FOV WAS CLEAR
  4958	034663	607 03 0 00 000100 		TLNN	AC-1,FXU
  4959	034664	013 03 0 00 034701 		ER13	AC-1,34701	;FXU WAS CLEAR
  4960	034665	321 10 0 00 034647 		JUMPL	AC+4,S34700	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 14
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0117

  4961	034666	254 02 1 00 041356 	S35000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4962						DMOVE	AC,[400400,,0
  4963	034667	120 04 0 00 041357 			    0,,0]
  4964						DFAD	AC,[401000,,0
  4965	034670	110 04 0 00 041361 			    0,,2]	;EXPECT AROV, FOV, FXU = 0,0,0
  4966	034671	265 03 0 00 034672 		JSP	AC-1,.+1	;SAVE FLAGS
  4967	034672	312 04 0 00 041363 		CAME	AC,[400000,,0]
  4968	034673	003 04 0 00 035001 		ER3	AC,35001	;C(AC) FAILED
  4969	034674	312 05 0 00 040351 		CAME	AC+1,[0,,1]
  4970	034675	004 05 0 00 035001 		ER4	AC+1,35001	;C(AC+1) FAILED
  4971	034676	255 10 0 00 034700 		JOV	.+2
  4972	034677	254 00 0 00 034701 		JRST	.+2
  4973	034700	013 03 0 00 035001 		ER13	AC-1,35001	;AROV WAS SET
  4974	034701	255 01 0 00 034703 		JFOV	.+2
  4975	034702	254 00 0 00 034704 		JRST	.+2
  4976	034703	013 03 0 00 035001 		ER13	AC-1,35001	;FOV WAS SET
  4977	034704	603 03 0 00 000100 		TLNE	AC-1,FXU
  4978	034705	013 03 0 00 035001 		ER13	AC-1,35001	;FXU WAS SET
  4979	034706	321 10 0 00 034666 		JUMPL	AC+4,S35000	;LOOP ON ERROR SWITCH
  4980
  4981	034707	254 02 1 00 041364 	S35100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4982						DMOVE	AC,[400400,,0
  4983	034710	120 04 0 00 041357 			    0,,0]
  4984						DFAD	AC,[400400,,0
  4985	034711	110 04 0 00 041357 			    0,,0]	;EXPECT AROV, FOV, FXU=1,1,0
  4986	034712	265 03 0 00 034713 		JSP	AC-1,.+1	;SAVE FLAGS
  4987	034713	312 04 0 00 041365 		CAME	AC,[777400,,0]
  4988	034714	003 04 0 00 035101 		ER3	AC,35101	;C(AC) FAILED
  4989	034715	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  4990	034716	004 05 0 00 035101 		ER4	AC+1,35101	;C(AC+1) FAILED
  4991	034717	255 10 0 00 034721 		JOV	.+2
  4992	034720	013 03 0 00 035101 		ER13	AC-1,35101	;AROV WAS CLEAR
  4993	034721	255 01 0 00 034723 		JFOV	.+2
  4994	034722	013 03 0 00 035101 		ER13	AC-1,35101	;FOV WAS CLEAR
  4995	034723	603 03 0 00 000100 		TLNE	AC-1,FXU
  4996	034724	013 03 0 00 035101 		ER13	AC-1,35101	;FXU WAS SET
  4997	034725	321 10 0 00 034707 		JUMPL	AC+4,S35100	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 15
DSKCE1	MAC	21-Jun-78 10:46		DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND                                      SEQ 0118

  4998	034726	254 02 1 00 041366 	S35200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  4999						DMOVE	AC,[777600,,0
  5000	034727	120 04 0 00 041367 			    0,,0]
  5001						DFAD	AC,[777600,,0
  5002	034730	110 04 0 00 041367 			    0,,0]	;EXPECT AROV,FOV,FXV=0,0,0
  5003	034731	265 03 0 00 034732 		JSP	AC-1,.+1	;SAVE FLAGS
  5004	034732	312 04 0 00 041365 		CAME	AC,[777400,,0]
  5005	034733	003 04 0 00 035201 		ER3	AC,35201	;C(AC) FAILED
  5006	034734	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5007	034735	004 05 0 00 035201 		ER4	AC+1,35201	;C(AC+1) FAILED
  5008	034736	255 10 0 00 034740 		JOV	.+2
  5009	034737	254 00 0 00 034741 		JRST	.+2
  5010	034740	013 03 0 00 035201 		ER13	AC-1,35201	;AROV WAS SET
  5011	034741	255 01 0 00 034743 		JFOV	.+2
  5012	034742	254 00 0 00 034744 		JRST	.+2
  5013	034743	013 03 0 00 035201 		ER13	AC-1,35201	;FOV WAS SET
  5014	034744	603 03 0 00 000100 		TLNE	AC-1,FXU
  5015	034745	013 03 0 00 035201 		ER13	AC-1,35201	;FXU WAS SET
  5016	034746	321 10 0 00 034726 		JUMPL	AC+4,S35200	;LOOP ON ERROR SWITCH
  5017
  5018	034747	254 02 1 00 041371 	S35300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5019						DMOVE	AC,[777600,,0
  5020	034750	120 04 0 00 041367 			    0,,0]
  5021						DFAD	AC,[777600,,0
  5022	034751	110 04 0 00 041372 			    0,,1]	;EXPECT AROV,FOV,FXU=1,1,1
  5023	034752	265 03 0 00 034753 		JSP	AC-1,.+1	;SAVE FLAGS
  5024	034753	312 04 0 00 041363 		CAME	AC,[400000,,0]
  5025	034754	003 04 0 00 035301 		ER3	AC,35301	;C(AC) FAILED
  5026	034755	312 05 0 00 040346 		CAME	AC+1,[0,,2]
  5027	034756	004 05 0 00 035301 		ER4	AC+1,35301	;C(AC+1) FAILED
  5028	034757	255 10 0 00 034761 		JOV	.+2
  5029	034760	013 03 0 00 035301 		ER13	AC-1,35301	;AROV WAS CLEAR
  5030	034761	255 01 0 00 034763 		JFOV	.+2
  5031	034762	013 03 0 00 035301 		ER13	AC-1,35301	;FOV WAS CLEAR
  5032	034763	607 03 0 00 000100 		TLNN	AC-1,FXU
  5033	034764	013 03 0 00 035301 		ER13	AC-1,35301	;FXU WAS CLEAR
  5034	034765	321 10 0 00 034747 		JUMPL	AC+4,S35300	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 16
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0119

  5035					SUBTTL	DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND
  5036
  5037			000004			AC=4
  5038						SAVEAC	(1,1)^
  5039	034766	201 06 0 00 034766 		MOVEI	AC+2,.
  5040	034767	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5041	034770	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5042	034771	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5043	034772	254 02 1 00 041374 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5044
  5045					;CHECK THAT DFSB AC,E DOES NOT ALTER C(E) OR C(E+1)
  5046					S40100:	DMOVE	AC,[200777,,-1
  5047	034773	120 04 0 00 040710 			-1,,-1]
  5048						DMOVE	AC+2,[200000,,0
  5049	034774	120 06 0 00 040712 			400000,,-1]
  5050	034775	111 04 0 00 000006 		DFSB	AC,AC+2
  5051	034776	312 06 0 00 040203 		CAME	AC+2,[200000,,0]
  5052	034777	005 06 0 00 040101 		ER5	AC+2,40101	;C(E) WAS ALTERED
  5053	035000	312 07 0 00 040713 		CAME	AC+3,[400000,,-1]
  5054	035001	006 07 0 00 040101 		ER6	AC+3,40101	;C(E+1) WAS ALTERED
  5055	035002	321 10 0 00 034773 		JUMPL	AC+4,S40100	;LOOP ON ERROR SWITCH
  5056
  5057						SDFS	402,205400,0,0,0,177400,0,0,0,204770,0,0,0^
  5058					S40200:	DMOVE	AC,[205400,,0
  5059	035003	120 04 0 00 040733 			0,,0]
  5060						DFSB	AC,[177400,,0
  5061	035004	111 04 0 00 040727 			0,,0]
  5062	035005	312 04 0 00 041375 		CAME	AC,[204770,,0]
  5063	035006	003 04 0 00 040201 		ER3	AC,40201
  5064	035007	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5065	035010	004 05 0 00 040201 		ER4	AC+1,40201
  5066	035011	321 10 0 00 035003 		JUMPL	AC+4,S40200	;LOOP ON ERROR SWITCH^
  5067
  5068						SDFS	403,200400,0,0,0,177400,0,0,0,177400,0,0,0^
  5069					S40300:	DMOVE	AC,[200400,,0
  5070	035012	120 04 0 00 040731 			0,,0]
  5071						DFSB	AC,[177400,,0
  5072	035013	111 04 0 00 040727 			0,,0]
  5073	035014	312 04 0 00 040066 		CAME	AC,[177400,,0]
  5074	035015	003 04 0 00 040301 		ER3	AC,40301
  5075	035016	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5076	035017	004 05 0 00 040301 		ER4	AC+1,40301
  5077	035020	321 10 0 00 035012 		JUMPL	AC+4,S40300	;LOOP ON ERROR SWITCH^
  5078
  5079						SDFS	404,200400,0,0,0,200400,0,0,0,0,0,0,0^
  5080					S40400:	DMOVE	AC,[200400,,0
  5081	035021	120 04 0 00 040731 			0,,0]
  5082						DFSB	AC,[200400,,0
  5083	035022	111 04 0 00 040731 			0,,0]
  5084	035023	312 04 0 00 040060 		CAME	AC,[0,,0]
  5085	035024	003 04 0 00 040401 		ER3	AC,40401
  5086	035025	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5087	035026	004 05 0 00 040401 		ER4	AC+1,40401
  5088	035027	321 10 0 00 035021 		JUMPL	AC+4,S40400	;LOOP ON ERROR SWITCH^
  5089
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 16-1
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0120

  5090						SDFS	405,201400,0,0,0,177400,0,0,0,200600,0,0,0^
  5091					S40500:	DMOVE	AC,[201400,,0
  5092	035030	120 04 0 00 040057 			0,,0]
  5093						DFSB	AC,[177400,,0
  5094	035031	111 04 0 00 040727 			0,,0]
  5095	035032	312 04 0 00 040064 		CAME	AC,[200600,,0]
  5096	035033	003 04 0 00 040501 		ER3	AC,40501
  5097	035034	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5098	035035	004 05 0 00 040501 		ER4	AC+1,40501
  5099	035036	321 10 0 00 035030 		JUMPL	AC+4,S40500	;LOOP ON ERROR SWITCH^
  5100
  5101						SDFS	406,576400,0,0,0,600400,0,0,0,577200,0,0,0^
  5102					S40600:	DMOVE	AC,[576400,,0
  5103	035037	120 04 0 00 041036 			0,,0]
  5104						DFSB	AC,[600400,,0
  5105	035040	111 04 0 00 040725 			0,,0]
  5106	035041	312 04 0 00 041034 		CAME	AC,[577200,,0]
  5107	035042	003 04 0 00 040601 		ER3	AC,40601
  5108	035043	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5109	035044	004 05 0 00 040601 		ER4	AC+1,40601
  5110	035045	321 10 0 00 035037 		JUMPL	AC+4,S40600	;LOOP ON ERROR SWITCH^
  5111
  5112						SDFS	407,201400,0,0,0,577400,0,0,0,201600,0,0,0^
  5113					S40700:	DMOVE	AC,[201400,,0
  5114	035046	120 04 0 00 040057 			0,,0]
  5115						DFSB	AC,[577400,,0
  5116	035047	111 04 0 00 040061 			0,,0]
  5117	035050	312 04 0 00 040743 		CAME	AC,[201600,,0]
  5118	035051	003 04 0 00 040701 		ER3	AC,40701
  5119	035052	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5120	035053	004 05 0 00 040701 		ER4	AC+1,40701
  5121	035054	321 10 0 00 035046 		JUMPL	AC+4,S40700	;LOOP ON ERROR SWITCH^
  5122
  5123						SDFS	410,203400,0,0,0,200477,777775,0,0,202660,0,300000,0^
  5124					S41000:	DMOVE	AC,[203400,,0
  5125	035055	120 04 0 00 041230 			0,,0]
  5126						DFSB	AC,[200477,,777775
  5127	035056	111 04 0 00 041376 			0,,0]
  5128	035057	312 04 0 00 041400 		CAME	AC,[202660,,0]
  5129	035060	003 04 0 00 041001 		ER3	AC,41001
  5130	035061	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  5131	035062	004 05 0 00 041001 		ER4	AC+1,41001
  5132	035063	321 10 0 00 035055 		JUMPL	AC+4,S41000	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 17
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0121

  5133					;TEST AROV, FOV AND FXU FLAGS - DFSB
  5134
  5135			000004			AC=4
  5136						SAVEAC	(1,1)^
  5137	035064	201 06 0 00 035064 		MOVEI	AC+2,.
  5138	035065	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5139	035066	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5140	035067	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5141
  5142	035070	254 02 1 00 041401 	S41100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5143						DMOVE	AC,[377400,,0
  5144	035071	120 04 0 00 041026 			    0,,0]
  5145						DFSB	AC,[400400,,0
  5146	035072	111 04 0 00 041402 			    0,,1]	;EXPECT AROV,FOV,FXU=0,0,0
  5147	035073	265 03 0 00 035074 		JSP	AC-1,.+1	;SAVE FLAGS
  5148	035074	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  5149	035075	003 04 0 00 041101 		ER3	AC,41101	;C(AC) FAILED
  5150	035076	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  5151	035077	004 05 0 00 041101 		ER4	AC+1,41101	;C(AC+1) FAILED
  5152	035100	255 10 0 00 035102 		JOV	.+2
  5153	035101	254 00 0 00 035103 		JRST	.+2
  5154	035102	013 03 0 00 041101 		ER13	AC-1,41101	;AROV WAS SET
  5155	035103	255 01 0 00 035105 		JFOV	.+2
  5156	035104	254 00 0 00 035106 		JRST	.+2
  5157	035105	013 03 0 00 041101 		ER13	AC-1,41101	;FOV WAS SET
  5158	035106	603 03 0 00 000100 		TLNE	AC-1,FXU
  5159	035107	013 03 0 00 041101 		ER13	AC-1,41101	;FXU WAS SET
  5160	035110	321 10 0 00 035070 		JUMPL	AC+4,S41100	;LOOP ON ERROR SWITCH
  5161
  5162	035111	254 02 1 00 041404 	S41200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5163						DMOVE	AC,[377400,,0
  5164	035112	120 04 0 00 041026 			    0,,0]
  5165						DFSB	AC,[400400,,0
  5166	035113	111 04 0 00 041357 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  5167	035114	265 03 0 00 035115 		JSP	AC-1,.+1	;SAVE FLAGS
  5168	035115	312 04 0 00 040233 		CAME	AC,[400,,0]
  5169	035116	003 04 0 00 041201 		ER3	AC,41201	;C(AC) FAILED
  5170	035117	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5171	035120	004 05 0 00 041201 		ER4	AC+1,41201	;C(AC+1)FAILED
  5172	035121	255 10 0 00 035123 		JOV	.+2
  5173	035122	013 03 0 00 041201 		ER13	AC-1,41201	;AROV WAS CLEAR
  5174	035123	255 01 0 00 035125 		JFOV	.+2
  5175	035124	013 03 0 00 041201 		ER13	AC-1,41201	;FOV WAS CLEAR
  5176	035125	603 03 0 00 000100 		TLNE	AC-1,FXU
  5177	035126	013 03 0 00 041201 		ER13	AC-1,41201	;FXU WAS SET
  5178	035127	321 10 0 00 035111 		JUMPL	AC+4,S41200	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 18
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0122

  5179	035130	254 02 1 00 041405 	S41300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5180						DMOVE	AC,[777,,-1
  5181	035131	120 04 0 00 041406 			    -1,,-1]
  5182						DFSB	AC,[377,,-1
  5183	035132	111 04 0 00 041410 			    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
  5184	035133	265 03 0 00 035134 		JSP	AC-1,.+1	;SAVE FLAGS
  5185	035134	312 04 0 00 040233 		CAME	AC,[400,,0]
  5186	035135	003 04 0 00 041301 		ER3	AC,41301	;C(AC) FAILED
  5187	035136	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5188	035137	004 05 0 00 041301 		ER4	AC+1,41301	;C(AC+1) FAILED
  5189	035140	255 10 0 00 035142 		JOV	.+2
  5190	035141	254 00 0 00 035143 		JRST	.+2
  5191	035142	013 03 0 00 041301 		ER13	AC-1,41301	;AROV WAS SET
  5192	035143	255 01 0 00 035145 		JFOV	.+2
  5193	035144	254 00 0 00 035146 		JRST	.+2
  5194	035145	013 03 0 00 041301 		ER13	AC-1,41301	;FOV WAS SET
  5195	035146	603 03 0 00 000100 		TLNE	AC-1,FXU
  5196	035147	013 03 0 00 041301 		ER13	AC-1,41301	;FXU WAS SET
  5197	035150	321 10 0 00 035130 		JUMPL	AC+4,S41300	;LOOP ON ERROR SWITCH
  5198
  5199	035151	254 02 1 00 041412 	S41400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5200						DMOVE	AC,[777,,-1
  5201	035152	120 04 0 00 041406 			    -1,,-1]
  5202						DFSB	AC,[400,,0
  5203	035153	111 04 0 00 040716 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  5204	035154	265 03 0 00 035155 		JSP	AC-1,.+1	;SAVE FLAGS
  5205	035155	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  5206	035156	003 04 0 00 041401 		ER3	AC,41401	;C(AC) FAILED
  5207	035157	312 05 0 00 040363 		CAME	AC+1,[377777,,-2]
  5208	035160	004 05 0 00 041401 		ER4	AC+1,41401	;C(AC+1) FAILED
  5209	035161	255 10 0 00 035163 		JOV	.+2
  5210	035162	013 03 0 00 041401 		ER13	AC-1,41401	;AROV WAS CLEAR
  5211	035163	255 01 0 00 035165 		JFOV	.+2
  5212	035164	013 03 0 00 041401 		ER13	AC-1,41401	;FOV WAS CLEAR
  5213	035165	607 03 0 00 000100 		TLNN	AC-1,FXU
  5214	035166	013 03 0 00 041401 		ER13	AC-1,41401	;FXU WAS CLEAR
  5215	035167	321 10 0 00 035151 		JUMPL	AC+4,S41400	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 19
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0123

  5216	035170	254 02 1 00 041413 	S41500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5217						DMOVE	AC,[400400,,0
  5218	035171	120 04 0 00 041357 			    0,,0]
  5219						DFSB	AC,[377377,,-1
  5220	035172	111 04 0 00 041414 			    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
  5221	035173	265 03 0 00 035174 		JSP	AC-1,.+1	;SAVE FLAGS
  5222	035174	312 04 0 00 041363 		CAME	AC,[400000,,0]
  5223	035175	003 04 0 00 041501 		ER3	AC,41501	;C(AC) FAILED
  5224	035176	312 05 0 00 040351 		CAME	AC+1,[0,,1]
  5225	035177	004 05 0 00 041501 		ER4	AC+1,41501	;C(AC+1) FAILED
  5226	035200	255 10 0 00 035202 		JOV	.+2
  5227	035201	254 00 0 00 035203 		JRST	.+2
  5228	035202	013 03 0 00 041501 		ER13	AC-1,41501	;AROV WAS SET
  5229	035203	255 01 0 00 035205 		JFOV	.+2
  5230	035204	254 00 0 00 035206 		JRST	.+2
  5231	035205	013 03 0 00 041501 		ER13	AC-1,41501	;FOV WAS SET
  5232	035206	603 03 0 00 000100 		TLNE	AC-1,FXU
  5233	035207	013 03 0 00 041501 		ER13	AC-1,41501	;FXU WAS SET
  5234	035210	321 10 0 00 035170 		JUMPL	AC+4,S41500	;LOOP ON ERROR SWITCH
  5235
  5236	035211	254 02 1 00 041416 	S41600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5237						DMOVE	AC,[400400,,0
  5238	035212	120 04 0 00 041357 			    0,,0]
  5239						DFSB	AC,[377400,,0
  5240	035213	111 04 0 00 041026 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  5241	035214	265 03 0 00 035215 		JSP	AC-1,.+1	;SAVE FLAGS
  5242	035215	312 04 0 00 041365 		CAME	AC,[777400,,0]
  5243	035216	003 04 0 00 041601 		ER3	AC,41601	;C(AC) FAILED
  5244	035217	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5245	035220	004 05 0 00 041601 		ER4	AC+1,41601	;C(AC+1) FAILED
  5246	035221	255 10 0 00 035223 		JOV	.+2
  5247	035222	013 03 0 00 041601 		ER13	AC-1,41601	;AROV WAS CLEAR
  5248	035223	255 01 0 00 035225 		JFOV	.+2
  5249	035224	013 03 0 00 041601 		ER13	AC-1,41601	;FOV WAS CLEAR
  5250	035225	603 03 0 00 000100 		TLNE	AC-1,FXU
  5251	035226	013 03 0 00 041601 		ER13	AC-1,41601	;FXU WAS SET
  5252	035227	321 10 0 00 035211 		JUMPL	AC+4,S41600	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 20
DSKCE1	MAC	21-Jun-78 10:46		DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND                                 SEQ 0124

  5253	035230	254 02 1 00 041417 	S41700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5254						DMOVE	AC,[777000,,0
  5255	035231	120 04 0 00 041420 			    0,,0]
  5256						DFSB	AC,[777400,,0
  5257	035232	111 04 0 00 041422 			    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  5258	035233	265 03 0 00 035234 		JSP	AC-1,.+1	;SAVE FLAGS
  5259	035234	312 04 0 00 041365 		CAME	AC,[777400,,0]
  5260	035235	003 04 0 00 041701 		ER3	AC,41701	;C(AC) FAILED
  5261	035236	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5262	035237	004 05 0 00 041701 		ER4	AC+1,41701	;C(AC+1) FAILED
  5263	035240	255 10 0 00 035242 		JOV	.+2
  5264	035241	254 00 0 00 035243 		JRST	.+2
  5265	035242	013 03 0 00 041701 		ER13	AC-1,41701	;AROV WAS SET
  5266	035243	255 01 0 00 035245 		JFOV	.+2
  5267	035244	254 00 0 00 035246 		JRST	.+2
  5268	035245	013 03 0 00 041701 		ER13	AC-1,41701	;FOV WAS SET
  5269	035246	603 03 0 00 000100 		TLNE	AC-1,FXU
  5270	035247	013 03 0 00 041701 		ER13	AC-1,41701	;FXU WAS SET
  5271	035250	321 10 0 00 035230 		JUMPL	AC+4,S41700	;LOOP ON ERROR SWITCH
  5272
  5273	035251	254 02 1 00 041424 	S42000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5274						DMOVE	AC,[777000,,0
  5275	035252	120 04 0 00 041425 			    0,,1]
  5276						DFSB	AC,[777400,,0
  5277	035253	111 04 0 00 041422 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  5278	035254	265 03 0 00 035255 		JSP	AC-1,.+1	;SAVE FLAGS
  5279	035255	312 04 0 00 041363 		CAME	AC,[400000,,0]
  5280	035256	003 04 0 00 042001 		ER3	AC,42001	;C(AC) FAILED
  5281	035257	312 05 0 00 040346 		CAME	AC+1,[0,,2]
  5282	035260	004 05 0 00 042001 		ER4	AC+1,42001	;C(AC+1) FAILED
  5283	035261	255 10 0 00 035263 		JOV	.+2
  5284	035262	013 03 0 00 042001 		ER13	AC-1,42001	;AROV WAS CLEAR
  5285	035263	255 01 0 00 035265 		JFOV	.+2
  5286	035264	013 03 0 00 042001 		ER13	AC-1,42001	;FOV WAS CLEAR
  5287	035265	607 03 0 00 000100 		TLNN	AC-1,FXU
  5288	035266	013 03 0 00 042001 		ER13	AC-1,42001	;FXU WAS CLEAR
  5289	035267	321 10 0 00 035251 		JUMPL	AC+4,S42000	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 21
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0125

  5290					SUBTTL	DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND
  5291
  5292			000004			AC=4
  5293						SAVEAC	(1,1)^
  5294	035270	201 06 0 00 035270 		MOVEI	AC+2,.
  5295	035271	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5296	035272	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5297	035273	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5298	035274	254 02 1 00 041427 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  5299
  5300					;CHECK THAT DFMP AC,E DOES NOT ALTER C(E) OR C(E+1)
  5301					S50100:	DMOVE	AC,[200777,,-1
  5302	035275	120 04 0 00 040710 			-1,,-1]
  5303						DMOVE	AC+2,[201400,,0
  5304	035276	120 06 0 00 041430 			400000,,-1]
  5305	035277	112 04 0 00 000006 		DFMP	AC,AC+2
  5306	035300	312 06 0 00 040057 		CAME	AC+2,[201400,,0]
  5307	035301	005 06 0 00 050101 		ER5	AC+2,50101	;C(E) WAS ALTERED
  5308	035302	312 07 0 00 040713 		CAME	AC+3,[400000,,-1]
  5309	035303	006 07 0 00 050101 		ER6	AC+3,50101	;C(E+1) WAS ALTERED
  5310	035304	321 10 0 00 035275 		JUMPL	AC+4,S50100	;LOOP ON ERROR SWITCH
  5311
  5312						SDFM	502,200400,0,0,0,0,0,0,0,0,0,0,0^
  5313					S50200:	DMOVE	AC,[200400,,0
  5314	035305	120 04 0 00 040731 			0,,0]
  5315						DFMP	AC,[0,,0
  5316	035306	112 04 0 00 040355 			0,,0]
  5317	035307	312 04 0 00 040060 		CAME	AC,[0,,0]
  5318	035310	003 04 0 00 050201 		ER3	AC,50201
  5319	035311	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5320	035312	004 05 0 00 050201 		ER4	AC+1,50201
  5321	035313	321 10 0 00 035305 		JUMPL	AC+4,S50200	;LOOP ON ERROR SWITCH^
  5322
  5323						SDFM	503,200400,0,0,0,200400,0,0,0,177400,0,0,0^
  5324					S50300:	DMOVE	AC,[200400,,0
  5325	035314	120 04 0 00 040731 			0,,0]
  5326						DFMP	AC,[200400,,0
  5327	035315	112 04 0 00 040731 			0,,0]
  5328	035316	312 04 0 00 040066 		CAME	AC,[177400,,0]
  5329	035317	003 04 0 00 050301 		ER3	AC,50301
  5330	035320	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5331	035321	004 05 0 00 050301 		ER4	AC+1,50301
  5332	035322	321 10 0 00 035314 		JUMPL	AC+4,S50300	;LOOP ON ERROR SWITCH^
  5333
  5334						SDFM	504,400,0,0,0,400,0,0,0,177400,0,0,0^
  5335					S50400:	DMOVE	AC,[400,,0
  5336	035323	120 04 0 00 040716 			0,,0]
  5337						DFMP	AC,[400,,0
  5338	035324	112 04 0 00 040716 			0,,0]
  5339	035325	312 04 0 00 040066 		CAME	AC,[177400,,0]
  5340	035326	003 04 0 00 050401 		ER3	AC,50401
  5341	035327	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5342	035330	004 05 0 00 050401 		ER4	AC+1,50401
  5343	035331	321 10 0 00 035323 		JUMPL	AC+4,S50400	;LOOP ON ERROR SWITCH^
  5344
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 21-1
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0126

  5345						SDFM	505,200400,0,0,0,400,0,0,0,377400,0,0,0^
  5346					S50500:	DMOVE	AC,[200400,,0
  5347	035332	120 04 0 00 040731 			0,,0]
  5348						DFMP	AC,[400,,0
  5349	035333	112 04 0 00 040716 			0,,0]
  5350	035334	312 04 0 00 040527 		CAME	AC,[377400,,0]
  5351	035335	003 04 0 00 050501 		ER3	AC,50501
  5352	035336	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5353	035337	004 05 0 00 050501 		ER4	AC+1,50501
  5354	035340	321 10 0 00 035332 		JUMPL	AC+4,S50500	;LOOP ON ERROR SWITCH^
  5355
  5356						SDFM	506,177400,0,0,0,400,0,0,0,376400,0,0,0^
  5357					S50600:	DMOVE	AC,[177400,,0
  5358	035341	120 04 0 00 040727 			0,,0]
  5359						DFMP	AC,[400,,0
  5360	035342	112 04 0 00 040716 			0,,0]
  5361	035343	312 04 0 00 041432 		CAME	AC,[376400,,0]
  5362	035344	003 04 0 00 050601 		ER3	AC,50601
  5363	035345	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5364	035346	004 05 0 00 050601 		ER4	AC+1,50601
  5365	035347	321 10 0 00 035341 		JUMPL	AC+4,S50600	;LOOP ON ERROR SWITCH^
  5366
  5367						SDFM	507,377400,0,0,0,400,0,0,0,176400,0,0,0^
  5368					S50700:	DMOVE	AC,[377400,,0
  5369	035350	120 04 0 00 041026 			0,,0]
  5370						DFMP	AC,[400,,0
  5371	035351	112 04 0 00 040716 			0,,0]
  5372	035352	312 04 0 00 040071 		CAME	AC,[176400,,0]
  5373	035353	003 04 0 00 050701 		ER3	AC,50701
  5374	035354	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5375	035355	004 05 0 00 050701 		ER4	AC+1,50701
  5376	035356	321 10 0 00 035350 		JUMPL	AC+4,S50700	;LOOP ON ERROR SWITCH^
  5377
  5378						SDFM	510,577400,0,0,0,400,0,0,0,400400,0,0,0^
  5379					S51000:	DMOVE	AC,[577400,,0
  5380	035357	120 04 0 00 040061 			0,,0]
  5381						DFMP	AC,[400,,0
  5382	035360	112 04 0 00 040716 			0,,0]
  5383	035361	312 04 0 00 041225 		CAME	AC,[400400,,0]
  5384	035362	003 04 0 00 051001 		ER3	AC,51001
  5385	035363	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5386	035364	004 05 0 00 051001 		ER4	AC+1,51001
  5387	035365	321 10 0 00 035357 		JUMPL	AC+4,S51000	;LOOP ON ERROR SWITCH^
  5388
  5389						SDFM	511,400,0,0,0,200400,0,0,0,377400,0,0,0^
  5390					S51100:	DMOVE	AC,[400,,0
  5391	035366	120 04 0 00 040716 			0,,0]
  5392						DFMP	AC,[200400,,0
  5393	035367	112 04 0 00 040731 			0,,0]
  5394	035370	312 04 0 00 040527 		CAME	AC,[377400,,0]
  5395	035371	003 04 0 00 051101 		ER3	AC,51101
  5396	035372	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5397	035373	004 05 0 00 051101 		ER4	AC+1,51101
  5398	035374	321 10 0 00 035366 		JUMPL	AC+4,S51100	;LOOP ON ERROR SWITCH^
  5399
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 21-2
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0127

  5400						SDFM	512,200400,0,0,0,577400,0,0,0,600400,0,0,0^
  5401					S51200:	DMOVE	AC,[200400,,0
  5402	035375	120 04 0 00 040731 			0,,0]
  5403						DFMP	AC,[577400,,0
  5404	035376	112 04 0 00 040061 			0,,0]
  5405	035377	312 04 0 00 040725 		CAME	AC,[600400,,0]
  5406	035400	003 04 0 00 051201 		ER3	AC,51201
  5407	035401	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5408	035402	004 05 0 00 051201 		ER4	AC+1,51201
  5409	035403	321 10 0 00 035375 		JUMPL	AC+4,S51200	;LOOP ON ERROR SWITCH^
  5410
  5411						SDFM	513,200400,0,0,0,205400,0,0,0,204400,0,0,0^
  5412					S51300:	DMOVE	AC,[200400,,0
  5413	035404	120 04 0 00 040731 			0,,0]
  5414						DFMP	AC,[205400,,0
  5415	035405	112 04 0 00 040733 			0,,0]
  5416	035406	312 04 0 00 040747 		CAME	AC,[204400,,0]
  5417	035407	003 04 0 00 051301 		ER3	AC,51301
  5418	035410	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5419	035411	004 05 0 00 051301 		ER4	AC+1,51301
  5420	035412	321 10 0 00 035404 		JUMPL	AC+4,S51300	;LOOP ON ERROR SWITCH^
  5421
  5422						SDFM	514,0,0,0,0,577400,0,0,0,0,0,0,0^
  5423					S51400:	DMOVE	AC,[0,,0
  5424	035413	120 04 0 00 040355 			0,,0]
  5425						DFMP	AC,[577400,,0
  5426	035414	112 04 0 00 040061 			0,,0]
  5427	035415	312 04 0 00 040060 		CAME	AC,[0,,0]
  5428	035416	003 04 0 00 051401 		ER3	AC,51401
  5429	035417	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5430	035420	004 05 0 00 051401 		ER4	AC+1,51401
  5431	035421	321 10 0 00 035413 		JUMPL	AC+4,S51400	;LOOP ON ERROR SWITCH^
  5432
  5433						SDFM	515,200400,0,0,0,201400,0,0,0,200400,0,0,0^
  5434					S51500:	DMOVE	AC,[200400,,0
  5435	035422	120 04 0 00 040731 			0,,0]
  5436						DFMP	AC,[201400,,0
  5437	035423	112 04 0 00 040057 			0,,0]
  5438	035424	312 04 0 00 040063 		CAME	AC,[200400,,0]
  5439	035425	003 04 0 00 051501 		ER3	AC,51501
  5440	035426	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5441	035427	004 05 0 00 051501 		ER4	AC+1,51501
  5442	035430	321 10 0 00 035422 		JUMPL	AC+4,S51500	;LOOP ON ERROR SWITCH^
  5443
  5444						SDFM	516,200400,0,0,0,202400,0,0,0,201400,0,0,0^
  5445					S51600:	DMOVE	AC,[200400,,0
  5446	035431	120 04 0 00 040731 			0,,0]
  5447						DFMP	AC,[202400,,0
  5448	035432	112 04 0 00 040744 			0,,0]
  5449	035433	312 04 0 00 040057 		CAME	AC,[201400,,0]
  5450	035434	003 04 0 00 051601 		ER3	AC,51601
  5451	035435	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5452	035436	004 05 0 00 051601 		ER4	AC+1,51601
  5453	035437	321 10 0 00 035431 		JUMPL	AC+4,S51600	;LOOP ON ERROR SWITCH^
  5454
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 21-3
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0128

  5455						SDFM	517,200400,0,0,0,204400,0,0,0,203400,0,0,0^
  5456					S51700:	DMOVE	AC,[200400,,0
  5457	035440	120 04 0 00 040731 			0,,0]
  5458						DFMP	AC,[204400,,0
  5459	035441	112 04 0 00 040747 			0,,0]
  5460	035442	312 04 0 00 041133 		CAME	AC,[203400,,0]
  5461	035443	003 04 0 00 051701 		ER3	AC,51701
  5462	035444	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5463	035445	004 05 0 00 051701 		ER4	AC+1,51701
  5464	035446	321 10 0 00 035440 		JUMPL	AC+4,S51700	;LOOP ON ERROR SWITCH^
  5465
  5466						SDFM	520,200400,0,0,0,210400,0,0,0,207400,0,0,0^
  5467					S52000:	DMOVE	AC,[200400,,0
  5468	035447	120 04 0 00 040731 			0,,0]
  5469						DFMP	AC,[210400,,0
  5470	035450	112 04 0 00 040752 			0,,0]
  5471	035451	312 04 0 00 041232 		CAME	AC,[207400,,0]
  5472	035452	003 04 0 00 052001 		ER3	AC,52001
  5473	035453	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5474	035454	004 05 0 00 052001 		ER4	AC+1,52001
  5475	035455	321 10 0 00 035447 		JUMPL	AC+4,S52000	;LOOP ON ERROR SWITCH^
  5476
  5477						SDFM	521,200400,0,0,0,220400,0,0,0,217400,0,0,0^
  5478					S52100:	DMOVE	AC,[200400,,0
  5479	035456	120 04 0 00 040731 			0,,0]
  5480						DFMP	AC,[220400,,0
  5481	035457	112 04 0 00 040755 			0,,0]
  5482	035460	312 04 0 00 041250 		CAME	AC,[217400,,0]
  5483	035461	003 04 0 00 052101 		ER3	AC,52101
  5484	035462	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5485	035463	004 05 0 00 052101 		ER4	AC+1,52101
  5486	035464	321 10 0 00 035456 		JUMPL	AC+4,S52100	;LOOP ON ERROR SWITCH^
  5487
  5488						SDFM	522,200400,0,0,0,240400,0,0,0,237400,0,0,0^
  5489					S52200:	DMOVE	AC,[200400,,0
  5490	035465	120 04 0 00 040731 			0,,0]
  5491						DFMP	AC,[240400,,0
  5492	035466	112 04 0 00 040760 			0,,0]
  5493	035467	312 04 0 00 041433 		CAME	AC,[237400,,0]
  5494	035470	003 04 0 00 052201 		ER3	AC,52201
  5495	035471	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5496	035472	004 05 0 00 052201 		ER4	AC+1,52201
  5497	035473	321 10 0 00 035465 		JUMPL	AC+4,S52200	;LOOP ON ERROR SWITCH^
  5498
  5499						SDFM	523,200400,0,0,0,300400,0,0,0,277400,0,0,0^
  5500					S52300:	DMOVE	AC,[200400,,0
  5501	035474	120 04 0 00 040731 			0,,0]
  5502						DFMP	AC,[300400,,0
  5503	035475	112 04 0 00 040762 			0,,0]
  5504	035476	312 04 0 00 041434 		CAME	AC,[277400,,0]
  5505	035477	003 04 0 00 052301 		ER3	AC,52301
  5506	035500	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5507	035501	004 05 0 00 052301 		ER4	AC+1,52301
  5508	035502	321 10 0 00 035474 		JUMPL	AC+4,S52300	;LOOP ON ERROR SWITCH^
  5509
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 21-4
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0129

  5510						SDFM	524,201400,0,0,0,200400,0,0,0,200400,0,0,0^
  5511					S52400:	DMOVE	AC,[201400,,0
  5512	035503	120 04 0 00 040057 			0,,0]
  5513						DFMP	AC,[200400,,0
  5514	035504	112 04 0 00 040731 			0,,0]
  5515	035505	312 04 0 00 040063 		CAME	AC,[200400,,0]
  5516	035506	003 04 0 00 052401 		ER3	AC,52401
  5517	035507	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5518	035510	004 05 0 00 052401 		ER4	AC+1,52401
  5519	035511	321 10 0 00 035503 		JUMPL	AC+4,S52400	;LOOP ON ERROR SWITCH^
  5520
  5521						SDFM	525,202400,0,0,0,200400,0,0,0,201400,0,0,0^
  5522					S52500:	DMOVE	AC,[202400,,0
  5523	035512	120 04 0 00 040744 			0,,0]
  5524						DFMP	AC,[200400,,0
  5525	035513	112 04 0 00 040731 			0,,0]
  5526	035514	312 04 0 00 040057 		CAME	AC,[201400,,0]
  5527	035515	003 04 0 00 052501 		ER3	AC,52501
  5528	035516	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5529	035517	004 05 0 00 052501 		ER4	AC+1,52501
  5530	035520	321 10 0 00 035512 		JUMPL	AC+4,S52500	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0130

  5531
  5532
  5533						SDFM	526,204400,0,0,0,200400,0,0,0,203400,0,0,0^
  5534					S52600:	DMOVE	AC,[204400,,0
  5535	035521	120 04 0 00 040747 			0,,0]
  5536						DFMP	AC,[200400,,0
  5537	035522	112 04 0 00 040731 			0,,0]
  5538	035523	312 04 0 00 041133 		CAME	AC,[203400,,0]
  5539	035524	003 04 0 00 052601 		ER3	AC,52601
  5540	035525	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5541	035526	004 05 0 00 052601 		ER4	AC+1,52601
  5542	035527	321 10 0 00 035521 		JUMPL	AC+4,S52600	;LOOP ON ERROR SWITCH^
  5543
  5544						SDFM	527,210400,0,0,0,200400,0,0,0,207400,0,0,0^
  5545					S52700:	DMOVE	AC,[210400,,0
  5546	035530	120 04 0 00 040752 			0,,0]
  5547						DFMP	AC,[200400,,0
  5548	035531	112 04 0 00 040731 			0,,0]
  5549	035532	312 04 0 00 041232 		CAME	AC,[207400,,0]
  5550	035533	003 04 0 00 052701 		ER3	AC,52701
  5551	035534	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5552	035535	004 05 0 00 052701 		ER4	AC+1,52701
  5553	035536	321 10 0 00 035530 		JUMPL	AC+4,S52700	;LOOP ON ERROR SWITCH^
  5554
  5555						SDFM	530,220400,0,0,0,200400,0,0,0,217400,0,0,0^
  5556					S53000:	DMOVE	AC,[220400,,0
  5557	035537	120 04 0 00 040755 			0,,0]
  5558						DFMP	AC,[200400,,0
  5559	035540	112 04 0 00 040731 			0,,0]
  5560	035541	312 04 0 00 041250 		CAME	AC,[217400,,0]
  5561	035542	003 04 0 00 053001 		ER3	AC,53001
  5562	035543	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5563	035544	004 05 0 00 053001 		ER4	AC+1,53001
  5564	035545	321 10 0 00 035537 		JUMPL	AC+4,S53000	;LOOP ON ERROR SWITCH^
  5565
  5566						SDFM	531,240400,0,0,0,200400,0,0,0,237400,0,0,0^
  5567					S53100:	DMOVE	AC,[240400,,0
  5568	035546	120 04 0 00 040760 			0,,0]
  5569						DFMP	AC,[200400,,0
  5570	035547	112 04 0 00 040731 			0,,0]
  5571	035550	312 04 0 00 041433 		CAME	AC,[237400,,0]
  5572	035551	003 04 0 00 053101 		ER3	AC,53101
  5573	035552	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5574	035553	004 05 0 00 053101 		ER4	AC+1,53101
  5575	035554	321 10 0 00 035546 		JUMPL	AC+4,S53100	;LOOP ON ERROR SWITCH^
  5576
  5577						SDFM	532,300400,0,0,0,200400,0,0,0,277400,0,0,0^
  5578					S53200:	DMOVE	AC,[300400,,0
  5579	035555	120 04 0 00 040762 			0,,0]
  5580						DFMP	AC,[200400,,0
  5581	035556	112 04 0 00 040731 			0,,0]
  5582	035557	312 04 0 00 041434 		CAME	AC,[277400,,0]
  5583	035560	003 04 0 00 053201 		ER3	AC,53201
  5584	035561	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5585	035562	004 05 0 00 053201 		ER4	AC+1,53201
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-1
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0131

  5586	035563	321 10 0 00 035555 		JUMPL	AC+4,S53200	;LOOP ON ERROR SWITCH^
  5587
  5588						SDFM	533,200400,0,0,0,576400,0,0,0,577400,0,0,0^
  5589					S53300:	DMOVE	AC,[200400,,0
  5590	035564	120 04 0 00 040731 			0,,0]
  5591						DFMP	AC,[576400,,0
  5592	035565	112 04 0 00 041036 			0,,0]
  5593	035566	312 04 0 00 040061 		CAME	AC,[577400,,0]
  5594	035567	003 04 0 00 053301 		ER3	AC,53301
  5595	035570	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5596	035571	004 05 0 00 053301 		ER4	AC+1,53301
  5597	035572	321 10 0 00 035564 		JUMPL	AC+4,S53300	;LOOP ON ERROR SWITCH^
  5598
  5599						SDFM	534,200400,0,0,0,575400,0,0,0,576400,0,0,0^
  5600					S53400:	DMOVE	AC,[200400,,0
  5601	035573	120 04 0 00 040731 			0,,0]
  5602						DFMP	AC,[575400,,0
  5603	035574	112 04 0 00 041435 			0,,0]
  5604	035575	312 04 0 00 040764 		CAME	AC,[576400,,0]
  5605	035576	003 04 0 00 053401 		ER3	AC,53401
  5606	035577	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5607	035600	004 05 0 00 053401 		ER4	AC+1,53401
  5608	035601	321 10 0 00 035573 		JUMPL	AC+4,S53400	;LOOP ON ERROR SWITCH^
  5609
  5610						SDFM	535,200777,-1,0,0,200400,0,0,0,177777,-1,0,0^
  5611					S53500:	DMOVE	AC,[200777,,-1
  5612	035602	120 04 0 00 041226 			0,,0]
  5613						DFMP	AC,[200400,,0
  5614	035603	112 04 0 00 040731 			0,,0]
  5615	035604	312 04 0 00 041437 		CAME	AC,[177777,,-1]
  5616	035605	003 04 0 00 053501 		ER3	AC,53501
  5617	035606	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5618	035607	004 05 0 00 053501 		ER4	AC+1,53501
  5619	035610	321 10 0 00 035602 		JUMPL	AC+4,S53500	;LOOP ON ERROR SWITCH^
  5620
  5621						SDFM	536,200777,-2,0,0,200400,0,0,0,177777,-2,0,0^
  5622					S53600:	DMOVE	AC,[200777,,-2
  5623	035611	120 04 0 00 041440 			0,,0]
  5624						DFMP	AC,[200400,,0
  5625	035612	112 04 0 00 040731 			0,,0]
  5626	035613	312 04 0 00 041442 		CAME	AC,[177777,,-2]
  5627	035614	003 04 0 00 053601 		ER3	AC,53601
  5628	035615	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5629	035616	004 05 0 00 053601 		ER4	AC+1,53601
  5630	035617	321 10 0 00 035611 		JUMPL	AC+4,S53600	;LOOP ON ERROR SWITCH^
  5631
  5632						SDFM	537,200777,-3,0,0,200400,0,0,0,177777,-3,0,0^
  5633					S53700:	DMOVE	AC,[200777,,-3
  5634	035620	120 04 0 00 041443 			0,,0]
  5635						DFMP	AC,[200400,,0
  5636	035621	112 04 0 00 040731 			0,,0]
  5637	035622	312 04 0 00 041445 		CAME	AC,[177777,,-3]
  5638	035623	003 04 0 00 053701 		ER3	AC,53701
  5639	035624	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5640	035625	004 05 0 00 053701 		ER4	AC+1,53701
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-2
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0132

  5641	035626	321 10 0 00 035620 		JUMPL	AC+4,S53700	;LOOP ON ERROR SWITCH^
  5642
  5643						SDFM	540,200777,-4,0,0,200400,0,0,0,177777,-4,0,0^
  5644					S54000:	DMOVE	AC,[200777,,-4
  5645	035627	120 04 0 00 041446 			0,,0]
  5646						DFMP	AC,[200400,,0
  5647	035630	112 04 0 00 040731 			0,,0]
  5648	035631	312 04 0 00 041450 		CAME	AC,[177777,,-4]
  5649	035632	003 04 0 00 054001 		ER3	AC,54001
  5650	035633	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5651	035634	004 05 0 00 054001 		ER4	AC+1,54001
  5652	035635	321 10 0 00 035627 		JUMPL	AC+4,S54000	;LOOP ON ERROR SWITCH^
  5653
  5654						SDFM	541,0,0,0,0,200400,0,0,0,0,0,0,0^
  5655					S54100:	DMOVE	AC,[0,,0
  5656	035636	120 04 0 00 040355 			0,,0]
  5657						DFMP	AC,[200400,,0
  5658	035637	112 04 0 00 040731 			0,,0]
  5659	035640	312 04 0 00 040060 		CAME	AC,[0,,0]
  5660	035641	003 04 0 00 054101 		ER3	AC,54101
  5661	035642	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5662	035643	004 05 0 00 054101 		ER4	AC+1,54101
  5663	035644	321 10 0 00 035636 		JUMPL	AC+4,S54100	;LOOP ON ERROR SWITCH^
  5664
  5665						SDFM	542,577400,0,0,0,200400,0,0,0,600400,0,0,0^
  5666					S54200:	DMOVE	AC,[577400,,0
  5667	035645	120 04 0 00 040061 			0,,0]
  5668						DFMP	AC,[200400,,0
  5669	035646	112 04 0 00 040731 			0,,0]
  5670	035647	312 04 0 00 040725 		CAME	AC,[600400,,0]
  5671	035650	003 04 0 00 054201 		ER3	AC,54201
  5672	035651	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5673	035652	004 05 0 00 054201 		ER4	AC+1,54201
  5674	035653	321 10 0 00 035645 		JUMPL	AC+4,S54200	;LOOP ON ERROR SWITCH^
  5675
  5676						SDFMKL	543,501700,0,0,0,500400,0,0,0,374100,0,0,0,372400,0,0,0^
  5677					S54300:	DMOVE	AC,[501700,,0
  5678	035654	120 04 0 00 041451 			0,,0]
  5679						DFMP	AC,[500400,,0
  5680	035655	112 04 0 00 041453 			0,,0]
  5681	035656	332 00 0 00 030041 		SKIPE	KLFLG
  5682	035657	254 00 0 00 035666 		JRST	S54305
  5683	035660	312 04 0 00 041455 		CAME	AC,[374100,,0]
  5684	035661	003 04 0 00 054301 		ER3	AC,54301
  5685	035662	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5686	035663	004 05 0 00 054301 		ER4	AC+1,54301
  5687	035664	321 10 0 00 035654 	S54306:	JUMPL	AC+4,S54300		;LOOP ON ERROR SWITCH
  5688	035665	254 00 0 00 035673 		JRST	S54307
  5689	035666	312 04 0 00 041456 	S54305:	CAME	AC,[372400,,0]
  5690	035667	003 04 0 00 054301 		ER3	AC,54301
  5691	035670	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5692	035671	004 05 0 00 054301 		ER4	AC+1,54301
  5693	035672	254 00 0 00 035664 		JRST	S54306
  5694	035673	254 00 0 00 035674 	S54307:	JRST	.+1	^
  5695
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-3
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0133

  5696						SDFMKL	544,502700,0,0,0,500400,0,0,0,373100,0,0,0,371400,0,0,0^
  5697					S54400:	DMOVE	AC,[502700,,0
  5698	035674	120 04 0 00 041457 			0,,0]
  5699						DFMP	AC,[500400,,0
  5700	035675	112 04 0 00 041453 			0,,0]
  5701	035676	332 00 0 00 030041 		SKIPE	KLFLG
  5702	035677	254 00 0 00 035706 		JRST	S54405
  5703	035700	312 04 0 00 041461 		CAME	AC,[373100,,0]
  5704	035701	003 04 0 00 054401 		ER3	AC,54401
  5705	035702	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5706	035703	004 05 0 00 054401 		ER4	AC+1,54401
  5707	035704	321 10 0 00 035674 	S54406:	JUMPL	AC+4,S54400		;LOOP ON ERROR SWITCH
  5708	035705	254 00 0 00 035713 		JRST	S54407
  5709	035706	312 04 0 00 041462 	S54405:	CAME	AC,[371400,,0]
  5710	035707	003 04 0 00 054401 		ER3	AC,54401
  5711	035710	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5712	035711	004 05 0 00 054401 		ER4	AC+1,54401
  5713	035712	254 00 0 00 035704 		JRST	S54406
  5714	035713	254 00 0 00 035714 	S54407:	JRST	.+1	^
  5715
  5716						SDFMKL	545,503700,0,0,0,500400,0,0,0,372100,0,0,0,370400,0,0,0^
  5717					S54500:	DMOVE	AC,[503700,,0
  5718	035714	120 04 0 00 041463 			0,,0]
  5719						DFMP	AC,[500400,,0
  5720	035715	112 04 0 00 041453 			0,,0]
  5721	035716	332 00 0 00 030041 		SKIPE	KLFLG
  5722	035717	254 00 0 00 035726 		JRST	S54505
  5723	035720	312 04 0 00 041465 		CAME	AC,[372100,,0]
  5724	035721	003 04 0 00 054501 		ER3	AC,54501
  5725	035722	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5726	035723	004 05 0 00 054501 		ER4	AC+1,54501
  5727	035724	321 10 0 00 035714 	S54506:	JUMPL	AC+4,S54500		;LOOP ON ERROR SWITCH
  5728	035725	254 00 0 00 035733 		JRST	S54507
  5729	035726	312 04 0 00 041466 	S54505:	CAME	AC,[370400,,0]
  5730	035727	003 04 0 00 054501 		ER3	AC,54501
  5731	035730	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5732	035731	004 05 0 00 054501 		ER4	AC+1,54501
  5733	035732	254 00 0 00 035724 		JRST	S54506
  5734	035733	254 00 0 00 035734 	S54507:	JRST	.+1	^
  5735
  5736						SDFMKL	546,504700,0,0,0,500400,0,0,0,371100,0,0,0,367400,0,0,0^
  5737					S54600:	DMOVE	AC,[504700,,0
  5738	035734	120 04 0 00 041467 			0,,0]
  5739						DFMP	AC,[500400,,0
  5740	035735	112 04 0 00 041453 			0,,0]
  5741	035736	332 00 0 00 030041 		SKIPE	KLFLG
  5742	035737	254 00 0 00 035746 		JRST	S54605
  5743	035740	312 04 0 00 041471 		CAME	AC,[371100,,0]
  5744	035741	003 04 0 00 054601 		ER3	AC,54601
  5745	035742	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5746	035743	004 05 0 00 054601 		ER4	AC+1,54601
  5747	035744	321 10 0 00 035734 	S54606:	JUMPL	AC+4,S54600		;LOOP ON ERROR SWITCH
  5748	035745	254 00 0 00 035753 		JRST	S54607
  5749	035746	312 04 0 00 041472 	S54605:	CAME	AC,[367400,,0]
  5750	035747	003 04 0 00 054601 		ER3	AC,54601
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-4
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0134

  5751	035750	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5752	035751	004 05 0 00 054601 		ER4	AC+1,54601
  5753	035752	254 00 0 00 035744 		JRST	S54606
  5754	035753	254 00 0 00 035754 	S54607:	JRST	.+1	^
  5755
  5756						SDFMKL	547,505700,0,0,0,500400,0,0,0,370100,0,0,0,366400,0,0,0^
  5757					S54700:	DMOVE	AC,[505700,,0
  5758	035754	120 04 0 00 041473 			0,,0]
  5759						DFMP	AC,[500400,,0
  5760	035755	112 04 0 00 041453 			0,,0]
  5761	035756	332 00 0 00 030041 		SKIPE	KLFLG
  5762	035757	254 00 0 00 035766 		JRST	S54705
  5763	035760	312 04 0 00 041475 		CAME	AC,[370100,,0]
  5764	035761	003 04 0 00 054701 		ER3	AC,54701
  5765	035762	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5766	035763	004 05 0 00 054701 		ER4	AC+1,54701
  5767	035764	321 10 0 00 035754 	S54706:	JUMPL	AC+4,S54700		;LOOP ON ERROR SWITCH
  5768	035765	254 00 0 00 035773 		JRST	S54707
  5769	035766	312 04 0 00 041476 	S54705:	CAME	AC,[366400,,0]
  5770	035767	003 04 0 00 054701 		ER3	AC,54701
  5771	035770	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5772	035771	004 05 0 00 054701 		ER4	AC+1,54701
  5773	035772	254 00 0 00 035764 		JRST	S54706
  5774	035773	254 00 0 00 035774 	S54707:	JRST	.+1	^
  5775
  5776						SDFMKL	550,200200,0,0,0,200400,0,0,0,177200,0,0,0,176400,0,0,0^
  5777					S55000:	DMOVE	AC,[200200,,0
  5778	035774	120 04 0 00 041274 			0,,0]
  5779						DFMP	AC,[200400,,0
  5780	035775	112 04 0 00 040731 			0,,0]
  5781	035776	332 00 0 00 030041 		SKIPE	KLFLG
  5782	035777	254 00 0 00 036006 		JRST	S55005
  5783	036000	312 04 0 00 041477 		CAME	AC,[177200,,0]
  5784	036001	003 04 0 00 055001 		ER3	AC,55001
  5785	036002	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5786	036003	004 05 0 00 055001 		ER4	AC+1,55001
  5787	036004	321 10 0 00 035774 	S55006:	JUMPL	AC+4,S55000		;LOOP ON ERROR SWITCH
  5788	036005	254 00 0 00 036013 		JRST	S55007
  5789	036006	312 04 0 00 040071 	S55005:	CAME	AC,[176400,,0]
  5790	036007	003 04 0 00 055001 		ER3	AC,55001
  5791	036010	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5792	036011	004 05 0 00 055001 		ER4	AC+1,55001
  5793	036012	254 00 0 00 036004 		JRST	S55006
  5794	036013	254 00 0 00 036014 	S55007:	JRST	.+1	^
  5795
  5796						SDFMKL	551,200100,0,0,0,200400,0,0,0,177100,0,0,0,175400,0,0,0^
  5797					S55100:	DMOVE	AC,[200100,,0
  5798	036014	120 04 0 00 041134 			0,,0]
  5799						DFMP	AC,[200400,,0
  5800	036015	112 04 0 00 040731 			0,,0]
  5801	036016	332 00 0 00 030041 		SKIPE	KLFLG
  5802	036017	254 00 0 00 036026 		JRST	S55105
  5803	036020	312 04 0 00 041500 		CAME	AC,[177100,,0]
  5804	036021	003 04 0 00 055101 		ER3	AC,55101
  5805	036022	312 05 0 00 040060 		CAME	AC+1,[0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-5
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0135

  5806	036023	004 05 0 00 055101 		ER4	AC+1,55101
  5807	036024	321 10 0 00 036014 	S55106:	JUMPL	AC+4,S55100		;LOOP ON ERROR SWITCH
  5808	036025	254 00 0 00 036033 		JRST	S55107
  5809	036026	312 04 0 00 040074 	S55105:	CAME	AC,[175400,,0]
  5810	036027	003 04 0 00 055101 		ER3	AC,55101
  5811	036030	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5812	036031	004 05 0 00 055101 		ER4	AC+1,55101
  5813	036032	254 00 0 00 036024 		JRST	S55106
  5814	036033	254 00 0 00 036034 	S55107:	JRST	.+1	^
  5815
  5816						SDFMKL	552,200040,0,0,0,200400,0,0,0,177040,0,0,0,174400,0,0,0^
  5817					S55200:	DMOVE	AC,[200040,,0
  5818	036034	120 04 0 00 041136 			0,,0]
  5819						DFMP	AC,[200400,,0
  5820	036035	112 04 0 00 040731 			0,,0]
  5821	036036	332 00 0 00 030041 		SKIPE	KLFLG
  5822	036037	254 00 0 00 036046 		JRST	S55205
  5823	036040	312 04 0 00 041501 		CAME	AC,[177040,,0]
  5824	036041	003 04 0 00 055201 		ER3	AC,55201
  5825	036042	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5826	036043	004 05 0 00 055201 		ER4	AC+1,55201
  5827	036044	321 10 0 00 036034 	S55206:	JUMPL	AC+4,S55200		;LOOP ON ERROR SWITCH
  5828	036045	254 00 0 00 036053 		JRST	S55207
  5829	036046	312 04 0 00 040077 	S55205:	CAME	AC,[174400,,0]
  5830	036047	003 04 0 00 055201 		ER3	AC,55201
  5831	036050	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5832	036051	004 05 0 00 055201 		ER4	AC+1,55201
  5833	036052	254 00 0 00 036044 		JRST	S55206
  5834	036053	254 00 0 00 036054 	S55207:	JRST	.+1	^
  5835
  5836						SDFMKL	553,200020,0,0,0,200400,0,0,0,177020,0,0,0,173400,0,0,0^
  5837					S55300:	DMOVE	AC,[200020,,0
  5838	036054	120 04 0 00 041140 			0,,0]
  5839						DFMP	AC,[200400,,0
  5840	036055	112 04 0 00 040731 			0,,0]
  5841	036056	332 00 0 00 030041 		SKIPE	KLFLG
  5842	036057	254 00 0 00 036066 		JRST	S55305
  5843	036060	312 04 0 00 041502 		CAME	AC,[177020,,0]
  5844	036061	003 04 0 00 055301 		ER3	AC,55301
  5845	036062	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5846	036063	004 05 0 00 055301 		ER4	AC+1,55301
  5847	036064	321 10 0 00 036054 	S55306:	JUMPL	AC+4,S55300		;LOOP ON ERROR SWITCH
  5848	036065	254 00 0 00 036073 		JRST	S55307
  5849	036066	312 04 0 00 040102 	S55305:	CAME	AC,[173400,,0]
  5850	036067	003 04 0 00 055301 		ER3	AC,55301
  5851	036070	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5852	036071	004 05 0 00 055301 		ER4	AC+1,55301
  5853	036072	254 00 0 00 036064 		JRST	S55306
  5854	036073	254 00 0 00 036074 	S55307:	JRST	.+1	^
  5855
  5856						SDFMKL	554,200010,0,0,0,200400,0,0,0,177010,0,0,0,172400,0,0,0^
  5857					S55400:	DMOVE	AC,[200010,,0
  5858	036074	120 04 0 00 041221 			0,,0]
  5859						DFMP	AC,[200400,,0
  5860	036075	112 04 0 00 040731 			0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-6
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0136

  5861	036076	332 00 0 00 030041 		SKIPE	KLFLG
  5862	036077	254 00 0 00 036106 		JRST	S55405
  5863	036100	312 04 0 00 041503 		CAME	AC,[177010,,0]
  5864	036101	003 04 0 00 055401 		ER3	AC,55401
  5865	036102	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5866	036103	004 05 0 00 055401 		ER4	AC+1,55401
  5867	036104	321 10 0 00 036074 	S55406:	JUMPL	AC+4,S55400		;LOOP ON ERROR SWITCH
  5868	036105	254 00 0 00 036113 		JRST	S55407
  5869	036106	312 04 0 00 040105 	S55405:	CAME	AC,[172400,,0]
  5870	036107	003 04 0 00 055401 		ER3	AC,55401
  5871	036110	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5872	036111	004 05 0 00 055401 		ER4	AC+1,55401
  5873	036112	254 00 0 00 036104 		JRST	S55406
  5874	036113	254 00 0 00 036114 	S55407:	JRST	.+1	^
  5875
  5876						SDFMKL	555,200004,0,0,0,200400,0,0,0,177004,0,0,0,171400,0,0,0^
  5877					S55500:	DMOVE	AC,[200004,,0
  5878	036114	120 04 0 00 041217 			0,,0]
  5879						DFMP	AC,[200400,,0
  5880	036115	112 04 0 00 040731 			0,,0]
  5881	036116	332 00 0 00 030041 		SKIPE	KLFLG
  5882	036117	254 00 0 00 036126 		JRST	S55505
  5883	036120	312 04 0 00 041504 		CAME	AC,[177004,,0]
  5884	036121	003 04 0 00 055501 		ER3	AC,55501
  5885	036122	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5886	036123	004 05 0 00 055501 		ER4	AC+1,55501
  5887	036124	321 10 0 00 036114 	S55506:	JUMPL	AC+4,S55500		;LOOP ON ERROR SWITCH
  5888	036125	254 00 0 00 036133 		JRST	S55507
  5889	036126	312 04 0 00 040110 	S55505:	CAME	AC,[171400,,0]
  5890	036127	003 04 0 00 055501 		ER3	AC,55501
  5891	036130	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5892	036131	004 05 0 00 055501 		ER4	AC+1,55501
  5893	036132	254 00 0 00 036124 		JRST	S55506
  5894	036133	254 00 0 00 036134 	S55507:	JRST	.+1	^
  5895
  5896						SDFMKL	556,200002,0,0,0,200400,0,0,0,177002,0,0,0,170400,0,0,0^
  5897					S55600:	DMOVE	AC,[200002,,0
  5898	036134	120 04 0 00 041215 			0,,0]
  5899						DFMP	AC,[200400,,0
  5900	036135	112 04 0 00 040731 			0,,0]
  5901	036136	332 00 0 00 030041 		SKIPE	KLFLG
  5902	036137	254 00 0 00 036146 		JRST	S55605
  5903	036140	312 04 0 00 041505 		CAME	AC,[177002,,0]
  5904	036141	003 04 0 00 055601 		ER3	AC,55601
  5905	036142	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5906	036143	004 05 0 00 055601 		ER4	AC+1,55601
  5907	036144	321 10 0 00 036134 	S55606:	JUMPL	AC+4,S55600		;LOOP ON ERROR SWITCH
  5908	036145	254 00 0 00 036153 		JRST	S55607
  5909	036146	312 04 0 00 040113 	S55605:	CAME	AC,[170400,,0]
  5910	036147	003 04 0 00 055601 		ER3	AC,55601
  5911	036150	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5912	036151	004 05 0 00 055601 		ER4	AC+1,55601
  5913	036152	254 00 0 00 036144 		JRST	S55606
  5914	036153	254 00 0 00 036154 	S55607:	JRST	.+1	^
  5915
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 22-7
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0137

  5916						SDFMKL	557,500700,0,0,0,200400,0,0,0,501700,0,0,0,503400,0,0,0^
  5917					S55700:	DMOVE	AC,[500700,,0
  5918	036154	120 04 0 00 041506 			0,,0]
  5919						DFMP	AC,[200400,,0
  5920	036155	112 04 0 00 040731 			0,,0]
  5921	036156	332 00 0 00 030041 		SKIPE	KLFLG
  5922	036157	254 00 0 00 036166 		JRST	S55705
  5923	036160	312 04 0 00 041451 		CAME	AC,[501700,,0]
  5924	036161	003 04 0 00 055701 		ER3	AC,55701
  5925	036162	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5926	036163	004 05 0 00 055701 		ER4	AC+1,55701
  5927	036164	321 10 0 00 036154 	S55706:	JUMPL	AC+4,S55700		;LOOP ON ERROR SWITCH
  5928	036165	254 00 0 00 036173 		JRST	S55707
  5929	036166	312 04 0 00 041510 	S55705:	CAME	AC,[503400,,0]
  5930	036167	003 04 0 00 055701 		ER3	AC,55701
  5931	036170	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5932	036171	004 05 0 00 055701 		ER4	AC+1,55701
  5933	036172	254 00 0 00 036164 		JRST	S55706
  5934	036173	254 00 0 00 036174 	S55707:	JRST	.+1	^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0138

  5935
  5936						SDFMKL	560,500770,0,0,0,200400,0,0,0,501770,0,0,0,506400,0,0,0^
  5937					S56000:	DMOVE	AC,[500770,,0
  5938	036174	120 04 0 00 041511 			0,,0]
  5939						DFMP	AC,[200400,,0
  5940	036175	112 04 0 00 040731 			0,,0]
  5941	036176	332 00 0 00 030041 		SKIPE	KLFLG
  5942	036177	254 00 0 00 036206 		JRST	S56005
  5943	036200	312 04 0 00 041513 		CAME	AC,[501770,,0]
  5944	036201	003 04 0 00 056001 		ER3	AC,56001
  5945	036202	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5946	036203	004 05 0 00 056001 		ER4	AC+1,56001
  5947	036204	321 10 0 00 036174 	S56006:	JUMPL	AC+4,S56000		;LOOP ON ERROR SWITCH
  5948	036205	254 00 0 00 036213 		JRST	S56007
  5949	036206	312 04 0 00 041514 	S56005:	CAME	AC,[506400,,0]
  5950	036207	003 04 0 00 056001 		ER3	AC,56001
  5951	036210	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5952	036211	004 05 0 00 056001 		ER4	AC+1,56001
  5953	036212	254 00 0 00 036204 		JRST	S56006
  5954	036213	254 00 0 00 036214 	S56007:	JRST	.+1	^
  5955
  5956						SDFM	561,200775,0,0,0,200775,0,0,0,200772,11000,0,0^
  5957					S56100:	DMOVE	AC,[200775,,0
  5958	036214	120 04 0 00 041515 			0,,0]
  5959						DFMP	AC,[200775,,0
  5960	036215	112 04 0 00 041515 			0,,0]
  5961	036216	312 04 0 00 041517 		CAME	AC,[200772,,11000]
  5962	036217	003 04 0 00 056101 		ER3	AC,56101
  5963	036220	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5964	036221	004 05 0 00 056101 		ER4	AC+1,56101
  5965	036222	321 10 0 00 036214 		JUMPL	AC+4,S56100	;LOOP ON ERROR SWITCH^
  5966
  5967						SDFM	562,200774,0,0,0,200774,0,0,0,200770,20000,0,0^
  5968					S56200:	DMOVE	AC,[200774,,0
  5969	036223	120 04 0 00 041520 			0,,0]
  5970						DFMP	AC,[200774,,0
  5971	036224	112 04 0 00 041520 			0,,0]
  5972	036225	312 04 0 00 041522 		CAME	AC,[200770,,20000]
  5973	036226	003 04 0 00 056201 		ER3	AC,56201
  5974	036227	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5975	036230	004 05 0 00 056201 		ER4	AC+1,56201
  5976	036231	321 10 0 00 036223 		JUMPL	AC+4,S56200	;LOOP ON ERROR SWITCH^
  5977
  5978						SDFM	563,200773,0,0,0,200773,0,0,0,200766,31000,0,0^
  5979					S56300:	DMOVE	AC,[200773,,0
  5980	036232	120 04 0 00 041523 			0,,0]
  5981						DFMP	AC,[200773,,0
  5982	036233	112 04 0 00 041523 			0,,0]
  5983	036234	312 04 0 00 041525 		CAME	AC,[200766,,31000]
  5984	036235	003 04 0 00 056301 		ER3	AC,56301
  5985	036236	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5986	036237	004 05 0 00 056301 		ER4	AC+1,56301
  5987	036240	321 10 0 00 036232 		JUMPL	AC+4,S56300	;LOOP ON ERROR SWITCH^
  5988
  5989						SDFM	564,177477,0,0,0,200700,0,0,0,177427,100000,0,0^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23-1
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0139

  5990					S56400:	DMOVE	AC,[177477,,0
  5991	036241	120 04 0 00 041526 			0,,0]
  5992						DFMP	AC,[200700,,0
  5993	036242	112 04 0 00 040741 			0,,0]
  5994	036243	312 04 0 00 041530 		CAME	AC,[177427,,100000]
  5995	036244	003 04 0 00 056401 		ER3	AC,56401
  5996	036245	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  5997	036246	004 05 0 00 056401 		ER4	AC+1,56401
  5998	036247	321 10 0 00 036241 		JUMPL	AC+4,S56400	;LOOP ON ERROR SWITCH^
  5999
  6000						SDFM	565,200777,-1,0,0,200777,-1,0,0,200777,-2,0,400^
  6001					S56500:	DMOVE	AC,[200777,,-1
  6002	036250	120 04 0 00 041226 			0,,0]
  6003						DFMP	AC,[200777,,-1
  6004	036251	112 04 0 00 041226 			0,,0]
  6005	036252	312 04 0 00 041440 		CAME	AC,[200777,,-2]
  6006	036253	003 04 0 00 056501 		ER3	AC,56501
  6007	036254	312 05 0 00 040321 		CAME	AC+1,[0,,400]
  6008	036255	004 05 0 00 056501 		ER4	AC+1,56501
  6009	036256	321 10 0 00 036250 		JUMPL	AC+4,S56500	;LOOP ON ERROR SWITCH^
  6010
  6011						SDFM	566,200777,-2,0,0,200777,-1,0,0,200777,-3,0,1000^
  6012					S56600:	DMOVE	AC,[200777,,-2
  6013	036257	120 04 0 00 041440 			0,,0]
  6014						DFMP	AC,[200777,,-1
  6015	036260	112 04 0 00 041226 			0,,0]
  6016	036261	312 04 0 00 041443 		CAME	AC,[200777,,-3]
  6017	036262	003 04 0 00 056601 		ER3	AC,56601
  6018	036263	312 05 0 00 040316 		CAME	AC+1,[0,,1000]
  6019	036264	004 05 0 00 056601 		ER4	AC+1,56601
  6020	036265	321 10 0 00 036257 		JUMPL	AC+4,S56600	;LOOP ON ERROR SWITCH^
  6021
  6022						SDFM	567,200777,-3,0,0,200777,-1,0,0,200777,-4,0,1400^
  6023					S56700:	DMOVE	AC,[200777,,-3
  6024	036266	120 04 0 00 041443 			0,,0]
  6025						DFMP	AC,[200777,,-1
  6026	036267	112 04 0 00 041226 			0,,0]
  6027	036270	312 04 0 00 041446 		CAME	AC,[200777,,-4]
  6028	036271	003 04 0 00 056701 		ER3	AC,56701
  6029	036272	312 05 0 00 041531 		CAME	AC+1,[0,,1400]
  6030	036273	004 05 0 00 056701 		ER4	AC+1,56701
  6031	036274	321 10 0 00 036266 		JUMPL	AC+4,S56700	;LOOP ON ERROR SWITCH^
  6032
  6033						SDFM	570,200777,-4,0,0,200777,-1,0,0,200777,-5,0,2000^
  6034					S57000:	DMOVE	AC,[200777,,-4
  6035	036275	120 04 0 00 041446 			0,,0]
  6036						DFMP	AC,[200777,,-1
  6037	036276	112 04 0 00 041226 			0,,0]
  6038	036277	312 04 0 00 041532 		CAME	AC,[200777,,-5]
  6039	036300	003 04 0 00 057001 		ER3	AC,57001
  6040	036301	312 05 0 00 040313 		CAME	AC+1,[0,,2000]
  6041	036302	004 05 0 00 057001 		ER4	AC+1,57001
  6042	036303	321 10 0 00 036275 		JUMPL	AC+4,S57000	;LOOP ON ERROR SWITCH^
  6043
  6044						SDFM	571,200777,-5,0,0,200777,-1,0,0,200777,-6,0,2400^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23-2
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0140

  6045					S57100:	DMOVE	AC,[200777,,-5
  6046	036304	120 04 0 00 041532 			0,,0]
  6047						DFMP	AC,[200777,,-1
  6048	036305	112 04 0 00 041226 			0,,0]
  6049	036306	312 04 0 00 041534 		CAME	AC,[200777,,-6]
  6050	036307	003 04 0 00 057101 		ER3	AC,57101
  6051	036310	312 05 0 00 041535 		CAME	AC+1,[0,,2400]
  6052	036311	004 05 0 00 057101 		ER4	AC+1,57101
  6053	036312	321 10 0 00 036304 		JUMPL	AC+4,S57100	;LOOP ON ERROR SWITCH^
  6054
  6055						SDFM	572,500000,-1,0,0,200777,0,0,0,500001,776777,400,0^
  6056					S57200:	DMOVE	AC,[500000,,-1
  6057	036313	120 04 0 00 041536 			0,,0]
  6058						DFMP	AC,[200777,,0
  6059	036314	112 04 0 00 041540 			0,,0]
  6060	036315	312 04 0 00 041542 		CAME	AC,[500001,,776777]
  6061	036316	003 04 0 00 057201 		ER3	AC,57201
  6062	036317	312 05 0 00 040233 		CAME	AC+1,[400,,0]
  6063	036320	004 05 0 00 057201 		ER4	AC+1,57201
  6064	036321	321 10 0 00 036313 		JUMPL	AC+4,S57200	;LOOP ON ERROR SWITCH^
  6065
  6066						SDFM	573,500000,777770,0,0,200777,0,0,0,500001,776770,4000,0^
  6067					S57300:	DMOVE	AC,[500000,,777770
  6068	036322	120 04 0 00 041543 			0,,0]
  6069						DFMP	AC,[200777,,0
  6070	036323	112 04 0 00 041540 			0,,0]
  6071	036324	312 04 0 00 041545 		CAME	AC,[500001,,776770]
  6072	036325	003 04 0 00 057301 		ER3	AC,57301
  6073	036326	312 05 0 00 040222 		CAME	AC+1,[4000,,0]
  6074	036327	004 05 0 00 057301 		ER4	AC+1,57301
  6075	036330	321 10 0 00 036322 		JUMPL	AC+4,S57300	;LOOP ON ERROR SWITCH^
  6076
  6077						SDFM	574,500000,-1,0,0,500000,-1,0,0,376776,1001,377000,400^
  6078					S57400:	DMOVE	AC,[500000,,-1
  6079	036331	120 04 0 00 041536 			0,,0]
  6080						DFMP	AC,[500000,,-1
  6081	036332	112 04 0 00 041536 			0,,0]
  6082	036333	312 04 0 00 041546 		CAME	AC,[376776,,1001]
  6083	036334	003 04 0 00 057401 		ER3	AC,57401
  6084	036335	312 05 0 00 041547 		CAME	AC+1,[377000,,400]
  6085	036336	004 05 0 00 057401 		ER4	AC+1,57401
  6086	036337	321 10 0 00 036331 		JUMPL	AC+4,S57400	;LOOP ON ERROR SWITCH^
  6087
  6088						SDFM	575,500000,-2,0,0,500000,-2,0,0,376776,1003,376000,2000^
  6089					S57500:	DMOVE	AC,[500000,,-2
  6090	036340	120 04 0 00 041550 			0,,0]
  6091						DFMP	AC,[500000,,-2
  6092	036341	112 04 0 00 041550 			0,,0]
  6093	036342	312 04 0 00 041552 		CAME	AC,[376776,,1003]
  6094	036343	003 04 0 00 057501 		ER3	AC,57501
  6095	036344	312 05 0 00 041553 		CAME	AC+1,[376000,,2000]
  6096	036345	004 05 0 00 057501 		ER4	AC+1,57501
  6097	036346	321 10 0 00 036340 		JUMPL	AC+4,S57500	;LOOP ON ERROR SWITCH^
  6098
  6099						SDFMKL	576,200777,-1,0,0,200000,2,0,0,177000,3,377777,776000,146777,-1,0,0^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23-3
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0141

  6100					S57600:	DMOVE	AC,[200777,,-1
  6101	036347	120 04 0 00 041226 			0,,0]
  6102						DFMP	AC,[200000,,2
  6103	036350	112 04 0 00 041151 			0,,0]
  6104	036351	332 00 0 00 030041 		SKIPE	KLFLG
  6105	036352	254 00 0 00 036361 		JRST	S57605
  6106	036353	312 04 0 00 041554 		CAME	AC,[177000,,3]
  6107	036354	003 04 0 00 057601 		ER3	AC,57601
  6108	036355	312 05 0 00 040427 		CAME	AC+1,[377777,,776000]
  6109	036356	004 05 0 00 057601 		ER4	AC+1,57601
  6110	036357	321 10 0 00 036347 	S57606:	JUMPL	AC+4,S57600		;LOOP ON ERROR SWITCH
  6111	036360	254 00 0 00 036366 		JRST	S57607
  6112	036361	312 04 0 00 041555 	S57605:	CAME	AC,[146777,,-1]
  6113	036362	003 04 0 00 057601 		ER3	AC,57601
  6114	036363	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6115	036364	004 05 0 00 057601 		ER4	AC+1,57601
  6116	036365	254 00 0 00 036357 		JRST	S57606
  6117	036366	254 00 0 00 036367 	S57607:	JRST	.+1	^
  6118
  6119						SDFM	577,200700,0,0,0,200400,77,0,0,177700,156,100000,0^
  6120					S57700:	DMOVE	AC,[200700,,0
  6121	036367	120 04 0 00 040741 			0,,0]
  6122						DFMP	AC,[200400,,77
  6123	036370	112 04 0 00 041041 			0,,0]
  6124	036371	312 04 0 00 041556 		CAME	AC,[177700,,156]
  6125	036372	003 04 0 00 057701 		ER3	AC,57701
  6126	036373	312 05 0 00 040206 		CAME	AC+1,[100000,,0]
  6127	036374	004 05 0 00 057701 		ER4	AC+1,57701
  6128	036375	321 10 0 00 036367 		JUMPL	AC+4,S57700	;LOOP ON ERROR SWITCH^
  6129
  6130						SDFM	600,200700,0,0,0,200400,76,0,0,177700,154,200000,0^
  6131					S60000:	DMOVE	AC,[200700,,0
  6132	036376	120 04 0 00 040741 			0,,0]
  6133						DFMP	AC,[200400,,76
  6134	036377	112 04 0 00 041557 			0,,0]
  6135	036400	312 04 0 00 041561 		CAME	AC,[177700,,154]
  6136	036401	003 04 0 00 060001 		ER3	AC,60001
  6137	036402	312 05 0 00 040203 		CAME	AC+1,[200000,,0]
  6138	036403	004 05 0 00 060001 		ER4	AC+1,60001
  6139	036404	321 10 0 00 036376 		JUMPL	AC+4,S60000	;LOOP ON ERROR SWITCH^
  6140
  6141						SDFM	601,200700,0,0,0,200400,75,0,0,177700,152,300000,0^
  6142					S60100:	DMOVE	AC,[200700,,0
  6143	036405	120 04 0 00 040741 			0,,0]
  6144						DFMP	AC,[200400,,75
  6145	036406	112 04 0 00 041562 			0,,0]
  6146	036407	312 04 0 00 041564 		CAME	AC,[177700,,152]
  6147	036410	003 04 0 00 060101 		ER3	AC,60101
  6148	036411	312 05 0 00 040563 		CAME	AC+1,[300000,,0]
  6149	036412	004 05 0 00 060101 		ER4	AC+1,60101
  6150	036413	321 10 0 00 036405 		JUMPL	AC+4,S60100	;LOOP ON ERROR SWITCH^
  6151
  6152						SDFM	602,577400,0,0,0,600400,0,0,0,176400,0,0,0^
  6153					S60200:	DMOVE	AC,[577400,,0
  6154	036414	120 04 0 00 040061 			0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23-4
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0142

  6155						DFMP	AC,[600400,,0
  6156	036415	112 04 0 00 040725 			0,,0]
  6157	036416	312 04 0 00 040071 		CAME	AC,[176400,,0]
  6158	036417	003 04 0 00 060201 		ER3	AC,60201
  6159	036420	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6160	036421	004 05 0 00 060201 		ER4	AC+1,60201
  6161	036422	321 10 0 00 036414 		JUMPL	AC+4,S60200	;LOOP ON ERROR SWITCH^
  6162
  6163						SDFM	603,600400,77,0,0,177660,0,0,0,602120,152,120000,0^
  6164					S60300:	DMOVE	AC,[600400,,77
  6165	036423	120 04 0 00 041565 			0,,0]
  6166						DFMP	AC,[177660,,0
  6167	036424	112 04 0 00 041567 			0,,0]
  6168	036425	312 04 0 00 041571 		CAME	AC,[602120,,152]
  6169	036426	003 04 0 00 060301 		ER3	AC,60301
  6170	036427	312 05 0 00 041572 		CAME	AC+1,[120000,,0]
  6171	036430	004 05 0 00 060301 		ER4	AC+1,60301
  6172	036431	321 10 0 00 036423 		JUMPL	AC+4,S60300	;LOOP ON ERROR SWITCH^
  6173
  6174						SDFM	604,600400,76,0,0,177600,0,0,0,602200,135,0,0^
  6175					S60400:	DMOVE	AC,[600400,,76
  6176	036432	120 04 0 00 041573 			0,,0]
  6177						DFMP	AC,[177600,,0
  6178	036433	112 04 0 00 041575 			0,,0]
  6179	036434	312 04 0 00 041577 		CAME	AC,[602200,,135]
  6180	036435	003 04 0 00 060401 		ER3	AC,60401
  6181	036436	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6182	036437	004 05 0 00 060401 		ER4	AC+1,60401
  6183	036440	321 10 0 00 036432 		JUMPL	AC+4,S60400	;LOOP ON ERROR SWITCH^
  6184
  6185						SDFM	605,600400,0,0,0,576400,0,0,0,177400,0,0,0^
  6186					S60500:	DMOVE	AC,[600400,,0
  6187	036441	120 04 0 00 040725 			0,,0]
  6188						DFMP	AC,[576400,,0
  6189	036442	112 04 0 00 041036 			0,,0]
  6190	036443	312 04 0 00 040066 		CAME	AC,[177400,,0]
  6191	036444	003 04 0 00 060501 		ER3	AC,60501
  6192	036445	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6193	036446	004 05 0 00 060501 		ER4	AC+1,60501
  6194	036447	321 10 0 00 036441 		JUMPL	AC+4,S60500	;LOOP ON ERROR SWITCH^
  6195
  6196						SDFM	606,600400,0,0,0,575400,0,0,0,200400,0,0,0^
  6197					S60600:	DMOVE	AC,[600400,,0
  6198	036450	120 04 0 00 040725 			0,,0]
  6199						DFMP	AC,[575400,,0
  6200	036451	112 04 0 00 041435 			0,,0]
  6201	036452	312 04 0 00 040063 		CAME	AC,[200400,,0]
  6202	036453	003 04 0 00 060601 		ER3	AC,60601
  6203	036454	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6204	036455	004 05 0 00 060601 		ER4	AC+1,60601
  6205	036456	321 10 0 00 036450 		JUMPL	AC+4,S60600	;LOOP ON ERROR SWITCH^
  6206
  6207						SDFM	607,400000,1,0,0,201400,0,0,0,400000,1,0,0^
  6208					S60700:	DMOVE	AC,[400000,,1
  6209	036457	120 04 0 00 041600 			0,,0]
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 23-5
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0143

  6210						DFMP	AC,[201400,,0
  6211	036460	112 04 0 00 040057 			0,,0]
  6212	036461	312 04 0 00 041600 		CAME	AC,[400000,,1]
  6213	036462	003 04 0 00 060701 		ER3	AC,60701
  6214	036463	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6215	036464	004 05 0 00 060701 		ER4	AC+1,60701
  6216	036465	321 10 0 00 036457 		JUMPL	AC+4,S60700	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 24
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0144

  6217					;TEST AROV, FOV AND FXU FLAGS - DFMP
  6218
  6219			000004			AC=4
  6220						SAVEAC	(1,1)^
  6221	036466	201 06 0 00 036466 		MOVEI	AC+2,.
  6222	036467	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  6223	036470	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6224	036471	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6225
  6226	036472	254 02 1 00 041602 	S61000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6227						DMOVE	AC,[377400,,0
  6228	036473	120 04 0 00 041026 			    0,,0]
  6229						DFMP	AC,[201777,,-1
  6230	036474	112 04 0 00 041603 			    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
  6231	036475	265 03 0 00 036476 		JSP	AC-1,.+1	;SAVE FLAGS
  6232	036476	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6233	036477	003 04 0 00 061001 		ER3	AC,61001	;C(AC) FAILED
  6234	036500	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6235	036501	004 05 0 00 061001 		ER4	AC+1,61001	;C(AC+1) FAILED
  6236	036502	255 10 0 00 036504 		JOV	.+2
  6237	036503	254 00 0 00 036505 		JRST	.+2
  6238	036504	013 03 0 00 061001 		ER13	AC-1,61001	;AROV WAS SET
  6239	036505	255 01 0 00 036507 		JFOV	.+2
  6240	036506	254 00 0 00 036510 		JRST	.+2
  6241	036507	013 03 0 00 061001 		ER13	AC-1,61001	;FOV WAS SET
  6242	036510	603 03 0 00 000100 		TLNE	AC-1,FXU
  6243	036511	013 03 0 00 061001 		ER13	AC-1,61001	;FXU WAS SET
  6244	036512	321 10 0 00 036472 		JUMPL	AC+4,S61000	;LOOP ON ERROR SWITCH
  6245
  6246	036513	254 02 1 00 041605 	S61100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6247						DMOVE	AC,[377400,,0
  6248	036514	120 04 0 00 041026 			    0,,0]
  6249						DFMP	AC,[202400,,0
  6250	036515	112 04 0 00 040744 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  6251	036516	265 03 0 00 036517 		JSP	AC-1,.+1	;SAVE FLAGS
  6252	036517	312 04 0 00 040233 		CAME	AC,[400,,0]
  6253	036520	003 04 0 00 061101 		ER3	AC,61101	;C(AC) FAILED
  6254	036521	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6255	036522	004 05 0 00 061101 		ER4	AC+1,61101	;C(AC+1) FAILED
  6256	036523	255 10 0 00 036525 		JOV	.+2
  6257	036524	013 03 0 00 061101 		ER13	AC-1,61101	;AROV WAS CLEAR
  6258	036525	255 01 0 00 036527 		JFOV	.+2
  6259	036526	013 03 0 00 061101 		ER13	AC-1,61101	;FOV WAS CLEAR
  6260	036527	603 03 0 00 000100 		TLNE	AC-1,FXU
  6261	036530	013 03 0 00 061101 		ER13	AC-1,61101	;FXU WAS SET
  6262	036531	321 10 0 00 036513 		JUMPL	AC+4,S61100	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 25
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0145

  6263	036532	254 02 1 00 041606 	S61200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6264						DMOVE	AC,[1400,,0
  6265	036533	120 04 0 00 041607 			    0,,0]
  6266						DFMP	AC,[200400,,0
  6267	036534	112 04 0 00 040731 			    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  6268	036535	265 03 0 00 036536 		JSP	AC-1,.+1	;SAVE FLAGS
  6269	036536	312 04 0 00 040233 		CAME	AC,[400,,0]
  6270	036537	003 04 0 00 061201 		ER3	AC,61201	;C(AC) FAILED
  6271	036540	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6272	036541	004 05 0 00 061201 		ER4	AC+1,61201	;C(AC+1) FAILED
  6273	036542	255 10 0 00 036544 		JOV	.+2
  6274	036543	254 00 0 00 036545 		JRST	.+2
  6275	036544	013 03 0 00 061201 		ER13	AC-1,61201	;AROV WAS SET
  6276	036545	255 01 0 00 036547 		JFOV	.+2
  6277	036546	254 00 0 00 036550 		JRST	.+2
  6278	036547	013 03 0 00 061201 		ER13	AC-1,61201	;FOV WAS SET
  6279	036550	603 03 0 00 000100 		TLNE	AC-1,FXU
  6280	036551	013 03 0 00 061201 		ER13	AC-1,61201	;FXU WAS SET
  6281	036552	321 10 0 00 036532 		JUMPL	AC+4,S61200	;LOOP ON ERROR SWITCH
  6282
  6283	036553	254 02 1 00 041611 	S61300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6284						DMOVE	AC,[777,,-1
  6285	036554	120 04 0 00 041406 			    -1,,-1]
  6286						DFMP	AC,[200400,,0
  6287	036555	112 04 0 00 040731 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  6288	036556	265 03 0 00 036557 		JSP	AC-1,.+1	;SAVE FLAGS
  6289	036557	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6290	036560	003 04 0 00 061301 		ER3	AC,61301	;C(AC) FAILED
  6291	036561	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6292	036562	004 05 0 00 061301 		ER4	AC+1,61301	;C(AC+1) FAILED
  6293	036563	255 10 0 00 036565 		JOV	.+2
  6294	036564	013 03 0 00 061301 		ER13	AC-1,61301	;AROV WAS CLEAR
  6295	036565	255 01 0 00 036567 		JFOV	.+2
  6296	036566	013 03 0 00 061301 		ER13	AC-1,61301	;FOV WAS CLEAR
  6297	036567	607 03 0 00 000100 		TLNN	AC-1,FXU
  6298	036570	013 03 0 00 061301 		ER13	AC-1,61301	;FXU WAS CLEAR
  6299	036571	321 10 0 00 036553 		JUMPL	AC+4,S61300	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 26
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0146

  6300	036572	254 02 1 00 041612 	S61400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6301						DMOVE	AC,[400400,,0
  6302	036573	120 04 0 00 041357 			    0,,0]
  6303						DFMP	AC,[576000,,00
  6304	036574	112 04 0 00 041613 			    0,,1]	;EXPECT AROV,FOV,FXU=0,0,0
  6305	036575	265 03 0 00 036576 		JSP	AC-1,.+1	;SAVE FLAGS
  6306	036576	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6307	036577	003 04 0 00 061401 		ER3	AC,61401	;C(AC) FAILED
  6308	036600	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6309	036601	004 05 0 00 061401 		ER4	AC+1,61401	;C(AC+1) FAILED
  6310	036602	255 10 0 00 036604 		JOV	.+2
  6311	036603	254 00 0 00 036605 		JRST	.+2
  6312	036604	013 03 0 00 061401 		ER13	AC-1,61401	;AROV WAS SET
  6313	036605	255 01 0 00 036607 		JFOV	.+2
  6314	036606	254 00 0 00 036610 		JRST	.+2
  6315	036607	013 03 0 00 061401 		ER13	AC-1,61401	;FOV WAS SET
  6316	036610	603 03 0 00 000100 		TLNE	AC-1,FXU
  6317	036611	013 03 0 00 061401 		ER13	AC-1,61401	;FXU WAS SET
  6318	036612	321 10 0 00 036572 		JUMPL	AC+4,S61400	;LOOP ON ERROR SWITCH
  6319
  6320	036613	254 02 1 00 041615 	S61500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6321						DMOVE	AC,[400400,,0
  6322	036614	120 04 0 00 041357 			    0,,0]
  6323						DFMP	AC,[575400,,0
  6324	036615	112 04 0 00 041435 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  6325	036616	265 03 0 00 036617 		JSP	AC-1,.+1	;SAVE FLAGS
  6326	036617	312 04 0 00 040233 		CAME	AC,[400,,0]
  6327	036620	003 04 0 00 061501 		ER3	AC,61501	;C(AC) FAILED
  6328	036621	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6329	036622	004 05 0 00 061501 		ER4	AC+1,61501	;C(AC+1) FAILED
  6330	036623	255 10 0 00 036625 		JOV	.+2
  6331	036624	013 03 0 00 061501 		ER13	AC-1,61501	;AROV WAS CLEAR
  6332	036625	255 01 0 00 036627 		JFOV	.+2
  6333	036626	013 03 0 00 061501 		ER13	AC-1,61501	;FOV WAS CLEAR
  6334	036627	603 03 0 00 000100 		TLNE	AC-1,FXU
  6335	036630	013 03 0 00 061501 		ER13	AC-1,61501	;FXU WAS SET
  6336	036631	321 10 0 00 036613 		JUMPL	AC+4,S61500	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 27
DSKCE1	MAC	21-Jun-78 10:46		DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND                                 SEQ 0147

  6337	036632	254 02 1 00 041616 	S61600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6338						DMOVE	AC,[776400,,0
  6339	036633	120 04 0 00 041617 			    0,,0]
  6340						DFMP	AC,[577400,,0
  6341	036634	112 04 0 00 040061 			    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  6342	036635	265 03 0 00 036636 		JSP	AC-1,.+1	;SAVE FLAGS
  6343	036636	312 04 0 00 040233 		CAME	AC,[400,,0]
  6344	036637	003 04 0 00 061601 		ER3	AC,61601	;C(AC) FAILED
  6345	036640	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6346	036641	004 05 0 00 061601 		ER4	AC+1,61601	;C(AC+1) FAILED
  6347	036642	255 10 0 00 036644 		JOV	.+2
  6348	036643	254 00 0 00 036645 		JRST	.+2
  6349	036644	013 03 0 00 061601 		ER13	AC-1,61601	;AROV WAS SET
  6350	036645	255 01 0 00 036647 		JFOV	.+2
  6351	036646	254 00 0 00 036650 		JRST	.+2
  6352	036647	013 03 0 00 061601 		ER13	AC-1,61601	;FOV WAS SET
  6353	036650	603 03 0 00 000100 		TLNE	AC-1,FXU
  6354	036651	013 03 0 00 061601 		ER13	AC-1,61601	;FXU WAS SET
  6355	036652	321 10 0 00 036632 		JUMPL	AC+4,S61600	;LOOP ON ERROR SWITCH
  6356
  6357	036653	254 02 1 00 041621 	S61700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6358						DMOVE	AC,[777000,,0
  6359	036654	120 04 0 00 041425 			    0,,1]
  6360						DFMP	AC,[577400,,0
  6361	036655	112 04 0 00 040061 			    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  6362	036656	265 03 0 00 036657 		JSP	AC-1,.+1	;SAVE FLAGS
  6363	036657	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6364	036660	003 04 0 00 061701 		ER3	AC,61701		;C(AC) FAILED
  6365	036661	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6366	036662	004 05 0 00 061701 		ER4	AC+1,61701	;C(AC+1) FAILED
  6367	036663	255 10 0 00 036665 		JOV	.+2
  6368	036664	013 03 0 00 061701 		ER13	AC-1,61701	;AROV WAS CLEAR
  6369	036665	255 01 0 00 036667 		JFOV	.+2
  6370	036666	013 03 0 00 061701 		ER13	AC-1,61701	;FOV WAS CLEAR
  6371	036667	607 03 0 00 000100 		TLNN	AC-1,FXU
  6372	036670	013 03 0 00 061701 		ER13	AC-1,61701	;FXU WAS CLEAR
  6373	036671	321 10 0 00 036653 		JUMPL	AC+4,S61700	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 28
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0148

  6374					SUBTTL	DFDV TEST-DOUBLE FLOATING POINT DIVIDE
  6375
  6376			000004			AC=4
  6377						SAVEAC	(1,1)^
  6378	036672	201 06 0 00 036672 		MOVEI	AC+2,.
  6379	036673	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  6380	036674	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6381	036675	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6382	036676	254 02 1 00 041622 		JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6383
  6384					;CHECK THAT DFDV AC,E DOES NOT ALTER C(E) OR C(E+1)
  6385					S70100:	DMOVE	AC,[200777,,-1
  6386	036677	120 04 0 00 040710 			-1,,-1]
  6387						DMOVE	AC+2,[200400,,0
  6388	036700	120 06 0 00 041623 			400000,,-1]
  6389	036701	113 04 0 00 000006 		DFDV	AC,AC+2
  6390	036702	312 06 0 00 040063 		CAME	AC+2,[200400,,0]
  6391	036703	005 06 0 00 070101 		ER5	AC+2,70101	;C(E) WAS ALTERED
  6392	036704	312 07 0 00 040713 		CAME	AC+3,[400000,,-1]
  6393	036705	006 07 0 00 070101 		ER6	AC+3,70101	;C(E+1) WAS ALTERED
  6394	036706	321 10 0 00 036677 		JUMPL	AC+4,S70100	;LOOP ON ERROR SWITCH
  6395
  6396						SDFD	702,200400,0,0,0,200400,0,0,0,201400,0,0,0^
  6397					S70200:	DMOVE	AC,[200400,,0
  6398	036707	120 04 0 00 040731 			0,,0]
  6399						DFDV	AC,[200400,,0
  6400	036710	113 04 0 00 040731 			0,,0]
  6401	036711	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6402	036712	003 04 0 00 070201 		ER3	AC,70201
  6403	036713	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6404	036714	004 05 0 00 070201 		ER4	AC+1,70201
  6405	036715	321 10 0 00 036707 		JUMPL	AC+4,S70200	;LOOP ON ERROR SWITCH^
  6406
  6407						SDFD	703,201400,0,0,0,201400,0,0,0,201400,0,0,0^
  6408					S70300:	DMOVE	AC,[201400,,0
  6409	036716	120 04 0 00 040057 			0,,0]
  6410						DFDV	AC,[201400,,0
  6411	036717	113 04 0 00 040057 			0,,0]
  6412	036720	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6413	036721	003 04 0 00 070301 		ER3	AC,70301
  6414	036722	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6415	036723	004 05 0 00 070301 		ER4	AC+1,70301
  6416	036724	321 10 0 00 036716 		JUMPL	AC+4,S70300	;LOOP ON ERROR SWITCH^
  6417
  6418						SDFD	704,202400,0,0,0,202400,0,0,0,201400,0,0,0^
  6419					S70400:	DMOVE	AC,[202400,,0
  6420	036725	120 04 0 00 040744 			0,,0]
  6421						DFDV	AC,[202400,,0
  6422	036726	113 04 0 00 040744 			0,,0]
  6423	036727	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6424	036730	003 04 0 00 070401 		ER3	AC,70401
  6425	036731	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6426	036732	004 05 0 00 070401 		ER4	AC+1,70401
  6427	036733	321 10 0 00 036725 		JUMPL	AC+4,S70400	;LOOP ON ERROR SWITCH^
  6428
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 28-1
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0149

  6429						SDFD	705,201400,0,0,0,200400,0,0,0,202400,0,0,0^
  6430					S70500:	DMOVE	AC,[201400,,0
  6431	036734	120 04 0 00 040057 			0,,0]
  6432						DFDV	AC,[200400,,0
  6433	036735	113 04 0 00 040731 			0,,0]
  6434	036736	312 04 0 00 040744 		CAME	AC,[202400,,0]
  6435	036737	003 04 0 00 070501 		ER3	AC,70501
  6436	036740	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6437	036741	004 05 0 00 070501 		ER4	AC+1,70501
  6438	036742	321 10 0 00 036734 		JUMPL	AC+4,S70500	;LOOP ON ERROR SWITCH^
  6439
  6440						SDFD	706,202400,0,0,0,202400,0,0,0,201400,0,0,0^
  6441					S70600:	DMOVE	AC,[202400,,0
  6442	036743	120 04 0 00 040744 			0,,0]
  6443						DFDV	AC,[202400,,0
  6444	036744	113 04 0 00 040744 			0,,0]
  6445	036745	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6446	036746	003 04 0 00 070601 		ER3	AC,70601
  6447	036747	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6448	036750	004 05 0 00 070601 		ER4	AC+1,70601
  6449	036751	321 10 0 00 036743 		JUMPL	AC+4,S70600	;LOOP ON ERROR SWITCH^
  6450
  6451						SDFD	707,203400,0,0,0,200400,0,0,0,204400,0,0,0^
  6452					S70700:	DMOVE	AC,[203400,,0
  6453	036752	120 04 0 00 041230 			0,,0]
  6454						DFDV	AC,[200400,,0
  6455	036753	113 04 0 00 040731 			0,,0]
  6456	036754	312 04 0 00 040747 		CAME	AC,[204400,,0]
  6457	036755	003 04 0 00 070701 		ER3	AC,70701
  6458	036756	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6459	036757	004 05 0 00 070701 		ER4	AC+1,70701
  6460	036760	321 10 0 00 036752 		JUMPL	AC+4,S70700	;LOOP ON ERROR SWITCH^
  6461
  6462						SDFD	710,200600,0,0,0,200400,0,0,0,201600,0,0,0^
  6463					S71000:	DMOVE	AC,[200600,,0
  6464	036761	120 04 0 00 040064 			0,,0]
  6465						DFDV	AC,[200400,,0
  6466	036762	113 04 0 00 040731 			0,,0]
  6467	036763	312 04 0 00 040743 		CAME	AC,[201600,,0]
  6468	036764	003 04 0 00 071001 		ER3	AC,71001
  6469	036765	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6470	036766	004 05 0 00 071001 		ER4	AC+1,71001
  6471	036767	321 10 0 00 036761 		JUMPL	AC+4,S71000	;LOOP ON ERROR SWITCH^
  6472
  6473						SDFD	711,200700,0,0,0,200400,0,0,0,201700,0,0,0^
  6474					S71100:	DMOVE	AC,[200700,,0
  6475	036770	120 04 0 00 040741 			0,,0]
  6476						DFDV	AC,[200400,,0
  6477	036771	113 04 0 00 040731 			0,,0]
  6478	036772	312 04 0 00 041031 		CAME	AC,[201700,,0]
  6479	036773	003 04 0 00 071101 		ER3	AC,71101
  6480	036774	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6481	036775	004 05 0 00 071101 		ER4	AC+1,71101
  6482	036776	321 10 0 00 036770 		JUMPL	AC+4,S71100	;LOOP ON ERROR SWITCH^
  6483
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 28-2
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0150

  6484						SDFD	712,200740,0,0,0,200400,0,0,0,201740,0,0,0^
  6485					S71200:	DMOVE	AC,[200740,,0
  6486	036777	120 04 0 00 041625 			0,,0]
  6487						DFDV	AC,[200400,,0
  6488	037000	113 04 0 00 040731 			0,,0]
  6489	037001	312 04 0 00 041627 		CAME	AC,[201740,,0]
  6490	037002	003 04 0 00 071201 		ER3	AC,71201
  6491	037003	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6492	037004	004 05 0 00 071201 		ER4	AC+1,71201
  6493	037005	321 10 0 00 036777 		JUMPL	AC+4,S71200	;LOOP ON ERROR SWITCH^
  6494
  6495						SDFD	713,200400,0,0,0,577400,0,0,0,576400,0,0,0^
  6496					S71300:	DMOVE	AC,[200400,,0
  6497	037006	120 04 0 00 040731 			0,,0]
  6498						DFDV	AC,[577400,,0
  6499	037007	113 04 0 00 040061 			0,,0]
  6500	037010	312 04 0 00 040764 		CAME	AC,[576400,,0]
  6501	037011	003 04 0 00 071301 		ER3	AC,71301
  6502	037012	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6503	037013	004 05 0 00 071301 		ER4	AC+1,71301
  6504	037014	321 10 0 00 037006 		JUMPL	AC+4,S71300	;LOOP ON ERROR SWITCH^
  6505
  6506						SDFD	714,200600,0,0,0,577400,0,0,0,576200,0,0,0^
  6507					S71400:	DMOVE	AC,[200600,,0
  6508	037015	120 04 0 00 040064 			0,,0]
  6509						DFDV	AC,[577400,,0
  6510	037016	113 04 0 00 040061 			0,,0]
  6511	037017	312 04 0 00 041142 		CAME	AC,[576200,,0]
  6512	037020	003 04 0 00 071401 		ER3	AC,71401
  6513	037021	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6514	037022	004 05 0 00 071401 		ER4	AC+1,71401
  6515	037023	321 10 0 00 037015 		JUMPL	AC+4,S71400	;LOOP ON ERROR SWITCH^
  6516
  6517						SDFD	715,177400,0,0,0,204400,0,0,0,174400,0,0,0^
  6518					S71500:	DMOVE	AC,[177400,,0
  6519	037024	120 04 0 00 040727 			0,,0]
  6520						DFDV	AC,[204400,,0
  6521	037025	113 04 0 00 040747 			0,,0]
  6522	037026	312 04 0 00 040077 		CAME	AC,[174400,,0]
  6523	037027	003 04 0 00 071501 		ER3	AC,71501
  6524	037030	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6525	037031	004 05 0 00 071501 		ER4	AC+1,71501
  6526	037032	321 10 0 00 037024 		JUMPL	AC+4,S71500	;LOOP ON ERROR SWITCH^
  6527
  6528						SDFD	716,576400,0,0,0,200600,0,0,0,576252,525252,252525,252525^
  6529					S71600:	DMOVE	AC,[576400,,0
  6530	037033	120 04 0 00 041036 			0,,0]
  6531						DFDV	AC,[200600,,0
  6532	037034	113 04 0 00 040064 			0,,0]
  6533	037035	312 04 0 00 041630 		CAME	AC,[576252,,525252]
  6534	037036	003 04 0 00 071601 		ER3	AC,71601
  6535	037037	312 05 0 00 041631 		CAME	AC+1,[252525,,252525]
  6536	037040	004 05 0 00 071601 		ER4	AC+1,71601
  6537	037041	321 10 0 00 037033 		JUMPL	AC+4,S71600	;LOOP ON ERROR SWITCH^
  6538
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 28-3
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0151

  6539						SDFD	717,600600,0,0,0,577400,0,0,0,177400,0,0,0^
  6540					S71700:	DMOVE	AC,[600600,,0
  6541	037042	120 04 0 00 041632 			0,,0]
  6542						DFDV	AC,[577400,,0
  6543	037043	113 04 0 00 040061 			0,,0]
  6544	037044	312 04 0 00 040066 		CAME	AC,[177400,,0]
  6545	037045	003 04 0 00 071701 		ER3	AC,71701
  6546	037046	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6547	037047	004 05 0 00 071701 		ER4	AC+1,71701
  6548	037050	321 10 0 00 037042 		JUMPL	AC+4,S71700	;LOOP ON ERROR SWITCH^
  6549
  6550						SDFD	720,600400,0,0,0,577400,0,0,0,200400,0,0,0^
  6551					S72000:	DMOVE	AC,[600400,,0
  6552	037051	120 04 0 00 040725 			0,,0]
  6553						DFDV	AC,[577400,,0
  6554	037052	113 04 0 00 040061 			0,,0]
  6555	037053	312 04 0 00 040063 		CAME	AC,[200400,,0]
  6556	037054	003 04 0 00 072001 		ER3	AC,72001
  6557	037055	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6558	037056	004 05 0 00 072001 		ER4	AC+1,72001
  6559	037057	321 10 0 00 037051 		JUMPL	AC+4,S72000	;LOOP ON ERROR SWITCH^
  6560
  6561						SDFD	721,377400,-1,0,0,577400,-1,0,0,777375,773771,373773,776004^
  6562					S72100:	DMOVE	AC,[377400,,-1
  6563	037060	120 04 0 00 041634 			0,,0]
  6564						DFDV	AC,[577400,,-1
  6565	037061	113 04 0 00 041636 			0,,0]
  6566	037062	312 04 0 00 041640 		CAME	AC,[777375,,773771]
  6567	037063	003 04 0 00 072101 		ER3	AC,72101
  6568	037064	312 05 0 00 041641 		CAME	AC+1,[373773,,776004]
  6569	037065	004 05 0 00 072101 		ER4	AC+1,72101
  6570	037066	321 10 0 00 037060 		JUMPL	AC+4,S72100	;LOOP ON ERROR SWITCH^
  6571
  6572						SDFD	722,201400,0,0,0,0,0,0,0,201400,0,0,0^
  6573					S72200:	DMOVE	AC,[201400,,0
  6574	037067	120 04 0 00 040057 			0,,0]
  6575						DFDV	AC,[0,,0
  6576	037070	113 04 0 00 040355 			0,,0]
  6577	037071	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6578	037072	003 04 0 00 072201 		ER3	AC,72201
  6579	037073	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6580	037074	004 05 0 00 072201 		ER4	AC+1,72201
  6581	037075	321 10 0 00 037067 		JUMPL	AC+4,S72200	;LOOP ON ERROR SWITCH^
  6582
  6583						SDFD	723,377400,0,0,0,400,0,0,0,200400,0,0,0^
  6584					S72300:	DMOVE	AC,[377400,,0
  6585	037076	120 04 0 00 041026 			0,,0]
  6586						DFDV	AC,[400,,0
  6587	037077	113 04 0 00 040716 			0,,0]
  6588	037100	312 04 0 00 040063 		CAME	AC,[200400,,0]
  6589	037101	003 04 0 00 072301 		ER3	AC,72301
  6590	037102	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6591	037103	004 05 0 00 072301 		ER4	AC+1,72301
  6592	037104	321 10 0 00 037076 		JUMPL	AC+4,S72300	;LOOP ON ERROR SWITCH^
  6593
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 28-4
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0152

  6594						SDFD	724,577775,0,0,0,577777,0,0,0,577775,0,0,0^
  6595					S72400:	DMOVE	AC,[577775,,0
  6596	037105	120 04 0 00 041642 			0,,0]
  6597						DFDV	AC,[577777,,0
  6598	037106	113 04 0 00 041644 			0,,0]
  6599	037107	312 04 0 00 041642 		CAME	AC,[577775,,0]
  6600	037110	003 04 0 00 072401 		ER3	AC,72401
  6601	037111	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6602	037112	004 05 0 00 072401 		ER4	AC+1,72401
  6603	037113	321 10 0 00 037105 		JUMPL	AC+4,S72400	;LOOP ON ERROR SWITCH^
  6604
  6605						SDFD	725,577774,0,0,0,577777,0,0,0,577774,0,0,0^
  6606					S72500:	DMOVE	AC,[577774,,0
  6607	037114	120 04 0 00 041646 			0,,0]
  6608						DFDV	AC,[577777,,0
  6609	037115	113 04 0 00 041644 			0,,0]
  6610	037116	312 04 0 00 041646 		CAME	AC,[577774,,0]
  6611	037117	003 04 0 00 072501 		ER3	AC,72501
  6612	037120	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6613	037121	004 05 0 00 072501 		ER4	AC+1,72501
  6614	037122	321 10 0 00 037114 		JUMPL	AC+4,S72500	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 29
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0153

  6615
  6616						SDFD	726,210777,-1,0,0,170750,0,0,0,221414,456123,150726,20623^
  6617					S72600:	DMOVE	AC,[210777,,-1
  6618	037123	120 04 0 00 041650 			0,,0]
  6619						DFDV	AC,[170750,,0
  6620	037124	113 04 0 00 041652 			0,,0]
  6621	037125	312 04 0 00 041654 		CAME	AC,[221414,,456123]
  6622	037126	003 04 0 00 072601 		ER3	AC,72601
  6623	037127	312 05 0 00 041655 		CAME	AC+1,[150726,,20623]
  6624	037130	004 05 0 00 072601 		ER4	AC+1,72601
  6625	037131	321 10 0 00 037123 		JUMPL	AC+4,S72600	;LOOP ON ERROR SWITCH^
  6626
  6627						SDFD	727,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^
  6628					S72700:	DMOVE	AC,[210777,,-1
  6629	037132	120 04 0 00 041650 			0,,0]
  6630						DFDV	AC,[170555,,0
  6631	037133	113 04 0 00 041656 			0,,0]
  6632	037134	312 04 0 00 041660 		CAME	AC,[221547,,63714]
  6633	037135	003 04 0 00 072701 		ER3	AC,72701
  6634	037136	312 05 0 00 041661 		CAME	AC+1,[314631,,463146]
  6635	037137	004 05 0 00 072701 		ER4	AC+1,72701
  6636	037140	321 10 0 00 037132 		JUMPL	AC+4,S72700	;LOOP ON ERROR SWITCH^
  6637
  6638						SDFD	730,577000,555555,0,0,200400,0,0,0,576000,555555,0,0^
  6639					S73000:	DMOVE	AC,[577000,,555555
  6640	037141	120 04 0 00 041662 			0,,0]
  6641						DFDV	AC,[200400,,0
  6642	037142	113 04 0 00 040731 			0,,0]
  6643	037143	312 04 0 00 041664 		CAME	AC,[576000,,555555]
  6644	037144	003 04 0 00 073001 		ER3	AC,73001
  6645	037145	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6646	037146	004 05 0 00 073001 		ER4	AC+1,73001
  6647	037147	321 10 0 00 037141 		JUMPL	AC+4,S73000	;LOOP ON ERROR SWITCH^
  6648
  6649						SDFD	731,210777,-1,-1,-1,170555,0,0,0,221547,63715,200263,431746^
  6650					S73100:	DMOVE	AC,[210777,,-1
  6651	037150	120 04 0 00 041665 			-1,,-1]
  6652						DFDV	AC,[170555,,0
  6653	037151	113 04 0 00 041656 			0,,0]
  6654	037152	312 04 0 00 041667 		CAME	AC,[221547,,63715]
  6655	037153	003 04 0 00 073101 		ER3	AC,73101
  6656	037154	312 05 0 00 041670 		CAME	AC+1,[200263,,431746]
  6657	037155	004 05 0 00 073101 		ER4	AC+1,73101
  6658	037156	321 10 0 00 037150 		JUMPL	AC+4,S73100	;LOOP ON ERROR SWITCH^
  6659
  6660						SDFD	732,210777,-3,0,0,170555,0,0,0,221547,63713,145545,545546^
  6661					S73200:	DMOVE	AC,[210777,,-3
  6662	037157	120 04 0 00 041671 			0,,0]
  6663						DFDV	AC,[170555,,0
  6664	037160	113 04 0 00 041656 			0,,0]
  6665	037161	312 04 0 00 041673 		CAME	AC,[221547,,63713]
  6666	037162	003 04 0 00 073201 		ER3	AC,73201
  6667	037163	312 05 0 00 041674 		CAME	AC+1,[145545,,545546]
  6668	037164	004 05 0 00 073201 		ER4	AC+1,73201
  6669	037165	321 10 0 00 037157 		JUMPL	AC+4,S73200	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 29-1
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0154

  6670
  6671						SDFD	733,377400,0,555000,0,100777,0,0,0,77400,400400,355355,355355^
  6672					S73300:	DMOVE	AC,[377400,,0
  6673	037166	120 04 0 00 041675 			555000,,0]
  6674						DFDV	AC,[100777,,0
  6675	037167	113 04 0 00 041677 			0,,0]
  6676	037170	312 04 0 00 041701 		CAME	AC,[77400,,400400]
  6677	037171	003 04 0 00 073301 		ER3	AC,73301
  6678	037172	312 05 0 00 041702 		CAME	AC+1,[355355,,355355]
  6679	037173	004 05 0 00 073301 		ER4	AC+1,73301
  6680	037174	321 10 0 00 037166 		JUMPL	AC+4,S73300	;LOOP ON ERROR SWITCH^
  6681
  6682						SDFD	735,200777,-1,0,0,200777,-2,0,0,201400,0,200000,400^
  6683					S73500:	DMOVE	AC,[200777,,-1
  6684	037175	120 04 0 00 041226 			0,,0]
  6685						DFDV	AC,[200777,,-2
  6686	037176	113 04 0 00 041440 			0,,0]
  6687	037177	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6688	037200	003 04 0 00 073501 		ER3	AC,73501
  6689	037201	312 05 0 00 041167 		CAME	AC+1,[200000,,400]
  6690	037202	004 05 0 00 073501 		ER4	AC+1,73501
  6691	037203	321 10 0 00 037175 		JUMPL	AC+4,S73500	;LOOP ON ERROR SWITCH^
  6692
  6693						SDFD	736,200777,-1,0,0,200777,-4,0,0,201400,1,200000,3000^
  6694					S73600:	DMOVE	AC,[200777,,-1
  6695	037204	120 04 0 00 041226 			0,,0]
  6696						DFDV	AC,[200777,,-4
  6697	037205	113 04 0 00 041446 			0,,0]
  6698	037206	312 04 0 00 041703 		CAME	AC,[201400,,1]
  6699	037207	003 04 0 00 073601 		ER3	AC,73601
  6700	037210	312 05 0 00 041704 		CAME	AC+1,[200000,,3000]
  6701	037211	004 05 0 00 073601 		ER4	AC+1,73601
  6702	037212	321 10 0 00 037204 		JUMPL	AC+4,S73600	;LOOP ON ERROR SWITCH^
  6703
  6704						SDFD	737,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^
  6705					S73700:	DMOVE	AC,[210777,,-1
  6706	037213	120 04 0 00 041650 			0,,0]
  6707						DFDV	AC,[170555,,0
  6708	037214	113 04 0 00 041656 			0,,0]
  6709	037215	312 04 0 00 041660 		CAME	AC,[221547,,63714]
  6710	037216	003 04 0 00 073701 		ER3	AC,73701
  6711	037217	312 05 0 00 041661 		CAME	AC+1,[314631,,463146]
  6712	037220	004 05 0 00 073701 		ER4	AC+1,73701
  6713	037221	321 10 0 00 037213 		JUMPL	AC+4,S73700	;LOOP ON ERROR SWITCH^
  6714
  6715						SDFD	741,210777,-1,0,0,170555,600000,0,0,221546,272702,301417,730634^
  6716					S74100:	DMOVE	AC,[210777,,-1
  6717	037222	120 04 0 00 041650 			0,,0]
  6718						DFDV	AC,[170555,,600000
  6719	037223	113 04 0 00 041705 			0,,0]
  6720	037224	312 04 0 00 041707 		CAME	AC,[221546,,272702]
  6721	037225	003 04 0 00 074101 		ER3	AC,74101
  6722	037226	312 05 0 00 041710 		CAME	AC+1,[301417,,730634]
  6723	037227	004 05 0 00 074101 		ER4	AC+1,74101
  6724	037230	321 10 0 00 037222 		JUMPL	AC+4,S74100	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 29-2
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0155

  6725
  6726						SDFD	742,210777,-1,0,0,170557,0,0,0,221545,111740,234200,262445^
  6727					S74200:	DMOVE	AC,[210777,,-1
  6728	037231	120 04 0 00 041650 			0,,0]
  6729						DFDV	AC,[170557,,0
  6730	037232	113 04 0 00 041711 			0,,0]
  6731	037233	312 04 0 00 041713 		CAME	AC,[221545,,111740]
  6732	037234	003 04 0 00 074201 		ER3	AC,74201
  6733	037235	312 05 0 00 041714 		CAME	AC+1,[234200,,262445]
  6734	037236	004 05 0 00 074201 		ER4	AC+1,74201
  6735	037237	321 10 0 00 037231 		JUMPL	AC+4,S74200	;LOOP ON ERROR SWITCH^
  6736
  6737						SDFD	743,210777,-1,0,0,170560,0,0,0,221544,131025,220544,131026^
  6738					S74300:	DMOVE	AC,[210777,,-1
  6739	037240	120 04 0 00 041650 			0,,0]
  6740						DFDV	AC,[170560,,0
  6741	037241	113 04 0 00 041715 			0,,0]
  6742	037242	312 04 0 00 041717 		CAME	AC,[221544,,131025]
  6743	037243	003 04 0 00 074301 		ER3	AC,74301
  6744	037244	312 05 0 00 041720 		CAME	AC+1,[220544,,131026]
  6745	037245	004 05 0 00 074301 		ER4	AC+1,74301
  6746	037246	321 10 0 00 037240 		JUMPL	AC+4,S74300	;LOOP ON ERROR SWITCH^
  6747
  6748						SDFD	744,377400,0,0,0,100777,0,0,0,77400,400400,200200,200200^
  6749					S74400:	DMOVE	AC,[377400,,0
  6750	037247	120 04 0 00 041026 			0,,0]
  6751						DFDV	AC,[100777,,0
  6752	037250	113 04 0 00 041677 			0,,0]
  6753	037251	312 04 0 00 041701 		CAME	AC,[77400,,400400]
  6754	037252	003 04 0 00 074401 		ER3	AC,74401
  6755	037253	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6756	037254	004 05 0 00 074401 		ER4	AC+1,74401
  6757	037255	321 10 0 00 037247 		JUMPL	AC+4,S74400	;LOOP ON ERROR SWITCH^
  6758
  6759						SDFD	745,376400,0,0,0,100777,0,0,0,76400,400400,200200,200200^
  6760					S74500:	DMOVE	AC,[376400,,0
  6761	037256	120 04 0 00 041722 			0,,0]
  6762						DFDV	AC,[100777,,0
  6763	037257	113 04 0 00 041677 			0,,0]
  6764	037260	312 04 0 00 041724 		CAME	AC,[76400,,400400]
  6765	037261	003 04 0 00 074501 		ER3	AC,74501
  6766	037262	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6767	037263	004 05 0 00 074501 		ER4	AC+1,74501
  6768	037264	321 10 0 00 037256 		JUMPL	AC+4,S74500	;LOOP ON ERROR SWITCH^
  6769
  6770						SDFD	746,375400,0,0,0,100777,0,0,0,75400,400400,200200,200200^
  6771					S74600:	DMOVE	AC,[375400,,0
  6772	037265	120 04 0 00 041725 			0,,0]
  6773						DFDV	AC,[100777,,0
  6774	037266	113 04 0 00 041677 			0,,0]
  6775	037267	312 04 0 00 041727 		CAME	AC,[75400,,400400]
  6776	037270	003 04 0 00 074601 		ER3	AC,74601
  6777	037271	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6778	037272	004 05 0 00 074601 		ER4	AC+1,74601
  6779	037273	321 10 0 00 037265 		JUMPL	AC+4,S74600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 29-3
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0156

  6780
  6781						SDFD	747,374400,0,0,0,100777,0,0,0,74400,400400,200200,200200^
  6782					S74700:	DMOVE	AC,[374400,,0
  6783	037274	120 04 0 00 041730 			0,,0]
  6784						DFDV	AC,[100777,,0
  6785	037275	113 04 0 00 041677 			0,,0]
  6786	037276	312 04 0 00 041732 		CAME	AC,[74400,,400400]
  6787	037277	003 04 0 00 074701 		ER3	AC,74701
  6788	037300	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6789	037301	004 05 0 00 074701 		ER4	AC+1,74701
  6790	037302	321 10 0 00 037274 		JUMPL	AC+4,S74700	;LOOP ON ERROR SWITCH^
  6791
  6792						SDFD	750,373400,0,0,0,100777,0,0,0,73400,400400,200200,200200^
  6793					S75000:	DMOVE	AC,[373400,,0
  6794	037303	120 04 0 00 041733 			0,,0]
  6795						DFDV	AC,[100777,,0
  6796	037304	113 04 0 00 041677 			0,,0]
  6797	037305	312 04 0 00 041735 		CAME	AC,[73400,,400400]
  6798	037306	003 04 0 00 075001 		ER3	AC,75001
  6799	037307	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6800	037310	004 05 0 00 075001 		ER4	AC+1,75001
  6801	037311	321 10 0 00 037303 		JUMPL	AC+4,S75000	;LOOP ON ERROR SWITCH^
  6802
  6803						SDFD	751,372400,0,0,0,100777,0,0,0,72400,400400,200200,200200^
  6804					S75100:	DMOVE	AC,[372400,,0
  6805	037312	120 04 0 00 041736 			0,,0]
  6806						DFDV	AC,[100777,,0
  6807	037313	113 04 0 00 041677 			0,,0]
  6808	037314	312 04 0 00 041740 		CAME	AC,[72400,,400400]
  6809	037315	003 04 0 00 075101 		ER3	AC,75101
  6810	037316	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6811	037317	004 05 0 00 075101 		ER4	AC+1,75101
  6812	037320	321 10 0 00 037312 		JUMPL	AC+4,S75100	;LOOP ON ERROR SWITCH^
  6813
  6814						SDFD	752,210777,0,0,0,210777,0,0,0,201400,0,0,0^
  6815					S75200:	DMOVE	AC,[210777,,0
  6816	037321	120 04 0 00 041741 			0,,0]
  6817						DFDV	AC,[210777,,0
  6818	037322	113 04 0 00 041741 			0,,0]
  6819	037323	312 04 0 00 040057 		CAME	AC,[201400,,0]
  6820	037324	003 04 0 00 075201 		ER3	AC,75201
  6821	037325	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6822	037326	004 05 0 00 075201 		ER4	AC+1,75201
  6823	037327	321 10 0 00 037321 		JUMPL	AC+4,S75200	;LOOP ON ERROR SWITCH^
  6824
  6825						SDFD	753,200400,0,0,0,210777,0,0,0,170400,400400,200200,200200^
  6826					S75300:	DMOVE	AC,[200400,,0
  6827	037330	120 04 0 00 040731 			0,,0]
  6828						DFDV	AC,[210777,,0
  6829	037331	113 04 0 00 041741 			0,,0]
  6830	037332	312 04 0 00 041743 		CAME	AC,[170400,,400400]
  6831	037333	003 04 0 00 075301 		ER3	AC,75301
  6832	037334	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6833	037335	004 05 0 00 075301 		ER4	AC+1,75301
  6834	037336	321 10 0 00 037330 		JUMPL	AC+4,S75300	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 29-4
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0157

  6835
  6836						SDFD	754,371400,0,0,0,100777,0,0,0,71400,400400,200200,200200^
  6837					S75400:	DMOVE	AC,[371400,,0
  6838	037337	120 04 0 00 041744 			0,,0]
  6839						DFDV	AC,[100777,,0
  6840	037340	113 04 0 00 041677 			0,,0]
  6841	037341	312 04 0 00 041746 		CAME	AC,[71400,,400400]
  6842	037342	003 04 0 00 075401 		ER3	AC,75401
  6843	037343	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6844	037344	004 05 0 00 075401 		ER4	AC+1,75401
  6845	037345	321 10 0 00 037337 		JUMPL	AC+4,S75400	;LOOP ON ERROR SWITCH^
  6846
  6847						SDFD	755,370400,0,0,0,100777,0,0,0,070400,400400,200200,200200^
  6848					S75500:	DMOVE	AC,[370400,,0
  6849	037346	120 04 0 00 041747 			0,,0]
  6850						DFDV	AC,[100777,,0
  6851	037347	113 04 0 00 041677 			0,,0]
  6852	037350	312 04 0 00 041751 		CAME	AC,[070400,,400400]
  6853	037351	003 04 0 00 075501 		ER3	AC,75501
  6854	037352	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6855	037353	004 05 0 00 075501 		ER4	AC+1,75501
  6856	037354	321 10 0 00 037346 		JUMPL	AC+4,S75500	;LOOP ON ERROR SWITCH^
  6857
  6858						SDFD	756,367400,0,0,0,100777,0,0,0,67400,400400,200200,200200^
  6859					S75600:	DMOVE	AC,[367400,,0
  6860	037355	120 04 0 00 041752 			0,,0]
  6861						DFDV	AC,[100777,,0
  6862	037356	113 04 0 00 041677 			0,,0]
  6863	037357	312 04 0 00 041754 		CAME	AC,[67400,,400400]
  6864	037360	003 04 0 00 075601 		ER3	AC,75601
  6865	037361	312 05 0 00 041721 		CAME	AC+1,[200200,,200200]
  6866	037362	004 05 0 00 075601 		ER4	AC+1,75601
  6867	037363	321 10 0 00 037355 		JUMPL	AC+4,S75600	;LOOP ON ERROR SWITCH^
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 30
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0158

  6868					;TEST LEAST SIGNIFICANT BIT DIFFERENCE, GET A DIFFERENT ANSWER
  6869					;ON THE KS-10 WITH MICROCODE 104 AND GREATER.
  6870
  6871					S73400:	DMOVE	AC,[373400,,0
  6872	037364	120 04 0 00 041755 			200777,,0]
  6873						DFDV	AC,[100777,,0
  6874	037365	113 04 0 00 041677 			0,,0]
  6875	037366	336 00 0 00 030524 		SKIPN	SM10
  6876	037367	254 00 0 00 037405 		JRST	S73405		;KL10
  6877
  6878	037370	312 04 0 00 041757 		CAME	AC,[73400,,400401]
  6879	037371	003 04 0 00 073401 		ER3	AC,73401
  6880
  6881	037372	332 00 0 00 030037 		SKIPE	USER		;USER MODE ?
  6882	037373	254 00 0 00 037412 		JRST	S73408		;YES, ALLOW EITHER ANSWER
  6883	037374	7 000 00 0 00 000000 		BLKI	APR,0		;NO, GET KS10 CPU ID INFO
  6884	037375	207 00 0 00 000000 		MOVSS			;ISOLATE MICROCODE VERSION
  6885	037376	405 00 0 00 000777 		ANDI	0,777
  6886	037377	305 00 0 00 000104 		CAIGE	0,104		;104 OR GREATER ?
  6887	037400	254 00 0 00 037417 		JRST	S73409		;NO
  6888
  6889	037401	312 05 0 00 041760 		CAME	AC+1,[1400,,400401]
  6890	037402	004 05 0 00 073401 		ER4	AC+1,73401
  6891
  6892	037403	321 10 0 00 037364 	S73406:	JUMPL	AC+4,S73400	;LOOP ON ERROR SWITCH
  6893	037404	254 00 0 00 037422 		JRST	S73407
  6894
  6895	037405	312 04 0 00 041757 	S73405:	CAME	AC,[73400,,400401] ;CHECK KL10 ANSWER IF RUNNING ON KL10
  6896	037406	003 04 0 00 073401 		ER3	AC,73401
  6897	037407	312 05 0 00 041760 		CAME	AC+1,[1400,,400401]
  6898	037410	004 05 0 00 073401 		ER4	AC+1,73401
  6899	037411	254 00 0 00 037403 		JRST	S73406
  6900
  6901	037412	316 05 0 00 041761 	S73408:	CAMN	AC+1,[1400,,400400] ;ALLOW EITHER ANSWER ON KS10 IN USER MODE
  6902	037413	254 00 0 00 037403 		JRST	S73406
  6903	037414	312 05 0 00 041760 		CAME	AC+1,[1400,,400401]
  6904	037415	004 05 0 00 073401 		ER4	AC+1,73401
  6905	037416	254 00 0 00 037403 		JRST	S73406
  6906
  6907	037417	312 05 0 00 041761 	S73409:	CAME	AC+1,[1400,,400400] ;KS10, EXEC, MICROCODE LESS THAN 104
  6908	037420	004 05 0 00 073401 		ER4	AC+1,73401
  6909	037421	254 00 0 00 037403 		JRST	S73406
  6910
  6911	037422	254 00 0 00 037423 	S73407:	JRST	.+1
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 31
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0159

  6912					;TEST AROV, FOV AND FXU FLAGS-DFDV
  6913
  6914			000004			AC=4
  6915						SAVEAC	(1,1)^
  6916	037423	201 06 0 00 037423 		MOVEI	AC+2,.
  6917	037424	202 06 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  6918	037425	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  6919	037426	202 06 0 00 042157 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  6920
  6921	037427	254 02 1 00 041762 	S75700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6922						DMOVE	AC,[376777,,-1
  6923	037430	120 04 0 00 041763 				-1,,-1]
  6924						DFDV	AC,[200400,,0
  6925	037431	113 04 0 00 040731 				0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  6926	037432	265 03 0 00 037433 		JSP	AC-1,.+1	;SAVE FLAGS
  6927	037433	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6928	037434	003 04 0 00 075701 		ER3	AC,75701	;C(AC) FAILED
  6929	037435	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6930	037436	004 05 0 00 075701 		ER4	AC+1,75701	;C(AC+1)FAILED
  6931	037437	255 10 0 00 037441 		JOV	.+2
  6932	037440	254 00 0 00 037442 		JRST	.+2
  6933	037441	013 03 0 00 075701 		ER13	AC-1,75701	;AROV WAS SET
  6934	037442	255 01 0 00 037444 		JFOV	.+2
  6935	037443	254 00 0 00 037445 		JRST	.+2
  6936	037444	013 03 0 00 075701 		ER13	AC-1,75701	;FOV WAS SET
  6937	037445	603 03 0 00 000100 		TLNE	AC-1,FXU
  6938	037446	013 03 0 00 075701 		ER13	AC-1,75701	;FXU WAS SET
  6939	037447	321 10 0 00 037427 		JUMPL	AC+4,S75700	;LOOP ON ERROR SWITCH
  6940
  6941	037450	254 02 1 00 041765 	S76000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6942						DMOVE	AC,[377400,,0
  6943	037451	120 04 0 00 041026 				0,,0]
  6944						DFDV	AC,[200400,,0
  6945	037452	113 04 0 00 040731 				0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  6946	037453	265 03 0 00 037454 		JSP	AC-1,.+1	;SAVE FLAGS
  6947	037454	312 04 0 00 040233 		CAME	AC,[400,,0]
  6948	037455	003 04 0 00 076001 		ER3	AC,76001	;C(AC) FAILED
  6949	037456	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6950	037457	004 05 0 00 076001 		ER4	AC+1,76001	;C(AC+1) FAILED
  6951	037460	255 10 0 00 037462 		JOV	.+2
  6952	037461	013 03 0 00 076001 		ER13	AC-1,76001	;AROV WAS CLEAR
  6953	037462	255 01 0 00 037464 		JFOV	.+2
  6954	037463	013 03 0 00 076001 		ER13	AC-1,76001	;FOV WAS CLEAR
  6955	037464	603 03 0 00 000100 		TLNE	AC-1,FXU
  6956	037465	013 03 0 00 076001 		ER13	AC-1,76001	;FXU WAS SET
  6957	037466	321 10 0 00 037450 		JUMPL	AC+4,S76000	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 32
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0160

  6958	037467	254 02 1 00 041766 	S76100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6959						DMOVE	AC,[1400,,0
  6960	037470	120 04 0 00 041607 				0,,0]
  6961						DFDV	AC,[202400,,0
  6962	037471	113 04 0 00 040744 				0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  6963	037472	265 03 0 00 037473 		JSP	AC-1,.+1	;SAVE FLAGS
  6964	037473	312 04 0 00 040233 		CAME	AC,[400,,0]
  6965	037474	003 04 0 00 076101 		ER3	AC,76101	;C(AC) FAILED
  6966	037475	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  6967	037476	004 05 0 00 076101 		ER4	AC+1,76101	;C(AC+1) FAILED
  6968	037477	255 10 0 00 037501 		JOV	.+2
  6969	037500	254 00 0 00 037502 		JRST	.+2
  6970	037501	013 03 0 00 076101 		ER13	AC-1,76101	;AROV WAS SET
  6971	037502	255 01 0 00 037504 		JFOV	.+2
  6972	037503	254 00 0 00 037505 		JRST	.+2
  6973	037504	013 03 0 00 076101 		ER13	AC-1,76101	;FOV WAS SET
  6974	037505	603 03 0 00 000100 		TLNE	AC-1,FXU
  6975	037506	013 03 0 00 076101 		ER13	AC-1,76101	;FXU WAS SET
  6976	037507	321 10 0 00 037467 		JUMPL	AC+4,S76100	;LOOP ON ERROR SWITCH
  6977
  6978	037510	254 02 1 00 041767 	S76200:JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6979						DMOVE	AC,[777,,-1
  6980	037511	120 04 0 00 041406 				-1,,-1]
  6981						DFDV	AC,[202400,,0
  6982	037512	113 04 0 00 040744 				0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  6983	037513	265 03 0 00 037514 		JSP	AC-1,.+1	;SAVE FLAGS
  6984	037514	312 04 0 00 040357 		CAME	AC,[377777,,-1]
  6985	037515	003 04 0 00 076201 		ER3	AC,76201	;C(AC) FAILED
  6986	037516	312 05 0 00 040357 		CAME	AC+1,[377777,,-1]
  6987	037517	004 05 0 00 076201 		ER4	AC+1,76201	;C(AC+1) FAILED
  6988	037520	255 10 0 00 037522 		JOV	.+2
  6989	037521	013 03 0 00 076201 		ER13	AC-1,76201	;AROV WAS CLEAR
  6990	037522	255 01 0 00 037524 		JFOV	.+2
  6991	037523	013 03 0 00 076201 		ER13	AC-1,76201	;FOV WAS CLEAR
  6992	037524	607 03 0 00 000100 		TLNN	AC-1,FXU
  6993	037525	013 03 0 00 076201 		ER13	AC-1,76201	;FXU WAS CLEAR
  6994	037526	321 10 0 00 037510 		JUMPL	AC+4,S76200	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 33
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0161

  6995	037527	254 02 1 00 041770 	S76300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  6996						DMOVE	AC,[376777,,-1
  6997	037530	120 04 0 00 041763 				-1,,-1]
  6998						DFDV	AC,[577400,,0
  6999	037531	113 04 0 00 040061 				0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  7000	037532	265 03 0 00 037533 		JSP	AC-1,.+1	;SAVE FLAGS
  7001	037533	312 04 0 00 041363 		CAME	AC,[400000,,0]
  7002	037534	003 04 0 00 076301 		ER3	AC,76301	;C(AC) FAILED
  7003	037535	312 05 0 00 040351 		CAME	AC+1,[0,,1]
  7004	037536	004 05 0 00 076301 		ER4	AC+1,76301	;C(AC+1) FAILED
  7005	037537	255 10 0 00 037541 		JOV	.+2
  7006	037540	254 00 0 00 037542 		JRST	.+2
  7007	037541	013 03 0 00 076301 		ER13	AC-1,76301	;AROV WAS SET
  7008	037542	255 01 0 00 037544 		JFOV	.+2
  7009	037543	254 00 0 00 037545 		JRST	.+2
  7010	037544	013 03 0 00 076301 		ER13	AC-1,76301	;FOV WAS SET
  7011	037545	603 03 0 00 000100 		TLNE	AC-1,FXU
  7012	037546	013 03 0 00 076301 		ER13	AC-1,76301	;FXU WAS SET
  7013	037547	321 10 0 00 037527 		JUMPL	AC+4,S76300	;LOOP ON ERROR SWITCH
  7014
  7015	037550	254 02 1 00 041771 	S76400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  7016						DMOVE	AC,[377400,,0
  7017	037551	120 04 0 00 041026 				0,,0]
  7018						DFDV	AC,[777400,,0
  7019	037552	113 04 0 00 041422 				0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
  7020	037553	265 03 0 00 037554 		JSP	AC-1,.+1	;SAVE FLAGS
  7021	037554	312 04 0 00 040061 		CAME	AC,[577400,,0]
  7022	037555	003 04 0 00 076401 		ER3	AC,76401	;C(AC) FAILED
  7023	037556	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  7024	037557	004 05 0 00 076401 		ER4	AC+1,76401	;C(AC+1) FAILED
  7025	037560	255 10 0 00 037562 		JOV	.+2
  7026	037561	013 03 0 00 076401 		ER13	AC-1,76401	;AROV WAS CLEAR
  7027	037562	255 01 0 00 037564 		JFOV	.+2
  7028	037563	013 03 0 00 076401 		ER13	AC-1,76401	;FOV WAS CLEAR
  7029	037564	603 03 0 00 000100 		TLNE	AC-1,FXU
  7030	037565	013 03 0 00 076401 		ER13	AC-1,76401	;FXU WAS SET
  7031	037566	321 10 0 00 037550 		JUMPL	AC+4,S76400	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 34
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0162

  7032	037567	254 02 1 00 041772 	S76500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  7033						DMOVE	AC,[1400,,0
  7034	037570	120 04 0 00 041607 				0,,0]
  7035						DFDV	AC,[575400,,0
  7036	037571	113 04 0 00 041435 				0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
  7037	037572	265 03 0 00 037573 		JSP	AC-1,.+1	;SAVE FLAGS
  7038	037573	312 04 0 00 041365 		CAME	AC,[777400,,0]
  7039	037574	003 04 0 00 076501 		ER3	AC,76501	;C(AC) FAILED
  7040	037575	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  7041	037576	004 05 0 00 076501 		ER4	AC+1,76501	;C(AC+1) FAILED
  7042	037577	255 10 0 00 037601 		JOV	.+2
  7043	037600	254 00 0 00 037602 		JRST	.+2
  7044	037601	013 03 0 00 076501 		ER13	AC-1,76501	;AROV WAS SET
  7045	037602	255 01 0 00 037604 		JFOV	.+2
  7046	037603	254 00 0 00 037605 		JRST	.+2
  7047	037604	013 03 0 00 076501 		ER13	AC-1,76501	;FOV WAS SET
  7048	037605	603 03 0 00 000100 		TLNE	AC-1,FXU
  7049	037606	013 03 0 00 076501 		ER13	AC-1,76501	;FXU WAS SET
  7050	037607	321 10 0 00 037567 		JUMPL	AC+4,S76500	;LOOP ON ERROR SWITCH
  7051
  7052	037610	254 02 1 00 041773 	S76600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  7053						DMOVE	AC,[777,,-1
  7054	037611	120 04 0 00 041406 				-1,,-1]
  7055						DFDV	AC,[575400,,0
  7056	037612	113 04 0 00 041435 				0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
  7057	037613	265 03 0 00 037614 		JSP	AC-1,.+1	;SAVE FLAGS
  7058	037614	312 04 0 00 041363 		CAME	AC,[400000,,0]
  7059	037615	003 04 0 00 076601 		ER3	AC,76601	;C(AC) FAILED
  7060	037616	312 05 0 00 040351 		CAME	AC+1,[0,,1]
  7061	037617	004 05 0 00 076601 		ER4	AC+1,76601	;C(AC+1) FAILED
  7062	037620	255 10 0 00 037622 		JOV	.+2
  7063	037621	013 03 0 00 076601 		ER13	AC-1,76601	;AROV WAS CLEAR
  7064	037622	255 01 0 00 037624 		JFOV	.+2
  7065	037623	013 03 0 00 076601 		ER13	AC-1,76601	;FOV WAS CLEAR
  7066	037624	607 03 0 00 000100 		TLNN	AC-1,FXU
  7067	037625	013 03 0 00 076601 		ER13	AC-1,76601	;FXU WAS CLEAR
  7068	037626	321 10 0 00 037610 		JUMPL	AC+4,S76600	;LOOP ON ERROR SWITCH
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 35
DSKCE1	MAC	21-Jun-78 10:46		DFDV TEST-DOUBLE FLOATING POINT DIVIDE                                             SEQ 0163

  7069					;TEST AROV,FOV AND DCK FLAGS-DFDV
  7070
  7071	037627	254 02 1 00 041774 	S76700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  7072						DMOVE	AC,[201400,,0
  7073	037630	120 04 0 00 040057 				0,,0]
  7074						DFDV	AC,[0,,0
  7075	037631	113 04 0 00 040355 				0,,0]	;EXPECT AROV,FOV,DCK=1,1,1
  7076	037632	265 03 0 00 037633 		JSP	AC-1,.+1	;SAVE FLAGS
  7077	037633	312 04 0 00 040057 		CAME	AC,[201400,,0]
  7078	037634	003 04 0 00 076701 		ER3	AC,76701	;C(AC) FAILED
  7079	037635	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  7080	037636	004 05 0 00 076701 		ER4	AC+1,76701	;C(AC+1) FAILED
  7081	037637	255 10 0 00 037641 		JOV	.+2
  7082	037640	013 03 0 00 076701 		ER13	AC-1,76701	;AROV WAS CLEAR
  7083	037641	255 01 0 00 037643 		JFOV	.+2
  7084	037642	013 03 0 00 076701 		ER13	AC-1,76701	;FOV WAS CLEAR
  7085	037643	607 03 0 00 000040 		TLNN	AC-1,DCK
  7086	037644	013 03 0 00 076701 		ER13	AC-1,76701	;DCK WAS CLEAR
  7087	037645	321 10 0 00 037627 		JUMPL	AC+4,S76700	;LOOP ON ERROR SWITCH
  7088
  7089					;TEST AROV,FOV AND DCK FLAGS-DFDV
  7090
  7091	037646	254 02 1 00 041775 	S77000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
  7092						DMOVE	AC,[201400,,0
  7093	037647	120 04 0 00 040057 				0,,0]
  7094						DFDV	AC,[201200,,0
  7095	037650	113 04 0 00 041776 				0,,0]	;EXPECT AROV,FOV,DCK=1,1,1
  7096	037651	265 03 0 00 037652 		JSP	AC-1,.+1	;SAVE FLAGS
  7097	037652	312 04 0 00 040057 		CAME	AC,[201400,,0]
  7098	037653	003 04 0 00 077001 		ER3	AC,77001	;C(AC) FAILED
  7099	037654	312 05 0 00 040060 		CAME	AC+1,[0,,0]
  7100	037655	004 05 0 00 077001 		ER4	AC+1,77001	;C(AC+1) FAILED
  7101	037656	255 10 0 00 037660 		JOV	.+2
  7102	037657	013 03 0 00 077001 		ER13	AC-1,77001	;AROV WAS CLEAR
  7103	037660	255 01 0 00 037662 		JFOV	.+2
  7104	037661	013 03 0 00 077001 		ER13	AC-1,77001	;FOV WAS CLEAR
  7105	037662	607 03 0 00 000040 		TLNN	AC-1,DCK
  7106	037663	013 03 0 00 077001 		ER13	AC-1,77001	;DCK WAS CLEAR
  7107	037664	321 10 0 00 037646 		JUMPL	AC+4,S77000	;LOOP ON ERROR SWITCH
  7108
  7109	037665	254 00 0 00 030057 		JRST	BEGEND
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
UUOERR	KSM	28-Mar-78 16:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0164

  7110					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
  7111
  7112					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  7113
  7114	037666	202 00 0 00 042163 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  7115	037667	202 01 0 00 042164 		MOVEM	1,%ERAC1#	;SAVE AC1
  7116	037670	202 02 0 00 042165 		MOVEM	2,%ERAC2#	;SAVE AC2
  7117	037671	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  7118	037672	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  7119	037673	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  7120	037674	350 00 0 00 042160 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  7121	037675	200 00 0 00 042160 		MOVE	0,MICNT
  7122	037676	504 00 0 00 030114 		HRL	0,$SVUPC
  7123	037677	402 00 0 00 042161 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  7124	037700	037 10 0 00 000002 		SWITCH
  7125	037701	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  7126	037702	254 00 0 00 040014 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  7127	037703	200 01 0 00 030113 		MOVE	1,$SVUUO
  7128	037704	242 01 0 00 777745 		LSH	1,-^D27
  7129	037705	202 01 0 00 042162 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  7130	037706	200 00 0 00 042163 		MOVE	0,%ERAC0
  7131	037707	200 01 0 00 042164 		MOVE	1,%ERAC1
  7132	037710	335 00 1 00 042157 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  7133	037711	254 00 0 00 040046 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  7134	037712	402 00 0 00 042160 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  7135	037713	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  7136	037714	254 00 0 00 037720 		JRST	.+4		;NO, DON'T NEED TITLE
  7137	037715	336 00 0 00 042166 		SKIPN	%ERFST#		;FIRST ERROR ?
  7138	037716	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  7139	037717	476 00 0 00 042166 		SETOM	%ERFST
  7140	037720	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  7141	037721	254 00 0 00 037725 		JRST	.+4		;YES
  7142						PMSG	<^TEST PASS COUNT = >^
  7143	037722	037 02 0 00 042000 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  7144	037723	200 00 0 00 030047 		MOVE	PASCNT
  7145	037724	037 15 0 00 000000 		PNTDEC
  7146						PMSG	<^PC =   >^
  7147	037725	037 02 0 00 042004 		PSIXM	[SIXBIT\^PC =   _\]^
  7148	037726	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  7149	037727	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  7150	037730	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  7151						XLIST
  7152						IFDEF	ERDIAG,<LIST
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 2
UUOERR	KSM	28-Mar-78 16:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0165

  7153					;DIAGNOSTIC FORMAT ERROR PRINTER
  7154
  7155					;PRINT RESULT
  7156
  7157	037731				%ERMS2:	PMSG	<^RESULT  = >^
  7158	037731	037 02 0 00 042006 		PSIXM	[SIXBIT\^RESULT  = _\]^
  7159	037732	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
  7160	037733	242 01 0 00 777751 		LSH	1,-27
  7161	037734	405 01 0 00 000017 		ANDI	1,17
  7162	037735	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7163	037736	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
  7164	037737	200 00 0 01 042163 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7165	037740	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
  7166
  7167	037741	200 00 0 00 030046 		MOVE	CONSW
  7168	037742	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
  7169	037743	254 00 0 00 040012 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
  7170
  7171					;PRINT FAILURE DESCRIPTOR
  7172
  7173	037744	200 01 0 00 042162 		MOVE	1,%ACS1A	;GET UUO NUMBER
  7174	037745	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
  7175	037746	254 00 0 00 037752 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
  7176	037747	037 00 0 00 030242 		PCRL
  7177	037750	200 00 0 01 037776 		MOVE	%FLTTB(1)
  7178	037751	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
  7179
  7180					;PRINT FAULT NUMBER
  7181
  7182	037752				%ERMS3:	PMSG	<^FAULT NUMBER = >^
  7183	037752	037 02 0 00 042010 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
  7184	037753	201 00 0 00 037775 		MOVEI	TLET
  7185	037754	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 3
UUOERR	KSM	28-Mar-78 16:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0166

  7186
  7187	037755	550 00 0 00 030113 		HRRZ	$SVUUO
  7188	037756	602 00 0 00 700000 		TRNE	700000
  7189	037757	254 00 0 00 037773 		JRST	%ER6X
  7190	037760	602 00 0 00 070000 		TRNE	070000
  7191	037761	254 00 0 00 037771 		JRST	%ER5X
  7192	037762	602 00 0 00 007000 		TRNE	007000
  7193	037763	254 00 0 00 037767 		JRST	%ER4X
  7194	037764	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
  7195	037765	037 00 0 00 030242 	%ER7X:	PCRL
  7196	037766	254 00 0 00 040012 		JRST	%ERMORE
  7197
  7198	037767	037 04 0 00 000000 	%ER4X:	PNT4
  7199	037770	254 00 0 00 037765 		JRST	%ER7X
  7200	037771	037 05 0 00 000000 	%ER5X:	PNT5
  7201	037772	254 00 0 00 037765 		JRST	%ER7X
  7202	037773	037 06 0 00 000000 	%ER6X:	PNT6
  7203	037774	254 00 0 00 037765 		JRST	%ER7X
  7204
  7205					;FAILURE DESCRIPTORS
  7206
  7207	037775	000000	000000		TLET:	0			;TEST LETTER
  7208	037776	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
  7209	037777	000000	040060		%NODES:	[0]			;NO DESCRIPTOR
  7210	040000	000000	040060		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
  7211	040001	000000	042013		$ACF:	[ASCIZ/C(AC) FAILED/]
  7212	040002	000000	042016		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
  7213	040003	000000	042021		%EF:	[ASCIZ/C(E) FAILED/]
  7214	040004	000000	042024		%E1F:	[ASCIZ/C(E+1) FAILED/]
  7215	040005	000000	042027		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
  7216	040006	000000	042033		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
  7217	040007	000000	042037		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
  7218	040010	000000	042043		%EEF:	[ASCIZ/C(C(E)) FAILED/]
  7219	040011	000000	042046		%FF:	[ASCIZ/FLAG FAILED/]
  7220					>
  7221						XLIST
  7222						LIST
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 8
UUOERR	KSM	28-Mar-78 16:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0167

  7223					;RESTORE AC'S AND RETURN OR HALT
  7224
  7225	040012	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  7226	040013	037 10 0 00 000002 		SWITCH
  7227
  7228	040014	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  7229	040015	254 00 0 00 040021 		JRST	.+4		;NONE
  7230	040016	201 00 0 00 040021 		MOVEI	.+3		;SAVE CONT ADDRESS
  7231	040017	202 00 0 00 000130 		MOVEM	JOBOPC
  7232	040020	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  7233	040021	200 00 0 00 030046 		MOVE	CONSW
  7234	040022	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  7235	040023	037 14 0 00 000004 		ERRHLT			;YES
  7236	040024	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  7237	040025	476 00 0 00 042161 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  7238	040026	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  7239	040027	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  7240
  7241	040030	200 02 0 00 042165 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  7242	040031	200 01 0 00 042164 		MOVE	1,%ERAC1
  7243	040032	476 00 1 00 042157 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  7244	040033	336 00 0 00 042161 		SKIPN	PROCED		;LOOP ON ERROR ?
  7245	040034	254 00 0 00 040044 		JRST	%ERRS5		;YES
  7246	040035	350 00 1 00 042157 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  7247	040036	350 00 1 00 042157 		AOS	@ERRLOP		;SO IT ='S 1
  7248	040037	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  7249	040040	254 00 0 00 040044 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  7250	040041	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  7251	040042	301 00 0 00 000024 		CAIL	0,^D20		;PRINTED ALLOWED ERRORS ?
  7252	040043	254 00 0 00 040052 		JRST	%ERRS6
  7253
  7254	040044	200 00 0 00 042163 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  7255	040045	254 00 0 00 030065 		JRST	UUOEXT
  7256
  7257	040046	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  7258	040047	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  7259	040050	254 00 0 00 040014 		JRST	%ERRS1		;NO
  7260	040051	254 00 0 00 037712 		JRST	%ERMS1		;YES
  7261
  7262	040052				%ERRS6:	PMSGF	<^EXCEEDED ALLOWED ERRORS^>^
  7263	040052	037 04 0 00 042051 		PSIXMF	[SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
  7264	040053	254 00 0 00 030061 		JRST	$BEND2
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0168

  7265					SUBTTL	*STOR* RESERVED STORAGE, MARCH 1978
  7266
  7267					;PROGRAM LITERALS
  7268
  7269						XLIST
  7270					IFNDEF	$LPAPER,<LIST>
  7271	040054					LIT
  7272	040054	45 70 51 64 00 00 
  7273	040055	103 105 000 000 000 
  7274	040056	000000	030630
  7275	040057	201400	000000
  7276	040060	000000	000000
  7277	040061	577400	000000
  7278	040062	000000	000000
  7279	040063	200400	000000
  7280	040064	200600	000000
  7281	040065	000000	000000
  7282	040066	177400	000000
  7283	040067	200500	000000
  7284	040070	000000	000000
  7285	040071	176400	000000
  7286	040072	200440	000000
  7287	040073	000000	000000
  7288	040074	175400	000000
  7289	040075	200420	000000
  7290	040076	000000	000000
  7291	040077	174400	000000
  7292	040100	200410	000000
  7293	040101	000000	000000
  7294	040102	173400	000000
  7295	040103	200404	000000
  7296	040104	000000	000000
  7297	040105	172400	000000
  7298	040106	200402	000000
  7299	040107	000000	000000
  7300	040110	171400	000000
  7301	040111	200401	000000
  7302	040112	000000	000000
  7303	040113	170400	000000
  7304	040114	200400	400000
  7305	040115	000000	000000
  7306	040116	167400	000000
  7307	040117	200400	200000
  7308	040120	000000	000000
  7309	040121	166400	000000
  7310	040122	200400	100000
  7311	040123	000000	000000
  7312	040124	165400	000000
  7313	040125	200400	040000
  7314	040126	000000	000000
  7315	040127	164400	000000
  7316	040130	200400	020000
  7317	040131	000000	000000
  7318	040132	163400	000000
  7319	040133	200400	010000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-1
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0169

  7320	040134	000000	000000
  7321	040135	162400	000000
  7322	040136	200400	004000
  7323	040137	000000	000000
  7324	040140	161400	000000
  7325	040141	200400	002000
  7326	040142	000000	000000
  7327	040143	160400	000000
  7328	040144	200400	001000
  7329	040145	000000	000000
  7330	040146	157400	000000
  7331	040147	200400	000400
  7332	040150	000000	000000
  7333	040151	156400	000000
  7334	040152	200400	000200
  7335	040153	000000	000000
  7336	040154	155400	000000
  7337	040155	200400	000100
  7338	040156	000000	000000
  7339	040157	154400	000000
  7340	040160	200400	000040
  7341	040161	000000	000000
  7342	040162	153400	000000
  7343	040163	200400	000020
  7344	040164	000000	000000
  7345	040165	152400	000000
  7346	040166	200400	000010
  7347	040167	000000	000000
  7348	040170	151400	000000
  7349	040171	200400	000004
  7350	040172	000000	000000
  7351	040173	150400	000000
  7352	040174	200400	000002
  7353	040175	000000	000000
  7354	040176	147400	000000
  7355	040177	200400	000001
  7356	040200	000000	000000
  7357	040201	146400	000000
  7358	040202	200400	000000
  7359	040203	200000	000000
  7360	040204	145400	000000
  7361	040205	200400	000000
  7362	040206	100000	000000
  7363	040207	144400	000000
  7364	040210	200400	000000
  7365	040211	040000	000000
  7366	040212	143400	000000
  7367	040213	200400	000000
  7368	040214	020000	000000
  7369	040215	142400	000000
  7370	040216	200400	000000
  7371	040217	010000	000000
  7372	040220	141400	000000
  7373	040221	200400	000000
  7374	040222	004000	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-2
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0170

  7375	040223	140400	000000
  7376	040224	200400	000000
  7377	040225	002000	000000
  7378	040226	137400	000000
  7379	040227	200400	000000
  7380	040230	001000	000000
  7381	040231	136400	000000
  7382	040232	200400	000000
  7383	040233	000400	000000
  7384	040234	135400	000000
  7385	040235	200400	000000
  7386	040236	000200	000000
  7387	040237	134400	000000
  7388	040240	200400	000000
  7389	040241	000100	000000
  7390	040242	133400	000000
  7391	040243	200400	000000
  7392	040244	000040	000000
  7393	040245	132400	000000
  7394	040246	200400	000000
  7395	040247	000020	000000
  7396	040250	131400	000000
  7397	040251	200400	000000
  7398	040252	000010	000000
  7399	040253	130400	000000
  7400	040254	200400	000000
  7401	040255	000004	000000
  7402	040256	127400	000000
  7403	040257	200400	000000
  7404	040260	000002	000000
  7405	040261	126400	000000
  7406	040262	200400	000000
  7407	040263	000001	000000
  7408	040264	125400	000000
  7409	040265	200400	000000
  7410	040266	000000	400000
  7411	040267	124400	000000
  7412	040270	200400	000000
  7413	040271	000000	200000
  7414	040272	123400	000000
  7415	040273	200400	000000
  7416	040274	000000	100000
  7417	040275	122400	000000
  7418	040276	200400	000000
  7419	040277	000000	040000
  7420	040300	121400	000000
  7421	040301	200400	000000
  7422	040302	000000	020000
  7423	040303	120400	000000
  7424	040304	200400	000000
  7425	040305	000000	010000
  7426	040306	117400	000000
  7427	040307	200400	000000
  7428	040310	000000	004000
  7429	040311	116400	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-3
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0171

  7430	040312	200400	000000
  7431	040313	000000	002000
  7432	040314	115400	000000
  7433	040315	200400	000000
  7434	040316	000000	001000
  7435	040317	114400	000000
  7436	040320	200400	000000
  7437	040321	000000	000400
  7438	040322	113400	000000
  7439	040323	200400	000000
  7440	040324	000000	000200
  7441	040325	112400	000000
  7442	040326	200400	000000
  7443	040327	000000	000100
  7444	040330	111400	000000
  7445	040331	200400	000000
  7446	040332	000000	000040
  7447	040333	110400	000000
  7448	040334	200400	000000
  7449	040335	000000	000020
  7450	040336	107400	000000
  7451	040337	200400	000000
  7452	040340	000000	000010
  7453	040341	106400	000000
  7454	040342	200400	000000
  7455	040343	000000	000004
  7456	040344	105400	000000
  7457	040345	200400	000000
  7458	040346	000000	000002
  7459	040347	104400	000000
  7460	040350	200400	000000
  7461	040351	000000	000001
  7462	040352	103400	000000
  7463	040353	600377	777777
  7464	040354	777777	777777
  7465	040355	000000	000000
  7466	040356	000000	000000
  7467	040357	377777	777777
  7468	040360	600577	777777
  7469	040361	777777	777777
  7470	040362	601377	777777
  7471	040363	377777	777776
  7472	040364	600677	777777
  7473	040365	777777	777777
  7474	040366	602377	777777
  7475	040367	377777	777774
  7476	040370	600737	777777
  7477	040371	777777	777777
  7478	040372	603377	777777
  7479	040373	377777	777770
  7480	040374	600757	777777
  7481	040375	777777	777777
  7482	040376	604377	777777
  7483	040377	377777	777760
  7484	040400	600767	777777
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-4
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0172

  7485	040401	777777	777777
  7486	040402	605377	777777
  7487	040403	377777	777740
  7488	040404	600773	777777
  7489	040405	777777	777777
  7490	040406	606377	777777
  7491	040407	377777	777700
  7492	040410	600775	777777
  7493	040411	777777	777777
  7494	040412	607377	777777
  7495	040413	377777	777600
  7496	040414	600776	777777
  7497	040415	777777	777777
  7498	040416	610377	777777
  7499	040417	377777	777400
  7500	040420	600777	377777
  7501	040421	777777	777777
  7502	040422	611377	777777
  7503	040423	377777	777000
  7504	040424	600777	577777
  7505	040425	777777	777777
  7506	040426	612377	777777
  7507	040427	377777	776000
  7508	040430	600777	677777
  7509	040431	777777	777777
  7510	040432	613377	777777
  7511	040433	377777	774000
  7512	040434	600777	737777
  7513	040435	777777	777777
  7514	040436	614377	777777
  7515	040437	377777	770000
  7516	040440	600777	757777
  7517	040441	777777	777777
  7518	040442	615377	777777
  7519	040443	377777	760000
  7520	040444	600777	767777
  7521	040445	777777	777777
  7522	040446	616377	777777
  7523	040447	377777	740000
  7524	040450	600777	773777
  7525	040451	777777	777777
  7526	040452	617377	777777
  7527	040453	377777	700000
  7528	040454	600777	775777
  7529	040455	777777	777777
  7530	040456	620377	777777
  7531	040457	377777	600000
  7532	040460	600777	776777
  7533	040461	777777	777777
  7534	040462	621377	777777
  7535	040463	377777	400000
  7536	040464	600777	777377
  7537	040465	777777	777777
  7538	040466	622377	777777
  7539	040467	377777	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-5
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0173

  7540	040470	600777	777577
  7541	040471	777777	777777
  7542	040472	623377	777777
  7543	040473	377776	000000
  7544	040474	600777	777677
  7545	040475	777777	777777
  7546	040476	624377	777777
  7547	040477	377774	000000
  7548	040500	600777	777737
  7549	040501	777777	777777
  7550	040502	625377	777777
  7551	040503	377770	000000
  7552	040504	600777	777757
  7553	040505	777777	777777
  7554	040506	626377	777777
  7555	040507	377760	000000
  7556	040510	600777	777767
  7557	040511	777777	777777
  7558	040512	627377	777777
  7559	040513	377740	000000
  7560	040514	600777	777773
  7561	040515	777777	777777
  7562	040516	630377	777777
  7563	040517	377700	000000
  7564	040520	600777	777775
  7565	040521	777777	777777
  7566	040522	631377	777777
  7567	040523	377600	000000
  7568	040524	600777	777776
  7569	040525	777777	777777
  7570	040526	632377	777777
  7571	040527	377400	000000
  7572	040530	600777	777777
  7573	040531	577777	777777
  7574	040532	633377	777777
  7575	040533	377000	000000
  7576	040534	600777	777777
  7577	040535	677777	777777
  7578	040536	634377	777777
  7579	040537	376000	000000
  7580	040540	600777	777777
  7581	040541	737777	777777
  7582	040542	635377	777777
  7583	040543	374000	000000
  7584	040544	600777	777777
  7585	040545	757777	777777
  7586	040546	636377	777777
  7587	040547	370000	000000
  7588	040550	600777	777777
  7589	040551	767777	777777
  7590	040552	637377	777777
  7591	040553	360000	000000
  7592	040554	600777	777777
  7593	040555	773777	777777
  7594	040556	640377	777777
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-6
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0174

  7595	040557	340000	000000
  7596	040560	600777	777777
  7597	040561	775777	777777
  7598	040562	641377	777777
  7599	040563	300000	000000
  7600	040564	600777	777777
  7601	040565	776777	777777
  7602	040566	642377	777777
  7603	040567	600777	777777
  7604	040570	777377	777777
  7605	040571	643377	777777
  7606	040572	600777	777777
  7607	040573	777577	777777
  7608	040574	644377	777776
  7609	040575	600777	777777
  7610	040576	777677	777777
  7611	040577	645377	777774
  7612	040600	600777	777777
  7613	040601	777737	777777
  7614	040602	646377	777770
  7615	040603	600777	777777
  7616	040604	777757	777777
  7617	040605	647377	777760
  7618	040606	600777	777777
  7619	040607	777767	777777
  7620	040610	650377	777740
  7621	040611	600777	777777
  7622	040612	777773	777777
  7623	040613	651377	777700
  7624	040614	600777	777777
  7625	040615	777775	777777
  7626	040616	652377	777600
  7627	040617	600777	777777
  7628	040620	777776	777777
  7629	040621	653377	777400
  7630	040622	600777	777777
  7631	040623	777777	377777
  7632	040624	654377	777000
  7633	040625	600777	777777
  7634	040626	777777	577777
  7635	040627	655377	776000
  7636	040630	600777	777777
  7637	040631	777777	677777
  7638	040632	656377	774000
  7639	040633	600777	777777
  7640	040634	777777	737777
  7641	040635	657377	770000
  7642	040636	600777	777777
  7643	040637	777777	757777
  7644	040640	660377	760000
  7645	040641	600777	777777
  7646	040642	777777	767777
  7647	040643	661377	740000
  7648	040644	600777	777777
  7649	040645	777777	773777
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-7
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0175

  7650	040646	662377	700000
  7651	040647	600777	777777
  7652	040650	777777	775777
  7653	040651	663377	600000
  7654	040652	600777	777777
  7655	040653	777777	776777
  7656	040654	664377	400000
  7657	040655	600777	777777
  7658	040656	777777	777377
  7659	040657	665377	000000
  7660	040660	600777	777777
  7661	040661	777777	777577
  7662	040662	666376	000000
  7663	040663	600777	777777
  7664	040664	777777	777677
  7665	040665	667374	000000
  7666	040666	600777	777777
  7667	040667	777777	777737
  7668	040670	670370	000000
  7669	040671	600777	777777
  7670	040672	777777	777757
  7671	040673	671360	000000
  7672	040674	600777	777777
  7673	040675	777777	777767
  7674	040676	672340	000000
  7675	040677	600777	777777
  7676	040700	777777	777773
  7677	040701	673300	000000
  7678	040702	600777	777777
  7679	040703	777777	777775
  7680	040704	674200	000000
  7681	040705	600777	777777
  7682	040706	777777	777776
  7683	040707	674400	000000
  7684	040710	200777	777777
  7685	040711	777777	777777
  7686	040712	200000	000000
  7687	040713	400000	777777
  7688	040714	000600	000000
  7689	040715	000000	000000
  7690	040716	000400	000000
  7691	040717	000000	000000
  7692	040720	001500	000000
  7693	040721	377000	000000
  7694	040722	000000	000000
  7695	040723	377600	000000
  7696	040724	000000	000000
  7697	040725	600400	000000
  7698	040726	000000	000000
  7699	040727	177400	000000
  7700	040730	000000	000000
  7701	040731	200400	000000
  7702	040732	000000	000000
  7703	040733	205400	000000
  7704	040734	000000	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-8
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0176

  7705	040735	205410	000000
  7706	040736	205600	000000
  7707	040737	000000	000000
  7708	040740	205610	000000
  7709	040741	200700	000000
  7710	040742	000000	000000
  7711	040743	201600	000000
  7712	040744	202400	000000
  7713	040745	000000	000000
  7714	040746	202500	000000
  7715	040747	204400	000000
  7716	040750	000000	000000
  7717	040751	204420	000000
  7718	040752	210400	000000
  7719	040753	000000	000000
  7720	040754	210401	000000
  7721	040755	220400	000000
  7722	040756	000000	000000
  7723	040757	220400	002000
  7724	040760	240400	000000
  7725	040761	000000	000000
  7726	040762	300400	000000
  7727	040763	000000	000000
  7728	040764	576400	000000
  7729	040765	205604	000000
  7730	040766	201000	000000
  7731	040767	000000	000000
  7732	040770	202000	000000
  7733	040771	000000	000000
  7734	040772	204000	000000
  7735	040773	000000	000000
  7736	040774	207000	000000
  7737	040775	000000	000000
  7738	040776	210000	000000
  7739	040777	000000	000000
  7740	041000	214000	000000
  7741	041001	000000	000000
  7742	041002	220000	000000
  7743	041003	000000	000000
  7744	041004	225000	000000
  7745	041005	000000	000000
  7746	041006	240000	000000
  7747	041007	000000	000000
  7748	041010	246000	000000
  7749	041011	000000	000000
  7750	041012	300000	000000
  7751	041013	000000	000000
  7752	041014	307000	000000
  7753	041015	000000	000000
  7754	041016	200000	000000
  7755	041017	000000	000000
  7756	041020	203000	000000
  7757	041021	000000	000000
  7758	041022	206000	000000
  7759	041023	000000	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-9
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0177

  7760	041024	400200	000000
  7761	041025	000000	000000
  7762	041026	377400	000000
  7763	041027	000000	000000
  7764	041030	401400	000000
  7765	041031	201700	000000
  7766	041032	577600	000000
  7767	041033	000000	000000
  7768	041034	577200	000000
  7769	041035	000000	000000
  7770	041036	576400	000000
  7771	041037	000000	000000
  7772	041040	201420	000000
  7773	041041	200400	000077
  7774	041042	000000	000000
  7775	041043	206400	000000
  7776	041044	000000	000000
  7777	041045	206404	000000
  7778	041046	030400	000003
  7779	041047	000000	000000
  7780	041050	032400	000000
  7781	041051	000000	000000
  7782	041052	032500	000000
  7783	041053	201600	000000
  7784	041054	000000	000000
  7785	041055	577400	000003
  7786	041056	000000	000000
  7787	041057	201600	000001
  7788	041060	200400	000003
  7789	041061	000000	000000
  7790	041062	200400	777777
  7791	041063	000000	000000
  7792	041064	202500	177777
  7793	041065	200200	000001
  7794	041066	000000	000000
  7795	041067	200200	000002
  7796	041070	000000	000000
  7797	041071	200200	000004
  7798	041072	000000	000000
  7799	041073	200200	000010
  7800	041074	000000	000000
  7801	041075	200200	000020
  7802	041076	000000	000000
  7803	041077	200200	000040
  7804	041100	000000	000000
  7805	041101	200200	000100
  7806	041102	000000	000000
  7807	041103	200200	000200
  7808	041104	000000	000000
  7809	041105	200200	000400
  7810	041106	000000	000000
  7811	041107	200200	001000
  7812	041110	000000	000000
  7813	041111	172400	000000
  7814	041112	000000	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-10
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0178

  7815	041113	201402	000000
  7816	041114	173400	000000
  7817	041115	000000	000000
  7818	041116	201404	000000
  7819	041117	174400	000000
  7820	041120	000000	000000
  7821	041121	201410	000000
  7822	041122	175400	000000
  7823	041123	000000	000000
  7824	041124	176400	000000
  7825	041125	000000	000000
  7826	041126	201440	000000
  7827	041127	201500	000000
  7828	041130	202600	000000
  7829	041131	000000	000000
  7830	041132	202700	000000
  7831	041133	203400	000000
  7832	041134	200100	000000
  7833	041135	000000	000000
  7834	041136	200040	000000
  7835	041137	000000	000000
  7836	041140	200020	000000
  7837	041141	000000	000000
  7838	041142	576200	000000
  7839	041143	576300	000000
  7840	041144	601400	000000
  7841	041145	000000	000000
  7842	041146	576340	000000
  7843	041147	200000	000001
  7844	041150	000000	000000
  7845	041151	200000	000002
  7846	041152	000000	000000
  7847	041153	200000	000004
  7848	041154	000000	000000
  7849	041155	200000	000010
  7850	041156	000000	000000
  7851	041157	200000	000020
  7852	041160	000000	000000
  7853	041161	200000	000040
  7854	041162	000000	000000
  7855	041163	200000	000100
  7856	041164	000000	000000
  7857	041165	200000	000200
  7858	041166	000000	000000
  7859	041167	200000	000400
  7860	041170	000000	000000
  7861	041171	200000	001000
  7862	041172	000000	000000
  7863	041173	200000	002000
  7864	041174	000000	000000
  7865	041175	200000	004000
  7866	041176	000000	000000
  7867	041177	200000	010000
  7868	041200	000000	000000
  7869	041201	200000	020000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-11
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0179

  7870	041202	000000	000000
  7871	041203	200000	040000
  7872	041204	000000	000000
  7873	041205	200000	100000
  7874	041206	000000	000000
  7875	041207	200000	200000
  7876	041210	000000	000000
  7877	041211	200000	400000
  7878	041212	000000	000000
  7879	041213	200001	000000
  7880	041214	000000	000000
  7881	041215	200002	000000
  7882	041216	000000	000000
  7883	041217	200004	000000
  7884	041220	000000	000000
  7885	041221	200010	000000
  7886	041222	000000	000000
  7887	041223	777700	000000
  7888	041224	000000	000000
  7889	041225	400400	000000
  7890	041226	200777	777777
  7891	041227	000000	000000
  7892	041230	203400	000000
  7893	041231	000000	000000
  7894	041232	207400	000000
  7895	041233	000000	000000
  7896	041234	211400	000000
  7897	041235	000000	000000
  7898	041236	212400	000000
  7899	041237	000000	000000
  7900	041240	213400	000000
  7901	041241	000000	000000
  7902	041242	214400	000000
  7903	041243	000000	000000
  7904	041244	215400	000000
  7905	041245	000000	000000
  7906	041246	216400	000000
  7907	041247	000000	000000
  7908	041250	217400	000000
  7909	041251	000000	000000
  7910	041252	221400	000000
  7911	041253	000000	000000
  7912	041254	222400	000000
  7913	041255	000000	000000
  7914	041256	223400	000000
  7915	041257	000000	000000
  7916	041260	224400	000000
  7917	041261	000000	000000
  7918	041262	225400	000000
  7919	041263	000000	000000
  7920	041264	226400	000000
  7921	041265	000000	000000
  7922	041266	227400	000000
  7923	041267	000000	000000
  7924	041270	230400	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-12
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0180

  7925	041271	000000	000000
  7926	041272	231400	000000
  7927	041273	000000	000000
  7928	041274	200200	000000
  7929	041275	000000	000000
  7930	041276	232400	000000
  7931	041277	000000	000000
  7932	041300	233400	000000
  7933	041301	000000	000000
  7934	041302	200000	000003
  7935	041303	000000	000000
  7936	041304	200000	000005
  7937	041305	000000	000000
  7938	041306	200000	000011
  7939	041307	000000	000000
  7940	041310	200000	000021
  7941	041311	000000	000000
  7942	041312	200000	000041
  7943	041313	000000	000000
  7944	041314	200000	000101
  7945	041315	000000	000000
  7946	041316	200000	000201
  7947	041317	000000	000000
  7948	041320	200000	000401
  7949	041321	000000	000000
  7950	041322	200000	001001
  7951	041323	000000	000000
  7952	041324	200000	002001
  7953	041325	000000	000000
  7954	041326	200000	004001
  7955	041327	000000	000000
  7956	041330	200000	010001
  7957	041331	000000	000000
  7958	041332	200000	020001
  7959	041333	000000	000000
  7960	041334	200000	040001
  7961	041335	000000	000000
  7962	041336	200000	100001
  7963	041337	000000	000000
  7964	041340	200000	200001
  7965	041341	000000	000000
  7966	041342	200000	400001
  7967	041343	000000	000000
  7968	041344	000000	034567
  7969	041345	376777	777777
  7970	041346	777777	777776
  7971	041347	000000	034610
  7972	041350	000000	034627
  7973	041351	000200	000000
  7974	041352	000000	000000
  7975	041353	000000	034650
  7976	041354	000177	777777
  7977	041355	777777	777777
  7978	041356	000000	034667
  7979	041357	400400	000000
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-13
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0181

  7980	041360	000000	000000
  7981	041361	401000	000000
  7982	041362	000000	000002
  7983	041363	400000	000000
  7984	041364	000000	034710
  7985	041365	777400	000000
  7986	041366	000000	034727
  7987	041367	777600	000000
  7988	041370	000000	000000
  7989	041371	000000	034750
  7990	041372	777600	000000
  7991	041373	000000	000001
  7992	041374	000000	034773
  7993	041375	204770	000000
  7994	041376	200477	777775
  7995	041377	000000	000000
  7996	041400	202660	000000
  7997	041401	000000	035071
  7998	041402	400400	000000
  7999	041403	000000	000001
  8000	041404	000000	035112
  8001	041405	000000	035131
  8002	041406	000777	777777
  8003	041407	777777	777777
  8004	041410	000377	777777
  8005	041411	777777	777777
  8006	041412	000000	035152
  8007	041413	000000	035171
  8008	041414	377377	777777
  8009	041415	777777	777777
  8010	041416	000000	035212
  8011	041417	000000	035231
  8012	041420	777000	000000
  8013	041421	000000	000000
  8014	041422	777400	000000
  8015	041423	000000	000000
  8016	041424	000000	035252
  8017	041425	777000	000000
  8018	041426	000000	000001
  8019	041427	000000	035275
  8020	041430	201400	000000
  8021	041431	400000	777777
  8022	041432	376400	000000
  8023	041433	237400	000000
  8024	041434	277400	000000
  8025	041435	575400	000000
  8026	041436	000000	000000
  8027	041437	177777	777777
  8028	041440	200777	777776
  8029	041441	000000	000000
  8030	041442	177777	777776
  8031	041443	200777	777775
  8032	041444	000000	000000
  8033	041445	177777	777775
  8034	041446	200777	777774
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-14
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0182

  8035	041447	000000	000000
  8036	041450	177777	777774
  8037	041451	501700	000000
  8038	041452	000000	000000
  8039	041453	500400	000000
  8040	041454	000000	000000
  8041	041455	374100	000000
  8042	041456	372400	000000
  8043	041457	502700	000000
  8044	041460	000000	000000
  8045	041461	373100	000000
  8046	041462	371400	000000
  8047	041463	503700	000000
  8048	041464	000000	000000
  8049	041465	372100	000000
  8050	041466	370400	000000
  8051	041467	504700	000000
  8052	041470	000000	000000
  8053	041471	371100	000000
  8054	041472	367400	000000
  8055	041473	505700	000000
  8056	041474	000000	000000
  8057	041475	370100	000000
  8058	041476	366400	000000
  8059	041477	177200	000000
  8060	041500	177100	000000
  8061	041501	177040	000000
  8062	041502	177020	000000
  8063	041503	177010	000000
  8064	041504	177004	000000
  8065	041505	177002	000000
  8066	041506	500700	000000
  8067	041507	000000	000000
  8068	041510	503400	000000
  8069	041511	500770	000000
  8070	041512	000000	000000
  8071	041513	501770	000000
  8072	041514	506400	000000
  8073	041515	200775	000000
  8074	041516	000000	000000
  8075	041517	200772	011000
  8076	041520	200774	000000
  8077	041521	000000	000000
  8078	041522	200770	020000
  8079	041523	200773	000000
  8080	041524	000000	000000
  8081	041525	200766	031000
  8082	041526	177477	000000
  8083	041527	000000	000000
  8084	041530	177427	100000
  8085	041531	000000	001400
  8086	041532	200777	777773
  8087	041533	000000	000000
  8088	041534	200777	777772
  8089	041535	000000	002400
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-15
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0183

  8090	041536	500000	777777
  8091	041537	000000	000000
  8092	041540	200777	000000
  8093	041541	000000	000000
  8094	041542	500001	776777
  8095	041543	500000	777770
  8096	041544	000000	000000
  8097	041545	500001	776770
  8098	041546	376776	001001
  8099	041547	377000	000400
  8100	041550	500000	777776
  8101	041551	000000	000000
  8102	041552	376776	001003
  8103	041553	376000	002000
  8104	041554	177000	000003
  8105	041555	146777	777777
  8106	041556	177700	000156
  8107	041557	200400	000076
  8108	041560	000000	000000
  8109	041561	177700	000154
  8110	041562	200400	000075
  8111	041563	000000	000000
  8112	041564	177700	000152
  8113	041565	600400	000077
  8114	041566	000000	000000
  8115	041567	177660	000000
  8116	041570	000000	000000
  8117	041571	602120	000152
  8118	041572	120000	000000
  8119	041573	600400	000076
  8120	041574	000000	000000
  8121	041575	177600	000000
  8122	041576	000000	000000
  8123	041577	602200	000135
  8124	041600	400000	000001
  8125	041601	000000	000000
  8126	041602	000000	036473
  8127	041603	201777	777777
  8128	041604	777777	777777
  8129	041605	000000	036514
  8130	041606	000000	036533
  8131	041607	001400	000000
  8132	041610	000000	000000
  8133	041611	000000	036554
  8134	041612	000000	036573
  8135	041613	576000	000000
  8136	041614	000000	000001
  8137	041615	000000	036614
  8138	041616	000000	036633
  8139	041617	776400	000000
  8140	041620	000000	000000
  8141	041621	000000	036654
  8142	041622	000000	036677
  8143	041623	200400	000000
  8144	041624	400000	777777
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-16
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0184

  8145	041625	200740	000000
  8146	041626	000000	000000
  8147	041627	201740	000000
  8148	041630	576252	525252
  8149	041631	252525	252525
  8150	041632	600600	000000
  8151	041633	000000	000000
  8152	041634	377400	777777
  8153	041635	000000	000000
  8154	041636	577400	777777
  8155	041637	000000	000000
  8156	041640	777375	773771
  8157	041641	373773	776004
  8158	041642	577775	000000
  8159	041643	000000	000000
  8160	041644	577777	000000
  8161	041645	000000	000000
  8162	041646	577774	000000
  8163	041647	000000	000000
  8164	041650	210777	777777
  8165	041651	000000	000000
  8166	041652	170750	000000
  8167	041653	000000	000000
  8168	041654	221414	456123
  8169	041655	150726	020623
  8170	041656	170555	000000
  8171	041657	000000	000000
  8172	041660	221547	063714
  8173	041661	314631	463146
  8174	041662	577000	555555
  8175	041663	000000	000000
  8176	041664	576000	555555
  8177	041665	210777	777777
  8178	041666	777777	777777
  8179	041667	221547	063715
  8180	041670	200263	431746
  8181	041671	210777	777775
  8182	041672	000000	000000
  8183	041673	221547	063713
  8184	041674	145545	545546
  8185	041675	377400	000000
  8186	041676	555000	000000
  8187	041677	100777	000000
  8188	041700	000000	000000
  8189	041701	077400	400400
  8190	041702	355355	355355
  8191	041703	201400	000001
  8192	041704	200000	003000
  8193	041705	170555	600000
  8194	041706	000000	000000
  8195	041707	221546	272702
  8196	041710	301417	730634
  8197	041711	170557	000000
  8198	041712	000000	000000
  8199	041713	221545	111740
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-17
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0185

  8200	041714	234200	262445
  8201	041715	170560	000000
  8202	041716	000000	000000
  8203	041717	221544	131025
  8204	041720	220544	131026
  8205	041721	200200	200200
  8206	041722	376400	000000
  8207	041723	000000	000000
  8208	041724	076400	400400
  8209	041725	375400	000000
  8210	041726	000000	000000
  8211	041727	075400	400400
  8212	041730	374400	000000
  8213	041731	000000	000000
  8214	041732	074400	400400
  8215	041733	373400	000000
  8216	041734	000000	000000
  8217	041735	073400	400400
  8218	041736	372400	000000
  8219	041737	000000	000000
  8220	041740	072400	400400
  8221	041741	210777	000000
  8222	041742	000000	000000
  8223	041743	170400	400400
  8224	041744	371400	000000
  8225	041745	000000	000000
  8226	041746	071400	400400
  8227	041747	370400	000000
  8228	041750	000000	000000
  8229	041751	070400	400400
  8230	041752	367400	000000
  8231	041753	000000	000000
  8232	041754	067400	400400
  8233	041755	373400	000000
  8234	041756	200777	000000
  8235	041757	073400	400401
  8236	041760	001400	400401
  8237	041761	001400	400400
  8238	041762	000000	037430
  8239	041763	376777	777777
  8240	041764	777777	777777
  8241	041765	000000	037451
  8242	041766	000000	037470
  8243	041767	000000	037511
  8244	041770	000000	037530
  8245	041771	000000	037551
  8246	041772	000000	037570
  8247	041773	000000	037611
  8248	041774	000000	037630
  8249	041775	000000	037647
  8250	041776	201200	000000
  8251	041777	000000	000000
  8252	042000	76 64 45 63 64 00 
  8253	042001	60 41 63 63 00 43 
  8254	042002	57 65 56 64 00 35 
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-18
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0186

  8255	042003	00 77 00 00 00 00 
  8256	042004	76 60 43 00 35 00 
  8257	042005	00 00 77 00 00 00 
  8258	042006	76 62 45 63 65 54 
  8259	042007	64 00 00 35 00 77 
  8260	042010	76 46 41 65 54 64 
  8261	042011	00 56 65 55 42 45 
  8262	042012	62 00 35 00 77 00 
  8263	042013	103 050 101 103 051 
  8264	042014	040 106 101 111 114 
  8265	042015	105 104 000 000 000 
  8266	042016	103 050 101 103 053 
  8267	042017	061 051 040 106 101 
  8268	042020	111 114 105 104 000 
  8269	042021	103 050 105 051 040 
  8270	042022	106 101 111 114 105 
  8271	042023	104 000 000 000 000 
  8272	042024	103 050 105 053 061 
  8273	042025	051 040 106 101 111 
  8274	042026	114 105 104 000 000 
  8275	042027	103 050 103 050 101 
  8276	042030	103 122 051 051 040 
  8277	042031	106 101 111 114 105 
  8278	042032	104 000 000 000 000 
  8279	042033	103 050 103 050 101 
  8280	042034	103 122 053 061 051 
  8281	042035	051 040 106 101 111 
  8282	042036	114 105 104 000 000 
  8283	042037	103 050 103 050 101 
  8284	042040	103 114 051 051 040 
  8285	042041	106 101 111 114 105 
  8286	042042	104 000 000 000 000 
  8287	042043	103 050 103 050 105 
  8288	042044	051 051 040 106 101 
  8289	042045	111 114 105 104 000 
  8290	042046	106 114 101 107 040 
  8291	042047	106 101 111 114 105 
  8292	042050	104 000 000 000 000 
  8293	042051	76 45 70 43 45 45 
  8294	042052	44 45 44 00 41 54 
  8295	042053	54 57 67 45 44 00 
  8296	042054	45 62 62 57 62 63 
  8297	042055	76 77 00 00 00 00 
  8298						LIST
  8299	042056	000000	000000		ENDSLD:	0
  8300
  8301					IFDEF	DEBUG,<
  8302	042057				PATCH:	BLOCK DEBUG		;PATCHING AREA
  8303					>
  8304
  8305					;PROGRAM VARIABLES
  8306	042157					VAR
  8307
  8308					IFDEF	PGMEND,<
  8309	042167	000000	000000		END:	0
DSKCE	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 	MACRO %53(1020) 10:47 21-Jun-78 Page 1-19
STOR	KSM	28-Mar-78 16:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0187

  8310			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 042170
CPU TIME USED 00:38.443

38P CORE USED

ABORT	   577#
AC	  1158#	  1160	  1161	  1162	  1163	  1168	  1170	  1172	  1173	  1174	  1175	  1176	  1191	  1193     SEQ 0188
	  1195	  1196	  1197	  1198	  1199	  1205	  1207	  1209	  1210	  1211	  1212	  1213	  1219	  1221
	  1223	  1224	  1225	  1226	  1227	  1233	  1235	  1237	  1238	  1239	  1240	  1241	  1247	  1249
	  1251	  1252	  1253	  1254	  1255	  1261	  1263	  1265	  1266	  1267	  1268	  1269	  1275	  1277
	  1279	  1280	  1281	  1282	  1283	  1289	  1291	  1293	  1294	  1295	  1296	  1297	  1312	  1314
	  1316	  1317	  1318	  1319	  1320	  1326	  1328	  1330	  1331	  1332	  1333	  1334	  1340	  1342
	  1344	  1345	  1346	  1347	  1348	  1354	  1356	  1358	  1359	  1360	  1361	  1362	  1368	  1370
	  1372	  1373	  1374	  1375	  1376	  1382	  1384	  1386	  1387	  1388	  1389	  1390	  1396	  1398
	  1400	  1401	  1402	  1403	  1404	  1410	  1412	  1414	  1415	  1416	  1417	  1418	  1424	  1426
	  1428	  1429	  1430	  1431	  1432	  1438	  1440	  1442	  1443	  1444	  1445	  1446	  1452	  1454
	  1456	  1457	  1458	  1459	  1460	  1466	  1468	  1470	  1471	  1472	  1473	  1474	  1480	  1482
	  1484	  1485	  1486	  1487	  1488	  1494	  1496	  1498	  1499	  1500	  1501	  1502	  1508	  1510
	  1512	  1513	  1514	  1515	  1516	  1522	  1524	  1526	  1527	  1528	  1529	  1530	  1536	  1538
	  1540	  1541	  1542	  1543	  1544	  1550	  1552	  1554	  1555	  1556	  1557	  1558	  1573	  1575
	  1577	  1578	  1579	  1580	  1581	  1587	  1589	  1591	  1592	  1593	  1594	  1595	  1601	  1603
	  1605	  1606	  1607	  1608	  1609	  1615	  1617	  1619	  1620	  1621	  1622	  1623	  1629	  1631
	  1633	  1634	  1635	  1636	  1637	  1643	  1645	  1647	  1648	  1649	  1650	  1651	  1657	  1659
	  1661	  1662	  1663	  1664	  1665	  1671	  1673	  1675	  1676	  1677	  1678	  1679	  1685	  1687
	  1689	  1690	  1691	  1692	  1693	  1699	  1701	  1703	  1704	  1705	  1706	  1707	  1713	  1715
	  1717	  1718	  1719	  1720	  1721	  1727	  1729	  1731	  1732	  1733	  1734	  1735	  1741	  1743
	  1745	  1746	  1747	  1748	  1749	  1755	  1757	  1759	  1760	  1761	  1762	  1763	  1769	  1771
	  1773	  1774	  1775	  1776	  1777	  1783	  1785	  1787	  1788	  1789	  1790	  1791	  1797	  1799
	  1801	  1802	  1803	  1804	  1805	  1820	  1822	  1824	  1825	  1826	  1827	  1828	  1834	  1836
	  1838	  1839	  1840	  1841	  1842	  1848	  1850	  1852	  1853	  1854	  1855	  1856	  1862	  1864
	  1866	  1867	  1868	  1869	  1870	  1876	  1878	  1880	  1881	  1882	  1883	  1884	  1890	  1892
	  1894	  1895	  1896	  1897	  1898	  1904	  1906	  1908	  1909	  1910	  1911	  1912	  1918	  1920
	  1922	  1923	  1924	  1925	  1926	  1932	  1934	  1936	  1937	  1938	  1939	  1940	  1946	  1948
	  1950	  1951	  1952	  1953	  1954	  1960	  1962	  1964	  1965	  1966	  1967	  1968	  1974	  1976
	  1978	  1979	  1980	  1981	  1982	  1988	  1990	  1992	  1993	  1994	  1995	  1996	  2002	  2004
	  2006	  2007	  2008	  2009	  2010	  2016	  2018	  2020	  2021	  2022	  2023	  2024	  2030	  2032
	  2034	  2035	  2036	  2037	  2038	  2044	  2046	  2048	  2049	  2050	  2051	  2052	  2058	  2060
	  2062	  2063	  2064	  2065	  2066	  2087	  2089	  2091	  2092	  2093	  2094	  2095	  2103	  2105
	  2107	  2108	  2109	  2110	  2111	  2119	  2121	  2123	  2124	  2125	  2126	  2127	  2135	  2137
	  2139	  2140	  2141	  2142	  2143	  2151	  2153	  2155	  2156	  2157	  2158	  2159	  2167	  2169
	  2171	  2172	  2173	  2174	  2175	  2183	  2185	  2187	  2188	  2189	  2190	  2191	  2199	  2201
	  2203	  2204	  2205	  2206	  2207	  2215	  2217	  2219	  2220	  2221	  2222	  2223	  2240	  2242
	  2244	  2245	  2246	  2247	  2248	  2255	  2257	  2259	  2260	  2261	  2262	  2263	  2270	  2272
	  2274	  2275	  2276	  2277	  2278	  2285	  2287	  2289	  2290	  2291	  2292	  2293	  2300	  2302
	  2304	  2305	  2306	  2307	  2308	  2315	  2317	  2319	  2320	  2321	  2322	  2323	  2330	  2332
	  2334	  2335	  2336	  2337	  2338	  2345	  2347	  2349	  2350	  2351	  2352	  2353	  2360	  2362
	  2364	  2365	  2366	  2367	  2368	  2375	  2377	  2379	  2380	  2381	  2382	  2383	  2400	  2402
	  2404	  2405	  2406	  2407	  2408	  2415	  2417	  2419	  2420	  2421	  2422	  2423	  2430	  2432
	  2434	  2435	  2436	  2437	  2438	  2445	  2447	  2449	  2450	  2451	  2452	  2453	  2460	  2462
	  2464	  2465	  2466	  2467	  2468	  2475	  2477	  2479	  2480	  2481	  2482	  2483	  2490	  2492
	  2494	  2495	  2496	  2497	  2498	  2505	  2507	  2509	  2510	  2511	  2512	  2513	  2529	  2531
	  2533	  2534	  2535	  2536	  2537	  2544	  2546	  2548	  2549	  2550	  2551	  2552	  2559	  2561
	  2563	  2564	  2565	  2566	  2567	  2574	  2576	  2578	  2579	  2580	  2581	  2582	  2589	  2591
	  2593	  2594	  2595	  2596	  2597	  2604	  2606	  2608	  2609	  2610	  2611	  2612	  2619	  2621
	  2623	  2624	  2625	  2626	  2627	  2634	  2636	  2638	  2639	  2640	  2641	  2642	  2649	  2651
	  2653	  2654	  2655	  2656	  2657	  2674	  2676	  2678	  2679	  2680	  2681	  2682	  2689	  2691
	  2693	  2694	  2695	  2696	  2697	  2704	  2706	  2708	  2709	  2710	  2711	  2712	  2719	  2721
	  2723	  2724	  2725	  2726	  2727	  2734	  2736	  2738	  2739	  2740	  2741	  2742	  2749	  2751
	  2753	  2754	  2755	  2756	  2757	  2764	  2766	  2768	  2769	  2770	  2771	  2772	  2779	  2781
	  2783	  2784	  2785	  2786	  2787	  2804	  2806	  2808	  2809	  2810	  2811	  2812	  2819	  2821     SEQ 0189
	  2823	  2824	  2825	  2826	  2827	  2834	  2836	  2838	  2839	  2840	  2841	  2842	  2849	  2851
	  2853	  2854	  2855	  2856	  2857	  2864	  2866	  2868	  2869	  2870	  2871	  2872	  2879	  2881
	  2883	  2884	  2885	  2886	  2887	  2894	  2896	  2898	  2899	  2900	  2901	  2902	  2909	  2911
	  2913	  2914	  2915	  2916	  2917	  2924	  2926	  2928	  2929	  2930	  2931	  2932	  2939	  2941
	  2943	  2944	  2945	  2946	  2947	  2965	  2967	  2969	  2970	  2971	  2972	  2973	  2980	  2982
	  2984	  2985	  2986	  2987	  2988	  2995	  2997	  2999	  3000	  3001	  3002	  3003	  3010	  3012
	  3014	  3015	  3016	  3017	  3018	  3025	  3027	  3029	  3030	  3031	  3032	  3033	  3040	  3042
	  3044	  3045	  3046	  3047	  3048	  3055	  3057	  3059	  3060	  3061	  3062	  3063	  3070	  3072
	  3074	  3075	  3076	  3077	  3078	  3084	  3086	  3088	  3089	  3090	  3091	  3092	  3093	  3096
	  3098	  3100	  3101	  3102	  3103	  3104	  3107	  3109	  3111	  3112	  3113	  3114	  3115	  3118
	  3120	  3122	  3123	  3124	  3125	  3126	  3129	  3131	  3133	  3134	  3135	  3136	  3137	  3140
	  3142	  3144	  3145	  3146	  3147	  3148	  3151	  3153	  3155	  3156	  3157	  3158	  3159	  3162
	  3164	  3166	  3167	  3168	  3169	  3170	  3173	  3175	  3177	  3178	  3179	  3180	  3181	  3184
	  3186	  3188	  3189	  3190	  3191	  3192	  3195	  3197	  3199	  3200	  3201	  3202	  3203	  3206
	  3208	  3210	  3211	  3212	  3213	  3214	  3217	  3219	  3221	  3222	  3223	  3224	  3225	  3228
	  3230	  3232	  3233	  3234	  3235	  3236	  3239	  3241	  3243	  3244	  3245	  3246	  3247	  3250
	  3252	  3254	  3255	  3256	  3257	  3258	  3261	  3263	  3265	  3266	  3267	  3268	  3269	  3272
	  3274	  3276	  3277	  3278	  3279	  3280	  3283	  3285	  3287	  3288	  3289	  3290	  3291	  3294
	  3296	  3298	  3299	  3300	  3301	  3302	  3305	  3307	  3309	  3310	  3311	  3312	  3313	  3316
	  3318	  3320	  3321	  3322	  3323	  3324	  3327	  3329	  3331	  3332	  3333	  3334	  3335	  3338
	  3340	  3342	  3343	  3344	  3345	  3346	  3349	  3351	  3353	  3354	  3355	  3356	  3357	  3360
	  3362	  3364	  3365	  3366	  3367	  3368	  3371	  3373	  3375	  3376	  3377	  3378	  3379	  3382
	  3384	  3386	  3387	  3388	  3389	  3390	  3393	  3395	  3397	  3398	  3399	  3400	  3401	  3404
	  3406	  3408	  3409	  3410	  3411	  3412	  3415	  3417	  3419	  3420	  3421	  3422	  3423	  3426
	  3428	  3430	  3431	  3432	  3433	  3434	  3437	  3439	  3441	  3442	  3443	  3444	  3445	  3448
	  3450	  3452	  3453	  3454	  3455	  3456	  3459	  3461	  3463	  3464	  3465	  3466	  3467	  3470
	  3472	  3474	  3475	  3476	  3477	  3478	  3481	  3483	  3485	  3486	  3487	  3488	  3489	  3492
	  3494	  3496	  3497	  3498	  3499	  3500	  3503	  3505	  3507	  3508	  3509	  3510	  3511	  3514
	  3516	  3518	  3519	  3520	  3521	  3522	  3525	  3527	  3529	  3530	  3531	  3532	  3533	  3536
	  3538	  3540	  3541	  3542	  3543	  3544	  3547	  3549	  3551	  3552	  3553	  3554	  3555	  3558
	  3560	  3562	  3563	  3564	  3565	  3566	  3569	  3571	  3573	  3574	  3575	  3576	  3577	  3580
	  3582	  3584	  3585	  3586	  3587	  3588	  3591	  3593	  3595	  3596	  3597	  3598	  3599	  3603
	  3605	  3607	  3608	  3609	  3610	  3611	  3614	  3616	  3618	  3619	  3620	  3621	  3622	  3625
	  3627	  3629	  3630	  3631	  3632	  3633	  3636	  3638	  3640	  3641	  3642	  3643	  3644	  3647
	  3649	  3651	  3652	  3653	  3654	  3655	  3658	  3660	  3662	  3663	  3664	  3665	  3666	  3669
	  3671	  3673	  3674	  3675	  3676	  3677	  3680	  3682	  3684	  3685	  3686	  3687	  3688	  3691
	  3693	  3695	  3696	  3697	  3698	  3699	  3702	  3704	  3706	  3707	  3708	  3709	  3710	  3713
	  3715	  3717	  3718	  3719	  3720	  3721	  3724	  3726	  3728	  3729	  3730	  3731	  3732	  3735
	  3737	  3739	  3740	  3741	  3742	  3743	  3746	  3748	  3750	  3751	  3752	  3753	  3754	  3757
	  3759	  3761	  3762	  3763	  3764	  3765	  3768	  3770	  3772	  3773	  3774	  3775	  3776	  3779
	  3781	  3783	  3784	  3785	  3786	  3787	  3790	  3792	  3794	  3795	  3796	  3797	  3798	  3801
	  3803	  3805	  3806	  3807	  3808	  3809	  3812	  3814	  3816	  3817	  3818	  3819	  3820	  3823
	  3825	  3827	  3828	  3829	  3830	  3831	  3834	  3836	  3838	  3839	  3840	  3841	  3842	  3845
	  3847	  3849	  3850	  3851	  3852	  3853	  3856	  3858	  3860	  3861	  3862	  3863	  3864	  3867
	  3869	  3871	  3872	  3873	  3874	  3875	  3878	  3880	  3882	  3883	  3884	  3885	  3886	  3889
	  3891	  3893	  3894	  3895	  3896	  3897	  3901	  3903	  3905	  3906	  3907	  3908	  3909	  3912
	  3914	  3916	  3917	  3918	  3919	  3920	  3923	  3925	  3927	  3928	  3929	  3930	  3931	  3934
	  3936	  3938	  3939	  3940	  3941	  3942	  3945	  3947	  3949	  3950	  3951	  3952	  3953	  3956
	  3958	  3960	  3961	  3962	  3963	  3964	  3967	  3969	  3971	  3972	  3973	  3974	  3975	  3978
	  3980	  3982	  3983	  3984	  3985	  3986	  3989	  3991	  3993	  3994	  3995	  3996	  3997	  4000
	  4002	  4004	  4005	  4006	  4007	  4008	  4011	  4013	  4015	  4016	  4017	  4018	  4019	  4022
	  4024	  4026	  4027	  4028	  4029	  4030	  4033	  4035	  4037	  4038	  4039	  4040	  4041	  4044
	  4046	  4048	  4049	  4050	  4051	  4052	  4055	  4057	  4059	  4060	  4061	  4062	  4063	  4066     SEQ 0190
	  4068	  4070	  4071	  4072	  4073	  4074	  4077	  4079	  4081	  4082	  4083	  4084	  4085	  4088
	  4090	  4092	  4093	  4094	  4095	  4096	  4099	  4101	  4103	  4104	  4105	  4106	  4107	  4110
	  4112	  4114	  4115	  4116	  4117	  4118	  4121	  4123	  4125	  4126	  4127	  4128	  4129	  4132
	  4134	  4136	  4137	  4138	  4139	  4140	  4143	  4145	  4147	  4148	  4149	  4150	  4151	  4154
	  4156	  4158	  4159	  4160	  4161	  4162	  4165	  4167	  4169	  4170	  4171	  4172	  4173	  4176
	  4178	  4180	  4181	  4182	  4183	  4184	  4187	  4189	  4191	  4192	  4193	  4194	  4195	  4198
	  4200	  4202	  4203	  4204	  4205	  4206	  4209	  4211	  4213	  4214	  4215	  4216	  4217	  4220
	  4222	  4224	  4225	  4226	  4227	  4228	  4231	  4233	  4235	  4236	  4237	  4238	  4239	  4242
	  4244	  4246	  4247	  4248	  4249	  4250	  4253	  4255	  4257	  4258	  4259	  4260	  4261	  4264
	  4266	  4268	  4269	  4270	  4271	  4272	  4275	  4277	  4279	  4280	  4281	  4282	  4283	  4286
	  4288	  4290	  4291	  4292	  4293	  4294	  4297	  4299	  4301	  4302	  4303	  4304	  4305	  4308
	  4310	  4312	  4313	  4314	  4315	  4316	  4319	  4321	  4323	  4324	  4325	  4326	  4327	  4330
	  4332	  4334	  4335	  4336	  4337	  4338	  4341	  4343	  4345	  4346	  4347	  4348	  4349	  4352
	  4354	  4356	  4357	  4358	  4359	  4360	  4363	  4365	  4367	  4368	  4369	  4370	  4371	  4374
	  4376	  4378	  4379	  4380	  4381	  4382	  4385	  4387	  4389	  4390	  4391	  4392	  4393	  4396
	  4398	  4400	  4401	  4402	  4403	  4404	  4407	  4409	  4411	  4412	  4413	  4414	  4415	  4418
	  4420	  4422	  4423	  4424	  4425	  4426	  4429	  4431	  4433	  4434	  4435	  4436	  4437	  4440
	  4442	  4444	  4445	  4446	  4447	  4448	  4451	  4453	  4455	  4456	  4457	  4458	  4459	  4462
	  4464	  4466	  4467	  4468	  4469	  4470	  4473	  4475	  4477	  4478	  4479	  4480	  4481	  4484
	  4486	  4488	  4489	  4490	  4491	  4492	  4495	  4497	  4499	  4500	  4501	  4502	  4503	  4506
	  4508	  4510	  4511	  4512	  4513	  4514	  4517	  4519	  4521	  4522	  4523	  4524	  4525	  4528
	  4530	  4532	  4533	  4534	  4535	  4536	  4539	  4541	  4543	  4544	  4545	  4546	  4547	  4550
	  4552	  4554	  4555	  4556	  4557	  4558	  4561	  4563	  4565	  4566	  4567	  4568	  4569	  4572
	  4574	  4576	  4577	  4578	  4579	  4580	  4583	  4585	  4587	  4588	  4589	  4590	  4591	  4594
	  4596	  4598	  4599	  4600	  4601	  4602	  4605	  4607	  4609	  4610	  4611	  4612	  4613	  4616
	  4618	  4620	  4621	  4622	  4623	  4624	  4627	  4629	  4631	  4632	  4633	  4634	  4635	  4638
	  4640	  4642	  4643	  4644	  4645	  4646	  4649	  4651	  4653	  4654	  4655	  4656	  4657	  4660
	  4662	  4664	  4665	  4666	  4667	  4668	  4671	  4673	  4675	  4676	  4677	  4678	  4679	  4682
	  4684	  4686	  4687	  4688	  4689	  4690	  4693	  4695	  4697	  4698	  4699	  4700	  4701	  4704
	  4706	  4708	  4709	  4710	  4711	  4712	  4715	  4717	  4719	  4720	  4721	  4722	  4723	  4726
	  4728	  4730	  4731	  4732	  4733	  4734	  4737	  4739	  4741	  4742	  4743	  4744	  4745	  4748
	  4750	  4752	  4753	  4754	  4755	  4756	  4759	  4761	  4763	  4764	  4765	  4766	  4767	  4770
	  4772	  4774	  4775	  4776	  4777	  4778	  4781	  4783	  4785	  4786	  4787	  4788	  4789	  4792
	  4794	  4796	  4797	  4798	  4799	  4800	  4803	  4805	  4807	  4808	  4809	  4810	  4811	  4814
	  4816	  4818	  4819	  4820	  4821	  4822	  4825	  4827	  4829	  4830	  4831	  4832	  4833	  4836
	  4838	  4840	  4841	  4842	  4843	  4844	  4847	  4849	  4851	  4852	  4853	  4854	  4855	  4858
	  4860	  4862	  4863	  4864	  4865	  4866	  4869	  4871	  4873	  4874	  4875	  4876	  4877	  4880#
	  4882	  4883	  4884	  4885	  4888	  4890	  4892	  4893	  4894	  4895	  4896	  4899	  4902	  4903
	  4904	  4905	  4908	  4910	  4912	  4913	  4914	  4915	  4916	  4918	  4920	  4921	  4922	  4923
	  4925	  4927	  4929	  4930	  4931	  4932	  4933	  4936	  4939	  4940	  4941	  4942	  4945	  4947
	  4949	  4950	  4951	  4952	  4953	  4955	  4957	  4958	  4959	  4960	  4962	  4964	  4966	  4967
	  4968	  4969	  4970	  4973	  4976	  4977	  4978	  4979	  4982	  4984	  4986	  4987	  4988	  4989
	  4990	  4992	  4994	  4995	  4996	  4997	  4999	  5001	  5003	  5004	  5005	  5006	  5007	  5010
	  5013	  5014	  5015	  5016	  5019	  5021	  5023	  5024	  5025	  5026	  5027	  5029	  5031	  5032
	  5033	  5034	  5037#	  5039	  5040	  5041	  5042	  5046	  5048	  5050	  5051	  5052	  5053	  5054
	  5055	  5058	  5060	  5062	  5063	  5064	  5065	  5066	  5069	  5071	  5073	  5074	  5075	  5076
	  5077	  5080	  5082	  5084	  5085	  5086	  5087	  5088	  5091	  5093	  5095	  5096	  5097	  5098
	  5099	  5102	  5104	  5106	  5107	  5108	  5109	  5110	  5113	  5115	  5117	  5118	  5119	  5120
	  5121	  5124	  5126	  5128	  5129	  5130	  5131	  5132	  5135#	  5137	  5138	  5139	  5140	  5143
	  5145	  5147	  5148	  5149	  5150	  5151	  5154	  5157	  5158	  5159	  5160	  5163	  5165	  5167
	  5168	  5169	  5170	  5171	  5173	  5175	  5176	  5177	  5178	  5180	  5182	  5184	  5185	  5186
	  5187	  5188	  5191	  5194	  5195	  5196	  5197	  5200	  5202	  5204	  5205	  5206	  5207	  5208
	  5210	  5212	  5213	  5214	  5215	  5217	  5219	  5221	  5222	  5223	  5224	  5225	  5228	  5231     SEQ 0191
	  5232	  5233	  5234	  5237	  5239	  5241	  5242	  5243	  5244	  5245	  5247	  5249	  5250	  5251
	  5252	  5254	  5256	  5258	  5259	  5260	  5261	  5262	  5265	  5268	  5269	  5270	  5271	  5274
	  5276	  5278	  5279	  5280	  5281	  5282	  5284	  5286	  5287	  5288	  5289	  5292#	  5294	  5295
	  5296	  5297	  5301	  5303	  5305	  5306	  5307	  5308	  5309	  5310	  5313	  5315	  5317	  5318
	  5319	  5320	  5321	  5324	  5326	  5328	  5329	  5330	  5331	  5332	  5335	  5337	  5339	  5340
	  5341	  5342	  5343	  5346	  5348	  5350	  5351	  5352	  5353	  5354	  5357	  5359	  5361	  5362
	  5363	  5364	  5365	  5368	  5370	  5372	  5373	  5374	  5375	  5376	  5379	  5381	  5383	  5384
	  5385	  5386	  5387	  5390	  5392	  5394	  5395	  5396	  5397	  5398	  5401	  5403	  5405	  5406
	  5407	  5408	  5409	  5412	  5414	  5416	  5417	  5418	  5419	  5420	  5423	  5425	  5427	  5428
	  5429	  5430	  5431	  5434	  5436	  5438	  5439	  5440	  5441	  5442	  5445	  5447	  5449	  5450
	  5451	  5452	  5453	  5456	  5458	  5460	  5461	  5462	  5463	  5464	  5467	  5469	  5471	  5472
	  5473	  5474	  5475	  5478	  5480	  5482	  5483	  5484	  5485	  5486	  5489	  5491	  5493	  5494
	  5495	  5496	  5497	  5500	  5502	  5504	  5505	  5506	  5507	  5508	  5511	  5513	  5515	  5516
	  5517	  5518	  5519	  5522	  5524	  5526	  5527	  5528	  5529	  5530	  5534	  5536	  5538	  5539
	  5540	  5541	  5542	  5545	  5547	  5549	  5550	  5551	  5552	  5553	  5556	  5558	  5560	  5561
	  5562	  5563	  5564	  5567	  5569	  5571	  5572	  5573	  5574	  5575	  5578	  5580	  5582	  5583
	  5584	  5585	  5586	  5589	  5591	  5593	  5594	  5595	  5596	  5597	  5600	  5602	  5604	  5605
	  5606	  5607	  5608	  5611	  5613	  5615	  5616	  5617	  5618	  5619	  5622	  5624	  5626	  5627
	  5628	  5629	  5630	  5633	  5635	  5637	  5638	  5639	  5640	  5641	  5644	  5646	  5648	  5649
	  5650	  5651	  5652	  5655	  5657	  5659	  5660	  5661	  5662	  5663	  5666	  5668	  5670	  5671
	  5672	  5673	  5674	  5677	  5679	  5683	  5684	  5685	  5686	  5687	  5689	  5690	  5691	  5692
	  5697	  5699	  5703	  5704	  5705	  5706	  5707	  5709	  5710	  5711	  5712	  5717	  5719	  5723
	  5724	  5725	  5726	  5727	  5729	  5730	  5731	  5732	  5737	  5739	  5743	  5744	  5745	  5746
	  5747	  5749	  5750	  5751	  5752	  5757	  5759	  5763	  5764	  5765	  5766	  5767	  5769	  5770
	  5771	  5772	  5777	  5779	  5783	  5784	  5785	  5786	  5787	  5789	  5790	  5791	  5792	  5797
	  5799	  5803	  5804	  5805	  5806	  5807	  5809	  5810	  5811	  5812	  5817	  5819	  5823	  5824
	  5825	  5826	  5827	  5829	  5830	  5831	  5832	  5837	  5839	  5843	  5844	  5845	  5846	  5847
	  5849	  5850	  5851	  5852	  5857	  5859	  5863	  5864	  5865	  5866	  5867	  5869	  5870	  5871
	  5872	  5877	  5879	  5883	  5884	  5885	  5886	  5887	  5889	  5890	  5891	  5892	  5897	  5899
	  5903	  5904	  5905	  5906	  5907	  5909	  5910	  5911	  5912	  5917	  5919	  5923	  5924	  5925
	  5926	  5927	  5929	  5930	  5931	  5932	  5937	  5939	  5943	  5944	  5945	  5946	  5947	  5949
	  5950	  5951	  5952	  5957	  5959	  5961	  5962	  5963	  5964	  5965	  5968	  5970	  5972	  5973
	  5974	  5975	  5976	  5979	  5981	  5983	  5984	  5985	  5986	  5987	  5990	  5992	  5994	  5995
	  5996	  5997	  5998	  6001	  6003	  6005	  6006	  6007	  6008	  6009	  6012	  6014	  6016	  6017
	  6018	  6019	  6020	  6023	  6025	  6027	  6028	  6029	  6030	  6031	  6034	  6036	  6038	  6039
	  6040	  6041	  6042	  6045	  6047	  6049	  6050	  6051	  6052	  6053	  6056	  6058	  6060	  6061
	  6062	  6063	  6064	  6067	  6069	  6071	  6072	  6073	  6074	  6075	  6078	  6080	  6082	  6083
	  6084	  6085	  6086	  6089	  6091	  6093	  6094	  6095	  6096	  6097	  6100	  6102	  6106	  6107
	  6108	  6109	  6110	  6112	  6113	  6114	  6115	  6120	  6122	  6124	  6125	  6126	  6127	  6128
	  6131	  6133	  6135	  6136	  6137	  6138	  6139	  6142	  6144	  6146	  6147	  6148	  6149	  6150
	  6153	  6155	  6157	  6158	  6159	  6160	  6161	  6164	  6166	  6168	  6169	  6170	  6171	  6172
	  6175	  6177	  6179	  6180	  6181	  6182	  6183	  6186	  6188	  6190	  6191	  6192	  6193	  6194
	  6197	  6199	  6201	  6202	  6203	  6204	  6205	  6208	  6210	  6212	  6213	  6214	  6215	  6216
	  6219#	  6221	  6222	  6223	  6224	  6227	  6229	  6231	  6232	  6233	  6234	  6235	  6238	  6241
	  6242	  6243	  6244	  6247	  6249	  6251	  6252	  6253	  6254	  6255	  6257	  6259	  6260	  6261
	  6262	  6264	  6266	  6268	  6269	  6270	  6271	  6272	  6275	  6278	  6279	  6280	  6281	  6284
	  6286	  6288	  6289	  6290	  6291	  6292	  6294	  6296	  6297	  6298	  6299	  6301	  6303	  6305
	  6306	  6307	  6308	  6309	  6312	  6315	  6316	  6317	  6318	  6321	  6323	  6325	  6326	  6327
	  6328	  6329	  6331	  6333	  6334	  6335	  6336	  6338	  6340	  6342	  6343	  6344	  6345	  6346
	  6349	  6352	  6353	  6354	  6355	  6358	  6360	  6362	  6363	  6364	  6365	  6366	  6368	  6370
	  6371	  6372	  6373	  6376#	  6378	  6379	  6380	  6381	  6385	  6387	  6389	  6390	  6391	  6392
	  6393	  6394	  6397	  6399	  6401	  6402	  6403	  6404	  6405	  6408	  6410	  6412	  6413	  6414
	  6415	  6416	  6419	  6421	  6423	  6424	  6425	  6426	  6427	  6430	  6432	  6434	  6435	  6436     SEQ 0192
	  6437	  6438	  6441	  6443	  6445	  6446	  6447	  6448	  6449	  6452	  6454	  6456	  6457	  6458
	  6459	  6460	  6463	  6465	  6467	  6468	  6469	  6470	  6471	  6474	  6476	  6478	  6479	  6480
	  6481	  6482	  6485	  6487	  6489	  6490	  6491	  6492	  6493	  6496	  6498	  6500	  6501	  6502
	  6503	  6504	  6507	  6509	  6511	  6512	  6513	  6514	  6515	  6518	  6520	  6522	  6523	  6524
	  6525	  6526	  6529	  6531	  6533	  6534	  6535	  6536	  6537	  6540	  6542	  6544	  6545	  6546
	  6547	  6548	  6551	  6553	  6555	  6556	  6557	  6558	  6559	  6562	  6564	  6566	  6567	  6568
	  6569	  6570	  6573	  6575	  6577	  6578	  6579	  6580	  6581	  6584	  6586	  6588	  6589	  6590
	  6591	  6592	  6595	  6597	  6599	  6600	  6601	  6602	  6603	  6606	  6608	  6610	  6611	  6612
	  6613	  6614	  6617	  6619	  6621	  6622	  6623	  6624	  6625	  6628	  6630	  6632	  6633	  6634
	  6635	  6636	  6639	  6641	  6643	  6644	  6645	  6646	  6647	  6650	  6652	  6654	  6655	  6656
	  6657	  6658	  6661	  6663	  6665	  6666	  6667	  6668	  6669	  6672	  6674	  6676	  6677	  6678
	  6679	  6680	  6683	  6685	  6687	  6688	  6689	  6690	  6691	  6694	  6696	  6698	  6699	  6700
	  6701	  6702	  6705	  6707	  6709	  6710	  6711	  6712	  6713	  6716	  6718	  6720	  6721	  6722
	  6723	  6724	  6727	  6729	  6731	  6732	  6733	  6734	  6735	  6738	  6740	  6742	  6743	  6744
	  6745	  6746	  6749	  6751	  6753	  6754	  6755	  6756	  6757	  6760	  6762	  6764	  6765	  6766
	  6767	  6768	  6771	  6773	  6775	  6776	  6777	  6778	  6779	  6782	  6784	  6786	  6787	  6788
	  6789	  6790	  6793	  6795	  6797	  6798	  6799	  6800	  6801	  6804	  6806	  6808	  6809	  6810
	  6811	  6812	  6815	  6817	  6819	  6820	  6821	  6822	  6823	  6826	  6828	  6830	  6831	  6832
	  6833	  6834	  6837	  6839	  6841	  6842	  6843	  6844	  6845	  6848	  6850	  6852	  6853	  6854
	  6855	  6856	  6859	  6861	  6863	  6864	  6865	  6866	  6867	  6871	  6873	  6878	  6879	  6889
	  6890	  6892	  6895	  6896	  6897	  6898	  6901	  6903	  6904	  6907	  6908	  6914#	  6916	  6917
	  6918	  6919	  6922	  6924	  6926	  6927	  6928	  6929	  6930	  6933	  6936	  6937	  6938	  6939
	  6942	  6944	  6946	  6947	  6948	  6949	  6950	  6952	  6954	  6955	  6956	  6957	  6959	  6961
	  6963	  6964	  6965	  6966	  6967	  6970	  6973	  6974	  6975	  6976	  6979	  6981	  6983	  6984
	  6985	  6986	  6987	  6989	  6991	  6992	  6993	  6994	  6996	  6998	  7000	  7001	  7002	  7003
	  7004	  7007	  7010	  7011	  7012	  7013	  7016	  7018	  7020	  7021	  7022	  7023	  7024	  7026
	  7028	  7029	  7030	  7031	  7033	  7035	  7037	  7038	  7039	  7040	  7041	  7044	  7047	  7048
	  7049	  7050	  7053	  7055	  7057	  7058	  7059	  7060	  7061	  7063	  7065	  7066	  7067	  7068
	  7072	  7074	  7076	  7077	  7078	  7079	  7080	  7082	  7084	  7085	  7086	  7087	  7092	  7094
	  7096	  7097	  7098	  7099	  7100	  7102	  7104	  7105	  7106	  7107
ALTMGO	   889#	  7232
APR	  6883
AROV	   803#
AROVTP	   803#
AROVU	   803#
AST	  1004#
ATSIN	  1005#
BEGEND	   885#	  7109
BEGIN	    71	    76	    77	    78	    79	    80	    81	   792	   793	   816#	  8310
BEGIN1	   832#	   886
BELL	  1008#
BIS	   803#
CCA	   803#
CE00	  1159#
CHAIN	   597#
CHNOFF	   803#
CHNON	   803#
CLKU	   803#
CLOCKF	   871#
CNTLC	   888#
CNTRP	   803#
COMMA	   997#
CONSW	   872#	  7167	  7233	  7257                                                                                     SEQ 0193
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#	  7085	  7105
DDTLNK	   611#	   830
DDTSRT	   830#
DEBUG	    55#	  8301	  8302
DECVER	     4#	    10	    23	   851
DF22F	   956#
DIAGMN	   819#
DING	   583#	  7238
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	  8309#
ENDFIX	  1131#
ENDSLD	  8299#
ERDIAG	    59#	  7152
ERMORE	   905#	  7225
EROLD	    60#	   803
ERRELB	  7222
ERRLOP	  1163#	  1163	  4885#	  4885	  5042#	  5042	  5140#	  5140	  5297#	  5297	  6224#	  6224	  6381#	  6381
	  6919#	  6919	  7132	  7243	  7246	  7247
ERRMES	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	    51	  7114#
ERRPC	   876#	  7119	  7149
ERRTLS	   877#	  7117	  7250
ERSTOP	   586#	  7234
EXCASB	    56#	   854
EXIOT	   803#
FOV	   803#
FOVU	   803#                                                                                                            SEQ 0194
FRDLNK	   609#
FSELNK	   608#
FXU	   803#	  4903	  4921	  4940	  4958	  4977	  4995	  5014	  5032	  5158	  5176	  5195	  5213	  5232
	  5250	  5269	  5287	  6242	  6260	  6279	  6297	  6316	  6334	  6353	  6371	  6937	  6955	  6974
	  6992	  7011	  7029	  7048	  7066
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#	  7231
JOBREL	   803#
JOBREN	   803#
JOBSA	   803#
JOBSYM	   803#
JOBTPC	   803#
JOBUSY	   803#
JOBUUO	   803#
JOBVER	   803#
KAIFLG	   866#
KLFLG	   867#	  5681	  5701	  5721	  5741	  5761	  5781	  5801	  5821	  5841	  5861	  5881	  5901	  5921
	  5941	  6104
KNTRP	   803#
KTRP	   803#
LACLK	   803#
LACLKE	   803#
LAPRAL	   803#
LAPRP1	   803#
LAPRP2	   803#
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#                                                                                                            SEQ 0195
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#	  7236
LPAREN	   803#
LPARER	   803#
LPFWPC	   803#
LPGFTR	   803#
LPICH1	   803#
LPICH2	   803#
LPICH3	   803#
LPICH4	   803#
LPICH5	   803#
LPICH6	   803#
LPICH7	   803#
LPICHA	   803#
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#                                                                                                            SEQ 0196
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
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#                                                                                                            SEQ 0197
MEMMAP	   857
MEMSIZ	   960#
MEMTOT	   958#
MICNT	  7120#	  7120	  7121	  7134
MINUS	  1001#
MODDVC	   593#
MODDVL	   792	   792#	   852
MODDVU	   793	   793#	   853
MODLNK	   612#	   816
MONCTL	   869#	  7135	  7248
MONFLG	   868#
MONTEN	   870#
MONTYP	  1083#
MPVU	   803#
MUUO	   803#
MUUOPC	   803#
NOPNT	   581#	  7125
NXMU	   803#
OPRSEL	   595#
OPTIME	   971#
P	   638	   639	   640	   641	   803#	   891
PAG	   803#
PALERS	   587#	  7258
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#	  7140	  7144
PATCH	  8302#
PDISF	   968#
PDLOVU	   803#
PDOVTP	   803#
PERIOD	   998#
PFSTRT	   825#
PGMEND	    58#	  8308
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                                                                                                     SEQ 0198
PLISTE	  1037	  1039#
PLISTS	  1038#
PLUS	  1003#
PNTENB	   967#
PNTEXT	   846#
PNTFLG	   966#
PNTINH	   969#
PNTLPT	   582#
PNTNAM	   845#
PNTRP	   803#
PNTSPC	   970#
PROCED	  7123#	  7123	  7237	  7244
PTRP	   803#
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#
S100	  1167#
S10100	  3084#	  3093
S10200	  3096#	  3104
S10300	  3107#	  3115
S10400	  3118#	  3126
S10500	  3129#	  3137
S10600	  3140#	  3148
S10700	  3151#	  3159
S11000	  3162#	  3170
S11100	  3173#	  3181
S11200	  3184#	  3192
S11300	  3195#	  3203
S11400	  3206#	  3214
S11500	  3217#	  3225
S11600	  3228#	  3236
S11700	  3239#	  3247
S12000	  3250#	  3258
S12100	  3261#	  3269
S12200	  3272#	  3280
S12300	  3283#	  3291
S12400	  3294#	  3302                                                                                                     SEQ 0199
S12500	  3305#	  3313
S12600	  3316#	  3324
S12700	  3327#	  3335
S13000	  3338#	  3346
S13100	  3349#	  3357
S13200	  3360#	  3368
S13300	  3371#	  3379
S13400	  3382#	  3390
S13500	  3393#	  3401
S13600	  3404#	  3412
S13700	  3415#	  3423
S14000	  3426#	  3434
S14100	  3437#	  3445
S14200	  3448#	  3456
S14300	  3459#	  3467
S14400	  3470#	  3478
S14500	  3481#	  3489
S14600	  3492#	  3500
S14700	  3503#	  3511
S15000	  3514#	  3522
S15100	  3525#	  3533
S15200	  3536#	  3544
S15300	  3547#	  3555
S15400	  3558#	  3566
S15500	  3569#	  3577
S15600	  3580#	  3588
S15700	  3591#	  3599
S16000	  3603#	  3611
S16100	  3614#	  3622
S16200	  3625#	  3633
S16300	  3636#	  3644
S16400	  3647#	  3655
S16500	  3658#	  3666
S16600	  3669#	  3677
S16700	  3680#	  3688
S17000	  3691#	  3699
S17100	  3702#	  3710
S17200	  3713#	  3721
S17300	  3724#	  3732
S17400	  3735#	  3743
S17500	  3746#	  3754
S17600	  3757#	  3765
S17700	  3768#	  3776
S200	  2073#
S20000	  3779#	  3787
S20100	  3790#	  3798
S20200	  3801#	  3809
S20300	  3812#	  3820
S20400	  3823#	  3831
S20500	  3834#	  3842
S20600	  3845#	  3853
S20700	  3856#	  3864
S21000	  3867#	  3875                                                                                                     SEQ 0200
S21100	  3878#	  3886
S21200	  3889#	  3897
S21300	  3901#	  3909
S21400	  3912#	  3920
S21500	  3923#	  3931
S21600	  3934#	  3942
S21700	  3945#	  3953
S22000	  3956#	  3964
S22100	  3967#	  3975
S22200	  3978#	  3986
S22300	  3989#	  3997
S22400	  4000#	  4008
S22500	  4011#	  4019
S22600	  4022#	  4030
S22700	  4033#	  4041
S23000	  4044#	  4052
S23100	  4055#	  4063
S23200	  4066#	  4074
S23300	  4077#	  4085
S23400	  4088#	  4096
S23500	  4099#	  4107
S23600	  4110#	  4118
S23700	  4121#	  4129
S24000	  4132#	  4140
S24100	  4143#	  4151
S24200	  4154#	  4162
S24300	  4165#	  4173
S24400	  4176#	  4184
S24500	  4187#	  4195
S24600	  4198#	  4206
S24700	  4209#	  4217
S25000	  4220#	  4228
S25100	  4231#	  4239
S25200	  4242#	  4250
S25300	  4253#	  4261
S25400	  4264#	  4272
S25500	  4275#	  4283
S25600	  4286#	  4294
S25700	  4297#	  4305
S26000	  4308#	  4316
S26100	  4319#	  4327
S26200	  4330#	  4338
S26300	  4341#	  4349
S26400	  4352#	  4360
S26500	  4363#	  4371
S26600	  4374#	  4382
S26700	  4385#	  4393
S27000	  4396#	  4404
S27100	  4407#	  4415
S27200	  4418#	  4426
S27300	  4429#	  4437
S27400	  4440#	  4448
S27500	  4451#	  4459                                                                                                     SEQ 0201
S27600	  4462#	  4470
S27700	  4473#	  4481
S30000	  4484#	  4492
S30100	  4495#	  4503
S30200	  4506#	  4514
S30300	  4517#	  4525
S30400	  4528#	  4536
S30500	  4539#	  4547
S30600	  4550#	  4558
S30700	  4561#	  4569
S31000	  4572#	  4580
S31100	  4583#	  4591
S31200	  4594#	  4602
S31300	  4605#	  4613
S31400	  4616#	  4624
S31500	  4627#	  4635
S31600	  4638#	  4646
S31700	  4649#	  4657
S32000	  4660#	  4668
S32100	  4671#	  4679
S32200	  4682#	  4690
S32300	  4693#	  4701
S32400	  4704#	  4712
S32500	  4715#	  4723
S32600	  4726#	  4734
S32700	  4737#	  4745
S33000	  4748#	  4756
S33100	  4759#	  4767
S33200	  4770#	  4778
S33300	  4781#	  4789
S33400	  4792#	  4800
S33500	  4803#	  4811
S33600	  4814#	  4822
S33700	  4825#	  4833
S34000	  4836#	  4844
S34100	  4847#	  4855
S34200	  4858#	  4866
S34300	  4869#	  4877
S34400	  4887#	  4905
S34500	  4907#	  4923
S34600	  4924#	  4942
S34700	  4944#	  4960
S35000	  4961#	  4979
S35100	  4981#	  4997
S35200	  4998#	  5016
S35300	  5018#	  5034
S40100	  5046#	  5055
S40200	  5058#	  5066
S40300	  5069#	  5077
S40400	  5080#	  5088
S40500	  5091#	  5099
S40600	  5102#	  5110
S40700	  5113#	  5121                                                                                                     SEQ 0202
S41000	  5124#	  5132
S41100	  5142#	  5160
S41200	  5162#	  5178
S41300	  5179#	  5197
S41400	  5199#	  5215
S41500	  5216#	  5234
S41600	  5236#	  5252
S41700	  5253#	  5271
S42000	  5273#	  5289
S50100	  5301#	  5310
S50200	  5313#	  5321
S50300	  5324#	  5332
S50400	  5335#	  5343
S50500	  5346#	  5354
S50600	  5357#	  5365
S50700	  5368#	  5376
S51000	  5379#	  5387
S51100	  5390#	  5398
S51200	  5401#	  5409
S51300	  5412#	  5420
S51400	  5423#	  5431
S51500	  5434#	  5442
S51600	  5445#	  5453
S51700	  5456#	  5464
S52000	  5467#	  5475
S52100	  5478#	  5486
S52200	  5489#	  5497
S52300	  5500#	  5508
S52400	  5511#	  5519
S52500	  5522#	  5530
S52600	  5534#	  5542
S52700	  5545#	  5553
S53000	  5556#	  5564
S53100	  5567#	  5575
S53200	  5578#	  5586
S53300	  5589#	  5597
S53400	  5600#	  5608
S53500	  5611#	  5619
S53600	  5622#	  5630
S53700	  5633#	  5641
S54000	  5644#	  5652
S54100	  5655#	  5663
S54200	  5666#	  5674
S54300	  5677#	  5687
S54305	  5682	  5689#
S54306	  5687#	  5693
S54307	  5688	  5694#
S54400	  5697#	  5707
S54405	  5702	  5709#
S54406	  5707#	  5713
S54407	  5708	  5714#
S54500	  5717#	  5727
S54505	  5722	  5729#                                                                                                    SEQ 0203
S54506	  5727#	  5733
S54507	  5728	  5734#
S54600	  5737#	  5747
S54605	  5742	  5749#
S54606	  5747#	  5753
S54607	  5748	  5754#
S54700	  5757#	  5767
S54705	  5762	  5769#
S54706	  5767#	  5773
S54707	  5768	  5774#
S55000	  5777#	  5787
S55005	  5782	  5789#
S55006	  5787#	  5793
S55007	  5788	  5794#
S55100	  5797#	  5807
S55105	  5802	  5809#
S55106	  5807#	  5813
S55107	  5808	  5814#
S55200	  5817#	  5827
S55205	  5822	  5829#
S55206	  5827#	  5833
S55207	  5828	  5834#
S55300	  5837#	  5847
S55305	  5842	  5849#
S55306	  5847#	  5853
S55307	  5848	  5854#
S55400	  5857#	  5867
S55405	  5862	  5869#
S55406	  5867#	  5873
S55407	  5868	  5874#
S55500	  5877#	  5887
S55505	  5882	  5889#
S55506	  5887#	  5893
S55507	  5888	  5894#
S55600	  5897#	  5907
S55605	  5902	  5909#
S55606	  5907#	  5913
S55607	  5908	  5914#
S55700	  5917#	  5927
S55705	  5922	  5929#
S55706	  5927#	  5933
S55707	  5928	  5934#
S56000	  5937#	  5947
S56005	  5942	  5949#
S56006	  5947#	  5953
S56007	  5948	  5954#
S56100	  5957#	  5965
S56200	  5968#	  5976
S56300	  5979#	  5987
S56400	  5990#	  5998
S56500	  6001#	  6009
S56600	  6012#	  6020
S56700	  6023#	  6031                                                                                                     SEQ 0204
S57000	  6034#	  6042
S57100	  6045#	  6053
S57200	  6056#	  6064
S57300	  6067#	  6075
S57400	  6078#	  6086
S57500	  6089#	  6097
S57600	  6100#	  6110
S57605	  6105	  6112#
S57606	  6110#	  6116
S57607	  6111	  6117#
S57700	  6120#	  6128
S60000	  6131#	  6139
S60100	  6142#	  6150
S60200	  6153#	  6161
S60300	  6164#	  6172
S60400	  6175#	  6183
S60500	  6186#	  6194
S60600	  6197#	  6205
S60700	  6208#	  6216
S61000	  6226#	  6244
S61100	  6246#	  6262
S61200	  6263#	  6281
S61300	  6283#	  6299
S61400	  6300#	  6318
S61500	  6320#	  6336
S61600	  6337#	  6355
S61700	  6357#	  6373
S70100	  6385#	  6394
S70200	  6397#	  6405
S70300	  6408#	  6416
S70400	  6419#	  6427
S70500	  6430#	  6438
S70600	  6441#	  6449
S70700	  6452#	  6460
S71000	  6463#	  6471
S71100	  6474#	  6482
S71200	  6485#	  6493
S71300	  6496#	  6504
S71400	  6507#	  6515
S71500	  6518#	  6526
S71600	  6529#	  6537
S71700	  6540#	  6548
S72000	  6551#	  6559
S72100	  6562#	  6570
S72200	  6573#	  6581
S72300	  6584#	  6592
S72400	  6595#	  6603
S72500	  6606#	  6614
S72600	  6617#	  6625
S72700	  6628#	  6636
S73000	  6639#	  6647
S73100	  6650#	  6658
S73200	  6661#	  6669                                                                                                     SEQ 0205
S73300	  6672#	  6680
S73400	  6871#	  6892
S73405	  6876	  6895#
S73406	  6892#	  6899	  6902	  6905	  6909
S73407	  6893	  6911#
S73408	  6882	  6901#
S73409	  6887	  6907#
S73500	  6683#	  6691
S73600	  6694#	  6702
S73700	  6705#	  6713
S74100	  6716#	  6724
S74200	  6727#	  6735
S74300	  6738#	  6746
S74400	  6749#	  6757
S74500	  6760#	  6768
S74600	  6771#	  6779
S74700	  6782#	  6790
S75000	  6793#	  6801
S75100	  6804#	  6812
S75200	  6815#	  6823
S75300	  6826#	  6834
S75400	  6837#	  6845
S75500	  6848#	  6856
S75600	  6859#	  6867
S75700	  6921#	  6939
S76000	  6941#	  6957
S76100	  6958#	  6976
S76200	  6978#	  6994
S76300	  6995#	  7013
S76400	  7015#	  7031
S76500	  7032#	  7050
S76600	  7052#	  7068
S76700	  7071#	  7087
S77000	  7091#	  7107
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#	  6875
SNTRP	   803#
SPACE	   999#
SPDES	  7210#                                                                                                            SEQ 0206
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#
T	  1166#	  1173	  1175	  1187	  1187#	  1196	  1198	  1201	  1201#	  1210	  1212	  1215	  1215#	  1224
	  1226	  1229	  1229#	  1238	  1240	  1243	  1243#	  1252	  1254	  1257	  1257#	  1266	  1268	  1271
	  1271#	  1280	  1282	  1285	  1285#	  1294	  1296	  1308	  1308#	  1317	  1319	  1322	  1322#	  1331
	  1333	  1336	  1336#	  1345	  1347	  1350	  1350#	  1359	  1361	  1364	  1364#	  1373	  1375	  1378
	  1378#	  1387	  1389	  1392	  1392#	  1401	  1403	  1406	  1406#	  1415	  1417	  1420	  1420#	  1429
	  1431	  1434	  1434#	  1443	  1445	  1448	  1448#	  1457	  1459	  1462	  1462#	  1471	  1473	  1476
	  1476#	  1485	  1487	  1490	  1490#	  1499	  1501	  1504	  1504#	  1513	  1515	  1518	  1518#	  1527
	  1529	  1532	  1532#	  1541	  1543	  1546	  1546#	  1555	  1557	  1569	  1569#	  1578	  1580	  1583
	  1583#	  1592	  1594	  1597	  1597#	  1606	  1608	  1611	  1611#	  1620	  1622	  1625	  1625#	  1634
	  1636	  1639	  1639#	  1648	  1650	  1653	  1653#	  1662	  1664	  1667	  1667#	  1676	  1678	  1681
	  1681#	  1690	  1692	  1695	  1695#	  1704	  1706	  1709	  1709#	  1718	  1720	  1723	  1723#	  1732
	  1734	  1737	  1737#	  1746	  1748	  1751	  1751#	  1760	  1762	  1765	  1765#	  1774	  1776	  1779
	  1779#	  1788	  1790	  1793	  1793#	  1802	  1804	  1816	  1816#	  1825	  1827	  1830	  1830#	  1839
	  1841	  1844	  1844#	  1853	  1855	  1858	  1858#	  1867	  1869	  1872	  1872#	  1881	  1883	  1886
	  1886#	  1895	  1897	  1900	  1900#	  1909	  1911	  1914	  1914#	  1923	  1925	  1928	  1928#	  1937
	  1939	  1942	  1942#	  1951	  1953	  1956	  1956#	  1965	  1967	  1970	  1970#	  1979	  1981	  1984
	  1984#	  1993	  1995	  1998	  1998#	  2007	  2009	  2012	  2012#	  2021	  2023	  2026	  2026#	  2035
	  2037	  2040	  2040#	  2049	  2051	  2054	  2054#	  2063	  2065	  2068#	  2081	  2081#	  2092	  2094
	  2097	  2097#	  2108	  2110	  2113	  2113#	  2124	  2126	  2129	  2129#	  2140	  2142	  2145	  2145#
	  2156	  2158	  2161	  2161#	  2172	  2174	  2177	  2177#	  2188	  2190	  2193	  2193#	  2204	  2206
	  2209	  2209#	  2220	  2222	  2235	  2235#	  2245	  2247	  2250	  2250#	  2260	  2262	  2265	  2265#
	  2275	  2277	  2280	  2280#	  2290	  2292	  2295	  2295#	  2305	  2307	  2310	  2310#	  2320	  2322
	  2325	  2325#	  2335	  2337	  2340	  2340#	  2350	  2352	  2355	  2355#	  2365	  2367	  2370	  2370#
	  2380	  2382	  2395	  2395#	  2405	  2407	  2410	  2410#	  2420	  2422	  2425	  2425#	  2435	  2437
	  2440	  2440#	  2450	  2452	  2455	  2455#	  2465	  2467	  2470	  2470#	  2480	  2482	  2485	  2485#
	  2495	  2497	  2500	  2500#	  2510	  2512	  2524	  2524#	  2534	  2536	  2539	  2539#	  2549	  2551
	  2554	  2554#	  2564	  2566	  2569	  2569#	  2579	  2581	  2584	  2584#	  2594	  2596	  2599	  2599#
	  2609	  2611	  2614	  2614#	  2624	  2626	  2629	  2629#	  2639	  2641	  2644	  2644#	  2654	  2656
	  2669	  2669#	  2679	  2681	  2684	  2684#	  2694	  2696	  2699	  2699#	  2709	  2711	  2714	  2714#
	  2724	  2726	  2729	  2729#	  2739	  2741	  2744	  2744#	  2754	  2756	  2759	  2759#	  2769	  2771
	  2774	  2774#	  2784	  2786	  2799	  2799#	  2809	  2811	  2814	  2814#	  2824	  2826	  2829	  2829#
	  2839	  2841	  2844	  2844#	  2854	  2856	  2859	  2859#	  2869	  2871	  2874	  2874#	  2884	  2886
	  2889	  2889#	  2899	  2901	  2904	  2904#	  2914	  2916	  2919	  2919#	  2929	  2931	  2934	  2934#
	  2944	  2946	  2960	  2960#	  2970	  2972	  2975	  2975#	  2985	  2987	  2990	  2990#	  3000	  3002
	  3005	  3005#	  3015	  3017	  3020	  3020#	  3030	  3032	  3035	  3035#	  3045	  3047	  3050	  3050#
	  3060	  3062	  3066	  3066#	  3075	  3077
TAB	  1000#
TESTPC	   875#	  1161	  4883	  5040	  5138	  5295	  6222	  6379	  6917
TICKS	   878#
TLET	  1153	  7184	  7207#                                                                                            SEQ 0207
TN0	   803#
TN1	   803#
TOTALS	   579#
TRP3TP	   803#
TTNBRF	  1058#
TTYFIL	   974#
TTYSPD	   975#
TXTINH	   590#	  7168
UBAVEC	   803#
USER	   865#	  6881
USERF	   803#
USRASB	    57#	   855
USRCRF	   984#
USRLFF	   983#
UUODIS	   937#
UUOEXT	   893#	  7255
UUORTN	   894#
UUOSKP	   891#
XX	  1178#	  1188	  1188#	  1191	  1202	  1202#	  1205	  1216	  1216#	  1219	  1230	  1230#	  1233	  1244
	  1244#	  1247	  1258	  1258#	  1261	  1272	  1272#	  1275	  1286	  1286#	  1289	  1300#	  1309	  1309#
	  1312	  1323	  1323#	  1326	  1337	  1337#	  1340	  1351	  1351#	  1354	  1365	  1365#	  1368	  1379
	  1379#	  1382	  1393	  1393#	  1396	  1407	  1407#	  1410	  1421	  1421#	  1424	  1435	  1435#	  1438
	  1449	  1449#	  1452	  1463	  1463#	  1466	  1477	  1477#	  1480	  1491	  1491#	  1494	  1505	  1505#
	  1508	  1519	  1519#	  1522	  1533	  1533#	  1536	  1547	  1547#	  1550	  1561#	  1570	  1570#	  1574
	  1584	  1584#	  1588	  1598	  1598#	  1602	  1612	  1612#	  1616	  1626	  1626#	  1630	  1640	  1640#
	  1644	  1654	  1654#	  1658	  1668	  1668#	  1672	  1682	  1682#	  1686	  1696	  1696#	  1700	  1710
	  1710#	  1714	  1724	  1724#	  1728	  1738	  1738#	  1742	  1752	  1752#	  1756	  1766	  1766#	  1770
	  1780	  1780#	  1784	  1794	  1794#	  1798	  1808#	  1817	  1817#	  1821	  1831	  1831#	  1835	  1845
	  1845#	  1849	  1859	  1859#	  1863	  1873	  1873#	  1877	  1887	  1887#	  1891	  1901	  1901#	  1905
	  1915	  1915#	  1919	  1929	  1929#	  1933	  1943	  1943#	  1947	  1957	  1957#	  1961	  1971	  1971#
	  1975	  1985	  1985#	  1989	  1999	  1999#	  2003	  2013	  2013#	  2017	  2027	  2027#	  2031	  2041
	  2041#	  2045	  2055	  2055#	  2059	  2069#	  2082	  2082#	  2087	  2098	  2098#	  2103	  2114	  2114#
	  2119	  2130	  2130#	  2135	  2146	  2146#	  2151	  2162	  2162#	  2167	  2178	  2178#	  2183	  2194
	  2194#	  2199	  2210	  2210#	  2215	  2226#	  2236	  2236#	  2240	  2251	  2251#	  2255	  2266	  2266#
	  2270	  2281	  2281#	  2285	  2296	  2296#	  2300	  2311	  2311#	  2315	  2326	  2326#	  2330	  2341
	  2341#	  2345	  2356	  2356#	  2360	  2371	  2371#	  2375	  2396	  2396#	  2400	  2411	  2411#	  2415
	  2426	  2426#	  2430	  2441	  2441#	  2445	  2456	  2456#	  2460	  2471	  2471#	  2475	  2486	  2486#
	  2490	  2501	  2501#	  2505	  2515#	  2525	  2525#	  2530	  2540	  2540#	  2545	  2555	  2555#	  2560
	  2570	  2570#	  2575	  2585	  2585#	  2590	  2600	  2600#	  2605	  2615	  2615#	  2620	  2630	  2630#
	  2635	  2645	  2645#	  2650	  2670	  2670#	  2675	  2685	  2685#	  2690	  2700	  2700#	  2705	  2715
	  2715#	  2720	  2730	  2730#	  2735	  2745	  2745#	  2750	  2760	  2760#	  2765	  2775	  2775#	  2780
	  2790#	  2800	  2800#	  2805	  2815	  2815#	  2820	  2830	  2830#	  2835	  2845	  2845#	  2850	  2860
	  2860#	  2865	  2875	  2875#	  2880	  2890	  2890#	  2895	  2905	  2905#	  2910	  2920	  2920#	  2925
	  2935	  2935#	  2940	  2961	  2961#	  2966	  2976	  2976#	  2981	  2991	  2991#	  2996	  3006	  3006#
	  3011	  3021	  3021#	  3026	  3036	  3036#	  3041	  3051	  3051#	  3056	  3067	  3067#	  3071
YY	  2070#	  2083	  2083#	  2091	  2099	  2099#	  2107	  2115	  2115#	  2123	  2131	  2131#	  2139	  2147
	  2147#	  2155	  2163	  2163#	  2171	  2179	  2179#	  2187	  2195	  2195#	  2203	  2211	  2211#	  2219
	  2237	  2237#	  2244	  2252	  2252#	  2259	  2267	  2267#	  2274	  2282	  2282#	  2289	  2297	  2297#
	  2304	  2312	  2312#	  2319	  2327	  2327#	  2334	  2342	  2342#	  2349	  2357	  2357#	  2364	  2372
	  2372#	  2379	  2397	  2397#	  2404	  2412	  2412#	  2419	  2427	  2427#	  2434	  2442	  2442#	  2449
	  2457	  2457#	  2464	  2472	  2472#	  2479	  2487	  2487#	  2494	  2502	  2502#	  2509	  2526	  2526#
	  2533	  2541	  2541#	  2548	  2556	  2556#	  2563	  2571	  2571#	  2578	  2586	  2586#	  2593	  2601
	  2601#	  2608	  2616	  2616#	  2623	  2631	  2631#	  2638	  2646	  2646#	  2653	  2671	  2671#	  2678     SEQ 0208
	  2686	  2686#	  2693	  2701	  2701#	  2708	  2716	  2716#	  2723	  2731	  2731#	  2738	  2746	  2746#
	  2753	  2761	  2761#	  2768	  2776	  2776#	  2783	  2801	  2801#	  2808	  2816	  2816#	  2823	  2831
	  2831#	  2838	  2846	  2846#	  2853	  2861	  2861#	  2868	  2876	  2876#	  2883	  2891	  2891#	  2898
	  2906	  2906#	  2913	  2921	  2921#	  2928	  2936	  2936#	  2943	  2950	  2950#	  2962	  2962#	  2969
	  2977	  2977#	  2984	  2992	  2992#	  2999	  3007	  3007#	  3014	  3022	  3022#	  3029	  3037	  3037#
	  3044	  3052	  3052#	  3059	  3074
ZZ	  1179#	  1189	  1189#	  1195	  1203	  1203#	  1209	  1217	  1217#	  1223	  1231	  1231#	  1237	  1245
	  1245#	  1251	  1259	  1259#	  1265	  1273	  1273#	  1279	  1287	  1287#	  1293	  1310	  1310#	  1316
	  1324	  1324#	  1330	  1338	  1338#	  1344	  1352	  1352#	  1358	  1366	  1366#	  1372	  1380	  1380#
	  1386	  1394	  1394#	  1400	  1408	  1408#	  1414	  1422	  1422#	  1428	  1436	  1436#	  1442	  1450
	  1450#	  1456	  1464	  1464#	  1470	  1478	  1478#	  1484	  1492	  1492#	  1498	  1506	  1506#	  1512
	  1520	  1520#	  1526	  1534	  1534#	  1540	  1548	  1548#	  1554	  1571	  1571#	  1577	  1585	  1585#
	  1591	  1599	  1599#	  1605	  1613	  1613#	  1619	  1627	  1627#	  1633	  1641	  1641#	  1647	  1655
	  1655#	  1661	  1669	  1669#	  1675	  1683	  1683#	  1689	  1697	  1697#	  1703	  1711	  1711#	  1717
	  1725	  1725#	  1731	  1739	  1739#	  1745	  1753	  1753#	  1759	  1767	  1767#	  1773	  1781	  1781#
	  1787	  1795	  1795#	  1801	  1818	  1818#	  1824	  1832	  1832#	  1838	  1846	  1846#	  1852	  1860
	  1860#	  1866	  1874	  1874#	  1880	  1888	  1888#	  1894	  1902	  1902#	  1908	  1916	  1916#	  1922
	  1930	  1930#	  1936	  1944	  1944#	  1950	  1958	  1958#	  1964	  1972	  1972#	  1978	  1986	  1986#
	  1992	  2000	  2000#	  2006	  2014	  2014#	  2020	  2028	  2028#	  2034	  2042	  2042#	  2048	  2056
	  2056#	  2062	  2071#	  2084	  2084#	  2085	  2085#	  2093	  2100	  2100#	  2101	  2109	  2116	  2116#
	  2117	  2125	  2132	  2132#	  2133	  2141	  2148	  2148#	  2149	  2157	  2164	  2164#	  2165	  2173
	  2180	  2180#	  2181	  2189	  2196	  2196#	  2197	  2205	  2212	  2212#	  2213	  2221	  2238	  2238#
	  2246	  2253	  2253#	  2261	  2268	  2268#	  2276	  2283	  2283#	  2291	  2298	  2298#	  2306	  2313
	  2313#	  2321	  2328	  2328#	  2336	  2343	  2343#	  2351	  2358	  2358#	  2366	  2373	  2373#	  2381
	  2386#	  2398	  2398#	  2406	  2413	  2413#	  2421	  2428	  2428#	  2436	  2443	  2443#	  2451	  2458
	  2458#	  2466	  2473	  2473#	  2481	  2488	  2488#	  2496	  2503	  2503#	  2511	  2527	  2527#	  2535
	  2542	  2542#	  2550	  2557	  2557#	  2565	  2572	  2572#	  2580	  2587	  2587#	  2595	  2602	  2602#
	  2610	  2617	  2617#	  2625	  2632	  2632#	  2640	  2647	  2647#	  2655	  2660#	  2672	  2672#	  2678
	  2687	  2687#	  2693	  2702	  2702#	  2708	  2717	  2717#	  2723	  2732	  2732#	  2738	  2747	  2747#
	  2753	  2762	  2762#	  2768	  2777	  2777#	  2783	  2802	  2802#	  2808	  2817	  2817#	  2823	  2832
	  2832#	  2838	  2847	  2847#	  2853	  2862	  2862#	  2868	  2877	  2877#	  2883	  2892	  2892#	  2898
	  2907	  2907#	  2913	  2922	  2922#	  2928	  2937	  2937#	  2943	  2951#	  2963	  2963#	  2969	  2978
	  2978#	  2984	  2993	  2993#	  2999	  3008	  3008#	  3014	  3023	  3023#	  3029	  3038	  3038#	  3044
	  3053	  3053#	  3059	  3068	  3068#	  3074
$$MUUO	  1089#
$$OUTE	  1095#
$$TAX1	  1107#
$$TAX2	  1108#
$$TOGG	  1101#
$$UUO	  1078#
$ACC0	   916#
$ACF	  7211#
$BEND1	   886#
$BEND2	    75	   887#	  7264
$CHRIN	   977#
$CRLF	   979#
$DEVCH	   803#
$DSKUP	   856#
$DVOFF	   973#
$EMODE	   854#
$FFF	   981#
$IBUF	  1029#
$INEXT	  1031#                                                                                                            SEQ 0209
$INNM	  1030#
$ITRHL	   897#
$ITRX1	   898#
$LPAPE	  7270
$MMAP	   857#
$MODVL	   852#
$MODVU	   853#
$OBUF	  1020#
$ONETM	   880#
$OUTEX	  1022#
$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#	  7118	  7122	  7148
$SVUUO	   922#	  7127	  7159	  7187
$TABF	   980#
$TTCHR	   976#
$TWCNT	   972#
$TYPNB	   978#
$UMODE	   855#
$UORTX	   895#
$USRHL	   899#
$UUOER	   896#	   937
$VTF	   982#
%AC1F	  7212#
%ACS1A	  7129#	  7129	  7173
%ACTFL	   929#
%ACTUL	   930#
%ALF	  7217#
%AR1F	  7216#
%ARF	  7215#
%COREC	   928#
%CORFL	   927#
%DISCR	   931#
%E1F	  7214#
%EEF	  7218#
%EF	  7213#
%ER4X	  7193	  7198#
%ER5X	  7191	  7200#
%ER6X	  7189	  7202#
%ER7X	  7195#	  7199	  7201	  7203
%ERAC0	  7114#	  7114	  7130	  7164	  7254
%ERAC1	  7115#	  7115	  7131	  7242                                                                                     SEQ 0210
%ERAC2	  7116#	  7116	  7241
%ERFST	  7137#	  7137	  7139
%ERHI1	  1070#
%ERHI2	  1071#
%ERHI3	  1072#
%ERMOR	  7169	  7196	  7225#
%ERMS1	  7134#	  7260
%ERMS2	  7157#
%ERMS3	  7175	  7182#
%ERRS1	  7126	  7228#	  7259
%ERRS2	  7241#
%ERRS4	  7133	  7257#
%ERRS5	  7245	  7249	  7254#
%ERRS6	  7252	  7262#
%FF	  7219#
%FLTTB	  7177	  7208#
%NODES	  7209#
.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 0211
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#	  4899	  4902	  4904	  4918	  4920	  4922	  4936	  4939	  4941	  4955	  4957	  4959	  4973
	  4976	  4978	  4992	  4994	  4996	  5010	  5013	  5015	  5029	  5031	  5033	  5154	  5157	  5159
	  5173	  5175	  5177	  5191	  5194	  5196	  5210	  5212	  5214	  5228	  5231	  5233	  5247	  5249
	  5251	  5265	  5268	  5270	  5284	  5286	  5288	  6238	  6241	  6243	  6257	  6259	  6261	  6275
	  6278	  6280	  6294	  6296	  6298	  6312	  6315	  6317	  6331	  6333	  6335	  6349	  6352	  6354
	  6368	  6370	  6372	  6933	  6936	  6938	  6952	  6954	  6956	  6970	  6973	  6975	  6989	  6991
	  6993	  7007	  7010	  7012	  7026	  7028	  7030	  7044	  7047	  7049	  7063	  7065	  7067	  7082
	  7084	  7086	  7102	  7104	  7106
ER2	    30#
ER3	    31#	  1173	  1196	  1210	  1224	  1238	  1252	  1266	  1280	  1294	  1317	  1331	  1345	  1359
	  1373	  1387	  1401	  1415	  1429	  1443	  1457	  1471	  1485	  1499	  1513	  1527	  1541	  1555
	  1578	  1592	  1606	  1620	  1634	  1648	  1662	  1676	  1690	  1704	  1718	  1732	  1746	  1760
	  1774	  1788	  1802	  1825	  1839	  1853	  1867	  1881	  1895	  1909	  1923	  1937	  1951	  1965
	  1979	  1993	  2007	  2021	  2035	  2049	  2063	  2092	  2108	  2124	  2140	  2156	  2172	  2188
	  2204	  2220	  2245	  2260	  2275	  2290	  2305	  2320	  2335	  2350	  2365	  2380	  2405	  2420
	  2435	  2450	  2465	  2480	  2495	  2510	  2534	  2549	  2564	  2579	  2594	  2609	  2624	  2639
	  2654	  2679	  2694	  2709	  2724	  2739	  2754	  2769	  2784	  2809	  2824	  2839	  2854	  2869
	  2884	  2899	  2914	  2929	  2944	  2970	  2985	  3000	  3015	  3030	  3045	  3060	  3075	  3101
	  3112	  3123	  3134	  3145	  3156	  3167	  3178	  3189	  3200	  3211	  3222	  3233	  3244	  3255
	  3266	  3277	  3288	  3299	  3310	  3321	  3332	  3343	  3354	  3365	  3376	  3387	  3398	  3409
	  3420	  3431	  3442	  3453	  3464	  3475	  3486	  3497	  3508	  3519	  3530	  3541	  3552	  3563
	  3574	  3585	  3596	  3608	  3619	  3630	  3641	  3652	  3663	  3674	  3685	  3696	  3707	  3718
	  3729	  3740	  3751	  3762	  3773	  3784	  3795	  3806	  3817	  3828	  3839	  3850	  3861	  3872     SEQ 0212
	  3883	  3894	  3906	  3917	  3928	  3939	  3950	  3961	  3972	  3983	  3994	  4005	  4016	  4027
	  4038	  4049	  4060	  4071	  4082	  4093	  4104	  4115	  4126	  4137	  4148	  4159	  4170	  4181
	  4192	  4203	  4214	  4225	  4236	  4247	  4258	  4269	  4280	  4291	  4302	  4313	  4324	  4335
	  4346	  4357	  4368	  4379	  4390	  4401	  4412	  4423	  4434	  4445	  4456	  4467	  4478	  4489
	  4500	  4511	  4522	  4533	  4544	  4555	  4566	  4577	  4588	  4599	  4610	  4621	  4632	  4643
	  4654	  4665	  4676	  4687	  4698	  4709	  4720	  4731	  4742	  4753	  4764	  4775	  4786	  4797
	  4808	  4819	  4830	  4841	  4852	  4863	  4874	  4894	  4914	  4931	  4951	  4968	  4988	  5005
	  5025	  5063	  5074	  5085	  5096	  5107	  5118	  5129	  5149	  5169	  5186	  5206	  5223	  5243
	  5260	  5280	  5318	  5329	  5340	  5351	  5362	  5373	  5384	  5395	  5406	  5417	  5428	  5439
	  5450	  5461	  5472	  5483	  5494	  5505	  5516	  5527	  5539	  5550	  5561	  5572	  5583	  5594
	  5605	  5616	  5627	  5638	  5649	  5660	  5671	  5684	  5690	  5704	  5710	  5724	  5730	  5744
	  5750	  5764	  5770	  5784	  5790	  5804	  5810	  5824	  5830	  5844	  5850	  5864	  5870	  5884
	  5890	  5904	  5910	  5924	  5930	  5944	  5950	  5962	  5973	  5984	  5995	  6006	  6017	  6028
	  6039	  6050	  6061	  6072	  6083	  6094	  6107	  6113	  6125	  6136	  6147	  6158	  6169	  6180
	  6191	  6202	  6213	  6233	  6253	  6270	  6290	  6307	  6327	  6344	  6364	  6402	  6413	  6424
	  6435	  6446	  6457	  6468	  6479	  6490	  6501	  6512	  6523	  6534	  6545	  6556	  6567	  6578
	  6589	  6600	  6611	  6622	  6633	  6644	  6655	  6666	  6677	  6688	  6699	  6710	  6721	  6732
	  6743	  6754	  6765	  6776	  6787	  6798	  6809	  6820	  6831	  6842	  6853	  6864	  6879	  6896
	  6928	  6948	  6965	  6985	  7002	  7022	  7039	  7059	  7078	  7098
ER4	    32#	  1175	  1198	  1212	  1226	  1240	  1254	  1268	  1282	  1296	  1319	  1333	  1347	  1361
	  1375	  1389	  1403	  1417	  1431	  1445	  1459	  1473	  1487	  1501	  1515	  1529	  1543	  1557
	  1580	  1594	  1608	  1622	  1636	  1650	  1664	  1678	  1692	  1706	  1720	  1734	  1748	  1762
	  1776	  1790	  1804	  1827	  1841	  1855	  1869	  1883	  1897	  1911	  1925	  1939	  1953	  1967
	  1981	  1995	  2009	  2023	  2037	  2051	  2065	  2094	  2110	  2126	  2142	  2158	  2174	  2190
	  2206	  2222	  2247	  2262	  2277	  2292	  2307	  2322	  2337	  2352	  2367	  2382	  2407	  2422
	  2437	  2452	  2467	  2482	  2497	  2512	  2536	  2551	  2566	  2581	  2596	  2611	  2626	  2641
	  2656	  2681	  2696	  2711	  2726	  2741	  2756	  2771	  2786	  2811	  2826	  2841	  2856	  2871
	  2886	  2901	  2916	  2931	  2946	  2972	  2987	  3002	  3017	  3032	  3047	  3062	  3077	  3103
	  3114	  3125	  3136	  3147	  3158	  3169	  3180	  3191	  3202	  3213	  3224	  3235	  3246	  3257
	  3268	  3279	  3290	  3301	  3312	  3323	  3334	  3345	  3356	  3367	  3378	  3389	  3400	  3411
	  3422	  3433	  3444	  3455	  3466	  3477	  3488	  3499	  3510	  3521	  3532	  3543	  3554	  3565
	  3576	  3587	  3598	  3610	  3621	  3632	  3643	  3654	  3665	  3676	  3687	  3698	  3709	  3720
	  3731	  3742	  3753	  3764	  3775	  3786	  3797	  3808	  3819	  3830	  3841	  3852	  3863	  3874
	  3885	  3896	  3908	  3919	  3930	  3941	  3952	  3963	  3974	  3985	  3996	  4007	  4018	  4029
	  4040	  4051	  4062	  4073	  4084	  4095	  4106	  4117	  4128	  4139	  4150	  4161	  4172	  4183
	  4194	  4205	  4216	  4227	  4238	  4249	  4260	  4271	  4282	  4293	  4304	  4315	  4326	  4337
	  4348	  4359	  4370	  4381	  4392	  4403	  4414	  4425	  4436	  4447	  4458	  4469	  4480	  4491
	  4502	  4513	  4524	  4535	  4546	  4557	  4568	  4579	  4590	  4601	  4612	  4623	  4634	  4645
	  4656	  4667	  4678	  4689	  4700	  4711	  4722	  4733	  4744	  4755	  4766	  4777	  4788	  4799
	  4810	  4821	  4832	  4843	  4854	  4865	  4876	  4896	  4916	  4933	  4953	  4970	  4990	  5007
	  5027	  5065	  5076	  5087	  5098	  5109	  5120	  5131	  5151	  5171	  5188	  5208	  5225	  5245
	  5262	  5282	  5320	  5331	  5342	  5353	  5364	  5375	  5386	  5397	  5408	  5419	  5430	  5441
	  5452	  5463	  5474	  5485	  5496	  5507	  5518	  5529	  5541	  5552	  5563	  5574	  5585	  5596
	  5607	  5618	  5629	  5640	  5651	  5662	  5673	  5686	  5692	  5706	  5712	  5726	  5732	  5746
	  5752	  5766	  5772	  5786	  5792	  5806	  5812	  5826	  5832	  5846	  5852	  5866	  5872	  5886
	  5892	  5906	  5912	  5926	  5932	  5946	  5952	  5964	  5975	  5986	  5997	  6008	  6019	  6030
	  6041	  6052	  6063	  6074	  6085	  6096	  6109	  6115	  6127	  6138	  6149	  6160	  6171	  6182
	  6193	  6204	  6215	  6235	  6255	  6272	  6292	  6309	  6329	  6346	  6366	  6404	  6415	  6426
	  6437	  6448	  6459	  6470	  6481	  6492	  6503	  6514	  6525	  6536	  6547	  6558	  6569	  6580
	  6591	  6602	  6613	  6624	  6635	  6646	  6657	  6668	  6679	  6690	  6701	  6712	  6723	  6734
	  6745	  6756	  6767	  6778	  6789	  6800	  6811	  6822	  6833	  6844	  6855	  6866	  6890	  6898
	  6904	  6908	  6930	  6950	  6967	  6987	  7004	  7024	  7041	  7061	  7080	  7100
ER5	    33#	  3090	  5052	  5307	  6391                                                                             SEQ 0213
ER6	    34#	  3092	  5054	  5309	  6393
ER7	    35#
ERRHLT	   658#	  7235
FATAL	   657#
FRD36	   799#
FRD8	   800#
FREAD	   798#
FSELEC	   797#
GET	   641#
GO	   638#
HALT	    77	    78	    79	    80	    81	   643#	   906
JEN	   645#
JRSTF	   644#	  1164	  4887	  4907	  4924	  4944	  4961	  4981	  4998	  5018	  5043	  5142	  5162	  5179
	  5199	  5216	  5236	  5253	  5273	  5298	  6226	  6246	  6263	  6283	  6300	  6320	  6337	  6357
	  6382	  6921	  6941	  6958	  6978	  6995	  7015	  7032	  7052	  7071	  7091
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#	  7239
PCRL	   727#	  7176	  7195
PCRL2	   731#
PCRL2F	   732#
PCRLF	   728#
PFORCE	   735#
PGMINT	   651#	  1151
PJRST	   642#
PMSG	   737#	  7142	  7146	  7157	  7182
PMSGF	   740#	  7262
PNT1	   693#
PNT11	   707#
PNT11F	   708#
PNT1F	   694#
PNT2	   695#
PNT2F	   696#
PNT3	   697#	  7194
PNT3F	   698#
PNT4	   699#	  7198
PNT4F	   700#
PNT5	   701#	  7200
PNT5F	   702#
PNT6	   703#	  7150	  7202
PNT6F	   704#
PNT7	   705#
PNT7F	   706#
PNTA	   679#	  7185                                                                                                     SEQ 0214
PNTADF	   710#
PNTADR	   709#
PNTAF	   680#
PNTAL	   681#	  7178
PNTALF	   682#
PNTCHF	   692#
PNTCHR	   691#
PNTCI	   689#
PNTCIF	   690#
PNTCW	   725#
PNTCWF	   726#
PNTDCF	   718#
PNTDEC	   717#	  7145
PNTDS	   719#
PNTDSF	   720#
PNTHW	   713#	  7165
PNTHWF	   714#
PNTMSF	   686#
PNTMSG	   685#
PNTNM	   721#	  7138
PNTOCF	   716#
PNTOCS	   715#
PNTOCT	   711#
PNTOTF	   712#
PNTSIX	   722#
PNTSXF	   723#
PSIXL	   683#
PSIXLF	   684#
PSIXM	   687#	  7143	  7147	  7158	  7183
PSIXMF	   688#	  7263
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                                                                                                             SEQ 0215
SAVEAC	    63#	  1159	  4881	  5038	  5136	  5293	  6220	  6377	  6915
SDFA	   471#	  3095	  3106	  3117	  3128	  3139	  3150	  3161	  3172	  3183	  3194	  3205	  3216	  3227
	  3238	  3249	  3260	  3271	  3282	  3293	  3304	  3315	  3326	  3337	  3348	  3359	  3370	  3381
	  3392	  3403	  3414	  3425	  3436	  3447	  3458	  3469	  3480	  3491	  3502	  3513	  3524	  3535
	  3546	  3557	  3568	  3579	  3590	  3602	  3613	  3624	  3635	  3646	  3657	  3668	  3679	  3690
	  3701	  3712	  3723	  3734	  3745	  3756	  3767	  3778	  3789	  3800	  3811	  3822	  3833	  3844
	  3855	  3866	  3877	  3888	  3900	  3911	  3922	  3933	  3944	  3955	  3966	  3977	  3988	  3999
	  4010	  4021	  4032	  4043	  4054	  4065	  4076	  4087	  4098	  4109	  4120	  4131	  4142	  4153
	  4164	  4175	  4186	  4197	  4208	  4219	  4230	  4241	  4252	  4263	  4274	  4285	  4296	  4307
	  4318	  4329	  4340	  4351	  4362	  4373	  4384	  4395	  4406	  4417	  4428	  4439	  4450	  4461
	  4472	  4483	  4494	  4505	  4516	  4527	  4538	  4549	  4560	  4571	  4582	  4593	  4604	  4615
	  4626	  4637	  4648	  4659	  4670	  4681	  4692	  4703	  4714	  4725	  4736	  4747	  4758	  4769
	  4780	  4791	  4802	  4813	  4824	  4835	  4846	  4857	  4868
SDFARP	   557#	  1167	  1190	  1204	  1218	  1232	  1246	  1260	  1274	  1288	  1311	  1325	  1339	  1353
	  1367	  1381	  1395	  1409	  1423	  1437	  1451	  1465	  1479	  1493	  1507	  1521	  1535	  1549
	  1572	  1586	  1600	  1614	  1628	  1642	  1656	  1670	  1684	  1698	  1712	  1726	  1740	  1754
	  1768	  1782	  1796	  1819	  1833	  1847	  1861	  1875	  1889	  1903	  1917	  1931	  1945	  1959
	  1973	  1987	  2001	  2015	  2029	  2043	  2057	  2086	  2102	  2118	  2134	  2150	  2166	  2182
	  2198	  2214	  2239	  2254	  2269	  2284	  2299	  2314	  2329	  2344	  2359	  2374	  2399	  2414
	  2429	  2444	  2459	  2474	  2489	  2504	  2528	  2543	  2558	  2573	  2588	  2603	  2618	  2633
	  2648	  2673	  2688	  2703	  2718	  2733	  2748	  2763	  2778	  2803	  2818	  2833	  2848	  2863
	  2878	  2893	  2908	  2923	  2938	  2964	  2979	  2994	  3009	  3024	  3039	  3054	  3069
SDFD	   525#	  6396	  6407	  6418	  6429	  6440	  6451	  6462	  6473	  6484	  6495	  6506	  6517	  6528
	  6539	  6550	  6561	  6572	  6583	  6594	  6605	  6616	  6627	  6638	  6649	  6660	  6671	  6682
	  6693	  6704	  6715	  6726	  6737	  6748	  6759	  6770	  6781	  6792	  6803	  6814	  6825	  6836
	  6847	  6858
SDFDKL	   535#
SDFM	   493#	  5312	  5323	  5334	  5345	  5356	  5367	  5378	  5389	  5400	  5411	  5422	  5433	  5444
	  5455	  5466	  5477	  5488	  5499	  5510	  5521	  5533	  5544	  5555	  5566	  5577	  5588	  5599
	  5610	  5621	  5632	  5643	  5654	  5665	  5956	  5967	  5978	  5989	  6000	  6011	  6022	  6033
	  6044	  6055	  6066	  6077	  6088	  6119	  6130	  6141	  6152	  6163	  6174	  6185	  6196	  6207
SDFMKL	   503#	  5676	  5696	  5716	  5736	  5756	  5776	  5796	  5816	  5836	  5856	  5876	  5896	  5916
	  5936	  6099
SDFS	   482#	  5057	  5068	  5079	  5090	  5101	  5112	  5123
SIXBTZ	   746#
SWITCH	   752#	  7124	  7226
TIOE	   803#
TIOEB	   803#
TION	   803#
TIONB	   803#
TTALTM	   673#	  7228
TTICHR	   666#
TTICLR	   676#
TTICNV	   671#
TTIDEC	   670#
TTINO	   668#
TTIOCT	   669#
TTIYES	   667#
TTLOOK	   672#
TTSIXB	   674#
TTYINP	   675#
WRAPR	   803#
WRCSB	   803#                                                                                                            SEQ 0216
WRCSTM	   803#
WREBR	   803#
WRHSB	   803#
WRINT	   803#
WRIO	   803#
WRIOB	   803#
WRPI	   803#
WRPUR	   803#
WRSPB	   803#
WRTIM	   803#
WRUBR	   803#

ANDI	  6885	  7161
AOS	   891	  7117	  7120	  7246	  7247                                                                             SEQ 0217
ASCII	   992	   994	   997	   998	   999	  1000	  1002	  1003	  1004	  1005	  1006	  1007	  1009	  1010
	  1011
ASCIZ	  1135	  1152	  7211	  7212	  7213	  7214	  7215	  7216	  7217	  7218	  7219
BLKI	  6883
BLOCK	   960	  1020	  1023	  1029	  1032	  1038	  8302
BYTE	  1008
CAIG	  7163	  7174
CAIGE	  6886
CAIL	  7251
CALL	  1133
CAME	  1172	  1174	  1195	  1197	  1209	  1211	  1223	  1225	  1237	  1239	  1251	  1253	  1265	  1267
	  1279	  1281	  1293	  1295	  1316	  1318	  1330	  1332	  1344	  1346	  1358	  1360	  1372	  1374
	  1386	  1388	  1400	  1402	  1414	  1416	  1428	  1430	  1442	  1444	  1456	  1458	  1470	  1472
	  1484	  1486	  1498	  1500	  1512	  1514	  1526	  1528	  1540	  1542	  1554	  1556	  1577	  1579
	  1591	  1593	  1605	  1607	  1619	  1621	  1633	  1635	  1647	  1649	  1661	  1663	  1675	  1677
	  1689	  1691	  1703	  1705	  1717	  1719	  1731	  1733	  1745	  1747	  1759	  1761	  1773	  1775
	  1787	  1789	  1801	  1803	  1824	  1826	  1838	  1840	  1852	  1854	  1866	  1868	  1880	  1882
	  1894	  1896	  1908	  1910	  1922	  1924	  1936	  1938	  1950	  1952	  1964	  1966	  1978	  1980
	  1992	  1994	  2006	  2008	  2020	  2022	  2034	  2036	  2048	  2050	  2062	  2064	  2091	  2093
	  2107	  2109	  2123	  2125	  2139	  2141	  2155	  2157	  2171	  2173	  2187	  2189	  2203	  2205
	  2219	  2221	  2244	  2246	  2259	  2261	  2274	  2276	  2289	  2291	  2304	  2306	  2319	  2321
	  2334	  2336	  2349	  2351	  2364	  2366	  2379	  2381	  2404	  2406	  2419	  2421	  2434	  2436
	  2449	  2451	  2464	  2466	  2479	  2481	  2494	  2496	  2509	  2511	  2533	  2535	  2548	  2550
	  2563	  2565	  2578	  2580	  2593	  2595	  2608	  2610	  2623	  2625	  2638	  2640	  2653	  2655
	  2678	  2680	  2693	  2695	  2708	  2710	  2723	  2725	  2738	  2740	  2753	  2755	  2768	  2770
	  2783	  2785	  2808	  2810	  2823	  2825	  2838	  2840	  2853	  2855	  2868	  2870	  2883	  2885
	  2898	  2900	  2913	  2915	  2928	  2930	  2943	  2945	  2969	  2971	  2984	  2986	  2999	  3001
	  3014	  3016	  3029	  3031	  3044	  3046	  3059	  3061	  3074	  3076	  3089	  3091	  3100	  3102
	  3111	  3113	  3122	  3124	  3133	  3135	  3144	  3146	  3155	  3157	  3166	  3168	  3177	  3179
	  3188	  3190	  3199	  3201	  3210	  3212	  3221	  3223	  3232	  3234	  3243	  3245	  3254	  3256
	  3265	  3267	  3276	  3278	  3287	  3289	  3298	  3300	  3309	  3311	  3320	  3322	  3331	  3333
	  3342	  3344	  3353	  3355	  3364	  3366	  3375	  3377	  3386	  3388	  3397	  3399	  3408	  3410
	  3419	  3421	  3430	  3432	  3441	  3443	  3452	  3454	  3463	  3465	  3474	  3476	  3485	  3487
	  3496	  3498	  3507	  3509	  3518	  3520	  3529	  3531	  3540	  3542	  3551	  3553	  3562	  3564
	  3573	  3575	  3584	  3586	  3595	  3597	  3607	  3609	  3618	  3620	  3629	  3631	  3640	  3642
	  3651	  3653	  3662	  3664	  3673	  3675	  3684	  3686	  3695	  3697	  3706	  3708	  3717	  3719
	  3728	  3730	  3739	  3741	  3750	  3752	  3761	  3763	  3772	  3774	  3783	  3785	  3794	  3796
	  3805	  3807	  3816	  3818	  3827	  3829	  3838	  3840	  3849	  3851	  3860	  3862	  3871	  3873
	  3882	  3884	  3893	  3895	  3905	  3907	  3916	  3918	  3927	  3929	  3938	  3940	  3949	  3951
	  3960	  3962	  3971	  3973	  3982	  3984	  3993	  3995	  4004	  4006	  4015	  4017	  4026	  4028
	  4037	  4039	  4048	  4050	  4059	  4061	  4070	  4072	  4081	  4083	  4092	  4094	  4103	  4105
	  4114	  4116	  4125	  4127	  4136	  4138	  4147	  4149	  4158	  4160	  4169	  4171	  4180	  4182
	  4191	  4193	  4202	  4204	  4213	  4215	  4224	  4226	  4235	  4237	  4246	  4248	  4257	  4259
	  4268	  4270	  4279	  4281	  4290	  4292	  4301	  4303	  4312	  4314	  4323	  4325	  4334	  4336
	  4345	  4347	  4356	  4358	  4367	  4369	  4378	  4380	  4389	  4391	  4400	  4402	  4411	  4413
	  4422	  4424	  4433	  4435	  4444	  4446	  4455	  4457	  4466	  4468	  4477	  4479	  4488	  4490
	  4499	  4501	  4510	  4512	  4521	  4523	  4532	  4534	  4543	  4545	  4554	  4556	  4565	  4567
	  4576	  4578	  4587	  4589	  4598	  4600	  4609	  4611	  4620	  4622	  4631	  4633	  4642	  4644
	  4653	  4655	  4664	  4666	  4675	  4677	  4686	  4688	  4697	  4699	  4708	  4710	  4719	  4721
	  4730	  4732	  4741	  4743	  4752	  4754	  4763	  4765	  4774	  4776	  4785	  4787	  4796	  4798
	  4807	  4809	  4818	  4820	  4829	  4831	  4840	  4842	  4851	  4853	  4862	  4864	  4873	  4875
	  4893	  4895	  4913	  4915	  4930	  4932	  4950	  4952	  4967	  4969	  4987	  4989	  5004	  5006
	  5024	  5026	  5051	  5053	  5062	  5064	  5073	  5075	  5084	  5086	  5095	  5097	  5106	  5108     SEQ 0218
	  5117	  5119	  5128	  5130	  5148	  5150	  5168	  5170	  5185	  5187	  5205	  5207	  5222	  5224
	  5242	  5244	  5259	  5261	  5279	  5281	  5306	  5308	  5317	  5319	  5328	  5330	  5339	  5341
	  5350	  5352	  5361	  5363	  5372	  5374	  5383	  5385	  5394	  5396	  5405	  5407	  5416	  5418
	  5427	  5429	  5438	  5440	  5449	  5451	  5460	  5462	  5471	  5473	  5482	  5484	  5493	  5495
	  5504	  5506	  5515	  5517	  5526	  5528	  5538	  5540	  5549	  5551	  5560	  5562	  5571	  5573
	  5582	  5584	  5593	  5595	  5604	  5606	  5615	  5617	  5626	  5628	  5637	  5639	  5648	  5650
	  5659	  5661	  5670	  5672	  5683	  5685	  5689	  5691	  5703	  5705	  5709	  5711	  5723	  5725
	  5729	  5731	  5743	  5745	  5749	  5751	  5763	  5765	  5769	  5771	  5783	  5785	  5789	  5791
	  5803	  5805	  5809	  5811	  5823	  5825	  5829	  5831	  5843	  5845	  5849	  5851	  5863	  5865
	  5869	  5871	  5883	  5885	  5889	  5891	  5903	  5905	  5909	  5911	  5923	  5925	  5929	  5931
	  5943	  5945	  5949	  5951	  5961	  5963	  5972	  5974	  5983	  5985	  5994	  5996	  6005	  6007
	  6016	  6018	  6027	  6029	  6038	  6040	  6049	  6051	  6060	  6062	  6071	  6073	  6082	  6084
	  6093	  6095	  6106	  6108	  6112	  6114	  6124	  6126	  6135	  6137	  6146	  6148	  6157	  6159
	  6168	  6170	  6179	  6181	  6190	  6192	  6201	  6203	  6212	  6214	  6232	  6234	  6252	  6254
	  6269	  6271	  6289	  6291	  6306	  6308	  6326	  6328	  6343	  6345	  6363	  6365	  6390	  6392
	  6401	  6403	  6412	  6414	  6423	  6425	  6434	  6436	  6445	  6447	  6456	  6458	  6467	  6469
	  6478	  6480	  6489	  6491	  6500	  6502	  6511	  6513	  6522	  6524	  6533	  6535	  6544	  6546
	  6555	  6557	  6566	  6568	  6577	  6579	  6588	  6590	  6599	  6601	  6610	  6612	  6621	  6623
	  6632	  6634	  6643	  6645	  6654	  6656	  6665	  6667	  6676	  6678	  6687	  6689	  6698	  6700
	  6709	  6711	  6720	  6722	  6731	  6733	  6742	  6744	  6753	  6755	  6764	  6766	  6775	  6777
	  6786	  6788	  6797	  6799	  6808	  6810	  6819	  6821	  6830	  6832	  6841	  6843	  6852	  6854
	  6863	  6865	  6878	  6889	  6895	  6897	  6903	  6907	  6927	  6929	  6947	  6949	  6964	  6966
	  6984	  6986	  7001	  7003	  7021	  7023	  7038	  7040	  7058	  7060	  7077	  7079	  7097	  7099
CAMN	  6901	  7119
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
DFAD	  1170	  1193	  1207	  1221	  1235	  1249	  1263	  1277	  1291	  1314	  1328	  1342	  1356	  1370
	  1384	  1398	  1412	  1426	  1440	  1454	  1468	  1482	  1496	  1510	  1524	  1538	  1552	  1575
	  1589	  1603	  1617	  1631	  1645	  1659	  1673	  1687	  1701	  1715	  1729	  1743	  1757	  1771
	  1785	  1799	  1822	  1836	  1850	  1864	  1878	  1892	  1906	  1920	  1934	  1948	  1962	  1976
	  1990	  2004	  2018	  2032	  2046	  2060	  2089	  2105	  2121	  2137	  2153	  2169	  2185	  2201
	  2217	  2242	  2257	  2272	  2287	  2302	  2317	  2332	  2347	  2362	  2377	  2402	  2417	  2432
	  2447	  2462	  2477	  2492	  2507	  2531	  2546	  2561	  2576	  2591	  2606	  2621	  2636	  2651
	  2676	  2691	  2706	  2721	  2736	  2751	  2766	  2781	  2806	  2821	  2836	  2851	  2866	  2881
	  2896	  2911	  2926	  2941	  2967	  2982	  2997	  3012	  3027	  3042	  3057	  3072	  3088	  3098
	  3109	  3120	  3131	  3142	  3153	  3164	  3175	  3186	  3197	  3208	  3219	  3230	  3241	  3252
	  3263	  3274	  3285	  3296	  3307	  3318	  3329	  3340	  3351	  3362	  3373	  3384	  3395	  3406
	  3417	  3428	  3439	  3450	  3461	  3472	  3483	  3494	  3505	  3516	  3527	  3538	  3549	  3560
	  3571	  3582	  3593	  3605	  3616	  3627	  3638	  3649	  3660	  3671	  3682	  3693	  3704	  3715
	  3726	  3737	  3748	  3759	  3770	  3781	  3792	  3803	  3814	  3825	  3836	  3847	  3858	  3869
	  3880	  3891	  3903	  3914	  3925	  3936	  3947	  3958	  3969	  3980	  3991	  4002	  4013	  4024
	  4035	  4046	  4057	  4068	  4079	  4090	  4101	  4112	  4123	  4134	  4145	  4156	  4167	  4178
	  4189	  4200	  4211	  4222	  4233	  4244	  4255	  4266	  4277	  4288	  4299	  4310	  4321	  4332
	  4343	  4354	  4365	  4376	  4387	  4398	  4409	  4420	  4431	  4442	  4453	  4464	  4475	  4486
	  4497	  4508	  4519	  4530	  4541	  4552	  4563	  4574	  4585	  4596	  4607	  4618	  4629	  4640
	  4651	  4662	  4673	  4684	  4695	  4706	  4717	  4728	  4739	  4750	  4761	  4772	  4783	  4794
	  4805	  4816	  4827	  4838	  4849	  4860	  4871	  4890	  4910	  4927	  4947	  4964	  4984	  5001
	  5021
DFDV	  6389	  6399	  6410	  6421	  6432	  6443	  6454	  6465	  6476	  6487	  6498	  6509	  6520	  6531
	  6542	  6553	  6564	  6575	  6586	  6597	  6608	  6619	  6630	  6641	  6652	  6663	  6674	  6685
	  6696	  6707	  6718	  6729	  6740	  6751	  6762	  6773	  6784	  6795	  6806	  6817	  6828	  6839
	  6850	  6861	  6873	  6924	  6944	  6961	  6981	  6998	  7018	  7035	  7055	  7074	  7094
DFMP	  5305	  5315	  5326	  5337	  5348	  5359	  5370	  5381	  5392	  5403	  5414	  5425	  5436	  5447     SEQ 0219
	  5458	  5469	  5480	  5491	  5502	  5513	  5524	  5536	  5547	  5558	  5569	  5580	  5591	  5602
	  5613	  5624	  5635	  5646	  5657	  5668	  5679	  5699	  5719	  5739	  5759	  5779	  5799	  5819
	  5839	  5859	  5879	  5899	  5919	  5939	  5959	  5970	  5981	  5992	  6003	  6014	  6025	  6036
	  6047	  6058	  6069	  6080	  6091	  6102	  6122	  6133	  6144	  6155	  6166	  6177	  6188	  6199
	  6210	  6229	  6249	  6266	  6286	  6303	  6323	  6340	  6360
DFSB	  5050	  5060	  5071	  5082	  5093	  5104	  5115	  5126	  5145	  5165	  5182	  5202	  5219	  5239
	  5256	  5276
DMOVE	  1168	  1191	  1205	  1219	  1233	  1247	  1261	  1275	  1289	  1312	  1326	  1340	  1354	  1368
	  1382	  1396	  1410	  1424	  1438	  1452	  1466	  1480	  1494	  1508	  1522	  1536	  1550	  1573
	  1587	  1601	  1615	  1629	  1643	  1657	  1671	  1685	  1699	  1713	  1727	  1741	  1755	  1769
	  1783	  1797	  1820	  1834	  1848	  1862	  1876	  1890	  1904	  1918	  1932	  1946	  1960	  1974
	  1988	  2002	  2016	  2030	  2044	  2058	  2087	  2103	  2119	  2135	  2151	  2167	  2183	  2199
	  2215	  2240	  2255	  2270	  2285	  2300	  2315	  2330	  2345	  2360	  2375	  2400	  2415	  2430
	  2445	  2460	  2475	  2490	  2505	  2529	  2544	  2559	  2574	  2589	  2604	  2619	  2634	  2649
	  2674	  2689	  2704	  2719	  2734	  2749	  2764	  2779	  2804	  2819	  2834	  2849	  2864	  2879
	  2894	  2909	  2924	  2939	  2965	  2980	  2995	  3010	  3025	  3040	  3055	  3070	  3084	  3086
	  3096	  3107	  3118	  3129	  3140	  3151	  3162	  3173	  3184	  3195	  3206	  3217	  3228	  3239
	  3250	  3261	  3272	  3283	  3294	  3305	  3316	  3327	  3338	  3349	  3360	  3371	  3382	  3393
	  3404	  3415	  3426	  3437	  3448	  3459	  3470	  3481	  3492	  3503	  3514	  3525	  3536	  3547
	  3558	  3569	  3580	  3591	  3603	  3614	  3625	  3636	  3647	  3658	  3669	  3680	  3691	  3702
	  3713	  3724	  3735	  3746	  3757	  3768	  3779	  3790	  3801	  3812	  3823	  3834	  3845	  3856
	  3867	  3878	  3889	  3901	  3912	  3923	  3934	  3945	  3956	  3967	  3978	  3989	  4000	  4011
	  4022	  4033	  4044	  4055	  4066	  4077	  4088	  4099	  4110	  4121	  4132	  4143	  4154	  4165
	  4176	  4187	  4198	  4209	  4220	  4231	  4242	  4253	  4264	  4275	  4286	  4297	  4308	  4319
	  4330	  4341	  4352	  4363	  4374	  4385	  4396	  4407	  4418	  4429	  4440	  4451	  4462	  4473
	  4484	  4495	  4506	  4517	  4528	  4539	  4550	  4561	  4572	  4583	  4594	  4605	  4616	  4627
	  4638	  4649	  4660	  4671	  4682	  4693	  4704	  4715	  4726	  4737	  4748	  4759	  4770	  4781
	  4792	  4803	  4814	  4825	  4836	  4847	  4858	  4869	  4888	  4908	  4925	  4945	  4962	  4982
	  4999	  5019	  5046	  5048	  5058	  5069	  5080	  5091	  5102	  5113	  5124	  5143	  5163	  5180
	  5200	  5217	  5237	  5254	  5274	  5301	  5303	  5313	  5324	  5335	  5346	  5357	  5368	  5379
	  5390	  5401	  5412	  5423	  5434	  5445	  5456	  5467	  5478	  5489	  5500	  5511	  5522	  5534
	  5545	  5556	  5567	  5578	  5589	  5600	  5611	  5622	  5633	  5644	  5655	  5666	  5677	  5697
	  5717	  5737	  5757	  5777	  5797	  5817	  5837	  5857	  5877	  5897	  5917	  5937	  5957	  5968
	  5979	  5990	  6001	  6012	  6023	  6034	  6045	  6056	  6067	  6078	  6089	  6100	  6120	  6131
	  6142	  6153	  6164	  6175	  6186	  6197	  6208	  6227	  6247	  6264	  6284	  6301	  6321	  6338
	  6358	  6385	  6387	  6397	  6408	  6419	  6430	  6441	  6452	  6463	  6474	  6485	  6496	  6507
	  6518	  6529	  6540	  6551	  6562	  6573	  6584	  6595	  6606	  6617	  6628	  6639	  6650	  6661
	  6672	  6683	  6694	  6705	  6716	  6727	  6738	  6749	  6760	  6771	  6782	  6793	  6804	  6815
	  6826	  6837	  6848	  6859	  6871	  6922	  6942	  6959	  6979	  6996	  7016	  7033	  7053	  7072
	  7092
END	  8310
HRL	  7122
HRRZ	  7118	  7148	  7187
IFDEF	   803	   854	   855	   856	   857	  7152	  7222	  8301	  8308
IFE	  2085	  2101	  2117	  2133	  2149	  2165	  2181	  2197	  2213
IFNDEF	   792	   793	   803	   854	   855	   856	   857	   936	  7270
JFCL	   894	   895	   896	   897	   898	   899	   900	   901	   902	   903	   904	   905
JFOV	  4900	  4919	  4937	  4956	  4974	  4993	  5011	  5030	  5155	  5174	  5192	  5211	  5229	  5248
	  5266	  5285	  6239	  6258	  6276	  6295	  6313	  6332	  6350	  6369	  6934	  6953	  6971	  6990
	  7008	  7027	  7045	  7064	  7083	  7103
JOV	  4897	  4917	  4934	  4954	  4971	  4991	  5008	  5028	  5152	  5172	  5189	  5209	  5226	  5246
	  5263	  5283	  6236	  6256	  6273	  6293	  6310	  6330	  6347	  6367	  6931	  6951	  6968	  6988
	  7005	  7025	  7042	  7062	  7081	  7101                                                                     SEQ 0220
JRST	   642	   643	   644	   645	   816	   817	   819	   821	   823	   825	   827	   830	   832	   833
	   886	  1155	  4898	  4901	  4935	  4938	  4972	  4975	  5009	  5012	  5153	  5156	  5190	  5193
	  5227	  5230	  5264	  5267	  5682	  5688	  5693	  5694	  5702	  5708	  5713	  5714	  5722	  5728
	  5733	  5734	  5742	  5748	  5753	  5754	  5762	  5768	  5773	  5774	  5782	  5788	  5793	  5794
	  5802	  5808	  5813	  5814	  5822	  5828	  5833	  5834	  5842	  5848	  5853	  5854	  5862	  5868
	  5873	  5874	  5882	  5888	  5893	  5894	  5902	  5908	  5913	  5914	  5922	  5928	  5933	  5934
	  5942	  5948	  5953	  5954	  6105	  6111	  6116	  6117	  6237	  6240	  6274	  6277	  6311	  6314
	  6348	  6351	  6876	  6882	  6887	  6893	  6899	  6902	  6905	  6909	  6911	  6932	  6935	  6969
	  6972	  7006	  7009	  7043	  7046	  7109	  7126	  7133	  7136	  7141	  7169	  7175	  7189	  7191
	  7193	  7196	  7199	  7201	  7203	  7229	  7232	  7245	  7249	  7252	  7255	  7259	  7260	  7264
JSP	   651	  4892	  4912	  4929	  4949	  4966	  4986	  5003	  5023	  5147	  5167	  5184	  5204	  5221
	  5241	  5258	  5278	  6231	  6251	  6268	  6288	  6305	  6325	  6342	  6362	  6926	  6946	  6963
	  6983	  7000	  7020	  7037	  7057	  7076	  7096
JUMPL	  1176	  1199	  1213	  1227	  1241	  1255	  1269	  1283	  1297	  1320	  1334	  1348	  1362	  1376
	  1390	  1404	  1418	  1432	  1446	  1460	  1474	  1488	  1502	  1516	  1530	  1544	  1558	  1581
	  1595	  1609	  1623	  1637	  1651	  1665	  1679	  1693	  1707	  1721	  1735	  1749	  1763	  1777
	  1791	  1805	  1828	  1842	  1856	  1870	  1884	  1898	  1912	  1926	  1940	  1954	  1968	  1982
	  1996	  2010	  2024	  2038	  2052	  2066	  2095	  2111	  2127	  2143	  2159	  2175	  2191	  2207
	  2223	  2248	  2263	  2278	  2293	  2308	  2323	  2338	  2353	  2368	  2383	  2408	  2423	  2438
	  2453	  2468	  2483	  2498	  2513	  2537	  2552	  2567	  2582	  2597	  2612	  2627	  2642	  2657
	  2682	  2697	  2712	  2727	  2742	  2757	  2772	  2787	  2812	  2827	  2842	  2857	  2872	  2887
	  2902	  2917	  2932	  2947	  2973	  2988	  3003	  3018	  3033	  3048	  3063	  3078	  3093	  3104
	  3115	  3126	  3137	  3148	  3159	  3170	  3181	  3192	  3203	  3214	  3225	  3236	  3247	  3258
	  3269	  3280	  3291	  3302	  3313	  3324	  3335	  3346	  3357	  3368	  3379	  3390	  3401	  3412
	  3423	  3434	  3445	  3456	  3467	  3478	  3489	  3500	  3511	  3522	  3533	  3544	  3555	  3566
	  3577	  3588	  3599	  3611	  3622	  3633	  3644	  3655	  3666	  3677	  3688	  3699	  3710	  3721
	  3732	  3743	  3754	  3765	  3776	  3787	  3798	  3809	  3820	  3831	  3842	  3853	  3864	  3875
	  3886	  3897	  3909	  3920	  3931	  3942	  3953	  3964	  3975	  3986	  3997	  4008	  4019	  4030
	  4041	  4052	  4063	  4074	  4085	  4096	  4107	  4118	  4129	  4140	  4151	  4162	  4173	  4184
	  4195	  4206	  4217	  4228	  4239	  4250	  4261	  4272	  4283	  4294	  4305	  4316	  4327	  4338
	  4349	  4360	  4371	  4382	  4393	  4404	  4415	  4426	  4437	  4448	  4459	  4470	  4481	  4492
	  4503	  4514	  4525	  4536	  4547	  4558	  4569	  4580	  4591	  4602	  4613	  4624	  4635	  4646
	  4657	  4668	  4679	  4690	  4701	  4712	  4723	  4734	  4745	  4756	  4767	  4778	  4789	  4800
	  4811	  4822	  4833	  4844	  4855	  4866	  4877	  4905	  4923	  4942	  4960	  4979	  4997	  5016
	  5034	  5055	  5066	  5077	  5088	  5099	  5110	  5121	  5132	  5160	  5178	  5197	  5215	  5234
	  5252	  5271	  5289	  5310	  5321	  5332	  5343	  5354	  5365	  5376	  5387	  5398	  5409	  5420
	  5431	  5442	  5453	  5464	  5475	  5486	  5497	  5508	  5519	  5530	  5542	  5553	  5564	  5575
	  5586	  5597	  5608	  5619	  5630	  5641	  5652	  5663	  5674	  5687	  5707	  5727	  5747	  5767
	  5787	  5807	  5827	  5847	  5867	  5887	  5907	  5927	  5947	  5965	  5976	  5987	  5998	  6009
	  6020	  6031	  6042	  6053	  6064	  6075	  6086	  6097	  6110	  6128	  6139	  6150	  6161	  6172
	  6183	  6194	  6205	  6216	  6244	  6262	  6281	  6299	  6318	  6336	  6355	  6373	  6394	  6405
	  6416	  6427	  6438	  6449	  6460	  6471	  6482	  6493	  6504	  6515	  6526	  6537	  6548	  6559
	  6570	  6581	  6592	  6603	  6614	  6625	  6636	  6647	  6658	  6669	  6680	  6691	  6702	  6713
	  6724	  6735	  6746	  6757	  6768	  6779	  6790	  6801	  6812	  6823	  6834	  6845	  6856	  6867
	  6892	  6939	  6957	  6976	  6994	  7013	  7031	  7050	  7068	  7087	  7107
LALL	     8
LIST	     7	   803	   936	  7152	  7222	  7270	  8298
LIT	  7271
LOC	    22	   806	  1130
LSH	  7128	  7160
MOVE	  1152	  7121	  7127	  7130	  7131	  7144	  7159	  7162	  7164	  7167	  7173	  7177	  7233	  7241
	  7242	  7250	  7254	  7257
MOVEI	  1160	  1162	  4882	  4884	  5039	  5041	  5137	  5139	  5294	  5296	  6221	  6223	  6378	  6380     SEQ 0221
	  6916	  6918	  7184	  7230
MOVEM	  1153	  1161	  1163	  4883	  4885	  5040	  5042	  5138	  5140	  5295	  5297	  6222	  6224	  6379
	  6381	  6917	  6919	  7114	  7115	  7116	  7129	  7149	  7231
MOVSS	  6884
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
POP	   641
POPJ	   639
PUSH	   640
PUSHJ	   638
REPEAT	  1181	  1302	  1563	  1810	  2073	  2228	  2388	  2517	  2662	  2792	  2953
SETOM	  7139	  7237	  7243
SETZM	  7123	  7134
SIXBIT	    85	    86	  1021	  1022	  1030	  1031	  1133	  7143	  7147	  7158	  7183	  7263
SKIPE	  5681	  5701	  5721	  5741	  5761	  5781	  5801	  5821	  5841	  5861	  5881	  5901	  5921	  5941
	  6104	  6881
SKIPGE	  7132
SKIPL	  7135	  7248
SKIPN	  6875	  7137	  7140	  7244
SUBTTL	    25	   567	   602	   803	   804	  1156	  3080	  5035	  5290	  6374	  7110	  7265
TITLE	    12
TLNE	  4903	  4921	  4940	  4977	  4995	  5014	  5158	  5176	  5195	  5232	  5250	  5269	  6242	  6260
	  6279	  6316	  6334	  6353	  6937	  6955	  6974	  7011	  7029	  7048	  7125	  7168	  7234	  7238
TLNN	  4958	  5032	  5213	  5287	  6297	  6371	  6992	  7066	  7085	  7105	  7236	  7258
TRNE	  7188	  7190	  7192
VAR	  8306
XALL	    14
XCT	  7225
XLIST	     6	   802	   803	   935	  7151	  7221	  7269
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 1                  SEQ 0222
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777 


*030631  DFAD	4,040061

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

*030640  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200600 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000 
----------

*030647  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200500 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000 
----------

*030656  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200440 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000 
----------

*030665  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200420 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 2
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0223

*030674  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200410 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000 
----------

*030703  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200404 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000 
----------

*030712  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200402 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 171400 000000 C(AC+1)= 000000 000000 
----------

*030721  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200401 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 170400 000000 C(AC+1)= 000000 000000 
----------

*030730  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 400000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 167400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 3
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0224

*030737  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 200000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 166400 000000 C(AC+1)= 000000 000000 
----------

*030746  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 100000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 165400 000000 C(AC+1)= 000000 000000 
----------

*030755  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 040000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 164400 000000 C(AC+1)= 000000 000000 
----------

*030764  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 020000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 163400 000000 C(AC+1)= 000000 000000 
----------

*030773  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 010000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 162400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 4
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0225

*031002  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 004000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 161400 000000 C(AC+1)= 000000 000000 
----------

*031011  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 002000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 160400 000000 C(AC+1)= 000000 000000 
----------

*031020  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 001000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 157400 000000 C(AC+1)= 000000 000000 
----------

*031027  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000400 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 156400 000000 C(AC+1)= 000000 000000 
----------

*031036  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000200 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 155400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 5
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0226

*031045  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000100 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 154400 000000 C(AC+1)= 000000 000000 
----------

*031054  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000040 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 153400 000000 C(AC+1)= 000000 000000 
----------

*031063  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000020 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 152400 000000 C(AC+1)= 000000 000000 
----------

*031072  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000010 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 151400 000000 C(AC+1)= 000000 000000 
----------

*031101  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000004 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 150400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 6
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0227

*031110  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000002 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 147400 000000 C(AC+1)= 000000 000000 
----------

*031117  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000001 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 146400 000000 C(AC+1)= 000000 000000 
----------

*031126  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 200000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 145400 000000 C(AC+1)= 000000 000000 
----------

*031135  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 100000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 144400 000000 C(AC+1)= 000000 000000 
----------

*031144  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 040000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 143400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 7
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0228

*031153  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 020000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 142400 000000 C(AC+1)= 000000 000000 
----------

*031162  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 010000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 141400 000000 C(AC+1)= 000000 000000 
----------

*031171  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 004000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 140400 000000 C(AC+1)= 000000 000000 
----------

*031200  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 002000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 137400 000000 C(AC+1)= 000000 000000 
----------

*031207  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 001000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 136400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 8
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0229

*031216  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000400 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 135400 000000 C(AC+1)= 000000 000000 
----------

*031225  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000200 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 134400 000000 C(AC+1)= 000000 000000 
----------

*031234  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000100 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 133400 000000 C(AC+1)= 000000 000000 
----------

*031243  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000040 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 132400 000000 C(AC+1)= 000000 000000 
----------

*031252  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000020 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 131400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 9
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0230

*031261  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000010 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 130400 000000 C(AC+1)= 000000 000000 
----------

*031270  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000004 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 127400 000000 C(AC+1)= 000000 000000 
----------

*031277  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000002 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 126400 000000 C(AC+1)= 000000 000000 
----------

*031306  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000001 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 125400 000000 C(AC+1)= 000000 000000 
----------

*031315  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 400000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 124400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 10
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0231

*031324  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 200000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 123400 000000 C(AC+1)= 000000 000000 
----------

*031333  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 100000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 122400 000000 C(AC+1)= 000000 000000 
----------

*031342  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 040000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 121400 000000 C(AC+1)= 000000 000000 
----------

*031351  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 020000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 120400 000000 C(AC+1)= 000000 000000 
----------

*031360  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 010000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 117400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 11
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0232

*031367  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 004000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 116400 000000 C(AC+1)= 000000 000000 
----------

*031376  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 002000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 115400 000000 C(AC+1)= 000000 000000 
----------

*031405  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 001000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 114400 000000 C(AC+1)= 000000 000000 
----------

*031414  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000400  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 113400 000000 C(AC+1)= 000000 000000 
----------

*031423  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000200  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 112400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 12
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0233

*031432  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000100  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 111400 000000 C(AC+1)= 000000 000000 
----------

*031441  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000040  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 110400 000000 C(AC+1)= 000000 000000 
----------

*031450  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000020  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 107400 000000 C(AC+1)= 000000 000000 
----------

*031457  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000010  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 106400 000000 C(AC+1)= 000000 000000 
----------

*031466  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000004  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 105400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 13
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0234

*031475  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000002  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 104400 000000 C(AC+1)= 000000 000000 
----------

*031504  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000001  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 103400 000000 C(AC+1)= 000000 000000 
----------

*031513  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600377 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600377 777777 C(AC+1)= 377777 777777 
----------

*031522  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600577 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 601377 777777 C(AC+1)= 377777 777776 
----------

*031531  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600677 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 602377 777777 C(AC+1)= 377777 777774 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 14
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0235

*031540  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600737 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 603377 777777 C(AC+1)= 377777 777770 
----------

*031547  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600757 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 604377 777777 C(AC+1)= 377777 777760 
----------

*031556  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600767 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 605377 777777 C(AC+1)= 377777 777740 
----------

*031565  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600773 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 606377 777777 C(AC+1)= 377777 777700 
----------

*031574  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600775 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 607377 777777 C(AC+1)= 377777 777600 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 15
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0236

*031603  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600776 777777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 610377 777777 C(AC+1)= 377777 777400 
----------

*031612  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 377777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 611377 777777 C(AC+1)= 377777 777000 
----------

*031621  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 577777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 612377 777777 C(AC+1)= 377777 776000 
----------

*031630  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 677777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 613377 777777 C(AC+1)= 377777 774000 
----------

*031637  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 737777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 614377 777777 C(AC+1)= 377777 770000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 16
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0237

*031646  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 757777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 615377 777777 C(AC+1)= 377777 760000 
----------

*031655  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 767777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 616377 777777 C(AC+1)= 377777 740000 
----------

*031664  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 773777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 617377 777777 C(AC+1)= 377777 700000 
----------

*031673  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 775777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 620377 777777 C(AC+1)= 377777 600000 
----------

*031702  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 776777 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 621377 777777 C(AC+1)= 377777 400000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 17
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0238

*031711  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777377 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 622377 777777 C(AC+1)= 377777 000000 
----------

*031720  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777577 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 623377 777777 C(AC+1)= 377776 000000 
----------

*031727  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777677 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 624377 777777 C(AC+1)= 377774 000000 
----------

*031736  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777737 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 625377 777777 C(AC+1)= 377770 000000 
----------

*031745  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777757 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 626377 777777 C(AC+1)= 377760 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 18
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0239

*031754  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777767 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 627377 777777 C(AC+1)= 377740 000000 
----------

*031763  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777773 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 630377 777777 C(AC+1)= 377700 000000 
----------

*031772  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777775 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 631377 777777 C(AC+1)= 377600 000000 
----------

*032001  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777776 C(AC+1)= 777777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 632377 777777 C(AC+1)= 377400 000000 
----------

*032010  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 577777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 633377 777777 C(AC+1)= 377000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 19
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0240

*032017  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 677777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 634377 777777 C(AC+1)= 376000 000000 
----------

*032026  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 737777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 635377 777777 C(AC+1)= 374000 000000 
----------

*032035  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 757777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 636377 777777 C(AC+1)= 370000 000000 
----------

*032044  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 767777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 637377 777777 C(AC+1)= 360000 000000 
----------

*032053  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 773777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 640377 777777 C(AC+1)= 340000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 20
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0241

*032062  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 775777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 641377 777777 C(AC+1)= 300000 000000 
----------

*032071  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 776777 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 642377 777777 C(AC+1)= 200000 000000 
----------

*032100  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777377 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 643377 777777 C(AC+1)= 000000 000000 
----------

*032107  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777577 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 644377 777776 C(AC+1)= 000000 000000 
----------

*032116  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777677 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 645377 777774 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 21
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0242

*032125  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777737 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 646377 777770 C(AC+1)= 000000 000000 
----------

*032134  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777757 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 647377 777760 C(AC+1)= 000000 000000 
----------

*032143  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777767 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 650377 777740 C(AC+1)= 000000 000000 
----------

*032152  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777773 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 651377 777700 C(AC+1)= 000000 000000 
----------

*032161  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777775 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 652377 777600 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 22
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0243

*032170  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777776 777777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 653377 777400 C(AC+1)= 000000 000000 
----------

*032177  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 377777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 654377 777000 C(AC+1)= 000000 000000 
----------

*032206  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 577777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 655377 776000 C(AC+1)= 000000 000000 
----------

*032215  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 677777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 656377 774000 C(AC+1)= 000000 000000 
----------

*032224  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 737777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 657377 770000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 23
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0244

*032233  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 757777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 660377 760000 C(AC+1)= 000000 000000 
----------

*032242  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 767777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 661377 740000 C(AC+1)= 000000 000000 
----------

*032251  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 773777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 662377 700000 C(AC+1)= 000000 000000 
----------

*032260  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 775777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 663377 600000 C(AC+1)= 000000 000000 
----------

*032267  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 776777  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 664377 400000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 24
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0245

*032276  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777377  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 665377 000000 C(AC+1)= 000000 000000 
----------

*032305  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777577  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 666376 000000 C(AC+1)= 000000 000000 
----------

*032314  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777677  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 667374 000000 C(AC+1)= 000000 000000 
----------

*032323  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777737  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 670370 000000 C(AC+1)= 000000 000000 
----------

*032332  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777757  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 671360 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 25
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0246

*032341  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777767  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 672340 000000 C(AC+1)= 000000 000000 
----------

*032350  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777773  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 673300 000000 C(AC+1)= 000000 000000 
----------

*032357  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777775  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 674200 000000 C(AC+1)= 000000 000000 
----------

*032366  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600777 777777 C(AC+1)= 777777 777776  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 674400 000000 C(AC+1)= 000000 000000 
----------

*032376  DFAD	4,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777  C(E)= 200000 000000  C(E+1)= 400000 777777 
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 377777 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 26
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0247

*032405  DFAD	4,040716

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000600 000000 C(AC+1)= 000000 000000  C(E)= 000400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 001500 000000 C(AC+1)= 000000 000000 
----------

*032414  DFAD	4,040723

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 377000 000000 C(AC+1)= 000000 000000  C(E)= 377600 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377600 000000 C(AC+1)= 000000 000000 
----------

*032423  DFAD	4,040727

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000  C(E)= 177400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032432  DFAD	4,040733

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 205400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205410 000000 C(AC+1)= 000000 000000 
----------

*032441  DFAD	4,040736

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 205600 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205610 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 27
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0248

*032450  DFAD	4,040731

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

*032457  DFAD	4,040355

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200700 000000 C(AC+1)= 000000 000000  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200700 000000 C(AC+1)= 000000 000000 
----------

*032466  DFAD	4,040731

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

*032475  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202500 000000 C(AC+1)= 000000 000000 
----------

*032504  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 204400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 204420 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 28
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0249

*032513  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 210400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 210401 000000 C(AC+1)= 000000 000000 
----------

*032522  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 220400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 220400 002000 C(AC+1)= 000000 000000 
----------

*032531  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 240400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 240400 000000 C(AC+1)= 004000 000000 
----------

*032540  DFAD	4,040731

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

*032547  DFAD	4,040725

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 29
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0250

*032556  DFAD	4,040733

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000  C(E)= 205400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205400 000000 C(AC+1)= 000000 000000 
----------

*032565  DFAD	4,040731

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

*032574  DFAD	4,040061

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

*032603  DFAD	4,040727

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 205600 000000 C(AC+1)= 000000 000000  C(E)= 177400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205604 000000 C(AC+1)= 000000 000000 
----------

*032612  DFAD	4,040770

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201000 000000 C(AC+1)= 000000 000000  C(E)= 202000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 30
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0251

*032621  DFAD	4,040772

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202000 000000 C(AC+1)= 000000 000000  C(E)= 204000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032630  DFAD	4,040774

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 204000 000000 C(AC+1)= 000000 000000  C(E)= 207000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032637  DFAD	4,041000

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 210000 000000 C(AC+1)= 000000 000000  C(E)= 214000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032646  DFAD	4,041004

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 220000 000000 C(AC+1)= 000000 000000  C(E)= 225000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032655  DFAD	4,041010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 240000 000000 C(AC+1)= 000000 000000  C(E)= 246000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 31
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0252

*032664  DFAD	4,041014

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 300000 000000 C(AC+1)= 000000 000000  C(E)= 307000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*032673  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032702  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032711  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032720  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 203000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 32
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0253

*032727  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 204000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032736  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 206000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032745  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 207000 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

*032754  DFAD	4,041026

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400200 000000 C(AC+1)= 000000 000000  C(E)= 377400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 401400 000000 C(AC+1)= 000000 000000 
----------

*032763  DFAD	4,041024

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 400200 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 401400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 33
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0254

*032772  DFAD	4,040725

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

*033001  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200600 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201700 000000 C(AC+1)= 000000 000000 
----------

*033010  DFAD	4,040731

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

*033017  DFAD	4,041034

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000  C(E)= 577200 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000 
----------

*033026  DFAD	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 34
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0255

*033035  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200440 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201420 000000 C(AC+1)= 000000 000000 
----------

*033044  DFAD	4,040061

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

*033053  DFAD	4,041043

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000077 C(AC+1)= 000000 000000  C(E)= 206400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 206404 000000 C(AC+1)= 374000 000000 
----------

*033062  DFAD	4,041050

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 030400 000003 C(AC+1)= 000000 000000  C(E)= 032400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 032500 000000 C(AC+1)= 300000 000000 
----------

*033071  DFAD	4,041053

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000001 C(AC+1)= 000000 000000  C(E)= 201600 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202400 000000 C(AC+1)= 100000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 35
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0256

*033100  DFAD	4,040744

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 577400 000003 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201600 000001 C(AC+1)= 200000 000000 
----------

*033107  DFAD	4,040744

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 000003 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202500 000000 C(AC+1)= 300000 000000 
----------

*033116  DFAD	4,040744

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200400 777777 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202500 177777 C(AC+1)= 300000 000000 
----------

*033125  DFAD	4,041065

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000001 C(AC+1)= 000000 000000  C(E)= 200200 000001  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000002 C(AC+1)= 000000 000000 
----------

*033134  DFAD	4,041067

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000002 C(AC+1)= 000000 000000  C(E)= 200200 000002  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000004 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 36
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0257

*033143  DFAD	4,041071

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000004 C(AC+1)= 000000 000000  C(E)= 200200 000004  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000010 C(AC+1)= 000000 000000 
----------

*033152  DFAD	4,041073

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000010 C(AC+1)= 000000 000000  C(E)= 200200 000010  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000020 C(AC+1)= 000000 000000 
----------

*033161  DFAD	4,041075

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000020 C(AC+1)= 000000 000000  C(E)= 200200 000020  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000040 C(AC+1)= 000000 000000 
----------

*033170  DFAD	4,041077

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000040 C(AC+1)= 000000 000000  C(E)= 200200 000040  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000100 C(AC+1)= 000000 000000 
----------

*033177  DFAD	4,041101

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000100 C(AC+1)= 000000 000000  C(E)= 200200 000100  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000200 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 37
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0258

*033206  DFAD	4,041103

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000200 C(AC+1)= 000000 000000  C(E)= 200200 000200  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000400 C(AC+1)= 000000 000000 
----------

*033215  DFAD	4,041105

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 000400 C(AC+1)= 000000 000000  C(E)= 200200 000400  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 001000 C(AC+1)= 000000 000000 
----------

*033224  DFAD	4,041107

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200200 001000 C(AC+1)= 000000 000000  C(E)= 200200 001000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 002000 C(AC+1)= 000000 000000 
----------

*033233  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201402 000000 C(AC+1)= 000000 000000 
----------

*033242  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201404 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 38
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0259

*033251  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201410 000000 C(AC+1)= 000000 000000 
----------

*033260  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201420 000000 C(AC+1)= 000000 000000 
----------

*033267  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201440 000000 C(AC+1)= 000000 000000 
----------

*033276  DFAD	4,040057

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201500 000000 C(AC+1)= 000000 000000 
----------

*033305  DFAD	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 202600 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202700 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 39
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0260

*033314  DFAD	4,040731

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

*033323  DFAD	4,040057

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

*033332  DFAD	4,040744

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202400 000000 C(AC+1)= 000000 000000 
----------

*033341  DFAD	4,040766

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 201000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*033350  DFAD	4,040770

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 202000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 40
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0261

*033357  DFAD	4,041020

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 203000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 
----------

*033366  DFAD	4,040731

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

*033375  DFAD	4,040057

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

*033404  DFAD	4,040744

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

*033413  DFAD	4,041134

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000  C(E)= 200100 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 41
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0262

*033422  DFAD	4,041136

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000  C(E)= 200040 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000 
----------

*033431  DFAD	4,041140

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000  C(E)= 200020 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000 
----------

*033440  DFAD	4,041036

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 577400 000000 C(AC+1)= 000000 000000  C(E)= 576400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576200 000000 C(AC+1)= 000000 000000 
----------

*033447  DFAD	4,041036

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000  C(E)= 576400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576300 000000 C(AC+1)= 000000 000000 
----------

*033456  DFAD	4,041036

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 601400 000000 C(AC+1)= 000000 000000  C(E)= 576400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576340 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 42
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0263

*033465  DFAD	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576200 000000 C(AC+1)= 000000 000000 
----------

*033474  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576300 000000 C(AC+1)= 000000 000000 
----------

*033503  DFAD	4,041144

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000  C(E)= 601400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576340 000000 C(AC+1)= 000000 000000 
----------

*033512  DFAD	4,040061

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

*033521  DFAD	4,041144

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 601400 000000 C(AC+1)= 000000 000000  C(E)= 601400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 600400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 43
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0264

*033530  DFAD	4,040061

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

*033537  DFAD	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200600 000000 C(AC+1)= 000000 000000 
----------

*033546  DFAD	4,041144

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 601400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200700 000000 C(AC+1)= 000000 000000 
----------

*033555  DFAD	4,041147

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000001  C(E+1)= 000000 000000 
FINAL
C(AC)= 146400 000000 C(AC+1)= 000000 000000 
----------

*033564  DFAD	4,041151

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000002  C(E+1)= 000000 000000 
FINAL
C(AC)= 147400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 44
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0265

*033573  DFAD	4,041153

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000004  C(E+1)= 000000 000000 
FINAL
C(AC)= 150400 000000 C(AC+1)= 000000 000000 
----------

*033602  DFAD	4,041155

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000010  C(E+1)= 000000 000000 
FINAL
C(AC)= 151400 000000 C(AC+1)= 000000 000000 
----------

*033611  DFAD	4,041157

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000020  C(E+1)= 000000 000000 
FINAL
C(AC)= 152400 000000 C(AC+1)= 000000 000000 
----------

*033620  DFAD	4,041161

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000040  C(E+1)= 000000 000000 
FINAL
C(AC)= 153400 000000 C(AC+1)= 000000 000000 
----------

*033627  DFAD	4,041163

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000100  C(E+1)= 000000 000000 
FINAL
C(AC)= 154400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 45
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0266

*033636  DFAD	4,041165

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000200  C(E+1)= 000000 000000 
FINAL
C(AC)= 155400 000000 C(AC+1)= 000000 000000 
----------

*033645  DFAD	4,041167

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 000400  C(E+1)= 000000 000000 
FINAL
C(AC)= 156400 000000 C(AC+1)= 000000 000000 
----------

*033654  DFAD	4,041171

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 001000  C(E+1)= 000000 000000 
FINAL
C(AC)= 157400 000000 C(AC+1)= 000000 000000 
----------

*033663  DFAD	4,041173

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 002000  C(E+1)= 000000 000000 
FINAL
C(AC)= 160400 000000 C(AC+1)= 000000 000000 
----------

*033672  DFAD	4,041175

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 004000  C(E+1)= 000000 000000 
FINAL
C(AC)= 161400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 46
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0267

*033701  DFAD	4,041177

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 010000  C(E+1)= 000000 000000 
FINAL
C(AC)= 162400 000000 C(AC+1)= 000000 000000 
----------

*033710  DFAD	4,041201

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 020000  C(E+1)= 000000 000000 
FINAL
C(AC)= 163400 000000 C(AC+1)= 000000 000000 
----------

*033717  DFAD	4,041203

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 040000  C(E+1)= 000000 000000 
FINAL
C(AC)= 164400 000000 C(AC+1)= 000000 000000 
----------

*033726  DFAD	4,041205

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 100000  C(E+1)= 000000 000000 
FINAL
C(AC)= 165400 000000 C(AC+1)= 000000 000000 
----------

*033735  DFAD	4,041207

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 200000  C(E+1)= 000000 000000 
FINAL
C(AC)= 166400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 47
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0268

*033744  DFAD	4,041211

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200000 400000  C(E+1)= 000000 000000 
FINAL
C(AC)= 167400 000000 C(AC+1)= 000000 000000 
----------

*033753  DFAD	4,041213

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200001 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 170400 000000 C(AC+1)= 000000 000000 
----------

*033762  DFAD	4,041215

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200002 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 171400 000000 C(AC+1)= 000000 000000 
----------

*033771  DFAD	4,041217

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200004 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000 
----------

*034000  DFAD	4,041221

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200010 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 48
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0269

*034007  DFAD	4,041140

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200020 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000 
----------

*034016  DFAD	4,041136

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200040 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000 
----------

*034025  DFAD	4,041134

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200100 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000 
----------

*034034  DFAD	4,041026

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

*034043  DFAD	4,041223

FLAGS - INT/FINAL   440200 440300 
INITIAL
C(AC)= 777700 000000 C(AC+1)= 000000 000000  C(E)= 777700 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 49
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0270

*034052  DFAD	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777777 C(AC+1)= 000000 000000 
----------

*034061  DFAD	4,040057

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000001 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 200000 000000 
----------

*034070  DFAD	4,040744

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000002 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202400 000000 C(AC+1)= 200000 000000 
----------

*034077  DFAD	4,041230

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000004 C(AC+1)= 000000 000000  C(E)= 203400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 203400 000000 C(AC+1)= 200000 000000 
----------

*034106  DFAD	4,040747

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000010 C(AC+1)= 000000 000000  C(E)= 204400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 204400 000000 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 50
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0271

*034115  DFAD	4,040733

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000020 C(AC+1)= 000000 000000  C(E)= 205400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205400 000000 C(AC+1)= 200000 000000 
----------

*034124  DFAD	4,041043

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000040 C(AC+1)= 000000 000000  C(E)= 206400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 206400 000000 C(AC+1)= 200000 000000 
----------

*034133  DFAD	4,041232

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000100 C(AC+1)= 000000 000000  C(E)= 207400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 207400 000000 C(AC+1)= 200000 000000 
----------

*034142  DFAD	4,040752

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000200 C(AC+1)= 000000 000000  C(E)= 210400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 210400 000000 C(AC+1)= 200000 000000 
----------

*034151  DFAD	4,041234

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000400 C(AC+1)= 000000 000000  C(E)= 211400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 211400 000000 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 51
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0272

*034160  DFAD	4,041236

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 001000 C(AC+1)= 000000 000000  C(E)= 212400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 212400 000000 C(AC+1)= 200000 000000 
----------

*034167  DFAD	4,041240

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 002000 C(AC+1)= 000000 000000  C(E)= 213400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 213400 000000 C(AC+1)= 200000 000000 
----------

*034176  DFAD	4,041242

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 004000 C(AC+1)= 000000 000000  C(E)= 214400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 214400 000000 C(AC+1)= 200000 000000 
----------

*034205  DFAD	4,041244

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 010000 C(AC+1)= 000000 000000  C(E)= 215400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 215400 000000 C(AC+1)= 200000 000000 
----------

*034214  DFAD	4,041246

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 020000 C(AC+1)= 000000 000000  C(E)= 216400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 216400 000000 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 52
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0273

*034223  DFAD	4,041250

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 040000 C(AC+1)= 000000 000000  C(E)= 217400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 217400 000000 C(AC+1)= 200000 000000 
----------

*034232  DFAD	4,040755

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 100000 C(AC+1)= 000000 000000  C(E)= 220400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 220400 000000 C(AC+1)= 200000 000000 
----------

*034241  DFAD	4,041252

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 200000 C(AC+1)= 000000 000000  C(E)= 221400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221400 000000 C(AC+1)= 200000 000000 
----------

*034250  DFAD	4,041254

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 400000 C(AC+1)= 000000 000000  C(E)= 222400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 222400 000000 C(AC+1)= 200000 000000 
----------

*034257  DFAD	4,041256

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200001 000000 C(AC+1)= 000000 000000  C(E)= 223400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 223400 000000 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 53
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0274

*034266  DFAD	4,041260

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200002 000000 C(AC+1)= 000000 000000  C(E)= 224400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 224400 000000 C(AC+1)= 200000 000000 
----------

*034275  DFAD	4,041262

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200004 000000 C(AC+1)= 000000 000000  C(E)= 225400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 225400 000000 C(AC+1)= 200000 000000 
----------

*034304  DFAD	4,041264

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200010 000000 C(AC+1)= 000000 000000  C(E)= 226400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 226400 000000 C(AC+1)= 200000 000000 
----------

*034313  DFAD	4,041266

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000  C(E)= 227400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 227400 000000 C(AC+1)= 200000 000000 
----------

*034322  DFAD	4,041270

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000  C(E)= 230400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 230400 000000 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 54
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0275

*034331  DFAD	4,041272

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000  C(E)= 231400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 231400 000000 C(AC+1)= 200000 000000 
----------

*034340  DFAD	4,041276

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200200 000000 C(AC+1)= 000000 000000  C(E)= 232400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 232400 000000 C(AC+1)= 200000 000000 
----------

*034347  DFAD	4,041300

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 233400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 233400 000000 C(AC+1)= 200000 000000 
----------

*034356  DFAD	4,040177

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000001  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 200000 000000 
----------

*034365  DFAD	4,040057

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 201400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201600 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 55
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0276

*034374  DFAD	4,040744

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000003 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 202400 000000 C(AC+1)= 300000 000000 
----------

*034403  DFAD	4,041230

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000005 C(AC+1)= 000000 000000  C(E)= 203400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 203400 000000 C(AC+1)= 240000 000000 
----------

*034412  DFAD	4,040747

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000011 C(AC+1)= 000000 000000  C(E)= 204400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 204400 000000 C(AC+1)= 220000 000000 
----------

*034421  DFAD	4,040733

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000021 C(AC+1)= 000000 000000  C(E)= 205400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 205400 000000 C(AC+1)= 210000 000000 
----------

*034430  DFAD	4,041043

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000041 C(AC+1)= 000000 000000  C(E)= 206400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 206400 000000 C(AC+1)= 204000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 56
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0277

*034437  DFAD	4,041232

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000101 C(AC+1)= 000000 000000  C(E)= 207400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 207400 000000 C(AC+1)= 202000 000000 
----------

*034446  DFAD	4,040752

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000201 C(AC+1)= 000000 000000  C(E)= 210400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 210400 000000 C(AC+1)= 201000 000000 
----------

*034455  DFAD	4,041234

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 000401 C(AC+1)= 000000 000000  C(E)= 211400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 211400 000000 C(AC+1)= 200400 000000 
----------

*034464  DFAD	4,041236

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 001001 C(AC+1)= 000000 000000  C(E)= 212400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 212400 000000 C(AC+1)= 200200 000000 
----------

*034473  DFAD	4,041240

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 002001 C(AC+1)= 000000 000000  C(E)= 213400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 213400 000000 C(AC+1)= 200100 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 57
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0278

*034502  DFAD	4,041242

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 004001 C(AC+1)= 000000 000000  C(E)= 214400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 214400 000000 C(AC+1)= 200040 000000 
----------

*034511  DFAD	4,041244

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 010001 C(AC+1)= 000000 000000  C(E)= 215400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 215400 000000 C(AC+1)= 200020 000000 
----------

*034520  DFAD	4,041246

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 020001 C(AC+1)= 000000 000000  C(E)= 216400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 216400 000000 C(AC+1)= 200010 000000 
----------

*034527  DFAD	4,041250

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 040001 C(AC+1)= 000000 000000  C(E)= 217400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 217400 000000 C(AC+1)= 200004 000000 
----------

*034536  DFAD	4,040755

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 100001 C(AC+1)= 000000 000000  C(E)= 220400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 220400 000000 C(AC+1)= 200002 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 58
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0279

*034545  DFAD	4,041252

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 200001 C(AC+1)= 000000 000000  C(E)= 221400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221400 000000 C(AC+1)= 200001 000000 
----------

*034554  DFAD	4,041254

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200000 400001 C(AC+1)= 000000 000000  C(E)= 222400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 222400 000000 C(AC+1)= 200000 400000 
----------

*034570  DFAD	4,041345

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 376777 777777  C(E+1)= 777777 777776 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*034611  DFAD	4,041026

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

*034630  DFAD	4,041351

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000200 000000 C(AC+1)= 000000 000000  C(E)= 000200 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 59
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0280

*034651  DFAD	4,041354

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000200 000000 C(AC+1)= 000000 000000  C(E)= 000177 777777  C(E+1)= 777777 777777 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777776 
----------

*034670  DFAD	4,041361

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 401000 000000  C(E+1)= 000000 000002 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000001 
----------

*034711  DFAD	4,041357

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 400400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 777400 000000 C(AC+1)= 000000 000000 
----------

*034730  DFAD	4,041367

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 777600 000000 C(AC+1)= 000000 000000  C(E)= 777600 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 777400 000000 C(AC+1)= 000000 000000 
----------

*034751  DFAD	4,041372

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777600 000000 C(AC+1)= 000000 000000  C(E)= 777600 000000  C(E+1)= 000000 000001 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000002 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 60
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0281

*034775  DFSB	4,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777  C(E)= 200000 000000  C(E+1)= 400000 777777 
FINAL
C(AC)= 200777 777777 C(AC+1)= 377777 000000 
----------

*035004  DFSB	4,040727

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 205400 000000 C(AC+1)= 000000 000000  C(E)= 177400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 204770 000000 C(AC+1)= 000000 000000 
----------

*035013  DFSB	4,040727

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

*035022  DFSB	4,040731

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

*035031  DFSB	4,040727

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 177400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200600 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 61
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0282

*035040  DFSB	4,040725

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000  C(E)= 600400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 577200 000000 C(AC+1)= 000000 000000 
----------

*035047  DFSB	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201600 000000 C(AC+1)= 000000 000000 
----------

*035056  DFSB	4,041376

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 203400 000000 C(AC+1)= 000000 000000  C(E)= 200477 777775  C(E+1)= 000000 000000 
FINAL
C(AC)= 202660 000000 C(AC+1)= 300000 000000 
----------

*035072  DFSB	4,041402

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 400400 000000  C(E+1)= 000000 000001 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*035113  DFSB	4,041357

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 62
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0283

*035132  DFSB	4,041410

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777  C(E)= 000377 777777  C(E+1)= 777777 777777 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

*035153  DFSB	4,040716

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777  C(E)= 000400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777776 
----------

*035172  DFSB	4,041414

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 377377 777777  C(E+1)= 777777 777777 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000001 
----------

*035213  DFSB	4,041026

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 377400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 777400 000000 C(AC+1)= 000000 000000 
----------

*035232  DFSB	4,041422

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 777000 000000 C(AC+1)= 000000 000000  C(E)= 777400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 777400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 63
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0284

*035253  DFSB	4,041422

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777000 000000 C(AC+1)= 000000 000001  C(E)= 777400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000002 
----------

*035277  DFMP	4,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777  C(E)= 201400 000000  C(E+1)= 400000 777777 
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 777776 
----------

*035306  DFMP	4,040355

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

*035315  DFMP	4,040731

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

*035324  DFMP	4,040716

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 64
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0285

*035333  DFMP	4,040716

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

*035342  DFMP	4,040716

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

*035351  DFMP	4,040716

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

*035360  DFMP	4,040716

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

*035367  DFMP	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 65
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0286

*035376  DFMP	4,040061

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

*035405  DFMP	4,040733

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

*035414  DFMP	4,040061

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

*035423  DFMP	4,040057

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

*035432  DFMP	4,040744

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 66
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0287

*035441  DFMP	4,040747

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

*035450  DFMP	4,040752

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

*035457  DFMP	4,040755

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

*035466  DFMP	4,040760

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

*035475  DFMP	4,040762

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 67
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0288

*035504  DFMP	4,040731

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

*035513  DFMP	4,040731

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

*035522  DFMP	4,040731

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

*035531  DFMP	4,040731

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

*035540  DFMP	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 68
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0289

*035547  DFMP	4,040731

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

*035556  DFMP	4,040731

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

*035565  DFMP	4,041036

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

*035574  DFMP	4,041435

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

*035603  DFMP	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 69
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0290

*035612  DFMP	4,040731

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

*035621  DFMP	4,040731

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

*035630  DFMP	4,040731

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

*035637  DFMP	4,040731

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

*035646  DFMP	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 70
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0291

*035655  DFMP	4,041453

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 501700 000000 C(AC+1)= 000000 000000  C(E)= 500400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 374100 000000 C(AC+1)= 000000 000000 
----------

*035675  DFMP	4,041453

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 502700 000000 C(AC+1)= 000000 000000  C(E)= 500400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 373100 000000 C(AC+1)= 000000 000000 
----------

*035715  DFMP	4,041453

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 503700 000000 C(AC+1)= 000000 000000  C(E)= 500400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 372100 000000 C(AC+1)= 000000 000000 
----------

*035735  DFMP	4,041453

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 504700 000000 C(AC+1)= 000000 000000  C(E)= 500400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 371100 000000 C(AC+1)= 000000 000000 
----------

*035755  DFMP	4,041453

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 505700 000000 C(AC+1)= 000000 000000  C(E)= 500400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 370100 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 71
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0292

*035775  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200200 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177200 000000 C(AC+1)= 000000 000000 
----------

*036015  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177100 000000 C(AC+1)= 000000 000000 
----------

*036035  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177040 000000 C(AC+1)= 000000 000000 
----------

*036055  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177020 000000 C(AC+1)= 000000 000000 
----------

*036075  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200010 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177010 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 72
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0293

*036115  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200004 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177004 000000 C(AC+1)= 000000 000000 
----------

*036135  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200002 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 177002 000000 C(AC+1)= 000000 000000 
----------

*036155  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500700 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 501700 000000 C(AC+1)= 000000 000000 
----------

*036175  DFMP	4,040731

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500770 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 501770 000000 C(AC+1)= 000000 000000 
----------

*036215  DFMP	4,041515

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 73
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0294

*036224  DFMP	4,041520

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

*036233  DFMP	4,041523

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

*036242  DFMP	4,040741

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

*036251  DFMP	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777776 C(AC+1)= 000000 000400 
----------

*036260  DFMP	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777776 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777775 C(AC+1)= 000000 001000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 74
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0295

*036267  DFMP	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777775 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777774 C(AC+1)= 000000 001400 
----------

*036276  DFMP	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777774 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777773 C(AC+1)= 000000 002000 
----------

*036305  DFMP	4,041226

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777773 C(AC+1)= 000000 000000  C(E)= 200777 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 200777 777772 C(AC+1)= 000000 002400 
----------

*036314  DFMP	4,041540

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500000 777777 C(AC+1)= 000000 000000  C(E)= 200777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 500001 776777 C(AC+1)= 000400 000000 
----------

*036323  DFMP	4,041540

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500000 777770 C(AC+1)= 000000 000000  C(E)= 200777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 500001 776770 C(AC+1)= 004000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 75
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0296

*036332  DFMP	4,041536

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500000 777777 C(AC+1)= 000000 000000  C(E)= 500000 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 376776 001001 C(AC+1)= 377000 000400 
----------

*036341  DFMP	4,041550

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 500000 777776 C(AC+1)= 000000 000000  C(E)= 500000 777776  C(E+1)= 000000 000000 
FINAL
C(AC)= 376776 001003 C(AC+1)= 376000 002000 
----------

*036350  DFMP	4,041151

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 000000 000000  C(E)= 200000 000002  C(E+1)= 000000 000000 
FINAL
C(AC)= 177000 000003 C(AC+1)= 377777 776000 
----------

*036370  DFMP	4,041041

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

*036377  DFMP	4,041557

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200700 000000 C(AC+1)= 000000 000000  C(E)= 200400 000076  C(E+1)= 000000 000000 
FINAL
C(AC)= 177700 000154 C(AC+1)= 200000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 76
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0297

*036406  DFMP	4,041562

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 200700 000000 C(AC+1)= 000000 000000  C(E)= 200400 000075  C(E+1)= 000000 000000 
FINAL
C(AC)= 177700 000152 C(AC+1)= 300000 000000 
----------

*036415  DFMP	4,040725

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

*036424  DFMP	4,041567

FLAGS - INT/FINAL   440300 440300 
INITIAL
C(AC)= 600400 000077 C(AC+1)= 000000 000000  C(E)= 177660 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 602120 000152 C(AC+1)= 120000 000000 
----------

*036433  DFMP	4,041575

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

*036442  DFMP	4,041036

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 77
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0298

*036451  DFMP	4,041435

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

*036460  DFMP	4,040057

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

*036474  DFMP	4,041603

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 201777 777777  C(E+1)= 777777 777777 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*036515  DFMP	4,040744

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

*036534  DFMP	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 001400 000000 C(AC+1)= 000000 000000  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 78
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0299

*036555  DFMP	4,040731

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*036574  DFMP	4,041613

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 576000 000000  C(E+1)= 000000 000001 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*036615  DFMP	4,041435

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 400400 000000 C(AC+1)= 000000 000000  C(E)= 575400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

*036634  DFMP	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 776400 000000 C(AC+1)= 000000 000000  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

*036655  DFMP	4,040061

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777000 000000 C(AC+1)= 000000 000001  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 79
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0300

*036701  DFDV	4,000006

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777  C(E)= 200400 000000  C(E+1)= 400000 777777 
FINAL
C(AC)= 201777 777777 C(AC+1)= 377776 000001 
----------

*036710  DFDV	4,040731

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

*036717  DFDV	4,040057

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

*036726  DFDV	4,040744

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

*036735  DFDV	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 80
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0301

*036744  DFDV	4,040744

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

*036753  DFDV	4,040731

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

*036762  DFDV	4,040731

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

*036771  DFDV	4,040731

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

*037000  DFDV	4,040731

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 81
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0302

*037007  DFDV	4,040061

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

*037016  DFDV	4,040061

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

*037025  DFDV	4,040747

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

*037034  DFDV	4,040064

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 576400 000000 C(AC+1)= 000000 000000  C(E)= 200600 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 576252 525252 C(AC+1)= 252525 252526 
----------

*037043  DFDV	4,040061

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 82
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0303

*037052  DFDV	4,040061

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

*037061  DFDV	4,041636

FLAGS - INT/FINAL   300000 740200 
INITIAL
C(AC)= 377400 777777 C(AC+1)= 000000 000000  C(E)= 577400 777777  C(E+1)= 000000 000000 
FINAL
C(AC)= 777375 773771 C(AC+1)= 373773 776005 
----------

*037070  DFDV	4,040355

FLAGS - INT/FINAL   740200 740040 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 000000 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000 
----------

*037077  DFDV	4,040716

FLAGS - INT/FINAL   740040 740240 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 000400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000 
----------

*037106  DFDV	4,041644

FLAGS - INT/FINAL   740240 740040 
INITIAL
C(AC)= 577775 000000 C(AC+1)= 000000 000000  C(E)= 577777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 577775 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 83
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0304

*037115  DFDV	4,041644

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 577774 000000 C(AC+1)= 000000 000000  C(E)= 577777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 577774 000000 C(AC+1)= 000000 000000 
----------

*037124  DFDV	4,041652

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170750 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221414 456123 C(AC+1)= 150726 020622 
----------

*037133  DFDV	4,041656

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170555 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221547 063714 C(AC+1)= 314631 463146 
----------

*037142  DFDV	4,040731

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

*037151  DFDV	4,041656

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 777777 777777  C(E)= 170555 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221547 063715 C(AC+1)= 200263 431746 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 84
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0305

*037160  DFDV	4,041656

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777775 C(AC+1)= 000000 000000  C(E)= 170555 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221547 063713 C(AC+1)= 145545 545545 
----------

*037167  DFDV	4,041677

FLAGS - INT/FINAL   740040 740240 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 555000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 077400 400400 C(AC+1)= 355355 355355 
----------

*037176  DFDV	4,041440

FLAGS - INT/FINAL   740240 740040 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 000000 000000  C(E)= 200777 777776  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 200000 000400 
----------

*037205  DFDV	4,041446

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 200777 777777 C(AC+1)= 000000 000000  C(E)= 200777 777774  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000001 C(AC+1)= 200000 003000 
----------

*037214  DFDV	4,041656

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170555 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221547 063714 C(AC+1)= 314631 463146 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 85
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0306

*037223  DFDV	4,041705

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170555 600000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221546 272702 C(AC+1)= 301417 730633 
----------

*037232  DFDV	4,041711

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170557 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221545 111740 C(AC+1)= 234200 262444 
----------

*037241  DFDV	4,041715

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 210777 777777 C(AC+1)= 000000 000000  C(E)= 170560 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 221544 131025 C(AC+1)= 220544 131026 
----------

*037250  DFDV	4,041677

FLAGS - INT/FINAL   740040 740240 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 077400 400400 C(AC+1)= 200200 200200 
----------

*037257  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 376400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 076400 400400 C(AC+1)= 200200 200200 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 86
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0307

*037266  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 375400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 075400 400400 C(AC+1)= 200200 200200 
----------

*037275  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 374400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 074400 400400 C(AC+1)= 200200 200200 
----------

*037304  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 373400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 073400 400400 C(AC+1)= 200200 200200 
----------

*037313  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 372400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 072400 400400 C(AC+1)= 200200 200200 
----------

*037322  DFDV	4,041741

FLAGS - INT/FINAL   740240 740040 
INITIAL
C(AC)= 210777 000000 C(AC+1)= 000000 000000  C(E)= 210777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 87
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0308

*037331  DFDV	4,041741

FLAGS - INT/FINAL   740040 740040 
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000  C(E)= 210777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 170400 400400 C(AC+1)= 200200 200200 
----------

*037340  DFDV	4,041677

FLAGS - INT/FINAL   740040 740240 
INITIAL
C(AC)= 371400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 071400 400400 C(AC+1)= 200200 200200 
----------

*037347  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 370400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 070400 400400 C(AC+1)= 200200 200200 
----------

*037356  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 367400 000000 C(AC+1)= 000000 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 067400 400400 C(AC+1)= 200200 200200 
----------

*037365  DFDV	4,041677

FLAGS - INT/FINAL   740240 740240 
INITIAL
C(AC)= 373400 000000 C(AC+1)= 200777 000000  C(E)= 100777 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 073400 400401 C(AC+1)= 001400 400400 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 88
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0309

*037431  DFDV	4,040731

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 376777 777777 C(AC+1)= 777777 777777  C(E)= 200400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*037452  DFDV	4,040731

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

*037471  DFDV	4,040744

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 001400 000000 C(AC+1)= 000000 000000  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 
----------

*037512  DFDV	4,040744

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777  C(E)= 202400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 
----------

*037531  DFDV	4,040061

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 376777 777777 C(AC+1)= 777777 777777  C(E)= 577400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000001 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  21-JUN-78   PAGE 89
DSKCE	000000 000000  770000 000000  110000 000000  030000  777777                                                        SEQ 0310

*037552  DFDV	4,041422

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 377400 000000 C(AC+1)= 000000 000000  C(E)= 777400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 577400 000000 C(AC+1)= 000000 000000 
----------

*037571  DFDV	4,041435

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 001400 000000 C(AC+1)= 000000 000000  C(E)= 575400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 777400 000000 C(AC+1)= 000000 000000 
----------

*037612  DFDV	4,041435

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777  C(E)= 575400 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000001 
----------

*037631  DFDV	4,040355

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

*037650  DFDV	4,041776

FLAGS - INT/FINAL   000000 440040 
INITIAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000  C(E)= 201200 000000  C(E+1)= 000000 000000 
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000 
----------