Google
 

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







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

	PRODUCT CODE:		AH-E325A-DD

	DIAGNOSTIC CODE:	DSKCA

	PRODUCT NAME:	 	DSKCAA0 DECSYSTEM 2020 
				ADVANCED INSTRUCTION DIAGNOSTIC (1)

	VERSION:		0.1

	DATE RELEASED:		MARCH 1978

	MAINTAINED BY:		DIAGNOSTIC ENGINEERING

	AUTHOR:			JOHN R. KIRCHOFF

		        COPYRIGHT (C) 1978

	        DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

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

	DIGITAL EQUIPMENT CORPORATION ASSUMES NO  RESPONSIBILITY FOR THE
	USE  OR  RELIABILITY  OF  ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
	SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
							MAINDEC-10-DSKCA.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-DSKCA.TXT
							PAGE 3                                                             SEQ 0004

1.0	ABSTRACT

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

	THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
	AND MICRO-CODE FLOATING SCALE, FLOATING ADD/SUB AND
	NORMALIZED RETURN AND ROUND FUNCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	CONSOLE PROCESSOR
	CONSOLE TELETYPE
	LOAD DEVICE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

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

	FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
							MAINDEC-10-DSKCA.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-DSKCA.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-DSKCA.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-DSKCA.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-DSKCA.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 'DSKCA.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-DSKCA.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 DSKCA                                                                                     SEQ 0011
		----------------------

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

CODE:		MAINDEC-10-DSKCA

TITLE:		DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (1)

VERSION:	0.1

DATE:		MARCH 1978

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

     1					;MAINDEC-10-DSKCA
     2
     3			000000		MCNVER=0
     4			000001		DECVER=1
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, 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
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 2
DSKCAT	MAC	29-Mar-78 10:58		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			036456		LUUO1==ERRMES
    42			036456		LUUO2==ERRMES
    43			036456		LUUO3==ERRMES
    44			036456		LUUO4==ERRMES
    45			036456		LUUO5==ERRMES
    46			036456		LUUO6==ERRMES
    47			036456		LUUO7==ERRMES
    48			036456		LUUO10==ERRMES
    49			036456		LUUO11==ERRMES
    50			036456		LUUO12==ERRMES
    51			036456		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
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 3
DSKCAT	MAC	29-Mar-78 10:58		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	434100		PAREA3=SIXBIT/DSKCA/
    86		546064	000000		PAREA4=SIXBIT/LPT/
    87			000000		PAREA5=0
    88			000000		PAREA6=0
    89
    90			000001		ITERAT=1
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 4
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 5
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 6
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 7
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 8
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 9
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 10
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 11
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 12
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 13
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 14
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 15
DSKCAT	MAC	29-Mar-78 10:58		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>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1
PARAM	KSM	28-Mar-78 11:27		CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978                                        SEQ 0027

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

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

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

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

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

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

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

   841					S^;*********************************************************************^
   842					;*PROGRAM FIXED PARAMETER AREA
   843					S^;*********************************************************************^
   844
   845	030020	446353	434100		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
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 3
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0035

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

   932					S^;*********************************************************************^
   933					;*UUO DISPATCH TABLE
   934					S^;*********************************************************************^
   935						XLIST
   936						LIST
   937	030124	036456	030070		UUODIS:	LUUO1,,$UUOER
   938	030125	036456	036456			LUUO3,,LUUO2
   939	030126	036456	036456			LUUO5,,LUUO4
   940	030127	036456	036456			LUUO7,,LUUO6
   941	030130	036456	036456			LUUO11,,LUUO10
   942	030131	036456	036456			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
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 5
FIXED	KSM	28-Mar-78 11:28		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978                             SEQ 0037

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

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

  1079					S^;*********************************************************************^
  1080					;*USER MODE MONITOR TYPE FLAG
  1081					S^;*********************************************************************^
  1082
  1083	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
  1084
  1085					S^;*********************************************************************^
  1086					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
  1087					S^;*********************************************************************^
  1088
  1089	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
  1090
  1091					S^;*********************************************************************^
  1092					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
  1093					S^;*********************************************************************^
  1094
  1095	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
  1096
  1097					S^;*********************************************************************^
  1098					;*"SWITCH" CALL USAGE CONTROL
  1099					S^;*********************************************************************^
  1100
  1101	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
  1102
  1103					S^;*********************************************************************^
  1104					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
  1105					S^;*********************************************************************^
  1106
  1107	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
  1108	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
  1109
  1110					S^;*********************************************************************^
  1111					;*SM10 (KS-10) PROCESSOR TYPE FLAG
  1112					S^;*********************************************************************^
  1113
  1114	030524	000000	000000		SM10:	0	;IF -1 THIS IS AN KS-10
  1115
  1116					S^;*********************************************************************^
  1117					;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
  1118					S^;*********************************************************************^
  1119
  1120	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
  1121
  1122					S^;*********************************************************************^
  1123					;*SPECIAL FUTURE EXPANSION ROOM
  1124					S^;*********************************************************************^
  1125
  1126					S^;*********************************************************************^
  1127					;*END OF FIXED STORAGE
  1128					S^;*********************************************************************^
  1129
  1130	030577					LOC	30577
  1131	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1
DSKCA1	MAC	29-Mar-78 10:59		*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 036644 		CALL	[SIXBIT .EXIT.]
  1134
  1135	030602				PGMNAM:	ASCIZ?
  1136	030602	015 012 104 105 103 	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1 (DSKCA)
  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	061 040 050 104 123 
  1147	030615	113 103 101 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 036645 		MOVE	[ASCIZ/CA/]
  1153	030621	202 00 0 00 036565 		MOVEM	TLET		;INITIALIZE TEST LETTER
  1154
  1155	030622	254 00 0 00 030623 	STARTA:	JRST	.+1		;GO PERFORM DIAGNOSTIC
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 2
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0041

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

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

  1236					;AC=000400000000
  1237					;SCALE=177
  1238					;FAILURE RESULTS IN AN
  1239					;EXPONENT=0
  1240
  1241			000007			AC=7
  1242						SAVEAC	(1,1)^
  1243	030673	201 11 0 00 030673 		MOVEI	AC+2,.
  1244	030674	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1245	030675	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1246	030676	202 11 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1247
  1248	030677	205 05 0 00 000400 	O12700:	MOVSI	AC-2,400	;SETUP FOR COMPARISON
  1249	030700	205 07 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1250	030701	132 07 0 00 000177 		FSC	AC,177		;RESCALE
  1251	030702	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST EXP=0
  1252	030703	003 07 0 00 012701 		ER3	AC,12701
  1253	030704	321 11 0 00 030677 		JUMPL	AC+2,O12700	;LOOP ON ERROR SWITCH
  1254					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 4-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0044

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

  1310
  1311			013004		SN=SN+1
  1312			000010			ZZ=ZZ+ZZ
  1313						IFE	ZZ,<ZZ=1>
  1314	030733	205 04 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1315	030734	205 06 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1316	030735	132 06 0 00 000210 		FSC	AC,200+ZZ	;RESCALE
  1317	030736	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST EXP=200
  1318	030737	003 06 0 00 013004 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1319	030740	321 10 0 00 030733 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1320
  1321			013005		SN=SN+1
  1322			000020			ZZ=ZZ+ZZ
  1323						IFE	ZZ,<ZZ=1>
  1324	030741	205 04 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1325	030742	205 06 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1326	030743	132 06 0 00 000220 		FSC	AC,200+ZZ	;RESCALE
  1327	030744	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST EXP=200
  1328	030745	003 06 0 00 013005 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1329	030746	321 10 0 00 030741 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1330
  1331			013006		SN=SN+1
  1332			000040			ZZ=ZZ+ZZ
  1333						IFE	ZZ,<ZZ=1>
  1334	030747	205 04 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1335	030750	205 06 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1336	030751	132 06 0 00 000240 		FSC	AC,200+ZZ	;RESCALE
  1337	030752	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST EXP=200
  1338	030753	003 06 0 00 013006 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1339	030754	321 10 0 00 030747 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1340
  1341			013007		SN=SN+1
  1342			000100			ZZ=ZZ+ZZ
  1343						IFE	ZZ,<ZZ=1>
  1344	030755	205 04 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1345	030756	205 06 0 00 000400 		MOVSI	AC,400		;SETUP AC
  1346	030757	132 06 0 00 000300 		FSC	AC,200+ZZ	;RESCALE
  1347	030760	316 06 0 00 000004 		CAMN	AC,AC-2		;TEST EXP=200
  1348	030761	003 06 0 00 013007 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  1349	030762	321 10 0 00 030755 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1350
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 5
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0046

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

  1406			004400			XX=XX+WW
  1407			001767			ZZ=ZZ+ZZ+1
  1408	031003	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1409	031004	205 05 0 00 004400 		MOVSI	AC,XX		;SETUP AC
  1410	031005	132 05 0 00 001767 		FSC	AC,ZZ		;RESCALE
  1411	031006	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST EXP = 377
  1412	031007	003 05 0 00 013103 		ER3	AC,SN		;BIT UNDER TEST FAILED TO CLEAR
  1413	031010	321 07 0 00 031003 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1414
  1415			013104		SN=SN+1
  1416			004000			WW=WW+WW
  1417			010400			XX=XX+WW
  1418			003757			ZZ=ZZ+ZZ+1
  1419	031011	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1420	031012	205 05 0 00 010400 		MOVSI	AC,XX		;SETUP AC
  1421	031013	132 05 0 00 003757 		FSC	AC,ZZ		;RESCALE
  1422	031014	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST EXP = 377
  1423	031015	003 05 0 00 013104 		ER3	AC,SN		;BIT UNDER TEST FAILED TO CLEAR
  1424	031016	321 07 0 00 031011 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1425
  1426			013105		SN=SN+1
  1427			010000			WW=WW+WW
  1428			020400			XX=XX+WW
  1429			007737			ZZ=ZZ+ZZ+1
  1430	031017	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1431	031020	205 05 0 00 020400 		MOVSI	AC,XX		;SETUP AC
  1432	031021	132 05 0 00 007737 		FSC	AC,ZZ		;RESCALE
  1433	031022	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST EXP = 377
  1434	031023	003 05 0 00 013105 		ER3	AC,SN		;BIT UNDER TEST FAILED TO CLEAR
  1435	031024	321 07 0 00 031017 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1436
  1437			013106		SN=SN+1
  1438			020000			WW=WW+WW
  1439			040400			XX=XX+WW
  1440			017677			ZZ=ZZ+ZZ+1
  1441	031025	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1442	031026	205 05 0 00 040400 		MOVSI	AC,XX		;SETUP AC
  1443	031027	132 05 0 00 017677 		FSC	AC,ZZ		;RESCALE
  1444	031030	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST EXP = 377
  1445	031031	003 05 0 00 013106 		ER3	AC,SN		;BIT UNDER TEST FAILED TO CLEAR
  1446	031032	321 07 0 00 031025 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1447
  1448			013107		SN=SN+1
  1449			040000			WW=WW+WW
  1450			100400			XX=XX+WW
  1451			037577			ZZ=ZZ+ZZ+1
  1452	031033	205 03 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  1453	031034	205 05 0 00 100400 		MOVSI	AC,XX		;SETUP AC
  1454	031035	132 05 0 00 037577 		FSC	AC,ZZ		;RESCALE
  1455	031036	316 05 0 00 000003 		CAMN	AC,AC-2		;TEST EXP = 377
  1456	031037	003 05 0 00 013107 		ER3	AC,SN		;BIT UNDER TEST FAILED TO CLEAR
  1457	031040	321 07 0 00 031033 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1458
  1459					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 5-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0048

  1460					;AC=200400000000
  1461					;SCALE=5
  1462					;FAILURE OF ANY ONE RESULTS IN LOSS
  1463					;OF THE EXPONENT. THE RESULTANT EXPONENT
  1464					;IS EQUAL TO THE SCALING FACTOR
  1465
  1466			000014			AC=14
  1467						SAVEAC	(1,1)^
  1468	031041	201 16 0 00 031041 		MOVEI	AC+2,.
  1469	031042	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1470	031043	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1471	031044	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1472
  1473	031045	205 12 0 00 005400 	O13200:	MOVSI	AC-2,5400	;SETUP FOR COMPARISON
  1474	031046	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  1475	031047	132 14 0 00 000005 		FSC	AC,5		;RESCALE
  1476	031050	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=5
  1477	031051	003 14 0 00 013201 		ER3	AC,13201
  1478	031052	321 16 0 00 031045 		JUMPL	AC+2,O13200	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 6
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0049

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

  1534	031100	321 16 0 00 031073 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1535
  1536			013304		SN=SN+1
  1537			004000			XX=XX+XX
  1538			210400			ZZ=ZZ+XX
  1539	031101	205 12 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1540	031102	205 14 0 00 210400 		MOVSI	AC,ZZ		;SETUP AC
  1541	031103	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1542	031104	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=200
  1543	031105	003 14 0 00 013304 		ER3	AC,SN		;GATE UNDER TEST FAILED TO SET
  1544	031106	321 16 0 00 031101 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1545
  1546			013305		SN=SN+1
  1547			010000			XX=XX+XX
  1548			220400			ZZ=ZZ+XX
  1549	031107	205 12 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1550	031110	205 14 0 00 220400 		MOVSI	AC,ZZ		;SETUP AC
  1551	031111	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1552	031112	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=200
  1553	031113	003 14 0 00 013305 		ER3	AC,SN		;GATE UNDER TEST FAILED TO SET
  1554	031114	321 16 0 00 031107 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1555
  1556			013306		SN=SN+1
  1557			020000			XX=XX+XX
  1558			240400			ZZ=ZZ+XX
  1559	031115	205 12 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1560	031116	205 14 0 00 240400 		MOVSI	AC,ZZ		;SETUP AC
  1561	031117	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1562	031120	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=200
  1563	031121	003 14 0 00 013306 		ER3	AC,SN		;GATE UNDER TEST FAILED TO SET
  1564	031122	321 16 0 00 031115 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1565
  1566			013307		SN=SN+1
  1567			040000			XX=XX+XX
  1568			300400			ZZ=ZZ+XX
  1569	031123	205 12 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1570	031124	205 14 0 00 300400 		MOVSI	AC,ZZ		;SETUP AC
  1571	031125	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1572	031126	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=200
  1573	031127	003 14 0 00 013307 		ER3	AC,SN		;GATE UNDER TEST FAILED TO SET
  1574	031130	321 16 0 00 031123 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1575
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 7
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0051

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

  1621									;TEST SCAD4
  1622	031165	205 11 0 00 017400 	O14000:	MOVSI	AC-2,17400	;SETUP FOR COMPARISON
  1623	031166	205 13 0 00 357400 		MOVSI	AC,357400	;SETUP AC
  1624	031167	132 13 0 00 000020 		FSC	AC,20		;RESCALE
  1625	031170	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=17
  1626	031171	003 13 0 00 014001 		ER3	AC,14001	;SCAD4 SET
  1627	031172	321 15 0 00 031165 		JUMPL	AC+2,O14000	;LOOP ON ERROR SWITCH
  1628
  1629									;TEST SCAD3
  1630	031173	205 11 0 00 037400 	O14100:	MOVSI	AC-2,37400	;SETUP FOR COMPARISON
  1631	031174	205 13 0 00 337400 		MOVSI	AC,337400	;SETUP AC
  1632	031175	132 13 0 00 000040 		FSC	AC,40		;RESCALE
  1633	031176	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=37
  1634	031177	003 13 0 00 014101 		ER3	AC,14101	;SCAD3 SET
  1635	031200	321 15 0 00 031173 		JUMPL	AC+2,O14100	;LOOP ON ERROR SWITCH
  1636
  1637									;TEST SCAD2
  1638	031201	205 11 0 00 077400 	O14200:	MOVSI	AC-2,77400	;SETUP FOR COMPARISON
  1639	031202	205 13 0 00 277400 		MOVSI	AC,277400	;SETUP AC
  1640	031203	132 13 0 00 000100 		FSC	AC,100		;RESCALE
  1641	031204	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=77
  1642	031205	003 13 0 00 014201 		ER3	AC,14201	;SCAD2 SET
  1643	031206	321 15 0 00 031201 		JUMPL	AC+2,O14200	;LOOP ON ERROR SWITCH
  1644
  1645									;TEST SCAD1
  1646	031207	205 11 0 00 177400 	O14300:	MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  1647	031210	205 13 0 00 177400 		MOVSI	AC,177400	;SETUP AC
  1648	031211	132 13 0 00 000200 		FSC	AC,200		;RESCALE
  1649	031212	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=177
  1650	031213	003 13 0 00 014301 		ER3	AC,14301	;SCAD1 SET
  1651	031214	321 15 0 00 031207 		JUMPL	AC+2,O14300	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 9
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0053

  1652					;AC=577200000000
  1653					;SCALE=1
  1654					;FAILURE RESULTS IN AN EXPONENT
  1655					;EQUAL TO 776
  1656
  1657			000012			AC=12
  1658						SAVEAC	(1,1)^
  1659	031215	201 14 0 00 031215 		MOVEI	AC+2,.
  1660	031216	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1661	031217	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1662	031220	202 14 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1663
  1664	031221	205 10 0 00 776200 	O14400:	MOVSI	AC-2,776200	;SETUP FOR COMPARISON
  1665	031222	205 12 0 00 577200 		MOVSI	AC,577200	;SETUP AC
  1666	031223	132 12 0 00 000001 		FSC	AC,1		;RESCALE
  1667	031224	316 12 0 00 000010 		CAMN	AC,AC-2		;TEST EXP=776
  1668	031225	003 12 0 00 014401 		ER3	AC,14401
  1669	031226	321 14 0 00 031221 		JUMPL	AC+2,O14400	;LOOP ON ERROR SWITCH
  1670
  1671					;AC=577200000000
  1672					;SCALING FACTOR=0
  1673					;SETTING SCAD+1 EN RESULTS IN AN
  1674					;EXPONENT=576
  1675
  1676			000011			AC=11
  1677						SAVEAC	(1,1)^
  1678	031227	201 13 0 00 031227 		MOVEI	AC+2,.
  1679	031230	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1680	031231	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1681	031232	202 13 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1682
  1683	031233	205 07 0 00 576200 	O14500:	MOVSI	AC-2,576200	;SETUP FOR COMPARISON
  1684	031234	205 11 0 00 577200 		MOVSI	AC,577200	;SETUP AC
  1685	031235	132 11 0 00 000000 		FSC	AC,0		;RESCALE
  1686	031236	316 11 0 00 000007 		CAMN	AC,AC-2		;TEST EXP=576
  1687	031237	003 11 0 00 014501 		ER3	AC,14501
  1688	031240	321 13 0 00 031233 		JUMPL	AC+2,O14500	;LOOP ON ERROR SWITCH
  1689					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 9-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0054

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

  1745	031270	205 10 0 00 767200 		MOVSI	AC,200+ZZ	;SETUP AC
  1746	031271	132 10 0 00 000000 		FSC	AC,0		;RESCALE
  1747	031272	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST EXP=777
  1748	031273	003 10 0 00 014604 		ER3	AC,SN
  1749	031274	321 12 0 00 031267 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1750
  1751			014605		SN=SN+1
  1752			757000			ZZ=<ZZ+ZZ+1000>&777777
  1753	031275	205 06 0 00 777200 		MOVSI	AC-2,777200	;SETUP FOR COMPARISON
  1754	031276	205 10 0 00 757200 		MOVSI	AC,200+ZZ	;SETUP AC
  1755	031277	132 10 0 00 000000 		FSC	AC,0		;RESCALE
  1756	031300	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST EXP=777
  1757	031301	003 10 0 00 014605 		ER3	AC,SN
  1758	031302	321 12 0 00 031275 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1759
  1760			014606		SN=SN+1
  1761			737000			ZZ=<ZZ+ZZ+1000>&777777
  1762	031303	205 06 0 00 777200 		MOVSI	AC-2,777200	;SETUP FOR COMPARISON
  1763	031304	205 10 0 00 737200 		MOVSI	AC,200+ZZ	;SETUP AC
  1764	031305	132 10 0 00 000000 		FSC	AC,0		;RESCALE
  1765	031306	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST EXP=777
  1766	031307	003 10 0 00 014606 		ER3	AC,SN
  1767	031310	321 12 0 00 031303 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1768
  1769			014607		SN=SN+1
  1770			677000			ZZ=<ZZ+ZZ+1000>&777777
  1771	031311	205 06 0 00 777200 		MOVSI	AC-2,777200	;SETUP FOR COMPARISON
  1772	031312	205 10 0 00 677200 		MOVSI	AC,200+ZZ	;SETUP AC
  1773	031313	132 10 0 00 000000 		FSC	AC,0		;RESCALE
  1774	031314	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST EXP=777
  1775	031315	003 10 0 00 014607 		ER3	AC,SN
  1776	031316	321 12 0 00 031311 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1777
  1778			014610		SN=SN+1
  1779			577000			ZZ=<ZZ+ZZ+1000>&777777
  1780	031317	205 06 0 00 777200 		MOVSI	AC-2,777200	;SETUP FOR COMPARISON
  1781	031320	205 10 0 00 577200 		MOVSI	AC,200+ZZ	;SETUP AC
  1782	031321	132 10 0 00 000000 		FSC	AC,0		;RESCALE
  1783	031322	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST EXP=777
  1784	031323	003 10 0 00 014610 		ER3	AC,SN
  1785	031324	321 12 0 00 031317 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  1786
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 10
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0056

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

  1839					;TEST - NR NORMAL
  1840					;AC=206200000000
  1841					;SCALE=0
  1842					;FAILURE RESULTS IN AN EXPONENT
  1843					;EQUAL TO 171, THE MANTISSA IS NORMALIZED
  1844
  1845			000014			AC=14
  1846						SAVEAC	(1,1)^
  1847	031363	201 16 0 00 031363 		MOVEI	AC+2,.
  1848	031364	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1849	031365	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1850	031366	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1851
  1852	031367	205 12 0 00 171400 	O15200:	MOVSI	AC-2,171400	;SETUP FOR COMPARISON
  1853	031370	205 14 0 00 206200 		MOVSI	AC,206200	;SETUP AC
  1854	031371	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1855	031372	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=171
  1856	031373	003 14 0 00 015201 		ER3	AC,15201
  1857	031374	321 16 0 00 031367 		JUMPL	AC+2,O15200	;LOOP ON ERROR SWITCH
  1858
  1859					;AC=200200000000
  1860					;SCALING FACTOR=0
  1861					;FAILURE RESULTS IN AN EXPONENT
  1862					;EQUAL TO ORIG. THE FRACTION IS NORMALIZED
  1863
  1864			000014			AC=14
  1865						SAVEAC	(1,1)^
  1866	031375	201 16 0 00 031375 		MOVEI	AC+2,.
  1867	031376	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1868	031377	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1869	031400	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1870
  1871	031401	205 12 0 00 200400 	O15300:	MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  1872	031402	205 14 0 00 200200 		MOVSI	AC,200200	;SETUP AC
  1873	031403	132 14 0 00 000000 		FSC	AC,0		;RESCALE
  1874	031404	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST EXP=ORIG
  1875	031405	003 14 0 00 015301 		ER3	AC,15301
  1876	031406	321 16 0 00 031401 		JUMPL	AC+2,O15300	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 12
DSKCA1	MAC	29-Mar-78 10:59		PART I.A - FSC AND NORMALIZE RETURN                                                SEQ 0058

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

  1919					;TEST NR ALL ZERO
  1920					;TEST ABILITY TO ASSERT NR ALL ZERO LEVEL
  1921					;AC=377000000000
  1922					;SCALE=401
  1923					;FAILURE SHOULD RESULT IN LOOPING NRT2-
  1924					;ATTEMPTING TO NORMALIZE
  1925
  1926			000012			AC=12
  1927						SAVEAC	(1,1)^
  1928	031441	201 14 0 00 031441 		MOVEI	AC+2,.
  1929	031442	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1930	031443	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1931	031444	202 14 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1932
  1933	031445	205 12 0 00 377000 	O15700:	MOVSI	AC,377000	;SETUP AC
  1934	031446	132 12 0 00 000401 		FSC	AC,401		;RESCALE
  1935	031447	332 00 0 00 000012 		SKIPE	AC		;TEST AC=0
  1936	031450	003 12 0 00 015701 		ER3	AC,15701	;NR ALL ZERO ASSERTED
  1937	031451	321 14 0 00 031445 		JUMPL	AC+2,O15700	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 13
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0060

  1938					SUBTTL  PART I.B-FAD AND NORM RET
  1939
  1940
  1941					;		PART I.B-FAD AND NORM RET
  1942
  1943					;AR=000600000000
  1944					;BR=000400000000
  1945					;FAILURE RESULTS IN LOSS OF BR
  1946					;CORRECT SUM=001500000000
  1947					;ERROR SUM=000600000000
  1948
  1949			000014			AC=14
  1950						SAVEAC	(1,1)^
  1951	031452	201 16 0 00 031452 		MOVEI	AC+2,.
  1952	031453	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1953	031454	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1954	031455	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1955
  1956	031456	205 12 0 00 000600 	O16000:	MOVSI	AC-2,600	;SETUP FOR COMPARISON
  1957	031457	205 14 0 00 000600 		MOVSI	AC,600		;SETUP AC
  1958	031460	205 15 0 00 000400 		MOVSI	AC+1,400	;SETUP BR
  1959	031461	140 14 0 00 000015 		FAD	AC,AC+1		;C(AC)+C(E)
  1960	031462	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST SUM=600000000
  1961	031463	003 14 0 00 016001 		ER3	AC,16001
  1962	031464	321 16 0 00 031456 		JUMPL	AC+2,O16000	;LOOP ON ERROR SWITCH
  1963
  1964					;AR=000600000000
  1965					;BR=000400000000
  1966					;FAILURE RESULTS IN LOSS
  1967					;OF LARGER NUMBER
  1968					;FAILURE RESULTS IN NORMALIZING
  1969					;CORRECT SUM=001500000000
  1970					;ERROR SUM=000400000000
  1971
  1972			000013			AC=13
  1973						SAVEAC	(1,1)^
  1974	031465	201 15 0 00 031465 		MOVEI	AC+2,.
  1975	031466	202 15 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  1976	031467	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1977	031470	202 15 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1978
  1979	031471	205 13 0 00 000600 	O16100:	MOVSI	AC,600		;SETUP AC
  1980	031472	205 14 0 00 000400 		MOVSI	AC+1,400	;SETUP BR
  1981	031473	140 13 0 00 000014 		FAD	AC,AC+1		;C(AC)+C(E)
  1982	031474	316 13 0 00 000014 		CAMN	AC,AC+1		;TEST SUM=000400000000
  1983	031475	003 13 0 00 016101 		ER3	AC,16101
  1984	031476	321 15 0 00 031471 		JUMPL	AC+2,O16100	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 14
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0061

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

  2026					;AR=000600000000
  2027					;BR=000400000000
  2028					;CORRECT SUM=001500000000
  2029					;ERROR SUM=377500000000
  2030
  2031			000010			AC=10
  2032						SAVEAC	(1,1)^
  2033	031525	201 12 0 00 031525 		MOVEI	AC+2,.
  2034	031526	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2035	031527	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2036	031530	202 12 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2037
  2038	031531	205 06 0 00 377500 	O16400:	MOVSI	AC-2,377500	;SETUP FOR COMPARISON
  2039	031532	205 10 0 00 000600 		MOVSI	AC,600		;SETUP AC
  2040	031533	205 11 0 00 000400 		MOVSI	AC+1,400	;SETUP BR
  2041	031534	140 10 0 00 000011 		FAD	AC,AC+1		;C(AC)+C(E)
  2042	031535	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST SUM=377500000000
  2043	031536	003 10 0 00 016401 		ER3	AC,16401
  2044	031537	321 12 0 00 031531 		JUMPL	AC+2,O16400	;LOOP ON ERROR SWITCH
  2045
  2046					;AR=000600000000
  2047					;BR=000400000000
  2048					;CORRECT SUM=001500000000
  2049					;ERROR SUM=000500000000
  2050
  2051			000007			AC=7
  2052						SAVEAC	(1,1)^
  2053	031540	201 11 0 00 031540 		MOVEI	AC+2,.
  2054	031541	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2055	031542	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2056	031543	202 11 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2057
  2058	031544	205 05 0 00 000500 	O16500:	MOVSI	AC-2,500	;SETUP FOR COMPARISON
  2059	031545	205 07 0 00 000600 		MOVSI	AC,600		;SETUP AC
  2060	031546	205 10 0 00 000400 		MOVSI	AC+1,400	;SETUP BR
  2061	031547	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2062	031550	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=500000000
  2063	031551	003 07 0 00 016501 		ER3	AC,16501
  2064	031552	321 11 0 00 031544 		JUMPL	AC+2,O16500	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 16
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0063

  2065
  2066					;AR=377000000000
  2067					;BR=377600000000
  2068					;FAILURE RESULTS IN A SUM
  2069					;=000700000000
  2070
  2071			000014			AC=14
  2072						SAVEAC	(1,1)^
  2073	031553	201 16 0 00 031553 		MOVEI	AC+2,.
  2074	031554	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2075	031555	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2076	031556	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2077
  2078	031557	205 12 0 00 000700 	O16600:	MOVSI	AC-2,700	;SETUP FOR COMPARISON
  2079	031560	205 14 0 00 377000 		MOVSI	AC,377000	;SETUP AC
  2080	031561	205 15 0 00 377600 		MOVSI	AC+1,377600	;SETUP BR
  2081	031562	140 14 0 00 000015 		FAD	AC,AC+1		;ADD C(AC), C(E)
  2082	031563	316 14 0 00 000012 		CAMN	AC,AC-2		;TEST SUM=000700000000
  2083	031564	003 14 0 00 016601 		ER3	AC,16601
  2084	031565	321 16 0 00 031557 		JUMPL	AC+2,O16600	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 17
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0064

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

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

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

  2220					;TEST ABILITY TO BRING UP PULSE
  2221					;AR=200400000000
  2222					;BR=205400000000
  2223					;FAILURE RESULTS IN LOSS OF SMALLER
  2224					;EXPONENT. EXCESSIVE SHIFT CONDITION
  2225					;RESULTS IN NO ADD AND STORING THE LARGER
  2226					;FAILURE RESULTS IN A SUM=205400000000
  2227
  2228			000014			AC=14
  2229						SAVEAC	(1,1)^
  2230	031673	201 16 0 00 031673 		MOVEI	AC+2,.
  2231	031674	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2232	031675	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2233	031676	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2234
  2235	031677	205 14 0 00 200400 	O17500:	MOVSI	AC,200400	;SETUP AC
  2236	031700	205 15 0 00 205400 		MOVSI	AC+1,205400	;SETUP BR
  2237	031701	140 14 0 00 000015 		FAD	AC,AC+1		;C(AC)+C(E)
  2238	031702	316 14 0 00 000015 		CAMN	AC,AC+1		;TEST SUM=205400000000
  2239	031703	003 14 0 00 017501 		ER3	AC,17501
  2240	031704	321 16 0 00 031677 		JUMPL	AC+2,O17500	;LOOP ON ERROR SWITCH
  2241					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 20-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0068

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

  2297	031735	321 15 0 00 031727 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2298
  2299			017604		SN=SN+1
  2300			010000			ZZ=ZZ+ZZ
  2301	031736	205 11 0 00 211400 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISION
  2302	031737	205 13 0 00 210400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2303	031740	205 14 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2304	031741	140 13 0 00 000014 		FAD	AC,AC+1		;C(AC)+C(E)
  2305	031742	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=AC EXP+1
  2306	031743	003 13 0 00 017604 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  2307	031744	321 15 0 00 031736 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2308
  2309			017605		SN=SN+1
  2310			020000			ZZ=ZZ+ZZ
  2311	031745	205 11 0 00 221400 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISION
  2312	031746	205 13 0 00 220400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2313	031747	205 14 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2314	031750	140 13 0 00 000014 		FAD	AC,AC+1		;C(AC)+C(E)
  2315	031751	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=AC EXP+1
  2316	031752	003 13 0 00 017605 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  2317	031753	321 15 0 00 031745 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2318
  2319			017606		SN=SN+1
  2320			040000			ZZ=ZZ+ZZ
  2321	031754	205 11 0 00 241400 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISION
  2322	031755	205 13 0 00 240400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2323	031756	205 14 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2324	031757	140 13 0 00 000014 		FAD	AC,AC+1		;C(AC)+C(E)
  2325	031760	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=AC EXP+1
  2326	031761	003 13 0 00 017606 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  2327	031762	321 15 0 00 031754 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2328
  2329			017607		SN=SN+1
  2330			100000			ZZ=ZZ+ZZ
  2331	031763	205 11 0 00 301400 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISION
  2332	031764	205 13 0 00 300400 		MOVSI	AC,200400+ZZ	;SETUP AC
  2333	031765	205 14 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2334	031766	140 13 0 00 000014 		FAD	AC,AC+1		;C(AC)+C(E)
  2335	031767	316 13 0 00 000011 		CAMN	AC,AC-2		;TEST EXP=AC EXP+1
  2336	031770	003 13 0 00 017607 		ER3	AC,SN		;BIT UNDER TEST FAILED TO SET
  2337	031771	321 15 0 00 031763 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  2338
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 21
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0070

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

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

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

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

  2513									;TEST AR4
  2514	032132	205 06 0 00 225400 	O21100:	MOVSI	AC-2,225400	;SETUP FOR COMPARISON
  2515	032133	205 10 0 00 220000 		MOVSI	AC,220000	;SETUP AC
  2516	032134	205 11 0 00 225000 		MOVSI	AC+1,225000	;SETUP BR
  2517	032135	140 10 0 00 000011 		FAD	AC,AC+1		;C(AC)+C(E)
  2518	032136	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST SUM=225400000000
  2519	032137	003 10 0 00 021101 		ER3	AC,21101	;AR4 FAILED TO CLEAR
  2520	032140	321 12 0 00 032132 		JUMPL	AC+2,O21100	;LOOP ON ERROR SWITCH
  2521
  2522									;TEST AR3
  2523	032141	205 06 0 00 246400 	O21200:	MOVSI	AC-2,246400	;SETUP FOR COMPARISON
  2524	032142	205 10 0 00 240000 		MOVSI	AC,240000	;SETUP AC
  2525	032143	205 11 0 00 246000 		MOVSI	AC+1,246000	;SETUP BR
  2526	032144	140 10 0 00 000011 		FAD	AC,AC+1		;C(AC)+C(E)
  2527	032145	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST SUM=246400000000
  2528	032146	003 10 0 00 021201 		ER3	AC,21201	;AR3 FAILED TO CLEAR
  2529	032147	321 12 0 00 032141 		JUMPL	AC+2,O21200	;LOOP ON ERROR SWITCH
  2530
  2531									;TEST AR2
  2532	032150	205 06 0 00 307400 	O21300:	MOVSI	AC-2,307400	;SETUP FOR COMPARISON
  2533	032151	205 10 0 00 300000 		MOVSI	AC,300000	;SETUP AC
  2534	032152	205 11 0 00 307000 		MOVSI	AC+1,307000	;SETUP BR
  2535	032153	140 10 0 00 000011 		FAD	AC,AC+1		;C(AC)+C(E)
  2536	032154	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST SUM=307400000000
  2537	032155	003 10 0 00 021301 		ER3	AC,21301	;AR2 FAILED TO CLEAR
  2538	032156	321 12 0 00 032150 		JUMPL	AC+2,O21300	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 26
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0075

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

  2585									;TEST AR4 (1)
  2586	032217	205 05 0 00 573370 	O22000:	MOVSI	AC-2,573370	;SETUP FOR COMPARISON
  2587	032220	205 07 0 00 204000 		MOVSI	AC,204000	;SETUP AC
  2588	032221	205 10 0 00 600400 		MOVSI	AC+1,600400	;SETUP BR
  2589	032222	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2590	032223	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=573370000000
  2591	032224	003 07 0 00 022001 		ER3	AC,22001	;AR4 FAILED TO SET
  2592	032225	321 11 0 00 032217 		JUMPL	AC+2,O22000	;LOOP ON ERROR SWITCH
  2593
  2594									;TEST AR3(1)
  2595	032226	205 05 0 00 572374 	O22100:	MOVSI	AC-2,572374	;SETUP FOR COMPARISON
  2596	032227	205 07 0 00 205000 		MOVSI	AC,205000	;SETUP AC
  2597	032230	205 10 0 00 600400 		MOVSI	AC+1,600400	;SETUP BR
  2598	032231	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2599	032232	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=572374000000
  2600	032233	003 07 0 00 022101 		ER3	AC,22101	;AR3 FAILED TO SET
  2601	032234	321 11 0 00 032226 		JUMPL	AC+2,O22100	;LOOP ON ERROR SWITCH
  2602
  2603									;TEST AR2(1)
  2604	032235	205 05 0 00 571376 	O22200:	MOVSI	AC-2,571376	;SETUP FOR COMPARISON
  2605	032236	205 07 0 00 206000 		MOVSI	AC,206000	;SETUP AC
  2606	032237	205 10 0 00 600400 		MOVSI	AC+1,600400	;SETUP BR
  2607	032240	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2608	032241	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=571376000000
  2609	032242	003 07 0 00 022201 		ER3	AC,22201	;AR2 FAILED TO SET
  2610	032243	321 11 0 00 032235 		JUMPL	AC+2,O22200	;LOOP ON ERROR SWITCH
  2611
  2612									;TEST AR1(1)
  2613	032244	205 05 0 00 570377 	O22300:	MOVSI	AC-2,570377	;SETUP FOR COMPARISON
  2614	032245	205 07 0 00 207000 		MOVSI	AC,207000	;SETUP AC
  2615	032246	205 10 0 00 600400 		MOVSI	AC+1,600400	;SETUP BR
  2616	032247	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2617	032250	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=570377000000
  2618	032251	003 07 0 00 022301 		ER3	AC,22301	;AR1 FAILED TO SET
  2619	032252	321 11 0 00 032244 		JUMPL	AC+2,O22300	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 28
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0077

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

  2662					;AR=200400000000
  2663					;BR=600400000000
  2664					;FAILURE RESULTS IN AN NR ALL ZERO COND.
  2665					;FAILURE RESULTS IN A SUM=0
  2666
  2667			000014			AC=14
  2668						SAVEAC	(1,1)^
  2669	032301	201 16 0 00 032301 		MOVEI	AC+2,.
  2670	032302	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2671	032303	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2672	032304	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2673
  2674	032305	205 14 0 00 200400 	O22600:	MOVSI	AC,200400	;SETUP AC
  2675	032306	205 15 0 00 600400 		MOVSI	AC+1,600400	;SETUP BR
  2676	032307	140 14 0 00 000015 		FAD	AC,AC+1		;C(AC)+C(E)
  2677	032310	336 00 0 00 000014 		SKIPN	AC		;SETUP SUM=0
  2678	032311	003 14 0 00 022601 		ER3	AC,22601	;SC COMP SETUP FAILED
  2679	032312	321 16 0 00 032305 		JUMPL	AC+2,O22600	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 29
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0079

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

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

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

  2808					;AR=576400000000 (-1)
  2809					;BR=200400000000 (+1/2)
  2810					;CORRECT SUM=577400000000 (-1/2)
  2811					;ERROR SUM=177400000000
  2812
  2813			000007			AC=7
  2814						SAVEAC	(1,1)^
  2815	032415	201 11 0 00 032415 		MOVEI	AC+2,.
  2816	032416	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2817	032417	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2818	032420	202 11 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2819
  2820	032421	205 05 0 00 177400 	O23500:	MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  2821	032422	205 07 0 00 576400 		MOVSI	AC,576400	;SETUP AC
  2822	032423	205 10 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2823	032424	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2824	032425	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=177400000000
  2825	032426	003 07 0 00 023501 		ER3	AC,23501
  2826	032427	321 11 0 00 032421 		JUMPL	AC+2,O23500	;LOOP ON ERROR SWITCH
  2827
  2828					;AR=200440000000
  2829					;BR=200400000000
  2830					;CORRECT SUM=201400000000
  2831					;ERROR SUM=570000000000
  2832
  2833			000010			AC=10
  2834						SAVEAC	(1,1)^
  2835	032430	201 12 0 00 032430 		MOVEI	AC+2,.
  2836	032431	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2837	032432	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2838	032433	202 12 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2839
  2840	032434	205 06 0 00 175400 	O23600:	MOVSI	AC-2,175400	;SETUP FOR COMPARISON
  2841	032435	205 10 0 00 200440 		MOVSI	AC,200440	;SETUP AC
  2842	032436	205 11 0 00 200400 		MOVSI	AC+1,200400	;SETUP BR
  2843	032437	140 10 0 00 000011 		FAD	AC,AC+1		;C(AC)+C(E)
  2844	032440	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST SUM=175400000000
  2845	032441	003 10 0 00 023601 		ER3	AC,23601
  2846	032442	321 12 0 00 032434 		JUMPL	AC+2,O23600	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 33
DSKCA1	MAC	29-Mar-78 10:59		PART I.B-FAD AND NORM RET                                                          SEQ 0083

  2847					;TEST ABILITY TO BRING UP NRT10
  2848					;AR=577400000000 (-1/2)
  2849					;BR=577400000000 (-1/2)
  2850					;CORRECT SUM=576400000000 (-1)
  2851					;ERROR SUM=577000000000
  2852
  2853			000007			AC=7
  2854						SAVEAC	(1,1)^
  2855	032443	201 11 0 00 032443 		MOVEI	AC+2,.
  2856	032444	202 11 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2857	032445	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2858	032446	202 11 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2859
  2860	032447	205 05 0 00 577000 	O23700:	MOVSI	AC-2,577000	;SETUP FOR COMPARISON
  2861	032450	205 07 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  2862	032451	205 10 0 00 577400 		MOVSI	AC+1,577400	;SETUP BR
  2863	032452	140 07 0 00 000010 		FAD	AC,AC+1		;C(AC)+C(E)
  2864	032453	316 07 0 00 000005 		CAMN	AC,AC-2		;TEST SUM=577000000000
  2865	032454	003 07 0 00 023701 		ER3	AC,23701
  2866	032455	321 11 0 00 032447 		JUMPL	AC+2,O23700	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 34
DSKCA1	MAC	29-Mar-78 10:59		PART I.C-FAD (NORM RET, ROUNDING)                                                  SEQ 0084

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

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

  2966					;TEST FADR
  2967					;SINGLE PRECISION FLOATING NORMALIZATION
  2968					;RENORMALIZATION IS FORCED DUE TO THE ROUNDING OF THE
  2969					;OPERAND OVERFLOWING THE MANTISSA.
  2970
  2971			000010			AC=10
  2972						SAVEAC	(1,1)^
  2973	032537	201 12 0 00 032537 		MOVEI	AC+2,.
  2974	032540	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  2975	032541	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2976	032542	202 12 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2977
  2978	032543	525 10 0 00 000777 	SPFNRN:	HRLOI	AC,777		;FRACTION ALL ONES
  2979	032544	200 06 0 00 036647 		MOVE	AC-2,[034400,,0]
  2980
  2981	032545	144 10 0 00 036650 		FADR	AC,[033777,,-1]	;DURING ROUNDING WILL REQ RENORM
  2982
  2983	032546	312 10 0 00 000006 		CAME	AC,AC-2		;WORD GET RENORMED OK ?
  2984	032547	003 10 0 00 027010 		ER3	AC,27010	;NO
  2985
  2986	032550	321 12 0 00 032543 		JUMPL	AC+2,SPFNRN	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 37
DSKCA1	MAC	29-Mar-78 10:59		PART I.D-FSB                                                                       SEQ 0087

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

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

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

  3125					;AR=200400000000(1/2)
  3126					;BR=177400000000(1/4)
  3127					;FAILURE RESULTS IN ADDING TWO
  3128					;TO THE DIFFERENCE
  3129					;CORRECT DIFF=177400000000
  3130					;ERROR DIFF=177400000002
  3131
  3132			000010			AC=10
  3133						SAVEAC	(1,1)^
  3134	032656	201 12 0 00 032656 		MOVEI	AC+2,.
  3135	032657	202 12 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3136	032660	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3137	032661	202 12 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3138
  3139	032662	541 06 0 00 000002 	O27700:	HRRI	AC-2,2		;SETUP AC-2
  3140	032663	505 06 0 00 177400 		HRLI	AC-2,177400	;FOR COMPARISON
  3141	032664	205 10 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  3142	032665	205 11 0 00 177400 		MOVSI	AC+1,177400	;SETUP BR
  3143	032666	150 10 0 00 000011 		FSB	AC,AC+1		;C(AC)-C(E)
  3144	032667	316 10 0 00 000006 		CAMN	AC,AC-2		;TEST DIFF=177400000002
  3145	032670	003 10 0 00 027701 		ER3	AC,27701
  3146	032671	321 12 0 00 032662 		JUMPL	AC+2,O27700	;LOOP ON ERROR SWITCH
  3147
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 41
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0091

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

  3203			030503		SN=SN+1
  3204			004000			XX=XX+XX
  3205			000004			ZZ=ZZ+ZZ
  3206						IFE	ZZ,<ZZ=1>
  3207	032712	205 12 0 00 004400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3208	032713	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3209	032714	132 14 0 00 000004 		FSC	AC,ZZ		;RESCALE
  3210	032715	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3211	032716	003 14 0 00 030503 		ER3	AC,SN		;FSC FAILED
  3212	032717	321 16 0 00 032712 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3213
  3214			030504		SN=SN+1
  3215			010000			XX=XX+XX
  3216			000010			ZZ=ZZ+ZZ
  3217						IFE	ZZ,<ZZ=1>
  3218	032720	205 12 0 00 010400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3219	032721	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3220	032722	132 14 0 00 000010 		FSC	AC,ZZ		;RESCALE
  3221	032723	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3222	032724	003 14 0 00 030504 		ER3	AC,SN		;FSC FAILED
  3223	032725	321 16 0 00 032720 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3224
  3225			030505		SN=SN+1
  3226			020000			XX=XX+XX
  3227			000020			ZZ=ZZ+ZZ
  3228						IFE	ZZ,<ZZ=1>
  3229	032726	205 12 0 00 020400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3230	032727	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3231	032730	132 14 0 00 000020 		FSC	AC,ZZ		;RESCALE
  3232	032731	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3233	032732	003 14 0 00 030505 		ER3	AC,SN		;FSC FAILED
  3234	032733	321 16 0 00 032726 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3235
  3236			030506		SN=SN+1
  3237			040000			XX=XX+XX
  3238			000040			ZZ=ZZ+ZZ
  3239						IFE	ZZ,<ZZ=1>
  3240	032734	205 12 0 00 040400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3241	032735	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3242	032736	132 14 0 00 000040 		FSC	AC,ZZ		;RESCALE
  3243	032737	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3244	032740	003 14 0 00 030506 		ER3	AC,SN		;FSC FAILED
  3245	032741	321 16 0 00 032734 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3246
  3247			030507		SN=SN+1
  3248			100000			XX=XX+XX
  3249			000100			ZZ=ZZ+ZZ
  3250						IFE	ZZ,<ZZ=1>
  3251	032742	205 12 0 00 100400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3252	032743	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3253	032744	132 14 0 00 000100 		FSC	AC,ZZ		;RESCALE
  3254	032745	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3255	032746	003 14 0 00 030507 		ER3	AC,SN		;FSC FAILED
  3256	032747	321 16 0 00 032742 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3257
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 41-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0093

  3258			030510		SN=SN+1
  3259			200000			XX=XX+XX
  3260			000200			ZZ=ZZ+ZZ
  3261						IFE	ZZ,<ZZ=1>
  3262	032750	205 12 0 00 200400 		MOVSI	AC-2,400+XX	;SETUP FOR COMPARISON
  3263	032751	205 14 0 00 000400 		MOVSI	AC,400		;SETUP AC
  3264	032752	132 14 0 00 000200 		FSC	AC,ZZ		;RESCALE
  3265	032753	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3266	032754	003 14 0 00 030510 		ER3	AC,SN		;FSC FAILED
  3267	032755	321 16 0 00 032750 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3268
  3269					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 41-3
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0094

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

  3325	033003	321 16 0 00 032776 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3326
  3327			030604		SN=SN+1
  3328			010000			ZZ=ZZ+ZZ
  3329			011000			XX=ZZ+1000
  3330	033004	205 12 0 00 211400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  3331	033005	205 14 0 00 210400 		MOVSI	AC,200400+ZZ	;SETUP AC
  3332	033006	132 14 0 00 000001 		FSC	AC,1		;RESCALE
  3333	033007	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3334	033010	003 14 0 00 030604 		ER3	AC,SN		;FSC FAILED
  3335	033011	321 16 0 00 033004 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3336
  3337			030605		SN=SN+1
  3338			020000			ZZ=ZZ+ZZ
  3339			021000			XX=ZZ+1000
  3340	033012	205 12 0 00 221400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  3341	033013	205 14 0 00 220400 		MOVSI	AC,200400+ZZ	;SETUP AC
  3342	033014	132 14 0 00 000001 		FSC	AC,1		;RESCALE
  3343	033015	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3344	033016	003 14 0 00 030605 		ER3	AC,SN		;FSC FAILED
  3345	033017	321 16 0 00 033012 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3346
  3347			030606		SN=SN+1
  3348			040000			ZZ=ZZ+ZZ
  3349			041000			XX=ZZ+1000
  3350	033020	205 12 0 00 241400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  3351	033021	205 14 0 00 240400 		MOVSI	AC,200400+ZZ	;SETUP AC
  3352	033022	132 14 0 00 000001 		FSC	AC,1		;RESCALE
  3353	033023	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3354	033024	003 14 0 00 030606 		ER3	AC,SN		;FSC FAILED
  3355	033025	321 16 0 00 033020 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3356
  3357			030607		SN=SN+1
  3358			100000			ZZ=ZZ+ZZ
  3359			101000			XX=ZZ+1000
  3360	033026	205 12 0 00 301400 		MOVSI	AC-2,200400+XX	;SETUP FOR COMPARISON
  3361	033027	205 14 0 00 300400 		MOVSI	AC,200400+ZZ	;SETUP AC
  3362	033030	132 14 0 00 000001 		FSC	AC,1		;RESCALE
  3363	033031	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  3364	033032	003 14 0 00 030607 		ER3	AC,SN		;FSC FAILED
  3365	033033	321 16 0 00 033026 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3366
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 42
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0096

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

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

  3477	033106	132 13 0 00 000100 		FSC	AC,XX		;RESCALE
  3478	033107	312 13 0 00 000011 		CAME	AC,AC-2		;TEST RESULT
  3479	033110	003 13 0 00 030707 		ER3	AC,SN		;FSC FAILED
  3480	033111	321 15 0 00 033104 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3481
  3482			030710		SN=SN+1
  3483			000200			XX=XX+XX
  3484			577000			ZZ=ZZ-WW
  3485			200000			WW=WW+WW
  3486						IFE	XX,<XX=1>
  3487	033112	205 11 0 00 577400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3488	033113	205 13 0 00 777400 		MOVSI	AC,777400	;SETUP AC
  3489	033114	132 13 0 00 000200 		FSC	AC,XX		;RESCALE
  3490	033115	312 13 0 00 000011 		CAME	AC,AC-2		;TEST RESULT
  3491	033116	003 13 0 00 030710 		ER3	AC,SN		;FSC FAILED
  3492	033117	321 15 0 00 033112 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3493
  3494					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 42-3
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0099

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

  3550	033144	003 12 0 00 031003 		ER3	AC,SN		;FSC FAILED
  3551	033145	321 14 0 00 033140 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3552
  3553			031004		SN=SN+1
  3554		777777	777774			XX=XX-1
  3555			603000			ZZ=ZZ+1000
  3556	033146	205 10 0 00 603400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3557	033147	205 12 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  3558	033150	132 12 0 00 777774 		FSC	AC,XX		;RESCALE
  3559	033151	312 12 0 00 000010 		CAME	AC,AC-2		;TEST RESULT
  3560	033152	003 12 0 00 031004 		ER3	AC,SN		;FSC FAILED
  3561	033153	321 14 0 00 033146 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3562
  3563			031005		SN=SN+1
  3564		777777	777773			XX=XX-1
  3565			604000			ZZ=ZZ+1000
  3566	033154	205 10 0 00 604400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3567	033155	205 12 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  3568	033156	132 12 0 00 777773 		FSC	AC,XX		;RESCALE
  3569	033157	312 12 0 00 000010 		CAME	AC,AC-2		;TEST RESULT
  3570	033160	003 12 0 00 031005 		ER3	AC,SN		;FSC FAILED
  3571	033161	321 14 0 00 033154 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3572
  3573			031006		SN=SN+1
  3574		777777	777772			XX=XX-1
  3575			605000			ZZ=ZZ+1000
  3576	033162	205 10 0 00 605400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3577	033163	205 12 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  3578	033164	132 12 0 00 777772 		FSC	AC,XX		;RESCALE
  3579	033165	312 12 0 00 000010 		CAME	AC,AC-2		;TEST RESULT
  3580	033166	003 12 0 00 031006 		ER3	AC,SN		;FSC FAILED
  3581	033167	321 14 0 00 033162 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3582
  3583			031007		SN=SN+1
  3584		777777	777771			XX=XX-1
  3585			606000			ZZ=ZZ+1000
  3586	033170	205 10 0 00 606400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3587	033171	205 12 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  3588	033172	132 12 0 00 777771 		FSC	AC,XX		;RESCALE
  3589	033173	312 12 0 00 000010 		CAME	AC,AC-2		;TEST RESULT
  3590	033174	003 12 0 00 031007 		ER3	AC,SN		;FSC FAILED
  3591	033175	321 14 0 00 033170 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3592
  3593			031010		SN=SN+1
  3594		777777	777770			XX=XX-1
  3595			607000			ZZ=ZZ+1000
  3596	033176	205 10 0 00 607400 		MOVSI	AC-2,400+ZZ	;SETUP FOR COMPARISON
  3597	033177	205 12 0 00 577400 		MOVSI	AC,577400	;SETUP AC
  3598	033200	132 12 0 00 777770 		FSC	AC,XX		;RESCALE
  3599	033201	312 12 0 00 000010 		CAME	AC,AC-2		;TEST RESULT
  3600	033202	003 12 0 00 031010 		ER3	AC,SN		;FSC FAILED
  3601	033203	321 14 0 00 033176 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3602
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 43
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0101

  3603					;TEST FSC
  3604					;NR ALL ZERO CONDITION
  3605					;AR=200000000000
  3606					;SCALE=1,2,4
  3607					;RESULTANT AC=0
  3608
  3609			000011			AC=11
  3610						SAVEAC	(1,1)^
  3611	033204	201 13 0 00 033204 		MOVEI	AC+2,.
  3612	033205	202 13 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  3613	033206	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  3614	033207	202 13 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  3615
  3616			031100		SN=31100
  3617			000000			ZZ=0
  3618
  3619					O31100:	REPEAT	^D3,		;TEST FSC -ALL ZERO COND
  3620					<SN=SN+1
  3621						ZZ=ZZ+ZZ
  3622						IFE	ZZ,<ZZ=1>
  3623						MOVSI	AC,200000	;SETUP AC
  3624						FSC	AC,ZZ		;RESCALE
  3625						SKIPE	AC		;TEST AC=0
  3626						ER3	AC,SN		;FSC -NR ALL ZERO FAILED
  3627						JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  3628					>
  3629			031101		SN=SN+1
  3630			000000			ZZ=ZZ+ZZ
  3631			000001			IFE	ZZ,<ZZ=1>
  3632	033210	205 11 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  3633	033211	132 11 0 00 000001 		FSC	AC,ZZ		;RESCALE
  3634	033212	332 00 0 00 000011 		SKIPE	AC		;TEST AC=0
  3635	033213	003 11 0 00 031101 		ER3	AC,SN		;FSC -NR ALL ZERO FAILED
  3636	033214	321 13 0 00 033210 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  3637
  3638			031102		SN=SN+1
  3639			000002			ZZ=ZZ+ZZ
  3640						IFE	ZZ,<ZZ=1>
  3641	033215	205 11 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  3642	033216	132 11 0 00 000002 		FSC	AC,ZZ		;RESCALE
  3643	033217	332 00 0 00 000011 		SKIPE	AC		;TEST AC=0
  3644	033220	003 11 0 00 031102 		ER3	AC,SN		;FSC -NR ALL ZERO FAILED
  3645	033221	321 13 0 00 033215 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  3646
  3647			031103		SN=SN+1
  3648			000004			ZZ=ZZ+ZZ
  3649						IFE	ZZ,<ZZ=1>
  3650	033222	205 11 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  3651	033223	132 11 0 00 000004 		FSC	AC,ZZ		;RESCALE
  3652	033224	332 00 0 00 000011 		SKIPE	AC		;TEST AC=0
  3653	033225	003 11 0 00 031103 		ER3	AC,SN		;FSC -NR ALL ZERO FAILED
  3654	033226	321 13 0 00 033222 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  3655
  3656					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 43-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0102

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

  3712	033253	003 10 0 00 031203 		ER3	AC,SN		;FSC NRSHRT FAILED
  3713	033254	321 12 0 00 033247 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3714
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 44
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0104

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

  3770	033301	003 07 0 00 031303 		ER3	AC,SN		;FSC-NR NORMAL FAILED
  3771	033302	321 11 0 00 033275 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3772
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 45
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0106

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

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

  3883			031500		SN=31500
  3884			000000			ZZ=0
  3885					O31500:	REPEAT	^D18,		;TEST BITS 18-35(1)
  3886					<SN=SN+1
  3887						ZZ=ZZ/2
  3888						IFE	ZZ,<ZZ=400000>
  3889						HRLI	AC-2,400000	;SETUP AC-2
  3890						HRRI	AC-2,ZZ		;FOR COMPARISON
  3891						HRLI	AC,400000	;SETUP
  3892						HRRI	AC,ZZ		;AC
  3893						FSC	AC,		;RESCALE
  3894						CAME	AC,AC-2		;TEST RESULT
  3895						ER3	AC,SN		;NRSHRT ASSERTED
  3896						JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  3897					>
  3898			031501		SN=SN+1
  3899			000000			ZZ=ZZ/2
  3900			400000			IFE	ZZ,<ZZ=400000>
  3901	033375	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  3902	033376	541 04 0 00 400000 		HRRI	AC-2,ZZ		;FOR COMPARISON
  3903	033377	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  3904	033400	541 06 0 00 400000 		HRRI	AC,ZZ		;AC
  3905	033401	132 06 0 00 000000 		FSC	AC,		;RESCALE
  3906	033402	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  3907	033403	003 06 0 00 031501 		ER3	AC,SN		;NRSHRT ASSERTED
  3908	033404	321 10 0 00 033375 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  3909
  3910			031502		SN=SN+1
  3911			200000			ZZ=ZZ/2
  3912						IFE	ZZ,<ZZ=400000>
  3913	033405	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  3914	033406	541 04 0 00 200000 		HRRI	AC-2,ZZ		;FOR COMPARISON
  3915	033407	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  3916	033410	541 06 0 00 200000 		HRRI	AC,ZZ		;AC
  3917	033411	132 06 0 00 000000 		FSC	AC,		;RESCALE
  3918	033412	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  3919	033413	003 06 0 00 031502 		ER3	AC,SN		;NRSHRT ASSERTED
  3920	033414	321 10 0 00 033405 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  3921
  3922			031503		SN=SN+1
  3923			100000			ZZ=ZZ/2
  3924						IFE	ZZ,<ZZ=400000>
  3925	033415	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  3926	033416	541 04 0 00 100000 		HRRI	AC-2,ZZ		;FOR COMPARISON
  3927	033417	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  3928	033420	541 06 0 00 100000 		HRRI	AC,ZZ		;AC
  3929	033421	132 06 0 00 000000 		FSC	AC,		;RESCALE
  3930	033422	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  3931	033423	003 06 0 00 031503 		ER3	AC,SN		;NRSHRT ASSERTED
  3932	033424	321 10 0 00 033415 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  3933
  3934			031504		SN=SN+1
  3935			040000			ZZ=ZZ/2
  3936						IFE	ZZ,<ZZ=400000>
  3937	033425	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 45-3
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0109

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

  3993
  3994			031511		SN=SN+1
  3995			001000			ZZ=ZZ/2
  3996						IFE	ZZ,<ZZ=400000>
  3997	033475	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  3998	033476	541 04 0 00 001000 		HRRI	AC-2,ZZ		;FOR COMPARISON
  3999	033477	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  4000	033500	541 06 0 00 001000 		HRRI	AC,ZZ		;AC
  4001	033501	132 06 0 00 000000 		FSC	AC,		;RESCALE
  4002	033502	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  4003	033503	003 06 0 00 031511 		ER3	AC,SN		;NRSHRT ASSERTED
  4004	033504	321 10 0 00 033475 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  4005
  4006			031512		SN=SN+1
  4007			000400			ZZ=ZZ/2
  4008						IFE	ZZ,<ZZ=400000>
  4009	033505	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  4010	033506	541 04 0 00 000400 		HRRI	AC-2,ZZ		;FOR COMPARISON
  4011	033507	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  4012	033510	541 06 0 00 000400 		HRRI	AC,ZZ		;AC
  4013	033511	132 06 0 00 000000 		FSC	AC,		;RESCALE
  4014	033512	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  4015	033513	003 06 0 00 031512 		ER3	AC,SN		;NRSHRT ASSERTED
  4016	033514	321 10 0 00 033505 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  4017
  4018			031513		SN=SN+1
  4019			000200			ZZ=ZZ/2
  4020						IFE	ZZ,<ZZ=400000>
  4021	033515	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  4022	033516	541 04 0 00 000200 		HRRI	AC-2,ZZ		;FOR COMPARISON
  4023	033517	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  4024	033520	541 06 0 00 000200 		HRRI	AC,ZZ		;AC
  4025	033521	132 06 0 00 000000 		FSC	AC,		;RESCALE
  4026	033522	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  4027	033523	003 06 0 00 031513 		ER3	AC,SN		;NRSHRT ASSERTED
  4028	033524	321 10 0 00 033515 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  4029
  4030			031514		SN=SN+1
  4031			000100			ZZ=ZZ/2
  4032						IFE	ZZ,<ZZ=400000>
  4033	033525	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  4034	033526	541 04 0 00 000100 		HRRI	AC-2,ZZ		;FOR COMPARISON
  4035	033527	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  4036	033530	541 06 0 00 000100 		HRRI	AC,ZZ		;AC
  4037	033531	132 06 0 00 000000 		FSC	AC,		;RESCALE
  4038	033532	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  4039	033533	003 06 0 00 031514 		ER3	AC,SN		;NRSHRT ASSERTED
  4040	033534	321 10 0 00 033525 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  4041
  4042			031515		SN=SN+1
  4043			000040			ZZ=ZZ/2
  4044						IFE	ZZ,<ZZ=400000>
  4045	033535	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  4046	033536	541 04 0 00 000040 		HRRI	AC-2,ZZ		;FOR COMPARISON
  4047	033537	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 45-5
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0111

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

  4103			000001			ZZ=ZZ/2
  4104						IFE	ZZ,<ZZ=400000>
  4105	033605	505 04 0 00 400000 		HRLI	AC-2,400000	;SETUP AC-2
  4106	033606	541 04 0 00 000001 		HRRI	AC-2,ZZ		;FOR COMPARISON
  4107	033607	505 06 0 00 400000 		HRLI	AC,400000	;SETUP
  4108	033610	541 06 0 00 000001 		HRRI	AC,ZZ		;AC
  4109	033611	132 06 0 00 000000 		FSC	AC,		;RESCALE
  4110	033612	312 06 0 00 000004 		CAME	AC,AC-2		;TEST RESULT
  4111	033613	003 06 0 00 031522 		ER3	AC,SN		;NRSHRT ASSERTED
  4112	033614	321 10 0 00 033605 		JUMPL	AC+2,.-7	;LOOP ON ERROR SWITCH
  4113
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 46
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0113

  4114					;TEST FAD
  4115					;TEST TWO POSITIVES
  4116					;AR=200200,ZZ (UNNORMALIZED)
  4117					;BR=200200,ZZ (UNNORMALIZED)
  4118					;SUM=200400,ZZ+ZZ
  4119
  4120			000014			AC=14
  4121						SAVEAC	(1,1)^
  4122	033615	201 16 0 00 033615 		MOVEI	AC+2,.
  4123	033616	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  4124	033617	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4125	033620	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4126
  4127			031600		SN=31600
  4128			000001			XX=1
  4129			000000			ZZ=0
  4130
  4131					O31600:	REPEAT	^D10,		;TEST FAD
  4132					<SN=SN+1
  4133						XX=XX+XX
  4134						ZZ=ZZ+ZZ
  4135						IFE	ZZ,<ZZ=1>
  4136						HRLI	AC-2,200400	;SETUP AC-2
  4137						HRRI	AC-2,XX		;FOR COMPARISON
  4138						HRLI	AC,200200	;SETUP
  4139						HRRI	AC,ZZ		;AC
  4140						MOVEM	AC,AC-1		;SETUP BR
  4141						FAD	AC,AC-1		;C(AC)+C(E)
  4142						CAME	AC,AC-2		;TEST SUM
  4143						ER3	AC,SN		;FAD FAILED
  4144						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4145					>
  4146			031601		SN=SN+1
  4147			000002			XX=XX+XX
  4148			000000			ZZ=ZZ+ZZ
  4149			000001			IFE	ZZ,<ZZ=1>
  4150	033621	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4151	033622	541 12 0 00 000002 		HRRI	AC-2,XX		;FOR COMPARISON
  4152	033623	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4153	033624	541 14 0 00 000001 		HRRI	AC,ZZ		;AC
  4154	033625	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
  4155	033626	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4156	033627	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4157	033630	003 14 0 00 031601 		ER3	AC,SN		;FAD FAILED
  4158	033631	321 16 0 00 033621 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4159
  4160			031602		SN=SN+1
  4161			000004			XX=XX+XX
  4162			000002			ZZ=ZZ+ZZ
  4163						IFE	ZZ,<ZZ=1>
  4164	033632	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4165	033633	541 12 0 00 000004 		HRRI	AC-2,XX		;FOR COMPARISON
  4166	033634	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4167	033635	541 14 0 00 000002 		HRRI	AC,ZZ		;AC
  4168	033636	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 46-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0114

  4169	033637	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4170	033640	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4171	033641	003 14 0 00 031602 		ER3	AC,SN		;FAD FAILED
  4172	033642	321 16 0 00 033632 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4173
  4174			031603		SN=SN+1
  4175			000010			XX=XX+XX
  4176			000004			ZZ=ZZ+ZZ
  4177						IFE	ZZ,<ZZ=1>
  4178	033643	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4179	033644	541 12 0 00 000010 		HRRI	AC-2,XX		;FOR COMPARISON
  4180	033645	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4181	033646	541 14 0 00 000004 		HRRI	AC,ZZ		;AC
  4182	033647	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
  4183	033650	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4184	033651	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4185	033652	003 14 0 00 031603 		ER3	AC,SN		;FAD FAILED
  4186	033653	321 16 0 00 033643 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4187
  4188			031604		SN=SN+1
  4189			000020			XX=XX+XX
  4190			000010			ZZ=ZZ+ZZ
  4191						IFE	ZZ,<ZZ=1>
  4192	033654	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4193	033655	541 12 0 00 000020 		HRRI	AC-2,XX		;FOR COMPARISON
  4194	033656	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4195	033657	541 14 0 00 000010 		HRRI	AC,ZZ		;AC
  4196	033660	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
  4197	033661	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4198	033662	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4199	033663	003 14 0 00 031604 		ER3	AC,SN		;FAD FAILED
  4200	033664	321 16 0 00 033654 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4201
  4202			031605		SN=SN+1
  4203			000040			XX=XX+XX
  4204			000020			ZZ=ZZ+ZZ
  4205						IFE	ZZ,<ZZ=1>
  4206	033665	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4207	033666	541 12 0 00 000040 		HRRI	AC-2,XX		;FOR COMPARISON
  4208	033667	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4209	033670	541 14 0 00 000020 		HRRI	AC,ZZ		;AC
  4210	033671	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
  4211	033672	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4212	033673	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4213	033674	003 14 0 00 031605 		ER3	AC,SN		;FAD FAILED
  4214	033675	321 16 0 00 033665 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4215
  4216			031606		SN=SN+1
  4217			000100			XX=XX+XX
  4218			000040			ZZ=ZZ+ZZ
  4219						IFE	ZZ,<ZZ=1>
  4220	033676	505 12 0 00 200400 		HRLI	AC-2,200400	;SETUP AC-2
  4221	033677	541 12 0 00 000100 		HRRI	AC-2,XX		;FOR COMPARISON
  4222	033700	505 14 0 00 200200 		HRLI	AC,200200	;SETUP
  4223	033701	541 14 0 00 000040 		HRRI	AC,ZZ		;AC
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 46-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0115

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

  4279	033745	541 14 0 00 001000 		HRRI	AC,ZZ		;AC
  4280	033746	202 14 0 00 000013 		MOVEM	AC,AC-1		;SETUP BR
  4281	033747	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4282	033750	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4283	033751	003 14 0 00 031612 		ER3	AC,SN		;FAD FAILED
  4284	033752	321 16 0 00 033742 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4285
  4286					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 46-4
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0117

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

  4342	033776	205 14 0 00 174400 		MOVSI	AC,XX		;SETUP AC
  4343	033777	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  4344	034000	140 14 0 00 000013 		FAD	AC,AC-1		;C (AC)+C(E)
  4345	034001	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  4346	034002	003 14 0 00 031703 		ER3	AC,SN		;FAD FAILED
  4347	034003	321 16 0 00 033775 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4348
  4349			031704		SN=SN+1
  4350			175400			XX=XX+1000
  4351			000020			ZZ=ZZ+ZZ
  4352	034004	205 12 0 00 201420 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISON
  4353	034005	205 14 0 00 175400 		MOVSI	AC,XX		;SETUP AC
  4354	034006	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  4355	034007	140 14 0 00 000013 		FAD	AC,AC-1		;C (AC)+C(E)
  4356	034010	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  4357	034011	003 14 0 00 031704 		ER3	AC,SN		;FAD FAILED
  4358	034012	321 16 0 00 034004 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4359
  4360			031705		SN=SN+1
  4361			176400			XX=XX+1000
  4362			000040			ZZ=ZZ+ZZ
  4363	034013	205 12 0 00 201440 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISON
  4364	034014	205 14 0 00 176400 		MOVSI	AC,XX		;SETUP AC
  4365	034015	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  4366	034016	140 14 0 00 000013 		FAD	AC,AC-1		;C (AC)+C(E)
  4367	034017	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  4368	034020	003 14 0 00 031705 		ER3	AC,SN		;FAD FAILED
  4369	034021	321 16 0 00 034013 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4370
  4371			031706		SN=SN+1
  4372			177400			XX=XX+1000
  4373			000100			ZZ=ZZ+ZZ
  4374	034022	205 12 0 00 201500 		MOVSI	AC-2,201400+ZZ	;SETUP FOR COMPARISON
  4375	034023	205 14 0 00 177400 		MOVSI	AC,XX		;SETUP AC
  4376	034024	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  4377	034025	140 14 0 00 000013 		FAD	AC,AC-1		;C (AC)+C(E)
  4378	034026	312 14 0 00 000012 		CAME	AC,AC-2		;TEST RESULT
  4379	034027	003 14 0 00 031706 		ER3	AC,SN		;FAD FAILED
  4380	034030	321 16 0 00 034022 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4381
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 47
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0119

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

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

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

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

  4580	034160	205 06 0 00 203400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  4581	034161	205 10 0 00 202400 		MOVSI	AC,ZZ		;SETUP AC
  4582	034162	205 07 0 00 202400 		MOVSI	AC-1,ZZ		;SETUP BR
  4583	034163	140 10 0 00 000007 		FAD	AC,AC-1		;C(AC)+C(E)
  4584	034164	312 10 0 00 000006 		CAME	AC,AC-2		;TEST SUM
  4585	034165	003 10 0 00 032503 		ER3	AC,SN		;FAD FAILED
  4586	034166	321 12 0 00 034160 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4587
  4588					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 49-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0124

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

  4644	034212	205 07 0 00 200020 		MOVSI	AC,200000+ZZ	;SETUP AC
  4645	034213	205 06 0 00 200020 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  4646	034214	140 07 0 00 000006 		FAD	AC,AC-1		;C(AC)+C(E)
  4647	034215	312 07 0 00 000005 		CAME	AC,AC-2		;TEST SUM
  4648	034216	003 07 0 00 032603 		ER3	AC,SN		;FAD FAILED
  4649	034217	321 11 0 00 034211 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4650
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 50
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0126

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

  4706			032703		SN=SN+1
  4707			576340			XX=XX+WW
  4708			000020			WW=WW/2
  4709			601400			ZZ=ZZ+1000
  4710	034242	205 04 0 00 576340 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  4711	034243	205 06 0 00 601400 		MOVSI	AC,ZZ		;SETUP AC
  4712	034244	205 05 0 00 576400 		MOVSI	AC-1,576400	;SETUP BR
  4713	034245	140 06 0 00 000005 		FAD	AC,AC-1		;C(AC)+C(E)
  4714	034246	312 06 0 00 000004 		CAME	AC,AC-2		;TEST SUM
  4715	034247	003 06 0 00 032703 		ER3	AC,SN		;FAD FAILED
  4716	034250	321 10 0 00 034242 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4717
  4718					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 50-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0128

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

  4774
  4775			033003		SN=SN+1
  4776			576340			XX=XX+WW
  4777			000020			WW=WW/2
  4778			601400			ZZ=ZZ+1000
  4779	034273	205 12 0 00 576340 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  4780	034274	205 14 0 00 576400 		MOVSI	AC,576400	;SETUP AC
  4781	034275	205 13 0 00 601400 		MOVSI	AC-1,ZZ		;SETUP BR
  4782	034276	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4783	034277	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4784	034300	003 14 0 00 033003 		ER3	AC,SN		;FAD FAILED
  4785	034301	321 16 0 00 034273 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4786
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 51
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0130

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

  4842	034324	205 12 0 00 600400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  4843	034325	205 14 0 00 601400 		MOVSI	AC,ZZ		;SETUP AC
  4844	034326	205 13 0 00 601400 		MOVSI	AC-1,ZZ		;SETUP BR
  4845	034327	140 14 0 00 000013 		FAD	AC,AC-1		;C(AC)+C(E)
  4846	034330	312 14 0 00 000012 		CAME	AC,AC-2		;TEST SUM
  4847	034331	003 14 0 00 033103 		ER3	AC,SN		;FAD FAILED
  4848	034332	321 16 0 00 034324 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4849
  4850					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 51-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0132

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

  4906
  4907			033203		SN=SN+1
  4908			000100			WW=WW/2
  4909			601400			XX=XX+1000
  4910			000700			ZZ=ZZ+WW
  4911	034355	205 11 0 00 200700 		MOVSI	AC-2,200000+ZZ	;SETUP FOR COMPARISON
  4912	034356	205 13 0 00 201400 		MOVSI	AC,201400	;SETUP AC
  4913	034357	205 12 0 00 601400 		MOVSI	AC-1,XX		;SETUP BR
  4914	034360	140 13 0 00 000012 		FAD	AC,AC-1		;C(AC)+C(E)
  4915	034361	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  4916	034362	003 13 0 00 033203 		ER3	AC,SN		;FAD FAILED
  4917	034363	321 15 0 00 034355 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  4918
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0134

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

  4974	034404	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  4975	034405	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  4976	034406	003 12 0 00 033302 		ER3	AC,SN		;FAD FAILED
  4977	034407	312 11 0 00 036652 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4978	034410	005 11 0 00 033302 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  4979	034411	321 14 0 00 034401 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4980
  4981			033303		SN=SN+1
  4982			150400			XX=XX+1000
  4983			000004			ZZ=ZZ+ZZ
  4984						IFE	ZZ,<ZZ=1>
  4985	034412	205 10 0 00 150400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  4986	034413	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  4987	034414	200 11 0 00 036653 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  4988	034415	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  4989	034416	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  4990	034417	003 12 0 00 033303 		ER3	AC,SN		;FAD FAILED
  4991	034420	312 11 0 00 036653 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  4992	034421	005 11 0 00 033303 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  4993	034422	321 14 0 00 034412 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  4994
  4995			033304		SN=SN+1
  4996			151400			XX=XX+1000
  4997			000010			ZZ=ZZ+ZZ
  4998						IFE	ZZ,<ZZ=1>
  4999	034423	205 10 0 00 151400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5000	034424	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5001	034425	200 11 0 00 036654 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5002	034426	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5003	034427	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5004	034430	003 12 0 00 033304 		ER3	AC,SN		;FAD FAILED
  5005	034431	312 11 0 00 036654 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5006	034432	005 11 0 00 033304 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5007	034433	321 14 0 00 034423 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5008
  5009			033305		SN=SN+1
  5010			152400			XX=XX+1000
  5011			000020			ZZ=ZZ+ZZ
  5012						IFE	ZZ,<ZZ=1>
  5013	034434	205 10 0 00 152400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5014	034435	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5015	034436	200 11 0 00 036655 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5016	034437	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5017	034440	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5018	034441	003 12 0 00 033305 		ER3	AC,SN		;FAD FAILED
  5019	034442	312 11 0 00 036655 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5020	034443	005 11 0 00 033305 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5021	034444	321 14 0 00 034434 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5022
  5023			033306		SN=SN+1
  5024			153400			XX=XX+1000
  5025			000040			ZZ=ZZ+ZZ
  5026						IFE	ZZ,<ZZ=1>
  5027	034445	205 10 0 00 153400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5028	034446	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-2
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0136

  5029	034447	200 11 0 00 036656 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5030	034450	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5031	034451	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5032	034452	003 12 0 00 033306 		ER3	AC,SN		;FAD FAILED
  5033	034453	312 11 0 00 036656 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5034	034454	005 11 0 00 033306 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5035	034455	321 14 0 00 034445 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5036
  5037			033307		SN=SN+1
  5038			154400			XX=XX+1000
  5039			000100			ZZ=ZZ+ZZ
  5040						IFE	ZZ,<ZZ=1>
  5041	034456	205 10 0 00 154400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5042	034457	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5043	034460	200 11 0 00 036657 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5044	034461	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5045	034462	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5046	034463	003 12 0 00 033307 		ER3	AC,SN		;FAD FAILED
  5047	034464	312 11 0 00 036657 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5048	034465	005 11 0 00 033307 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5049	034466	321 14 0 00 034456 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5050
  5051			033310		SN=SN+1
  5052			155400			XX=XX+1000
  5053			000200			ZZ=ZZ+ZZ
  5054						IFE	ZZ,<ZZ=1>
  5055	034467	205 10 0 00 155400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5056	034470	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5057	034471	200 11 0 00 036660 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5058	034472	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5059	034473	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5060	034474	003 12 0 00 033310 		ER3	AC,SN		;FAD FAILED
  5061	034475	312 11 0 00 036660 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5062	034476	005 11 0 00 033310 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5063	034477	321 14 0 00 034467 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5064
  5065			033311		SN=SN+1
  5066			156400			XX=XX+1000
  5067			000400			ZZ=ZZ+ZZ
  5068						IFE	ZZ,<ZZ=1>
  5069	034500	205 10 0 00 156400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5070	034501	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5071	034502	200 11 0 00 036661 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5072	034503	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5073	034504	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5074	034505	003 12 0 00 033311 		ER3	AC,SN		;FAD FAILED
  5075	034506	312 11 0 00 036661 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5076	034507	005 11 0 00 033311 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5077	034510	321 14 0 00 034500 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5078
  5079			033312		SN=SN+1
  5080			157400			XX=XX+1000
  5081			001000			ZZ=ZZ+ZZ
  5082						IFE	ZZ,<ZZ=1>
  5083	034511	205 10 0 00 157400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-3
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0137

  5084	034512	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5085	034513	200 11 0 00 036662 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5086	034514	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5087	034515	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5088	034516	003 12 0 00 033312 		ER3	AC,SN		;FAD FAILED
  5089	034517	312 11 0 00 036662 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5090	034520	005 11 0 00 033312 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5091	034521	321 14 0 00 034511 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5092
  5093			033313		SN=SN+1
  5094			160400			XX=XX+1000
  5095			002000			ZZ=ZZ+ZZ
  5096						IFE	ZZ,<ZZ=1>
  5097	034522	205 10 0 00 160400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5098	034523	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5099	034524	200 11 0 00 036663 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5100	034525	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5101	034526	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5102	034527	003 12 0 00 033313 		ER3	AC,SN		;FAD FAILED
  5103	034530	312 11 0 00 036663 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5104	034531	005 11 0 00 033313 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5105	034532	321 14 0 00 034522 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5106
  5107			033314		SN=SN+1
  5108			161400			XX=XX+1000
  5109			004000			ZZ=ZZ+ZZ
  5110						IFE	ZZ,<ZZ=1>
  5111	034533	205 10 0 00 161400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5112	034534	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5113	034535	200 11 0 00 036664 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5114	034536	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5115	034537	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5116	034540	003 12 0 00 033314 		ER3	AC,SN		;FAD FAILED
  5117	034541	312 11 0 00 036664 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5118	034542	005 11 0 00 033314 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5119	034543	321 14 0 00 034533 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5120
  5121			033315		SN=SN+1
  5122			162400			XX=XX+1000
  5123			010000			ZZ=ZZ+ZZ
  5124						IFE	ZZ,<ZZ=1>
  5125	034544	205 10 0 00 162400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5126	034545	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5127	034546	200 11 0 00 036665 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5128	034547	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5129	034550	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5130	034551	003 12 0 00 033315 		ER3	AC,SN		;FAD FAILED
  5131	034552	312 11 0 00 036665 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5132	034553	005 11 0 00 033315 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5133	034554	321 14 0 00 034544 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5134
  5135			033316		SN=SN+1
  5136			163400			XX=XX+1000
  5137			020000			ZZ=ZZ+ZZ
  5138						IFE	ZZ,<ZZ=1>
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-4
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0138

  5139	034555	205 10 0 00 163400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5140	034556	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5141	034557	200 11 0 00 036666 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5142	034560	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5143	034561	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5144	034562	003 12 0 00 033316 		ER3	AC,SN		;FAD FAILED
  5145	034563	312 11 0 00 036666 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5146	034564	005 11 0 00 033316 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5147	034565	321 14 0 00 034555 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5148
  5149			033317		SN=SN+1
  5150			164400			XX=XX+1000
  5151			040000			ZZ=ZZ+ZZ
  5152						IFE	ZZ,<ZZ=1>
  5153	034566	205 10 0 00 164400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5154	034567	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5155	034570	200 11 0 00 036667 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5156	034571	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5157	034572	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5158	034573	003 12 0 00 033317 		ER3	AC,SN		;FAD FAILED
  5159	034574	312 11 0 00 036667 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5160	034575	005 11 0 00 033317 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5161	034576	321 14 0 00 034566 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5162
  5163			033320		SN=SN+1
  5164			165400			XX=XX+1000
  5165			100000			ZZ=ZZ+ZZ
  5166						IFE	ZZ,<ZZ=1>
  5167	034577	205 10 0 00 165400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5168	034600	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5169	034601	200 11 0 00 036670 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5170	034602	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5171	034603	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5172	034604	003 12 0 00 033320 		ER3	AC,SN		;FAD FAILED
  5173	034605	312 11 0 00 036670 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5174	034606	005 11 0 00 033320 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5175	034607	321 14 0 00 034577 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5176
  5177			033321		SN=SN+1
  5178			166400			XX=XX+1000
  5179			200000			ZZ=ZZ+ZZ
  5180						IFE	ZZ,<ZZ=1>
  5181	034610	205 10 0 00 166400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5182	034611	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5183	034612	200 11 0 00 036671 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5184	034613	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5185	034614	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5186	034615	003 12 0 00 033321 		ER3	AC,SN		;FAD FAILED
  5187	034616	312 11 0 00 036671 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5188	034617	005 11 0 00 033321 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5189	034620	321 14 0 00 034610 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5190
  5191			033322		SN=SN+1
  5192			167400			XX=XX+1000
  5193			400000			ZZ=ZZ+ZZ
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-5
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0139

  5194						IFE	ZZ,<ZZ=1>
  5195	034621	205 10 0 00 167400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5196	034622	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5197	034623	200 11 0 00 036672 		MOVE	AC-1,[200000,,ZZ]	;SETUP BR
  5198	034624	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5199	034625	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5200	034626	003 12 0 00 033322 		ER3	AC,SN		;FAD FAILED
  5201	034627	312 11 0 00 036672 		CAME	AC-1,[200000,,ZZ]	;VERIFY THAT C(E) IS UNCHANGED
  5202	034630	005 11 0 00 033322 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5203	034631	321 14 0 00 034621 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5204
  5205					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-6
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0140

  5206			033400		SN=33400
  5207			000000			ZZ=0
  5208
  5209					O33400:	REPEAT	^D7,		;TEST BITS 10-17 (1)
  5210					<SN=SN+1
  5211						XX=XX+1000
  5212						ZZ=ZZ+ZZ
  5213						IFE	ZZ,<ZZ=1>
  5214						MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5215						MOVSI	AC,200000	;SETUP AC
  5216						MOVSI	AC-1,200000+ZZ	;SETUP BR
  5217						FAD	AC,AC-1		;C(AC)+C(E)
  5218						CAME	AC,AC-2		;TEST SUM
  5219						ER3	AC,SN		;FAD FAILED
  5220						CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5221						ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5222						JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5223					>
  5224			033401		SN=SN+1
  5225			170400			XX=XX+1000
  5226			000000			ZZ=ZZ+ZZ
  5227			000001			IFE	ZZ,<ZZ=1>
  5228	034632	205 10 0 00 170400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5229	034633	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5230	034634	205 11 0 00 200001 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5231	034635	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5232	034636	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5233	034637	003 12 0 00 033401 		ER3	AC,SN		;FAD FAILED
  5234	034640	312 11 0 00 036673 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5235	034641	005 11 0 00 033401 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5236	034642	321 14 0 00 034632 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5237
  5238			033402		SN=SN+1
  5239			171400			XX=XX+1000
  5240			000002			ZZ=ZZ+ZZ
  5241						IFE	ZZ,<ZZ=1>
  5242	034643	205 10 0 00 171400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5243	034644	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5244	034645	205 11 0 00 200002 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5245	034646	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5246	034647	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5247	034650	003 12 0 00 033402 		ER3	AC,SN		;FAD FAILED
  5248	034651	312 11 0 00 036674 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5249	034652	005 11 0 00 033402 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5250	034653	321 14 0 00 034643 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5251
  5252			033403		SN=SN+1
  5253			172400			XX=XX+1000
  5254			000004			ZZ=ZZ+ZZ
  5255						IFE	ZZ,<ZZ=1>
  5256	034654	205 10 0 00 172400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5257	034655	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5258	034656	205 11 0 00 200004 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5259	034657	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5260	034660	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-7
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0141

  5261	034661	003 12 0 00 033403 		ER3	AC,SN		;FAD FAILED
  5262	034662	312 11 0 00 036675 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5263	034663	005 11 0 00 033403 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5264	034664	321 14 0 00 034654 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5265
  5266			033404		SN=SN+1
  5267			173400			XX=XX+1000
  5268			000010			ZZ=ZZ+ZZ
  5269						IFE	ZZ,<ZZ=1>
  5270	034665	205 10 0 00 173400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5271	034666	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5272	034667	205 11 0 00 200010 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5273	034670	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5274	034671	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5275	034672	003 12 0 00 033404 		ER3	AC,SN		;FAD FAILED
  5276	034673	312 11 0 00 036676 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5277	034674	005 11 0 00 033404 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5278	034675	321 14 0 00 034665 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5279
  5280			033405		SN=SN+1
  5281			174400			XX=XX+1000
  5282			000020			ZZ=ZZ+ZZ
  5283						IFE	ZZ,<ZZ=1>
  5284	034676	205 10 0 00 174400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5285	034677	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5286	034700	205 11 0 00 200020 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5287	034701	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5288	034702	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5289	034703	003 12 0 00 033405 		ER3	AC,SN		;FAD FAILED
  5290	034704	312 11 0 00 036677 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5291	034705	005 11 0 00 033405 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5292	034706	321 14 0 00 034676 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5293
  5294			033406		SN=SN+1
  5295			175400			XX=XX+1000
  5296			000040			ZZ=ZZ+ZZ
  5297						IFE	ZZ,<ZZ=1>
  5298	034707	205 10 0 00 175400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5299	034710	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5300	034711	205 11 0 00 200040 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5301	034712	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
  5302	034713	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5303	034714	003 12 0 00 033406 		ER3	AC,SN		;FAD FAILED
  5304	034715	312 11 0 00 036700 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5305	034716	005 11 0 00 033406 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5306	034717	321 14 0 00 034707 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5307
  5308			033407		SN=SN+1
  5309			176400			XX=XX+1000
  5310			000100			ZZ=ZZ+ZZ
  5311						IFE	ZZ,<ZZ=1>
  5312	034720	205 10 0 00 176400 		MOVSI	AC-2,XX		;SETUP FOR COMPARISON
  5313	034721	205 12 0 00 200000 		MOVSI	AC,200000	;SETUP AC
  5314	034722	205 11 0 00 200100 		MOVSI	AC-1,200000+ZZ	;SETUP BR
  5315	034723	140 12 0 00 000011 		FAD	AC,AC-1		;C(AC)+C(E)
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 52-8
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0142

  5316	034724	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5317	034725	003 12 0 00 033407 		ER3	AC,SN		;FAD FAILED
  5318	034726	312 11 0 00 036701 		CAME	AC-1,[200000+ZZ,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5319	034727	005 11 0 00 033407 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5320	034730	321 14 0 00 034720 		JUMPL	AC+2,.-^D8	;LOOP ON ERROR SWITCH
  5321
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 53
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0143

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

  5368					;TEST FADM
  5369					;AR=200400000000 (+1/2)
  5370					;BR=201400000000 (+1)
  5371					;SUM=201600000000 (+1 1/2)
  5372
  5373			000014			AC=14
  5374						SAVEAC	(1,1)^
  5375	034771	201 16 0 00 034771 		MOVEI	AC+2,.
  5376	034772	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5377	034773	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5378	034774	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5379
  5380	034775	205 12 0 00 201600 	O34400:	MOVSI	AC-2,201600	;SETUP FOR COMPARISON
  5381	034776	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  5382	034777	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  5383	035000	142 14 0 00 000013 		FADM	AC,AC-1		;C(AC)+C(E)
  5384	035001	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST SUM
  5385	035002	005 13 0 00 034401 		ER5	AC-1,34401	;FADM FAILED
  5386	035003	312 14 0 00 036703 		CAME	AC,[200400,,0]	;VERIFY THAT C(AC) IS UNCHANGED
  5387	035004	003 14 0 00 034401 		ER3	AC,34401	;FAILURE, C(AC) WAS CLOBBERED
  5388	035005	321 16 0 00 034775 		JUMPL	AC+2,O34400	;LOOP ON ERROR SWITCH
  5389					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 54-1
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0145

  5390					;TEST FADB
  5391					;AR=200400000000 (+1/2)
  5392					;BR=201400000000 (+1)
  5393					;SUM =201600000000 (+1 1/2)
  5394
  5395			000014			AC=14
  5396						SAVEAC	(1,1)^
  5397	035006	201 16 0 00 035006 		MOVEI	AC+2,.
  5398	035007	202 16 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5399	035010	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5400	035011	202 16 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5401
  5402	035012	205 12 0 00 201600 	O34500:	MOVSI	AC-2,201600	;SETUP FOR COMPARISON
  5403	035013	205 14 0 00 200400 		MOVSI	AC,200400	;SETUP AC
  5404	035014	205 13 0 00 201400 		MOVSI	AC-1,201400	;SETUP BR
  5405	035015	143 14 0 00 000013 		FADB	AC,AC-1		;C(AC)+C(E)
  5406	035016	312 14 0 00 000012 		CAME	AC,AC-2		;TEST C(AC)
  5407	035017	003 14 0 00 034501 		ER3	AC,34501
  5408	035020	312 13 0 00 000012 		CAME	AC-1,AC-2	;TEST C(E)
  5409	035021	005 13 0 00 034501 		ER5	AC-1,34501	;FADB FAILED
  5410	035022	321 16 0 00 035012 		JUMPL	AC+2,O34500	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 55
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0146

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

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

  5521	035120	312 12 0 00 036710 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5522	035121	005 12 0 00 034605 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5523	035122	321 15 0 00 035107 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5524
  5525			034606		SN=SN+1
  5526			207400			XX=XX+1000
  5527			000100			ZZ=ZZ+ZZ
  5528	035123	505 11 0 00 207400 		HRLI	AC-2,XX		;SETUP AC-2
  5529	035124	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5530	035125	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5531	035126	541 13 0 00 000100 		HRRI	AC,ZZ		;AC
  5532	035127	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5533	035130	205 12 0 00 207400 		MOVSI	AC-1,XX		;SETUP BR
  5534	035131	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5535	035132	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5536	035133	003 13 0 00 034606 		ER3	AC,SN		;FADR FAILED
  5537	035134	312 12 0 00 036711 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5538	035135	005 12 0 00 034606 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5539	035136	321 15 0 00 035123 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5540
  5541			034607		SN=SN+1
  5542			210400			XX=XX+1000
  5543			000200			ZZ=ZZ+ZZ
  5544	035137	505 11 0 00 210400 		HRLI	AC-2,XX		;SETUP AC-2
  5545	035140	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5546	035141	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5547	035142	541 13 0 00 000200 		HRRI	AC,ZZ		;AC
  5548	035143	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5549	035144	205 12 0 00 210400 		MOVSI	AC-1,XX		;SETUP BR
  5550	035145	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5551	035146	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5552	035147	003 13 0 00 034607 		ER3	AC,SN		;FADR FAILED
  5553	035150	312 12 0 00 036712 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5554	035151	005 12 0 00 034607 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5555	035152	321 15 0 00 035137 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5556
  5557			034610		SN=SN+1
  5558			211400			XX=XX+1000
  5559			000400			ZZ=ZZ+ZZ
  5560	035153	505 11 0 00 211400 		HRLI	AC-2,XX		;SETUP AC-2
  5561	035154	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5562	035155	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5563	035156	541 13 0 00 000400 		HRRI	AC,ZZ		;AC
  5564	035157	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5565	035160	205 12 0 00 211400 		MOVSI	AC-1,XX		;SETUP BR
  5566	035161	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5567	035162	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5568	035163	003 13 0 00 034610 		ER3	AC,SN		;FADR FAILED
  5569	035164	312 12 0 00 036713 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5570	035165	005 12 0 00 034610 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5571	035166	321 15 0 00 035153 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5572
  5573			034611		SN=SN+1
  5574			212400			XX=XX+1000
  5575			001000			ZZ=ZZ+ZZ
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 55-3
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0149

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

  5631	035242	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5632	035243	003 13 0 00 034614 		ER3	AC,SN		;FADR FAILED
  5633	035244	312 12 0 00 036717 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5634	035245	005 12 0 00 034614 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5635	035246	321 15 0 00 035233 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5636
  5637			034615		SN=SN+1
  5638			216400			XX=XX+1000
  5639			020000			ZZ=ZZ+ZZ
  5640	035247	505 11 0 00 216400 		HRLI	AC-2,XX		;SETUP AC-2
  5641	035250	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5642	035251	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5643	035252	541 13 0 00 020000 		HRRI	AC,ZZ		;AC
  5644	035253	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5645	035254	205 12 0 00 216400 		MOVSI	AC-1,XX		;SETUP BR
  5646	035255	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5647	035256	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5648	035257	003 13 0 00 034615 		ER3	AC,SN		;FADR FAILED
  5649	035260	312 12 0 00 036720 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5650	035261	005 12 0 00 034615 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5651	035262	321 15 0 00 035247 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5652
  5653			034616		SN=SN+1
  5654			217400			XX=XX+1000
  5655			040000			ZZ=ZZ+ZZ
  5656	035263	505 11 0 00 217400 		HRLI	AC-2,XX		;SETUP AC-2
  5657	035264	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5658	035265	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5659	035266	541 13 0 00 040000 		HRRI	AC,ZZ		;AC
  5660	035267	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5661	035270	205 12 0 00 217400 		MOVSI	AC-1,XX		;SETUP BR
  5662	035271	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5663	035272	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5664	035273	003 13 0 00 034616 		ER3	AC,SN		;FADR FAILED
  5665	035274	312 12 0 00 036721 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5666	035275	005 12 0 00 034616 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5667	035276	321 15 0 00 035263 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5668
  5669			034617		SN=SN+1
  5670			220400			XX=XX+1000
  5671			100000			ZZ=ZZ+ZZ
  5672	035277	505 11 0 00 220400 		HRLI	AC-2,XX		;SETUP AC-2
  5673	035300	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5674	035301	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5675	035302	541 13 0 00 100000 		HRRI	AC,ZZ		;AC
  5676	035303	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5677	035304	205 12 0 00 220400 		MOVSI	AC-1,XX		;SETUP BR
  5678	035305	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5679	035306	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5680	035307	003 13 0 00 034617 		ER3	AC,SN		;FADR FAILED
  5681	035310	312 12 0 00 036722 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5682	035311	005 12 0 00 034617 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5683	035312	321 15 0 00 035277 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5684
  5685			034620		SN=SN+1
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 55-5
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0151

  5686			221400			XX=XX+1000
  5687			200000			ZZ=ZZ+ZZ
  5688	035313	505 11 0 00 221400 		HRLI	AC-2,XX		;SETUP AC-2
  5689	035314	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5690	035315	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5691	035316	541 13 0 00 200000 		HRRI	AC,ZZ		;AC
  5692	035317	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5693	035320	205 12 0 00 221400 		MOVSI	AC-1,XX		;SETUP BR
  5694	035321	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5695	035322	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5696	035323	003 13 0 00 034620 		ER3	AC,SN		;FADR FAILED
  5697	035324	312 12 0 00 036723 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5698	035325	005 12 0 00 034620 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5699	035326	321 15 0 00 035313 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5700
  5701			034621		SN=SN+1
  5702			222400			XX=XX+1000
  5703			400000			ZZ=ZZ+ZZ
  5704	035327	505 11 0 00 222400 		HRLI	AC-2,XX		;SETUP AC-2
  5705	035330	541 11 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5706	035331	505 13 0 00 200000 		HRLI	AC,200000	;SETUP
  5707	035332	541 13 0 00 400000 		HRRI	AC,ZZ		;AC
  5708	035333	340 13 0 00 000000 		AOJ	AC,		;SET BIT 35
  5709	035334	205 12 0 00 222400 		MOVSI	AC-1,XX		;SETUP BR
  5710	035335	144 13 0 00 000012 		FADR	AC,AC-1		;C(AC)+C(E)
  5711	035336	312 13 0 00 000011 		CAME	AC,AC-2		;TEST SUM
  5712	035337	003 13 0 00 034621 		ER3	AC,SN		;FADR FAILED
  5713	035340	312 12 0 00 036724 		CAME	AC-1,[XX,,0]	;VERIFY THAT C(E) IS UNCHANGED
  5714	035341	005 12 0 00 034621 		ER5	AC-1,SN		;FAILURE, C(E) WAS CLOBBERED
  5715	035342	321 15 0 00 035327 		JUMPL	AC+2,.-^D11	;LOOP ON ERROR SWITCH
  5716
  5717					PAGE
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 55-6
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0152

  5718					;TEST FADRI
  5719					;AR=200400000003
  5720					;SUM=202500000001
  5721
  5722			000012			AC=12
  5723						SAVEAC	(1,1)^
  5724	035343	201 14 0 00 035343 		MOVEI	AC+2,.
  5725	035344	202 14 0 00 030051 		MOVEM	AC+2,TESTPC	;SETUP SUBTEST PC
  5726	035345	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5727	035346	202 14 0 00 037107 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5728
  5729	035347	505 10 0 00 202500 	O34700:	HRLI	AC-2,202500	;SETUP AC-2
  5730	035350	541 10 0 00 000001 		HRRI	AC-2,1		;FOR COMPARISON
  5731	035351	505 12 0 00 200400 		HRLI	AC,200400	;SETUP
  5732	035352	541 12 0 00 000003 		HRRI	AC,3		;AC
  5733	035353	145 12 0 00 202400 		FADRI	AC,202400	;C(AC)+C(E)
  5734	035354	312 12 0 00 000010 		CAME	AC,AC-2		;TEST SUM
  5735	035355	003 12 0 00 034701 		ER3	AC,34701	;FADRI FAILED
  5736	035356	321 14 0 00 035347 		JUMPL	AC+2,O34700	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 56
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0153

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

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

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

  5869
  5870	035506	254 02 1 00 035507 	O35520:	JRST	2,@.+1		;CLEAR FLAGS
  5871	035507	000000	035510				.+1
  5872	035510	205 02 0 00 177400 		MOVSI	AC-2,177400	;SETUP FOR COMPARISON
  5873	035511	205 04 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  5874	035512	132 04 0 00 000200 		FSC	AC,200		;SCALE - AROV,FOV
  5875	035513	265 05 0 00 035514 		JSP	AC+1,.+1	;SAVE FLAGS
  5876	035514	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  5877	035515	003 04 0 00 035521 		ER3	AC,35521	;C(AC) FAILED
  5878	035516	255 10 0 00 035520 		JOV	.+2		;EXAMINE AROV FLAG
  5879	035517	013 05 0 00 035521 		ER13	AC+1,35521	;AROV FLAG WAS NOT SET
  5880	035520	603 05 0 00 000100 		TLNE	AC+1,FXU	;EXAMINE FXU
  5881	035521	013 05 0 00 035521 		ER13	AC+1,35521	;FXU WAS SET
  5882	035522	607 05 0 00 040000 		TLNN	AC+1,FOV	;EXAMINE FOV
  5883	035523	013 05 0 00 035521 		ER13	AC+1,35521	;FOV WAS NOT SET
  5884	035524	321 06 0 00 035506 		JUMPL	AC+2,O35520	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 60
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0157

  5885	035525	254 02 1 00 035526 	O35530:	JRST	2,@.+1		;CLEAR FLAGS
  5886	035526	000000	035527				.+1
  5887	035527	205 02 0 00 200400 		MOVSI	AC-2,200400	;SETUP FOR COMPARISON
  5888	035530	205 04 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  5889	035531	132 04 0 00 000201 		FSC	AC,201		;SCALE - AROV,FOV
  5890	035532	265 05 0 00 035533 		JSP	AC+1,.+1	;SAVE FLAGS
  5891	035533	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  5892	035534	003 04 0 00 035531 		ER3	AC,35531	;C(AC) FAILED
  5893	035535	255 10 0 00 035537 		JOV	.+2		;EXAMINE AROV FLAG
  5894	035536	013 05 0 00 035531 		ER13	AC+1,35531	;AROV FLAG NOT SET
  5895	035537	332 00 0 00 030041 		SKIPE	KLFLG
  5896	035540	254 00 0 00 035547 		JRST	O35535		;KL10
  5897	035541	607 05 0 00 000100 		TLNN	AC+1,FXU	;EXAMINE FXU
  5898	035542	013 05 0 00 035531 		ER13	AC+1,35531	;FXU WAS NOT SET
  5899	035543	607 05 0 00 040000 	O35537:	TLNN	AC+1,FOV	;EXAMINE FOV
  5900	035544	013 05 0 00 035531 		ER13	AC+1,35531	;FOV WAS NOT SET
  5901	035545	321 06 0 00 035525 		JUMPL	AC+2,O35530	;LOOP ON ERROR SWITCH.
  5902	035546	254 00 0 00 035552 		JRST O35540
  5903	035547	603 05 0 00 000100 	O35535:	TLNE	AC+1,FXU	;FXU SHOULD NOT BE SET ON KL10
  5904	035550	013 05 0 00 035532 		ER13	AC+1,35532
  5905	035551	254 00 0 00 035543 		JRST	O35537
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 61
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0158

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

  5943	035615	254 02 1 00 035616 	O35560:	JRST	2,@.+1		;CLEAR FLAGS
  5944	035616	000000	035617				.+1
  5945	035617	205 02 0 00 000400 		MOVSI	AC-2,400	;SETUP FOR COMPARISON
  5946	035620	205 04 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  5947	035621	132 04 0 00 777401 		FSC	AC,-377		;SCALE - NO FLAGS
  5948	035622	265 05 0 00 035623 		JSP	AC+1,.+1	;SAVE FLAGS
  5949	035623	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  5950	035624	003 04 0 00 035561 		ER3	AC,35561	;C(AC) FAILED
  5951	035625	255 10 0 00 035627 		JOV	.+2		;EXAMINE AROV FLAG
  5952	035626	254 00 0 00 035630 		JRST	.+2
  5953	035627	013 05 0 00 035561 		ER13	AC+1,35561	;AROV FLAG WAS SET
  5954	035630	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  5955	035631	013 05 0 00 035561 		ER13	AC+1,35561	;A FLAG WAS SET
  5956	035632	321 06 0 00 035615 		JUMPL	AC+2,O35560	;LOOP ON ERROR SWITCH
  5957
  5958	035633	254 02 1 00 035634 	O35570:	JRST	2,@.+1		;CLEAR FLAGS
  5959	035634	000000	035635				.+1
  5960	035635	205 02 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  5961	035636	205 04 0 00 377400 		MOVSI	AC,377400	;SETUP AC
  5962	035637	132 04 0 00 777400 		FSC	AC,-400		;SCALE - AROV,FOV,FXU
  5963	035640	265 05 0 00 035641 		JSP	AC+1,.+1	;SAVE FLAGS
  5964	035641	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  5965	035642	003 04 0 00 035571 		ER3	AC,35571	;C(AC) FAILED
  5966	035643	255 10 0 00 035645 		JOV	.+2		;EXAMINE AROV FLAG
  5967	035644	013 05 0 00 035571 		ER13	AC+1,35571	;AROV FLAG WAS NOT SET
  5968	035645	607 05 0 00 040000 		TLNN	AC+1,FOV	;EXAMINE FOV FLAG
  5969	035646	013 05 0 00 035571 		ER13	AC+1,35571	;FOV WAS NOT SET
  5970	035647	607 05 0 00 000100 		TLNN	AC+1,FXU	;EXAMINE FXU FLAG
  5971	035650	013 05 0 00 035571 		ER13	AC+1,35571	;FXU WAS NOT SET
  5972	035651	321 06 0 00 035633 		JUMPL	AC+2,O35570	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 63
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0160

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

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

  6056
  6057	035772	254 02 1 00 035773 	O35650:	JRST	2,@.+1		;CLEAR FLAGS
  6058	035773	000000	035774				.+1
  6059	035774	205 02 0 00 000400 		MOVSI	AC-2,400	;SETUP FOR COMPARISON
  6060	035775	205 04 0 00 000400 		MOVSI	AC,400		;SETUP AC
  6061	035776	132 04 0 00 777400 		FSC	AC,-400		;SCALE - AROV,FOV,FXU
  6062	035777	265 05 0 00 036000 		JSP	AC+1,.+1	;SAVE FLAGS
  6063	036000	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6064	036001	003 04 0 00 035651 		ER3	AC,35651	;C(AC) FAILED
  6065	036002	255 10 0 00 036004 		JOV	.+2		;EXAMINE AROV FLAG
  6066	036003	013 05 0 00 035651 		ER13	AC+1,35651	;AROV FLAG WAS NOT SET
  6067	036004	607 05 0 00 040000 		TLNN	AC+1,FOV	;EXAMINE FOV FLAG
  6068	036005	013 05 0 00 035651 		ER13	AC+1,35651	;FOV WAS NOT SET
  6069	036006	332 00 0 00 030041 		SKIPE	KLFLG
  6070	036007	254 00 0 00 036014 		JRST	O35655
  6071	036010	603 05 0 00 000100 		TLNE	AC+1,FXU	;EXAMINE FXU FLAG
  6072	036011	013 05 0 00 035651 		ER13	AC+1,35651	;FXU WAS SET
  6073	036012	321 06 0 00 035772 	O35657:	JUMPL	AC+2,O35650	;LOOP ON ERROR SWITCH
  6074	036013	254 00 0 00 036017 		JRST	O35660
  6075	036014	607 05 0 00 000100 	O35655:	TLNN	AC+1,FXU	;FXU SHOULD BE SET ON KL10
  6076	036015	013 05 0 00 035652 		ER13	AC+1,35652
  6077	036016	254 00 0 00 036012 		JRST	O35657
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 66
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0163

  6078	036017	254 02 1 00 036020 	O35660:	JRST	2,@.+1		;CLEAR FLAGS
  6079	036020	000000	036021				.+1
  6080	036021	205 02 0 00 377400 		MOVSI	AC-2,377400	;SETUP FOR COMPARISON
  6081	036022	205 04 0 00 000400 		MOVSI	AC,400		;SETUP AC
  6082	036023	132 04 0 00 000377 		FSC	AC,377		;SCALE - NO FLAGS
  6083	036024	265 05 0 00 036025 		JSP	AC+1,.+1	;SAVE FLAGS
  6084	036025	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6085	036026	003 04 0 00 035661 		ER3	AC,35661	;C(AC) FAILED
  6086	036027	255 10 0 00 036031 		JOV	.+2		;EXAMINE AROV FLAG
  6087	036030	254 00 0 00 036032 		JRST	.+2
  6088	036031	013 05 0 00 035661 		ER13	AC+1,35661	;AROV FLAG WAS SET
  6089	036032	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6090	036033	013 05 0 00 035661 		ER13	AC+1,35661	;A FLAG WAS SET
  6091	036034	321 06 0 00 036017 		JUMPL	AC+2,O35660	;LOOP ON ERROR SWITCH
  6092
  6093	036035	254 02 1 00 036036 	O35670:	JRST	2,@.+1		;CLEAR FLAGS
  6094	036036	000000	036037				.+1
  6095	036037	205 02 0 00 000400 		MOVSI	AC-2,400	;SETUP FOR COMPARISON
  6096	036040	205 04 0 00 000400 		MOVSI	AC,400		;SETUP AC
  6097	036041	132 04 0 00 000400 		FSC	AC,400		;SCALE - NO FLAGS
  6098	036042	265 05 0 00 036043 		JSP	AC+1,.+1	;SAVE FLAGS
  6099	036043	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6100	036044	003 04 0 00 035671 		ER3	AC,35671	;C(AC) FAILED
  6101	036045	255 10 0 00 036047 		JOV	.+2		;EXAMINE AROV FLAG
  6102	036046	254 00 0 00 036050 		JRST	.+2
  6103	036047	013 05 0 00 035671 		ER13	AC+1,35671	;AROV FLAG WAS SET
  6104	036050	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6105	036051	013 05 0 00 035671 		ER13	AC+1,35671	;A FLAG WAS SET
  6106	036052	321 06 0 00 036035 		JUMPL	AC+2,O35670	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 67
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0164

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

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

  6196
  6197	036201	254 02 1 00 036202 	O35750:	JRST	2,@.+1		;CLEAR FLAGS
  6198	036202	000000	036203				.+1
  6199	036203	205 02 0 00 400400 		MOVSI	AC-2,-377400	;SETUP FOR COMPARISON
  6200	036204	205 04 0 00 400400 		MOVSI	AC,-377400	;SETUP AC.
  6201	036205	132 04 0 00 000400 		FSC	AC,400		;SCALE - NO FLAGS
  6202	036206	265 05 0 00 036207 		JSP	AC+1,.+1	;SAVE FLAGS
  6203	036207	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6204	036210	003 04 0 00 035751 		ER3	AC,35751	;C(AC) FAILED
  6205	036211	255 10 0 00 036213 		JOV	.+2		;EXAMINE AROV FLAG
  6206	036212	254 00 0 00 036214 		JRST	.+2
  6207	036213	013 05 0 00 035751 		ER13	AC+1,35751	;AROV FLAG WAS SET
  6208	036214	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6209	036215	013 05 0 00 035751 		ER13	AC+1,35751	;A FLAG WAS SET
  6210	036216	321 06 0 00 036201 		JUMPL	AC+2,O35750	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 70
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0167

  6211	036217	254 02 1 00 036220 	O35760:	JRST	2,@.+1		;CLEAR FLAGS
  6212	036220	000000	036221				.+1
  6213	036221	205 02 0 00 777400 		MOVSI	AC-2,-400	;SETUP FOR COMPARISON
  6214	036222	205 04 0 00 400400 		MOVSI	AC,-377400	;SETUP AC
  6215	036223	132 04 0 00 777401 		FSC	AC,-377		;SCALE - NO FLAGS
  6216	036224	265 05 0 00 036225 		JSP	AC+1,.+1	;SAVE FLAGS
  6217	036225	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6218	036226	003 04 0 00 035761 		ER3	AC,35761	;C(AC) FAILED.
  6219	036227	255 10 0 00 036231 		JOV	.+2		;EXAMINE AROV FLAG
  6220	036230	254 00 0 00 036232 		JRST	.+2
  6221	036231	013 05 0 00 035761 		ER13	AC+1,35761	;AROV FLAG WAS SET
  6222	036232	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6223	036233	013 05 0 00 035761 		ER13	AC+1,35761	;A FLAG WAS SET
  6224	036234	321 06 0 00 036217 		JUMPL	AC+2,O35760	;LOOP ON ERROR SWITCH
  6225
  6226	036235	254 02 1 00 036236 	O35770:	JRST	2,@.+1		;CLEAR FLAGS
  6227	036236	000000	036237				.+1
  6228	036237	205 02 0 00 400400 		MOVSI	AC-2,-377400	;SETUP FOR COMPARISON
  6229	036240	205 04 0 00 400400 		MOVSI	AC,-377400	;SETUP AC
  6230	036241	132 04 0 00 777400 		FSC	AC,-400		;SCALE - AROV,FOV,FXU
  6231	036242	265 05 0 00 036243 		JSP	AC+1,.+1	;SAVE FLAGS
  6232	036243	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6233	036244	003 04 0 00 035771 		ER3	AC,35771	;C(AC) FAILED
  6234	036245	255 10 0 00 036247 		JOV	.+2		;EXAMINE AROV FLAG
  6235	036246	013 05 0 00 035771 		ER13	AC+1,35771	;AROV FLAG WAS NOT SET
  6236	036247	607 05 0 00 040000 		TLNN	AC+1,FOV	;EXAMINE FOV FLAG
  6237	036250	013 05 0 00 035771 		ER13	AC+1,35771	;FOV WAS NOT SET
  6238	036251	607 05 0 00 000100 		TLNN	AC+1,FXU	;EXAMINE FXU FLAG
  6239	036252	013 05 0 00 035771 		ER13	AC+1,35771	;FXU WAS NOT SET
  6240	036253	321 06 0 00 035633 		JUMPL	AC+2,O35570	;LOOP ON ERROR SWITCH
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 71
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0168

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

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

  6324
  6325	036374	254 02 1 00 036375 	O36050:	JRST	2,@.+1		;CLEAR FLAGS
  6326	036375	000000	036376				.+1
  6327	036376	205 02 0 00 777400 		MOVSI	AC-2,-400	;SETUP FOR COMPARISON
  6328	036377	205 04 0 00 777400 		MOVSI	AC,-400		;SETUP AC
  6329	036400	132 04 0 00 777400 		FSC	AC,-400		;SCALE - AROV,FOV,FXU
  6330	036401	265 05 0 00 036402 		JSP	AC+1,.+1	;SAVE FLAGS
  6331	036402	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6332	036403	003 04 0 00 036051 		ER3	AC,36051	;C(AC) FAILED
  6333	036404	255 10 0 00 036406 		JOV	.+2		;EXAMINE AROV FLAG
  6334	036405	013 05 0 00 036051 		ER13	AC+1,36051	;AROV FLAG WAS NOT SET
  6335	036406	607 05 0 00 040000 		TLNN	AC+1,FOV	;EXAMINE FOV FLAG
  6336	036407	013 05 0 00 036051 		ER13	AC+1,36051	;FOV WAS NOT SET
  6337	036410	332 00 0 00 030041 		SKIPE	KLFLG
  6338	036411	254 00 0 00 036416 		JRST	O36055		;KL10
  6339	036412	603 05 0 00 000100 		TLNE	AC+1,FXU	;EXAMINE FXU FLAG
  6340	036413	013 05 0 00 036051 		ER13	AC+1,36051	;FXU WAS SET
  6341	036414	321 06 0 00 036374 	O36057:	JUMPL	AC+2,O36050	;LOOP ON ERROR SWITCH
  6342	036415	254 00 0 00 036421 		JRST	O36060
  6343	036416	607 05 0 00 000100 	O36055:	TLNN	AC+1,FXU	;FXU SHOULD BE SET ON KL10
  6344	036417	013 05 0 00 036052 		ER13	AC+1,36052
  6345	036420	254 00 0 00 036414 		JRST	O36057
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 74
DSKCA1	MAC	29-Mar-78 10:59		PART I.E-GEN TEST-FSC,FAD,FSB                                                      SEQ 0171

  6346	036421	254 02 1 00 036422 	O36060:	JRST	2,@.+1		;CLEAR FLAGS
  6347	036422	000000	036423				.+1
  6348	036423	205 02 0 00 400400 		MOVSI	AC-2,-377400	;SETUP FOR COMPARISON
  6349	036424	205 04 0 00 777400 		MOVSI	AC,-400		;SETUP AC
  6350	036425	132 04 0 00 000377 		FSC	AC,377		;SCALE - NO FLAGS
  6351	036426	265 05 0 00 036427 		JSP	AC+1,.+1	;SAVE FLAGS
  6352	036427	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6353	036430	003 04 0 00 036061 		ER3	AC,36061	;C(AC) FAILED
  6354	036431	255 10 0 00 036433 		JOV	.+2		;EXAMINE AROV FLAG
  6355	036432	254 00 0 00 036434 		JRST	.+2
  6356	036433	013 05 0 00 036061 		ER13	AC+1,36061	;AROV FLAG WAS SET
  6357	036434	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6358	036435	013 05 0 00 036061 		ER13	AC+1,36061	;A FLAG WAS SET
  6359	036436	321 06 0 00 036421 		JUMPL	AC+2,O36060	;LOOP ON ERROR SWITCH
  6360
  6361	036437	254 02 1 00 036440 	O36070:	JRST	2,@.+1		;CLEAR FLAGS
  6362	036440	000000	036441				.+1
  6363	036441	205 02 0 00 777400 		MOVSI	AC-2,-400	;SETUP FOR COMPARISON
  6364	036442	205 04 0 00 777400 		MOVSI	AC,-400		;SETUP AC
  6365	036443	132 04 0 00 000400 		FSC	AC,400		;SCALE - NO FLAGS
  6366	036444	265 05 0 00 036445 		JSP	AC+1,.+1	;SAVE FLAGS
  6367	036445	312 04 0 00 000002 		CAME	AC,<AC-2>&17	;TEST C(AC)
  6368	036446	003 04 0 00 036071 		ER3	AC,36071	;C(AC) FAILED
  6369	036447	255 10 0 00 036451 		JOV	.+2		;EXAMINE AROV FLAG
  6370	036450	254 00 0 00 036452 		JRST	.+2
  6371	036451	013 05 0 00 036071 		ER13	AC+1,36071	;AROV FLAG WAS SET
  6372	036452	603 05 0 00 040100 		TLNE	AC+1,FOV+FXU	;EXAMINE FLAGS
  6373	036453	013 05 0 00 036071 		ER13	AC+1,36071	;A FLAG WAS SET
  6374	036454	321 06 0 00 036437 		JUMPL	AC+2,O36070	;LOOP ON ERROR SWITCH
  6375
  6376	036455	254 00 0 00 030057 		JRST	BEGEND
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0172

  6377					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
  6378
  6379					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  6380
  6381	036456	202 00 0 00 037113 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  6382	036457	202 01 0 00 037114 		MOVEM	1,%ERAC1#	;SAVE AC1
  6383	036460	202 02 0 00 037115 		MOVEM	2,%ERAC2#	;SAVE AC2
  6384	036461	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  6385	036462	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  6386	036463	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  6387	036464	350 00 0 00 037110 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  6388	036465	200 00 0 00 037110 		MOVE	0,MICNT
  6389	036466	504 00 0 00 030114 		HRL	0,$SVUPC
  6390	036467	402 00 0 00 037111 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  6391	036470	037 10 0 00 000002 		SWITCH
  6392	036471	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  6393	036472	254 00 0 00 036604 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  6394	036473	200 01 0 00 030113 		MOVE	1,$SVUUO
  6395	036474	242 01 0 00 777745 		LSH	1,-^D27
  6396	036475	202 01 0 00 037112 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  6397	036476	200 00 0 00 037113 		MOVE	0,%ERAC0
  6398	036477	200 01 0 00 037114 		MOVE	1,%ERAC1
  6399	036500	335 00 1 00 037107 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  6400	036501	254 00 0 00 036636 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  6401	036502	402 00 0 00 037110 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  6402	036503	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  6403	036504	254 00 0 00 036510 		JRST	.+4		;NO, DON'T NEED TITLE
  6404	036505	336 00 0 00 037116 		SKIPN	%ERFST#		;FIRST ERROR ?
  6405	036506	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  6406	036507	476 00 0 00 037116 		SETOM	%ERFST
  6407	036510	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  6408	036511	254 00 0 00 036515 		JRST	.+4		;YES
  6409						PMSG	<^TEST PASS COUNT = >^
  6410	036512	037 02 0 00 036727 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  6411	036513	200 00 0 00 030047 		MOVE	PASCNT
  6412	036514	037 15 0 00 000000 		PNTDEC
  6413						PMSG	<^PC =   >^
  6414	036515	037 02 0 00 036733 		PSIXM	[SIXBIT\^PC =   _\]^
  6415	036516	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  6416	036517	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  6417	036520	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  6418						XLIST
  6419						IFDEF	ERDIAG,<LIST
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 2
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0173

  6420					;DIAGNOSTIC FORMAT ERROR PRINTER
  6421
  6422					;PRINT RESULT
  6423
  6424	036521				%ERMS2:	PMSG	<^RESULT  = >^
  6425	036521	037 02 0 00 036735 		PSIXM	[SIXBIT\^RESULT  = _\]^
  6426	036522	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
  6427	036523	242 01 0 00 777751 		LSH	1,-27
  6428	036524	405 01 0 00 000017 		ANDI	1,17
  6429	036525	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  6430	036526	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
  6431	036527	200 00 0 01 037113 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  6432	036530	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
  6433
  6434	036531	200 00 0 00 030046 		MOVE	CONSW
  6435	036532	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
  6436	036533	254 00 0 00 036602 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
  6437
  6438					;PRINT FAILURE DESCRIPTOR
  6439
  6440	036534	200 01 0 00 037112 		MOVE	1,%ACS1A	;GET UUO NUMBER
  6441	036535	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
  6442	036536	254 00 0 00 036542 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
  6443	036537	037 00 0 00 030242 		PCRL
  6444	036540	200 00 0 01 036566 		MOVE	%FLTTB(1)
  6445	036541	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
  6446
  6447					;PRINT FAULT NUMBER
  6448
  6449	036542				%ERMS3:	PMSG	<^FAULT NUMBER = >^
  6450	036542	037 02 0 00 036737 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
  6451	036543	201 00 0 00 036565 		MOVEI	TLET
  6452	036544	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 3
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0174

  6453
  6454	036545	550 00 0 00 030113 		HRRZ	$SVUUO
  6455	036546	602 00 0 00 700000 		TRNE	700000
  6456	036547	254 00 0 00 036563 		JRST	%ER6X
  6457	036550	602 00 0 00 070000 		TRNE	070000
  6458	036551	254 00 0 00 036561 		JRST	%ER5X
  6459	036552	602 00 0 00 007000 		TRNE	007000
  6460	036553	254 00 0 00 036557 		JRST	%ER4X
  6461	036554	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
  6462	036555	037 00 0 00 030242 	%ER7X:	PCRL
  6463	036556	254 00 0 00 036602 		JRST	%ERMORE
  6464
  6465	036557	037 04 0 00 000000 	%ER4X:	PNT4
  6466	036560	254 00 0 00 036555 		JRST	%ER7X
  6467	036561	037 05 0 00 000000 	%ER5X:	PNT5
  6468	036562	254 00 0 00 036555 		JRST	%ER7X
  6469	036563	037 06 0 00 000000 	%ER6X:	PNT6
  6470	036564	254 00 0 00 036555 		JRST	%ER7X
  6471
  6472					;FAILURE DESCRIPTORS
  6473
  6474	036565	000000	000000		TLET:	0			;TEST LETTER
  6475	036566	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
  6476	036567	000000	036742		%NODES:	[0]			;NO DESCRIPTOR
  6477	036570	000000	036742		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
  6478	036571	000000	036743		$ACF:	[ASCIZ/C(AC) FAILED/]
  6479	036572	000000	036746		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
  6480	036573	000000	036751		%EF:	[ASCIZ/C(E) FAILED/]
  6481	036574	000000	036754		%E1F:	[ASCIZ/C(E+1) FAILED/]
  6482	036575	000000	036757		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
  6483	036576	000000	036763		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
  6484	036577	000000	036767		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
  6485	036600	000000	036773		%EEF:	[ASCIZ/C(C(E)) FAILED/]
  6486	036601	000000	036776		%FF:	[ASCIZ/FLAG FAILED/]
  6487					>
  6488						XLIST
  6489						LIST
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 8
UUOERR	KSM	28-Mar-78 11:17		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978                              SEQ 0175

  6490					;RESTORE AC'S AND RETURN OR HALT
  6491
  6492	036602	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  6493	036603	037 10 0 00 000002 		SWITCH
  6494
  6495	036604	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  6496	036605	254 00 0 00 036611 		JRST	.+4		;NONE
  6497	036606	201 00 0 00 036611 		MOVEI	.+3		;SAVE CONT ADDRESS
  6498	036607	202 00 0 00 000130 		MOVEM	JOBOPC
  6499	036610	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  6500	036611	200 00 0 00 030046 		MOVE	CONSW
  6501	036612	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  6502	036613	037 14 0 00 000004 		ERRHLT			;YES
  6503	036614	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  6504	036615	476 00 0 00 037111 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  6505	036616	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  6506	036617	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  6507
  6508	036620	200 02 0 00 037115 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  6509	036621	200 01 0 00 037114 		MOVE	1,%ERAC1
  6510	036622	476 00 1 00 037107 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  6511	036623	336 00 0 00 037111 		SKIPN	PROCED		;LOOP ON ERROR ?
  6512	036624	254 00 0 00 036634 		JRST	%ERRS5		;YES
  6513	036625	350 00 1 00 037107 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  6514	036626	350 00 1 00 037107 		AOS	@ERRLOP		;SO IT ='S 1
  6515	036627	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  6516	036630	254 00 0 00 036634 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  6517	036631	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  6518	036632	301 00 0 00 000024 		CAIL	0,^D20		;PRINTED ALLOWED ERRORS ?
  6519	036633	254 00 0 00 036642 		JRST	%ERRS6
  6520
  6521	036634	200 00 0 00 037113 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  6522	036635	254 00 0 00 030065 		JRST	UUOEXT
  6523
  6524	036636	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  6525	036637	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  6526	036640	254 00 0 00 036604 		JRST	%ERRS1		;NO
  6527	036641	254 00 0 00 036502 		JRST	%ERMS1		;YES
  6528
  6529	036642				%ERRS6:	PMSGF	<^EXCEEDED ALLOWED ERRORS^>^
  6530	036642	037 04 0 00 037001 		PSIXMF	[SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
  6531	036643	254 00 0 00 030061 		JRST	$BEND2
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0176

  6532					SUBTTL	*STOR* RESERVED STORAGE, MARCH 1978
  6533
  6534					;PROGRAM LITERALS
  6535
  6536						XLIST
  6537					IFNDEF	$LPAPER,<LIST>
  6538	036644					LIT
  6539	036644	45 70 51 64 00 00 
  6540	036645	103 101 000 000 000 
  6541	036646	000000	031432
  6542	036647	034400	000000
  6543	036650	033777	777777
  6544	036651	200000	000001
  6545	036652	200000	000002
  6546	036653	200000	000004
  6547	036654	200000	000010
  6548	036655	200000	000020
  6549	036656	200000	000040
  6550	036657	200000	000100
  6551	036660	200000	000200
  6552	036661	200000	000400
  6553	036662	200000	001000
  6554	036663	200000	002000
  6555	036664	200000	004000
  6556	036665	200000	010000
  6557	036666	200000	020000
  6558	036667	200000	040000
  6559	036670	200000	100000
  6560	036671	200000	200000
  6561	036672	200000	400000
  6562	036673	200001	000000
  6563	036674	200002	000000
  6564	036675	200004	000000
  6565	036676	200010	000000
  6566	036677	200020	000000
  6567	036700	200040	000000
  6568	036701	200100	000000
  6569	036702	000000	034761
  6570	036703	200400	000000
  6571	036704	202400	000000
  6572	036705	203400	000000
  6573	036706	204400	000000
  6574	036707	205400	000000
  6575	036710	206400	000000
  6576	036711	207400	000000
  6577	036712	210400	000000
  6578	036713	211400	000000
  6579	036714	212400	000000
  6580	036715	213400	000000
  6581	036716	214400	000000
  6582	036717	215400	000000
  6583	036720	216400	000000
  6584	036721	217400	000000
  6585	036722	220400	000000
  6586	036723	221400	000000
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1-1
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0177

  6587	036724	222400	000000
  6588	036725	177400	000000
  6589	036726	576400	000000
  6590	036727	76 64 45 63 64 00 
  6591	036730	60 41 63 63 00 43 
  6592	036731	57 65 56 64 00 35 
  6593	036732	00 77 00 00 00 00 
  6594	036733	76 60 43 00 35 00 
  6595	036734	00 00 77 00 00 00 
  6596	036735	76 62 45 63 65 54 
  6597	036736	64 00 00 35 00 77 
  6598	036737	76 46 41 65 54 64 
  6599	036740	00 56 65 55 42 45 
  6600	036741	62 00 35 00 77 00 
  6601	036742	000000	000000
  6602	036743	103 050 101 103 051 
  6603	036744	040 106 101 111 114 
  6604	036745	105 104 000 000 000 
  6605	036746	103 050 101 103 053 
  6606	036747	061 051 040 106 101 
  6607	036750	111 114 105 104 000 
  6608	036751	103 050 105 051 040 
  6609	036752	106 101 111 114 105 
  6610	036753	104 000 000 000 000 
  6611	036754	103 050 105 053 061 
  6612	036755	051 040 106 101 111 
  6613	036756	114 105 104 000 000 
  6614	036757	103 050 103 050 101 
  6615	036760	103 122 051 051 040 
  6616	036761	106 101 111 114 105 
  6617	036762	104 000 000 000 000 
  6618	036763	103 050 103 050 101 
  6619	036764	103 122 053 061 051 
  6620	036765	051 040 106 101 111 
  6621	036766	114 105 104 000 000 
  6622	036767	103 050 103 050 101 
  6623	036770	103 114 051 051 040 
  6624	036771	106 101 111 114 105 
  6625	036772	104 000 000 000 000 
  6626	036773	103 050 103 050 105 
  6627	036774	051 051 040 106 101 
  6628	036775	111 114 105 104 000 
  6629	036776	106 114 101 107 040 
  6630	036777	106 101 111 114 105 
  6631	037000	104 000 000 000 000 
  6632	037001	76 45 70 43 45 45 
  6633	037002	44 45 44 00 41 54 
  6634	037003	54 57 67 45 44 00 
  6635	037004	45 62 62 57 62 63 
  6636	037005	76 77 00 00 00 00 
  6637						LIST
  6638	037006	000000	000000		ENDSLD:	0
  6639
  6640					IFDEF	DEBUG,<
  6641	037007				PATCH:	BLOCK DEBUG		;PATCHING AREA
DSKCA	DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 	MACRO %53(1020) 11:37 29-Mar-78 Page 1-2
STOR	KSM	28-Mar-78 11:25		*STOR* RESERVED STORAGE, MARCH 1978                                                SEQ 0178

  6642					>
  6643
  6644					;PROGRAM VARIABLES
  6645	037107					VAR
  6646
  6647					IFDEF	PGMEND,<
  6648	037117	000000	000000		END:	0
  6649			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 037120
CPU TIME USED 00:19.989

28P CORE USED

ABORT	   577#
AC	  1167#	  1169	  1170	  1171	  1172	  1174	  1175	  1176	  1177	  1178	  1179	  1186#	  1188	  1189     SEQ 0179
	  1190	  1191	  1193	  1194	  1195	  1196	  1197	  1198	  1204#	  1206	  1207	  1208	  1209	  1211
	  1212	  1213	  1214	  1215	  1216	  1223#	  1225	  1226	  1227	  1228	  1230	  1231	  1232	  1233
	  1234	  1235	  1241#	  1243	  1244	  1245	  1246	  1248	  1249	  1250	  1251	  1252	  1253	  1260#
	  1262	  1263	  1264	  1265	  1284	  1285	  1286	  1287	  1288	  1289	  1294	  1295	  1296	  1297
	  1298	  1299	  1304	  1305	  1306	  1307	  1308	  1309	  1314	  1315	  1316	  1317	  1318	  1319
	  1324	  1325	  1326	  1327	  1328	  1329	  1334	  1335	  1336	  1337	  1338	  1339	  1344	  1345
	  1346	  1347	  1348	  1349	  1358#	  1360	  1361	  1362	  1363	  1386	  1387	  1388	  1389	  1390
	  1391	  1397	  1398	  1399	  1400	  1401	  1402	  1408	  1409	  1410	  1411	  1412	  1413	  1419
	  1420	  1421	  1422	  1423	  1424	  1430	  1431	  1432	  1433	  1434	  1435	  1441	  1442	  1443
	  1444	  1445	  1446	  1452	  1453	  1454	  1455	  1456	  1457	  1466#	  1468	  1469	  1470	  1471
	  1473	  1474	  1475	  1476	  1477	  1478	  1484#	  1486	  1487	  1488	  1489	  1509	  1510	  1511
	  1512	  1513	  1514	  1519	  1520	  1521	  1522	  1523	  1524	  1529	  1530	  1531	  1532	  1533
	  1534	  1539	  1540	  1541	  1542	  1543	  1544	  1549	  1550	  1551	  1552	  1553	  1554	  1559
	  1560	  1561	  1562	  1563	  1564	  1569	  1570	  1571	  1572	  1573	  1574	  1583#	  1585	  1586
	  1587	  1588	  1591	  1592	  1593	  1594	  1595	  1596	  1599	  1600	  1601	  1602	  1603	  1604
	  1607	  1608	  1609	  1610	  1611	  1612	  1615	  1616	  1617	  1618	  1619	  1620	  1622	  1623
	  1624	  1625	  1626	  1627	  1630	  1631	  1632	  1633	  1634	  1635	  1638	  1639	  1640	  1641
	  1642	  1643	  1646	  1647	  1648	  1649	  1650	  1651	  1657#	  1659	  1660	  1661	  1662	  1664
	  1665	  1666	  1667	  1668	  1669	  1676#	  1678	  1679	  1680	  1681	  1683	  1684	  1685	  1686
	  1687	  1688	  1696#	  1698	  1699	  1700	  1701	  1717	  1718	  1719	  1720	  1721	  1722	  1726
	  1727	  1728	  1729	  1730	  1731	  1735	  1736	  1737	  1738	  1739	  1740	  1744	  1745	  1746
	  1747	  1748	  1749	  1753	  1754	  1755	  1756	  1757	  1758	  1762	  1763	  1764	  1765	  1766
	  1767	  1771	  1772	  1773	  1774	  1775	  1776	  1780	  1781	  1782	  1783	  1784	  1785	  1790#
	  1792	  1793	  1794	  1795	  1797	  1798	  1799	  1800	  1801	  1802	  1807#	  1809	  1810	  1811
	  1812	  1814	  1815	  1816	  1817	  1818	  1819	  1826#	  1828	  1829	  1830	  1831	  1833	  1834
	  1835	  1836	  1837	  1838	  1845#	  1847	  1848	  1849	  1850	  1852	  1853	  1854	  1855	  1856
	  1857	  1864#	  1866	  1867	  1868	  1869	  1871	  1872	  1873	  1874	  1875	  1876	  1884#	  1886
	  1887	  1888	  1889	  1893	  1894	  1895	  1897	  1898	  1902	  1903	  1904	  1906	  1907	  1911
	  1912	  1913	  1914	  1915	  1916	  1917	  1926#	  1928	  1929	  1930	  1931	  1933	  1934	  1935
	  1936	  1937	  1949#	  1951	  1952	  1953	  1954	  1956	  1957	  1958	  1959	  1960	  1961	  1962
	  1972#	  1974	  1975	  1976	  1977	  1979	  1980	  1981	  1982	  1983	  1984	  1991#	  1993	  1994
	  1995	  1996	  1998	  1999	  2000	  2001	  2002	  2003	  2004	  2012#	  2014	  2015	  2016	  2017
	  2019	  2020	  2021	  2022	  2023	  2024	  2025	  2031#	  2033	  2034	  2035	  2036	  2038	  2039
	  2040	  2041	  2042	  2043	  2044	  2051#	  2053	  2054	  2055	  2056	  2058	  2059	  2060	  2061
	  2062	  2063	  2064	  2071#	  2073	  2074	  2075	  2076	  2078	  2079	  2080	  2081	  2082	  2083
	  2084	  2095#	  2097	  2098	  2099	  2100	  2102	  2103	  2104	  2105	  2106	  2107	  2108	  2109
	  2110	  2111	  2120#	  2122	  2123	  2124	  2125	  2127	  2128	  2129	  2130	  2131	  2132	  2133
	  2141#	  2143	  2144	  2145	  2146	  2148	  2149	  2150	  2151	  2152	  2153	  2154	  2163#	  2165
	  2166	  2167	  2168	  2170	  2171	  2172	  2173	  2174	  2175	  2176	  2184#	  2186	  2187	  2188
	  2189	  2191	  2192	  2193	  2194	  2195	  2196	  2197	  2206#	  2208	  2209	  2210	  2211	  2213
	  2214	  2215	  2216	  2217	  2218	  2219	  2228#	  2230	  2231	  2232	  2233	  2235	  2236	  2237
	  2238	  2239	  2240	  2248#	  2250	  2251	  2252	  2253	  2271	  2272	  2273	  2274	  2275	  2276
	  2277	  2281	  2282	  2283	  2284	  2285	  2286	  2287	  2291	  2292	  2293	  2294	  2295	  2296
	  2297	  2301	  2302	  2303	  2304	  2305	  2306	  2307	  2311	  2312	  2313	  2314	  2315	  2316
	  2317	  2321	  2322	  2323	  2324	  2325	  2326	  2327	  2331	  2332	  2333	  2334	  2335	  2336
	  2337	  2345#	  2347	  2348	  2349	  2350	  2352	  2353	  2354	  2355	  2356	  2357	  2358	  2366#
	  2368	  2369	  2370	  2371	  2373	  2374	  2375	  2376	  2377	  2378	  2387#	  2389	  2390	  2391
	  2392	  2394	  2395	  2396	  2397	  2398	  2399	  2400	  2410#	  2412	  2413	  2414	  2415	  2417
	  2418	  2419	  2420	  2421	  2422	  2428#	  2430	  2431	  2432	  2433	  2435	  2436	  2437	  2438
	  2439	  2440	  2441	  2448#	  2450	  2451	  2452	  2453	  2455	  2456	  2457	  2458	  2459	  2460
	  2461	  2471#	  2473	  2474	  2475	  2476	  2479	  2480	  2481	  2482	  2483	  2484	  2485	  2488
	  2489	  2490	  2491	  2492	  2493	  2494	  2497	  2498	  2499	  2500	  2501	  2502	  2503	  2506
	  2507	  2508	  2509	  2510	  2511	  2512	  2514	  2515	  2516	  2517	  2518	  2519	  2520	  2523     SEQ 0180
	  2524	  2525	  2526	  2527	  2528	  2529	  2532	  2533	  2534	  2535	  2536	  2537	  2538	  2544#
	  2546	  2547	  2548	  2549	  2551	  2552	  2553	  2554	  2555	  2556	  2557	  2560	  2561	  2562
	  2563	  2564	  2565	  2566	  2569	  2570	  2571	  2572	  2573	  2574	  2575	  2578	  2579	  2580
	  2581	  2582	  2583	  2584	  2586	  2587	  2588	  2589	  2590	  2591	  2592	  2595	  2596	  2597
	  2598	  2599	  2600	  2601	  2604	  2605	  2606	  2607	  2608	  2609	  2610	  2613	  2614	  2615
	  2616	  2617	  2618	  2619	  2626#	  2628	  2629	  2630	  2631	  2633	  2634	  2635	  2636	  2637
	  2638	  2639	  2647#	  2649	  2650	  2651	  2652	  2654	  2655	  2656	  2657	  2658	  2659	  2660
	  2667#	  2669	  2670	  2671	  2672	  2674	  2675	  2676	  2677	  2678	  2679	  2686#	  2688	  2689
	  2690	  2691	  2693	  2694	  2695	  2696	  2697	  2698	  2699	  2708#	  2710	  2711	  2712	  2713
	  2715	  2716	  2717	  2718	  2719	  2720	  2721	  2729#	  2731	  2732	  2733	  2734	  2736	  2737
	  2738	  2739	  2740	  2741	  2742	  2752#	  2755	  2756	  2757	  2758	  2760	  2761	  2762	  2763
	  2764	  2765	  2766	  2774#	  2776	  2777	  2778	  2779	  2781	  2782	  2783	  2784	  2785	  2786
	  2787	  2794#	  2796	  2797	  2798	  2799	  2801	  2802	  2803	  2804	  2805	  2806	  2807	  2813#
	  2815	  2816	  2817	  2818	  2820	  2821	  2822	  2823	  2824	  2825	  2826	  2833#	  2835	  2836
	  2837	  2838	  2840	  2841	  2842	  2843	  2844	  2845	  2846	  2853#	  2855	  2856	  2857	  2858
	  2860	  2861	  2862	  2863	  2864	  2865	  2866	  2878#	  2880	  2881	  2882	  2883	  2885	  2886
	  2887	  2888	  2889	  2890	  2891	  2892	  2901#	  2903	  2904	  2905	  2906	  2908	  2909	  2910
	  2911	  2912	  2913	  2914	  2915	  2916	  2924#	  2926	  2927	  2928	  2929	  2931	  2932	  2933
	  2934	  2935	  2936	  2937	  2938	  2951#	  2953	  2954	  2955	  2956	  2958	  2959	  2960	  2961
	  2962	  2963	  2964	  2965	  2971#	  2973	  2974	  2975	  2976	  2978	  2979	  2981	  2983	  2984
	  2986	  2999#	  3001	  3002	  3003	  3004	  3006	  3007	  3008	  3009	  3010	  3011	  3012	  3013
	  3014	  3015	  3025#	  3027	  3028	  3029	  3030	  3032	  3033	  3034	  3035	  3036	  3037	  3038
	  3046#	  3048	  3049	  3050	  3051	  3053	  3054	  3055	  3056	  3057	  3058	  3059	  3060	  3070#
	  3072	  3073	  3074	  3075	  3077	  3078	  3079	  3080	  3081	  3082	  3083	  3090#	  3092	  3093
	  3094	  3095	  3097	  3098	  3099	  3100	  3101	  3102	  3111#	  3113	  3114	  3115	  3116	  3118
	  3119	  3120	  3121	  3122	  3123	  3124	  3132#	  3134	  3135	  3136	  3137	  3139	  3140	  3141
	  3142	  3143	  3144	  3145	  3146	  3158#	  3160	  3161	  3162	  3163	  3185	  3186	  3187	  3188
	  3189	  3190	  3196	  3197	  3198	  3199	  3200	  3201	  3207	  3208	  3209	  3210	  3211	  3212
	  3218	  3219	  3220	  3221	  3222	  3223	  3229	  3230	  3231	  3232	  3233	  3234	  3240	  3241
	  3242	  3243	  3244	  3245	  3251	  3252	  3253	  3254	  3255	  3256	  3262	  3263	  3264	  3265
	  3266	  3267	  3276#	  3278	  3279	  3280	  3281	  3300	  3301	  3302	  3303	  3304	  3305	  3310
	  3311	  3312	  3313	  3314	  3315	  3320	  3321	  3322	  3323	  3324	  3325	  3330	  3331	  3332
	  3333	  3334	  3335	  3340	  3341	  3342	  3343	  3344	  3345	  3350	  3351	  3352	  3353	  3354
	  3355	  3360	  3361	  3362	  3363	  3364	  3365	  3373#	  3375	  3376	  3377	  3378	  3403	  3404
	  3405	  3406	  3407	  3408	  3415	  3416	  3417	  3418	  3419	  3420	  3427	  3428	  3429	  3430
	  3431	  3432	  3439	  3440	  3441	  3442	  3443	  3444	  3451	  3452	  3453	  3454	  3455	  3456
	  3463	  3464	  3465	  3466	  3467	  3468	  3475	  3476	  3477	  3478	  3479	  3480	  3487	  3488
	  3489	  3490	  3491	  3492	  3501#	  3503	  3504	  3505	  3506	  3526	  3527	  3528	  3529	  3530
	  3531	  3536	  3537	  3538	  3539	  3540	  3541	  3546	  3547	  3548	  3549	  3550	  3551	  3556
	  3557	  3558	  3559	  3560	  3561	  3566	  3567	  3568	  3569	  3570	  3571	  3576	  3577	  3578
	  3579	  3580	  3581	  3586	  3587	  3588	  3589	  3590	  3591	  3596	  3597	  3598	  3599	  3600
	  3601	  3609#	  3611	  3612	  3613	  3614	  3632	  3633	  3634	  3635	  3636	  3641	  3642	  3643
	  3644	  3645	  3650	  3651	  3652	  3653	  3654	  3663#	  3665	  3666	  3667	  3668	  3688	  3689
	  3690	  3691	  3692	  3693	  3698	  3699	  3700	  3701	  3702	  3703	  3708	  3709	  3710	  3711
	  3712	  3713	  3721#	  3723	  3724	  3725	  3726	  3746	  3747	  3748	  3749	  3750	  3751	  3756
	  3757	  3758	  3759	  3760	  3761	  3766	  3767	  3768	  3769	  3770	  3771	  3781#	  3783	  3784
	  3785	  3786	  3803	  3804	  3805	  3806	  3807	  3808	  3812	  3813	  3814	  3815	  3816	  3817
	  3821	  3822	  3823	  3824	  3825	  3826	  3830	  3831	  3832	  3833	  3834	  3835	  3839	  3840
	  3841	  3842	  3843	  3844	  3848	  3849	  3850	  3851	  3852	  3853	  3857	  3858	  3859	  3860
	  3861	  3862	  3866	  3867	  3868	  3869	  3870	  3871	  3875	  3876	  3877	  3878	  3879	  3880
	  3901	  3902	  3903	  3904	  3905	  3906	  3907	  3908	  3913	  3914	  3915	  3916	  3917	  3918
	  3919	  3920	  3925	  3926	  3927	  3928	  3929	  3930	  3931	  3932	  3937	  3938	  3939	  3940
	  3941	  3942	  3943	  3944	  3949	  3950	  3951	  3952	  3953	  3954	  3955	  3956	  3961	  3962     SEQ 0181
	  3963	  3964	  3965	  3966	  3967	  3968	  3973	  3974	  3975	  3976	  3977	  3978	  3979	  3980
	  3985	  3986	  3987	  3988	  3989	  3990	  3991	  3992	  3997	  3998	  3999	  4000	  4001	  4002
	  4003	  4004	  4009	  4010	  4011	  4012	  4013	  4014	  4015	  4016	  4021	  4022	  4023	  4024
	  4025	  4026	  4027	  4028	  4033	  4034	  4035	  4036	  4037	  4038	  4039	  4040	  4045	  4046
	  4047	  4048	  4049	  4050	  4051	  4052	  4057	  4058	  4059	  4060	  4061	  4062	  4063	  4064
	  4069	  4070	  4071	  4072	  4073	  4074	  4075	  4076	  4081	  4082	  4083	  4084	  4085	  4086
	  4087	  4088	  4093	  4094	  4095	  4096	  4097	  4098	  4099	  4100	  4105	  4106	  4107	  4108
	  4109	  4110	  4111	  4112	  4120#	  4122	  4123	  4124	  4125	  4150	  4151	  4152	  4153	  4154
	  4155	  4156	  4157	  4158	  4164	  4165	  4166	  4167	  4168	  4169	  4170	  4171	  4172	  4178
	  4179	  4180	  4181	  4182	  4183	  4184	  4185	  4186	  4192	  4193	  4194	  4195	  4196	  4197
	  4198	  4199	  4200	  4206	  4207	  4208	  4209	  4210	  4211	  4212	  4213	  4214	  4220	  4221
	  4222	  4223	  4224	  4225	  4226	  4227	  4228	  4234	  4235	  4236	  4237	  4238	  4239	  4240
	  4241	  4242	  4248	  4249	  4250	  4251	  4252	  4253	  4254	  4255	  4256	  4262	  4263	  4264
	  4265	  4266	  4267	  4268	  4269	  4270	  4276	  4277	  4278	  4279	  4280	  4281	  4282	  4283
	  4284	  4293#	  4295	  4296	  4297	  4298	  4319	  4320	  4321	  4322	  4323	  4324	  4325	  4330
	  4331	  4332	  4333	  4334	  4335	  4336	  4341	  4342	  4343	  4344	  4345	  4346	  4347	  4352
	  4353	  4354	  4355	  4356	  4357	  4358	  4363	  4364	  4365	  4366	  4367	  4368	  4369	  4374
	  4375	  4376	  4377	  4378	  4379	  4380	  4388#	  4390	  4391	  4392	  4393	  4395	  4396	  4397
	  4398	  4399	  4400	  4401	  4403	  4404	  4405	  4406	  4407	  4408	  4409	  4411	  4412	  4413
	  4414	  4415	  4416	  4417	  4424#	  4426	  4427	  4428	  4429	  4446	  4447	  4448	  4449	  4450
	  4451	  4455	  4456	  4457	  4458	  4459	  4460	  4464	  4465	  4466	  4467	  4468	  4469	  4478#
	  4480	  4481	  4482	  4483	  4500	  4501	  4502	  4503	  4504	  4505	  4509	  4510	  4511	  4512
	  4513	  4514	  4518	  4519	  4520	  4521	  4522	  4523	  4532#	  4534	  4535	  4536	  4537	  4558
	  4559	  4560	  4561	  4562	  4563	  4564	  4569	  4570	  4571	  4572	  4573	  4574	  4575	  4580
	  4581	  4582	  4583	  4584	  4585	  4586	  4595#	  4597	  4598	  4599	  4600	  4621	  4622	  4623
	  4624	  4625	  4626	  4627	  4632	  4633	  4634	  4635	  4636	  4637	  4638	  4643	  4644	  4645
	  4646	  4647	  4648	  4649	  4657#	  4659	  4660	  4661	  4662	  4686	  4687	  4688	  4689	  4690
	  4691	  4692	  4698	  4699	  4700	  4701	  4702	  4703	  4704	  4710	  4711	  4712	  4713	  4714
	  4715	  4716	  4726#	  4728	  4729	  4730	  4731	  4755	  4756	  4757	  4758	  4759	  4760	  4761
	  4767	  4768	  4769	  4770	  4771	  4772	  4773	  4779	  4780	  4781	  4782	  4783	  4784	  4785
	  4794#	  4796	  4797	  4798	  4799	  4820	  4821	  4822	  4823	  4824	  4825	  4826	  4831	  4832
	  4833	  4834	  4835	  4836	  4837	  4842	  4843	  4844	  4845	  4846	  4847	  4848	  4858#	  4860
	  4861	  4862	  4863	  4887	  4888	  4889	  4890	  4891	  4892	  4893	  4899	  4900	  4901	  4902
	  4903	  4904	  4905	  4911	  4912	  4913	  4914	  4915	  4916	  4917	  4927#	  4929	  4930	  4931
	  4932	  4957	  4958	  4959	  4960	  4961	  4962	  4963	  4964	  4965	  4971	  4972	  4973	  4974
	  4975	  4976	  4977	  4978	  4979	  4985	  4986	  4987	  4988	  4989	  4990	  4991	  4992	  4993
	  4999	  5000	  5001	  5002	  5003	  5004	  5005	  5006	  5007	  5013	  5014	  5015	  5016	  5017
	  5018	  5019	  5020	  5021	  5027	  5028	  5029	  5030	  5031	  5032	  5033	  5034	  5035	  5041
	  5042	  5043	  5044	  5045	  5046	  5047	  5048	  5049	  5055	  5056	  5057	  5058	  5059	  5060
	  5061	  5062	  5063	  5069	  5070	  5071	  5072	  5073	  5074	  5075	  5076	  5077	  5083	  5084
	  5085	  5086	  5087	  5088	  5089	  5090	  5091	  5097	  5098	  5099	  5100	  5101	  5102	  5103
	  5104	  5105	  5111	  5112	  5113	  5114	  5115	  5116	  5117	  5118	  5119	  5125	  5126	  5127
	  5128	  5129	  5130	  5131	  5132	  5133	  5139	  5140	  5141	  5142	  5143	  5144	  5145	  5146
	  5147	  5153	  5154	  5155	  5156	  5157	  5158	  5159	  5160	  5161	  5167	  5168	  5169	  5170
	  5171	  5172	  5173	  5174	  5175	  5181	  5182	  5183	  5184	  5185	  5186	  5187	  5188	  5189
	  5195	  5196	  5197	  5198	  5199	  5200	  5201	  5202	  5203	  5228	  5229	  5230	  5231	  5232
	  5233	  5234	  5235	  5236	  5242	  5243	  5244	  5245	  5246	  5247	  5248	  5249	  5250	  5256
	  5257	  5258	  5259	  5260	  5261	  5262	  5263	  5264	  5270	  5271	  5272	  5273	  5274	  5275
	  5276	  5277	  5278	  5284	  5285	  5286	  5287	  5288	  5289	  5290	  5291	  5292	  5298	  5299
	  5300	  5301	  5302	  5303	  5304	  5305	  5306	  5312	  5313	  5314	  5315	  5316	  5317	  5318
	  5319	  5320	  5328#	  5330	  5331	  5332	  5333	  5337	  5338	  5339	  5340	  5341	  5342	  5343
	  5345	  5346	  5350	  5351	  5352	  5353	  5355	  5356	  5360	  5361	  5362	  5363	  5364	  5365
	  5366	  5367	  5373#	  5375	  5376	  5377	  5378	  5380	  5381	  5382	  5383	  5384	  5385	  5386     SEQ 0182
	  5387	  5388	  5395#	  5397	  5398	  5399	  5400	  5402	  5403	  5404	  5405	  5406	  5407	  5408
	  5409	  5410	  5417#	  5419	  5420	  5421	  5422	  5448	  5449	  5450	  5451	  5452	  5453	  5454
	  5455	  5456	  5457	  5458	  5459	  5464	  5465	  5466	  5467	  5468	  5469	  5470	  5471	  5472
	  5473	  5474	  5475	  5480	  5481	  5482	  5483	  5484	  5485	  5486	  5487	  5488	  5489	  5490
	  5491	  5496	  5497	  5498	  5499	  5500	  5501	  5502	  5503	  5504	  5505	  5506	  5507	  5512
	  5513	  5514	  5515	  5516	  5517	  5518	  5519	  5520	  5521	  5522	  5523	  5528	  5529	  5530
	  5531	  5532	  5533	  5534	  5535	  5536	  5537	  5538	  5539	  5544	  5545	  5546	  5547	  5548
	  5549	  5550	  5551	  5552	  5553	  5554	  5555	  5560	  5561	  5562	  5563	  5564	  5565	  5566
	  5567	  5568	  5569	  5570	  5571	  5576	  5577	  5578	  5579	  5580	  5581	  5582	  5583	  5584
	  5585	  5586	  5587	  5592	  5593	  5594	  5595	  5596	  5597	  5598	  5599	  5600	  5601	  5602
	  5603	  5608	  5609	  5610	  5611	  5612	  5613	  5614	  5615	  5616	  5617	  5618	  5619	  5624
	  5625	  5626	  5627	  5628	  5629	  5630	  5631	  5632	  5633	  5634	  5635	  5640	  5641	  5642
	  5643	  5644	  5645	  5646	  5647	  5648	  5649	  5650	  5651	  5656	  5657	  5658	  5659	  5660
	  5661	  5662	  5663	  5664	  5665	  5666	  5667	  5672	  5673	  5674	  5675	  5676	  5677	  5678
	  5679	  5680	  5681	  5682	  5683	  5688	  5689	  5690	  5691	  5692	  5693	  5694	  5695	  5696
	  5697	  5698	  5699	  5704	  5705	  5706	  5707	  5708	  5709	  5710	  5711	  5712	  5713	  5714
	  5715	  5722#	  5724	  5725	  5726	  5727	  5729	  5730	  5731	  5732	  5733	  5734	  5735	  5736
	  5743#	  5745	  5746	  5747	  5748	  5750	  5751	  5752	  5753	  5754	  5755	  5756	  5757	  5758
	  5766#	  5768	  5769	  5770	  5771	  5773	  5774	  5775	  5776	  5777	  5778	  5779	  5780	  5781
	  5788#	  5790	  5791	  5792	  5793	  5795	  5796	  5797	  5798	  5799	  5800	  5801	  5802	  5803
	  5812#	  5814	  5815	  5816	  5817	  5819	  5820	  5821	  5822	  5823	  5824	  5825	  5826	  5827
	  5828	  5829	  5832#	  5834	  5835	  5836	  5837	  5841	  5842	  5843	  5844	  5845	  5846	  5849
	  5850	  5851	  5852	  5856	  5857	  5858	  5859	  5860	  5861	  5863	  5864	  5865	  5866	  5867
	  5868	  5872	  5873	  5874	  5875	  5876	  5877	  5879	  5880	  5881	  5882	  5883	  5884	  5887
	  5888	  5889	  5890	  5891	  5892	  5894	  5897	  5898	  5899	  5900	  5901	  5903	  5904	  5909
	  5910	  5911	  5912	  5913	  5914	  5916	  5919	  5920	  5921	  5922	  5923	  5925	  5926	  5931
	  5932	  5933	  5934	  5935	  5936	  5939	  5940	  5941	  5942	  5945	  5946	  5947	  5948	  5949
	  5950	  5953	  5954	  5955	  5956	  5960	  5961	  5962	  5963	  5964	  5965	  5967	  5968	  5969
	  5970	  5971	  5972	  5975	  5976	  5977	  5978	  5979	  5980	  5983	  5984	  5985	  5986	  5990
	  5991	  5992	  5993	  5994	  5995	  5997	  5998	  5999	  6000	  6001	  6002	  6006	  6007	  6008
	  6009	  6010	  6011	  6013	  6014	  6015	  6016	  6017	  6018	  6021	  6022	  6023	  6024	  6025
	  6026	  6028	  6029	  6030	  6031	  6032	  6033	  6037	  6038	  6039	  6040	  6041	  6042	  6044
	  6045	  6046	  6049	  6050	  6051	  6053	  6054	  6059	  6060	  6061	  6062	  6063	  6064	  6066
	  6067	  6068	  6071	  6072	  6073	  6075	  6076	  6080	  6081	  6082	  6083	  6084	  6085	  6088
	  6089	  6090	  6091	  6095	  6096	  6097	  6098	  6099	  6100	  6103	  6104	  6105	  6106	  6109
	  6110	  6111	  6112	  6113	  6114	  6117	  6118	  6119	  6120	  6124	  6125	  6126	  6127	  6128
	  6129	  6131	  6132	  6133	  6134	  6135	  6136	  6140	  6141	  6142	  6143	  6144	  6145	  6147
	  6148	  6149	  6150	  6151	  6152	  6155	  6156	  6157	  6158	  6159	  6160	  6162	  6165	  6166
	  6167	  6168	  6169	  6171	  6172	  6177	  6178	  6179	  6180	  6181	  6182	  6184	  6187	  6188
	  6189	  6190	  6191	  6193	  6194	  6199	  6200	  6201	  6202	  6203	  6204	  6207	  6208	  6209
	  6210	  6213	  6214	  6215	  6216	  6217	  6218	  6221	  6222	  6223	  6224	  6228	  6229	  6230
	  6231	  6232	  6233	  6235	  6236	  6237	  6238	  6239	  6240	  6243	  6244	  6245	  6246	  6247
	  6248	  6251	  6252	  6253	  6254	  6258	  6259	  6260	  6261	  6262	  6263	  6265	  6266	  6267
	  6268	  6269	  6270	  6274	  6275	  6276	  6277	  6278	  6279	  6281	  6282	  6283	  6284	  6285
	  6286	  6289	  6290	  6291	  6292	  6293	  6294	  6296	  6297	  6298	  6299	  6300	  6301	  6305
	  6306	  6307	  6308	  6309	  6310	  6312	  6313	  6314	  6317	  6318	  6319	  6321	  6322	  6327
	  6328	  6329	  6330	  6331	  6332	  6334	  6335	  6336	  6339	  6340	  6341	  6343	  6344	  6348
	  6349	  6350	  6351	  6352	  6353	  6356	  6357	  6358	  6359	  6363	  6364	  6365	  6366	  6367
	  6368	  6371	  6372	  6373	  6374
ALTMGO	   889#	  6499
AROV	   803#
AROVTP	   803#
AROVU	   803#                                                                                                            SEQ 0183
AST	  1004#
ATSIN	  1005#
BEGEND	   885#	  6376
BEGIN	    71	    76	    77	    78	    79	    80	    81	   792	   793	   816#	  6649
BEGIN1	   832#	   886
BELL	  1008#
BIS	   803#
CA00	  1165#
CCA	   803#
CHAIN	   597#
CHNOFF	   803#
CHNON	   803#
CLKU	   803#
CLOCKF	   871#
CNTLC	   888#
CNTRP	   803#
COMMA	   997#
CONSW	   872#	  6434	  6500	  6524
CPOPJ	   892#
CPOPJ1	   890#
CRLF	   727	   728	   992#
CRLF2	   731	   732	   994#
CRY0	   803#
CRY1	   803#
CSHFLG	  1051#
CSHMEM	  1052#
CTRP	   803#
CYCL60	  1045#
DCK	   803#
DDTLNK	   611#	   830
DDTSRT	   830#
DEBUG	    55#	  6640	  6641
DECVER	     4#	    10	    23	   851
DF22F	   956#
DIAGMN	   819#
DING	   583#	  6505
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#                                                                                                            SEQ 0184
EBIT9	   803#
END	  6648#
ENDFIX	  1131#
ENDSLD	  6638#
ERDIAG	    59#	  6419
ERMORE	   905#	  6492
EROLD	    60#	   803
ERRELB	  6489
ERRLOP	  1172#	  1172	  1191#	  1191	  1209#	  1209	  1228#	  1228	  1246#	  1246	  1265#	  1265	  1363#	  1363
	  1471#	  1471	  1489#	  1489	  1588#	  1588	  1662#	  1662	  1681#	  1681	  1701#	  1701	  1795#	  1795
	  1812#	  1812	  1831#	  1831	  1850#	  1850	  1869#	  1869	  1889#	  1889	  1931#	  1931	  1954#	  1954
	  1977#	  1977	  1996#	  1996	  2017#	  2017	  2036#	  2036	  2056#	  2056	  2076#	  2076	  2100#	  2100
	  2125#	  2125	  2146#	  2146	  2168#	  2168	  2189#	  2189	  2211#	  2211	  2233#	  2233	  2253#	  2253
	  2350#	  2350	  2371#	  2371	  2392#	  2392	  2415#	  2415	  2433#	  2433	  2453#	  2453	  2476#	  2476
	  2549#	  2549	  2631#	  2631	  2652#	  2652	  2672#	  2672	  2691#	  2691	  2713#	  2713	  2734#	  2734
	  2758#	  2758	  2779#	  2779	  2799#	  2799	  2818#	  2818	  2838#	  2838	  2858#	  2858	  2883#	  2883
	  2906#	  2906	  2929#	  2929	  2956#	  2956	  2976#	  2976	  3004#	  3004	  3030#	  3030	  3051#	  3051
	  3075#	  3075	  3095#	  3095	  3116#	  3116	  3137#	  3137	  3163#	  3163	  3281#	  3281	  3378#	  3378
	  3506#	  3506	  3614#	  3614	  3668#	  3668	  3726#	  3726	  3786#	  3786	  4125#	  4125	  4298#	  4298
	  4393#	  4393	  4429#	  4429	  4483#	  4483	  4537#	  4537	  4600#	  4600	  4662#	  4662	  4731#	  4731
	  4799#	  4799	  4863#	  4863	  4932#	  4932	  5333#	  5333	  5378#	  5378	  5400#	  5400	  5422#	  5422
	  5727#	  5727	  5748#	  5748	  5771#	  5771	  5793#	  5793	  5817#	  5817	  5837#	  5837	  6399	  6510
	  6513	  6514
ERRMES	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	    51	  6381#
ERRPC	   876#	  6386	  6416
ERRTLS	   877#	  6384	  6517
ERSTOP	   586#	  6501
EXCASB	    56#	   854
EXIOT	   803#
FOV	   803#	  5850	  5866	  5882	  5899	  5921	  5940	  5954	  5968	  5984	  5998	  6014	  6029	  6045
	  6067	  6089	  6104	  6118	  6134	  6150	  6167	  6189	  6208	  6222	  6236	  6252	  6266	  6282
	  6297	  6313	  6335	  6357	  6372
FOVU	   803#
FRDLNK	   609#
FSELNK	   608#
FXU	   803#	  5850	  5864	  5880	  5897	  5903	  5919	  5925	  5940	  5954	  5970	  5984	  6000	  6016
	  6031	  6049	  6053	  6071	  6075	  6089	  6104	  6118	  6132	  6148	  6165	  6171	  6187	  6193
	  6208	  6222	  6238	  6252	  6268	  6284	  6299	  6317	  6321	  6339	  6343	  6357	  6372
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#	  6498
JOBREL	   803#
JOBREN	   803#                                                                                                            SEQ 0185
JOBSA	   803#
JOBSYM	   803#
JOBTPC	   803#
JOBUSY	   803#
JOBUUO	   803#
JOBVER	   803#
KAIFLG	   866#
KLFLG	   867#	  5895	  5917	  6047	  6069	  6163	  6185	  6315	  6337
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#
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#                                                                                                            SEQ 0186
LNXMEN	   803#
LNXMER	   803#
LOOPER	   585#	  6503
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#
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                                                                                             SEQ 0187
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#
MEMMAP	   857
MEMSIZ	   960#
MEMTOT	   958#
MICNT	  6387#	  6387	  6388	  6401
MINUS	  1001#
MODDVC	   593#
MODDVL	   792	   792#	   852
MODDVU	   793	   793#	   853
MODLNK	   612#	   816
MONCTL	   869#	  6402	  6515
MONFLG	   868#
MONTEN	   870#
MONTYP	  1083#
MPVU	   803#
MUUO	   803#
MUUOPC	   803#
NOPNT	   581#	  6392
NXMU	   803#
O12300	  1174#	  1179
O12400	  1193#	  1198
O12500	  1211#	  1216                                                                                                     SEQ 0188
O12600	  1230#	  1235
O12700	  1248#	  1253
O13000	  1270#
O13100	  1370#
O13200	  1473#	  1478
O13300	  1495#
O13400	  1591#	  1596
O13500	  1599#	  1604
O13600	  1607#	  1612
O13700	  1615#	  1620
O14000	  1622#	  1627
O14100	  1630#	  1635
O14200	  1638#	  1643
O14300	  1646#	  1651
O14400	  1664#	  1669
O14500	  1683#	  1688
O14600	  1705#
O14700	  1797#	  1802
O15000	  1814#	  1819
O15100	  1833#	  1838
O15200	  1852#	  1857
O15300	  1871#	  1876
O15400	  1892#	  1898
O15500	  1901#	  1907
O15600	  1910#	  1917
O15700	  1933#	  1937
O16000	  1956#	  1962
O16100	  1979#	  1984
O16200	  1998#	  2004
O16300	  2019#	  2025
O16400	  2038#	  2044
O16500	  2058#	  2064
O16600	  2078#	  2084
O16700	  2102#	  2111
O17000	  2127#	  2133
O17100	  2148#	  2154
O17200	  2170#	  2176
O17300	  2191#	  2197
O17400	  2213#	  2219
O17500	  2235#	  2240
O17600	  2258#
O17700	  2352#	  2358
O20000	  2373#	  2378
O20100	  2394#	  2400
O20200	  2417#	  2422
O20300	  2435#	  2441
O20400	  2455#	  2461
O20500	  2479#	  2485
O20600	  2488#	  2494
O20700	  2497#	  2503
O21000	  2506#	  2512
O21100	  2514#	  2520
O21200	  2523#	  2529                                                                                                     SEQ 0189
O21300	  2532#	  2538
O21400	  2551#	  2557
O21500	  2560#	  2566
O21600	  2569#	  2575
O21700	  2578#	  2584
O22000	  2586#	  2592
O22100	  2595#	  2601
O22200	  2604#	  2610
O22300	  2613#	  2619
O22400	  2633#	  2639
O22500	  2654#	  2660
O22600	  2674#	  2679
O22700	  2693#	  2699
O23000	  2715#	  2721
O23100	  2736#	  2742
O23200	  2760#	  2766
O23300	  2781#	  2787
O23400	  2801#	  2807
O23500	  2820#	  2826
O23600	  2840#	  2846
O23700	  2860#	  2866
O26500	  2885#	  2892
O26600	  2908#	  2916
O26700	  2931#	  2938
O27000	  2958#	  2965
O27100	  3006#	  3015
O27200	  3032#	  3038
O27300	  3053#	  3060
O27400	  3077#	  3083
O27500	  3097#	  3102
O27600	  3118#	  3124
O27700	  3139#	  3146
O30500	  3169#
O30600	  3286#
O30700	  3385#
O31000	  3512#
O31100	  3619#
O31200	  3674#
O31300	  3732#
O31400	  3791#
O31500	  3885#
O31600	  4131#
O31700	  4304#
O32000	  4395#	  4401
O32100	  4403#	  4409
O32200	  4411#	  4417
O32300	  4434#
O32400	  4488#
O32500	  4543#
O32600	  4606#
O32700	  4669#
O33000	  4738#
O33100	  4805#                                                                                                            SEQ 0190
O33200	  4870#
O33300	  4938#
O33400	  5209#
O33500	  5336#	  5346
O33600	  5349#	  5356
O33700	  5359#	  5367
O34400	  5380#	  5388
O34500	  5402#	  5410
O34600	  5428#
O34700	  5729#	  5736
O35000	  5750#	  5758
O35100	  5773#	  5781
O35200	  5795#	  5803
O35300	  5819#	  5829
O35500	  5839#	  5852
O35510	  5854#	  5868
O35520	  5870#	  5884
O35530	  5885#	  5901
O35535	  5896	  5903#
O35537	  5899#	  5905
O35540	  5902	  5907#	  5923
O35545	  5918	  5925#
O35547	  5921#	  5927
O35550	  5924	  5929#	  5942
O35560	  5943#	  5956
O35570	  5958#	  5972	  6240
O35600	  5973#	  5986
O35610	  5988#	  6002
O35620	  6004#	  6018
O35630	  6019#	  6033
O35640	  6035#	  6051
O35645	  6048	  6053#
O35647	  6051#	  6055
O35650	  6052	  6057#	  6073
O35655	  6070	  6075#
O35657	  6073#	  6077
O35660	  6074	  6078#	  6091
O35670	  6093#	  6106
O35700	  6107#	  6120
O35710	  6122#	  6136
O35720	  6138#	  6152
O35730	  6153#	  6169
O35735	  6164	  6171#
O35737	  6167#	  6173
O35740	  6170	  6175#	  6191
O35745	  6186	  6193#
O35747	  6189#	  6195
O35750	  6192	  6197#	  6210
O35760	  6211#	  6224
O35770	  6226#
O36000	  6241#	  6254
O36010	  6256#	  6270
O36020	  6272#	  6286                                                                                                     SEQ 0191
O36030	  6287#	  6301
O36040	  6303#	  6319
O36045	  6316	  6321#
O36047	  6319#	  6323
O36050	  6320	  6325#	  6341
O36055	  6338	  6343#
O36057	  6341#	  6345
O36060	  6342	  6346#	  6359
O36070	  6361#	  6374
OPRSEL	   595#
OPTIME	   971#
P	   638	   639	   640	   641	   803#	   891
PAG	   803#
PALERS	   587#	  6525
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#	  6407	  6411
PATCH	  6641#
PDISF	   968#
PDLOVU	   803#
PDOVTP	   803#
PERIOD	   998#
PFSTRT	   825#
PGMEND	    58#	  6647
PGMNAM	   850	  1135#
PICHN1	   803#
PICHN2	   803#
PICHN3	   803#
PICHN4	   803#
PICHN5	   803#
PICHN6	   803#
PICHN7	   803#
PICHNA	   803#
PICLR	   803#
PIOFF	   803#
PION	   803#
PLIST	  1037#	  1037
PLISTE	  1037	  1039#
PLISTS	  1038#
PLUS	  1003#
PNTENB	   967#
PNTEXT	   846#
PNTFLG	   966#
PNTINH	   969#
PNTLPT	   582#
PNTNAM	   845#                                                                                                            SEQ 0192
PNTRP	   803#
PNTSPC	   970#
PROCED	  6390#	  6390	  6504	  6511
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#
SADR1	    71#	   823
SADR10	    80#	   839
SADR11	    81#	   840
SADR2	    72#	   825
SADR3	    73#	   827
SADR4	    74#
SADR5	    75#	   888
SADR6	    76#	   889
SADR7	    77#	   836
SADR8	    78#	   837
SADR9	    79#	   838
SBINIT	   651	   833#
SCOPE	   926#
SFSTRT	   823#
SLASH	  1010#
SM10	  1114#
SN	  1267#	  1281	  1281#	  1288	  1291	  1291#	  1298	  1301	  1301#	  1308	  1311	  1311#	  1318	  1321
	  1321#	  1328	  1331	  1331#	  1338	  1341	  1341#	  1348	  1365#	  1382	  1382#	  1390	  1393	  1393#
	  1401	  1404	  1404#	  1412	  1415	  1415#	  1423	  1426	  1426#	  1434	  1437	  1437#	  1445	  1448
	  1448#	  1456	  1491#	  1506	  1506#	  1513	  1516	  1516#	  1523	  1526	  1526#	  1533	  1536	  1536#
	  1543	  1546	  1546#	  1553	  1556	  1556#	  1563	  1566	  1566#	  1573	  1702#	  1715	  1715#	  1721
	  1724	  1724#	  1730	  1733	  1733#	  1739	  1742	  1742#	  1748	  1751	  1751#	  1757	  1760	  1760#
	  1766	  1769	  1769#	  1775	  1778	  1778#	  1784	  2255#	  2269	  2269#	  2276	  2279	  2279#	  2286
	  2289	  2289#	  2296	  2299	  2299#	  2306	  2309	  2309#	  2316	  2319	  2319#	  2326	  2329	  2329#
	  2336	  3165#	  3181	  3181#	  3189	  3192	  3192#	  3200	  3203	  3203#	  3211	  3214	  3214#	  3222
	  3225	  3225#	  3233	  3236	  3236#	  3244	  3247	  3247#	  3255	  3258	  3258#	  3266	  3283#	  3297
	  3297#	  3304	  3307	  3307#	  3314	  3317	  3317#	  3324	  3327	  3327#	  3334	  3337	  3337#	  3344
	  3347	  3347#	  3354	  3357	  3357#	  3364	  3380#	  3398	  3398#	  3407	  3410	  3410#	  3419	  3422
	  3422#	  3431	  3434	  3434#	  3443	  3446	  3446#	  3455	  3458	  3458#	  3467	  3470	  3470#	  3479
	  3482	  3482#	  3491	  3508#	  3523	  3523#	  3530	  3533	  3533#	  3540	  3543	  3543#	  3550	  3553     SEQ 0193
	  3553#	  3560	  3563	  3563#	  3570	  3573	  3573#	  3580	  3583	  3583#	  3590	  3593	  3593#	  3600
	  3616#	  3629	  3629#	  3635	  3638	  3638#	  3644	  3647	  3647#	  3653	  3670#	  3685	  3685#	  3692
	  3695	  3695#	  3702	  3705	  3705#	  3712	  3728#	  3743	  3743#	  3750	  3753	  3753#	  3760	  3763
	  3763#	  3770	  3788#	  3801	  3801#	  3807	  3810	  3810#	  3816	  3819	  3819#	  3825	  3828	  3828#
	  3834	  3837	  3837#	  3843	  3846	  3846#	  3852	  3855	  3855#	  3861	  3864	  3864#	  3870	  3873
	  3873#	  3879	  3883#	  3898	  3898#	  3907	  3910	  3910#	  3919	  3922	  3922#	  3931	  3934	  3934#
	  3943	  3946	  3946#	  3955	  3958	  3958#	  3967	  3970	  3970#	  3979	  3982	  3982#	  3991	  3994
	  3994#	  4003	  4006	  4006#	  4015	  4018	  4018#	  4027	  4030	  4030#	  4039	  4042	  4042#	  4051
	  4054	  4054#	  4063	  4066	  4066#	  4075	  4078	  4078#	  4087	  4090	  4090#	  4099	  4102	  4102#
	  4111	  4127#	  4146	  4146#	  4157	  4160	  4160#	  4171	  4174	  4174#	  4185	  4188	  4188#	  4199
	  4202	  4202#	  4213	  4216	  4216#	  4227	  4230	  4230#	  4241	  4244	  4244#	  4255	  4258	  4258#
	  4269	  4272	  4272#	  4283	  4300#	  4316	  4316#	  4324	  4327	  4327#	  4335	  4338	  4338#	  4346
	  4349	  4349#	  4357	  4360	  4360#	  4368	  4371	  4371#	  4379	  4431#	  4444	  4444#	  4450	  4453
	  4453#	  4459	  4462	  4462#	  4468	  4485#	  4498	  4498#	  4504	  4507	  4507#	  4513	  4516	  4516#
	  4522	  4539#	  4555	  4555#	  4563	  4566	  4566#	  4574	  4577	  4577#	  4585	  4602#	  4618	  4618#
	  4626	  4629	  4629#	  4637	  4640	  4640#	  4648	  4664#	  4682	  4682#	  4691	  4694	  4694#	  4703
	  4706	  4706#	  4715	  4733#	  4751	  4751#	  4760	  4763	  4763#	  4772	  4775	  4775#	  4784	  4801#
	  4817	  4817#	  4825	  4828	  4828#	  4836	  4839	  4839#	  4847	  4865#	  4883	  4883#	  4892	  4895
	  4895#	  4904	  4907	  4907#	  4916	  4934#	  4953	  4953#	  4962	  4964	  4967	  4967#	  4976	  4978
	  4981	  4981#	  4990	  4992	  4995	  4995#	  5004	  5006	  5009	  5009#	  5018	  5020	  5023	  5023#
	  5032	  5034	  5037	  5037#	  5046	  5048	  5051	  5051#	  5060	  5062	  5065	  5065#	  5074	  5076
	  5079	  5079#	  5088	  5090	  5093	  5093#	  5102	  5104	  5107	  5107#	  5116	  5118	  5121	  5121#
	  5130	  5132	  5135	  5135#	  5144	  5146	  5149	  5149#	  5158	  5160	  5163	  5163#	  5172	  5174
	  5177	  5177#	  5186	  5188	  5191	  5191#	  5200	  5202	  5206#	  5224	  5224#	  5233	  5235	  5238
	  5238#	  5247	  5249	  5252	  5252#	  5261	  5263	  5266	  5266#	  5275	  5277	  5280	  5280#	  5289
	  5291	  5294	  5294#	  5303	  5305	  5308	  5308#	  5317	  5319	  5424#	  5445	  5445#	  5456	  5458
	  5461	  5461#	  5472	  5474	  5477	  5477#	  5488	  5490	  5493	  5493#	  5504	  5506	  5509	  5509#
	  5520	  5522	  5525	  5525#	  5536	  5538	  5541	  5541#	  5552	  5554	  5557	  5557#	  5568	  5570
	  5573	  5573#	  5584	  5586	  5589	  5589#	  5600	  5602	  5605	  5605#	  5616	  5618	  5621	  5621#
	  5632	  5634	  5637	  5637#	  5648	  5650	  5653	  5653#	  5664	  5666	  5669	  5669#	  5680	  5682
	  5685	  5685#	  5696	  5698	  5701	  5701#	  5712	  5714
SNTRP	   803#
SPACE	   999#
SPDES	  6477#
SPFNRN	  2978#	  2986
SRTDDT	    74	   829#
START	   817	  1151#
START1	   836#
START2	   837#
START3	   838#
START4	   839#
START5	   840#
STARTA	   832	  1155#
STRP	   803#
SUBLNK	   613#	   833
SWPTAB	  1120#
SWTEXR	   848#
SYSEXR	   821#
TAB	  1000#
TESTPC	   875#	  1170	  1189	  1207	  1226	  1244	  1263	  1361	  1469	  1487	  1586	  1660	  1679	  1699
	  1793	  1810	  1829	  1848	  1867	  1887	  1929	  1952	  1975	  1994	  2015	  2034	  2054	  2074
	  2098	  2123	  2144	  2166	  2187	  2209	  2231	  2251	  2348	  2369	  2390	  2413	  2431	  2451
	  2474	  2547	  2629	  2650	  2670	  2689	  2711	  2732	  2756	  2777	  2797	  2816	  2836	  2856     SEQ 0194
	  2881	  2904	  2927	  2954	  2974	  3002	  3028	  3049	  3073	  3093	  3114	  3135	  3161	  3279
	  3376	  3504	  3612	  3666	  3724	  3784	  4123	  4296	  4391	  4427	  4481	  4535	  4598	  4660
	  4729	  4797	  4861	  4930	  5331	  5376	  5398	  5420	  5725	  5746	  5769	  5791	  5815	  5835
TICKS	   878#
TLET	  1153	  6451	  6474#
TN0	   803#
TN1	   803#
TOTALS	   579#
TRP3TP	   803#
TTNBRF	  1058#
TTYFIL	   974#
TTYSPD	   975#
TXTINH	   590#	  6435
UBAVEC	   803#
USER	   865#
USERF	   803#
USRASB	    57#	   855
USRCRF	   984#
USRLFF	   983#
UUODIS	   937#
UUOEXT	   893#	  6522
UUORTN	   894#
UUOSKP	   891#
WW	  1366#	  1383	  1383#	  1384	  1394	  1394#	  1395	  1405	  1405#	  1406	  1416	  1416#	  1417	  1427
	  1427#	  1428	  1438	  1438#	  1439	  1449	  1449#	  1450	  3381#	  3400	  3401	  3401#	  3412	  3413
	  3413#	  3424	  3425	  3425#	  3436	  3437	  3437#	  3448	  3449	  3449#	  3460	  3461	  3461#	  3472
	  3473	  3473#	  3484	  3485	  3485#	  4665#	  4683	  4684	  4684#	  4695	  4696	  4696#	  4707	  4708
	  4708#	  4734#	  4752	  4753	  4753#	  4764	  4765	  4765#	  4776	  4777	  4777#	  4866#	  4884	  4884#
	  4886	  4896	  4896#	  4898	  4908	  4908#	  4910
XX	  1367#	  1384	  1384#	  1387	  1395	  1395#	  1398	  1406	  1406#	  1409	  1417	  1417#	  1420	  1428
	  1428#	  1431	  1439	  1439#	  1442	  1450	  1450#	  1453	  1492#	  1507	  1507#	  1508	  1517	  1517#
	  1518	  1527	  1527#	  1528	  1537	  1537#	  1538	  1547	  1547#	  1548	  1557	  1557#	  1558	  1567
	  1567#	  1568	  3166#	  3182	  3182#	  3185	  3193	  3193#	  3196	  3204	  3204#	  3207	  3215	  3215#
	  3218	  3226	  3226#	  3229	  3237	  3237#	  3240	  3248	  3248#	  3251	  3259	  3259#	  3262	  3299#
	  3300	  3309#	  3310	  3319#	  3320	  3329#	  3330	  3339#	  3340	  3349#	  3350	  3359#	  3360	  3382#
	  3399	  3399#	  3402	  3402#	  3405	  3411	  3411#	  3414	  3417	  3423	  3423#	  3426	  3429	  3435
	  3435#	  3438	  3441	  3447	  3447#	  3450	  3453	  3459	  3459#	  3462	  3465	  3471	  3471#	  3474
	  3477	  3483	  3483#	  3486	  3489	  3509#	  3524	  3524#	  3528	  3534	  3534#	  3538	  3544	  3544#
	  3548	  3554	  3554#	  3558	  3564	  3564#	  3568	  3574	  3574#	  3578	  3584	  3584#	  3588	  3594
	  3594#	  3598	  3671#	  3686	  3686#	  3688	  3696	  3696#	  3698	  3706	  3706#	  3708	  3729#	  3744
	  3744#	  3746	  3754	  3754#	  3756	  3764	  3764#	  3766	  4128#	  4147	  4147#	  4151	  4161	  4161#
	  4165	  4175	  4175#	  4179	  4189	  4189#	  4193	  4203	  4203#	  4207	  4217	  4217#	  4221	  4231
	  4231#	  4235	  4245	  4245#	  4249	  4259	  4259#	  4263	  4273	  4273#	  4277	  4301#	  4317	  4317#
	  4320	  4328	  4328#	  4331	  4339	  4339#	  4342	  4350	  4350#	  4353	  4361	  4361#	  4364	  4372
	  4372#	  4375	  4540#	  4556	  4556#	  4558	  4567	  4567#	  4569	  4578	  4578#	  4580	  4603#	  4619
	  4619#	  4621	  4630	  4630#	  4632	  4641	  4641#	  4643	  4666#	  4683	  4683#	  4686	  4695	  4695#
	  4698	  4707	  4707#	  4710	  4735#	  4752	  4752#	  4755	  4764	  4764#	  4767	  4776	  4776#	  4779
	  4802#	  4818	  4818#	  4820	  4829	  4829#	  4831	  4840	  4840#	  4842	  4867#	  4885	  4885#	  4889
	  4897	  4897#	  4901	  4909	  4909#	  4913	  4935#	  4954	  4954#	  4957	  4968	  4968#	  4971	  4982
	  4982#	  4985	  4996	  4996#	  4999	  5010	  5010#	  5013	  5024	  5024#	  5027	  5038	  5038#	  5041
	  5052	  5052#	  5055	  5066	  5066#	  5069	  5080	  5080#	  5083	  5094	  5094#	  5097	  5108	  5108#
	  5111	  5122	  5122#	  5125	  5136	  5136#	  5139	  5150	  5150#	  5153	  5164	  5164#	  5167	  5178
	  5178#	  5181	  5192	  5192#	  5195	  5225	  5225#	  5228	  5239	  5239#	  5242	  5253	  5253#	  5256     SEQ 0195
	  5267	  5267#	  5270	  5281	  5281#	  5284	  5295	  5295#	  5298	  5309	  5309#	  5312	  5425#	  5446
	  5446#	  5448	  5453	  5457	  5462	  5462#	  5464	  5469	  5473	  5478	  5478#	  5480	  5485	  5489
	  5494	  5494#	  5496	  5501	  5505	  5510	  5510#	  5512	  5517	  5521	  5526	  5526#	  5528	  5533
	  5537	  5542	  5542#	  5544	  5549	  5553	  5558	  5558#	  5560	  5565	  5569	  5574	  5574#	  5576
	  5581	  5585	  5590	  5590#	  5592	  5597	  5601	  5606	  5606#	  5608	  5613	  5617	  5622	  5622#
	  5624	  5629	  5633	  5638	  5638#	  5640	  5645	  5649	  5654	  5654#	  5656	  5661	  5665	  5670
	  5670#	  5672	  5677	  5681	  5686	  5686#	  5688	  5693	  5697	  5702	  5702#	  5704	  5709	  5713
ZZ	  1268#	  1282	  1282#	  1283	  1283#	  1286	  1292	  1292#	  1293	  1296	  1302	  1302#	  1303	  1306
	  1312	  1312#	  1313	  1316	  1322	  1322#	  1323	  1326	  1332	  1332#	  1333	  1336	  1342	  1342#
	  1343	  1346	  1368#	  1385	  1385#	  1388	  1396	  1396#	  1399	  1407	  1407#	  1410	  1418	  1418#
	  1421	  1429	  1429#	  1432	  1440	  1440#	  1443	  1451	  1451#	  1454	  1493#	  1508	  1508#	  1510
	  1518	  1518#	  1520	  1528	  1528#	  1530	  1538	  1538#	  1540	  1548	  1548#	  1550	  1558	  1558#
	  1560	  1568	  1568#	  1570	  1703#	  1716	  1716#	  1718	  1725	  1725#	  1727	  1734	  1734#	  1736
	  1743	  1743#	  1745	  1752	  1752#	  1754	  1761	  1761#	  1763	  1770	  1770#	  1772	  1779	  1779#
	  1781	  2256#	  2270	  2270#	  2271	  2272	  2280	  2280#	  2281	  2282	  2290	  2290#	  2291	  2292
	  2300	  2300#	  2301	  2302	  2310	  2310#	  2311	  2312	  2320	  2320#	  2321	  2322	  2330	  2330#
	  2331	  2332	  3167#	  3183	  3183#	  3184	  3184#	  3187	  3194	  3194#	  3195	  3198	  3205	  3205#
	  3206	  3209	  3216	  3216#	  3217	  3220	  3227	  3227#	  3228	  3231	  3238	  3238#	  3239	  3242
	  3249	  3249#	  3250	  3253	  3260	  3260#	  3261	  3264	  3284#	  3298	  3298#	  3299	  3301	  3308
	  3308#	  3309	  3311	  3318	  3318#	  3319	  3321	  3328	  3328#	  3329	  3331	  3338	  3338#	  3339
	  3341	  3348	  3348#	  3349	  3351	  3358	  3358#	  3359	  3361	  3383#	  3400	  3400#	  3403	  3412
	  3412#	  3415	  3424	  3424#	  3427	  3436	  3436#	  3439	  3448	  3448#	  3451	  3460	  3460#	  3463
	  3472	  3472#	  3475	  3484	  3484#	  3487	  3510#	  3525	  3525#	  3526	  3535	  3535#	  3536	  3545
	  3545#	  3546	  3555	  3555#	  3556	  3565	  3565#	  3566	  3575	  3575#	  3576	  3585	  3585#	  3586
	  3595	  3595#	  3596	  3617#	  3630	  3630#	  3631	  3631#	  3633	  3639	  3639#	  3640	  3642	  3648
	  3648#	  3649	  3651	  3672#	  3687	  3687#	  3690	  3697	  3697#	  3700	  3707	  3707#	  3710	  3730#
	  3745	  3745#	  3748	  3755	  3755#	  3758	  3765	  3765#	  3768	  3789#	  3802	  3802#	  3803	  3804
	  3811	  3811#	  3812	  3813	  3820	  3820#	  3821	  3822	  3829	  3829#	  3830	  3831	  3838	  3838#
	  3839	  3840	  3847	  3847#	  3848	  3849	  3856	  3856#	  3857	  3858	  3865	  3865#	  3866	  3867
	  3874	  3874#	  3875	  3876	  3884#	  3899	  3899#	  3900	  3900#	  3902	  3904	  3911	  3911#	  3912
	  3914	  3916	  3923	  3923#	  3924	  3926	  3928	  3935	  3935#	  3936	  3938	  3940	  3947	  3947#
	  3948	  3950	  3952	  3959	  3959#	  3960	  3962	  3964	  3971	  3971#	  3972	  3974	  3976	  3983
	  3983#	  3984	  3986	  3988	  3995	  3995#	  3996	  3998	  4000	  4007	  4007#	  4008	  4010	  4012
	  4019	  4019#	  4020	  4022	  4024	  4031	  4031#	  4032	  4034	  4036	  4043	  4043#	  4044	  4046
	  4048	  4055	  4055#	  4056	  4058	  4060	  4067	  4067#	  4068	  4070	  4072	  4079	  4079#	  4080
	  4082	  4084	  4091	  4091#	  4092	  4094	  4096	  4103	  4103#	  4104	  4106	  4108	  4129#	  4148
	  4148#	  4149	  4149#	  4153	  4162	  4162#	  4163	  4167	  4176	  4176#	  4177	  4181	  4190	  4190#
	  4191	  4195	  4204	  4204#	  4205	  4209	  4218	  4218#	  4219	  4223	  4232	  4232#	  4233	  4237
	  4246	  4246#	  4247	  4251	  4260	  4260#	  4261	  4265	  4274	  4274#	  4275	  4279	  4302#	  4318
	  4318#	  4319	  4329	  4329#	  4330	  4340	  4340#	  4341	  4351	  4351#	  4352	  4362	  4362#	  4363
	  4373	  4373#	  4374	  4432#	  4445	  4445#	  4447	  4454	  4454#	  4456	  4463	  4463#	  4465	  4486#
	  4499	  4499#	  4501	  4508	  4508#	  4510	  4517	  4517#	  4519	  4541#	  4557	  4557#	  4559	  4560
	  4568	  4568#	  4570	  4571	  4579	  4579#	  4581	  4582	  4604#	  4620	  4620#	  4622	  4623	  4631
	  4631#	  4633	  4634	  4642	  4642#	  4644	  4645	  4667#	  4685	  4685#	  4687	  4697	  4697#	  4699
	  4709	  4709#	  4711	  4736#	  4754	  4754#	  4757	  4766	  4766#	  4769	  4778	  4778#	  4781	  4803#
	  4819	  4819#	  4821	  4822	  4830	  4830#	  4832	  4833	  4841	  4841#	  4843	  4844	  4868#	  4886
	  4886#	  4887	  4898	  4898#	  4899	  4910	  4910#	  4911	  4936#	  4955	  4955#	  4956	  4956#	  4959
	  4963	  4969	  4969#	  4970	  4973	  4977	  4983	  4983#	  4984	  4987	  4991	  4997	  4997#	  4998
	  5001	  5005	  5011	  5011#	  5012	  5015	  5019	  5025	  5025#	  5026	  5029	  5033	  5039	  5039#
	  5040	  5043	  5047	  5053	  5053#	  5054	  5057	  5061	  5067	  5067#	  5068	  5071	  5075	  5081
	  5081#	  5082	  5085	  5089	  5095	  5095#	  5096	  5099	  5103	  5109	  5109#	  5110	  5113	  5117
	  5123	  5123#	  5124	  5127	  5131	  5137	  5137#	  5138	  5141	  5145	  5151	  5151#	  5152	  5155
	  5159	  5165	  5165#	  5166	  5169	  5173	  5179	  5179#	  5180	  5183	  5187	  5193	  5193#	  5194     SEQ 0196
	  5197	  5201	  5207#	  5226	  5226#	  5227	  5227#	  5230	  5234	  5240	  5240#	  5241	  5244	  5248
	  5254	  5254#	  5255	  5258	  5262	  5268	  5268#	  5269	  5272	  5276	  5282	  5282#	  5283	  5286
	  5290	  5296	  5296#	  5297	  5300	  5304	  5310	  5310#	  5311	  5314	  5318	  5426#	  5447	  5447#
	  5451	  5463	  5463#	  5467	  5479	  5479#	  5483	  5495	  5495#	  5499	  5511	  5511#	  5515	  5527
	  5527#	  5531	  5543	  5543#	  5547	  5559	  5559#	  5563	  5575	  5575#	  5579	  5591	  5591#	  5595
	  5607	  5607#	  5611	  5623	  5623#	  5627	  5639	  5639#	  5643	  5655	  5655#	  5659	  5671	  5671#
	  5675	  5687	  5687#	  5691	  5703	  5703#	  5707
$$MUUO	  1089#
$$OUTE	  1095#
$$TAX1	  1107#
$$TAX2	  1108#
$$TOGG	  1101#
$$UUO	  1078#
$ACC0	   916#
$ACF	  6478#
$BEND1	   886#
$BEND2	    75	   887#	  6531
$CHRIN	   977#
$CRLF	   979#
$DEVCH	   803#
$DSKUP	   856#
$DVOFF	   973#
$EMODE	   854#
$FFF	   981#
$IBUF	  1029#
$INEXT	  1031#
$INNM	  1030#
$ITRHL	   897#
$ITRX1	   898#
$LPAPE	  6537
$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#	  6385	  6389	  6415
$SVUUO	   922#	  6394	  6426	  6454
$TABF	   980#
$TTCHR	   976#                                                                                                            SEQ 0197
$TWCNT	   972#
$TYPNB	   978#
$UMODE	   855#
$UORTX	   895#
$USRHL	   899#
$UUOER	   896#	   937
$VTF	   982#
%AC1F	  6479#
%ACS1A	  6396#	  6396	  6440
%ACTFL	   929#
%ACTUL	   930#
%ALF	  6484#
%AR1F	  6483#
%ARF	  6482#
%COREC	   928#
%CORFL	   927#
%DISCR	   931#
%E1F	  6481#
%EEF	  6485#
%EF	  6480#
%ER4X	  6460	  6465#
%ER5X	  6458	  6467#
%ER6X	  6456	  6469#
%ER7X	  6462#	  6466	  6468	  6470
%ERAC0	  6381#	  6381	  6397	  6431	  6521
%ERAC1	  6382#	  6382	  6398	  6509
%ERAC2	  6383#	  6383	  6508
%ERFST	  6404#	  6404	  6406
%ERHI1	  1070#
%ERHI2	  1071#
%ERHI3	  1072#
%ERMOR	  6436	  6463	  6492#
%ERMS1	  6401#	  6527
%ERMS2	  6424#
%ERMS3	  6442	  6449#
%ERRS1	  6393	  6495#	  6526
%ERRS2	  6508#
%ERRS4	  6400	  6524#
%ERRS5	  6512	  6516	  6521#
%ERRS6	  6519	  6529#
%FF	  6486#
%FLTTB	  6444	  6475#
%NODES	  6476#
.JB41	   803#
.JBAPR	   803#
.JBCNI	   803#
.JBDDT	   803#
.JBFF	   803#
.JBOPC	   803#
.JBREL	   803#
.JBREN	   803#
.JBSA	   803#
.JBSYM	   803#                                                                                                            SEQ 0198
.JBTPC	   803#
.JBUSY	   803#
.JBUUO	   803#
.JBVER	   803#

APRID	   803#
BCIO	   803#                                                                                                            SEQ 0199
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#	  1897	  1906	  1915	  5345	  5355	  5365	  5849	  5851	  5863	  5865	  5867	  5879	  5881
	  5883	  5894	  5898	  5900	  5904	  5916	  5920	  5922	  5926	  5939	  5941	  5953	  5955	  5967
	  5969	  5971	  5983	  5985	  5997	  5999	  6001	  6013	  6015	  6017	  6028	  6030	  6032	  6044
	  6046	  6050	  6054	  6066	  6068	  6072	  6076	  6088	  6090	  6103	  6105	  6117	  6119	  6131
	  6133	  6135	  6147	  6149	  6151	  6162	  6166	  6168	  6172	  6184	  6188	  6190	  6194	  6207
	  6209	  6221	  6223	  6235	  6237	  6239	  6251	  6253	  6265	  6267	  6269	  6281	  6283	  6285
	  6296	  6298	  6300	  6312	  6314	  6318	  6322	  6334	  6336	  6340	  6344	  6356	  6358	  6371
	  6373
ER2	    30#
ER3	    31#	  1178	  1197	  1215	  1234	  1252	  1288	  1298	  1308	  1318	  1328	  1338	  1348	  1390
	  1401	  1412	  1423	  1434	  1445	  1456	  1477	  1513	  1523	  1533	  1543	  1553	  1563	  1573
	  1595	  1603	  1611	  1619	  1626	  1634	  1642	  1650	  1668	  1687	  1721	  1730	  1739	  1748
	  1757	  1766	  1775	  1784	  1801	  1818	  1837	  1856	  1875	  1936	  1961	  1983	  2003	  2024
	  2043	  2063	  2083	  2107	  2110	  2132	  2153	  2175	  2196	  2218	  2239	  2276	  2286	  2296
	  2306	  2316	  2326	  2336	  2357	  2377	  2399	  2421	  2440	  2460	  2484	  2493	  2502	  2511
	  2519	  2528	  2537	  2556	  2565	  2574	  2583	  2591	  2600	  2609	  2618	  2638	  2659	  2678
	  2698	  2720	  2741	  2765	  2786	  2806	  2825	  2845	  2865	  2891	  2915	  2937	  2964	  2984
	  3011	  3014	  3037	  3059	  3082	  3101	  3123	  3145	  3189	  3200	  3211	  3222	  3233	  3244
	  3255	  3266	  3304	  3314	  3324	  3334	  3344	  3354	  3364	  3407	  3419	  3431	  3443	  3455
	  3467	  3479	  3491	  3530	  3540	  3550	  3560	  3570	  3580	  3590	  3600	  3635	  3644	  3653
	  3692	  3702	  3712	  3750	  3760	  3770	  3807	  3816	  3825	  3834	  3843	  3852	  3861	  3870
	  3879	  3907	  3919	  3931	  3943	  3955	  3967	  3979	  3991	  4003	  4015	  4027	  4039	  4051
	  4063	  4075	  4087	  4099	  4111	  4157	  4171	  4185	  4199	  4213	  4227	  4241	  4255	  4269     SEQ 0200
	  4283	  4324	  4335	  4346	  4357	  4368	  4379	  4400	  4408	  4416	  4450	  4459	  4468	  4504
	  4513	  4522	  4563	  4574	  4585	  4626	  4637	  4648	  4691	  4703	  4715	  4760	  4772	  4784
	  4825	  4836	  4847	  4892	  4904	  4916	  4962	  4976	  4990	  5004	  5018	  5032	  5046	  5060
	  5074	  5088	  5102	  5116	  5130	  5144	  5158	  5172	  5186	  5200	  5233	  5247	  5261	  5275
	  5289	  5303	  5317	  5343	  5387	  5407	  5456	  5472	  5488	  5504	  5520	  5536	  5552	  5568
	  5584	  5600	  5616	  5632	  5648	  5664	  5680	  5696	  5712	  5735	  5755	  5780	  5800	  5826
	  5846	  5861	  5877	  5892	  5914	  5936	  5950	  5965	  5980	  5995	  6011	  6026	  6042	  6064
	  6085	  6100	  6114	  6129	  6145	  6160	  6182	  6204	  6218	  6233	  6248	  6263	  6279	  6294
	  6310	  6332	  6353	  6368
ER4	    32#
ER5	    33#	  4964	  4978	  4992	  5006	  5020	  5034	  5048	  5062	  5076	  5090	  5104	  5118	  5132
	  5146	  5160	  5174	  5188	  5202	  5235	  5249	  5263	  5277	  5291	  5305	  5319	  5385	  5409
	  5458	  5474	  5490	  5506	  5522	  5538	  5554	  5570	  5586	  5602	  5618	  5634	  5650	  5666
	  5682	  5698	  5714	  5757	  5778	  5802	  5828
ER6	    34#
ER7	    35#
ERRHLT	   658#	  6502
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#
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#	  6506
PCRL	   727#	  6443	  6462
PCRL2	   731#
PCRL2F	   732#
PCRLF	   728#
PFORCE	   735#
PGMINT	   651#	  1151
PJRST	   642#
PMSG	   737#	  6409	  6413	  6424	  6449
PMSGF	   740#	  6529
PNT1	   693#
PNT11	   707#
PNT11F	   708#
PNT1F	   694#
PNT2	   695#                                                                                                            SEQ 0201
PNT2F	   696#
PNT3	   697#	  6461
PNT3F	   698#
PNT4	   699#	  6465
PNT4F	   700#
PNT5	   701#	  6467
PNT5F	   702#
PNT6	   703#	  6417	  6469
PNT6F	   704#
PNT7	   705#
PNT7F	   706#
PNTA	   679#	  6452
PNTADF	   710#
PNTADR	   709#
PNTAF	   680#
PNTAL	   681#	  6445
PNTALF	   682#
PNTCHF	   692#
PNTCHR	   691#
PNTCI	   689#
PNTCIF	   690#
PNTCW	   725#
PNTCWF	   726#
PNTDCF	   718#
PNTDEC	   717#	  6412
PNTDS	   719#
PNTDSF	   720#
PNTHW	   713#	  6432
PNTHWF	   714#
PNTMSF	   686#
PNTMSG	   685#
PNTNM	   721#	  6405
PNTOCF	   716#
PNTOCS	   715#
PNTOCT	   711#
PNTOTF	   712#
PNTSIX	   722#
PNTSXF	   723#
PSIXL	   683#
PSIXLF	   684#
PSIXM	   687#	  6410	  6414	  6425	  6450
PSIXMF	   688#	  6530
PSP	   729#
PSPF	   730#
PUT	   640#
RDAPR	   803#
RDCSB	   803#
RDCSTM	   803#
RDEBR	   803#
RDHSB	   803#
RDINT	   803#
RDIO	   803#
RDIOB	   803#                                                                                                            SEQ 0202
RDPI	   803#
RDPUR	   803#
RDSPB	   803#
RDTIM	   803#
RDUBR	   803#
RTN	   639#	   893
S	   569#	   571	   575	   604	   606	   615	   618	   633	   634	   636	   647	   649	   653	   655
	   660	   664	   803	   808	   814	   841	   843	   861	   863	   881	   883	   912	   914	   932
	   934	   952	   954	   962	   964	   985	   990	  1016	  1018	  1025	  1027	  1033	  1035	  1041
	  1043	  1047	  1049	  1054	  1056	  1060	  1062	  1066	  1068	  1074	  1076	  1079	  1081	  1085
	  1087	  1091	  1093	  1097	  1099	  1103	  1105	  1110	  1112	  1116	  1118	  1122	  1124	  1126
	  1128
SAVEAC	    63#	  1168	  1187	  1205	  1224	  1242	  1261	  1359	  1467	  1485	  1584	  1658	  1677	  1697
	  1791	  1808	  1827	  1846	  1865	  1885	  1927	  1950	  1973	  1992	  2013	  2032	  2052	  2072
	  2096	  2121	  2142	  2164	  2185	  2207	  2229	  2249	  2346	  2367	  2388	  2411	  2429	  2449
	  2472	  2545	  2627	  2648	  2668	  2687	  2709	  2730	  2754	  2775	  2795	  2814	  2834	  2854
	  2879	  2902	  2925	  2952	  2972	  3000	  3026	  3047	  3071	  3091	  3112	  3133	  3159	  3277
	  3374	  3502	  3610	  3664	  3722	  3782	  4121	  4294	  4389	  4425	  4479	  4533	  4596	  4658
	  4727	  4795	  4859	  4928	  5329	  5374	  5396	  5418	  5723	  5744	  5767	  5789	  5813	  5833
SDFA	   471#
SDFARP	   557#
SDFD	   525#
SDFDKL	   535#
SDFM	   493#
SDFMKL	   503#
SDFS	   482#
SIXBTZ	   746#
SWITCH	   752#	  6391	  6493
TIOE	   803#
TIOEB	   803#
TION	   803#
TIONB	   803#
TTALTM	   673#	  6495
TTICHR	   666#
TTICLR	   676#
TTICNV	   671#
TTIDEC	   670#
TTINO	   668#
TTIOCT	   669#
TTIYES	   667#
TTLOOK	   672#
TTSIXB	   674#
TTYINP	   675#
WRAPR	   803#
WRCSB	   803#
WRCSTM	   803#
WREBR	   803#
WRHSB	   803#
WRINT	   803#
WRIO	   803#
WRIOB	   803#
WRPI	   803#
WRPUR	   803#                                                                                                            SEQ 0203
WRSPB	   803#
WRTIM	   803#
WRUBR	   803#

ANDI	  6428
AOJ	  5452	  5468	  5484	  5500	  5516	  5532	  5548	  5564	  5580	  5596	  5612	  5628	  5644	  5660     SEQ 0204
	  5676	  5692	  5708
AOS	   891	  6384	  6387	  6513	  6514
ASCII	   992	   994	   997	   998	   999	  1000	  1002	  1003	  1004	  1005	  1006	  1007	  1009	  1010
	  1011
ASCIZ	  1135	  1152	  6478	  6479	  6480	  6481	  6482	  6483	  6484	  6485	  6486
BLOCK	   960	  1020	  1023	  1029	  1032	  1038	  6641
BYTE	  1008
CAIG	  6430	  6441
CAIL	  6518
CALL	  1133
CAME	  2983	  3188	  3199	  3210	  3221	  3232	  3243	  3254	  3265	  3303	  3313	  3323	  3333	  3343
	  3353	  3363	  3406	  3418	  3430	  3442	  3454	  3466	  3478	  3490	  3529	  3539	  3549	  3559
	  3569	  3579	  3589	  3599	  3691	  3701	  3711	  3749	  3759	  3769	  3806	  3815	  3824	  3833
	  3842	  3851	  3860	  3869	  3878	  3906	  3918	  3930	  3942	  3954	  3966	  3978	  3990	  4002
	  4014	  4026	  4038	  4050	  4062	  4074	  4086	  4098	  4110	  4156	  4170	  4184	  4198	  4212
	  4226	  4240	  4254	  4268	  4282	  4323	  4334	  4345	  4356	  4367	  4378	  4399	  4407	  4415
	  4449	  4458	  4467	  4562	  4573	  4584	  4625	  4636	  4647	  4690	  4702	  4714	  4759	  4771
	  4783	  4824	  4835	  4846	  4891	  4903	  4915	  4961	  4963	  4975	  4977	  4989	  4991	  5003
	  5005	  5017	  5019	  5031	  5033	  5045	  5047	  5059	  5061	  5073	  5075	  5087	  5089	  5101
	  5103	  5115	  5117	  5129	  5131	  5143	  5145	  5157	  5159	  5171	  5173	  5185	  5187	  5199
	  5201	  5232	  5234	  5246	  5248	  5260	  5262	  5274	  5276	  5288	  5290	  5302	  5304	  5316
	  5318	  5342	  5384	  5386	  5406	  5408	  5455	  5457	  5471	  5473	  5487	  5489	  5503	  5505
	  5519	  5521	  5535	  5537	  5551	  5553	  5567	  5569	  5583	  5585	  5599	  5601	  5615	  5617
	  5631	  5633	  5647	  5649	  5663	  5665	  5679	  5681	  5695	  5697	  5711	  5713	  5734	  5754
	  5756	  5777	  5779	  5799	  5801	  5825	  5827	  5845	  5860	  5876	  5891	  5913	  5935	  5949
	  5964	  5979	  5994	  6010	  6025	  6041	  6063	  6084	  6099	  6113	  6128	  6144	  6159	  6181
	  6203	  6217	  6232	  6247	  6262	  6278	  6293	  6309	  6331	  6352	  6367
CAMN	  1177	  1196	  1214	  1233	  1251	  1287	  1297	  1307	  1317	  1327	  1337	  1347	  1389	  1400
	  1411	  1422	  1433	  1444	  1455	  1476	  1512	  1522	  1532	  1542	  1552	  1562	  1572	  1594
	  1602	  1610	  1618	  1625	  1633	  1641	  1649	  1667	  1686	  1720	  1729	  1738	  1747	  1756
	  1765	  1774	  1783	  1800	  1817	  1836	  1855	  1874	  1960	  1982	  2002	  2023	  2042	  2062
	  2082	  2106	  2109	  2131	  2152	  2174	  2195	  2217	  2238	  2275	  2285	  2295	  2305	  2315
	  2325	  2335	  2356	  2376	  2398	  2420	  2439	  2459	  2483	  2492	  2501	  2510	  2518	  2527
	  2536	  2555	  2564	  2573	  2582	  2590	  2599	  2608	  2617	  2637	  2658	  2697	  2719	  2740
	  2764	  2785	  2805	  2824	  2844	  2864	  2890	  2914	  2936	  2963	  3010	  3013	  3036	  3058
	  3081	  3122	  3144	  6386
DEFINE	     7	    63	    91	   113	   141	   171	   209	   253	   278	   305	   337	   372	   417	   428
	   439	   450	   460	   471	   482	   493	   503	   525	   535	   557	   569	   737	   740	   746
END	  6649
FAD	  1959	  1981	  2001	  2022	  2041	  2061	  2081	  2105	  2130	  2151	  2173	  2194	  2216	  2237
	  2274	  2284	  2294	  2304	  2314	  2324	  2334	  2355	  2375	  2397	  2419	  2438	  2458	  2482
	  2491	  2500	  2509	  2517	  2526	  2535	  2554	  2563	  2572	  2581	  2589	  2598	  2607	  2616
	  2636	  2657	  2676	  2696	  2718	  2739	  2763	  2784	  2804	  2823	  2843	  2863	  4155	  4169
	  4183	  4197	  4211	  4225	  4239	  4253	  4267	  4281	  4322	  4333	  4344	  4355	  4366	  4377
	  4398	  4406	  4414	  4448	  4457	  4466	  4502	  4511	  4520	  4561	  4572	  4583	  4624	  4635
	  4646	  4689	  4701	  4713	  4758	  4770	  4782	  4823	  4834	  4845	  4890	  4902	  4914	  4960
	  4974	  4988	  5002	  5016	  5030	  5044	  5058	  5072	  5086	  5100	  5114	  5128	  5142	  5156
	  5170	  5184	  5198	  5231	  5245	  5259	  5273	  5287	  5301	  5315	  5340	  5352	  5362
FADB	  5405
FADM	  5383
FADR	  2889	  2913	  2935	  2962	  2981	  5454	  5470	  5486	  5502	  5518	  5534	  5550	  5566	  5582
	  5598	  5614	  5630	  5646	  5662	  5678	  5694	  5710
FADRI	  5733                                                                                                             SEQ 0205
FSB	  3009	  3035	  3057	  3080	  3099	  3121	  3143	  5753
FSBB	  5798
FSBM	  5776
FSBRB	  5824
FSC	  1176	  1195	  1213	  1232	  1250	  1286	  1296	  1306	  1316	  1326	  1336	  1346	  1388	  1399
	  1410	  1421	  1432	  1443	  1454	  1475	  1511	  1521	  1531	  1541	  1551	  1561	  1571	  1593
	  1601	  1609	  1617	  1624	  1632	  1640	  1648	  1666	  1685	  1719	  1728	  1737	  1746	  1755
	  1764	  1773	  1782	  1799	  1816	  1835	  1854	  1873	  1894	  1903	  1912	  1934	  3187	  3198
	  3209	  3220	  3231	  3242	  3253	  3264	  3302	  3312	  3322	  3332	  3342	  3352	  3362	  3405
	  3417	  3429	  3441	  3453	  3465	  3477	  3489	  3528	  3538	  3548	  3558	  3568	  3578	  3588
	  3598	  3633	  3642	  3651	  3690	  3700	  3710	  3748	  3758	  3768	  3805	  3814	  3823	  3832
	  3841	  3850	  3859	  3868	  3877	  3905	  3917	  3929	  3941	  3953	  3965	  3977	  3989	  4001
	  4013	  4025	  4037	  4049	  4061	  4073	  4085	  4097	  4109	  5843	  5858	  5874	  5889	  5911
	  5933	  5947	  5962	  5977	  5992	  6008	  6023	  6039	  6061	  6082	  6097	  6111	  6126	  6142
	  6157	  6179	  6201	  6215	  6230	  6245	  6260	  6276	  6291	  6307	  6329	  6350	  6365
HRL	  6389
HRLI	  2887	  2909	  2911	  2933	  2960	  3054	  3140	  3901	  3903	  3913	  3915	  3925	  3927	  3937
	  3939	  3949	  3951	  3961	  3963	  3973	  3975	  3985	  3987	  3997	  3999	  4009	  4011	  4021
	  4023	  4033	  4035	  4045	  4047	  4057	  4059	  4069	  4071	  4081	  4083	  4093	  4095	  4105
	  4107	  4150	  4152	  4164	  4166	  4178	  4180	  4192	  4194	  4206	  4208	  4220	  4222	  4234
	  4236	  4248	  4250	  4262	  4264	  4276	  4278	  5448	  5450	  5464	  5466	  5480	  5482	  5496
	  5498	  5512	  5514	  5528	  5530	  5544	  5546	  5560	  5562	  5576	  5578	  5592	  5594	  5608
	  5610	  5624	  5626	  5640	  5642	  5656	  5658	  5672	  5674	  5688	  5690	  5704	  5706	  5729
	  5731	  5819	  5822
HRLOI	  2978
HRRI	  2886	  2908	  2910	  2932	  2959	  3053	  3139	  3902	  3904	  3914	  3916	  3926	  3928	  3938
	  3940	  3950	  3952	  3962	  3964	  3974	  3976	  3986	  3988	  3998	  4000	  4010	  4012	  4022
	  4024	  4034	  4036	  4046	  4048	  4058	  4060	  4070	  4072	  4082	  4084	  4094	  4096	  4106
	  4108	  4151	  4153	  4165	  4167	  4179	  4181	  4193	  4195	  4207	  4209	  4221	  4223	  4235
	  4237	  4249	  4251	  4263	  4265	  4277	  4279	  5449	  5451	  5465	  5467	  5481	  5483	  5497
	  5499	  5513	  5515	  5529	  5531	  5545	  5547	  5561	  5563	  5577	  5579	  5593	  5595	  5609
	  5611	  5625	  5627	  5641	  5643	  5657	  5659	  5673	  5675	  5689	  5691	  5705	  5707	  5730
	  5732	  5820	  5823
HRRZ	  6385	  6415	  6454
IFDEF	   803	   854	   855	   856	   857	  6419	  6489	  6640	  6647
IFE	  1283	  1293	  1303	  1313	  1323	  1333	  1343	  3184	  3195	  3206	  3217	  3228	  3239	  3250
	  3261	  3402	  3414	  3426	  3438	  3450	  3462	  3474	  3486	  3631	  3640	  3649	  3900	  3912
	  3924	  3936	  3948	  3960	  3972	  3984	  3996	  4008	  4020	  4032	  4044	  4056	  4068	  4080
	  4092	  4104	  4149	  4163	  4177	  4191	  4205	  4219	  4233	  4247	  4261	  4275	  4956	  4970
	  4984	  4998	  5012	  5026	  5040	  5054	  5068	  5082	  5096	  5110	  5124	  5138	  5152	  5166
	  5180	  5194	  5227	  5241	  5255	  5269	  5283	  5297	  5311
IFNDEF	   792	   793	   803	   854	   855	   856	   857	   936	  6537
JFCL	   894	   895	   896	   897	   898	   899	   900	   901	   902	   903	   904	   905	  1892	  1896
	  1901	  1905	  5336	  5344	  5349	  5354
JOV	  5847	  5862	  5878	  5893	  5915	  5937	  5951	  5966	  5981	  5996	  6012	  6027	  6043	  6065
	  6086	  6101	  6115	  6130	  6146	  6161	  6183	  6205	  6219	  6234	  6249	  6264	  6280	  6295
	  6311	  6333	  6354	  6369
JRST	   642	   643	   644	   645	   816	   817	   819	   821	   823	   825	   827	   830	   832	   833
	   886	  1155	  1910	  1916	  5359	  5366	  5839	  5848	  5854	  5870	  5885	  5896	  5902	  5905
	  5907	  5918	  5924	  5927	  5929	  5938	  5943	  5952	  5958	  5973	  5982	  5988	  6004	  6019
	  6035	  6048	  6052	  6055	  6057	  6070	  6074	  6077	  6078	  6087	  6093	  6102	  6107	  6116
	  6122	  6138	  6153	  6164	  6170	  6173	  6175	  6186	  6192	  6195	  6197	  6206	  6211	  6220
	  6226	  6241	  6250	  6256	  6272	  6287	  6303	  6316	  6320	  6323	  6325	  6338	  6342	  6345     SEQ 0206
	  6346	  6355	  6361	  6370	  6376	  6393	  6400	  6403	  6408	  6436	  6442	  6456	  6458	  6460
	  6463	  6466	  6468	  6470	  6496	  6499	  6512	  6516	  6519	  6522	  6526	  6527	  6531
JSP	   651	  1895	  1904	  1913	  5341	  5353	  5363	  5844	  5859	  5875	  5890	  5912	  5934	  5948
	  5963	  5978	  5993	  6009	  6024	  6040	  6062	  6083	  6098	  6112	  6127	  6143	  6158	  6180
	  6202	  6216	  6231	  6246	  6261	  6277	  6292	  6308	  6330	  6351	  6366
JUMPL	  1179	  1198	  1216	  1235	  1253	  1289	  1299	  1309	  1319	  1329	  1339	  1349	  1391	  1402
	  1413	  1424	  1435	  1446	  1457	  1478	  1514	  1524	  1534	  1544	  1554	  1564	  1574	  1596
	  1604	  1612	  1620	  1627	  1635	  1643	  1651	  1669	  1688	  1722	  1731	  1740	  1749	  1758
	  1767	  1776	  1785	  1802	  1819	  1838	  1857	  1876	  1898	  1907	  1917	  1937	  1962	  1984
	  2004	  2025	  2044	  2064	  2084	  2111	  2133	  2154	  2176	  2197	  2219	  2240	  2277	  2287
	  2297	  2307	  2317	  2327	  2337	  2358	  2378	  2400	  2422	  2441	  2461	  2485	  2494	  2503
	  2512	  2520	  2529	  2538	  2557	  2566	  2575	  2584	  2592	  2601	  2610	  2619	  2639	  2660
	  2679	  2699	  2721	  2742	  2766	  2787	  2807	  2826	  2846	  2866	  2892	  2916	  2938	  2965
	  2986	  3015	  3038	  3060	  3083	  3102	  3124	  3146	  3190	  3201	  3212	  3223	  3234	  3245
	  3256	  3267	  3305	  3315	  3325	  3335	  3345	  3355	  3365	  3408	  3420	  3432	  3444	  3456
	  3468	  3480	  3492	  3531	  3541	  3551	  3561	  3571	  3581	  3591	  3601	  3636	  3645	  3654
	  3693	  3703	  3713	  3751	  3761	  3771	  3808	  3817	  3826	  3835	  3844	  3853	  3862	  3871
	  3880	  3908	  3920	  3932	  3944	  3956	  3968	  3980	  3992	  4004	  4016	  4028	  4040	  4052
	  4064	  4076	  4088	  4100	  4112	  4158	  4172	  4186	  4200	  4214	  4228	  4242	  4256	  4270
	  4284	  4325	  4336	  4347	  4358	  4369	  4380	  4401	  4409	  4417	  4451	  4460	  4469	  4505
	  4514	  4523	  4564	  4575	  4586	  4627	  4638	  4649	  4692	  4704	  4716	  4761	  4773	  4785
	  4826	  4837	  4848	  4893	  4905	  4917	  4965	  4979	  4993	  5007	  5021	  5035	  5049	  5063
	  5077	  5091	  5105	  5119	  5133	  5147	  5161	  5175	  5189	  5203	  5236	  5250	  5264	  5278
	  5292	  5306	  5320	  5346	  5356	  5367	  5388	  5410	  5459	  5475	  5491	  5507	  5523	  5539
	  5555	  5571	  5587	  5603	  5619	  5635	  5651	  5667	  5683	  5699	  5715	  5736	  5758	  5781
	  5803	  5829	  5852	  5868	  5884	  5901	  5923	  5942	  5956	  5972	  5986	  6002	  6018	  6033
	  6051	  6073	  6091	  6106	  6120	  6136	  6152	  6169	  6191	  6210	  6224	  6240	  6254	  6270
	  6286	  6301	  6319	  6341	  6359	  6374
LALL	     8	  1165
LIST	     7	   803	   936	  6419	  6489	  6537	  6637
LIT	  6538
LOC	    22	   806	  1130
LSH	  6395	  6427
MOVE	  1152	  2979	  4959	  4973	  4987	  5001	  5015	  5029	  5043	  5057	  5071	  5085	  5099	  5113
	  5127	  5141	  5155	  5169	  5183	  5197	  6388	  6394	  6397	  6398	  6411	  6426	  6429	  6431
	  6434	  6440	  6444	  6500	  6508	  6509	  6517	  6521	  6524
MOVEI	  1169	  1171	  1188	  1190	  1206	  1208	  1225	  1227	  1243	  1245	  1262	  1264	  1360	  1362
	  1468	  1470	  1486	  1488	  1585	  1587	  1659	  1661	  1678	  1680	  1698	  1700	  1792	  1794
	  1809	  1811	  1828	  1830	  1847	  1849	  1866	  1868	  1886	  1888	  1928	  1930	  1951	  1953
	  1974	  1976	  1993	  1995	  2014	  2016	  2033	  2035	  2053	  2055	  2073	  2075	  2097	  2099
	  2122	  2124	  2143	  2145	  2165	  2167	  2186	  2188	  2208	  2210	  2230	  2232	  2250	  2252
	  2347	  2349	  2368	  2370	  2389	  2391	  2412	  2414	  2430	  2432	  2450	  2452	  2473	  2475
	  2546	  2548	  2628	  2630	  2649	  2651	  2669	  2671	  2688	  2690	  2710	  2712	  2731	  2733
	  2755	  2757	  2776	  2778	  2796	  2798	  2815	  2817	  2835	  2837	  2855	  2857	  2880	  2882
	  2903	  2905	  2926	  2928	  2953	  2955	  2973	  2975	  3001	  3003	  3027	  3029	  3048	  3050
	  3072	  3074	  3092	  3094	  3113	  3115	  3134	  3136	  3160	  3162	  3278	  3280	  3375	  3377
	  3503	  3505	  3611	  3613	  3665	  3667	  3723	  3725	  3783	  3785	  4122	  4124	  4295	  4297
	  4390	  4392	  4426	  4428	  4480	  4482	  4534	  4536	  4597	  4599	  4659	  4661	  4728	  4730
	  4796	  4798	  4860	  4862	  4929	  4931	  5330	  5332	  5375	  5377	  5397	  5399	  5419	  5421
	  5724	  5726	  5745	  5747	  5768	  5770	  5790	  5792	  5814	  5816	  5834	  5836	  6451	  6497
MOVEM	  1153	  1170	  1172	  1189	  1191	  1207	  1209	  1226	  1228	  1244	  1246	  1263	  1265	  1361
	  1363	  1469	  1471	  1487	  1489	  1586	  1588	  1660	  1662	  1679	  1681	  1699	  1701	  1793
	  1795	  1810	  1812	  1829	  1831	  1848	  1850	  1867	  1869	  1887	  1889	  1929	  1931	  1952     SEQ 0207
	  1954	  1975	  1977	  1994	  1996	  2015	  2017	  2034	  2036	  2054	  2056	  2074	  2076	  2098
	  2100	  2123	  2125	  2144	  2146	  2166	  2168	  2187	  2189	  2209	  2211	  2231	  2233	  2251
	  2253	  2348	  2350	  2369	  2371	  2390	  2392	  2413	  2415	  2431	  2433	  2451	  2453	  2474
	  2476	  2547	  2549	  2629	  2631	  2650	  2652	  2670	  2672	  2689	  2691	  2711	  2713	  2732
	  2734	  2756	  2758	  2777	  2779	  2797	  2799	  2816	  2818	  2836	  2838	  2856	  2858	  2881
	  2883	  2904	  2906	  2927	  2929	  2954	  2956	  2974	  2976	  3002	  3004	  3028	  3030	  3049
	  3051	  3073	  3075	  3093	  3095	  3114	  3116	  3135	  3137	  3161	  3163	  3279	  3281	  3376
	  3378	  3504	  3506	  3612	  3614	  3666	  3668	  3724	  3726	  3784	  3786	  4123	  4125	  4154
	  4168	  4182	  4196	  4210	  4224	  4238	  4252	  4266	  4280	  4296	  4298	  4391	  4393	  4427
	  4429	  4481	  4483	  4535	  4537	  4598	  4600	  4660	  4662	  4729	  4731	  4797	  4799	  4861
	  4863	  4930	  4932	  5331	  5333	  5376	  5378	  5398	  5400	  5420	  5422	  5725	  5727	  5746
	  5748	  5769	  5771	  5791	  5793	  5815	  5817	  5835	  5837	  6381	  6382	  6383	  6396	  6416
	  6498
MOVSI	  1174	  1175	  1193	  1194	  1211	  1212	  1230	  1231	  1248	  1249	  1284	  1285	  1294	  1295
	  1304	  1305	  1314	  1315	  1324	  1325	  1334	  1335	  1344	  1345	  1386	  1387	  1397	  1398
	  1408	  1409	  1419	  1420	  1430	  1431	  1441	  1442	  1452	  1453	  1473	  1474	  1509	  1510
	  1519	  1520	  1529	  1530	  1539	  1540	  1549	  1550	  1559	  1560	  1569	  1570	  1591	  1592
	  1599	  1600	  1607	  1608	  1615	  1616	  1622	  1623	  1630	  1631	  1638	  1639	  1646	  1647
	  1664	  1665	  1683	  1684	  1717	  1718	  1726	  1727	  1735	  1736	  1744	  1745	  1753	  1754
	  1762	  1763	  1771	  1772	  1780	  1781	  1797	  1798	  1814	  1815	  1833	  1834	  1852	  1853
	  1871	  1872	  1893	  1902	  1911	  1933	  1956	  1957	  1958	  1979	  1980	  1998	  1999	  2000
	  2019	  2020	  2021	  2038	  2039	  2040	  2058	  2059	  2060	  2078	  2079	  2080	  2102	  2103
	  2104	  2108	  2127	  2128	  2129	  2148	  2149	  2150	  2170	  2171	  2172	  2191	  2192	  2193
	  2213	  2214	  2235	  2236	  2271	  2272	  2273	  2281	  2282	  2283	  2291	  2292	  2293	  2301
	  2302	  2303	  2311	  2312	  2313	  2321	  2322	  2323	  2331	  2332	  2333	  2352	  2353	  2354
	  2373	  2374	  2394	  2396	  2417	  2418	  2435	  2436	  2437	  2455	  2456	  2457	  2479	  2480
	  2481	  2488	  2489	  2490	  2497	  2498	  2499	  2506	  2507	  2508	  2514	  2515	  2516	  2523
	  2524	  2525	  2532	  2533	  2534	  2551	  2552	  2553	  2560	  2561	  2562	  2569	  2570	  2571
	  2578	  2579	  2580	  2586	  2587	  2588	  2595	  2596	  2597	  2604	  2605	  2606	  2613	  2614
	  2615	  2633	  2634	  2635	  2654	  2655	  2656	  2674	  2675	  2693	  2694	  2695	  2715	  2716
	  2717	  2736	  2737	  2738	  2760	  2761	  2762	  2781	  2782	  2783	  2801	  2802	  2803	  2820
	  2821	  2822	  2840	  2841	  2842	  2860	  2861	  2862	  2885	  2888	  2912	  2931	  2934	  2958
	  2961	  3006	  3007	  3008	  3012	  3032	  3033	  3034	  3055	  3056	  3077	  3078	  3079	  3097
	  3098	  3118	  3119	  3120	  3141	  3142	  3185	  3186	  3196	  3197	  3207	  3208	  3218	  3219
	  3229	  3230	  3240	  3241	  3251	  3252	  3262	  3263	  3300	  3301	  3310	  3311	  3320	  3321
	  3330	  3331	  3340	  3341	  3350	  3351	  3360	  3361	  3403	  3404	  3415	  3416	  3427	  3428
	  3439	  3440	  3451	  3452	  3463	  3464	  3475	  3476	  3487	  3488	  3526	  3527	  3536	  3537
	  3546	  3547	  3556	  3557	  3566	  3567	  3576	  3577	  3586	  3587	  3596	  3597	  3632	  3641
	  3650	  3688	  3689	  3698	  3699	  3708	  3709	  3746	  3747	  3756	  3757	  3766	  3767	  3803
	  3804	  3812	  3813	  3821	  3822	  3830	  3831	  3839	  3840	  3848	  3849	  3857	  3858	  3866
	  3867	  3875	  3876	  4319	  4320	  4321	  4330	  4331	  4332	  4341	  4342	  4343	  4352	  4353
	  4354	  4363	  4364	  4365	  4374	  4375	  4376	  4395	  4396	  4397	  4403	  4404	  4405	  4411
	  4412	  4413	  4446	  4447	  4455	  4456	  4464	  4465	  4500	  4501	  4509	  4510	  4518	  4519
	  4558	  4559	  4560	  4569	  4570	  4571	  4580	  4581	  4582	  4621	  4622	  4623	  4632	  4633
	  4634	  4643	  4644	  4645	  4686	  4687	  4688	  4698	  4699	  4700	  4710	  4711	  4712	  4755
	  4756	  4757	  4767	  4768	  4769	  4779	  4780	  4781	  4820	  4821	  4822	  4831	  4832	  4833
	  4842	  4843	  4844	  4887	  4888	  4889	  4899	  4900	  4901	  4911	  4912	  4913	  4957	  4958
	  4971	  4972	  4985	  4986	  4999	  5000	  5013	  5014	  5027	  5028	  5041	  5042	  5055	  5056
	  5069	  5070	  5083	  5084	  5097	  5098	  5111	  5112	  5125	  5126	  5139	  5140	  5153	  5154
	  5167	  5168	  5181	  5182	  5195	  5196	  5228	  5229	  5230	  5242	  5243	  5244	  5256	  5257
	  5258	  5270	  5271	  5272	  5284	  5285	  5286	  5298	  5299	  5300	  5312	  5313	  5314	  5337
	  5338	  5339	  5350	  5351	  5360	  5361	  5380	  5381	  5382	  5402	  5403	  5404	  5453	  5469
	  5485	  5501	  5517	  5533	  5549	  5565	  5581	  5597	  5613	  5629	  5645	  5661	  5677	  5693     SEQ 0208
	  5709	  5750	  5751	  5752	  5773	  5774	  5775	  5795	  5796	  5797	  5821	  5841	  5842	  5856
	  5857	  5872	  5873	  5887	  5888	  5909	  5910	  5931	  5932	  5945	  5946	  5960	  5961	  5975
	  5976	  5990	  5991	  6006	  6007	  6021	  6022	  6037	  6038	  6059	  6060	  6080	  6081	  6095
	  6096	  6109	  6110	  6124	  6125	  6140	  6141	  6155	  6156	  6177	  6178	  6199	  6200	  6213
	  6214	  6228	  6229	  6243	  6244	  6258	  6259	  6274	  6275	  6289	  6290	  6305	  6306	  6327
	  6328	  6348	  6349	  6363	  6364
NOSYM	    24
OPDEF	    29	    30	    31	    32	    33	    34	    35	    36	    37	    38	    39	   638	   639	   640
	   641	   642	   643	   644	   645	   651	   657	   658	   666	   667	   668	   669	   670	   671
	   672	   673	   674	   675	   676	   679	   680	   681	   682	   683	   684	   685	   686	   687
	   688	   689	   690	   691	   692	   693	   694	   695	   696	   697	   698	   699	   700	   701
	   702	   703	   704	   705	   706	   707	   708	   709	   710	   711	   712	   713	   714	   715
	   716	   717	   718	   719	   720	   721	   722	   723	   724	   725	   726	   727	   728	   729
	   730	   731	   732	   733	   735	   752	   757	   758	   762	   763	   764	   770	   771	   777
	   778	   779	   780	   781	   782	   783	   789	   790	   797	   798	   799	   800	   803
PAGE	  1254	  1459	  1689	  1918	  2241	  2661	  3269	  3494	  3656	  3882	  4286	  4471	  4588	  4718
	  4850	  5205	  5389	  5717
POP	   641
POPJ	   639
PUSH	   640
PUSHJ	   638
REPEAT	  1270	  1370	  1495	  1705	  2258	  3169	  3286	  3385	  3512	  3619	  3674	  3732	  3791	  3885
	  4131	  4304	  4434	  4488	  4543	  4606	  4669	  4738	  4805	  4870	  4938	  5209	  5428
SETOM	  6406	  6504	  6510
SETZ	  2215	  2395
SETZM	  6390	  6401
SIXBIT	    85	    86	  1021	  1022	  1030	  1031	  1133	  6410	  6414	  6425	  6450	  6530
SKIPE	  1935	  3634	  3643	  3652	  4503	  4512	  4521	  5895	  5917	  6047	  6069	  6163	  6185	  6315
	  6337
SKIPGE	  6399
SKIPL	  6402	  6515
SKIPN	  2677	  3100	  6404	  6407	  6511
SUBTTL	    25	   567	   602	   803	   804	  1156	  1938	  2867	  2987	  3148	  6377	  6532
TITLE	    12
TLNE	  5850	  5864	  5880	  5903	  5925	  5940	  5954	  5984	  6049	  6071	  6089	  6104	  6118	  6132
	  6148	  6171	  6193	  6208	  6222	  6252	  6317	  6339	  6357	  6372	  6392	  6435	  6501	  6505
TLNN	  5866	  5882	  5897	  5899	  5919	  5921	  5968	  5970	  5998	  6000	  6014	  6016	  6029	  6031
	  6045	  6053	  6067	  6075	  6134	  6150	  6165	  6167	  6187	  6189	  6236	  6238	  6266	  6268
	  6282	  6284	  6297	  6299	  6313	  6321	  6335	  6343	  6503	  6525
TLZN	  1914	  5364
TRNE	  6455	  6457	  6459
VAR	  6645
XALL	    14
XCT	  6492
XLIST	     6	   802	   803	   935	  6418	  6488	  6536
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 1                  SEQ 0209
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777 


*030631  FSC	13,000007

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 570400 000000     E= 000000 000007 
FINAL
C(AC)= 561400 000000 
----------

*030643  FSC	12,000000

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

*030655  FSC	11,000000

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

*030667  FSC	10,000000

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

*030701  FSC	7,000177

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

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

*030713  FSC	6,000201

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

*030721  FSC	6,000202

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

*030727  FSC	6,000204

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000400 000000     E= 000000 000204 
FINAL
C(AC)= 204400 000000 
----------

*030735  FSC	6,000210

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000400 000000     E= 000000 000210 
FINAL
C(AC)= 210400 000000 
----------

*030743  FSC	6,000220

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000400 000000     E= 000000 000220 
FINAL
C(AC)= 220400 000000 
----------

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

*030751  FSC	6,000240

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 000400 000000     E= 000000 000240 
FINAL
C(AC)= 240400 000000 
----------

*030757  FSC	6,000300

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

*030771  FSC	5,000375

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 001400 000000     E= 000000 000375 
FINAL
C(AC)= 376400 000000 
----------

*030777  FSC	5,000773

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 002400 000000     E= 000000 000773 
FINAL
C(AC)= 375400 000000 
----------

*031005  FSC	5,001767

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 004400 000000     E= 000000 001767 
FINAL
C(AC)= 373400 000000 
----------

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

*031013  FSC	5,003757

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 010400 000000     E= 000000 003757 
FINAL
C(AC)= 367400 000000 
----------

*031021  FSC	5,007737

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 020400 000000     E= 000000 007737 
FINAL
C(AC)= 357400 000000 
----------

*031027  FSC	5,017677

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 040400 000000     E= 000000 017677 
FINAL
C(AC)= 337400 000000 
----------

*031035  FSC	5,037577

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 100400 000000     E= 000000 037577 
FINAL
C(AC)= 277400 000000 
----------

*031047  FSC	14,000005

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

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

*031061  FSC	14,000000

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

*031067  FSC	14,000000

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

*031075  FSC	14,000000

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

*031103  FSC	14,000000

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

*031111  FSC	14,000000

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

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

*031117  FSC	14,000000

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

*031125  FSC	14,000000

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

*031137  FSC	13,000001

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 376400 000000     E= 000000 000001 
FINAL
C(AC)= 377400 000000 
----------

*031145  FSC	13,000002

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 375400 000000     E= 000000 000002 
FINAL
C(AC)= 377400 000000 
----------

*031153  FSC	13,000004

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 373400 000000     E= 000000 000004 
FINAL
C(AC)= 377400 000000 
----------

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

*031161  FSC	13,000010

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 367400 000000     E= 000000 000010 
FINAL
C(AC)= 377400 000000 
----------

*031167  FSC	13,000020

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 357400 000000     E= 000000 000020 
FINAL
C(AC)= 377400 000000 
----------

*031175  FSC	13,000040

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 337400 000000     E= 000000 000040 
FINAL
C(AC)= 377400 000000 
----------

*031203  FSC	13,000100

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 277400 000000     E= 000000 000100 
FINAL
C(AC)= 377400 000000 
----------

*031211  FSC	13,000200

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

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

*031223  FSC	12,000001

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 577200 000000     E= 000000 000001 
FINAL
C(AC)= 576200 000000 
----------

*031235  FSC	11,000000

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

*031247  FSC	10,000000

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

*031255  FSC	10,000000

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

*031263  FSC	10,000000

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

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

*031271  FSC	10,000000

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

*031277  FSC	10,000000

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

*031305  FSC	10,000000

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

*031313  FSC	10,000000

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

*031321  FSC	10,000000

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

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

*031333  FSC	7,000000

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

*031345  FSC	6,000000

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

*031357  FSC	5,000000

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

*031371  FSC	14,000000

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

*031403  FSC	14,000000

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

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

*031415  FSC	13,000001

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

*031424  FSC	13,000001

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

*031433  FSC	13,777777

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777200 000000     E= 000000 777777 
FINAL
C(AC)= 400200 000000 
----------

*031446  FSC	12,000401

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 377000 000000     E= 000000 000401 
FINAL
C(AC)= 000000 000000 
----------

*031461  FAD 	14,000015

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

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

*031473  FAD 	13,000014

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

*031506  FAD 	12,000013

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

*031521  FAD 	11,000012

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

*031534  FAD 	10,000011

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

*031547  FAD 	7,000010

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

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

*031562  FAD 	14,000015

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

*031575  FAD 	14,000015

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

*031613  FAD 	10,000011

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

*031626  FAD 	12,000013

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

*031641  FAD 	11,000012

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

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

*031654  FAD 	5,000006

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

*031667  FAD 	14,000015

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

*031701  FAD 	14,000015

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

*031714  FAD 	13,000014

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

*031723  FAD 	13,000014

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

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

*031732  FAD 	13,000014

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

*031741  FAD 	13,000014

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

*031750  FAD 	13,000014

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

*031757  FAD 	13,000014

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

*031766  FAD 	13,000014

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

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

*032001  FAD 	12,000013

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

*032013  FAD 	11,000012

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

*032026  FAD 	7,000010

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

*032040  FAD 	6,000007

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

*032053  FAD 	5,000006

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

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

*032066  FAD 	13,000014

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

*032101  FAD 	10,000011

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

*032110  FAD 	10,000011

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

*032117  FAD 	10,000011

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

*032126  FAD 	10,000011

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

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

*032135  FAD 	10,000011

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

*032144  FAD 	10,000011

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

*032153  FAD 	10,000011

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

*032166  FAD 	7,000010

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

*032175  FAD 	7,000010

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

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

*032204  FAD 	7,000010

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

*032213  FAD 	7,000010

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

*032222  FAD 	7,000010

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

*032231  FAD 	7,000010

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 205000 000000  C(E)= 600400 000000 
FINAL
C(AC)= 600400 000000 
----------

*032240  FAD 	7,000010

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

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

*032247  FAD 	7,000010

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

*032262  FAD 	6,000007

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

*032275  FAD 	5,000006

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

*032307  FAD 	14,000015

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

*032322  FAD 	14,000015

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

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

*032335  FAD 	13,000014

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

*032350  FAD 	12,000013

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

*032363  FAD 	11,000012

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

*032376  FAD 	10,000011

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

*032411  FAD 	10,000011

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

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

*032424  FAD 	7,000010

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

*032437  FAD 	10,000011

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

*032452  FAD 	7,000010

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

*032466  FADR 	14,000015

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200400 000077  C(E)= 206400 000000 
FINAL
C(AC)= 206404 000001 
----------

*032503  FADR 	14,000013

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200400 000077  C(E)= 206400 000000 
FINAL
C(AC)= 206404 000001 
----------

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

*032517  FADR 	13,000014

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200400 000003  C(E)= 202400 000000 
FINAL
C(AC)= 202500 000001 
----------

*032533  FADR 	12,000013

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200400 777777  C(E)= 202400 000000 
FINAL
C(AC)= 202500 200000 
----------

*032545  FADR 	10,036650

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000777 777777  C(E)= 033777 777777 
FINAL
C(AC)= 034400 000000 
----------

*032560  FSB 	7,000010

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

*032576  FSB 	14,000015

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

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

*032612  FSB 	14,000015

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

*032625  FSB 	13,000014

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

*032637  FSB 	12,000013

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

*032652  FSB 	11,000012

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

*032666  FSB 	10,000011

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

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

*032700  FSC	14,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000001 
FINAL
C(AC)= 001400 000000 
----------

*032706  FSC	14,000002

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000002 
FINAL
C(AC)= 002400 000000 
----------

*032714  FSC	14,000004

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000004 
FINAL
C(AC)= 004400 000000 
----------

*032722  FSC	14,000010

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000010 
FINAL
C(AC)= 010400 000000 
----------

*032730  FSC	14,000020

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000020 
FINAL
C(AC)= 020400 000000 
----------

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

*032736  FSC	14,000040

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000040 
FINAL
C(AC)= 040400 000000 
----------

*032744  FSC	14,000100

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 000100 
FINAL
C(AC)= 100400 000000 
----------

*032752  FSC	14,000200

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

*032764  FSC	14,000001

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

*032772  FSC	14,000001

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 27
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0235

*033000  FSC	14,000001

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

*033006  FSC	14,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 210400 000000     E= 000000 000001 
FINAL
C(AC)= 211400 000000 
----------

*033014  FSC	14,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 220400 000000     E= 000000 000001 
FINAL
C(AC)= 221400 000000 
----------

*033022  FSC	14,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 240400 000000     E= 000000 000001 
FINAL
C(AC)= 241400 000000 
----------

*033030  FSC	14,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 300400 000000     E= 000000 000001 
FINAL
C(AC)= 301400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 28
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0236

*033042  FSC	13,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000001 
FINAL
C(AC)= 776400 000000 
----------

*033050  FSC	13,000002

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000002 
FINAL
C(AC)= 775400 000000 
----------

*033056  FSC	13,000004

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000004 
FINAL
C(AC)= 773400 000000 
----------

*033064  FSC	13,000010

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000010 
FINAL
C(AC)= 767400 000000 
----------

*033072  FSC	13,000020

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000020 
FINAL
C(AC)= 757400 000000 
----------

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

*033100  FSC	13,000040

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000040 
FINAL
C(AC)= 737400 000000 
----------

*033106  FSC	13,000100

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 000100 
FINAL
C(AC)= 677400 000000 
----------

*033114  FSC	13,000200

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

*033126  FSC	12,777777

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

*033134  FSC	12,777776

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 30
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0238

*033142  FSC	12,777775

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

*033150  FSC	12,777774

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

*033156  FSC	12,777773

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

*033164  FSC	12,777772

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

*033172  FSC	12,777771

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 31
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0239

*033200  FSC	12,777770

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

*033211  FSC	11,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000000     E= 000000 000001 
FINAL
C(AC)= 000000 000000 
----------

*033216  FSC	11,000002

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000000     E= 000000 000002 
FINAL
C(AC)= 000000 000000 
----------

*033223  FSC	11,000004

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000000     E= 000000 000004 
FINAL
C(AC)= 000000 000000 
----------

*033235  FSC	10,000001

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 577000 000000     E= 000000 000001 
FINAL
C(AC)= 575400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 32
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0240

*033243  FSC	10,000002

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 577000 000000     E= 000000 000002 
FINAL
C(AC)= 574400 000000 
----------

*033251  FSC	10,000003

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 577000 000000     E= 000000 000003 
FINAL
C(AC)= 573400 000000 
----------

*033263  FSC	7,000001

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

*033271  FSC	7,000002

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

*033277  FSC	7,000003

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200200 000000     E= 000000 000003 
FINAL
C(AC)= 202400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 33
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0241

*033311  FSC	6,000000

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

*033317  FSC	6,000000

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

*033325  FSC	6,000000

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

*033333  FSC	6,000000

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

*033341  FSC	6,000000

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 34
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0242

*033347  FSC	6,000000

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

*033355  FSC	6,000000

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

*033363  FSC	6,000000

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

*033371  FSC	6,000000

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

*033401  FSC	6,000000

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 35
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0243

*033411  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 200000     E= 000000 000000 
FINAL
C(AC)= 400000 200000 
----------

*033421  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 100000     E= 000000 000000 
FINAL
C(AC)= 400000 100000 
----------

*033431  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 040000     E= 000000 000000 
FINAL
C(AC)= 400000 040000 
----------

*033441  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 020000     E= 000000 000000 
FINAL
C(AC)= 400000 020000 
----------

*033451  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 010000     E= 000000 000000 
FINAL
C(AC)= 400000 010000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 36
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0244

*033461  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 004000     E= 000000 000000 
FINAL
C(AC)= 400000 004000 
----------

*033471  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 002000     E= 000000 000000 
FINAL
C(AC)= 400000 002000 
----------

*033501  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 001000     E= 000000 000000 
FINAL
C(AC)= 400000 001000 
----------

*033511  FSC	6,000000

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

*033521  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000200     E= 000000 000000 
FINAL
C(AC)= 400000 000200 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 37
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0245

*033531  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000100     E= 000000 000000 
FINAL
C(AC)= 400000 000100 
----------

*033541  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000040     E= 000000 000000 
FINAL
C(AC)= 400000 000040 
----------

*033551  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000020     E= 000000 000000 
FINAL
C(AC)= 400000 000020 
----------

*033561  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000010     E= 000000 000000 
FINAL
C(AC)= 400000 000010 
----------

*033571  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000004     E= 000000 000000 
FINAL
C(AC)= 400000 000004 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 38
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0246

*033601  FSC	6,000000

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 400000 000002     E= 000000 000000 
FINAL
C(AC)= 400000 000002 
----------

*033611  FSC	6,000000

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

*033626  FAD 	14,000013

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

*033637  FAD 	14,000013

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

*033650  FAD 	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 39
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0247

*033661  FAD 	14,000013

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

*033672  FAD 	14,000013

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

*033703  FAD 	14,000013

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

*033714  FAD 	14,000013

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

*033725  FAD 	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 40
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0248

*033736  FAD 	14,000013

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

*033747  FAD 	14,000013

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

*033762  FAD 	14,000013

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

*033771  FAD 	14,000013

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

*034000  FAD 	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 41
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0249

*034007  FAD 	14,000013

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

*034016  FAD 	14,000013

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

*034025  FAD 	14,000013

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

*034040  FAD 	13,000012

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

*034047  FAD 	13,000012

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 42
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0250

*034056  FAD 	13,000012

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

*034070  FAD 	12,000011

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

*034076  FAD 	12,000011

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

*034104  FAD 	12,000011

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

*034116  FAD 	11,000010

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 43
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0251

*034124  FAD 	11,000010

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

*034132  FAD 	11,000010

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

*034145  FAD 	10,000007

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

*034154  FAD 	10,000007

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

*034163  FAD 	10,000007

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 44
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0252

*034176  FAD 	7,000006

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

*034205  FAD 	7,000006

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

*034214  FAD 	7,000006

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

*034227  FAD 	6,000005

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

*034236  FAD 	6,000005

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 45
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0253

*034245  FAD 	6,000005

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

*034260  FAD 	14,000013

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

*034267  FAD 	14,000013

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

*034276  FAD 	14,000013

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

*034311  FAD 	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 46
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0254

*034320  FAD 	14,000013

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

*034327  FAD 	14,000013

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

*034342  FAD 	13,000012

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

*034351  FAD 	13,000012

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

*034360  FAD 	13,000012

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 47
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0255

*034373  FAD 	12,000011

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

*034404  FAD 	12,000011

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

*034415  FAD 	12,000011

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

*034426  FAD 	12,000011

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

*034437  FAD 	12,000011

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 48
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0256

*034450  FAD 	12,000011

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

*034461  FAD 	12,000011

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

*034472  FAD 	12,000011

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

*034503  FAD 	12,000011

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

*034514  FAD 	12,000011

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 49
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0257

*034525  FAD 	12,000011

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

*034536  FAD 	12,000011

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

*034547  FAD 	12,000011

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

*034560  FAD 	12,000011

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

*034571  FAD 	12,000011

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 50
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0258

*034602  FAD 	12,000011

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

*034613  FAD 	12,000011

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

*034624  FAD 	12,000011

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

*034635  FAD 	12,000011

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

*034646  FAD 	12,000011

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 51
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0259

*034657  FAD 	12,000011

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

*034670  FAD 	12,000011

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

*034701  FAD 	12,000011

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

*034712  FAD 	12,000011

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

*034723  FAD 	12,000011

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 52
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0260

*034741  FAD 	11,000010

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

*034753  FAD 	11,000010

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

*034763  FAD 	11,000010

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

*035000  FADM	14,000013

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

*035015  FADB	14,000013

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 53
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0261

*035035  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000003  C(E)= 202400 000000 
FINAL
C(AC)= 202400 000001 
----------

*035051  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000005  C(E)= 203400 000000 
FINAL
C(AC)= 203400 000001 
----------

*035065  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000011  C(E)= 204400 000000 
FINAL
C(AC)= 204400 000001 
----------

*035101  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000021  C(E)= 205400 000000 
FINAL
C(AC)= 205400 000001 
----------

*035115  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000041  C(E)= 206400 000000 
FINAL
C(AC)= 206400 000001 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 54
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0262

*035131  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000101  C(E)= 207400 000000 
FINAL
C(AC)= 207400 000001 
----------

*035145  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000201  C(E)= 210400 000000 
FINAL
C(AC)= 210400 000001 
----------

*035161  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 000401  C(E)= 211400 000000 
FINAL
C(AC)= 211400 000001 
----------

*035175  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 001001  C(E)= 212400 000000 
FINAL
C(AC)= 212400 000001 
----------

*035211  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 002001  C(E)= 213400 000000 
FINAL
C(AC)= 213400 000001 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 55
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0263

*035225  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 004001  C(E)= 214400 000000 
FINAL
C(AC)= 214400 000001 
----------

*035241  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 010001  C(E)= 215400 000000 
FINAL
C(AC)= 215400 000001 
----------

*035255  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 020001  C(E)= 216400 000000 
FINAL
C(AC)= 216400 000001 
----------

*035271  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 040001  C(E)= 217400 000000 
FINAL
C(AC)= 217400 000001 
----------

*035305  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 100001  C(E)= 220400 000000 
FINAL
C(AC)= 220400 000001 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 56
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0264

*035321  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 200001  C(E)= 221400 000000 
FINAL
C(AC)= 221400 000001 
----------

*035335  FADR 	13,000012

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200000 400001  C(E)= 222400 000000 
FINAL
C(AC)= 222400 000001 
----------

*035353  FADRI	12,202400

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 200400 000003     E= 000000 202400 
FINAL
C(AC)= 202500 000001 
----------

*035366  FSB 	11,000010

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

*035403  FSBM	10,000007

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 57
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0265

*035420  FSBB	7,000006

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

*035437  FSBRB	6,000005

FLAGS - INT/FINAL   440200 440200 
INITIAL
C(AC)= 203400 000000  C(E)= 200477 777775 
FINAL
C(AC)= 202660 000001  C(E)= 202660 000001 
----------

*035455  FSC	4,000000

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

*035473  FSC	4,000001

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

*035512  FSC	4,000200

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 377400 000000     E= 000000 000200 
FINAL
C(AC)= 177400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 58
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0266

*035531  FSC	4,000201

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

*035556  FSC	4,000377

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 377400 000000     E= 000000 000377 
FINAL
C(AC)= 376400 000000 
----------

*035603  FSC	4,000400

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

*035621  FSC	4,777401

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

*035637  FSC	4,777400

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 59
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0267

*035656  FSC	4,000000

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

*035674  FSC	4,777777

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

*035713  FSC	4,777601

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

*035732  FSC	4,777600

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

*035751  FSC	4,777401

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 000400 000000     E= 000000 777401 
FINAL
C(AC)= 001400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 60
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0268

*035776  FSC	4,777400

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

*036023  FSC	4,000377

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

*036041  FSC	4,000400

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

*036057  FSC	4,000000

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

*036075  FSC	4,000001

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 61
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0269

*036114  FSC	4,000200

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 400400 000000     E= 000000 000200 
FINAL
C(AC)= 600400 000000 
----------

*036133  FSC	4,000201

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

*036160  FSC	4,000377

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 400400 000000     E= 000000 000377 
FINAL
C(AC)= 401400 000000 
----------

*036205  FSC	4,000400

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

*036223  FSC	4,777401

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 400400 000000     E= 000000 777401 
FINAL
C(AC)= 777400 000000 
----------

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 62
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0270

*036241  FSC	4,777400

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

*036260  FSC	4,000000

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

*036276  FSC	4,777777

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777400 000000     E= 000000 777777 
FINAL
C(AC)= 400400 000000 
----------

*036315  FSC	4,777601

FLAGS - INT/FINAL   000000 440300 
INITIAL
C(AC)= 777400 000000     E= 000000 777601 
FINAL
C(AC)= 576400 000000 
----------

*036334  FSC	4,777600

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC   UPRPC	KSSIM VER 4.0  29-MAR-78   PAGE 63
DSKCA	000000 000000  700000 000000  100000 000000  030000  777777                                                        SEQ 0271

*036353  FSC	4,777401

FLAGS - INT/FINAL   000000 440200 
INITIAL
C(AC)= 777400 000000     E= 000000 777401 
FINAL
C(AC)= 776400 000000 
----------

*036400  FSC	4,777400

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

*036425  FSC	4,000377

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)= 777400 000000     E= 000000 000377 
FINAL
C(AC)= 400400 000000 
----------

*036443  FSC	4,000400

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